;; bookex.mc -- Source File: TEXTBOOK.ASM
;; sample program in the TextBook
;; with extension to print the M[6c], M[6d], M[6e]
;;  @CopyLeft by tsaiwn@csie.nctu.edu.tw 
;; Please use SISC 3.35 or above version
    ;; ORG  160
     ORG $A0   
 156C  .l  LOAD  5,6C
 166D  .m  LOAD  6,6D
 5056  PV  ADD   0,5,6 
 306E  0n  STORE 0,6E
 C000  @.  Halt 
 2101  !.  LDI   1,01
 2200  ".  LDI   2,00
 2530  %0  LDI   5,30

 270F  '.  LDI   7,0F
 286C  (l  LDI   8,6C
 204D   M  LDI   0,4D
 D100  Q.  PUTC    
 2028   (  LDI   0,28
 D100  Q.  PUTC    
 2030   0  LDI   0,30
 D100  Q.  PUTC    

 4080  @.  MOVE  8,0 
 5002  P.  ADD   0,0,2 
 30D9  0Y  STORE 0,D9
 2ACC  *L  LDI   A,CC
 3A27  :'  STORE A,27
 B010  0.  JUMP  0,10
 2068   h  LDI   0,68
 D100  Q.  PUTC    

 2029   )  LDI   0,29
 D100  Q.  PUTC    
 203D   =  LDI   0,3D
 D100  Q.  PUTC    
 106E  .n  LOAD  0,6E
 2AE0  *`  LDI   A,E0
 3A27  :'  STORE A,27
 B010  0.  JUMP  0,10

 200D   .  LDI   0,0D
 D100  Q.  PUTC    
 200A   .  LDI   0,0A
 D100  Q.  PUTC    
 5221  R!  ADD   2,2,1 
 2003   .  LDI   0,03
 B2F0  2p  JUMP  2,F0
 B0B4  04  JUMP  0,B4

 C000  @.  Halt 
 B0A0  0   JUMP  0,A0

         ORG $10
 400D  @.  MOVE  0,D 
 A004   .  ROTR  0,4 
 8007  ..  AND   0,0,7 
 2A1C  *.  LDI   A,1C
 3A41  :A  STORE A,41
 B028  0(  JUMP  0,28
 40D0  @P  MOVE  D,0 
 8007  ..  AND   0,0,7 

 2A26  *&  LDI   A,26
 3A41  :A  STORE A,41
 B028  0(  JUMP  0,28
 B0E0  0`  JUMP  0,E0
 400C  @.  MOVE  0,C 
 2009   .  LDI   0,09
 BC3C  <<  JUMP  C,3C
 2008   .  LDI   0,08

 BC3C  <<  JUMP  C,3C
 8AC0  .@  AND   A,C,0 
 2000   .  LDI   0,00
 BA3C  :<  JUMP  A,3C
 2007   .  LDI   0,07
 5CC0  \@  ADD   C,C,0 
 50C5  PE  ADD   0,C,5 
 D100  Q.  PUTC    

 B026  0&  JUMP  0,26
 B0A0  0   JUMP  0,A0
 0000  ..  NOP  
 PC $A0   ; set the PC = $A0 = 0A0h = 160
 SETPC $A0   ; set the PC = $A0 = 0A0h = 160
       END
;; end of the main program