test.cul

04FE EQU START
"BITS-32" START-DIRECTIVE $!
6D9 6B1 -  EQU LEN16
6DF EQU END
\ ciforth allows multiple line strings in files
\ and double quotes in strings.

"

\ #################### ""WELCOME"" he said ####################

\ Here it all starts
\ Fasten Your Seat Belts (tm)"  START COMMENT

START -ORG-
0505  LABEL QQQ
050F  LABEL RRR
56A   LABEL YY
0570 LABEL BUFFER10
0580 LABEL BUFFERTILL
"   10 AS-ALIGN" BUFFERTILL DIRECTIVE
"\  First line" BUFFER10 DIRECTIVE
"\  Second line" BUFFER10 DIRECTIVE
066A LABEL BUFFERTILL-END
START RRR "poo" -dc \ Named section
RRR   DUP 6 + SWAP OVER -db: bytes
RRR 3 + LABEL RRRR
( DUP)   DUP 6 + SWAP OVER -d$-
( DUP) DUP 0C +  SWAP OVER -dw: words
( DUP) DUP 18 + SWAP OVER -dl: longs
    YY       -dc-            \ Unnamed section
YY YY  80 +        -db-            \ Bytes: show labels.
YY 80 +   YY 100 +        -dn-      \ No labels shown.
YY 0C0 + LABEL THIS-SHOULD-NOT-SHOW-UP
YY 100 +  END LEN16 -   -dc-            \ Unnamed section
END LEN16 -  END  -dc16: AAP               \ Named section

"XXX is a target for backward jumps:" 053F COMMENT
054A COMMENT: RW, didn't end in a blank, before
053F  LABEL XXX
\ From now on the label ``XXXX'' can be used: like this
XXX  COMMENT:   Move a xell to register DI from memory at QQQ
"YYY is a target for forward jumps:" YY 100 +  COMMENT
END LABEL YYY

\ Oeps, forgot this one ... Shows that labels need not supplied in order.
04FE COMMENT: First instruction

\ Example of label in the middle of a section.