( =32768: RESERVE MEMORY FOR PROGRAM &_ASS(0): FIRST PASS OF ASSEMBLER ?_ASS(3): SECOND PASS OF ASSEMBLER,WITH LISTING AND ERRORS "("PRESS SPACE BAR TO CONTINUE" m2KEY=:KEY<>32 Tr@: WAITS FOR YOU TO PRESS THE SPACE BAR BEFORE GOING ON. YOU START THE MC PROGRAM. G< 32768:: EXECUTES THE MC PROGRAM AND STOPS HERE IF ALL WORKS OK. d_ASS(OPT) nP%=32768 xTCOL=64312 ,[OPT OPT "6;MACHINE CODE S INSERTED HERE @.START LD A,12 JRST 8 TB 158 ^.MENU LD HL,MMESS1 h PRM rLD HL,MMESS2 | PRM LD HL,MMESS3  PRM LD HL,MMESS4  PRM .getkey RST 8 B 156 CP 49  Z,CHTXT CP 50  Z,CHBG CP 51  Z,CHBDRP CP 52 JP Z,end JP MENU .PRM LD B,(HL) &INC HL 0.PRM1 LD A,(HL) :RST 8 DB 158 NINC HL XDEC B bRET Z lJP PRM1 v.CHTXT LD A,12 RST 8 B 158 LD HL,MMESS1  PRM LD HL,TMESS1  PRM RST 8 B 156  valid JP C,CHTXT ADD A,A ADD A,A ADD A,A ADD A,A LD B,A LD A,(TCOL)  15 *ADD A,B 4LD (TCOL),A >RET H.CHBG LD A,12 RRST 8 \B 158 fLD HL,MMESS2 p PRM zLD HL,TMESS1  PRM RST 8 B 156  valid JP C,CHBG LD B,A LD A,(TCOL)  240 ADD A,B LD (TCOL),A RET .CHBDRP LD A,12 RST 8 B 158 LD HL,MMESS3  PRM $LD HL,TMESS1 . PRM 8RST 8 BB 156 L valid VJP C,CHBDRP `OUT (9),A jLD B,135 tLD A,B ~OUT (9),A RET (.end RET;THIS E RETURNS YOU BASIC .valid CP 58 JP C,OK CP 65 JP C,NOGOOD SUB 7 .OK SUB 48 CP 0 JP C,NOGOOD CP 16 JP NC,NOGOOD .GOOD CCF  RET .NOGOOD SCF RET (.MMESS1 B 26 !2M "1 Change text colour " <B 10 FB 13 P.MMESS2 B 32 'ZM "2 Change background colour " dB 10 nB 13 x.MMESS3 B 30 %M "3 Change backdrop colour " B 10 B 13 .MMESS4 B 11 M "4 END " B 10 B 13 .TMESS1 B 40 /M "press a key between 0 and 9 or A and F" B 10 B 13 '] ' _ASS(lA~HPT