;; sample program in the TextBook ;; with extension to print the M[6c], M[6d], M[6e] ;; @CopyLeft by tsaiwn@csie.nctu.edu.tw ORG $A0 0A0: 156C .l LOAD 5,6C 0A2: 166D .m LOAD 6,6D 0A4: 5056 PV ADD 0,5,6 0A6: 306E 0n STORE 0,6E 0A8: C000 @. Halt 0AA: 2101 !. LDI 1,01 0AC: 2200 ". LDI 2,00 0AE: 2530 %0 LDI 5,30 0B0: 270F '. LDI 7,0F 0B2: 286C (l LDI 8,6C 0B4: 204D M LDI 0,4D 0B6: D100 Q. PUTC 0B8: 2028 ( LDI 0,28 0BA: D100 Q. PUTC 0BC: 2030 0 LDI 0,30 0BE: D100 Q. PUTC 0C0: 4080 @. MOVE 8,0 0C2: 5002 P. ADD 0,0,2 0C4: 30D9 0Y STORE 0,D9 0C6: 2ACC *L LDI A,CC 0C8: 3A27 :' STORE A,27 0CA: B010 0. JUMP 0,10 0CC: 2068 h LDI 0,68 0CE: D100 Q. PUTC 0D0: 2029 ) LDI 0,29 0D2: D100 Q. PUTC 0D4: 203D = LDI 0,3D 0D6: D100 Q. PUTC 0D8: 106E .n LOAD 0,6E 0DA: 2AE0 *` LDI A,E0 0DC: 3A27 :' STORE A,27 0DE: B010 0. JUMP 0,10 0E0: 200D . LDI 0,0D 0E2: D100 Q. PUTC 0E4: 200A . LDI 0,0A 0E6: D100 Q. PUTC 0E8: 5221 R! ADD 2,2,1 0EA: 2003 . LDI 0,03 0EC: B2F0 2p JUMP 2,F0 0EE: B0B4 04 JUMP 0,B4 0F0: C000 @. Halt 0F2: B0A0 0 JUMP 0,A0 ;; end of the main program ORG $10 010: 400D @. MOVE 0,D 012: A004 . ROTR 0,4 014: 8007 .. AND 0,0,7 016: 2A1C *. LDI A,1C 018: 3A41 :A STORE A,41 01A: B028 0( JUMP 0,28 01C: 40D0 @P MOVE D,0 01E: 8007 .. AND 0,0,7 020: 2A26 *& LDI A,26 022: 3A41 :A STORE A,41 024: B028 0( JUMP 0,28 026: B0E0 0` JUMP 0,E0 028: 400C @. MOVE 0,C 02A: 2009 . LDI 0,09 02C: BC3C << JUMP C,3C 02E: 2008 . LDI 0,08 030: BC3C << JUMP C,3C 032: 8AC0 .@ AND A,C,0 034: 2000 . LDI 0,00 036: BA3C :< JUMP A,3C 038: 2007 . LDI 0,07 03A: 5CC0 \@ ADD C,C,0 03C: 50C5 PE ADD 0,C,5 03E: D100 Q. PUTC 040: B026 0& JUMP 0,26 042: B0A0 0 JUMP 0,A0 044: 0000 .. NOP END