10 scnclr
20 print "PLUS/4 ASSEMBLER EXAMPLE(BASIC FEATURES)
30 print
35 print "(C) D.BROAD. AUG. 1986.
40 *A,20000:rem ASSEMBLE
50 end
60 .
10000 . FIRST LINE IS COMMand LINE
10010 . 'M' INDICATES ASSEMBLE to
10020 . MEMorY. 'B' ALLOWS ASSEMBLY
10030 . to DISC, WITH PROGRAM 'LD'
10040 . USED WITHIN THE monitor to
10050 . load THE OBJECT FILE intO
10060 . MEMorY (G333). THIS ALLOWS
10070 . CODE to RESIDE WITHIN MEMorY
10080 . OCCUPIED BY THE ASSEMBLER
10090 . ($1000-$2850) or THE SYMBOL
10100 . TABLE ($D800 onWARD)
10110 .
10120 .
20000 "*MV;V=VISUAL(NOTE:USE P FOR PRINT)
20010 "
20020 " ORG $3800
20030 "
20040 "BEGIN:LDA #9;DECIMAL
20050 "      LDX #$FE;HEX
20060 "      LDY #@12;OCTAL
20070 "      LDA %11;BINARY
20080 "
20090 "LDA TEST;FWD REFERENCE
20100 "
20110 "IF: TEST=0;COND ASSEMBLY
20120 " LDA #3
20130 "ELSE:
20140 " LDA #6
20150 "ENDIF:
20160 "
20170 " LDA #>BEGIN;HI BYTE
20180 "
20190 " LDA #4+5-1+3-1
20195 "
20200 "TEST=?; GET VALUE FROM KEYBOARD
20210 "*;END MARKER