Difference between revisions of "Disassembly:SABA Videoplay 20"

From veswiki
Jump to: navigation, search
Line 1: Line 1:
 
{{Incomplete Disassembly}}
 
{{Incomplete Disassembly}}
  
This is the complete disassembly of the SABA Videoplay 20 made with Peter Trauner's [[f8tool]]. Original code is likely copyright © SABA.
+
This is the complete disassembly of the SABA Videoplay 20 made with Peter Trauner's [[f8tool]]. <br>
 +
Original code is most likely copyright &copy; SABA.
  
 
This cartridge differs from other videocarts by its LED and the use of IRQ. It uses the 3853 SMI, logic circuitry, 2KB RAM and plain masked ROM.<br>
 
This cartridge differs from other videocarts by its LED and the use of IRQ. It uses the 3853 SMI, logic circuitry, 2KB RAM and plain masked ROM.<br>
 
LED is controlled with A15 and a low signal when in the memory area $3800-$3FFF (also starting at $7800, $B800 and $F800) by using a JK flip-flop. <br>
 
LED is controlled with A15 and a low signal when in the memory area $3800-$3FFF (also starting at $7800, $B800 and $F800) by using a JK flip-flop. <br>
 +
Writing to $3800 turns LED off, toggle A15 from high to low toggles LED.
  
 
<pre>
 
<pre>
Line 13: Line 15:
 
CartridgeStart: LR  $5,A                ; 0800 55
 
CartridgeStart: LR  $5,A                ; 0800 55
 
                 NOP                      ; 0801 2b
 
                 NOP                      ; 0801 2b
CartridgeEntry: JMP  A132e              ; 0802 29 13 2e
+
CartridgeEntry: JMP  A132e              ; 0802 29 13 2e  
 
                 JMP  A131d              ; 0805 29 13 1d
 
                 JMP  A131d              ; 0805 29 13 1d
 
                 JMP  A1324              ; 0808 29 13 24
 
                 JMP  A1324              ; 0808 29 13 24
 +
 +
; Data
 
A080b:          LR  KU,A                ; 080b 04
 
A080b:          LR  KU,A                ; 080b 04
 
                 LR  A,QU                ; 080c 02
 
                 LR  A,QU                ; 080c 02
Line 69: Line 73:
 
                 PK                      ; 0840 0c
 
                 PK                      ; 0840 0c
 
                 NS  $8                  ; 0841 f8
 
                 NS  $8                  ; 0841 f8
                 XS  (IS)+              ; 0842 ed
+
                 XS  I                  ; 0842 ed
 
                 LR  A,IS                ; 0843 0a
 
                 LR  A,IS                ; 0843 0a
 
                 LR  A,IS                ; 0844 0a
 
                 LR  A,IS                ; 0844 0a
Line 86: Line 90:
 
                 BF  $4,A0858            ; 0853 94 04
 
                 BF  $4,A0858            ; 0853 94 04
 
                 JMP  A10cc              ; 0855 29 10 cc
 
                 JMP  A10cc              ; 0855 29 10 cc
A0858:          LIS  $0                  ; 0858 70
+
A0858:          CLR                      ; 0858 70
 
                 LISL 6                  ; 0859 6e
 
                 LISL 6                  ; 0859 6e
                 LR  (IS),A             ; 085a 5c
+
                 LR  S, A               ; 085a 5c
 
                 LISU 4                  ; 085b 64
 
                 LISU 4                  ; 085b 64
                 LR  (IS)+,A             ; 085c 5d
+
                 LR  I, A               ; 085c 5d
                 LR  (IS),A             ; 085d 5c
+
                 LR  S, A               ; 085d 5c
 
                 LISU 5                  ; 085e 65
 
                 LISU 5                  ; 085e 65
 
                 LISL 3                  ; 085f 6b
 
                 LISL 3                  ; 085f 6b
 
                 LI  $ae                ; 0860 20 ae
 
                 LI  $ae                ; 0860 20 ae
                 LR  (IS)-,A             ; 0862 5e
+
                 LR  D, A               ; 0862 5e
 
                 LI  $28                ; 0863 20 28
 
                 LI  $28                ; 0863 20 28
                 LR  (IS)-,A             ; 0865 5e
+
                 LR  D, A               ; 0865 5e
 
                 LISU 4                  ; 0866 64
 
                 LISU 4                  ; 0866 64
 
                 LI  $7e                ; 0867 20 7e
 
                 LI  $7e                ; 0867 20 7e
                 LR  (IS)-,A             ; 0869 5e
+
                 LR  D, A               ; 0869 5e
 
                 LI  $2f                ; 086a 20 2f
 
                 LI  $2f                ; 086a 20 2f
                 LR  (IS)-,A             ; 086c 5e
+
                 LR  D, A               ; 086c 5e
 
                 LISU 6                  ; 086d 66
 
                 LISU 6                  ; 086d 66
 
                 LR  A,(IS)              ; 086e 4c
 
                 LR  A,(IS)              ; 086e 4c
Line 112: Line 116:
 
                 SL  1                  ; 0875 13
 
                 SL  1                  ; 0875 13
 
                 XS  $0                  ; 0876 e0
 
                 XS  $0                  ; 0876 e0
                 LR  (IS),A             ; 0877 5c
+
                 LR  S, A               ; 0877 5c
 
                 LISU 4                  ; 0878 64
 
                 LISU 4                  ; 0878 64
 
                 LISL 4                  ; 0879 6c
 
                 LISL 4                  ; 0879 6c
 
                 LI  $28                ; 087a 20 28
 
                 LI  $28                ; 087a 20 28
                 LR  (IS)+,A             ; 087c 5d
+
                 LR  I, A               ; 087c 5d
 
                 LI  $a2                ; 087d 20 a2
 
                 LI  $a2                ; 087d 20 a2
                 LR  (IS),A             ; 087f 5c
+
                 LR  S, A               ; 087f 5c
 
                 LIS  $f                  ; 0880 7f
 
                 LIS  $f                  ; 0880 7f
 
                 LR  $1,A                ; 0881 51
 
                 LR  $1,A                ; 0881 51
                 LIS  $0                  ; 0882 70
+
                 CLR                      ; 0882 70
 
                 DCI  $28a2              ; 0883 2a 28 a2
 
                 DCI  $28a2              ; 0883 2a 28 a2
 
A0886:          ST                      ; 0886 17
 
A0886:          ST                      ; 0886 17
Line 127: Line 131:
 
                 BF  $4,A0886            ; 0888 94 fd
 
                 BF  $4,A0886            ; 0888 94 fd
 
                 LISU 7                  ; 088a 67
 
                 LISU 7                  ; 088a 67
                 LR  (IS)+,A             ; 088b 5d
+
                 LR  I, A               ; 088b 5d
                 LR  (IS),A             ; 088c 5c
+
                 LR  S, A               ; 088c 5c
 
                 PI  A0c12              ; 088d 28 0c 12
 
                 PI  A0c12              ; 088d 28 0c 12
 
                 PI  A1111              ; 0890 28 11 11
 
                 PI  A1111              ; 0890 28 11 11
Line 135: Line 139:
 
                 LR  A,(IS)              ; 0895 4c
 
                 LR  A,(IS)              ; 0895 4c
 
                 LISL 5                  ; 0896 6d
 
                 LISL 5                  ; 0896 6d
                 LR  (IS)-,A             ; 0897 5e
+
                 LR  D, A               ; 0897 5e
 
                 LR  A,(IS)              ; 0898 4c
 
                 LR  A,(IS)              ; 0898 4c
 
                 LISL 6                  ; 0899 6e
 
                 LISL 6                  ; 0899 6e
                 LR  (IS),A             ; 089a 5c
+
                 LR  S, A               ; 089a 5c
 
A089b:          LISU 6                  ; 089b 66
 
A089b:          LISU 6                  ; 089b 66
 
                 LISL 6                  ; 089c 6e
 
                 LISL 6                  ; 089c 6e
 
                 LR  A,(IS)              ; 089d 4c
 
                 LR  A,(IS)              ; 089d 4c
 
                 INC                      ; 089e 1f
 
                 INC                      ; 089e 1f
                 LR  (IS)+,A             ; 089f 5d
+
                 LR  I, A               ; 089f 5d
 
                 LI  $df                ; 08a0 20 df
 
                 LI  $df                ; 08a0 20 df
 
                 NS  (IS)                ; 08a2 fc
 
                 NS  (IS)                ; 08a2 fc
                 LR  (IS),A             ; 08a3 5c
+
                 LR  S, A               ; 08a3 5c
 
                 PI  A09d1              ; 08a4 28 09 d1
 
                 PI  A09d1              ; 08a4 28 09 d1
 
                 LISU 6                  ; 08a7 66
 
                 LISU 6                  ; 08a7 66
 
                 LISL 7                  ; 08a8 6f
 
                 LISL 7                  ; 08a8 6f
 
                 LIS  $f                  ; 08a9 7f
 
                 LIS  $f                  ; 08a9 7f
                 NS  (IS)-              ; 08aa fe
+
                 NS  D                  ; 08aa fe
 
                 COM                      ; 08ab 18
 
                 COM                      ; 08ab 18
 
                 INC                      ; 08ac 1f
 
                 INC                      ; 08ac 1f
Line 159: Line 163:
 
A08b3:          LISU 4                  ; 08b3 64
 
A08b3:          LISU 4                  ; 08b3 64
 
                 LISL 0                  ; 08b4 68
 
                 LISL 0                  ; 08b4 68
                 LR  A,(IS)+            ; 08b5 4d
+
                 LR  A,I                ; 08b5 4d
 
                 LR  $0,A                ; 08b6 50
 
                 LR  $0,A                ; 08b6 50
                 LR  A,(IS)+            ; 08b7 4d
+
                 LR  A,I                ; 08b7 4d
 
                 LR  $1,A                ; 08b8 51
 
                 LR  $1,A                ; 08b8 51
 
                 LR  A,$0                ; 08b9 40
 
                 LR  A,$0                ; 08b9 40
                 LR  (IS)+,A             ; 08ba 5d
+
                 LR  I, A               ; 08ba 5d
 
                 LR  A,$1                ; 08bb 41
 
                 LR  A,$1                ; 08bb 41
                 LR  (IS),A             ; 08bc 5c
+
                 LR  S, A               ; 08bc 5c
 
A08bd:          LISU 4                  ; 08bd 64
 
A08bd:          LISU 4                  ; 08bd 64
 
                 LISL 2                  ; 08be 6a
 
                 LISL 2                  ; 08be 6a
                 LR  A,(IS)+            ; 08bf 4d
+
                 LR  A,I                ; 08bf 4d
 
                 LR  $a,A                ; 08c0 5a
 
                 LR  $a,A                ; 08c0 5a
                 LR  A,(IS)-            ; 08c1 4e
+
                 LR  A,D                ; 08c1 4e
 
                 LR  $b,A                ; 08c2 5b
 
                 LR  $b,A                ; 08c2 5b
 
                 LR  DC,H                ; 08c3 10
 
                 LR  DC,H                ; 08c3 10
                 LIS  $0                  ; 08c4 70
+
                 CLR                      ; 08c4 70
 
                 AM                      ; 08c5 88
 
                 AM                      ; 08c5 88
 
                 BT  4,A093a            ; 08c6 84 73
 
                 BT  4,A093a            ; 08c6 84 73
                 LR  (IS)+,A             ; 08c8 5d
+
                 LR  I, A               ; 08c8 5d
 
                 LM                      ; 08c9 16
 
                 LM                      ; 08c9 16
                 LR  (IS)-,A             ; 08ca 5e
+
                 LR  D, A               ; 08ca 5e
 
                 LISL 1                  ; 08cb 69
 
                 LISL 1                  ; 08cb 69
                 LR  A,(IS)-            ; 08cc 4e
+
                 LR  A,D                ; 08cc 4e
 
                 LR  $b,A                ; 08cd 5b
 
                 LR  $b,A                ; 08cd 5b
 
                 LR  A,(IS)              ; 08ce 4c
 
                 LR  A,(IS)              ; 08ce 4c
Line 187: Line 191:
 
                 LR  DC,H                ; 08d0 10
 
                 LR  DC,H                ; 08d0 10
 
                 LISL 2                  ; 08d1 6a
 
                 LISL 2                  ; 08d1 6a
                 LR  A,(IS)+            ; 08d2 4d
+
                 LR  A,I                ; 08d2 4d
 
                 ST                      ; 08d3 17
 
                 ST                      ; 08d3 17
 
                 LR  A,(IS)              ; 08d4 4c
 
                 LR  A,(IS)              ; 08d4 4c
Line 194: Line 198:
 
                 LISL 7                  ; 08d7 6f
 
                 LISL 7                  ; 08d7 6f
 
                 LIS  $f                  ; 08d8 7f
 
                 LIS  $f                  ; 08d8 7f
                 NS  (IS)-              ; 08d9 fe
+
                 NS  D                  ; 08d9 fe
 
                 COM                      ; 08da 18
 
                 COM                      ; 08da 18
 
                 INC                      ; 08db 1f
 
                 INC                      ; 08db 1f
Line 201: Line 205:
 
                 PI  A0cff              ; 08df 28 0c ff
 
                 PI  A0cff              ; 08df 28 0c ff
 
                 PI  A0e0b              ; 08e2 28 0e 0b
 
                 PI  A0e0b              ; 08e2 28 0e 0b
                 LIS  $0                  ; 08e5 70
+
                 CLR                      ; 08e5 70
 
                 AS  $0                  ; 08e6 c0
 
                 AS  $0                  ; 08e6 c0
 
                 BT  4,A08ee            ; 08e7 84 06
 
                 BT  4,A08ee            ; 08e7 84 06
Line 209: Line 213:
 
                 LISL 7                  ; 08ef 6f
 
                 LISL 7                  ; 08ef 6f
 
                 LIS  $f                  ; 08f0 7f
 
                 LIS  $f                  ; 08f0 7f
                 NS  (IS)-              ; 08f1 fe
+
                 NS  D                  ; 08f1 fe
                 XS  (IS)+              ; 08f2 ed
+
                 XS  I                  ; 08f2 ed
 
                 BF  $4,A096a            ; 08f3 94 76
 
                 BF  $4,A096a            ; 08f3 94 76
 
                 LI  $80                ; 08f5 20 80
 
                 LI  $80                ; 08f5 20 80
 
                 XS  (IS)                ; 08f7 ec
 
                 XS  (IS)                ; 08f7 ec
                 LR  (IS),A             ; 08f8 5c
+
                 LR  S, A               ; 08f8 5c
 
                 PI  A0e0b              ; 08f9 28 0e 0b
 
                 PI  A0e0b              ; 08f9 28 0e 0b
 
                 LISU 6                  ; 08fc 66
 
                 LISU 6                  ; 08fc 66
Line 220: Line 224:
 
                 LI  $80                ; 08fe 20 80
 
                 LI  $80                ; 08fe 20 80
 
                 XS  (IS)                ; 0900 ec
 
                 XS  (IS)                ; 0900 ec
                 LR  (IS),A             ; 0901 5c
+
                 LR  S, A               ; 0901 5c
                 LIS  $0                  ; 0902 70
+
                 CLR                      ; 0902 70
 
                 AS  $0                  ; 0903 c0
 
                 AS  $0                  ; 0903 c0
 
                 BT  4,A096a            ; 0904 84 65
 
                 BT  4,A096a            ; 0904 84 65
Line 228: Line 232:
 
                 LISL 3                  ; 0909 6b
 
                 LISL 3                  ; 0909 6b
 
                 LIS  $5                  ; 090a 75
 
                 LIS  $5                  ; 090a 75
                 AS  (IS)-              ; 090b ce
+
                 AS  D                  ; 090b ce
 
                 LR  $b,A                ; 090c 5b
 
                 LR  $b,A                ; 090c 5b
 
                 LR  A,(IS)              ; 090d 4c
 
                 LR  A,(IS)              ; 090d 4c
Line 234: Line 238:
 
                 LR  $a,A                ; 090f 5a
 
                 LR  $a,A                ; 090f 5a
 
                 LR  DC,H                ; 0910 10
 
                 LR  DC,H                ; 0910 10
                 LIS  $0                  ; 0911 70
+
                 CLR                      ; 0911 70
 
                 CM                      ; 0912 8d
 
                 CM                      ; 0912 8d
 
                 BT  4,A08bd            ; 0913 84 a9
 
                 BT  4,A08bd            ; 0913 84 a9
Line 242: Line 246:
 
                 LI  $80                ; 091a 20 80
 
                 LI  $80                ; 091a 20 80
 
                 XS  (IS)                ; 091c ec
 
                 XS  (IS)                ; 091c ec
                 LR  (IS),A             ; 091d 5c
+
                 LR  S, A               ; 091d 5c
 
                 LISL 4                  ; 091e 6c
 
                 LISL 4                  ; 091e 6c
 
                 BF  $1,A0924            ; 091f 91 04
 
                 BF  $1,A0924            ; 091f 91 04
 
                 LIS  $1                  ; 0921 71
 
                 LIS  $1                  ; 0921 71
 
                 AS  (IS)                ; 0922 cc
 
                 AS  (IS)                ; 0922 cc
                 LR  (IS),A             ; 0923 5c
+
                 LR  S, A               ; 0923 5c
 
A0924:          LISU 4                  ; 0924 64
 
A0924:          LISU 4                  ; 0924 64
                 LR  A,(IS)+            ; 0925 4d
+
                 LR  A,I                ; 0925 4d
 
                 LR  $a,A                ; 0926 5a
 
                 LR  $a,A                ; 0926 5a
 
                 LR  A,(IS)              ; 0927 4c
 
                 LR  A,(IS)              ; 0927 4c
Line 263: Line 267:
 
                 LR  H,DC                ; 0932 11
 
                 LR  H,DC                ; 0932 11
 
                 LR  A,$b                ; 0933 4b
 
                 LR  A,$b                ; 0933 4b
                 LR  (IS)-,A             ; 0934 5e
+
                 LR  D, A               ; 0934 5e
 
                 LR  A,$a                ; 0935 4a
 
                 LR  A,$a                ; 0935 4a
                 LR  (IS),A             ; 0936 5c
+
                 LR  S, A               ; 0936 5c
 
                 JMP  A089b              ; 0937 29 08 9b
 
                 JMP  A089b              ; 0937 29 08 9b
 
A093a:          LISU 6                  ; 093a 66
 
A093a:          LISU 6                  ; 093a 66
Line 278: Line 282:
 
                 BT  4,A0977            ; 0947 84 2f
 
                 BT  4,A0977            ; 0947 84 2f
 
                 LISL 4                  ; 0949 6c
 
                 LISL 4                  ; 0949 6c
                 LR  A,(IS)-            ; 094a 4e
+
                 LR  A,D                ; 094a 4e
                 LR  (IS),A             ; 094b 5c
+
                 LR  S, A               ; 094b 5c
 
                 LI  $ff                ; 094c 20 ff
 
                 LI  $ff                ; 094c 20 ff
 
                 LR  $0,A                ; 094e 50
 
                 LR  $0,A                ; 094e 50
Line 293: Line 297:
 
                 LISL 5                  ; 095e 6d
 
                 LISL 5                  ; 095e 6d
 
                 LIS  $2                  ; 095f 72
 
                 LIS  $2                  ; 095f 72
                 AS  (IS)-              ; 0960 ce
+
                 AS  D                  ; 0960 ce
 
                 LR  $b,A                ; 0961 5b
 
                 LR  $b,A                ; 0961 5b
 
                 LR  A,(IS)              ; 0962 4c
 
                 LR  A,(IS)              ; 0962 4c
Line 313: Line 317:
 
                 LR  A,(IS)              ; 0979 4c
 
                 LR  A,(IS)              ; 0979 4c
 
                 OI  $20                ; 097a 22 20
 
                 OI  $20                ; 097a 22 20
                 LR  (IS),A             ; 097c 5c
+
                 LR  S, A               ; 097c 5c
 
A097d:          LISU 4                  ; 097d 64
 
A097d:          LISU 4                  ; 097d 64
 
                 LISL 4                  ; 097e 6c
 
                 LISL 4                  ; 097e 6c
                 LR  A,(IS)+            ; 097f 4d
+
                 LR  A,I                ; 097f 4d
 
                 LR  $a,A                ; 0980 5a
 
                 LR  $a,A                ; 0980 5a
 
                 LR  A,(IS)              ; 0981 4c
 
                 LR  A,(IS)              ; 0981 4c
Line 345: Line 349:
 
                 LR  A,(IS)              ; 09a2 4c
 
                 LR  A,(IS)              ; 09a2 4c
 
                 LISL 6                  ; 09a3 6e
 
                 LISL 6                  ; 09a3 6e
                 LR  (IS),A             ; 09a4 5c
+
                 LR  S, A               ; 09a4 5c
 
                 LISL 3                  ; 09a5 6b
 
                 LISL 3                  ; 09a5 6b
 
                 LR  A,(IS)              ; 09a6 4c
 
                 LR  A,(IS)              ; 09a6 4c
 
                 LISL 7                  ; 09a7 6f
 
                 LISL 7                  ; 09a7 6f
                 LR  (IS),A             ; 09a8 5c
+
                 LR  S, A               ; 09a8 5c
 
                 DCI  $28a3              ; 09a9 2a 28 a3
 
                 DCI  $28a3              ; 09a9 2a 28 a3
 
                 LM                      ; 09ac 16
 
                 LM                      ; 09ac 16
Line 364: Line 368:
 
                 NS  (IS)                ; 09bc fc
 
                 NS  (IS)                ; 09bc fc
 
                 XS  $0                  ; 09bd e0
 
                 XS  $0                  ; 09bd e0
                 LR  (IS),A             ; 09be 5c
+
                 LR  S, A               ; 09be 5c
 
                 LR  A,(IS)              ; 09bf 4c
 
                 LR  A,(IS)              ; 09bf 4c
 
                 SL  1                  ; 09c0 13
 
                 SL  1                  ; 09c0 13
Line 378: Line 382:
 
                 LISU 6                  ; 09d5 66
 
                 LISU 6                  ; 09d5 66
 
                 LISL 7                  ; 09d6 6f
 
                 LISL 7                  ; 09d6 6f
                 LIS  $0                  ; 09d7 70
+
                 CLR                      ; 09d7 70
 
                 AS  (IS)                ; 09d8 cc
 
                 AS  (IS)                ; 09d8 cc
 
                 LISU 5                  ; 09d9 65
 
                 LISU 5                  ; 09d9 65
Line 387: Line 391:
 
                 LISU 2                  ; 09df 62
 
                 LISU 2                  ; 09df 62
 
                 LISL 5                  ; 09e0 6d
 
                 LISL 5                  ; 09e0 6d
                 LR  (IS)-,A             ; 09e1 5e
+
                 LR  D, A               ; 09e1 5e
 
                 LISU 6                  ; 09e2 66
 
                 LISU 6                  ; 09e2 66
 
                 LISL 0                  ; 09e3 68
 
                 LISL 0                  ; 09e3 68
Line 393: Line 397:
 
                 ADC                      ; 09e7 8e
 
                 ADC                      ; 09e7 8e
 
                 LM                      ; 09e8 16
 
                 LM                      ; 09e8 16
                 LR  (IS)+,A             ; 09e9 5d
+
                 LR  I, A               ; 09e9 5d
 
                 LISU 3                  ; 09ea 63
 
                 LISU 3                  ; 09ea 63
 
                 LIS  $6                  ; 09eb 76
 
                 LIS  $6                  ; 09eb 76
                 LR  (IS),A             ; 09ec 5c
+
                 LR  S, A               ; 09ec 5c
 
                 PI  A0e24              ; 09ed 28 0e 24
 
                 PI  A0e24              ; 09ed 28 0e 24
 
                 LISU 6                  ; 09f0 66
 
                 LISU 6                  ; 09f0 66
Line 402: Line 406:
 
                 LI  $ef                ; 09f2 20 ef
 
                 LI  $ef                ; 09f2 20 ef
 
                 NS  (IS)                ; 09f4 fc
 
                 NS  (IS)                ; 09f4 fc
                 LR  (IS),A             ; 09f5 5c
+
                 LR  S, A               ; 09f5 5c
                 LIS  $0                  ; 09f6 70
+
                 CLR                      ; 09f6 70
 
                 AS  $0                  ; 09f7 c0
 
                 AS  $0                  ; 09f7 c0
 
                 BT  4,A09fe            ; 09f8 84 05
 
                 BT  4,A09fe            ; 09f8 84 05
 
                 LI  $10                ; 09fa 20 10
 
                 LI  $10                ; 09fa 20 10
 
                 XS  (IS)                ; 09fc ec
 
                 XS  (IS)                ; 09fc ec
                 LR  (IS),A             ; 09fd 5c
+
                 LR  S, A               ; 09fd 5c
 
A09fe:          LISU 4                  ; 09fe 64
 
A09fe:          LISU 4                  ; 09fe 64
 
                 LISL 0                  ; 09ff 68
 
                 LISL 0                  ; 09ff 68
                 LR  A,(IS)+            ; 0a00 4d
+
                 LR  A,I                ; 0a00 4d
 
                 LR  $a,A                ; 0a01 5a
 
                 LR  $a,A                ; 0a01 5a
                 LR  A,(IS)+            ; 0a02 4d
+
                 LR  A,I                ; 0a02 4d
 
                 LR  $b,A                ; 0a03 5b
 
                 LR  $b,A                ; 0a03 5b
 
                 LR  DC,H                ; 0a04 10
 
                 LR  DC,H                ; 0a04 10
Line 419: Line 423:
 
                 ADC                      ; 0a06 8e
 
                 ADC                      ; 0a06 8e
 
                 LISU 5                  ; 0a07 65
 
                 LISU 5                  ; 0a07 65
                 LR  A,(IS)+            ; 0a08 4d
+
                 LR  A,I                ; 0a08 4d
 
                 ST                      ; 0a09 17
 
                 ST                      ; 0a09 17
 
                 LR  A,(IS)              ; 0a0a 4c
 
                 LR  A,(IS)              ; 0a0a 4c
Line 426: Line 430:
 
                 LISL 0                  ; 0a0d 68
 
                 LISL 0                  ; 0a0d 68
 
                 LR  A,$a                ; 0a0e 4a
 
                 LR  A,$a                ; 0a0e 4a
                 LR  (IS),A             ; 0a0f 5c
+
                 LR  S, A               ; 0a0f 5c
 
                 LISU 4                  ; 0a10 64
 
                 LISU 4                  ; 0a10 64
                 LR  (IS)+,A             ; 0a11 5d
+
                 LR  I, A               ; 0a11 5d
 
                 LR  A,$b                ; 0a12 4b
 
                 LR  A,$b                ; 0a12 4b
                 LR  (IS),A             ; 0a13 5c
+
                 LR  S, A               ; 0a13 5c
 
                 LISU 5                  ; 0a14 65
 
                 LISU 5                  ; 0a14 65
                 LR  (IS),A             ; 0a15 5c
+
                 LR  S, A               ; 0a15 5c
 
                 LI  $15                ; 0a16 20 15
 
                 LI  $15                ; 0a16 20 15
 
                 LISU 2                  ; 0a18 62
 
                 LISU 2                  ; 0a18 62
 
                 LISL 1                  ; 0a19 69
 
                 LISL 1                  ; 0a19 69
                 LR  (IS),A             ; 0a1a 5c
+
                 LR  S, A               ; 0a1a 5c
 
A0a1b:          DCI  $2808              ; 0a1b 2a 28 08
 
A0a1b:          DCI  $2808              ; 0a1b 2a 28 08
 
                 LR  A,(IS)              ; 0a1e 4c
 
                 LR  A,(IS)              ; 0a1e 4c
 
                 ADC                      ; 0a1f 8e
 
                 ADC                      ; 0a1f 8e
                 LIS  $0                  ; 0a20 70
+
                 CLR                      ; 0a20 70
 
                 AM                      ; 0a21 88
 
                 AM                      ; 0a21 88
 
                 BF  $4,A0a27            ; 0a22 94 04
 
                 BF  $4,A0a27            ; 0a22 94 04
Line 448: Line 452:
 
                 LISU 6                  ; 0a2b 66
 
                 LISU 6                  ; 0a2b 66
 
                 LISL 0                  ; 0a2c 68
 
                 LISL 0                  ; 0a2c 68
                 LR  (IS)-,A             ; 0a2d 5e
+
                 LR  D, A               ; 0a2d 5e
                 XS  (IS)+              ; 0a2e ed
+
                 XS  I                  ; 0a2e ed
 
                 BF  $1,A0a24            ; 0a2f 91 f4
 
                 BF  $1,A0a24            ; 0a2f 91 f4
 
                 LI  $87                ; 0a31 20 87
 
                 LI  $87                ; 0a31 20 87
                 NS  (IS)+              ; 0a33 fd
+
                 NS  I                  ; 0a33 fd
 
                 CI  $81                ; 0a34 25 81
 
                 CI  $81                ; 0a34 25 81
 
                 BF  $4,A0a39            ; 0a36 94 02
 
                 BF  $4,A0a39            ; 0a36 94 02
                 LIS  $0                  ; 0a38 70
+
                 CLR                      ; 0a38 70
 
A0a39:          NI  $07                ; 0a39 21 07
 
A0a39:          NI  $07                ; 0a39 21 07
 
                 LISU 3                  ; 0a3b 63
 
                 LISU 3                  ; 0a3b 63
                 LR  (IS),A             ; 0a3c 5c
+
                 LR  S, A               ; 0a3c 5c
 
                 DCI  A0813              ; 0a3d 2a 08 13
 
                 DCI  A0813              ; 0a3d 2a 08 13
 
                 ADC                      ; 0a40 8e
 
                 ADC                      ; 0a40 8e
Line 477: Line 481:
 
                 LR  A,(IS)              ; 0a53 4c
 
                 LR  A,(IS)              ; 0a53 4c
 
                 LISL 3                  ; 0a54 6b
 
                 LISL 3                  ; 0a54 6b
                 LR  (IS),A             ; 0a55 5c
+
                 LR  S, A               ; 0a55 5c
 
A0a56:          LISU 2                  ; 0a56 62
 
A0a56:          LISU 2                  ; 0a56 62
 
                 LISL 3                  ; 0a57 6b
 
                 LISL 3                  ; 0a57 6b
 
                 LR  A,(IS)              ; 0a58 4c
 
                 LR  A,(IS)              ; 0a58 4c
 
                 AS  $2                  ; 0a59 c2
 
                 AS  $2                  ; 0a59 c2
                 LR  (IS),A             ; 0a5a 5c
+
                 LR  S, A               ; 0a5a 5c
 
                 DCI  $2808              ; 0a5b 2a 28 08
 
                 DCI  $2808              ; 0a5b 2a 28 08
 
                 ADC                      ; 0a5e 8e
 
                 ADC                      ; 0a5e 8e
Line 497: Line 501:
 
A0a6d:          LISL 1                  ; 0a6d 69
 
A0a6d:          LISL 1                  ; 0a6d 69
 
                 LR  A,$0                ; 0a6e 40
 
                 LR  A,$0                ; 0a6e 40
                 LR  (IS),A             ; 0a6f 5c
+
                 LR  S, A               ; 0a6f 5c
 
                 LIS  $7                  ; 0a70 77
 
                 LIS  $7                  ; 0a70 77
 
                 NS  (IS)                ; 0a71 fc
 
                 NS  (IS)                ; 0a71 fc
Line 503: Line 507:
 
                 LISU 3                  ; 0a73 63
 
                 LISU 3                  ; 0a73 63
 
                 LISL 3                  ; 0a74 6b
 
                 LISL 3                  ; 0a74 6b
                 LR  (IS),A             ; 0a75 5c
+
                 LR  S, A               ; 0a75 5c
 
                 LISL 1                  ; 0a76 69
 
                 LISL 1                  ; 0a76 69
 
                 LR  A,(IS)              ; 0a77 4c
 
                 LR  A,(IS)              ; 0a77 4c
Line 510: Line 514:
 
                 JMP  A0b32              ; 0a7c 29 0b 32
 
                 JMP  A0b32              ; 0a7c 29 0b 32
 
A0a7f:          PI  A0fd8              ; 0a7f 28 0f d8
 
A0a7f:          PI  A0fd8              ; 0a7f 28 0f d8
                 LIS  $0                  ; 0a82 70
+
                 CLR                      ; 0a82 70
 
                 AS  $0                  ; 0a83 c0
 
                 AS  $0                  ; 0a83 c0
 
                 BF  $4,A0a90            ; 0a84 94 0b
 
                 BF  $4,A0a90            ; 0a84 94 0b
Line 529: Line 533:
 
                 LISL 1                  ; 0a97 69
 
                 LISL 1                  ; 0a97 69
 
                 LIS  $6                  ; 0a98 76
 
                 LIS  $6                  ; 0a98 76
                 XS  (IS)-              ; 0a99 ee
+
                 XS  D                  ; 0a99 ee
 
                 BT  4,A0a9f            ; 0a9a 84 04
 
                 BT  4,A0a9f            ; 0a9a 84 04
 
                 JMP  A0c03              ; 0a9c 29 0c 03
 
                 JMP  A0c03              ; 0a9c 29 0c 03
 
A0a9f:          LISU 6                  ; 0a9f 66
 
A0a9f:          LISU 6                  ; 0a9f 66
 
                 LIS  $8                  ; 0aa0 78
 
                 LIS  $8                  ; 0aa0 78
                 NS  (IS)-              ; 0aa1 fe
+
                 NS  D                  ; 0aa1 fe
 
                 BT  4,A0aa7            ; 0aa2 84 04
 
                 BT  4,A0aa7            ; 0aa2 84 04
 
A0aa4:          JMP  A0c03              ; 0aa4 29 0c 03
 
A0aa4:          JMP  A0c03              ; 0aa4 29 0c 03
Line 550: Line 554:
 
                 LR  $2,A                ; 0ab5 52
 
                 LR  $2,A                ; 0ab5 52
 
                 LISL 5                  ; 0ab6 6d
 
                 LISL 5                  ; 0ab6 6d
                 LR  (IS),A             ; 0ab7 5c
+
                 LR  S, A               ; 0ab7 5c
 
                 DCI  $2808              ; 0ab8 2a 28 08
 
                 DCI  $2808              ; 0ab8 2a 28 08
 
                 ADC                      ; 0abb 8e
 
                 ADC                      ; 0abb 8e
Line 565: Line 569:
 
                 LR  A,(IS)              ; 0acb 4c
 
                 LR  A,(IS)              ; 0acb 4c
 
                 ADC                      ; 0acc 8e
 
                 ADC                      ; 0acc 8e
                 LIS  $0                  ; 0acd 70
+
                 CLR                      ; 0acd 70
 
                 AM                      ; 0ace 88
 
                 AM                      ; 0ace 88
 
                 BF  $4,A0b23            ; 0acf 94 53
 
                 BF  $4,A0b23            ; 0acf 94 53
Line 574: Line 578:
 
                 BT  4,A0ae4            ; 0ad8 84 0b
 
                 BT  4,A0ae4            ; 0ad8 84 0b
 
                 PI  A0e24              ; 0ada 28 0e 24
 
                 PI  A0e24              ; 0ada 28 0e 24
                 LIS  $0                  ; 0add 70
+
                 CLR                      ; 0add 70
 
                 AS  $0                  ; 0ade c0
 
                 AS  $0                  ; 0ade c0
 
                 BF  $4,A0b23            ; 0adf 94 43
 
                 BF  $4,A0b23            ; 0adf 94 43
Line 583: Line 587:
 
                 LISU 2                  ; 0ae5 62
 
                 LISU 2                  ; 0ae5 62
 
                 LISL 5                  ; 0ae6 6d
 
                 LISL 5                  ; 0ae6 6d
                 LR  (IS),A             ; 0ae7 5c
+
                 LR  S, A               ; 0ae7 5c
 
                 LISL 1                  ; 0ae8 69
 
                 LISL 1                  ; 0ae8 69
 
                 XS  (IS)                ; 0ae9 ec
 
                 XS  (IS)                ; 0ae9 ec
Line 594: Line 598:
 
                 AS  $0                  ; 0af1 c0
 
                 AS  $0                  ; 0af1 c0
 
                 LISL 3                  ; 0af2 6b
 
                 LISL 3                  ; 0af2 6b
                 LR  (IS),A             ; 0af3 5c
+
                 LR  S, A               ; 0af3 5c
 
                 LISU 6                  ; 0af4 66
 
                 LISU 6                  ; 0af4 66
 
                 LISL 1                  ; 0af5 69
 
                 LISL 1                  ; 0af5 69
 
                 LI  $40                ; 0af6 20 40
 
                 LI  $40                ; 0af6 20 40
                 LR  (IS),A             ; 0af8 5c
+
                 LR  S, A               ; 0af8 5c
 
                 PI  A0fd8              ; 0af9 28 0f d8
 
                 PI  A0fd8              ; 0af9 28 0f d8
 
                 LR  A,$1                ; 0afc 41
 
                 LR  A,$1                ; 0afc 41
Line 607: Line 611:
 
                 AS  (IS)                ; 0b01 cc
 
                 AS  (IS)                ; 0b01 cc
 
                 LISL 3                  ; 0b02 6b
 
                 LISL 3                  ; 0b02 6b
                 LR  (IS),A             ; 0b03 5c
+
                 LR  S, A               ; 0b03 5c
 
                 LISL 1                  ; 0b04 69
 
                 LISL 1                  ; 0b04 69
 
                 LR  A,$2                ; 0b05 42
 
                 LR  A,$2                ; 0b05 42
                 LR  (IS),A             ; 0b06 5c
+
                 LR  S, A               ; 0b06 5c
 
                 LISU 6                  ; 0b07 66
 
                 LISU 6                  ; 0b07 66
                 LIS  $0                  ; 0b08 70
+
                 CLR                      ; 0b08 70
                 LR  (IS),A             ; 0b09 5c
+
                 LR  S, A               ; 0b09 5c
 
                 PI  A0fd8              ; 0b0a 28 0f d8
 
                 PI  A0fd8              ; 0b0a 28 0f d8
 
                 LISU 5                  ; 0b0d 65
 
                 LISU 5                  ; 0b0d 65
Line 619: Line 623:
 
                 LI  $fa                ; 0b0f 20 fa
 
                 LI  $fa                ; 0b0f 20 fa
 
                 AS  (IS)                ; 0b11 cc
 
                 AS  (IS)                ; 0b11 cc
                 LR  (IS)-,A             ; 0b12 5e
+
                 LR  D, A               ; 0b12 5e
 
                 BT  2,A0b16            ; 0b13 82 02
 
                 BT  2,A0b16            ; 0b13 82 02
 
                 DS  (IS)                ; 0b15 3c
 
                 DS  (IS)                ; 0b15 3c
A0b16:          LR  A,(IS)+            ; 0b16 4d
+
A0b16:          LR  A,I                ; 0b16 4d
 
                 LR  $a,A                ; 0b17 5a
 
                 LR  $a,A                ; 0b17 5a
 
                 LR  A,(IS)              ; 0b18 4c
 
                 LR  A,(IS)              ; 0b18 4c
 
                 LR  $b,A                ; 0b19 5b
 
                 LR  $b,A                ; 0b19 5b
 
                 LR  DC,H                ; 0b1a 10
 
                 LR  DC,H                ; 0b1a 10
                 LIS  $0                  ; 0b1b 70
+
                 CLR                      ; 0b1b 70
 
                 ST                      ; 0b1c 17
 
                 ST                      ; 0b1c 17
 
                 ST                      ; 0b1d 17
 
                 ST                      ; 0b1d 17
Line 634: Line 638:
 
                 LR  A,(IS)              ; 0b20 4c
 
                 LR  A,(IS)              ; 0b20 4c
 
                 LISL 1                  ; 0b21 69
 
                 LISL 1                  ; 0b21 69
                 LR  (IS),A             ; 0b22 5c
+
                 LR  S, A               ; 0b22 5c
 
A0b23:          LR  A,$1                ; 0b23 41
 
A0b23:          LR  A,$1                ; 0b23 41
 
                 INC                      ; 0b24 1f
 
                 INC                      ; 0b24 1f
Line 649: Line 653:
 
                 BT  4,A0b66            ; 0b37 84 2e
 
                 BT  4,A0b66            ; 0b37 84 2e
 
                 BF  $0,A0b70            ; 0b39 90 36
 
                 BF  $0,A0b70            ; 0b39 90 36
A0b3b:          LIS  $0                  ; 0b3b 70
+
A0b3b:          CLR                      ; 0b3b 70
 
                 AS  $0                  ; 0b3c c0
 
                 AS  $0                  ; 0b3c c0
 
                 BT  4,A0b42            ; 0b3d 84 04
 
                 BT  4,A0b42            ; 0b3d 84 04
Line 664: Line 668:
 
                 LR  A,(IS)              ; 0b4f 4c
 
                 LR  A,(IS)              ; 0b4f 4c
 
                 OI  $20                ; 0b50 22 20
 
                 OI  $20                ; 0b50 22 20
                 LR  (IS),A             ; 0b52 5c
+
                 LR  S, A               ; 0b52 5c
 
A0b53:          PI  A0fd8              ; 0b53 28 0f d8
 
A0b53:          PI  A0fd8              ; 0b53 28 0f d8
 
                 LIS  $1                  ; 0b56 71
 
                 LIS  $1                  ; 0b56 71
Line 677: Line 681:
 
A0b60:          JMP  A0a90              ; 0b60 29 0a 90
 
A0b60:          JMP  A0a90              ; 0b60 29 0a 90
 
A0b63:          JMP  A0a56              ; 0b63 29 0a 56
 
A0b63:          JMP  A0a56              ; 0b63 29 0a 56
A0b66:          LIS  $0                  ; 0b66 70
+
A0b66:          CLR                      ; 0b66 70
 
                 AS  $0                  ; 0b67 c0
 
                 AS  $0                  ; 0b67 c0
 
                 BF  $4,A0b60            ; 0b68 94 f7
 
                 BF  $4,A0b60            ; 0b68 94 f7
 
A0b6a:          PI  A0fd8              ; 0b6a 28 0f d8
 
A0b6a:          PI  A0fd8              ; 0b6a 28 0f d8
 
                 JMP  A0a90              ; 0b6d 29 0a 90
 
                 JMP  A0a90              ; 0b6d 29 0a 90
A0b70:          LIS  $0                  ; 0b70 70
+
A0b70:          CLR                      ; 0b70 70
 
                 AS  $0                  ; 0b71 c0
 
                 AS  $0                  ; 0b71 c0
 
                 BT  4,A0b87            ; 0b72 84 14
 
                 BT  4,A0b87            ; 0b72 84 14
Line 696: Line 700:
 
                 LR  A,(IS)              ; 0b81 4c
 
                 LR  A,(IS)              ; 0b81 4c
 
                 OI  $20                ; 0b82 22 20
 
                 OI  $20                ; 0b82 22 20
                 LR  (IS),A             ; 0b84 5c
+
                 LR  S, A               ; 0b84 5c
 
                 BF  $0,A0b6a            ; 0b85 90 e4
 
                 BF  $0,A0b6a            ; 0b85 90 e4
 
A0b87:          LISU 6                  ; 0b87 66
 
A0b87:          LISU 6                  ; 0b87 66
 
                 LISL 0                  ; 0b88 68
 
                 LISL 0                  ; 0b88 68
                 LIS  $0                  ; 0b89 70
+
                 CLR                      ; 0b89 70
                 AS  (IS)+              ; 0b8a cd
+
                 AS  I                  ; 0b8a cd
 
                 LISU 2                  ; 0b8b 62
 
                 LISU 2                  ; 0b8b 62
 
                 LR  A,(IS)              ; 0b8c 4c
 
                 LR  A,(IS)              ; 0b8c 4c
Line 713: Line 717:
 
                 LISU 4                  ; 0b9c 64
 
                 LISU 4                  ; 0b9c 64
 
                 LISL 2                  ; 0b9d 6a
 
                 LISL 2                  ; 0b9d 6a
                 LR  A,(IS)+            ; 0b9e 4d
+
                 LR  A,I                ; 0b9e 4d
 
                 LR  $a,A                ; 0b9f 5a
 
                 LR  $a,A                ; 0b9f 5a
 
                 LR  A,(IS)              ; 0ba0 4c
 
                 LR  A,(IS)              ; 0ba0 4c
Line 730: Line 734:
 
                 LISU 2                  ; 0bb1 62
 
                 LISU 2                  ; 0bb1 62
 
                 LISL 7                  ; 0bb2 6f
 
                 LISL 7                  ; 0bb2 6f
                 LR  (IS),A             ; 0bb3 5c
+
                 LR  S, A               ; 0bb3 5c
 
                 ADC                      ; 0bb4 8e
 
                 ADC                      ; 0bb4 8e
 
                 LM                      ; 0bb5 16
 
                 LM                      ; 0bb5 16
 
                 LISU 6                  ; 0bb6 66
 
                 LISU 6                  ; 0bb6 66
 
                 LISL 2                  ; 0bb7 6a
 
                 LISL 2                  ; 0bb7 6a
                 LR  (IS),A             ; 0bb8 5c
+
                 LR  S, A               ; 0bb8 5c
 
                 LIS  $7                  ; 0bb9 77
 
                 LIS  $7                  ; 0bb9 77
 
                 NS  (IS)                ; 0bba fc
 
                 NS  (IS)                ; 0bba fc
Line 756: Line 760:
 
                 LR  A,(IS)              ; 0bd0 4c
 
                 LR  A,(IS)              ; 0bd0 4c
 
                 OI  $40                ; 0bd1 22 40
 
                 OI  $40                ; 0bd1 22 40
                 LR  (IS),A             ; 0bd3 5c
+
                 LR  S, A               ; 0bd3 5c
 
                 PI  A0fd8              ; 0bd4 28 0f d8
 
                 PI  A0fd8              ; 0bd4 28 0f d8
 
                 LISU 2                  ; 0bd7 62
 
                 LISU 2                  ; 0bd7 62
Line 762: Line 766:
 
                 LR  A,(IS)              ; 0bd9 4c
 
                 LR  A,(IS)              ; 0bd9 4c
 
                 LISL 5                  ; 0bda 6d
 
                 LISL 5                  ; 0bda 6d
                 LR  (IS),A             ; 0bdb 5c
+
                 LR  S, A               ; 0bdb 5c
 
                 LISL 7                  ; 0bdc 6f
 
                 LISL 7                  ; 0bdc 6f
 
                 LR  A,(IS)              ; 0bdd 4c
 
                 LR  A,(IS)              ; 0bdd 4c
 
                 LISL 1                  ; 0bde 69
 
                 LISL 1                  ; 0bde 69
                 LR  (IS),A             ; 0bdf 5c
+
                 LR  S, A               ; 0bdf 5c
 
                 LISL 3                  ; 0be0 6b
 
                 LISL 3                  ; 0be0 6b
                 LR  (IS),A             ; 0be1 5c
+
                 LR  S, A               ; 0be1 5c
 
                 LISU 6                  ; 0be2 66
 
                 LISU 6                  ; 0be2 66
 
                 LISL 2                  ; 0be3 6a
 
                 LISL 2                  ; 0be3 6a
                 LR  A,(IS)-            ; 0be4 4e
+
                 LR  A,D                ; 0be4 4e
                 LR  (IS),A             ; 0be5 5c
+
                 LR  S, A               ; 0be5 5c
 
                 PI  A0fd8              ; 0be6 28 0f d8
 
                 PI  A0fd8              ; 0be6 28 0f d8
 
                 LISU 2                  ; 0be9 62
 
                 LISU 2                  ; 0be9 62
Line 778: Line 782:
 
                 LR  A,(IS)              ; 0beb 4c
 
                 LR  A,(IS)              ; 0beb 4c
 
                 LISL 1                  ; 0bec 69
 
                 LISL 1                  ; 0bec 69
                 LR  (IS),A             ; 0bed 5c
+
                 LR  S, A               ; 0bed 5c
 
                 LISU 5                  ; 0bee 65
 
                 LISU 5                  ; 0bee 65
 
                 LISL 0                  ; 0bef 68
 
                 LISL 0                  ; 0bef 68
                 LR  A,(IS)+            ; 0bf0 4d
+
                 LR  A,I                ; 0bf0 4d
 
                 LR  $a,A                ; 0bf1 5a
 
                 LR  $a,A                ; 0bf1 5a
 
                 LR  A,(IS)              ; 0bf2 4c
 
                 LR  A,(IS)              ; 0bf2 4c
Line 790: Line 794:
 
                 LR  H,DC                ; 0bf8 11
 
                 LR  H,DC                ; 0bf8 11
 
                 LR  A,$b                ; 0bf9 4b
 
                 LR  A,$b                ; 0bf9 4b
                 LR  (IS)-,A             ; 0bfa 5e
+
                 LR  D, A               ; 0bfa 5e
 
                 LR  A,$a                ; 0bfb 4a
 
                 LR  A,$a                ; 0bfb 4a
                 LR  (IS),A             ; 0bfc 5c
+
                 LR  S, A               ; 0bfc 5c
                 LIS  $0                  ; 0bfd 70
+
                 CLR                      ; 0bfd 70
 
                 ST                      ; 0bfe 17
 
                 ST                      ; 0bfe 17
 
                 ST                      ; 0bff 17
 
                 ST                      ; 0bff 17
Line 801: Line 805:
 
                 LIS  $1                  ; 0c05 71
 
                 LIS  $1                  ; 0c05 71
 
                 AS  (IS)                ; 0c06 cc
 
                 AS  (IS)                ; 0c06 cc
                 LR  (IS),A             ; 0c07 5c
+
                 LR  S, A               ; 0c07 5c
 
                 CI  $63                ; 0c08 25 63
 
                 CI  $63                ; 0c08 25 63
 
                 BT  4,A0c0f            ; 0c0a 84 04
 
                 BT  4,A0c0f            ; 0c0a 84 04
Line 810: Line 814:
 
                 LISU 3                  ; 0c16 63
 
                 LISU 3                  ; 0c16 63
 
                 LISL 7                  ; 0c17 6f
 
                 LISL 7                  ; 0c17 6f
                 LIS  $0                  ; 0c18 70
+
                 CLR                      ; 0c18 70
                 LR  (IS),A             ; 0c19 5c
+
                 LR  S, A               ; 0c19 5c
 
                 LI  $2c                ; 0c1a 20 2c
 
                 LI  $2c                ; 0c1a 20 2c
 
                 LR  $3,A                ; 0c1c 53
 
                 LR  $3,A                ; 0c1c 53
Line 819: Line 823:
 
                 BF  $4,A0c26            ; 0c21 94 04
 
                 BF  $4,A0c26            ; 0c21 94 04
 
                 JMP  A1324              ; 0c23 29 13 24
 
                 JMP  A1324              ; 0c23 29 13 24
A0c26:          LIS  $0                  ; 0c26 70
+
A0c26:          CLR                      ; 0c26 70
 
                 AS  (IS)                ; 0c27 cc
 
                 AS  (IS)                ; 0c27 cc
 
                 BF  $4,A0c2f            ; 0c28 94 06
 
                 BF  $4,A0c2f            ; 0c28 94 06
Line 828: Line 832:
 
A0c2f:          LISU 2                  ; 0c2f 62
 
A0c2f:          LISU 2                  ; 0c2f 62
 
                 LISL 5                  ; 0c30 6d
 
                 LISL 5                  ; 0c30 6d
                 LR  (IS),A             ; 0c31 5c
+
                 LR  S, A               ; 0c31 5c
 
                 DCI  $2808              ; 0c32 2a 28 08
 
                 DCI  $2808              ; 0c32 2a 28 08
 
                 ADC                      ; 0c35 8e
 
                 ADC                      ; 0c35 8e
Line 834: Line 838:
 
                 LISU 6                  ; 0c37 66
 
                 LISU 6                  ; 0c37 66
 
                 LISL 0                  ; 0c38 68
 
                 LISL 0                  ; 0c38 68
                 LR  (IS),A             ; 0c39 5c
+
                 LR  S, A               ; 0c39 5c
 
                 LIS  $8                  ; 0c3a 78
 
                 LIS  $8                  ; 0c3a 78
 
                 LR  $1,A                ; 0c3b 51
 
                 LR  $1,A                ; 0c3b 51
                 LIS  $0                  ; 0c3c 70
+
                 CLR                      ; 0c3c 70
 
                 LR  $5,A                ; 0c3d 55
 
                 LR  $5,A                ; 0c3d 55
 
A0c3e:          LISU 2                  ; 0c3e 62
 
A0c3e:          LISU 2                  ; 0c3e 62
Line 843: Line 847:
 
                 LR  A,(IS)              ; 0c40 4c
 
                 LR  A,(IS)              ; 0c40 4c
 
                 LISL 3                  ; 0c41 6b
 
                 LISL 3                  ; 0c41 6b
                 LR  (IS),A             ; 0c42 5c
+
                 LR  S, A               ; 0c42 5c
 
                 LISL 7                  ; 0c43 6f
 
                 LISL 7                  ; 0c43 6f
                 LIS  $0                  ; 0c44 70
+
                 CLR                      ; 0c44 70
                 LR  (IS),A             ; 0c45 5c
+
                 LR  S, A               ; 0c45 5c
 
                 DCI  A0833              ; 0c46 2a 08 33
 
                 DCI  A0833              ; 0c46 2a 08 33
 
                 LR  A,$5                ; 0c49 45
 
                 LR  A,$5                ; 0c49 45
Line 855: Line 859:
 
                 LR  A,$2                ; 0c4e 42
 
                 LR  A,$2                ; 0c4e 42
 
                 AS  (IS)                ; 0c4f cc
 
                 AS  (IS)                ; 0c4f cc
                 LR  (IS),A             ; 0c50 5c
+
                 LR  S, A               ; 0c50 5c
 
                 DCI  $2808              ; 0c51 2a 28 08
 
                 DCI  $2808              ; 0c51 2a 28 08
 
                 ADC                      ; 0c54 8e
 
                 ADC                      ; 0c54 8e
                 LIS  $0                  ; 0c55 70
+
                 CLR                      ; 0c55 70
 
                 AM                      ; 0c56 88
 
                 AM                      ; 0c56 88
 
                 BT  4,A0c4d            ; 0c57 84 f5
 
                 BT  4,A0c4d            ; 0c57 84 f5
Line 876: Line 880:
 
                 LISL 7                  ; 0c6a 6f
 
                 LISL 7                  ; 0c6a 6f
 
                 BT  1,A0c89            ; 0c6b 81 1d
 
                 BT  1,A0c89            ; 0c6b 81 1d
                 LIS  $0                  ; 0c6d 70
+
                 CLR                      ; 0c6d 70
 
                 AS  (IS)                ; 0c6e cc
 
                 AS  (IS)                ; 0c6e cc
 
                 BT  4,A0c5d            ; 0c6f 84 ed
 
                 BT  4,A0c5d            ; 0c6f 84 ed
Line 895: Line 899:
 
                 BF  $4,A0c5d            ; 0c85 94 d7
 
                 BF  $4,A0c5d            ; 0c85 94 d7
 
                 BF  $0,A0ce8            ; 0c87 90 60
 
                 BF  $0,A0ce8            ; 0c87 90 60
A0c89:          LIS  $0                  ; 0c89 70
+
A0c89:          CLR                      ; 0c89 70
 
                 AS  (IS)                ; 0c8a cc
 
                 AS  (IS)                ; 0c8a cc
 
                 BF  $4,A0c5d            ; 0c8b 94 d1
 
                 BF  $4,A0c5d            ; 0c8b 94 d1
Line 901: Line 905:
 
                 LR  A,(IS)              ; 0c8e 4c
 
                 LR  A,(IS)              ; 0c8e 4c
 
                 LISL 7                  ; 0c8f 6f
 
                 LISL 7                  ; 0c8f 6f
                 LR  (IS),A             ; 0c90 5c
+
                 LR  S, A               ; 0c90 5c
 
                 BF  $0,A0c4d            ; 0c91 90 bb
 
                 BF  $0,A0c4d            ; 0c91 90 bb
 
A0c93:          LISU 6                  ; 0c93 66
 
A0c93:          LISU 6                  ; 0c93 66
Line 922: Line 926:
 
                 LIS  $e                  ; 0ca8 7e
 
                 LIS  $e                  ; 0ca8 7e
 
                 LR  $0,A                ; 0ca9 50
 
                 LR  $0,A                ; 0ca9 50
                 LIS  $0                  ; 0caa 70
+
                 CLR                      ; 0caa 70
 
                 DCI  $2880              ; 0cab 2a 28 80
 
                 DCI  $2880              ; 0cab 2a 28 80
 
A0cae:          ST                      ; 0cae 17
 
A0cae:          ST                      ; 0cae 17
Line 930: Line 934:
 
                 LISL 1                  ; 0cb3 69
 
                 LISL 1                  ; 0cb3 69
 
                 LIS  $7                  ; 0cb4 77
 
                 LIS  $7                  ; 0cb4 77
                 LR  (IS),A             ; 0cb5 5c
+
                 LR  S, A               ; 0cb5 5c
 
                 PI  A0e24              ; 0cb6 28 0e 24
 
                 PI  A0e24              ; 0cb6 28 0e 24
 
                 LISU 6                  ; 0cb9 66
 
                 LISU 6                  ; 0cb9 66
 
                 LISL 0                  ; 0cba 68
 
                 LISL 0                  ; 0cba 68
                 LIS  $0                  ; 0cbb 70
+
                 CLR                      ; 0cbb 70
 
                 AS  (IS)                ; 0cbc cc
 
                 AS  (IS)                ; 0cbc cc
 
                 DCI  $2880              ; 0cbd 2a 28 80
 
                 DCI  $2880              ; 0cbd 2a 28 80
Line 967: Line 971:
 
                 LR  A,(IS)              ; 0cea 4c
 
                 LR  A,(IS)              ; 0cea 4c
 
                 INC                      ; 0ceb 1f
 
                 INC                      ; 0ceb 1f
                 LR  (IS),A             ; 0cec 5c
+
                 LR  S, A               ; 0cec 5c
 
                 DCI  $2897              ; 0ced 2a 28 97
 
                 DCI  $2897              ; 0ced 2a 28 97
 
                 ADC                      ; 0cf0 8e
 
                 ADC                      ; 0cf0 8e
Line 982: Line 986:
 
A0cff:          LISU 4                  ; 0cff 64
 
A0cff:          LISU 4                  ; 0cff 64
 
                 LISL 3                  ; 0d00 6b
 
                 LISL 3                  ; 0d00 6b
                 LR  A,(IS)-            ; 0d01 4e
+
                 LR  A,D                ; 0d01 4e
 
                 LR  $b,A                ; 0d02 5b
 
                 LR  $b,A                ; 0d02 5b
 
                 LR  A,(IS)              ; 0d03 4c
 
                 LR  A,(IS)              ; 0d03 4c
Line 992: Line 996:
 
                 LISL 1                  ; 0d09 69
 
                 LISL 1                  ; 0d09 69
 
                 LM                      ; 0d0a 16
 
                 LM                      ; 0d0a 16
                 LR  (IS),A             ; 0d0b 5c
+
                 LR  S, A               ; 0d0b 5c
 
                 LM                      ; 0d0c 16
 
                 LM                      ; 0d0c 16
 
                 LISL 3                  ; 0d0d 6b
 
                 LISL 3                  ; 0d0d 6b
                 LR  (IS),A             ; 0d0e 5c
+
                 LR  S, A               ; 0d0e 5c
 
                 LM                      ; 0d0f 16
 
                 LM                      ; 0d0f 16
 
                 LR  $3,A                ; 0d10 53
 
                 LR  $3,A                ; 0d10 53
Line 1,020: Line 1,024:
 
                 LR  A,(IS)              ; 0d2e 4c
 
                 LR  A,(IS)              ; 0d2e 4c
 
                 ADC                      ; 0d2f 8e
 
                 ADC                      ; 0d2f 8e
                 LIS  $0                  ; 0d30 70
+
                 CLR                      ; 0d30 70
 
                 AS  $4                  ; 0d31 c4
 
                 AS  $4                  ; 0d31 c4
 
                 BT  4,A0d36            ; 0d32 84 03
 
                 BT  4,A0d36            ; 0d32 84 03
Line 1,026: Line 1,030:
 
A0d36:          ST                      ; 0d36 17
 
A0d36:          ST                      ; 0d36 17
 
                 LR  DC,H                ; 0d37 10
 
                 LR  DC,H                ; 0d37 10
                 LIS  $0                  ; 0d38 70
+
                 CLR                      ; 0d38 70
 
                 ST                      ; 0d39 17
 
                 ST                      ; 0d39 17
 
                 LR  A,$3                ; 0d3a 43
 
                 LR  A,$3                ; 0d3a 43
Line 1,037: Line 1,041:
 
                 LISU 5                  ; 0d44 65
 
                 LISU 5                  ; 0d44 65
 
                 LISL 6                  ; 0d45 6e
 
                 LISL 6                  ; 0d45 6e
                 LIS  $0                  ; 0d46 70
+
                 CLR                      ; 0d46 70
 
                 AS  $3                  ; 0d47 c3
 
                 AS  $3                  ; 0d47 c3
 
                 BT  1,A0d4b            ; 0d48 81 02
 
                 BT  1,A0d4b            ; 0d48 81 02
 
                 LISL 7                  ; 0d4a 6f
 
                 LISL 7                  ; 0d4a 6f
A0d4b:          LIS  $0                  ; 0d4b 70
+
A0d4b:          CLR                      ; 0d4b 70
                 LR  (IS),A             ; 0d4c 5c
+
                 LR  S, A               ; 0d4c 5c
 
A0d4d:          POP                      ; 0d4d 1c
 
A0d4d:          POP                      ; 0d4d 1c
 
A0d4e:          LR  A,$4                ; 0d4e 44
 
A0d4e:          LR  A,$4                ; 0d4e 44
Line 1,050: Line 1,054:
 
A0d54:          LISU 5                  ; 0d54 65
 
A0d54:          LISU 5                  ; 0d54 65
 
                 LISL 6                  ; 0d55 6e
 
                 LISL 6                  ; 0d55 6e
A0d56:          LIS  $0                  ; 0d56 70
+
A0d56:          CLR                      ; 0d56 70
 
                 AS  $4                  ; 0d57 c4
 
                 AS  $4                  ; 0d57 c4
 
                 BT  1,A0d5b            ; 0d58 81 02
 
                 BT  1,A0d5b            ; 0d58 81 02
                 LR  A,(IS)+            ; 0d5a 4d
+
                 LR  A,I                ; 0d5a 4d
 
A0d5b:          LR  A,IS                ; 0d5b 0a
 
A0d5b:          LR  A,IS                ; 0d5b 0a
 
                 LR  $0,A                ; 0d5c 50
 
                 LR  $0,A                ; 0d5c 50
Line 1,063: Line 1,067:
 
                 LR  IS,A                ; 0d62 0b
 
                 LR  IS,A                ; 0d62 0b
 
                 LR  A,$1                ; 0d63 41
 
                 LR  A,$1                ; 0d63 41
                 LR  (IS),A             ; 0d64 5c
+
                 LR  S, A               ; 0d64 5c
 
                 BF  $0,A0d29            ; 0d65 90 c3
 
                 BF  $0,A0d29            ; 0d65 90 c3
 
A0d67:          LISU 5                  ; 0d67 65
 
A0d67:          LISU 5                  ; 0d67 65
Line 1,076: Line 1,080:
 
A0d73:          LISU 4                  ; 0d73 64
 
A0d73:          LISU 4                  ; 0d73 64
 
                 LIS  $8                  ; 0d74 78
 
                 LIS  $8                  ; 0d74 78
                 AS  (IS)-              ; 0d75 ce
+
                 AS  D                  ; 0d75 ce
 
                 LR  $b,A                ; 0d76 5b
 
                 LR  $b,A                ; 0d76 5b
 
                 LR  A,(IS)              ; 0d77 4c
 
                 LR  A,(IS)              ; 0d77 4c
Line 1,085: Line 1,089:
 
A0d7e:          LISU 4                  ; 0d7e 64
 
A0d7e:          LISU 4                  ; 0d7e 64
 
                 LISL 2                  ; 0d7f 6a
 
                 LISL 2                  ; 0d7f 6a
                 LR  A,(IS)+            ; 0d80 4d
+
                 LR  A,I                ; 0d80 4d
 
                 LR  $a,A                ; 0d81 5a
 
                 LR  $a,A                ; 0d81 5a
 
                 LR  A,(IS)              ; 0d82 4c
 
                 LR  A,(IS)              ; 0d82 4c
Line 1,095: Line 1,099:
 
                 LISU 2                  ; 0d88 62
 
                 LISU 2                  ; 0d88 62
 
                 LISL 1                  ; 0d89 69
 
                 LISL 1                  ; 0d89 69
                 LR  (IS),A             ; 0d8a 5c
+
                 LR  S, A               ; 0d8a 5c
 
                 LM                      ; 0d8b 16
 
                 LM                      ; 0d8b 16
 
                 LISL 3                  ; 0d8c 6b
 
                 LISL 3                  ; 0d8c 6b
                 LR  (IS),A             ; 0d8d 5c
+
                 LR  S, A               ; 0d8d 5c
 
                 LM                      ; 0d8e 16
 
                 LM                      ; 0d8e 16
 
                 LR  $3,A                ; 0d8f 53
 
                 LR  $3,A                ; 0d8f 53
Line 1,143: Line 1,147:
 
                 LISU 5                  ; 0dc8 65
 
                 LISU 5                  ; 0dc8 65
 
                 LISL 6                  ; 0dc9 6e
 
                 LISL 6                  ; 0dc9 6e
                 LIS  $0                  ; 0dca 70
+
                 CLR                      ; 0dca 70
 
                 AS  $3                  ; 0dcb c3
 
                 AS  $3                  ; 0dcb c3
 
                 BT  1,A0dcf            ; 0dcc 81 02
 
                 BT  1,A0dcf            ; 0dcc 81 02
Line 1,156: Line 1,160:
 
                 LR  IS,A                ; 0dd6 0b
 
                 LR  IS,A                ; 0dd6 0b
 
                 LR  A,$1                ; 0dd7 41
 
                 LR  A,$1                ; 0dd7 41
                 LR  (IS),A             ; 0dd8 5c
+
                 LR  S, A               ; 0dd8 5c
 
A0dd9:          POP                      ; 0dd9 1c
 
A0dd9:          POP                      ; 0dd9 1c
 
A0dda:          LI  $fb                ; 0dda 20 fb
 
A0dda:          LI  $fb                ; 0dda 20 fb
Line 1,164: Line 1,168:
 
A0de0:          LISU 5                  ; 0de0 65
 
A0de0:          LISU 5                  ; 0de0 65
 
                 LISL 6                  ; 0de1 6e
 
                 LISL 6                  ; 0de1 6e
A0de2:          LIS  $0                  ; 0de2 70
+
A0de2:          CLR                      ; 0de2 70
 
                 AS  $4                  ; 0de3 c4
 
                 AS  $4                  ; 0de3 c4
 
                 BT  1,A0de7            ; 0de4 81 02
 
                 BT  1,A0de7            ; 0de4 81 02
                 LR  A,(IS)+            ; 0de6 4d
+
                 LR  A,I                ; 0de6 4d
 
A0de7:          LR  A,IS                ; 0de7 0a
 
A0de7:          LR  A,IS                ; 0de7 0a
 
                 LR  $0,A                ; 0de8 50
 
                 LR  $0,A                ; 0de8 50
Line 1,177: Line 1,181:
 
                 LR  IS,A                ; 0dee 0b
 
                 LR  IS,A                ; 0dee 0b
 
                 LR  A,$1                ; 0def 41
 
                 LR  A,$1                ; 0def 41
                 LR  (IS),A             ; 0df0 5c
+
                 LR  S, A               ; 0df0 5c
 
                 BF  $0,A0da7            ; 0df1 90 b5
 
                 BF  $0,A0da7            ; 0df1 90 b5
 
A0df3:          LISU 5                  ; 0df3 65
 
A0df3:          LISU 5                  ; 0df3 65
Line 1,191: Line 1,195:
 
                 LISL 3                  ; 0e00 6b
 
                 LISL 3                  ; 0e00 6b
 
                 LIS  $8                  ; 0e01 78
 
                 LIS  $8                  ; 0e01 78
                 AS  (IS)-              ; 0e02 ce
+
                 AS  D                  ; 0e02 ce
 
                 LR  $b,A                ; 0e03 5b
 
                 LR  $b,A                ; 0e03 5b
 
                 LR  A,(IS)              ; 0e04 4c
 
                 LR  A,(IS)              ; 0e04 4c
Line 1,200: Line 1,204:
 
A0e0b:          LISU 6                  ; 0e0b 66
 
A0e0b:          LISU 6                  ; 0e0b 66
 
                 LISL 7                  ; 0e0c 6f
 
                 LISL 7                  ; 0e0c 6f
                 LIS  $0                  ; 0e0d 70
+
                 CLR                      ; 0e0d 70
 
                 AS  (IS)                ; 0e0e cc
 
                 AS  (IS)                ; 0e0e cc
 
                 LISU 5                  ; 0e0f 65
 
                 LISU 5                  ; 0e0f 65
Line 1,209: Line 1,213:
 
                 LISU 2                  ; 0e15 62
 
                 LISU 2                  ; 0e15 62
 
                 LISL 5                  ; 0e16 6d
 
                 LISL 5                  ; 0e16 6d
                 LR  (IS),A             ; 0e17 5c
+
                 LR  S, A               ; 0e17 5c
 
                 DCI  $2808              ; 0e18 2a 28 08
 
                 DCI  $2808              ; 0e18 2a 28 08
 
                 ADC                      ; 0e1b 8e
 
                 ADC                      ; 0e1b 8e
Line 1,215: Line 1,219:
 
                 LISU 6                  ; 0e1d 66
 
                 LISU 6                  ; 0e1d 66
 
                 LISL 0                  ; 0e1e 68
 
                 LISL 0                  ; 0e1e 68
                 LR  (IS),A             ; 0e1f 5c
+
                 LR  S, A               ; 0e1f 5c
 
                 LIS  $7                  ; 0e20 77
 
                 LIS  $7                  ; 0e20 77
                 NS  (IS)+              ; 0e21 fd
+
                 NS  I                  ; 0e21 fd
 
                 LISU 3                  ; 0e22 63
 
                 LISU 3                  ; 0e22 63
                 LR  (IS),A             ; 0e23 5c
+
                 LR  S, A               ; 0e23 5c
 
A0e24:          LR  A,$1                ; 0e24 41
 
A0e24:          LR  A,$1                ; 0e24 41
 
                 LR  $6,A                ; 0e25 56
 
                 LR  $6,A                ; 0e25 56
Line 1,226: Line 1,230:
 
                 LI  $10                ; 0e28 20 10
 
                 LI  $10                ; 0e28 20 10
 
                 LR  $1,A                ; 0e2a 51
 
                 LR  $1,A                ; 0e2a 51
                 LIS  $0                  ; 0e2b 70
+
                 CLR                      ; 0e2b 70
 
                 LR  $5,A                ; 0e2c 55
 
                 LR  $5,A                ; 0e2c 55
 
A0e2d:          DCI  A0833              ; 0e2d 2a 08 33
 
A0e2d:          DCI  A0833              ; 0e2d 2a 08 33
Line 1,233: Line 1,237:
 
                 LM                      ; 0e32 16
 
                 LM                      ; 0e32 16
 
                 LR  $2,A                ; 0e33 52
 
                 LR  $2,A                ; 0e33 52
                 LIS  $0                  ; 0e34 70
+
                 CLR                      ; 0e34 70
 
                 LR  $3,A                ; 0e35 53
 
                 LR  $3,A                ; 0e35 53
 
                 LISU 2                  ; 0e36 62
 
                 LISU 2                  ; 0e36 62
Line 1,239: Line 1,243:
 
                 LR  A,(IS)              ; 0e38 4c
 
                 LR  A,(IS)              ; 0e38 4c
 
                 LISL 3                  ; 0e39 6b
 
                 LISL 3                  ; 0e39 6b
                 LR  (IS),A             ; 0e3a 5c
+
                 LR  S, A               ; 0e3a 5c
 
A0e3b:          LIS  $1                  ; 0e3b 71
 
A0e3b:          LIS  $1                  ; 0e3b 71
 
                 AS  $3                  ; 0e3c c3
 
                 AS  $3                  ; 0e3c c3
Line 1,247: Line 1,251:
 
                 LR  A,(IS)              ; 0e40 4c
 
                 LR  A,(IS)              ; 0e40 4c
 
                 AS  $2                  ; 0e41 c2
 
                 AS  $2                  ; 0e41 c2
                 LR  (IS),A             ; 0e42 5c
+
                 LR  S, A               ; 0e42 5c
 
                 DCI  $2808              ; 0e43 2a 28 08
 
                 DCI  $2808              ; 0e43 2a 28 08
 
                 ADC                      ; 0e46 8e
 
                 ADC                      ; 0e46 8e
                 LIS  $0                  ; 0e47 70
+
                 CLR                      ; 0e47 70
 
                 AM                      ; 0e48 88
 
                 AM                      ; 0e48 88
 
                 BT  4,A0e5f            ; 0e49 84 15
 
                 BT  4,A0e5f            ; 0e49 84 15
Line 1,257: Line 1,261:
 
                 LISU 6                  ; 0e4f 66
 
                 LISU 6                  ; 0e4f 66
 
                 LISL 1                  ; 0e50 69
 
                 LISL 1                  ; 0e50 69
                 LR  (IS),A             ; 0e51 5c
+
                 LR  S, A               ; 0e51 5c
 
                 LIS  $7                  ; 0e52 77
 
                 LIS  $7                  ; 0e52 77
 
                 NS  (IS)                ; 0e53 fc
 
                 NS  (IS)                ; 0e53 fc
 
                 LISU 3                  ; 0e54 63
 
                 LISU 3                  ; 0e54 63
 
                 LISL 3                  ; 0e55 6b
 
                 LISL 3                  ; 0e55 6b
                 LR  (IS),A             ; 0e56 5c
+
                 LR  S, A               ; 0e56 5c
 
                 LISU 6                  ; 0e57 66
 
                 LISU 6                  ; 0e57 66
 
                 LISL 1                  ; 0e58 69
 
                 LISL 1                  ; 0e58 69
                 LR  A,(IS)-            ; 0e59 4e
+
                 LR  A,D                ; 0e59 4e
 
                 XS  (IS)                ; 0e5a ec
 
                 XS  (IS)                ; 0e5a ec
 
                 BT  1,A0e7b            ; 0e5b 81 1f
 
                 BT  1,A0e7b            ; 0e5b 81 1f
Line 1,277: Line 1,281:
 
                 DS  $1                  ; 0e67 31
 
                 DS  $1                  ; 0e67 31
 
                 BF  $4,A0e2d            ; 0e68 94 c4
 
                 BF  $4,A0e2d            ; 0e68 94 c4
                 LIS  $0                  ; 0e6a 70
+
                 CLR                      ; 0e6a 70
 
                 LR  $0,A                ; 0e6b 50
 
                 LR  $0,A                ; 0e6b 50
 
A0e6c:          LR  A,$6                ; 0e6c 46
 
A0e6c:          LR  A,$6                ; 0e6c 46
Line 1,330: Line 1,334:
 
                 LISU 6                  ; 0eb0 66
 
                 LISU 6                  ; 0eb0 66
 
                 LISL 1                  ; 0eb1 69
 
                 LISL 1                  ; 0eb1 69
                 LIS  $0                  ; 0eb2 70
+
                 CLR                      ; 0eb2 70
 
                 AS  (IS)                ; 0eb3 cc
 
                 AS  (IS)                ; 0eb3 cc
 
                 BT  1,A0ebe            ; 0eb4 81 09
 
                 BT  1,A0ebe            ; 0eb4 81 09
Line 1,369: Line 1,373:
 
                 LISL 0                  ; 0eeb 68
 
                 LISL 0                  ; 0eeb 68
 
                 LR  A,$3                ; 0eec 43
 
                 LR  A,$3                ; 0eec 43
                 LR  (IS),A             ; 0eed 5c
+
                 LR  S, A               ; 0eed 5c
 
                 LISL 2                  ; 0eee 6a
 
                 LISL 2                  ; 0eee 6a
 
                 LR  A,$4                ; 0eef 44
 
                 LR  A,$4                ; 0eef 44
                 LR  (IS),A             ; 0ef0 5c
+
                 LR  S, A               ; 0ef0 5c
 
                 LISU 3                  ; 0ef1 63
 
                 LISU 3                  ; 0ef1 63
 
                 LISL 7                  ; 0ef2 6f
 
                 LISL 7                  ; 0ef2 6f
                 LIS  $0                  ; 0ef3 70
+
                 CLR                      ; 0ef3 70
 
                 AS  (IS)                ; 0ef4 cc
 
                 AS  (IS)                ; 0ef4 cc
 
                 BT  4,A0f2e            ; 0ef5 84 38
 
                 BT  4,A0f2e            ; 0ef5 84 38
 
                 LR  A,$2                ; 0ef7 42
 
                 LR  A,$2                ; 0ef7 42
 
                 LR  $3,A                ; 0ef8 53
 
                 LR  $3,A                ; 0ef8 53
                 LIS  $0                  ; 0ef9 70
+
                 CLR                      ; 0ef9 70
 
                 LR  $4,A                ; 0efa 54
 
                 LR  $4,A                ; 0efa 54
 
                 LR  A,(IS)              ; 0efb 4c
 
                 LR  A,(IS)              ; 0efb 4c
Line 1,426: Line 1,430:
 
                 LISU 3                  ; 0f31 63
 
                 LISU 3                  ; 0f31 63
 
                 LISL 3                  ; 0f32 6b
 
                 LISL 3                  ; 0f32 6b
                 LIS  $0                  ; 0f33 70
+
                 CLR                      ; 0f33 70
 
                 LR  $1,A                ; 0f34 51
 
                 LR  $1,A                ; 0f34 51
 
                 LR  A,(IS)              ; 0f35 4c
 
                 LR  A,(IS)              ; 0f35 4c
 
                 LISU 6                  ; 0f36 66
 
                 LISU 6                  ; 0f36 66
 
                 LISL 1                  ; 0f37 69
 
                 LISL 1                  ; 0f37 69
                 LIS  $0                  ; 0f38 70
+
                 CLR                      ; 0f38 70
 
                 AS  (IS)                ; 0f39 cc
 
                 AS  (IS)                ; 0f39 cc
 
                 LIS  $7                  ; 0f3a 77
 
                 LIS  $7                  ; 0f3a 77
Line 1,438: Line 1,442:
 
A0f3e:          NS  (IS)                ; 0f3e fc
 
A0f3e:          NS  (IS)                ; 0f3e fc
 
                 LR  $4,A                ; 0f3f 54
 
                 LR  $4,A                ; 0f3f 54
                 LIS  $0                  ; 0f40 70
+
                 CLR                      ; 0f40 70
 
                 AS  $3                  ; 0f41 c3
 
                 AS  $3                  ; 0f41 c3
 
                 BT  1,A0f46            ; 0f42 81 03
 
                 BT  1,A0f46            ; 0f42 81 03
Line 1,518: Line 1,522:
 
                 LI  $80                ; 0fa1 20 80
 
                 LI  $80                ; 0fa1 20 80
 
                 XS  (IS)                ; 0fa3 ec
 
                 XS  (IS)                ; 0fa3 ec
                 LR  (IS),A             ; 0fa4 5c
+
                 LR  S, A               ; 0fa4 5c
 
                 BT  1,A0fa9            ; 0fa5 81 03
 
                 BT  1,A0fa9            ; 0fa5 81 03
 
                 LISL 4                  ; 0fa7 6c
 
                 LISL 4                  ; 0fa7 6c
Line 1,524: Line 1,528:
 
A0fa9:          LISU 4                  ; 0fa9 64
 
A0fa9:          LISU 4                  ; 0fa9 64
 
                 LISL 5                  ; 0faa 6d
 
                 LISL 5                  ; 0faa 6d
                 DS  (IS)-              ; 0fab 3e
+
                 DS  D                  ; 0fab 3e
 
                 BT  2,A0faf            ; 0fac 82 02
 
                 BT  2,A0faf            ; 0fac 82 02
 
                 DS  (IS)                ; 0fae 3c
 
                 DS  (IS)                ; 0fae 3c
Line 1,532: Line 1,536:
 
                 LISU 4                  ; 0fb2 64
 
                 LISU 4                  ; 0fb2 64
 
                 LISL 1                  ; 0fb3 69
 
                 LISL 1                  ; 0fb3 69
                 LR  A,(IS)-            ; 0fb4 4e
+
                 LR  A,D                ; 0fb4 4e
 
                 LR  $b,A                ; 0fb5 5b
 
                 LR  $b,A                ; 0fb5 5b
 
                 LR  A,(IS)              ; 0fb6 4c
 
                 LR  A,(IS)              ; 0fb6 4c
Line 1,542: Line 1,546:
 
                 LISU 5                  ; 0fbd 65
 
                 LISU 5                  ; 0fbd 65
 
                 LISL 3                  ; 0fbe 6b
 
                 LISL 3                  ; 0fbe 6b
                 LR  (IS)-,A             ; 0fbf 5e
+
                 LR  D, A               ; 0fbf 5e
 
                 LI  $fe                ; 0fc0 20 fe
 
                 LI  $fe                ; 0fc0 20 fe
 
                 ADC                      ; 0fc2 8e
 
                 ADC                      ; 0fc2 8e
 
                 LM                      ; 0fc3 16
 
                 LM                      ; 0fc3 16
                 LR  (IS)+,A             ; 0fc4 5d
+
                 LR  I, A               ; 0fc4 5d
 
                 LISU 4                  ; 0fc5 64
 
                 LISU 4                  ; 0fc5 64
 
                 LI  $fe                ; 0fc6 20 fe
 
                 LI  $fe                ; 0fc6 20 fe
 
                 ADC                      ; 0fc8 8e
 
                 ADC                      ; 0fc8 8e
 
                 LM                      ; 0fc9 16
 
                 LM                      ; 0fc9 16
                 LR  (IS)-,A             ; 0fca 5e
+
                 LR  D, A               ; 0fca 5e
 
                 LI  $fe                ; 0fcb 20 fe
 
                 LI  $fe                ; 0fcb 20 fe
 
                 ADC                      ; 0fcd 8e
 
                 ADC                      ; 0fcd 8e
 
                 LR  H,DC                ; 0fce 11
 
                 LR  H,DC                ; 0fce 11
 
                 LM                      ; 0fcf 16
 
                 LM                      ; 0fcf 16
                 LR  (IS)-,A             ; 0fd0 5e
+
                 LR  D, A               ; 0fd0 5e
 
                 LR  A,$b                ; 0fd1 4b
 
                 LR  A,$b                ; 0fd1 4b
                 LR  (IS)-,A             ; 0fd2 5e
+
                 LR  D, A               ; 0fd2 5e
 
                 LR  A,$a                ; 0fd3 4a
 
                 LR  A,$a                ; 0fd3 4a
                 LR  (IS),A             ; 0fd4 5c
+
                 LR  S, A               ; 0fd4 5c
 
                 JMP  A0d7e              ; 0fd5 29 0d 7e
 
                 JMP  A0d7e              ; 0fd5 29 0d 7e
 
A0fd8:          LISU 5                  ; 0fd8 65
 
A0fd8:          LISU 5                  ; 0fd8 65
 
                 LISL 2                  ; 0fd9 6a
 
                 LISL 2                  ; 0fd9 6a
                 LR  A,(IS)+            ; 0fda 4d
+
                 LR  A,I                ; 0fda 4d
 
                 CI  $2f                ; 0fdb 25 2f
 
                 CI  $2f                ; 0fdb 25 2f
 
                 BF  $4,A0fec            ; 0fdd 94 0e
 
                 BF  $4,A0fec            ; 0fdd 94 0e
                 LR  A,(IS)-            ; 0fdf 4e
+
                 LR  A,D                ; 0fdf 4e
 
                 CI  $6e                ; 0fe0 25 6e
 
                 CI  $6e                ; 0fe0 25 6e
 
                 BT  2,A0fec            ; 0fe2 82 09
 
                 BT  2,A0fec            ; 0fe2 82 09
Line 1,574: Line 1,578:
 
                 LR  $a,A                ; 0fe6 5a
 
                 LR  $a,A                ; 0fe6 5a
 
                 LR  DC,H                ; 0fe7 10
 
                 LR  DC,H                ; 0fe7 10
                 LIS  $0                  ; 0fe8 70
+
                 CLR                      ; 0fe8 70
 
                 ST                      ; 0fe9 17
 
                 ST                      ; 0fe9 17
 
                 ST                      ; 0fea 17
 
                 ST                      ; 0fea 17
 
                 POP                      ; 0feb 1c
 
                 POP                      ; 0feb 1c
 
A0fec:          LISL 0                  ; 0fec 68
 
A0fec:          LISL 0                  ; 0fec 68
                 LR  A,(IS)+            ; 0fed 4d
+
                 LR  A,I                ; 0fed 4d
 
                 LR  $a,A                ; 0fee 5a
 
                 LR  $a,A                ; 0fee 5a
                 LR  A,(IS)+            ; 0fef 4d
+
                 LR  A,I                ; 0fef 4d
 
                 LR  $b,A                ; 0ff0 5b
 
                 LR  $b,A                ; 0ff0 5b
 
                 LR  DC,H                ; 0ff1 10
 
                 LR  DC,H                ; 0ff1 10
                 LR  A,(IS)+            ; 0ff2 4d
+
                 LR  A,I                ; 0ff2 4d
 
                 LR  $a,A                ; 0ff3 5a
 
                 LR  $a,A                ; 0ff3 5a
 
                 LR  A,(IS)              ; 0ff4 4c
 
                 LR  A,(IS)              ; 0ff4 4c
 
                 LISL 1                  ; 0ff5 69
 
                 LISL 1                  ; 0ff5 69
                 LR  (IS)-,A             ; 0ff6 5e
+
                 LR  D, A               ; 0ff6 5e
 
                 LR  A,$a                ; 0ff7 4a
 
                 LR  A,$a                ; 0ff7 4a
                 LR  (IS)+,A             ; 0ff8 5d
+
                 LR  I, A               ; 0ff8 5d
 
                 ST                      ; 0ff9 17
 
                 ST                      ; 0ff9 17
 
                 LR  A,(IS)              ; 0ffa 4c
 
                 LR  A,(IS)              ; 0ffa 4c
Line 1,597: Line 1,601:
 
                 LISL 0                  ; 0ffd 68
 
                 LISL 0                  ; 0ffd 68
 
                 LIS  $8                  ; 0ffe 78
 
                 LIS  $8                  ; 0ffe 78
                 NS  (IS)+              ; 0fff fd
+
                 NS  I                  ; 0fff fd
 
                 BF  $4,A1006            ; 1000 94 05
 
                 BF  $4,A1006            ; 1000 94 05
 
                 LR  A,(IS)              ; 1002 4c
 
                 LR  A,(IS)              ; 1002 4c
 
                 OI  $10                ; 1003 22 10
 
                 OI  $10                ; 1003 22 10
                 LR  (IS),A             ; 1005 5c
+
                 LR  S, A               ; 1005 5c
 
A1006:          LISU 5                  ; 1006 65
 
A1006:          LISU 5                  ; 1006 65
 
                 LISL 0                  ; 1007 68
 
                 LISL 0                  ; 1007 68
                 LR  A,(IS)+            ; 1008 4d
+
                 LR  A,I                ; 1008 4d
 
                 LR  $a,A                ; 1009 5a
 
                 LR  $a,A                ; 1009 5a
 
                 LR  A,(IS)              ; 100a 4c
 
                 LR  A,(IS)              ; 100a 4c
 
                 LR  $b,A                ; 100b 5b
 
                 LR  $b,A                ; 100b 5b
 
                 LR  DC,H                ; 100c 10
 
                 LR  DC,H                ; 100c 10
                 LIS  $0                  ; 100d 70
+
                 CLR                      ; 100d 70
 
                 ST                      ; 100e 17
 
                 ST                      ; 100e 17
 
                 ST                      ; 100f 17
 
                 ST                      ; 100f 17
Line 1,620: Line 1,624:
 
                 LISU 6                  ; 1016 66
 
                 LISU 6                  ; 1016 66
 
                 LISL 1                  ; 1017 69
 
                 LISL 1                  ; 1017 69
                 LR  A,(IS)+            ; 1018 4d
+
                 LR  A,I                ; 1018 4d
 
                 ST                      ; 1019 17
 
                 ST                      ; 1019 17
                 LIS  $0                  ; 101a 70
+
                 CLR                      ; 101a 70
 
                 ST                      ; 101b 17
 
                 ST                      ; 101b 17
 
                 LISU 5                  ; 101c 65
 
                 LISU 5                  ; 101c 65
 
                 LR  H,DC                ; 101d 11
 
                 LR  H,DC                ; 101d 11
 
                 LR  A,$a                ; 101e 4a
 
                 LR  A,$a                ; 101e 4a
                 LR  (IS)+,A             ; 101f 5d
+
                 LR  I, A               ; 101f 5d
 
                 LR  A,$b                ; 1020 4b
 
                 LR  A,$b                ; 1020 4b
                 LR  (IS),A             ; 1021 5c
+
                 LR  S, A               ; 1021 5c
 
                 POP                      ; 1022 1c
 
                 POP                      ; 1022 1c
 
A1023:          LR  K,P                ; 1023 08
 
A1023:          LR  K,P                ; 1023 08
Line 1,635: Line 1,639:
 
                 LISU 4                  ; 1027 64
 
                 LISU 4                  ; 1027 64
 
                 LISL 0                  ; 1028 68
 
                 LISL 0                  ; 1028 68
                 LR  A,(IS)+            ; 1029 4d
+
                 LR  A,I                ; 1029 4d
 
                 LR  $1,A                ; 102a 51
 
                 LR  $1,A                ; 102a 51
 
                 LR  A,(IS)              ; 102b 4c
 
                 LR  A,(IS)              ; 102b 4c
 
                 LR  $2,A                ; 102c 52
 
                 LR  $2,A                ; 102c 52
                 LIS  $0                  ; 102d 70
+
                 CLR                      ; 102d 70
 
                 LR  $3,A                ; 102e 53
 
                 LR  $3,A                ; 102e 53
 
                 LR  $4,A                ; 102f 54
 
                 LR  $4,A                ; 102f 54
Line 1,657: Line 1,661:
 
                 LR  A,$4                ; 103e 44
 
                 LR  A,$4                ; 103e 44
 
                 ST                      ; 103f 17
 
                 ST                      ; 103f 17
                 LIS  $0                  ; 1040 70
+
                 CLR                      ; 1040 70
 
                 AS  $1                  ; 1041 c1
 
                 AS  $1                  ; 1041 c1
 
                 BF  $4,A1047            ; 1042 94 04
 
                 BF  $4,A1047            ; 1042 94 04
Line 1,664: Line 1,668:
 
                 LISL 2                  ; 1048 6a
 
                 LISL 2                  ; 1048 6a
 
                 LR  A,$1                ; 1049 41
 
                 LR  A,$1                ; 1049 41
                 LR  (IS)+,A             ; 104a 5d
+
                 LR  I, A               ; 104a 5d
 
                 LR  A,$2                ; 104b 42
 
                 LR  A,$2                ; 104b 42
                 LR  (IS),A             ; 104c 5c
+
                 LR  S, A               ; 104c 5c
 
                 DCI  $2ff8              ; 104d 2a 2f f8
 
                 DCI  $2ff8              ; 104d 2a 2f f8
 
                 LR  A,$1                ; 1050 41
 
                 LR  A,$1                ; 1050 41
Line 1,684: Line 1,688:
 
                 PI  A0cff              ; 105e 28 0c ff
 
                 PI  A0cff              ; 105e 28 0c ff
 
                 PI  A0e0b              ; 1061 28 0e 0b
 
                 PI  A0e0b              ; 1061 28 0e 0b
                 LIS  $0                  ; 1064 70
+
                 CLR                      ; 1064 70
 
                 AS  $0                  ; 1065 c0
 
                 AS  $0                  ; 1065 c0
 
                 BT  4,A1071            ; 1066 84 0a
 
                 BT  4,A1071            ; 1066 84 0a
                 LIS  $0                  ; 1068 70
+
                 CLR                      ; 1068 70
 
                 LISU 6                  ; 1069 66
 
                 LISU 6                  ; 1069 66
 
                 LISL 5                  ; 106a 6d
 
                 LISL 5                  ; 106a 6d
                 LR  (IS),A             ; 106b 5c
+
                 LR  S, A               ; 106b 5c
 
                 PI  A0d7e              ; 106c 28 0d 7e
 
                 PI  A0d7e              ; 106c 28 0d 7e
 
                 BF  $0,A107a            ; 106f 90 0a
 
                 BF  $0,A107a            ; 106f 90 0a
Line 1,713: Line 1,717:
 
                 LISU 4                  ; 108b 64
 
                 LISU 4                  ; 108b 64
 
                 LISL 0                  ; 108c 68
 
                 LISL 0                  ; 108c 68
                 LR  A,(IS)+            ; 108d 4d
+
                 LR  A,I                ; 108d 4d
 
                 LR  $a,A                ; 108e 5a
 
                 LR  $a,A                ; 108e 5a
                 LR  A,(IS)+            ; 108f 4d
+
                 LR  A,I                ; 108f 4d
 
                 LR  $b,A                ; 1090 5b
 
                 LR  $b,A                ; 1090 5b
 
                 LR  DC,H                ; 1091 10
 
                 LR  DC,H                ; 1091 10
                 LR  A,(IS)+            ; 1092 4d
+
                 LR  A,I                ; 1092 4d
 
                 LR  $1,A                ; 1093 51
 
                 LR  $1,A                ; 1093 51
                 LR  A,(IS)+            ; 1094 4d
+
                 LR  A,I                ; 1094 4d
 
                 LR  $2,A                ; 1095 52
 
                 LR  $2,A                ; 1095 52
 
A1096:          LM                      ; 1096 16
 
A1096:          LM                      ; 1096 16
Line 1,728: Line 1,732:
 
                 LI  $fe                ; 109a 20 fe
 
                 LI  $fe                ; 109a 20 fe
 
                 ADC                      ; 109c 8e
 
                 ADC                      ; 109c 8e
                 LIS  $0                  ; 109d 70
+
                 CLR                      ; 109d 70
 
                 AS  $3                  ; 109e c3
 
                 AS  $3                  ; 109e c3
 
                 BT  4,A10ba            ; 109f 84 1a
 
                 BT  4,A10ba            ; 109f 84 1a
Line 1,770: Line 1,774:
 
                 BF  $0,A1096            ; 10ca 90 cb
 
                 BF  $0,A1096            ; 10ca 90 cb
 
A10cc:          DCI  $28a3              ; 10cc 2a 28 a3
 
A10cc:          DCI  $28a3              ; 10cc 2a 28 a3
                 LIS  $0                  ; 10cf 70
+
                 CLR                      ; 10cf 70
 
                 ST                      ; 10d0 17
 
                 ST                      ; 10d0 17
 
                 LISU 6                  ; 10d1 66
 
                 LISU 6                  ; 10d1 66
Line 1,789: Line 1,793:
 
                 LISL 6                  ; 10e4 6e
 
                 LISL 6                  ; 10e4 6e
 
                 LR  A,$a                ; 10e5 4a
 
                 LR  A,$a                ; 10e5 4a
                 LR  (IS)+,A             ; 10e6 5d
+
                 LR  I, A               ; 10e6 5d
 
                 LR  A,$b                ; 10e7 4b
 
                 LR  A,$b                ; 10e7 4b
                 LR  (IS),A             ; 10e8 5c
+
                 LR  S, A               ; 10e8 5c
 
                 JMP  A1324              ; 10e9 29 13 24
 
                 JMP  A1324              ; 10e9 29 13 24
 
A10ec:          LISU 4                  ; 10ec 64
 
A10ec:          LISU 4                  ; 10ec 64
 
                 LISL 3                  ; 10ed 6b
 
                 LISL 3                  ; 10ed 6b
 
                 LIS  $2                  ; 10ee 72
 
                 LIS  $2                  ; 10ee 72
                 AS  (IS)-              ; 10ef ce
+
                 AS  D                  ; 10ef ce
 
                 LR  $b,A                ; 10f0 5b
 
                 LR  $b,A                ; 10f0 5b
 
                 LR  A,(IS)              ; 10f1 4c
 
                 LR  A,(IS)              ; 10f1 4c
Line 1,819: Line 1,823:
 
A1111:          LR  K,P                ; 1111 08
 
A1111:          LR  K,P                ; 1111 08
 
                 PI  A131d              ; 1112 28 13 1d
 
                 PI  A131d              ; 1112 28 13 1d
                 LIS  $0                  ; 1115 70
+
                 CLR                      ; 1115 70
 
                 LISU 7                  ; 1116 67
 
                 LISU 7                  ; 1116 67
 
                 LISL 7                  ; 1117 6f
 
                 LISL 7                  ; 1117 6f
                 LR  (IS)+,A             ; 1118 5d
+
                 LR  I, A               ; 1118 5d
                 LR  (IS)+,A             ; 1119 5d
+
                 LR  I, A               ; 1119 5d
                 LR  (IS)+,A             ; 111a 5d
+
                 LR  I, A               ; 111a 5d
                 LR  (IS)+,A             ; 111b 5d
+
                 LR  I, A               ; 111b 5d
                 LR  (IS)+,A             ; 111c 5d
+
                 LR  I, A               ; 111c 5d
                 LR  (IS)+,A             ; 111d 5d
+
                 LR  I, A               ; 111d 5d
 
                 LISU 3                  ; 111e 63
 
                 LISU 3                  ; 111e 63
 
                 LISL 1                  ; 111f 69
 
                 LISL 1                  ; 111f 69
 
                 LIS  $7                  ; 1120 77
 
                 LIS  $7                  ; 1120 77
                 LR  (IS),A             ; 1121 5c
+
                 LR  S, A               ; 1121 5c
 
                 LI  $15                ; 1122 20 15
 
                 LI  $15                ; 1122 20 15
 
                 LR  $0,A                ; 1124 50
 
                 LR  $0,A                ; 1124 50
Line 1,837: Line 1,841:
 
                 LISL 5                  ; 1126 6d
 
                 LISL 5                  ; 1126 6d
 
                 LR  A,$0                ; 1127 40
 
                 LR  A,$0                ; 1127 40
                 LR  (IS),A             ; 1128 5c
+
                 LR  S, A               ; 1128 5c
 
                 DCI  $2808              ; 1129 2a 28 08
 
                 DCI  $2808              ; 1129 2a 28 08
 
                 ADC                      ; 112c 8e
 
                 ADC                      ; 112c 8e
Line 1,846: Line 1,850:
 
A1135:          LISU 6                  ; 1135 66
 
A1135:          LISU 6                  ; 1135 66
 
                 LISL 0                  ; 1136 68
 
                 LISL 0                  ; 1136 68
                 LR  (IS),A             ; 1137 5c
+
                 LR  S, A               ; 1137 5c
 
                 LIS  $7                  ; 1138 77
 
                 LIS  $7                  ; 1138 77
 
                 NS  (IS)                ; 1139 fc
 
                 NS  (IS)                ; 1139 fc
 
                 LISU 3                  ; 113a 63
 
                 LISU 3                  ; 113a 63
 
                 LISL 5                  ; 113b 6d
 
                 LISL 5                  ; 113b 6d
                 LR  (IS),A             ; 113c 5c
+
                 LR  S, A               ; 113c 5c
 
                 BT  4,A117c            ; 113d 84 3e
 
                 BT  4,A117c            ; 113d 84 3e
 
                 LIS  $1                  ; 113f 71
 
                 LIS  $1                  ; 113f 71
Line 1,872: Line 1,876:
 
                 NS  (IS)                ; 1158 fc
 
                 NS  (IS)                ; 1158 fc
 
                 BT  4,A1164            ; 1159 84 0a
 
                 BT  4,A1164            ; 1159 84 0a
                 LIS  $0                  ; 115b 70
+
                 CLR                      ; 115b 70
 
                 AS  (IS)                ; 115c cc
 
                 AS  (IS)                ; 115c cc
 
                 LIS  $6                  ; 115d 76
 
                 LIS  $6                  ; 115d 76
Line 1,889: Line 1,893:
 
                 NS  (IS)                ; 116e fc
 
                 NS  (IS)                ; 116e fc
 
                 BF  $4,A117c            ; 116f 94 0c
 
                 BF  $4,A117c            ; 116f 94 0c
A1171:          LIS  $0                  ; 1171 70
+
A1171:          CLR                      ; 1171 70
 
                 AS  (IS)                ; 1172 cc
 
                 AS  (IS)                ; 1172 cc
 
                 LIS  $3                  ; 1173 73
 
                 LIS  $3                  ; 1173 73
Line 1,898: Line 1,902:
 
                 LISL 0                  ; 1179 68
 
                 LISL 0                  ; 1179 68
 
                 AS  (IS)                ; 117a cc
 
                 AS  (IS)                ; 117a cc
                 LR  (IS),A             ; 117b 5c
+
                 LR  S, A               ; 117b 5c
 
A117c:          DCI  $2880              ; 117c 2a 28 80
 
A117c:          DCI  $2880              ; 117c 2a 28 80
 
                 LIS  $e                  ; 117f 7e
 
                 LIS  $e                  ; 117f 7e
 
                 LR  $1,A                ; 1180 51
 
                 LR  $1,A                ; 1180 51
                 LIS  $0                  ; 1181 70
+
                 CLR                      ; 1181 70
 
A1182:          ST                      ; 1182 17
 
A1182:          ST                      ; 1182 17
 
                 DS  $1                  ; 1183 31
 
                 DS  $1                  ; 1183 31
Line 1,916: Line 1,920:
 
                 LISL 0                  ; 1194 68
 
                 LISL 0                  ; 1194 68
 
                 AS  (IS)                ; 1195 cc
 
                 AS  (IS)                ; 1195 cc
                 LR  (IS),A             ; 1196 5c
+
                 LR  S, A               ; 1196 5c
 
                 LISU 6                  ; 1197 66
 
                 LISU 6                  ; 1197 66
                 LIS  $0                  ; 1198 70
+
                 CLR                      ; 1198 70
 
                 AS  (IS)                ; 1199 cc
 
                 AS  (IS)                ; 1199 cc
 
                 BF  $4,A119f            ; 119a 94 04
 
                 BF  $4,A119f            ; 119a 94 04
 
                 JMP  A1249              ; 119c 29 12 49
 
                 JMP  A1249              ; 119c 29 12 49
A119f:          LIS  $0                  ; 119f 70
+
A119f:          CLR                      ; 119f 70
 
                 LR  $2,A                ; 11a0 52
 
                 LR  $2,A                ; 11a0 52
 
                 LR  $4,A                ; 11a1 54
 
                 LR  $4,A                ; 11a1 54
Line 1,935: Line 1,939:
 
                 LISU 3                  ; 11ac 63
 
                 LISU 3                  ; 11ac 63
 
                 LISL 6                  ; 11ad 6e
 
                 LISL 6                  ; 11ad 6e
                 LR  (IS),A             ; 11ae 5c
+
                 LR  S, A               ; 11ae 5c
 
                 LISU 6                  ; 11af 66
 
                 LISU 6                  ; 11af 66
 
                 LISL 0                  ; 11b0 68
 
                 LISL 0                  ; 11b0 68
Line 1,941: Line 1,945:
 
                 XDC                      ; 11b4 2c
 
                 XDC                      ; 11b4 2c
 
                 DCI  $2880              ; 11b5 2a 28 80
 
                 DCI  $2880              ; 11b5 2a 28 80
                 LIS  $0                  ; 11b8 70
+
                 CLR                      ; 11b8 70
 
                 AS  (IS)                ; 11b9 cc
 
                 AS  (IS)                ; 11b9 cc
 
                 BF  $1,A11bd            ; 11ba 91 02
 
                 BF  $1,A11bd            ; 11ba 91 02
Line 1,982: Line 1,986:
 
A11ef:          AS  $4                  ; 11ef c4
 
A11ef:          AS  $4                  ; 11ef c4
 
                 LR  $4,A                ; 11f0 54
 
                 LR  $4,A                ; 11f0 54
                 LIS  $0                  ; 11f1 70
+
                 CLR                      ; 11f1 70
 
                 AS  $0                  ; 11f2 c0
 
                 AS  $0                  ; 11f2 c0
 
                 BT  4,A11f9            ; 11f3 84 05
 
                 BT  4,A11f9            ; 11f3 84 05
Line 1,992: Line 1,996:
 
                 LR  A,(IS)              ; 11fb 4c
 
                 LR  A,(IS)              ; 11fb 4c
 
                 LR  $3,A                ; 11fc 53
 
                 LR  $3,A                ; 11fc 53
                 LIS  $0                  ; 11fd 70
+
                 CLR                      ; 11fd 70
 
                 AS  $4                  ; 11fe c4
 
                 AS  $4                  ; 11fe c4
 
                 BT  4,A123c            ; 11ff 84 3c
 
                 BT  4,A123c            ; 11ff 84 3c
Line 1,998: Line 2,002:
 
                 LISU 6                  ; 1202 66
 
                 LISU 6                  ; 1202 66
 
                 LISL 0                  ; 1203 68
 
                 LISL 0                  ; 1203 68
                 LR  A,(IS)-            ; 1204 4e
+
                 LR  A,D                ; 1204 4e
 
                 XS  (IS)                ; 1205 ec
 
                 XS  (IS)                ; 1205 ec
 
                 LR  A,$4                ; 1206 44
 
                 LR  A,$4                ; 1206 44
Line 2,009: Line 2,013:
 
                 BT  2,A123c            ; 120e 82 2d
 
                 BT  2,A123c            ; 120e 82 2d
 
                 LR  A,$4                ; 1210 44
 
                 LR  A,$4                ; 1210 44
                 LR  (IS),A             ; 1211 5c
+
                 LR  S, A               ; 1211 5c
 
                 LISU 4                  ; 1212 64
 
                 LISU 4                  ; 1212 64
 
                 LISL 3                  ; 1213 6b
 
                 LISL 3                  ; 1213 6b
 
                 LIS  $3                  ; 1214 73
 
                 LIS  $3                  ; 1214 73
                 AS  (IS)-              ; 1215 ce
+
                 AS  D                  ; 1215 ce
 
                 LR  $b,A                ; 1216 5b
 
                 LR  $b,A                ; 1216 5b
 
                 LR  A,(IS)              ; 1217 4c
 
                 LR  A,(IS)              ; 1217 4c
Line 2,026: Line 2,030:
 
                 LISU 7                  ; 1221 67
 
                 LISU 7                  ; 1221 67
 
                 LISL 7                  ; 1222 6f
 
                 LISL 7                  ; 1222 6f
                 LR  (IS),A             ; 1223 5c
+
                 LR  S, A               ; 1223 5c
 
                 BF  $0,A123c            ; 1224 90 17
 
                 BF  $0,A123c            ; 1224 90 17
 
A1226:          LISU 7                  ; 1226 67
 
A1226:          LISU 7                  ; 1226 67
Line 2,037: Line 2,041:
 
                 LR  $0,A                ; 122e 50
 
                 LR  $0,A                ; 122e 50
 
                 LR  A,$4                ; 122f 44
 
                 LR  A,$4                ; 122f 44
                 LR  (IS),A             ; 1230 5c
+
                 LR  S, A               ; 1230 5c
 
                 LR  A,$0                ; 1231 40
 
                 LR  A,$0                ; 1231 40
 
                 LR  $4,A                ; 1232 54
 
                 LR  $4,A                ; 1232 54
Line 2,047: Line 2,051:
 
                 BT  2,A123c            ; 1238 82 03
 
                 BT  2,A123c            ; 1238 82 03
 
                 LR  A,$4                ; 123a 44
 
                 LR  A,$4                ; 123a 44
                 LR  (IS),A             ; 123b 5c
+
                 LR  S, A               ; 123b 5c
 
A123c:          LISU 6                  ; 123c 66
 
A123c:          LISU 6                  ; 123c 66
 
                 LISL 0                  ; 123d 68
 
                 LISL 0                  ; 123d 68
                 LIS  $0                  ; 123e 70
+
                 CLR                      ; 123e 70
 
                 AS  (IS)                ; 123f cc
 
                 AS  (IS)                ; 123f cc
 
                 LR  A,$3                ; 1240 43
 
                 LR  A,$3                ; 1240 43
Line 2,059: Line 2,063:
 
                 LISL 4                  ; 1246 6c
 
                 LISL 4                  ; 1246 6c
 
                 AS  (IS)                ; 1247 cc
 
                 AS  (IS)                ; 1247 cc
                 LR  (IS),A             ; 1248 5c
+
                 LR  S, A               ; 1248 5c
 
A1249:          LISU 2                  ; 1249 62
 
A1249:          LISU 2                  ; 1249 62
 
                 LISL 5                  ; 124a 6d
 
                 LISL 5                  ; 124a 6d
Line 2,070: Line 2,074:
 
A1255:          LISU 7                  ; 1255 67
 
A1255:          LISU 7                  ; 1255 67
 
                 LISL 7                  ; 1256 6f
 
                 LISL 7                  ; 1256 6f
                 LIS  $0                  ; 1257 70
+
                 CLR                      ; 1257 70
 
                 AS  (IS)                ; 1258 cc
 
                 AS  (IS)                ; 1258 cc
 
                 BT  4,A1260            ; 1259 84 06
 
                 BT  4,A1260            ; 1259 84 06
 
                 LISL 3                  ; 125b 6b
 
                 LISL 3                  ; 125b 6b
                 LR  A,(IS)-            ; 125c 4e
+
                 LR  A,D                ; 125c 4e
                 LR  (IS)+,A             ; 125d 5d
+
                 LR  I, A               ; 125d 5d
                 LIS  $0                  ; 125e 70
+
                 CLR                      ; 125e 70
                 LR  (IS),A             ; 125f 5c
+
                 LR  S, A               ; 125f 5c
 
A1260:          LISL 1                  ; 1260 69
 
A1260:          LISL 1                  ; 1260 69
                 LIS  $0                  ; 1261 70
+
                 CLR                      ; 1261 70
 
                 AS  (IS)                ; 1262 cc
 
                 AS  (IS)                ; 1262 cc
 
                 BT  4,A1267            ; 1263 84 03
 
                 BT  4,A1267            ; 1263 84 03
Line 2,085: Line 2,089:
 
A1267:          LR  $1,A                ; 1267 51
 
A1267:          LR  $1,A                ; 1267 51
 
                 LISL 2                  ; 1268 6a
 
                 LISL 2                  ; 1268 6a
                 LIS  $0                  ; 1269 70
+
                 CLR                      ; 1269 70
                 AS  (IS)+              ; 126a cd
+
                 AS  I                  ; 126a cd
 
                 BT  4,A1274            ; 126b 84 08
 
                 BT  4,A1274            ; 126b 84 08
                 LIS  $0                  ; 126d 70
+
                 CLR                      ; 126d 70
 
                 AS  (IS)                ; 126e cc
 
                 AS  (IS)                ; 126e cc
 
                 BT  4,A1274            ; 126f 84 04
 
                 BT  4,A1274            ; 126f 84 04
Line 2,101: Line 2,105:
 
                 LISU 6                  ; 127a 66
 
                 LISU 6                  ; 127a 66
 
                 LISL 7                  ; 127b 6f
 
                 LISL 7                  ; 127b 6f
                 LIS  $0                  ; 127c 70
+
                 CLR                      ; 127c 70
 
                 AS  (IS)                ; 127d cc
 
                 AS  (IS)                ; 127d cc
 
                 LR  A,$0                ; 127e 40
 
                 LR  A,$0                ; 127e 40
Line 2,132: Line 2,136:
 
                 LISU 7                  ; 129d 67
 
                 LISU 7                  ; 129d 67
 
                 LISL 7                  ; 129e 6f
 
                 LISL 7                  ; 129e 6f
                 LIS  $0                  ; 129f 70
+
                 CLR                      ; 129f 70
 
                 AS  (IS)                ; 12a0 cc
 
                 AS  (IS)                ; 12a0 cc
 
                 BT  4,A12a5            ; 12a1 84 03
 
                 BT  4,A12a5            ; 12a1 84 03
                 LIS  $0                  ; 12a3 70
+
                 CLR                      ; 12a3 70
 
                 LR  $0,A                ; 12a4 50
 
                 LR  $0,A                ; 12a4 50
 
A12a5:          LIS  $6                  ; 12a5 76
 
A12a5:          LIS  $6                  ; 12a5 76
Line 2,150: Line 2,154:
 
                 LISU 6                  ; 12b2 66
 
                 LISU 6                  ; 12b2 66
 
                 LISL 7                  ; 12b3 6f
 
                 LISL 7                  ; 12b3 6f
                 LIS  $0                  ; 12b4 70
+
                 CLR                      ; 12b4 70
 
                 AS  (IS)                ; 12b5 cc
 
                 AS  (IS)                ; 12b5 cc
 
                 LR  A,$0                ; 12b6 40
 
                 LR  A,$0                ; 12b6 40
Line 2,158: Line 2,162:
 
A12bb:          AI  $80                ; 12bb 24 80
 
A12bb:          AI  $80                ; 12bb 24 80
 
                 LISL 5                  ; 12bd 6d
 
                 LISL 5                  ; 12bd 6d
                 LR  (IS),A             ; 12be 5c
+
                 LR  S, A               ; 12be 5c
 
                 PI  A1994              ; 12bf 28 19 94
 
                 PI  A1994              ; 12bf 28 19 94
 
                 DCI  $2fff              ; 12c2 2a 2f ff
 
                 DCI  $2fff              ; 12c2 2a 2f ff
Line 2,165: Line 2,169:
 
                 LISU 6                  ; 12c7 66
 
                 LISU 6                  ; 12c7 66
 
                 AS  (IS)                ; 12c8 cc
 
                 AS  (IS)                ; 12c8 cc
                 LR  (IS),A             ; 12c9 5c
+
                 LR  S, A               ; 12c9 5c
 
                 LR  $0,A                ; 12ca 50
 
                 LR  $0,A                ; 12ca 50
 
                 LISU 4                  ; 12cb 64
 
                 LISU 4                  ; 12cb 64
 
                 LISL 3                  ; 12cc 6b
 
                 LISL 3                  ; 12cc 6b
 
                 LIS  $5                  ; 12cd 75
 
                 LIS  $5                  ; 12cd 75
                 AS  (IS)-              ; 12ce ce
+
                 AS  D                  ; 12ce ce
 
                 LR  $b,A                ; 12cf 5b
 
                 LR  $b,A                ; 12cf 5b
 
                 LR  A,(IS)              ; 12d0 4c
 
                 LR  A,(IS)              ; 12d0 4c
Line 2,186: Line 2,190:
 
                 LR  A,$0                ; 12de 40
 
                 LR  A,$0                ; 12de 40
 
                 LR  $7,A                ; 12df 57
 
                 LR  $7,A                ; 12df 57
                 LIS  $0                  ; 12e0 70
+
                 CLR                      ; 12e0 70
 
                 XS  $6                  ; 12e1 e6
 
                 XS  $6                  ; 12e1 e6
 
                 XDC                      ; 12e2 2c
 
                 XDC                      ; 12e2 2c
 
                 BT  4,A12fd            ; 12e3 84 19
 
                 BT  4,A12fd            ; 12e3 84 19
 
                 DS  $6                  ; 12e5 36
 
                 DS  $6                  ; 12e5 36
                 LIS  $0                  ; 12e6 70
+
                 CLR                      ; 12e6 70
 
A12e7:          AM                      ; 12e7 88
 
A12e7:          AM                      ; 12e7 88
 
                 BT  4,A12e7            ; 12e8 84 fe
 
                 BT  4,A12e7            ; 12e8 84 fe
Line 2,214: Line 2,218:
 
A1300:          LR  A,$9                ; 1300 49
 
A1300:          LR  A,$9                ; 1300 49
 
                 LR  $0,A                ; 1301 50
 
                 LR  $0,A                ; 1301 50
                 LIS  $0                  ; 1302 70
+
                 CLR                      ; 1302 70
 
                 LR  $9,A                ; 1303 59
 
                 LR  $9,A                ; 1303 59
 
                 LR  A,$0                ; 1304 40
 
                 LR  A,$0                ; 1304 40
 
                 BF  $0,A12f4            ; 1305 90 ee
 
                 BF  $0,A12f4            ; 1305 90 ee
A1307:          LIS  $0                  ; 1307 70
+
A1307:          CLR                      ; 1307 70
 
                 AS  $0                  ; 1308 c0
 
                 AS  $0                  ; 1308 c0
 
                 BT  1,A1314            ; 1309 81 0a
 
                 BT  1,A1314            ; 1309 81 0a
Line 2,253: Line 2,257:
 
                 LR  KL,A                ; 132c 05
 
                 LR  KL,A                ; 132c 05
 
                 PK                      ; 132d 0c
 
                 PK                      ; 132d 0c
 +
 
A132e:          DI                      ; 132e 1a
 
A132e:          DI                      ; 132e 1a
                 LIS  $0                  ; 132f 70
+
                 CLR                      ; 132f 70
 
                 OUTS 0                  ; 1330 b0
 
                 OUTS 0                  ; 1330 b0
 
                 INS  0                  ; 1331 a0
 
                 INS  0                  ; 1331 a0
Line 2,262: Line 2,267:
 
                 BF  $4,A133b            ; 1336 94 04
 
                 BF  $4,A133b            ; 1336 94 04
 
                 JMP  A1c34              ; 1338 29 1c 34
 
                 JMP  A1c34              ; 1338 29 1c 34
A133b:          DCI  $3800              ; 133b 2a 38 00
+
A133b:          DCI  $3800              ; 133b 2a 38 00     LED OFF
 
                 ST                      ; 133e 17
 
                 ST                      ; 133e 17
 
                 DCI  $2ffe              ; 133f 2a 2f fe
 
                 DCI  $2ffe              ; 133f 2a 2f fe
Line 2,281: Line 2,286:
 
                 LR  $5,A                ; 1354 55
 
                 LR  $5,A                ; 1354 55
 
                 PI  A1924              ; 1355 28 19 24
 
                 PI  A1924              ; 1355 28 19 24
                 LIS  $0                  ; 1358 70
+
                 CLR                      ; 1358 70
 
                 LR  $0,A                ; 1359 50
 
                 LR  $0,A                ; 1359 50
 
                 LR  $1,A                ; 135a 51
 
                 LR  $1,A                ; 135a 51
Line 2,302: Line 2,307:
 
                 LI  $40                ; 1372 20 40
 
                 LI  $40                ; 1372 20 40
 
                 LR  $4,A                ; 1374 54
 
                 LR  $4,A                ; 1374 54
                 LIS  $0                  ; 1375 70
+
                 CLR                      ; 1375 70
 
                 LR  $5,A                ; 1376 55
 
                 LR  $5,A                ; 1376 55
 
                 PI  A1924              ; 1377 28 19 24
 
                 PI  A1924              ; 1377 28 19 24
Line 2,313: Line 2,318:
 
                 XDC                      ; 1384 2c
 
                 XDC                      ; 1384 2c
 
A1385:          XDC                      ; 1385 2c
 
A1385:          XDC                      ; 1385 2c
                 LIS  $0                  ; 1386 70
+
                 CLR                      ; 1386 70
 
                 AM                      ; 1387 88
 
                 AM                      ; 1387 88
 
                 XDC                      ; 1388 2c
 
                 XDC                      ; 1388 2c
Line 2,326: Line 2,331:
 
                 LI  $40                ; 1393 20 40
 
                 LI  $40                ; 1393 20 40
 
                 LR  $4,A                ; 1395 54
 
                 LR  $4,A                ; 1395 54
                 LIS  $0                  ; 1396 70
+
                 CLR                      ; 1396 70
 
                 LR  $5,A                ; 1397 55
 
                 LR  $5,A                ; 1397 55
 
                 PI  A1924              ; 1398 28 19 24
 
                 PI  A1924              ; 1398 28 19 24
 
                 BF  $0,A1385            ; 139b 90 e9
 
                 BF  $0,A1385            ; 139b 90 e9
 
A139d:          XDC                      ; 139d 2c
 
A139d:          XDC                      ; 139d 2c
                 LIS  $0                  ; 139e 70
+
                 CLR                      ; 139e 70
 
                 AM                      ; 139f 88
 
                 AM                      ; 139f 88
 
                 XDC                      ; 13a0 2c
 
                 XDC                      ; 13a0 2c
Line 2,344: Line 2,349:
 
                 LI  $80                ; 13ab 20 80
 
                 LI  $80                ; 13ab 20 80
 
                 LR  $4,A                ; 13ad 54
 
                 LR  $4,A                ; 13ad 54
                 LIS  $0                  ; 13ae 70
+
                 CLR                      ; 13ae 70
 
                 LR  $5,A                ; 13af 55
 
                 LR  $5,A                ; 13af 55
 
                 PI  A1924              ; 13b0 28 19 24
 
                 PI  A1924              ; 13b0 28 19 24
 
                 BF  $0,A139d            ; 13b3 90 e9
 
                 BF  $0,A139d            ; 13b3 90 e9
 
A13b5:          XDC                      ; 13b5 2c
 
A13b5:          XDC                      ; 13b5 2c
                 LIS  $0                  ; 13b6 70
+
                 CLR                      ; 13b6 70
 
                 AM                      ; 13b7 88
 
                 AM                      ; 13b7 88
 
                 XDC                      ; 13b8 2c
 
                 XDC                      ; 13b8 2c
Line 2,362: Line 2,367:
 
                 LI  $40                ; 13c3 20 40
 
                 LI  $40                ; 13c3 20 40
 
                 LR  $4,A                ; 13c5 54
 
                 LR  $4,A                ; 13c5 54
                 LIS  $0                  ; 13c6 70
+
                 CLR                      ; 13c6 70
 
                 LR  $5,A                ; 13c7 55
 
                 LR  $5,A                ; 13c7 55
 
                 PI  A1924              ; 13c8 28 19 24
 
                 PI  A1924              ; 13c8 28 19 24
Line 2,399: Line 2,404:
 
                 LM                      ; 13f7 16
 
                 LM                      ; 13f7 16
 
                 LM                      ; 13f8 16
 
                 LM                      ; 13f8 16
                 LIS  $0                  ; 13f9 70
+
                 CLR                      ; 13f9 70
 
A13fa:          ST                      ; 13fa 17
 
A13fa:          ST                      ; 13fa 17
 
                 DS  $0                  ; 13fb 30
 
                 DS  $0                  ; 13fb 30
Line 2,426: Line 2,431:
 
                 DS  $0                  ; 1419 30
 
                 DS  $0                  ; 1419 30
 
                 BF  $4,A1413            ; 141a 94 f8
 
                 BF  $4,A1413            ; 141a 94 f8
                 LIS  $0                  ; 141c 70
+
                 CLR                      ; 141c 70
 
A141d:          LR  IS,A                ; 141d 0b
 
A141d:          LR  IS,A                ; 141d 0b
                 LIS  $0                  ; 141e 70
+
                 CLR                      ; 141e 70
                 LR  (IS),A             ; 141f 5c
+
                 LR  S, A               ; 141f 5c
 
                 LR  A,IS                ; 1420 0a
 
                 LR  A,IS                ; 1420 0a
 
                 AI  $c1                ; 1421 24 c1
 
                 AI  $c1                ; 1421 24 c1
Line 2,435: Line 2,440:
 
                 LISU 6                  ; 1425 66
 
                 LISU 6                  ; 1425 66
 
                 LI  $c1                ; 1426 20 c1
 
                 LI  $c1                ; 1426 20 c1
                 LR  (IS),A             ; 1428 5c
+
                 LR  S, A               ; 1428 5c
 
                 LISL 4                  ; 1429 6c
 
                 LISL 4                  ; 1429 6c
 
                 LIS  $1                  ; 142a 71
 
                 LIS  $1                  ; 142a 71
                 LR  (IS),A             ; 142b 5c
+
                 LR  S, A               ; 142b 5c
 
                 LISU 5                  ; 142c 65
 
                 LISU 5                  ; 142c 65
 
                 LI  $19                ; 142d 20 19
 
                 LI  $19                ; 142d 20 19
                 LR  (IS)+,A             ; 142f 5d
+
                 LR  I, A               ; 142f 5d
 
                 LI  $5f                ; 1430 20 5f
 
                 LI  $5f                ; 1430 20 5f
                 LR  (IS)+,A             ; 1432 5d
+
                 LR  I, A               ; 1432 5d
 
                 LI  $18                ; 1433 20 18
 
                 LI  $18                ; 1433 20 18
                 LR  (IS)+,A             ; 1435 5d
+
                 LR  I, A               ; 1435 5d
 
                 LI  $5e                ; 1436 20 5e
 
                 LI  $5e                ; 1436 20 5e
                 LR  (IS),A             ; 1438 5c
+
                 LR  S, A               ; 1438 5c
 
                 DCI  $2fc0              ; 1439 2a 2f c0
 
                 DCI  $2fc0              ; 1439 2a 2f c0
 
                 LR  Q,DC                ; 143c 0e
 
                 LR  Q,DC                ; 143c 0e
Line 2,460: Line 2,465:
 
                 LI  $3f                ; 1447 20 3f
 
                 LI  $3f                ; 1447 20 3f
 
                 NS  (IS)                ; 1449 fc
 
                 NS  (IS)                ; 1449 fc
                 LR  (IS),A             ; 144a 5c
+
                 LR  S, A               ; 144a 5c
 
                 BF  $0,A1454            ; 144b 90 08
 
                 BF  $0,A1454            ; 144b 90 08
 
A144d:          SL  1                  ; 144d 13
 
A144d:          SL  1                  ; 144d 13
Line 2,466: Line 2,471:
 
                 LR  A,(IS)              ; 1450 4c
 
                 LR  A,(IS)              ; 1450 4c
 
                 OI  $c0                ; 1451 22 c0
 
                 OI  $c0                ; 1451 22 c0
                 LR  (IS),A             ; 1453 5c
+
                 LR  S, A               ; 1453 5c
 
A1454:          DCI  A199f              ; 1454 2a 19 9f
 
A1454:          DCI  A199f              ; 1454 2a 19 9f
 
                 PI  A19d7              ; 1457 28 19 d7
 
                 PI  A19d7              ; 1457 28 19 d7
Line 2,487: Line 2,492:
 
                 LI  $80                ; 1478 20 80
 
                 LI  $80                ; 1478 20 80
 
                 XS  (IS)                ; 147a ec
 
                 XS  (IS)                ; 147a ec
                 LR  (IS),A             ; 147b 5c
+
                 LR  S, A               ; 147b 5c
 
                 PI  A15b5              ; 147c 28 15 b5
 
                 PI  A15b5              ; 147c 28 15 b5
 
A147f:          LISU 6                  ; 147f 66
 
A147f:          LISU 6                  ; 147f 66
Line 2,493: Line 2,498:
 
                 LIS  $1                  ; 1481 71
 
                 LIS  $1                  ; 1481 71
 
                 AS  (IS)                ; 1482 cc
 
                 AS  (IS)                ; 1482 cc
                 LR  (IS),A             ; 1483 5c
+
                 LR  S, A               ; 1483 5c
 
                 BF  $0,A1465            ; 1484 90 e0
 
                 BF  $0,A1465            ; 1484 90 e0
A1486:          DS  (IS)-              ; 1486 3e
+
A1486:          DS  D                  ; 1486 3e
 
                 LR  A,$1                ; 1487 41
 
                 LR  A,$1                ; 1487 41
 
                 LR  A,$0                ; 1488 40
 
                 LR  A,$0                ; 1488 40
 
                 LR  A,$0                ; 1489 40
 
                 LR  A,$0                ; 1489 40
                 DS  (IS)-              ; 148a 3e
+
                 DS  D                  ; 148a 3e
 
                 LR  A,KL                ; 148b 01
 
                 LR  A,KL                ; 148b 01
 
                 LR  A,KL                ; 148c 01
 
                 LR  A,KL                ; 148c 01
 
                 LR  A,$1                ; 148d 41
 
                 LR  A,$1                ; 148d 41
                 DS  (IS)-              ; 148e 3e
+
                 DS  D                  ; 148e 3e
                 DS  (IS)-              ; 148f 3e
+
                 DS  D                  ; 148f 3e
 
                 LR  A,$1                ; 1490 41
 
                 LR  A,$1                ; 1490 41
 
                 LR  A,$1                ; 1491 41
 
                 LR  A,$1                ; 1491 41
Line 2,522: Line 2,527:
 
                 LR  A,$1                ; 149f 41
 
                 LR  A,$1                ; 149f 41
 
                 LIS  $e                  ; 14a0 7e
 
                 LIS  $e                  ; 14a0 7e
                 DS  (IS)-              ; 14a1 3e
+
                 DS  D                  ; 14a1 3e
 
                 LR  A,$1                ; 14a2 41
 
                 LR  A,$1                ; 14a2 41
 
                 LR  A,$1                ; 14a3 41
 
                 LR  A,$1                ; 14a3 41
Line 2,540: Line 2,545:
 
                 LI  $20                ; 14b4 20 20
 
                 LI  $20                ; 14b4 20 20
 
                 LI  $70                ; 14b6 20 70
 
                 LI  $70                ; 14b6 20 70
                 LIS  $0                  ; 14b8 70
+
                 CLR                      ; 14b8 70
 
                 LR  A,$8                ; 14b9 48
 
                 LR  A,$8                ; 14b9 48
 
                 LR  A,$4                ; 14ba 44
 
                 LR  A,$4                ; 14ba 44
Line 2,546: Line 2,551:
 
                 LR  A,$4                ; 14bc 44
 
                 LR  A,$4                ; 14bc 44
 
                 LR  A,$8                ; 14bd 48
 
                 LR  A,$8                ; 14bd 48
                 LIS  $0                  ; 14be 70
+
                 CLR                      ; 14be 70
 
                 LIS  $c                  ; 14bf 7c
 
                 LIS  $c                  ; 14bf 7c
 
                 LR  A,$0                ; 14c0 40
 
                 LR  A,$0                ; 14c0 40
Line 2,727: Line 2,732:
 
                 NS  (IS)                ; 157c fc
 
                 NS  (IS)                ; 157c fc
 
                 XS  $0                  ; 157d e0
 
                 XS  $0                  ; 157d e0
                 LR  (IS),A             ; 157e 5c
+
                 LR  S, A               ; 157e 5c
 
                 JMP  A1465              ; 157f 29 14 65
 
                 JMP  A1465              ; 157f 29 14 65
 
A1582:          DCI  $28b0              ; 1582 2a 28 b0
 
A1582:          DCI  $28b0              ; 1582 2a 28 b0
Line 2,733: Line 2,738:
 
                 LISL 0                  ; 1588 68
 
                 LISL 0                  ; 1588 68
 
                 PI  A18cb              ; 1589 28 18 cb
 
                 PI  A18cb              ; 1589 28 18 cb
                 LIS  $0                  ; 158c 70
+
                 CLR                      ; 158c 70
 
                 ST                      ; 158d 17
 
                 ST                      ; 158d 17
 
                 LISU 4                  ; 158e 64
 
                 LISU 4                  ; 158e 64
 
                 LISL 2                  ; 158f 6a
 
                 LISL 2                  ; 158f 6a
 
                 LI  $28                ; 1590 20 28
 
                 LI  $28                ; 1590 20 28
                 LR  (IS)+,A             ; 1592 5d
+
                 LR  I, A               ; 1592 5d
 
                 LI  $ae                ; 1593 20 ae
 
                 LI  $ae                ; 1593 20 ae
                 LR  (IS),A             ; 1595 5c
+
                 LR  S, A               ; 1595 5c
 
                 PI  A0cff              ; 1596 28 0c ff
 
                 PI  A0cff              ; 1596 28 0c ff
 
                 LISU 2                  ; 1599 62
 
                 LISU 2                  ; 1599 62
Line 2,751: Line 2,756:
 
                 LR  A,(IS)              ; 15a0 4c
 
                 LR  A,(IS)              ; 15a0 4c
 
                 LISU 7                  ; 15a1 67
 
                 LISU 7                  ; 15a1 67
                 LR  (IS),A             ; 15a2 5c
+
                 LR  S, A               ; 15a2 5c
 
                 PI  A1ab4              ; 15a3 28 1a b4
 
                 PI  A1ab4              ; 15a3 28 1a b4
 
                 LISU 7                  ; 15a6 67
 
                 LISU 7                  ; 15a6 67
Line 2,763: Line 2,768:
 
                 LISL 4                  ; 15b0 6c
 
                 LISL 4                  ; 15b0 6c
 
                 LIS  $2                  ; 15b1 72
 
                 LIS  $2                  ; 15b1 72
                 LR  (IS),A             ; 15b2 5c
+
                 LR  S, A               ; 15b2 5c
 
                 BF  $0,A156a            ; 15b3 90 b6
 
                 BF  $0,A156a            ; 15b3 90 b6
 
A15b5:          LR  K,P                ; 15b5 08
 
A15b5:          LR  K,P                ; 15b5 08
 
                 PI  A131d              ; 15b6 28 13 1d
 
                 PI  A131d              ; 15b6 28 13 1d
                 DCI  $8000              ; 15b9 2a 80 00
+
                 DCI  $8000              ; 15b9 2a 80 00     Toggle LED
 
                 ST                      ; 15bc 17
 
                 ST                      ; 15bc 17
 
                 PI  A084b              ; 15bd 28 08 4b
 
                 PI  A084b              ; 15bd 28 08 4b
                 DCI  $3800              ; 15c0 2a 38 00
+
                 DCI  $3800              ; 15c0 2a 38 00     LED OFF
 
                 ST                      ; 15c3 17
 
                 ST                      ; 15c3 17
 
                 LISU 4                  ; 15c4 64
 
                 LISU 4                  ; 15c4 64
 
                 LISL 6                  ; 15c5 6e
 
                 LISL 6                  ; 15c5 6e
                 LR  A,(IS)+            ; 15c6 4d
+
                 LR  A,I                ; 15c6 4d
 
                 LR  $0,A                ; 15c7 50
 
                 LR  $0,A                ; 15c7 50
 
                 LR  A,(IS)              ; 15c8 4c
 
                 LR  A,(IS)              ; 15c8 4c
 
                 LISL 3                  ; 15c9 6b
 
                 LISL 3                  ; 15c9 6b
                 LR  (IS)-,A             ; 15ca 5e
+
                 LR  D, A               ; 15ca 5e
 
                 LR  A,$0                ; 15cb 40
 
                 LR  A,$0                ; 15cb 40
                 LR  (IS),A             ; 15cc 5c
+
                 LR  S, A               ; 15cc 5c
 
                 DCI  $28a3              ; 15cd 2a 28 a3
 
                 DCI  $28a3              ; 15cd 2a 28 a3
 
                 LIS  $1                  ; 15d0 71
 
                 LIS  $1                  ; 15d0 71
Line 2,793: Line 2,798:
 
                 LISU 4                  ; 15df 64
 
                 LISU 4                  ; 15df 64
 
                 LISL 6                  ; 15e0 6e
 
                 LISL 6                  ; 15e0 6e
                 LR  A,(IS)+            ; 15e1 4d
+
                 LR  A,I                ; 15e1 4d
 
                 LR  $0,A                ; 15e2 50
 
                 LR  $0,A                ; 15e2 50
 
                 LR  A,(IS)              ; 15e3 4c
 
                 LR  A,(IS)              ; 15e3 4c
 
                 LISL 3                  ; 15e4 6b
 
                 LISL 3                  ; 15e4 6b
                 LR  (IS)-,A             ; 15e5 5e
+
                 LR  D, A               ; 15e5 5e
 
                 LR  A,$0                ; 15e6 40
 
                 LR  A,$0                ; 15e6 40
                 LR  (IS),A             ; 15e7 5c
+
                 LR  S, A               ; 15e7 5c
 
                 PI  A0cff              ; 15e8 28 0c ff
 
                 PI  A0cff              ; 15e8 28 0c ff
 
                 PI  A0e0b              ; 15eb 28 0e 0b
 
                 PI  A0e0b              ; 15eb 28 0e 0b
                 LIS  $0                  ; 15ee 70
+
                 CLR                      ; 15ee 70
 
                 AS  $0                  ; 15ef c0
 
                 AS  $0                  ; 15ef c0
 
                 BT  4,A1613            ; 15f0 84 22
 
                 BT  4,A1613            ; 15f0 84 22
Line 2,810: Line 2,815:
 
                 LIS  $7                  ; 15f8 77
 
                 LIS  $7                  ; 15f8 77
 
                 LR  $2,A                ; 15f9 52
 
                 LR  $2,A                ; 15f9 52
                 LIS  $0                  ; 15fa 70
+
                 CLR                      ; 15fa 70
 
                 LR  $5,A                ; 15fb 55
 
                 LR  $5,A                ; 15fb 55
 
                 LISU 6                  ; 15fc 66
 
                 LISU 6                  ; 15fc 66
Line 2,868: Line 2,873:
 
                 LI  $c0                ; 1651 20 c0
 
                 LI  $c0                ; 1651 20 c0
 
                 XS  (IS)                ; 1653 ec
 
                 XS  (IS)                ; 1653 ec
                 LR  (IS),A             ; 1654 5c
+
                 LR  S, A               ; 1654 5c
 
                 PI  A15b5              ; 1655 28 15 b5
 
                 PI  A15b5              ; 1655 28 15 b5
 
                 LISU 6                  ; 1658 66
 
                 LISU 6                  ; 1658 66
Line 2,874: Line 2,879:
 
                 LI  $c0                ; 165a 20 c0
 
                 LI  $c0                ; 165a 20 c0
 
                 XS  (IS)                ; 165c ec
 
                 XS  (IS)                ; 165c ec
                 LR  (IS),A             ; 165d 5c
+
                 LR  S, A               ; 165d 5c
 
                 JMP  A1324              ; 165e 29 13 24
 
                 JMP  A1324              ; 165e 29 13 24
 
A1661:          DCI  $2fe2              ; 1661 2a 2f e2
 
A1661:          DCI  $2fe2              ; 1661 2a 2f e2
Line 2,895: Line 2,900:
 
                 LISL 2                  ; 167d 6a
 
                 LISL 2                  ; 167d 6a
 
                 LR  A,$a                ; 167e 4a
 
                 LR  A,$a                ; 167e 4a
                 LR  (IS)+,A             ; 167f 5d
+
                 LR  I, A               ; 167f 5d
 
                 LR  A,$b                ; 1680 4b
 
                 LR  A,$b                ; 1680 4b
                 LR  (IS),A             ; 1681 5c
+
                 LR  S, A               ; 1681 5c
 
                 PI  A0cff              ; 1682 28 0c ff
 
                 PI  A0cff              ; 1682 28 0c ff
 
                 PI  A0e0b              ; 1685 28 0e 0b
 
                 PI  A0e0b              ; 1685 28 0e 0b
                 LIS  $0                  ; 1688 70
+
                 CLR                      ; 1688 70
 
                 AS  $0                  ; 1689 c0
 
                 AS  $0                  ; 1689 c0
 
                 BF  $4,A16a6            ; 168a 94 1b
 
                 BF  $4,A16a6            ; 168a 94 1b
Line 2,913: Line 2,918:
 
                 LM                      ; 169b 16
 
                 LM                      ; 169b 16
 
                 LR  $b,A                ; 169c 5b
 
                 LR  $b,A                ; 169c 5b
                 LIS  $0                  ; 169d 70
+
                 CLR                      ; 169d 70
 
                 XS  $a                  ; 169e ea
 
                 XS  $a                  ; 169e ea
 
                 BT  4,A16a9            ; 169f 84 09
 
                 BT  4,A16a9            ; 169f 84 09
Line 2,924: Line 2,929:
 
                 LISL 0                  ; 16aa 68
 
                 LISL 0                  ; 16aa 68
 
                 LIS  $a                  ; 16ab 7a
 
                 LIS  $a                  ; 16ab 7a
                 LR  (IS),A             ; 16ac 5c
+
                 LR  S, A               ; 16ac 5c
 
A16ad:          DCI  A199f              ; 16ad 2a 19 9f
 
A16ad:          DCI  A199f              ; 16ad 2a 19 9f
 
                 PI  A19d7              ; 16b0 28 19 d7
 
                 PI  A19d7              ; 16b0 28 19 d7
Line 2,937: Line 2,942:
 
                 LISL 3                  ; 16c0 6b
 
                 LISL 3                  ; 16c0 6b
 
                 LIS  $2                  ; 16c1 72
 
                 LIS  $2                  ; 16c1 72
                 AS  (IS)-              ; 16c2 ce
+
                 AS  D                  ; 16c2 ce
 
                 LR  $b,A                ; 16c3 5b
 
                 LR  $b,A                ; 16c3 5b
 
                 LR  A,(IS)              ; 16c4 4c
 
                 LR  A,(IS)              ; 16c4 4c
Line 2,946: Line 2,951:
 
                 LISU 3                  ; 16cb 63
 
                 LISU 3                  ; 16cb 63
 
                 LISL 6                  ; 16cc 6e
 
                 LISL 6                  ; 16cc 6e
                 LR  (IS),A             ; 16cd 5c
+
                 LR  S, A               ; 16cd 5c
 
                 LI  $1e                ; 16ce 20 1e
 
                 LI  $1e                ; 16ce 20 1e
 
                 LR  $a,A                ; 16d0 5a
 
                 LR  $a,A                ; 16d0 5a
Line 2,956: Line 2,961:
 
                 LISL 3                  ; 16de 6b
 
                 LISL 3                  ; 16de 6b
 
                 LIS  $3                  ; 16df 73
 
                 LIS  $3                  ; 16df 73
                 AS  (IS)-              ; 16e0 ce
+
                 AS  D                  ; 16e0 ce
 
                 LR  $b,A                ; 16e1 5b
 
                 LR  $b,A                ; 16e1 5b
 
                 LR  A,(IS)              ; 16e2 4c
 
                 LR  A,(IS)              ; 16e2 4c
Line 2,965: Line 2,970:
 
                 LISU 3                  ; 16e9 63
 
                 LISU 3                  ; 16e9 63
 
                 LISL 7                  ; 16ea 6f
 
                 LISL 7                  ; 16ea 6f
                 LR  (IS),A             ; 16eb 5c
+
                 LR  S, A               ; 16eb 5c
 
                 LI  $1e                ; 16ec 20 1e
 
                 LI  $1e                ; 16ec 20 1e
 
                 LR  $a,A                ; 16ee 5a
 
                 LR  $a,A                ; 16ee 5a
Line 2,974: Line 2,979:
 
                 LISL 3                  ; 16f9 6b
 
                 LISL 3                  ; 16f9 6b
 
                 LIS  $2                  ; 16fa 72
 
                 LIS  $2                  ; 16fa 72
                 AS  (IS)-              ; 16fb ce
+
                 AS  D                  ; 16fb ce
 
                 LR  $b,A                ; 16fc 5b
 
                 LR  $b,A                ; 16fc 5b
 
                 LR  A,(IS)              ; 16fd 4c
 
                 LR  A,(IS)              ; 16fd 4c
Line 2,986: Line 2,991:
 
                 LISU 4                  ; 1709 64
 
                 LISU 4                  ; 1709 64
 
                 LISL 4                  ; 170a 6c
 
                 LISL 4                  ; 170a 6c
A170b:          LIS  $0                  ; 170b 70
+
A170b:          CLR                      ; 170b 70
 
                 AS  (IS)                ; 170c cc
 
                 AS  (IS)                ; 170c cc
 
                 LI  $21                ; 170d 20 21
 
                 LI  $21                ; 170d 20 21
Line 2,995: Line 3,000:
 
                 LR  $1,A                ; 1715 51
 
                 LR  $1,A                ; 1715 51
 
                 LI  $80                ; 1716 20 80
 
                 LI  $80                ; 1716 20 80
A1718:          LR  (IS),A             ; 1718 5c
+
A1718:          LR  S, A               ; 1718 5c
 
                 LIS  $7                  ; 1719 77
 
                 LIS  $7                  ; 1719 77
 
                 LISU 3                  ; 171a 63
 
                 LISU 3                  ; 171a 63
Line 3,006: Line 3,011:
 
                 LISL 3                  ; 1725 6b
 
                 LISL 3                  ; 1725 6b
 
                 LIS  $4                  ; 1726 74
 
                 LIS  $4                  ; 1726 74
                 AS  (IS)-              ; 1727 ce
+
                 AS  D                  ; 1727 ce
 
                 LR  $b,A                ; 1728 5b
 
                 LR  $b,A                ; 1728 5b
 
                 LR  A,(IS)              ; 1729 4c
 
                 LR  A,(IS)              ; 1729 4c
Line 3,021: Line 3,026:
 
                 LISL 6                  ; 1735 6e
 
                 LISL 6                  ; 1735 6e
 
                 PI  A18de              ; 1736 28 18 de
 
                 PI  A18de              ; 1736 28 18 de
                 LR  (IS)+,A             ; 1739 5d
+
                 LR  I, A               ; 1739 5d
 
                 PI  A18de              ; 173a 28 18 de
 
                 PI  A18de              ; 173a 28 18 de
 
                 LIS  $1                  ; 173d 71
 
                 LIS  $1                  ; 173d 71
Line 3,037: Line 3,042:
 
                 LI  $80                ; 174d 20 80
 
                 LI  $80                ; 174d 20 80
 
                 XS  (IS)                ; 174f ec
 
                 XS  (IS)                ; 174f ec
                 LR  (IS),A             ; 1750 5c
+
                 LR  S, A               ; 1750 5c
 
                 PI  A0e0b              ; 1751 28 0e 0b
 
                 PI  A0e0b              ; 1751 28 0e 0b
 
                 LISU 6                  ; 1754 66
 
                 LISU 6                  ; 1754 66
Line 3,043: Line 3,048:
 
                 LI  $80                ; 1756 20 80
 
                 LI  $80                ; 1756 20 80
 
                 XS  (IS)                ; 1758 ec
 
                 XS  (IS)                ; 1758 ec
                 LR  (IS),A             ; 1759 5c
+
                 LR  S, A               ; 1759 5c
                 LIS  $0                  ; 175a 70
+
                 CLR                      ; 175a 70
 
                 AS  $0                  ; 175b c0
 
                 AS  $0                  ; 175b c0
 
                 BF  $4,A1761            ; 175c 94 04
 
                 BF  $4,A1761            ; 175c 94 04
Line 3,051: Line 3,056:
 
                 LI  $5a                ; 1764 20 5a
 
                 LI  $5a                ; 1764 20 5a
 
                 LR  $0,A                ; 1766 50
 
                 LR  $0,A                ; 1766 50
                 LIS  $0                  ; 1767 70
+
                 CLR                      ; 1767 70
 
                 LR  $5,A                ; 1768 55
 
                 LR  $5,A                ; 1768 55
 
                 AS  (IS)                ; 1769 cc
 
                 AS  (IS)                ; 1769 cc
Line 3,080: Line 3,085:
 
                 LISU 4                  ; 1793 64
 
                 LISU 4                  ; 1793 64
 
                 LISL 5                  ; 1794 6d
 
                 LISL 5                  ; 1794 6d
                 LR  (IS),A             ; 1795 5c
+
                 LR  S, A               ; 1795 5c
 
                 DCI  A17c4              ; 1796 2a 17 c4
 
                 DCI  A17c4              ; 1796 2a 17 c4
 
                 LIS  $7                  ; 1799 77
 
                 LIS  $7                  ; 1799 77
                 NS  (IS)-              ; 179a fe
+
                 NS  D                  ; 179a fe
 
                 SL  4                  ; 179b 15
 
                 SL  4                  ; 179b 15
 
                 SR  1                  ; 179c 12
 
                 SR  1                  ; 179c 12
Line 3,094: Line 3,099:
 
                 LR  A,(IS)              ; 17a4 4c
 
                 LR  A,(IS)              ; 17a4 4c
 
                 LR  $4,A                ; 17a5 54
 
                 LR  $4,A                ; 17a5 54
                 LIS  $0                  ; 17a6 70
+
                 CLR                      ; 17a6 70
 
                 LR  $5,A                ; 17a7 55
 
                 LR  $5,A                ; 17a7 55
 
A17a8:          LIS  $1                  ; 17a8 71
 
A17a8:          LIS  $1                  ; 17a8 71
Line 3,102: Line 3,107:
 
                 LISL 5                  ; 17ae 6d
 
                 LISL 5                  ; 17ae 6d
 
                 LI  $38                ; 17af 20 38
 
                 LI  $38                ; 17af 20 38
                 NS  (IS)-              ; 17b1 fe
+
                 NS  D                  ; 17b1 fe
 
                 DCI  A1804              ; 17b2 2a 18 04
 
                 DCI  A1804              ; 17b2 2a 18 04
 
                 ADC                      ; 17b5 8e
 
                 ADC                      ; 17b5 8e
Line 3,109: Line 3,114:
 
                 LIS  $7                  ; 17b8 77
 
                 LIS  $7                  ; 17b8 77
 
                 LR  $3,A                ; 17b9 53
 
                 LR  $3,A                ; 17b9 53
                 LIS  $0                  ; 17ba 70
+
                 CLR                      ; 17ba 70
 
                 LR  $5,A                ; 17bb 55
 
                 LR  $5,A                ; 17bb 55
 
                 LIS  $1                  ; 17bc 71
 
                 LIS  $1                  ; 17bc 71
Line 3,284: Line 3,289:
 
A188f:          LISU 6                  ; 188f 66
 
A188f:          LISU 6                  ; 188f 66
 
                 LISL 4                  ; 1890 6c
 
                 LISL 4                  ; 1890 6c
                 LR  A,(IS)-            ; 1891 4e
+
                 LR  A,D                ; 1891 4e
 
                 XS  (IS)                ; 1892 ec
 
                 XS  (IS)                ; 1892 ec
 
                 BT  4,A1896            ; 1893 84 02
 
                 BT  4,A1896            ; 1893 84 02
Line 3,293: Line 3,298:
 
                 LIS  $7                  ; 189c 77
 
                 LIS  $7                  ; 189c 77
 
                 LR  $2,A                ; 189d 52
 
                 LR  $2,A                ; 189d 52
                 LIS  $0                  ; 189e 70
+
                 CLR                      ; 189e 70
 
                 LR  $5,A                ; 189f 55
 
                 LR  $5,A                ; 189f 55
 
                 LISU 6                  ; 18a0 66
 
                 LISU 6                  ; 18a0 66
Line 3,311: Line 3,316:
 
                 LIS  $1                  ; 18b5 71
 
                 LIS  $1                  ; 18b5 71
 
                 LR  $5,A                ; 18b6 55
 
                 LR  $5,A                ; 18b6 55
                 LIS  $0                  ; 18b7 70
+
                 CLR                      ; 18b7 70
 
                 LR  $6,A                ; 18b8 56
 
                 LR  $6,A                ; 18b8 56
 
                 LR  $7,A                ; 18b9 57
 
                 LR  $7,A                ; 18b9 57
Line 3,341: Line 3,346:
 
                 AM                      ; 18e0 88
 
                 AM                      ; 18e0 88
 
                 LR  $1,A                ; 18e1 51
 
                 LR  $1,A                ; 18e1 51
                 LIS  $0                  ; 18e2 70
+
                 CLR                      ; 18e2 70
 
A18e3:          LR  $0,A                ; 18e3 50
 
A18e3:          LR  $0,A                ; 18e3 50
 
                 LI  $f6                ; 18e4 20 f6
 
                 LI  $f6                ; 18e4 20 f6
Line 3,360: Line 3,365:
 
                 LR  A,(IS)              ; 18f8 4c
 
                 LR  A,(IS)              ; 18f8 4c
 
                 LISU 3                  ; 18f9 63
 
                 LISU 3                  ; 18f9 63
                 LR  (IS)+,A             ; 18fa 5d
+
                 LR  I, A               ; 18fa 5d
 
                 LISU 4                  ; 18fb 64
 
                 LISU 4                  ; 18fb 64
 
                 LR  A,(IS)              ; 18fc 4c
 
                 LR  A,(IS)              ; 18fc 4c
 
                 LISU 3                  ; 18fd 63
 
                 LISU 3                  ; 18fd 63
 
                 LISL 0                  ; 18fe 68
 
                 LISL 0                  ; 18fe 68
                 LR  (IS)-,A             ; 18ff 5e
+
                 LR  D, A               ; 18ff 5e
 
                 LISU 6                  ; 1900 66
 
                 LISU 6                  ; 1900 66
 
                 LI  $80                ; 1901 20 80
 
                 LI  $80                ; 1901 20 80
 
                 XS  (IS)                ; 1903 ec
 
                 XS  (IS)                ; 1903 ec
                 LR  (IS)+,A             ; 1904 5d
+
                 LR  I, A               ; 1904 5d
 
                 LISU 4                  ; 1905 64
 
                 LISU 4                  ; 1905 64
 
                 LI  $2f                ; 1906 20 2f
 
                 LI  $2f                ; 1906 20 2f
                 LR  (IS)+,A             ; 1908 5d
+
                 LR  I, A               ; 1908 5d
 
                 LI  $7e                ; 1909 20 7e
 
                 LI  $7e                ; 1909 20 7e
                 LR  (IS)+,A             ; 190b 5d
+
                 LR  I, A               ; 190b 5d
 
                 LISU 5                  ; 190c 65
 
                 LISU 5                  ; 190c 65
 
                 LI  $2c                ; 190d 20 2c
 
                 LI  $2c                ; 190d 20 2c
                 LR  (IS)+,A             ; 190f 5d
+
                 LR  I, A               ; 190f 5d
 
                 LI  $00                ; 1910 20 00
 
                 LI  $00                ; 1910 20 00
                 LR  (IS),A             ; 1912 5c
+
                 LR  S, A               ; 1912 5c
 
                 PI  A09d1              ; 1913 28 09 d1
 
                 PI  A09d1              ; 1913 28 09 d1
 
                 LISU 3                  ; 1916 63
 
                 LISU 3                  ; 1916 63
Line 3,385: Line 3,390:
 
                 LR  A,(IS)              ; 1918 4c
 
                 LR  A,(IS)              ; 1918 4c
 
                 LISU 4                  ; 1919 64
 
                 LISU 4                  ; 1919 64
                 LR  (IS),A             ; 191a 5c
+
                 LR  S, A               ; 191a 5c
 
                 LISU 3                  ; 191b 63
 
                 LISU 3                  ; 191b 63
 
                 LISL 0                  ; 191c 68
 
                 LISL 0                  ; 191c 68
Line 3,391: Line 3,396:
 
                 LISU 4                  ; 191e 64
 
                 LISU 4                  ; 191e 64
 
                 LISL 3                  ; 191f 6b
 
                 LISL 3                  ; 191f 6b
                 LR  (IS),A             ; 1920 5c
+
                 LR  S, A               ; 1920 5c
 
                 JMP  A1324              ; 1921 29 13 24
 
                 JMP  A1324              ; 1921 29 13 24
 
A1924:          LI  $40                ; 1924 20 40
 
A1924:          LI  $40                ; 1924 20 40
Line 3,401: Line 3,406:
 
                 LR  $4,A                ; 192c 54
 
                 LR  $4,A                ; 192c 54
 
                 LR  $6,A                ; 192d 56
 
                 LR  $6,A                ; 192d 56
                 LIS  $0                  ; 192e 70
+
                 CLR                      ; 192e 70
 
                 LR  $5,A                ; 192f 55
 
                 LR  $5,A                ; 192f 55
 
                 LIS  $1                  ; 1930 71
 
                 LIS  $1                  ; 1930 71
Line 3,415: Line 3,420:
 
                 LR  A,$2                ; 193c 42
 
                 LR  A,$2                ; 193c 42
 
                 LR  $7,A                ; 193d 57
 
                 LR  $7,A                ; 193d 57
A193e:          LIS  $0                  ; 193e 70
+
A193e:          CLR                      ; 193e 70
 
                 AS  $5                  ; 193f c5
 
                 AS  $5                  ; 193f c5
 
                 BF  $4,A194e            ; 1940 94 0d
 
                 BF  $4,A194e            ; 1940 94 0d
Line 3,429: Line 3,434:
 
A194e:          LR  A,$6                ; 194e 46
 
A194e:          LR  A,$6                ; 194e 46
 
                 OUTS 1                  ; 194f b1
 
                 OUTS 1                  ; 194f b1
                 LIS  $0                  ; 1950 70
+
                 CLR                      ; 1950 70
 
                 AS  $8                  ; 1951 c8
 
                 AS  $8                  ; 1951 c8
 
                 BF  $1,A195b            ; 1952 91 08
 
                 BF  $1,A195b            ; 1952 91 08
Line 3,472: Line 3,477:
 
                 DS  $3                  ; 1985 33
 
                 DS  $3                  ; 1985 33
 
                 BF  $4,A1939            ; 1986 94 b2
 
                 BF  $4,A1939            ; 1986 94 b2
                 LIS  $0                  ; 1988 70
+
                 CLR                      ; 1988 70
 
                 OUTS 0                  ; 1989 b0
 
                 OUTS 0                  ; 1989 b0
 
                 POP                      ; 198a 1c
 
                 POP                      ; 198a 1c
Line 3,489: Line 3,494:
 
                 AS  (IS)                ; 199a cc
 
                 AS  (IS)                ; 199a cc
 
                 AI  $59                ; 199b 24 59
 
                 AI  $59                ; 199b 24 59
                 LR  (IS),A             ; 199d 5c
+
                 LR  S, A               ; 199d 5c
 
                 POP                      ; 199e 1c
 
                 POP                      ; 199e 1c
 
A199f:          LR  A,KL                ; 199f 01
 
A199f:          LR  A,KL                ; 199f 01
Line 3,496: Line 3,501:
 
                 DS  $0                  ; 19a2 30
 
                 DS  $0                  ; 19a2 30
 
                 db  $ff                 
 
                 db  $ff                 
                 NS  (IS)-              ; 19a4 fe
+
                 NS  D                  ; 19a4 fe
 
                 LR  A,KU                ; 19a5 00
 
                 LR  A,KU                ; 19a5 00
 
A19a6:          INS  0                  ; 19a6 a0
 
A19a6:          INS  0                  ; 19a6 a0
Line 3,521: Line 3,526:
 
                 LI  $80                ; 19c6 20 80
 
                 LI  $80                ; 19c6 20 80
 
                 OUTS 5                  ; 19c8 b5
 
                 OUTS 5                  ; 19c8 b5
                 LIS  $0                  ; 19c9 70
+
                 CLR                      ; 19c9 70
 
A19ca:          INC                      ; 19ca 1f
 
A19ca:          INC                      ; 19ca 1f
 
                 BF  $4,A19ca            ; 19cb 94 fe
 
                 BF  $4,A19ca            ; 19cb 94 fe
 
                 OUTS 5                  ; 19cd b5
 
                 OUTS 5                  ; 19cd b5
A19ce:          LIS  $0                  ; 19ce 70
+
A19ce:          CLR                      ; 19ce 70
 
                 OUTS 1                  ; 19cf b1
 
                 OUTS 1                  ; 19cf b1
 
                 OUTS 4                  ; 19d0 b4
 
                 OUTS 4                  ; 19d0 b4
Line 3,534: Line 3,539:
 
                 COM                      ; 19d5 18
 
                 COM                      ; 19d5 18
 
                 POP                      ; 19d6 1c
 
                 POP                      ; 19d6 1c
A19d7:          LIS  $0                  ; 19d7 70
+
A19d7:          CLR                      ; 19d7 70
 
                 LR  $0,A                ; 19d8 50
 
                 LR  $0,A                ; 19d8 50
 
                 LR  $1,A                ; 19d9 51
 
                 LR  $1,A                ; 19d9 51
A19da:          LIS  $0                  ; 19da 70
+
A19da:          CLR                      ; 19da 70
 
                 AM                      ; 19db 88
 
                 AM                      ; 19db 88
 
                 BF  $4,A19df            ; 19dc 94 02
 
                 BF  $4,A19df            ; 19dc 94 02
Line 3,586: Line 3,591:
 
                 DS  (IS)                ; 1a0d 3c
 
                 DS  (IS)                ; 1a0d 3c
 
                 DS  $8                  ; 1a0e 38
 
                 DS  $8                  ; 1a0e 38
                 LR  (IS),A             ; 1a0f 5c
+
                 LR  S, A               ; 1a0f 5c
 
                 LIS  $e                  ; 1a10 7e
 
                 LIS  $e                  ; 1a10 7e
 
                 LISL 6                  ; 1a11 6e
 
                 LISL 6                  ; 1a11 6e
                 LR  A,(IS)-            ; 1a12 4e
+
                 LR  A,D                ; 1a12 4e
 
                 PK                      ; 1a13 0c
 
                 PK                      ; 1a13 0c
 
                 POP                      ; 1a14 1c
 
                 POP                      ; 1a14 1c
Line 3,595: Line 3,600:
 
                 OI  $36                ; 1a16 22 36
 
                 OI  $36                ; 1a16 22 36
 
                 LR  K,P                ; 1a18 08
 
                 LR  K,P                ; 1a18 08
                 DS  (IS)-              ; 1a19 3e
+
                 DS  D                  ; 1a19 3e
 
                 LR  $a,A                ; 1a1a 5a
 
                 LR  $a,A                ; 1a1a 5a
 
                 LIS  $e                  ; 1a1b 7e
 
                 LIS  $e                  ; 1a1b 7e
Line 3,605: Line 3,610:
 
                 DCI  $0055              ; 1a21 2a 00 55
 
                 DCI  $0055              ; 1a21 2a 00 55
 
                 LIS  $f                  ; 1a24 7f
 
                 LIS  $f                  ; 1a24 7f
                 DS  (IS)-              ; 1a25 3e
+
                 DS  D                  ; 1a25 3e
 
                 LR  K,P                ; 1a26 08
 
                 LR  K,P                ; 1a26 08
 
                 POP                      ; 1a27 1c
 
                 POP                      ; 1a27 1c
 
                 LR  K,P                ; 1a28 08
 
                 LR  K,P                ; 1a28 08
 
                 OI  $7f                ; 1a29 22 7f
 
                 OI  $7f                ; 1a29 22 7f
                 DS  (IS)-              ; 1a2b 3e
+
                 DS  D                  ; 1a2b 3e
 
A1a2c:          LR  K,P                ; 1a2c 08
 
A1a2c:          LR  K,P                ; 1a2c 08
 
                 PI  A19a6              ; 1a2d 28 19 a6
 
                 PI  A19a6              ; 1a2d 28 19 a6
 
                 LR  $3,A                ; 1a30 53
 
                 LR  $3,A                ; 1a30 53
                 LIS  $0                  ; 1a31 70
+
                 CLR                      ; 1a31 70
 
                 LR  $1,A                ; 1a32 51
 
                 LR  $1,A                ; 1a32 51
 
                 LR  $2,A                ; 1a33 52
 
                 LR  $2,A                ; 1a33 52
Line 3,703: Line 3,708:
 
                 CI  $09                ; 1a9e 25 09
 
                 CI  $09                ; 1a9e 25 09
 
                 BT  4,A1aa4            ; 1aa0 84 03
 
                 BT  4,A1aa4            ; 1aa0 84 03
                 LIS  $0                  ; 1aa2 70
+
                 CLR                      ; 1aa2 70
 
                 LR  $4,A                ; 1aa3 54
 
                 LR  $4,A                ; 1aa3 54
 
A1aa4:          DCI  A19f9              ; 1aa4 2a 19 f9
 
A1aa4:          DCI  A19f9              ; 1aa4 2a 19 f9
Line 3,747: Line 3,752:
 
                 LISU 3                  ; 1ad6 63
 
                 LISU 3                  ; 1ad6 63
 
                 LISL 0                  ; 1ad7 68
 
                 LISL 0                  ; 1ad7 68
                 LR  (IS),A             ; 1ad8 5c
+
                 LR  S, A               ; 1ad8 5c
 
                 LI  $40                ; 1ad9 20 40
 
                 LI  $40                ; 1ad9 20 40
 
                 LR  $4,A                ; 1adb 54
 
                 LR  $4,A                ; 1adb 54
Line 3,755: Line 3,760:
 
                 CI  $09                ; 1ae0 25 09
 
                 CI  $09                ; 1ae0 25 09
 
                 BT  4,A1ae6            ; 1ae2 84 03
 
                 BT  4,A1ae6            ; 1ae2 84 03
                 LIS  $0                  ; 1ae4 70
+
                 CLR                      ; 1ae4 70
 
                 LR  $4,A                ; 1ae5 54
 
                 LR  $4,A                ; 1ae5 54
 
A1ae6:          LIS  $a                  ; 1ae6 7a
 
A1ae6:          LIS  $a                  ; 1ae6 7a
Line 3,777: Line 3,782:
 
                 DCI  $2808              ; 1afd 2a 28 08
 
                 DCI  $2808              ; 1afd 2a 28 08
 
                 ADC                      ; 1b00 8e
 
                 ADC                      ; 1b00 8e
                 LIS  $0                  ; 1b01 70
+
                 CLR                      ; 1b01 70
 
                 AM                      ; 1b02 88
 
                 AM                      ; 1b02 88
 
                 BT  4,A1b08            ; 1b03 84 04
 
                 BT  4,A1b08            ; 1b03 84 04
 
                 LISU 4                  ; 1b05 64
 
                 LISU 4                  ; 1b05 64
 
                 LISL 4                  ; 1b06 6c
 
                 LISL 4                  ; 1b06 6c
                 LR  (IS),A             ; 1b07 5c
+
                 LR  S, A               ; 1b07 5c
 
A1b08:          LR  $1,A                ; 1b08 51
 
A1b08:          LR  $1,A                ; 1b08 51
 
                 NI  $80                ; 1b09 21 80
 
                 NI  $80                ; 1b09 21 80
Line 3,831: Line 3,836:
 
                 LR  $5,A                ; 1b49 55
 
                 LR  $5,A                ; 1b49 55
 
                 PI  A1924              ; 1b4a 28 19 24
 
                 PI  A1924              ; 1b4a 28 19 24
                 LIS  $0                  ; 1b4d 70
+
                 CLR                      ; 1b4d 70
 
                 LR  $0,A                ; 1b4e 50
 
                 LR  $0,A                ; 1b4e 50
 
                 LIS  $2                  ; 1b4f 72
 
                 LIS  $2                  ; 1b4f 72
Line 3,844: Line 3,849:
 
                 LR  $5,A                ; 1b5c 55
 
                 LR  $5,A                ; 1b5c 55
 
                 PI  A1924              ; 1b5d 28 19 24
 
                 PI  A1924              ; 1b5d 28 19 24
                 LIS  $0                  ; 1b60 70
+
                 CLR                      ; 1b60 70
 
                 LISU 3                  ; 1b61 63
 
                 LISU 3                  ; 1b61 63
 
                 LISL 2                  ; 1b62 6a
 
                 LISL 2                  ; 1b62 6a
                 LR  (IS),A             ; 1b63 5c
+
                 LR  S, A               ; 1b63 5c
 
                 BF  $0,A1b6d            ; 1b64 90 08
 
                 BF  $0,A1b6d            ; 1b64 90 08
 
A1b66:          LISU 3                  ; 1b66 63
 
A1b66:          LISU 3                  ; 1b66 63
Line 3,855: Line 3,860:
 
                 LISU 3                  ; 1b6a 63
 
                 LISU 3                  ; 1b6a 63
 
                 LISL 2                  ; 1b6b 6a
 
                 LISL 2                  ; 1b6b 6a
                 LR  (IS),A             ; 1b6c 5c
+
                 LR  S, A               ; 1b6c 5c
 
A1b6d:          CI  $3f                ; 1b6d 25 3f
 
A1b6d:          CI  $3f                ; 1b6d 25 3f
 
                 BF  $1,A1b79            ; 1b6f 91 09
 
                 BF  $1,A1b79            ; 1b6f 91 09
 
                 LR  $b,A                ; 1b71 5b
 
                 LR  $b,A                ; 1b71 5b
                 LIS  $0                  ; 1b72 70
+
                 CLR                      ; 1b72 70
 
                 LR  $a,A                ; 1b73 5a
 
                 LR  $a,A                ; 1b73 5a
 
                 PI  A1ab4              ; 1b74 28 1a b4
 
                 PI  A1ab4              ; 1b74 28 1a b4
Line 3,870: Line 3,875:
 
                 LISU 2                  ; 1b83 62
 
                 LISU 2                  ; 1b83 62
 
                 LISL 2                  ; 1b84 6a
 
                 LISL 2                  ; 1b84 6a
                 LR  (IS),A             ; 1b85 5c
+
                 LR  S, A               ; 1b85 5c
 
A1b86:          PI  A19a6              ; 1b86 28 19 a6
 
A1b86:          PI  A19a6              ; 1b86 28 19 a6
 
                 NI  $80                ; 1b89 21 80
 
                 NI  $80                ; 1b89 21 80
Line 3,891: Line 3,896:
 
                 LISU 2                  ; 1ba1 62
 
                 LISU 2                  ; 1ba1 62
 
                 LISL 2                  ; 1ba2 6a
 
                 LISL 2                  ; 1ba2 6a
                 LR  (IS),A             ; 1ba3 5c
+
                 LR  S, A               ; 1ba3 5c
 
                 LI  $fe                ; 1ba4 20 fe
 
                 LI  $fe                ; 1ba4 20 fe
 
                 LR  $3,A                ; 1ba6 53
 
                 LR  $3,A                ; 1ba6 53
Line 3,913: Line 3,918:
 
                 LR  A,(IS)              ; 1bc6 4c
 
                 LR  A,(IS)              ; 1bc6 4c
 
                 LISL 0                  ; 1bc7 68
 
                 LISL 0                  ; 1bc7 68
                 LR  (IS),A             ; 1bc8 5c
+
                 LR  S, A               ; 1bc8 5c
 
A1bc9:          PI  A19a6              ; 1bc9 28 19 a6
 
A1bc9:          PI  A19a6              ; 1bc9 28 19 a6
 
                 NI  $80                ; 1bcc 21 80
 
                 NI  $80                ; 1bcc 21 80
Line 3,941: Line 3,946:
 
                 LISU 2                  ; 1bed 62
 
                 LISU 2                  ; 1bed 62
 
                 LISL 0                  ; 1bee 68
 
                 LISL 0                  ; 1bee 68
                 LR  (IS),A             ; 1bef 5c
+
                 LR  S, A               ; 1bef 5c
 
                 LI  $32                ; 1bf0 20 32
 
                 LI  $32                ; 1bf0 20 32
 
                 LR  $3,A                ; 1bf2 53
 
                 LR  $3,A                ; 1bf2 53
Line 4,039: Line 4,044:
 
                 .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
 
                 .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
 
                 .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff             
 
                 .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff             
 
  
 
</pre>
 
</pre>

Revision as of 16:54, 12 September 2024

Template:Incomplete Disassembly

This is the complete disassembly of the SABA Videoplay 20 made with Peter Trauner's f8tool.
Original code is most likely copyright © SABA.

This cartridge differs from other videocarts by its LED and the use of IRQ. It uses the 3853 SMI, logic circuitry, 2KB RAM and plain masked ROM.
LED is controlled with A15 and a low signal when in the memory area $3800-$3FFF (also starting at $7800, $B800 and $F800) by using a JK flip-flop.
Writing to $3800 turns LED off, toggle A15 from high to low toggles LED.

Reset: equ $0000

org $0800

CartridgeStart: LR   $5,A                ; 0800 55
                NOP                      ; 0801 2b
CartridgeEntry: JMP  A132e               ; 0802 29 13 2e    
                JMP  A131d               ; 0805 29 13 1d
                JMP  A1324               ; 0808 29 13 24

			; Data
A080b:          LR   KU,A                ; 080b 04
                LR   A,QU                ; 080c 02
                LR   A,QL                ; 080d 03
                LR   KL,A                ; 080e 05
                LR   QU,A                ; 080f 06
                LR   A,QL                ; 0810 03
                LR   A,QU                ; 0811 02
                LR   KU,A                ; 0812 04
A0813:          LR   KU,A                ; 0813 04
                LR   KU,A                ; 0814 04
                LR   K,P                 ; 0815 08
                LR   KU,A                ; 0816 04
                LR   KU,A                ; 0817 04
                LR   K,P                 ; 0818 08
                LR   K,P                 ; 0819 08
A081a:          SR   4                   ; 081a 14
                LR   DC,H                ; 081b 10
                LR   K,P                 ; 081c 08
                LR   A,KU                ; 081d 00
                LR   KU,A                ; 081e 04
                LR   A,KU                ; 081f 00
A0820:          LR   A,KU                ; 0820 00
                LR   A,KL                ; 0821 01
                LR   A,QL                ; 0822 03
                LR   A,QL                ; 0823 03
                LR   KL,A                ; 0824 05
A0825:          LR   P,K                 ; 0825 09
                LR   A,IS                ; 0826 0a
                XI   $37                 ; 0827 23 37
                LR   DC,H                ; 0829 10
                OI   $36                 ; 082a 22 36
                LR   DC,H                ; 082c 10
                LR   $5,A                ; 082d 55
                LR   A,$1                ; 082e 41
                LR   DC,H                ; 082f 10
                LR   $4,A                ; 0830 54
                LR   A,$0                ; 0831 40
                LR   DC,H                ; 0832 10
A0833:          LR   P,K                 ; 0833 09
                LR   IS,A                ; 0834 0b
                NS   $5                  ; 0835 f5
                NS   $7                  ; 0836 f7
                LR   A,IS                ; 0837 0a
                NS   $6                  ; 0838 f6
                LR   A,KL                ; 0839 01
                db   $ff                 
                XS   $b                  ; 083b eb
                NS   $4                  ; 083c f4
                LR   K,P                 ; 083d 08
                SL   1                   ; 083e 13
                SL   4                   ; 083f 15
                PK                       ; 0840 0c
                NS   $8                  ; 0841 f8
                XS   I                   ; 0842 ed
                LR   A,IS                ; 0843 0a
                LR   A,IS                ; 0844 0a
                LR   IS,A                ; 0845 0b
                LR   P,K                 ; 0846 09
                NS   $6                  ; 0847 f6
                NS   $6                  ; 0848 f6
                NS   $5                  ; 0849 f5
                NS   $7                  ; 084a f7
A084b:          LR   K,P                 ; 084b 08
                PI   A131d               ; 084c 28 13 1d
                LISU 6                   ; 084f 66
                LISL 4                   ; 0850 6c
                LIS  $1                  ; 0851 71
                XS   (IS)                ; 0852 ec
                BF   $4,A0858            ; 0853 94 04
                JMP  A10cc               ; 0855 29 10 cc
A0858:          CLR                      ; 0858 70
                LISL 6                   ; 0859 6e
                LR   S, A                ; 085a 5c
                LISU 4                   ; 085b 64
                LR   I, A                ; 085c 5d
                LR   S, A                ; 085d 5c
                LISU 5                   ; 085e 65
                LISL 3                   ; 085f 6b
                LI   $ae                 ; 0860 20 ae
                LR   D, A                ; 0862 5e
                LI   $28                 ; 0863 20 28
                LR   D, A                ; 0865 5e
                LISU 4                   ; 0866 64
                LI   $7e                 ; 0867 20 7e
                LR   D, A                ; 0869 5e
                LI   $2f                 ; 086a 20 2f
                LR   D, A                ; 086c 5e
                LISU 6                   ; 086d 66
                LR   A,(IS)              ; 086e 4c
                SL   1                   ; 086f 13
                SR   1                   ; 0870 12
                LR   $0,A                ; 0871 50
                LI   $40                 ; 0872 20 40
                NS   (IS)                ; 0874 fc
                SL   1                   ; 0875 13
                XS   $0                  ; 0876 e0
                LR   S, A                ; 0877 5c
                LISU 4                   ; 0878 64
                LISL 4                   ; 0879 6c
                LI   $28                 ; 087a 20 28
                LR   I, A                ; 087c 5d
                LI   $a2                 ; 087d 20 a2
                LR   S, A                ; 087f 5c
                LIS  $f                  ; 0880 7f
                LR   $1,A                ; 0881 51
                CLR                      ; 0882 70
                DCI  $28a2               ; 0883 2a 28 a2
A0886:          ST                       ; 0886 17
                DS   $1                  ; 0887 31
                BF   $4,A0886            ; 0888 94 fd
                LISU 7                   ; 088a 67
                LR   I, A                ; 088b 5d
                LR   S, A                ; 088c 5c
                PI   A0c12               ; 088d 28 0c 12
                PI   A1111               ; 0890 28 11 11
                LISU 7                   ; 0893 67
                LISL 0                   ; 0894 68
                LR   A,(IS)              ; 0895 4c
                LISL 5                   ; 0896 6d
                LR   D, A                ; 0897 5e
                LR   A,(IS)              ; 0898 4c
                LISL 6                   ; 0899 6e
                LR   S, A                ; 089a 5c
A089b:          LISU 6                   ; 089b 66
                LISL 6                   ; 089c 6e
                LR   A,(IS)              ; 089d 4c
                INC                      ; 089e 1f
                LR   I, A                ; 089f 5d
                LI   $df                 ; 08a0 20 df
                NS   (IS)                ; 08a2 fc
                LR   S, A                ; 08a3 5c
                PI   A09d1               ; 08a4 28 09 d1
                LISU 6                   ; 08a7 66
                LISL 7                   ; 08a8 6f
                LIS  $f                  ; 08a9 7f
                NS   D                   ; 08aa fe
                COM                      ; 08ab 18
                INC                      ; 08ac 1f
                AS   (IS)                ; 08ad cc
                BT   1,A08b3             ; 08ae 81 04
                PI   A1023               ; 08b0 28 10 23
A08b3:          LISU 4                   ; 08b3 64
                LISL 0                   ; 08b4 68
                LR   A,I                 ; 08b5 4d
                LR   $0,A                ; 08b6 50
                LR   A,I                 ; 08b7 4d
                LR   $1,A                ; 08b8 51
                LR   A,$0                ; 08b9 40
                LR   I, A                ; 08ba 5d
                LR   A,$1                ; 08bb 41
                LR   S, A                ; 08bc 5c
A08bd:          LISU 4                   ; 08bd 64
                LISL 2                   ; 08be 6a
                LR   A,I                 ; 08bf 4d
                LR   $a,A                ; 08c0 5a
                LR   A,D                 ; 08c1 4e
                LR   $b,A                ; 08c2 5b
                LR   DC,H                ; 08c3 10
                CLR                      ; 08c4 70
                AM                       ; 08c5 88
                BT   4,A093a             ; 08c6 84 73
                LR   I, A                ; 08c8 5d
                LM                       ; 08c9 16
                LR   D, A                ; 08ca 5e
                LISL 1                   ; 08cb 69
                LR   A,D                 ; 08cc 4e
                LR   $b,A                ; 08cd 5b
                LR   A,(IS)              ; 08ce 4c
                LR   $a,A                ; 08cf 5a
                LR   DC,H                ; 08d0 10
                LISL 2                   ; 08d1 6a
                LR   A,I                 ; 08d2 4d
                ST                       ; 08d3 17
                LR   A,(IS)              ; 08d4 4c
                ST                       ; 08d5 17
                LISU 6                   ; 08d6 66
                LISL 7                   ; 08d7 6f
                LIS  $f                  ; 08d8 7f
                NS   D                   ; 08d9 fe
                COM                      ; 08da 18
                INC                      ; 08db 1f
                AS   (IS)                ; 08dc cc
                BF   $1,A0908            ; 08dd 91 2a
                PI   A0cff               ; 08df 28 0c ff
                PI   A0e0b               ; 08e2 28 0e 0b
                CLR                      ; 08e5 70
                AS   $0                  ; 08e6 c0
                BT   4,A08ee             ; 08e7 84 06
                PI   A0d7e               ; 08e9 28 0d 7e
                BF   $0,A08bd            ; 08ec 90 d0
A08ee:          LISU 6                   ; 08ee 66
                LISL 7                   ; 08ef 6f
                LIS  $f                  ; 08f0 7f
                NS   D                   ; 08f1 fe
                XS   I                   ; 08f2 ed
                BF   $4,A096a            ; 08f3 94 76
                LI   $80                 ; 08f5 20 80
                XS   (IS)                ; 08f7 ec
                LR   S, A                ; 08f8 5c
                PI   A0e0b               ; 08f9 28 0e 0b
                LISU 6                   ; 08fc 66
                LISL 7                   ; 08fd 6f
                LI   $80                 ; 08fe 20 80
                XS   (IS)                ; 0900 ec
                LR   S, A                ; 0901 5c
                CLR                      ; 0902 70
                AS   $0                  ; 0903 c0
                BT   4,A096a             ; 0904 84 65
                BF   $0,A0918            ; 0906 90 11
A0908:          LISU 4                   ; 0908 64
                LISL 3                   ; 0909 6b
                LIS  $5                  ; 090a 75
                AS   D                   ; 090b ce
                LR   $b,A                ; 090c 5b
                LR   A,(IS)              ; 090d 4c
                LNK                      ; 090e 19
                LR   $a,A                ; 090f 5a
                LR   DC,H                ; 0910 10
                CLR                      ; 0911 70
                CM                       ; 0912 8d
                BT   4,A08bd             ; 0913 84 a9
                PI   A0cff               ; 0915 28 0c ff
A0918:          LISU 6                   ; 0918 66
                LISL 7                   ; 0919 6f
                LI   $80                 ; 091a 20 80
                XS   (IS)                ; 091c ec
                LR   S, A                ; 091d 5c
                LISL 4                   ; 091e 6c
                BF   $1,A0924            ; 091f 91 04
                LIS  $1                  ; 0921 71
                AS   (IS)                ; 0922 cc
                LR   S, A                ; 0923 5c
A0924:          LISU 4                   ; 0924 64
                LR   A,I                 ; 0925 4d
                LR   $a,A                ; 0926 5a
                LR   A,(IS)              ; 0927 4c
                LR   $b,A                ; 0928 5b
                LR   DC,H                ; 0929 10
                LM                       ; 092a 16
                LR   $a,A                ; 092b 5a
                LM                       ; 092c 16
                LR   A,$a                ; 092d 4a
                ST                       ; 092e 17
                LI   $fe                 ; 092f 20 fe
                ADC                      ; 0931 8e
                LR   H,DC                ; 0932 11
                LR   A,$b                ; 0933 4b
                LR   D, A                ; 0934 5e
                LR   A,$a                ; 0935 4a
                LR   S, A                ; 0936 5c
                JMP  A089b               ; 0937 29 08 9b
A093a:          LISU 6                   ; 093a 66
                LISL 7                   ; 093b 6f
                LI   $20                 ; 093c 20 20
                NS   (IS)                ; 093e fc
                BF   $4,A0951            ; 093f 94 11
                LI   $10                 ; 0941 20 10
                NS   (IS)                ; 0943 fc
                LI   $80                 ; 0944 20 80
                LR   $0,A                ; 0946 50
                BT   4,A0977             ; 0947 84 2f
                LISL 4                   ; 0949 6c
                LR   A,D                 ; 094a 4e
                LR   S, A                ; 094b 5c
                LI   $ff                 ; 094c 20 ff
                LR   $0,A                ; 094e 50
                BF   $0,A0977            ; 094f 90 27
A0951:          LISU 6                   ; 0951 66
                LISL 6                   ; 0952 6e
                LIS  $1                  ; 0953 71
                XS   (IS)                ; 0954 ec
                BF   $4,A095a            ; 0955 94 04
                JMP  A1324               ; 0957 29 13 24
A095a:          PI   A0f9f               ; 095a 28 0f 9f
                LISU 4                   ; 095d 64
                LISL 5                   ; 095e 6d
                LIS  $2                  ; 095f 72
                AS   D                   ; 0960 ce
                LR   $b,A                ; 0961 5b
                LR   A,(IS)              ; 0962 4c
                LNK                      ; 0963 19
                LR   $a,A                ; 0964 5a
                LR   DC,H                ; 0965 10
                LM                       ; 0966 16
                LR   $0,A                ; 0967 50
                BF   $0,A097d            ; 0968 90 14
A096a:          PI   A0c12               ; 096a 28 0c 12
                PI   A1111               ; 096d 28 11 11
                PI   A0d7e               ; 0970 28 0d 7e
                LISU 6                   ; 0973 66
                LISL 5                   ; 0974 6d
                LR   A,(IS)              ; 0975 4c
                LR   $0,A                ; 0976 50
A0977:          LISU 6                   ; 0977 66
                LISL 7                   ; 0978 6f
                LR   A,(IS)              ; 0979 4c
                OI   $20                 ; 097a 22 20
                LR   S, A                ; 097c 5c
A097d:          LISU 4                   ; 097d 64
                LISL 4                   ; 097e 6c
                LR   A,I                 ; 097f 4d
                LR   $a,A                ; 0980 5a
                LR   A,(IS)              ; 0981 4c
                LR   $b,A                ; 0982 5b
                LR   DC,H                ; 0983 10
                LR   A,$0                ; 0984 40
                CM                       ; 0985 8d
                BT   2,A09cb             ; 0986 82 44
                COM                      ; 0988 18
                INC                      ; 0989 1f
                CM                       ; 098a 8d
                BF   $2,A0990            ; 098b 92 04
                JMP  A08bd               ; 098d 29 08 bd
A0990:          LI   $ff                 ; 0990 20 ff
                ADC                      ; 0992 8e
                LR   A,$0                ; 0993 40
                COM                      ; 0994 18
                INC                      ; 0995 1f
                ST                       ; 0996 17
                LISU 6                   ; 0997 66
                LISL 6                   ; 0998 6e
                LIS  $1                  ; 0999 71
                XS   (IS)                ; 099a ec
                BT   4,A09a0             ; 099b 84 04
                JMP  A08bd               ; 099d 29 08 bd
A09a0:          LISU 4                   ; 09a0 64
                LISL 2                   ; 09a1 6a
                LR   A,(IS)              ; 09a2 4c
                LISL 6                   ; 09a3 6e
                LR   S, A                ; 09a4 5c
                LISL 3                   ; 09a5 6b
                LR   A,(IS)              ; 09a6 4c
                LISL 7                   ; 09a7 6f
                LR   S, A                ; 09a8 5c
                DCI  $28a3               ; 09a9 2a 28 a3
                LM                       ; 09ac 16
                INC                      ; 09ad 1f
                BT   4,A09b3             ; 09ae 84 04
                JMP  A08bd               ; 09b0 29 08 bd
A09b3:          LISU 6                   ; 09b3 66
                LISL 7                   ; 09b4 6f
                LIS  $f                  ; 09b5 7f
                NS   (IS)                ; 09b6 fc
                AI   $fe                 ; 09b7 24 fe
                LR   $0,A                ; 09b9 50
                LI   $f0                 ; 09ba 20 f0
                NS   (IS)                ; 09bc fc
                XS   $0                  ; 09bd e0
                LR   S, A                ; 09be 5c
                LR   A,(IS)              ; 09bf 4c
                SL   1                   ; 09c0 13
                BT   1,A09c6             ; 09c1 81 04
                JMP  A1324               ; 09c3 29 13 24
A09c6:          LISL 3                   ; 09c6 6b
                DS   (IS)                ; 09c7 3c
                JMP  A1324               ; 09c8 29 13 24
A09cb:          PI   A0f9f               ; 09cb 28 0f 9f
                JMP  A08bd               ; 09ce 29 08 bd
A09d1:          LR   K,P                 ; 09d1 08
                PI   A131d               ; 09d2 28 13 1d
                LISU 6                   ; 09d5 66
                LISL 7                   ; 09d6 6f
                CLR                      ; 09d7 70
                AS   (IS)                ; 09d8 cc
                LISU 5                   ; 09d9 65
                LISL 4                   ; 09da 6c
                BT   1,A09de             ; 09db 81 02
                LISL 5                   ; 09dd 6d
A09de:          LR   A,(IS)              ; 09de 4c
                LISU 2                   ; 09df 62
                LISL 5                   ; 09e0 6d
                LR   D, A                ; 09e1 5e
                LISU 6                   ; 09e2 66
                LISL 0                   ; 09e3 68
                DCI  $2808               ; 09e4 2a 28 08
                ADC                      ; 09e7 8e
                LM                       ; 09e8 16
                LR   I, A                ; 09e9 5d
                LISU 3                   ; 09ea 63
                LIS  $6                  ; 09eb 76
                LR   S, A                ; 09ec 5c
                PI   A0e24               ; 09ed 28 0e 24
                LISU 6                   ; 09f0 66
                LISL 7                   ; 09f1 6f
                LI   $ef                 ; 09f2 20 ef
                NS   (IS)                ; 09f4 fc
                LR   S, A                ; 09f5 5c
                CLR                      ; 09f6 70
                AS   $0                  ; 09f7 c0
                BT   4,A09fe             ; 09f8 84 05
                LI   $10                 ; 09fa 20 10
                XS   (IS)                ; 09fc ec
                LR   S, A                ; 09fd 5c
A09fe:          LISU 4                   ; 09fe 64
                LISL 0                   ; 09ff 68
                LR   A,I                 ; 0a00 4d
                LR   $a,A                ; 0a01 5a
                LR   A,I                 ; 0a02 4d
                LR   $b,A                ; 0a03 5b
                LR   DC,H                ; 0a04 10
                LIS  $2                  ; 0a05 72
                ADC                      ; 0a06 8e
                LISU 5                   ; 0a07 65
                LR   A,I                 ; 0a08 4d
                ST                       ; 0a09 17
                LR   A,(IS)              ; 0a0a 4c
                ST                       ; 0a0b 17
                LR   H,DC                ; 0a0c 11
                LISL 0                   ; 0a0d 68
                LR   A,$a                ; 0a0e 4a
                LR   S, A                ; 0a0f 5c
                LISU 4                   ; 0a10 64
                LR   I, A                ; 0a11 5d
                LR   A,$b                ; 0a12 4b
                LR   S, A                ; 0a13 5c
                LISU 5                   ; 0a14 65
                LR   S, A                ; 0a15 5c
                LI   $15                 ; 0a16 20 15
                LISU 2                   ; 0a18 62
                LISL 1                   ; 0a19 69
                LR   S, A                ; 0a1a 5c
A0a1b:          DCI  $2808               ; 0a1b 2a 28 08
                LR   A,(IS)              ; 0a1e 4c
                ADC                      ; 0a1f 8e
                CLR                      ; 0a20 70
                AM                       ; 0a21 88
                BF   $4,A0a27            ; 0a22 94 04
A0a24:          JMP  A0c03               ; 0a24 29 0c 03
A0a27:          CI   $ff                 ; 0a27 25 ff
                BT   4,A0a24             ; 0a29 84 fa
                LISU 6                   ; 0a2b 66
                LISL 0                   ; 0a2c 68
                LR   D, A                ; 0a2d 5e
                XS   I                   ; 0a2e ed
                BF   $1,A0a24            ; 0a2f 91 f4
                LI   $87                 ; 0a31 20 87
                NS   I                   ; 0a33 fd
                CI   $81                 ; 0a34 25 81
                BF   $4,A0a39            ; 0a36 94 02
                CLR                      ; 0a38 70
A0a39:          NI   $07                 ; 0a39 21 07
                LISU 3                   ; 0a3b 63
                LR   S, A                ; 0a3c 5c
                DCI  A0813               ; 0a3d 2a 08 13
                ADC                      ; 0a40 8e
                LM                       ; 0a41 16
                LR   $1,A                ; 0a42 51
                DCI  A081a               ; 0a43 2a 08 1a
                LR   A,(IS)              ; 0a46 4c
                ADC                      ; 0a47 8e
                LM                       ; 0a48 16
                LR   $5,A                ; 0a49 55
A0a4a:          DCI  A0833               ; 0a4a 2a 08 33
                LR   A,$5                ; 0a4d 45
                ADC                      ; 0a4e 8e
                LM                       ; 0a4f 16
                LR   $2,A                ; 0a50 52
                LISU 2                   ; 0a51 62
                LISL 1                   ; 0a52 69
                LR   A,(IS)              ; 0a53 4c
                LISL 3                   ; 0a54 6b
                LR   S, A                ; 0a55 5c
A0a56:          LISU 2                   ; 0a56 62
                LISL 3                   ; 0a57 6b
                LR   A,(IS)              ; 0a58 4c
                AS   $2                  ; 0a59 c2
                LR   S, A                ; 0a5a 5c
                DCI  $2808               ; 0a5b 2a 28 08
                ADC                      ; 0a5e 8e
                LM                       ; 0a5f 16
                CI   $ff                 ; 0a60 25 ff
                BT   4,A0a90             ; 0a62 84 2d
                LISU 6                   ; 0a64 66
                LISL 7                   ; 0a65 6f
                LR   $0,A                ; 0a66 50
                NS   $0                  ; 0a67 f0
                BT   4,A0a6d             ; 0a68 84 04
                XS   (IS)                ; 0a6a ec
                BT   1,A0a90             ; 0a6b 81 24
A0a6d:          LISL 1                   ; 0a6d 69
                LR   A,$0                ; 0a6e 40
                LR   S, A                ; 0a6f 5c
                LIS  $7                  ; 0a70 77
                NS   (IS)                ; 0a71 fc
                LR   $0,A                ; 0a72 50
                LISU 3                   ; 0a73 63
                LISL 3                   ; 0a74 6b
                LR   S, A                ; 0a75 5c
                LISL 1                   ; 0a76 69
                LR   A,(IS)              ; 0a77 4c
                CI   $01                 ; 0a78 25 01
                BF   $1,A0a7f            ; 0a7a 91 04
                JMP  A0b32               ; 0a7c 29 0b 32
A0a7f:          PI   A0fd8               ; 0a7f 28 0f d8
                CLR                      ; 0a82 70
                AS   $0                  ; 0a83 c0
                BF   $4,A0a90            ; 0a84 94 0b
                LISU 3                   ; 0a86 63
                LISL 1                   ; 0a87 69
                LIS  $6                  ; 0a88 76
                XS   (IS)                ; 0a89 ec
                BT   4,A0a90             ; 0a8a 84 05
                LIS  $2                  ; 0a8c 72
                XS   (IS)                ; 0a8d ec
                BF   $4,A0a56            ; 0a8e 94 c7
A0a90:          LIS  $1                  ; 0a90 71
                AS   $5                  ; 0a91 c5
                LR   $5,A                ; 0a92 55
                DS   $1                  ; 0a93 31
                BF   $4,A0a4a            ; 0a94 94 b5
                LISU 3                   ; 0a96 63
                LISL 1                   ; 0a97 69
                LIS  $6                  ; 0a98 76
                XS   D                   ; 0a99 ee
                BT   4,A0a9f             ; 0a9a 84 04
                JMP  A0c03               ; 0a9c 29 0c 03
A0a9f:          LISU 6                   ; 0a9f 66
                LIS  $8                  ; 0aa0 78
                NS   D                   ; 0aa1 fe
                BT   4,A0aa7             ; 0aa2 84 04
A0aa4:          JMP  A0c03               ; 0aa4 29 0c 03
A0aa7:          LI   $10                 ; 0aa7 20 10
                NS   (IS)                ; 0aa9 fc
                BF   $4,A0aa4            ; 0aaa 94 f9
                LI   $ff                 ; 0aac 20 ff
                LR   $1,A                ; 0aae 51
                LIS  $3                  ; 0aaf 73
                LR   $2,A                ; 0ab0 52
A0ab1:          LISU 2                   ; 0ab1 62
                LISL 1                   ; 0ab2 69
                LR   A,(IS)              ; 0ab3 4c
                AS   $2                  ; 0ab4 c2
                LR   $2,A                ; 0ab5 52
                LISL 5                   ; 0ab6 6d
                LR   S, A                ; 0ab7 5c
                DCI  $2808               ; 0ab8 2a 28 08
                ADC                      ; 0abb 8e
                LM                       ; 0abc 16
                SL   1                   ; 0abd 13
                SR   1                   ; 0abe 12
                CI   $04                 ; 0abf 25 04
                BF   $4,A0b23            ; 0ac1 94 61
                LR   A,$2                ; 0ac3 42
                BF   $0,A0ae4            ; 0ac4 90 1f
A0ac6:          LISU 2                   ; 0ac6 62
                LISL 5                   ; 0ac7 6d
                DCI  $2808               ; 0ac8 2a 28 08
                LR   A,(IS)              ; 0acb 4c
                ADC                      ; 0acc 8e
                CLR                      ; 0acd 70
                AM                       ; 0ace 88
                BF   $4,A0b23            ; 0acf 94 53
                LR   A,(IS)              ; 0ad1 4c
                CI   $16                 ; 0ad2 25 16
                BT   4,A0ae4             ; 0ad4 84 0f
                CI   $5c                 ; 0ad6 25 5c
                BT   4,A0ae4             ; 0ad8 84 0b
                PI   A0e24               ; 0ada 28 0e 24
                CLR                      ; 0add 70
                AS   $0                  ; 0ade c0
                BF   $4,A0b23            ; 0adf 94 43
                LISU 2                   ; 0ae1 62
                LISL 5                   ; 0ae2 6d
                LR   A,(IS)              ; 0ae3 4c
A0ae4:          AS   $1                  ; 0ae4 c1
                LISU 2                   ; 0ae5 62
                LISL 5                   ; 0ae6 6d
                LR   S, A                ; 0ae7 5c
                LISL 1                   ; 0ae8 69
                XS   (IS)                ; 0ae9 ec
                BF   $4,A0ac6            ; 0aea 94 db
                LR   A,$1                ; 0aec 41
                COM                      ; 0aed 18
                INC                      ; 0aee 1f
                LR   $0,A                ; 0aef 50
                AS   (IS)                ; 0af0 cc
                AS   $0                  ; 0af1 c0
                LISL 3                   ; 0af2 6b
                LR   S, A                ; 0af3 5c
                LISU 6                   ; 0af4 66
                LISL 1                   ; 0af5 69
                LI   $40                 ; 0af6 20 40
                LR   S, A                ; 0af8 5c
                PI   A0fd8               ; 0af9 28 0f d8
                LR   A,$1                ; 0afc 41
                COM                      ; 0afd 18
                INC                      ; 0afe 1f
                LISU 2                   ; 0aff 62
                LISL 1                   ; 0b00 69
                AS   (IS)                ; 0b01 cc
                LISL 3                   ; 0b02 6b
                LR   S, A                ; 0b03 5c
                LISL 1                   ; 0b04 69
                LR   A,$2                ; 0b05 42
                LR   S, A                ; 0b06 5c
                LISU 6                   ; 0b07 66
                CLR                      ; 0b08 70
                LR   S, A                ; 0b09 5c
                PI   A0fd8               ; 0b0a 28 0f d8
                LISU 5                   ; 0b0d 65
                LISL 1                   ; 0b0e 69
                LI   $fa                 ; 0b0f 20 fa
                AS   (IS)                ; 0b11 cc
                LR   D, A                ; 0b12 5e
                BT   2,A0b16             ; 0b13 82 02
                DS   (IS)                ; 0b15 3c
A0b16:          LR   A,I                 ; 0b16 4d
                LR   $a,A                ; 0b17 5a
                LR   A,(IS)              ; 0b18 4c
                LR   $b,A                ; 0b19 5b
                LR   DC,H                ; 0b1a 10
                CLR                      ; 0b1b 70
                ST                       ; 0b1c 17
                ST                       ; 0b1d 17
                LISU 2                   ; 0b1e 62
                LISL 5                   ; 0b1f 6d
                LR   A,(IS)              ; 0b20 4c
                LISL 1                   ; 0b21 69
                LR   S, A                ; 0b22 5c
A0b23:          LR   A,$1                ; 0b23 41
                INC                      ; 0b24 1f
                BT   4,A0b2a             ; 0b25 84 04
                JMP  A0c03               ; 0b27 29 0c 03
A0b2a:          LI   $fc                 ; 0b2a 20 fc
                LR   $2,A                ; 0b2c 52
                LIS  $1                  ; 0b2d 71
                LR   $1,A                ; 0b2e 51
                JMP  A0ab1               ; 0b2f 29 0a b1
A0b32:          LR   A,$1                ; 0b32 41
                CI   $03                 ; 0b33 25 03
                BF   $1,A0b3b            ; 0b35 91 05
                BT   4,A0b66             ; 0b37 84 2e
                BF   $0,A0b70            ; 0b39 90 36
A0b3b:          CLR                      ; 0b3b 70
                AS   $0                  ; 0b3c c0
                BT   4,A0b42             ; 0b3d 84 04
                JMP  A0a90               ; 0b3f 29 0a 90
A0b42:          LISU 2                   ; 0b42 62
                LISL 3                   ; 0b43 6b
                LR   A,(IS)              ; 0b44 4c
                CI   $5a                 ; 0b45 25 5a
                BF   $2,A0b4d            ; 0b47 92 05
                CI   $1c                 ; 0b49 25 1c
                BF   $2,A0b53            ; 0b4b 92 07
A0b4d:          LISU 6                   ; 0b4d 66
                LISL 1                   ; 0b4e 69
                LR   A,(IS)              ; 0b4f 4c
                OI   $20                 ; 0b50 22 20
                LR   S, A                ; 0b52 5c
A0b53:          PI   A0fd8               ; 0b53 28 0f d8
                LIS  $1                  ; 0b56 71
                AS   $5                  ; 0b57 c5
                LR   $5,A                ; 0b58 55
                DS   $1                  ; 0b59 31
                LISU 6                   ; 0b5a 66
                LISL 0                   ; 0b5b 68
                LIS  $8                  ; 0b5c 78
                NS   (IS)                ; 0b5d fc
                BT   4,A0b63             ; 0b5e 84 04
A0b60:          JMP  A0a90               ; 0b60 29 0a 90
A0b63:          JMP  A0a56               ; 0b63 29 0a 56
A0b66:          CLR                      ; 0b66 70
                AS   $0                  ; 0b67 c0
                BF   $4,A0b60            ; 0b68 94 f7
A0b6a:          PI   A0fd8               ; 0b6a 28 0f d8
                JMP  A0a90               ; 0b6d 29 0a 90
A0b70:          CLR                      ; 0b70 70
                AS   $0                  ; 0b71 c0
                BT   4,A0b87             ; 0b72 84 14
                LISU 2                   ; 0b74 62
                LISL 3                   ; 0b75 6b
                LR   A,(IS)              ; 0b76 4c
                CI   $5a                 ; 0b77 25 5a
                BF   $2,A0b7f            ; 0b79 92 05
                CI   $1c                 ; 0b7b 25 1c
                BF   $2,A0b6a            ; 0b7d 92 ec
A0b7f:          LISU 6                   ; 0b7f 66
                LISL 1                   ; 0b80 69
                LR   A,(IS)              ; 0b81 4c
                OI   $20                 ; 0b82 22 20
                LR   S, A                ; 0b84 5c
                BF   $0,A0b6a            ; 0b85 90 e4
A0b87:          LISU 6                   ; 0b87 66
                LISL 0                   ; 0b88 68
                CLR                      ; 0b89 70
                AS   I                   ; 0b8a cd
                LISU 2                   ; 0b8b 62
                LR   A,(IS)              ; 0b8c 4c
                BT   1,A0b91             ; 0b8d 81 03
                AI   $0a                 ; 0b8f 24 0a
A0b91:          CI   $3c                 ; 0b91 25 3c
                BF   $2,A0b98            ; 0b93 92 04
A0b95:          JMP  A0a90               ; 0b95 29 0a 90
A0b98:          CI   $44                 ; 0b98 25 44
                BF   $2,A0b95            ; 0b9a 92 fa
                LISU 4                   ; 0b9c 64
                LISL 2                   ; 0b9d 6a
                LR   A,I                 ; 0b9e 4d
                LR   $a,A                ; 0b9f 5a
                LR   A,(IS)              ; 0ba0 4c
                LR   $b,A                ; 0ba1 5b
                LR   DC,H                ; 0ba2 10
                LIS  $4                  ; 0ba3 74
                ADC                      ; 0ba4 8e
                LM                       ; 0ba5 16
                SR   1                   ; 0ba6 12
                SL   4                   ; 0ba7 15
                BT   1,A0b95             ; 0ba8 81 ec
                LI   $fe                 ; 0baa 20 fe
                ADC                      ; 0bac 8e
                LM                       ; 0bad 16
                DCI  $2808               ; 0bae 2a 28 08
                LISU 2                   ; 0bb1 62
                LISL 7                   ; 0bb2 6f
                LR   S, A                ; 0bb3 5c
                ADC                      ; 0bb4 8e
                LM                       ; 0bb5 16
                LISU 6                   ; 0bb6 66
                LISL 2                   ; 0bb7 6a
                LR   S, A                ; 0bb8 5c
                LIS  $7                  ; 0bb9 77
                NS   (IS)                ; 0bba fc
                CI   $01                 ; 0bbb 25 01
                BF   $4,A0b95            ; 0bbd 94 d7
                LISU 2                   ; 0bbf 62
                LISL 3                   ; 0bc0 6b
                LR   A,(IS)              ; 0bc1 4c
                COM                      ; 0bc2 18
                INC                      ; 0bc3 1f
                LISL 7                   ; 0bc4 6f
                AS   (IS)                ; 0bc5 cc
                BT   1,A0bca             ; 0bc6 81 03
                COM                      ; 0bc8 18
                INC                      ; 0bc9 1f
A0bca:          CI   $0a                 ; 0bca 25 0a
                BF   $4,A0b95            ; 0bcc 94 c8
                LISU 6                   ; 0bce 66
                LISL 1                   ; 0bcf 69
                LR   A,(IS)              ; 0bd0 4c
                OI   $40                 ; 0bd1 22 40
                LR   S, A                ; 0bd3 5c
                PI   A0fd8               ; 0bd4 28 0f d8
                LISU 2                   ; 0bd7 62
                LISL 1                   ; 0bd8 69
                LR   A,(IS)              ; 0bd9 4c
                LISL 5                   ; 0bda 6d
                LR   S, A                ; 0bdb 5c
                LISL 7                   ; 0bdc 6f
                LR   A,(IS)              ; 0bdd 4c
                LISL 1                   ; 0bde 69
                LR   S, A                ; 0bdf 5c
                LISL 3                   ; 0be0 6b
                LR   S, A                ; 0be1 5c
                LISU 6                   ; 0be2 66
                LISL 2                   ; 0be3 6a
                LR   A,D                 ; 0be4 4e
                LR   S, A                ; 0be5 5c
                PI   A0fd8               ; 0be6 28 0f d8
                LISU 2                   ; 0be9 62
                LISL 5                   ; 0bea 6d
                LR   A,(IS)              ; 0beb 4c
                LISL 1                   ; 0bec 69
                LR   S, A                ; 0bed 5c
                LISU 5                   ; 0bee 65
                LISL 0                   ; 0bef 68
                LR   A,I                 ; 0bf0 4d
                LR   $a,A                ; 0bf1 5a
                LR   A,(IS)              ; 0bf2 4c
                LR   $b,A                ; 0bf3 5b
                LR   DC,H                ; 0bf4 10
                LI   $fa                 ; 0bf5 20 fa
                ADC                      ; 0bf7 8e
                LR   H,DC                ; 0bf8 11
                LR   A,$b                ; 0bf9 4b
                LR   D, A                ; 0bfa 5e
                LR   A,$a                ; 0bfb 4a
                LR   S, A                ; 0bfc 5c
                CLR                      ; 0bfd 70
                ST                       ; 0bfe 17
                ST                       ; 0bff 17
                JMP  A0a90               ; 0c00 29 0a 90
A0c03:          LISU 2                   ; 0c03 62
                LISL 1                   ; 0c04 69
                LIS  $1                  ; 0c05 71
                AS   (IS)                ; 0c06 cc
                LR   S, A                ; 0c07 5c
                CI   $63                 ; 0c08 25 63
                BT   4,A0c0f             ; 0c0a 84 04
                JMP  A0a1b               ; 0c0c 29 0a 1b
A0c0f:          JMP  A1324               ; 0c0f 29 13 24
A0c12:          LR   K,P                 ; 0c12 08
                PI   A131d               ; 0c13 28 13 1d
                LISU 3                   ; 0c16 63
                LISL 7                   ; 0c17 6f
                CLR                      ; 0c18 70
                LR   S, A                ; 0c19 5c
                LI   $2c                 ; 0c1a 20 2c
                LR   $3,A                ; 0c1c 53
                LR   A,$3                ; 0c1d 43
A0c1e:          LR   IS,A                ; 0c1e 0b
                NI   $07                 ; 0c1f 21 07
                BF   $4,A0c26            ; 0c21 94 04
                JMP  A1324               ; 0c23 29 13 24
A0c26:          CLR                      ; 0c26 70
                AS   (IS)                ; 0c27 cc
                BF   $4,A0c2f            ; 0c28 94 06
A0c2a:          LIS  $1                  ; 0c2a 71
                AS   $3                  ; 0c2b c3
                LR   $3,A                ; 0c2c 53
                BF   $0,A0c1e            ; 0c2d 90 f0
A0c2f:          LISU 2                   ; 0c2f 62
                LISL 5                   ; 0c30 6d
                LR   S, A                ; 0c31 5c
                DCI  $2808               ; 0c32 2a 28 08
                ADC                      ; 0c35 8e
                LM                       ; 0c36 16
                LISU 6                   ; 0c37 66
                LISL 0                   ; 0c38 68
                LR   S, A                ; 0c39 5c
                LIS  $8                  ; 0c3a 78
                LR   $1,A                ; 0c3b 51
                CLR                      ; 0c3c 70
                LR   $5,A                ; 0c3d 55
A0c3e:          LISU 2                   ; 0c3e 62
                LISL 5                   ; 0c3f 6d
                LR   A,(IS)              ; 0c40 4c
                LISL 3                   ; 0c41 6b
                LR   S, A                ; 0c42 5c
                LISL 7                   ; 0c43 6f
                CLR                      ; 0c44 70
                LR   S, A                ; 0c45 5c
                DCI  A0833               ; 0c46 2a 08 33
                LR   A,$5                ; 0c49 45
                ADC                      ; 0c4a 8e
                LM                       ; 0c4b 16
                LR   $2,A                ; 0c4c 52
A0c4d:          LISL 3                   ; 0c4d 6b
                LR   A,$2                ; 0c4e 42
                AS   (IS)                ; 0c4f cc
                LR   S, A                ; 0c50 5c
                DCI  $2808               ; 0c51 2a 28 08
                ADC                      ; 0c54 8e
                CLR                      ; 0c55 70
                AM                       ; 0c56 88
                BT   4,A0c4d             ; 0c57 84 f5
                CI   $ff                 ; 0c59 25 ff
                BF   $4,A0c65            ; 0c5b 94 09
A0c5d:          LR   A,$5                ; 0c5d 45
                INC                      ; 0c5e 1f
                LR   $5,A                ; 0c5f 55
                DS   $1                  ; 0c60 31
                BF   $4,A0c3e            ; 0c61 94 dc
                BF   $0,A0c2a            ; 0c63 90 c6
A0c65:          LR   $0,A                ; 0c65 50
                LISU 6                   ; 0c66 66
                LISL 0                   ; 0c67 68
                XS   (IS)                ; 0c68 ec
                LISU 2                   ; 0c69 62
                LISL 7                   ; 0c6a 6f
                BT   1,A0c89             ; 0c6b 81 1d
                CLR                      ; 0c6d 70
                AS   (IS)                ; 0c6e cc
                BT   4,A0c5d             ; 0c6f 84 ed
                LIS  $7                  ; 0c71 77
                NS   $0                  ; 0c72 f0
                CI   $05                 ; 0c73 25 05
                BT   4,A0c93             ; 0c75 84 1d
                LR   $0,A                ; 0c77 50
                LR   A,$1                ; 0c78 41
                CI   $05                 ; 0c79 25 05
                BT   2,A0c83             ; 0c7b 82 07
                LIS  $3                  ; 0c7d 73
                XS   $0                  ; 0c7e e0
                BF   $4,A0c5d            ; 0c7f 94 dd
                BF   $0,A0ce8            ; 0c81 90 66
A0c83:          LIS  $4                  ; 0c83 74
                XS   $0                  ; 0c84 e0
                BF   $4,A0c5d            ; 0c85 94 d7
                BF   $0,A0ce8            ; 0c87 90 60
A0c89:          CLR                      ; 0c89 70
                AS   (IS)                ; 0c8a cc
                BF   $4,A0c5d            ; 0c8b 94 d1
                LISL 3                   ; 0c8d 6b
                LR   A,(IS)              ; 0c8e 4c
                LISL 7                   ; 0c8f 6f
                LR   S, A                ; 0c90 5c
                BF   $0,A0c4d            ; 0c91 90 bb
A0c93:          LISU 6                   ; 0c93 66
                LISL 0                   ; 0c94 68
                LIS  $7                  ; 0c95 77
                NS   (IS)                ; 0c96 fc
                CI   $05                 ; 0c97 25 05
                BF   $4,A0ce8            ; 0c99 94 4e
                DCI  $2ff8               ; 0c9b 2a 2f f8
                LR   A,$1                ; 0c9e 41
                ST                       ; 0c9f 17
                LR   A,$2                ; 0ca0 42
                ST                       ; 0ca1 17
                LR   A,$3                ; 0ca2 43
                ST                       ; 0ca3 17
                LR   A,$4                ; 0ca4 44
                ST                       ; 0ca5 17
                LR   A,$5                ; 0ca6 45
                ST                       ; 0ca7 17
                LIS  $e                  ; 0ca8 7e
                LR   $0,A                ; 0ca9 50
                CLR                      ; 0caa 70
                DCI  $2880               ; 0cab 2a 28 80
A0cae:          ST                       ; 0cae 17
                DS   $0                  ; 0caf 30
                BF   $4,A0cae            ; 0cb0 94 fd
                LISU 3                   ; 0cb2 63
                LISL 1                   ; 0cb3 69
                LIS  $7                  ; 0cb4 77
                LR   S, A                ; 0cb5 5c
                PI   A0e24               ; 0cb6 28 0e 24
                LISU 6                   ; 0cb9 66
                LISL 0                   ; 0cba 68
                CLR                      ; 0cbb 70
                AS   (IS)                ; 0cbc cc
                DCI  $2880               ; 0cbd 2a 28 80
                BT   1,A0cc5             ; 0cc0 81 04
                DCI  $2887               ; 0cc2 2a 28 87
A0cc5:          XDC                      ; 0cc5 2c
                DCI  $2887               ; 0cc6 2a 28 87
                BT   1,A0cce             ; 0cc9 81 04
                DCI  $2880               ; 0ccb 2a 28 80
A0cce:          LM                       ; 0cce 16
                COM                      ; 0ccf 18
                INC                      ; 0cd0 1f
                XDC                      ; 0cd1 2c
                AM                       ; 0cd2 88
                AI   $ff                 ; 0cd3 24 ff
                LR   $0,A                ; 0cd5 50
                DCI  $2ff8               ; 0cd6 2a 2f f8
                LM                       ; 0cd9 16
                LR   $1,A                ; 0cda 51
                LM                       ; 0cdb 16
                LR   $2,A                ; 0cdc 52
                LM                       ; 0cdd 16
                LR   $3,A                ; 0cde 53
                LM                       ; 0cdf 16
                LR   $4,A                ; 0ce0 54
                LM                       ; 0ce1 16
                LR   $5,A                ; 0ce2 55
                BF   $1,A0ce8            ; 0ce3 91 04
                JMP  A0c5d               ; 0ce5 29 0c 5d
A0ce8:          LISU 3                   ; 0ce8 63
                LISL 7                   ; 0ce9 6f
                LR   A,(IS)              ; 0cea 4c
                INC                      ; 0ceb 1f
                LR   S, A                ; 0cec 5c
                DCI  $2897               ; 0ced 2a 28 97
                ADC                      ; 0cf0 8e
                LR   A,$2                ; 0cf1 42
                ST                       ; 0cf2 17
                LR   A,(IS)              ; 0cf3 4c
                LISU 2                   ; 0cf4 62
                LISL 7                   ; 0cf5 6f
                DCI  $288d               ; 0cf6 2a 28 8d
                ADC                      ; 0cf9 8e
                LR   A,(IS)              ; 0cfa 4c
                ST                       ; 0cfb 17
                JMP  A0c5d               ; 0cfc 29 0c 5d
A0cff:          LISU 4                   ; 0cff 64
                LISL 3                   ; 0d00 6b
                LR   A,D                 ; 0d01 4e
                LR   $b,A                ; 0d02 5b
                LR   A,(IS)              ; 0d03 4c
                LR   $a,A                ; 0d04 5a
                LR   DC,H                ; 0d05 10
                LM                       ; 0d06 16
                LM                       ; 0d07 16
A0d08:          LISU 2                   ; 0d08 62
                LISL 1                   ; 0d09 69
                LM                       ; 0d0a 16
                LR   S, A                ; 0d0b 5c
                LM                       ; 0d0c 16
                LISL 3                   ; 0d0d 6b
                LR   S, A                ; 0d0e 5c
                LM                       ; 0d0f 16
                LR   $3,A                ; 0d10 53
                LISL 1                   ; 0d11 69
                LR   A,(IS)              ; 0d12 4c
                DCI  $2808               ; 0d13 2a 28 08
                ADC                      ; 0d16 8e
                LR   H,DC                ; 0d17 11
                LM                       ; 0d18 16
                LR   $4,A                ; 0d19 54
                LR   A,$3                ; 0d1a 43
                SL   1                   ; 0d1b 13
                SL   1                   ; 0d1c 13
                BF   $1,A0d4e            ; 0d1d 91 30
                LIS  $7                  ; 0d1f 77
                NS   $4                  ; 0d20 f4
                CI   $05                 ; 0d21 25 05
                BT   4,A0d54             ; 0d23 84 30
                CI   $06                 ; 0d25 25 06
                BT   4,A0d67             ; 0d27 84 3f
A0d29:          DCI  $2808               ; 0d29 2a 28 08
                LISU 2                   ; 0d2c 62
                LISL 3                   ; 0d2d 6b
                LR   A,(IS)              ; 0d2e 4c
                ADC                      ; 0d2f 8e
                CLR                      ; 0d30 70
                AS   $4                  ; 0d31 c4
                BT   4,A0d36             ; 0d32 84 03
                OI   $08                 ; 0d34 22 08
A0d36:          ST                       ; 0d36 17
                LR   DC,H                ; 0d37 10
                CLR                      ; 0d38 70
                ST                       ; 0d39 17
                LR   A,$3                ; 0d3a 43
                SL   1                   ; 0d3b 13
                BF   $1,A0d73            ; 0d3c 91 36
                LIS  $7                  ; 0d3e 77
                NS   $3                  ; 0d3f f3
                CI   $05                 ; 0d40 25 05
                BF   $4,A0d4d            ; 0d42 94 0a
                LISU 5                   ; 0d44 65
                LISL 6                   ; 0d45 6e
                CLR                      ; 0d46 70
                AS   $3                  ; 0d47 c3
                BT   1,A0d4b             ; 0d48 81 02
                LISL 7                   ; 0d4a 6f
A0d4b:          CLR                      ; 0d4b 70
                LR   S, A                ; 0d4c 5c
A0d4d:          POP                      ; 0d4d 1c
A0d4e:          LR   A,$4                ; 0d4e 44
                OI   $04                 ; 0d4f 22 04
                LR   $4,A                ; 0d51 54
                BF   $0,A0d29            ; 0d52 90 d6
A0d54:          LISU 5                   ; 0d54 65
                LISL 6                   ; 0d55 6e
A0d56:          CLR                      ; 0d56 70
                AS   $4                  ; 0d57 c4
                BT   1,A0d5b             ; 0d58 81 02
                LR   A,I                 ; 0d5a 4d
A0d5b:          LR   A,IS                ; 0d5b 0a
                LR   $0,A                ; 0d5c 50
                LISU 2                   ; 0d5d 62
                LISL 3                   ; 0d5e 6b
                LR   A,(IS)              ; 0d5f 4c
                LR   $1,A                ; 0d60 51
                LR   A,$0                ; 0d61 40
                LR   IS,A                ; 0d62 0b
                LR   A,$1                ; 0d63 41
                LR   S, A                ; 0d64 5c
                BF   $0,A0d29            ; 0d65 90 c3
A0d67:          LISU 5                   ; 0d67 65
                LISL 4                   ; 0d68 6c
                LR   A,$3                ; 0d69 43
                SL   1                   ; 0d6a 13
                BT   1,A0d56             ; 0d6b 81 ea
                LR   A,$4                ; 0d6d 44
                OI   $10                 ; 0d6e 22 10
                LR   $4,A                ; 0d70 54
                BF   $0,A0d56            ; 0d71 90 e4
A0d73:          LISU 4                   ; 0d73 64
                LIS  $8                  ; 0d74 78
                AS   D                   ; 0d75 ce
                LR   $b,A                ; 0d76 5b
                LR   A,(IS)              ; 0d77 4c
                LNK                      ; 0d78 19
                LR   $a,A                ; 0d79 5a
                LR   DC,H                ; 0d7a 10
                JMP  A0d08               ; 0d7b 29 0d 08
A0d7e:          LISU 4                   ; 0d7e 64
                LISL 2                   ; 0d7f 6a
                LR   A,I                 ; 0d80 4d
                LR   $a,A                ; 0d81 5a
                LR   A,(IS)              ; 0d82 4c
                LR   $b,A                ; 0d83 5b
                LR   DC,H                ; 0d84 10
                LM                       ; 0d85 16
                LM                       ; 0d86 16
A0d87:          LM                       ; 0d87 16
                LISU 2                   ; 0d88 62
                LISL 1                   ; 0d89 69
                LR   S, A                ; 0d8a 5c
                LM                       ; 0d8b 16
                LISL 3                   ; 0d8c 6b
                LR   S, A                ; 0d8d 5c
                LM                       ; 0d8e 16
                LR   $3,A                ; 0d8f 53
                DCI  $2808               ; 0d90 2a 28 08
                LR   A,(IS)              ; 0d93 4c
                ADC                      ; 0d94 8e
                LR   H,DC                ; 0d95 11
                LM                       ; 0d96 16
                LR   $4,A                ; 0d97 54
                LR   A,$3                ; 0d98 43
                NI   $20                 ; 0d99 21 20
                BF   $4,A0dda            ; 0d9b 94 3e
                LIS  $7                  ; 0d9d 77
                NS   $4                  ; 0d9e f4
                CI   $05                 ; 0d9f 25 05
                BT   4,A0de0             ; 0da1 84 3e
                CI   $06                 ; 0da3 25 06
                BT   4,A0df3             ; 0da5 84 4d
A0da7:          LR   A,$3                ; 0da7 43
                SR   1                   ; 0da8 12
                SL   4                   ; 0da9 15
                BT   1,A0db0             ; 0daa 81 05
                LI   $f7                 ; 0dac 20 f7
                NS   $4                  ; 0dae f4
                LR   $4,A                ; 0daf 54
A0db0:          LISU 2                   ; 0db0 62
                LISL 1                   ; 0db1 69
                LR   A,(IS)              ; 0db2 4c
                DCI  $2808               ; 0db3 2a 28 08
                ADC                      ; 0db6 8e
                LR   A,$4                ; 0db7 44
                ST                       ; 0db8 17
                LR   A,$3                ; 0db9 43
                NI   $8f                 ; 0dba 21 8f
                LR   DC,H                ; 0dbc 10
                ST                       ; 0dbd 17
                LR   A,$3                ; 0dbe 43
                SL   1                   ; 0dbf 13
                BF   $1,A0dff            ; 0dc0 91 3e
                LIS  $7                  ; 0dc2 77
                NS   $3                  ; 0dc3 f3
                CI   $05                 ; 0dc4 25 05
                BF   $4,A0dd9            ; 0dc6 94 12
                LISU 5                   ; 0dc8 65
                LISL 6                   ; 0dc9 6e
                CLR                      ; 0dca 70
                AS   $3                  ; 0dcb c3
                BT   1,A0dcf             ; 0dcc 81 02
                LISL 7                   ; 0dce 6f
A0dcf:          LR   A,IS                ; 0dcf 0a
                LR   $0,A                ; 0dd0 50
                LISU 2                   ; 0dd1 62
                LISL 3                   ; 0dd2 6b
                LR   A,(IS)              ; 0dd3 4c
                LR   $1,A                ; 0dd4 51
                LR   A,$0                ; 0dd5 40
                LR   IS,A                ; 0dd6 0b
                LR   A,$1                ; 0dd7 41
                LR   S, A                ; 0dd8 5c
A0dd9:          POP                      ; 0dd9 1c
A0dda:          LI   $fb                 ; 0dda 20 fb
                NS   $4                  ; 0ddc f4
                LR   $4,A                ; 0ddd 54
                BF   $0,A0db0            ; 0dde 90 d1
A0de0:          LISU 5                   ; 0de0 65
                LISL 6                   ; 0de1 6e
A0de2:          CLR                      ; 0de2 70
                AS   $4                  ; 0de3 c4
                BT   1,A0de7             ; 0de4 81 02
                LR   A,I                 ; 0de6 4d
A0de7:          LR   A,IS                ; 0de7 0a
                LR   $0,A                ; 0de8 50
                LISU 2                   ; 0de9 62
                LISL 1                   ; 0dea 69
                LR   A,(IS)              ; 0deb 4c
                LR   $1,A                ; 0dec 51
                LR   A,$0                ; 0ded 40
                LR   IS,A                ; 0dee 0b
                LR   A,$1                ; 0def 41
                LR   S, A                ; 0df0 5c
                BF   $0,A0da7            ; 0df1 90 b5
A0df3:          LISU 5                   ; 0df3 65
                LISL 4                   ; 0df4 6c
                LR   A,$3                ; 0df5 43
                SL   1                   ; 0df6 13
                BT   1,A0de2             ; 0df7 81 ea
                LI   $ef                 ; 0df9 20 ef
                NS   $4                  ; 0dfb f4
                LR   $4,A                ; 0dfc 54
                BF   $0,A0de2            ; 0dfd 90 e4
A0dff:          LISU 4                   ; 0dff 64
                LISL 3                   ; 0e00 6b
                LIS  $8                  ; 0e01 78
                AS   D                   ; 0e02 ce
                LR   $b,A                ; 0e03 5b
                LR   A,(IS)              ; 0e04 4c
                LNK                      ; 0e05 19
                LR   $a,A                ; 0e06 5a
                LR   DC,H                ; 0e07 10
                JMP  A0d87               ; 0e08 29 0d 87
A0e0b:          LISU 6                   ; 0e0b 66
                LISL 7                   ; 0e0c 6f
                CLR                      ; 0e0d 70
                AS   (IS)                ; 0e0e cc
                LISU 5                   ; 0e0f 65
                LISL 4                   ; 0e10 6c
                BT   1,A0e14             ; 0e11 81 02
                LISL 5                   ; 0e13 6d
A0e14:          LR   A,(IS)              ; 0e14 4c
                LISU 2                   ; 0e15 62
                LISL 5                   ; 0e16 6d
                LR   S, A                ; 0e17 5c
                DCI  $2808               ; 0e18 2a 28 08
                ADC                      ; 0e1b 8e
                LM                       ; 0e1c 16
                LISU 6                   ; 0e1d 66
                LISL 0                   ; 0e1e 68
                LR   S, A                ; 0e1f 5c
                LIS  $7                  ; 0e20 77
                NS   I                   ; 0e21 fd
                LISU 3                   ; 0e22 63
                LR   S, A                ; 0e23 5c
A0e24:          LR   A,$1                ; 0e24 41
                LR   $6,A                ; 0e25 56
                LR   A,$2                ; 0e26 42
                LR   $7,A                ; 0e27 57
                LI   $10                 ; 0e28 20 10
                LR   $1,A                ; 0e2a 51
                CLR                      ; 0e2b 70
                LR   $5,A                ; 0e2c 55
A0e2d:          DCI  A0833               ; 0e2d 2a 08 33
                LR   A,$5                ; 0e30 45
                ADC                      ; 0e31 8e
                LM                       ; 0e32 16
                LR   $2,A                ; 0e33 52
                CLR                      ; 0e34 70
                LR   $3,A                ; 0e35 53
                LISU 2                   ; 0e36 62
                LISL 5                   ; 0e37 6d
                LR   A,(IS)              ; 0e38 4c
                LISL 3                   ; 0e39 6b
                LR   S, A                ; 0e3a 5c
A0e3b:          LIS  $1                  ; 0e3b 71
                AS   $3                  ; 0e3c c3
                LR   $3,A                ; 0e3d 53
                LISU 2                   ; 0e3e 62
                LISL 3                   ; 0e3f 6b
                LR   A,(IS)              ; 0e40 4c
                AS   $2                  ; 0e41 c2
                LR   S, A                ; 0e42 5c
                DCI  $2808               ; 0e43 2a 28 08
                ADC                      ; 0e46 8e
                CLR                      ; 0e47 70
                AM                       ; 0e48 88
                BT   4,A0e5f             ; 0e49 84 15
                CI   $ff                 ; 0e4b 25 ff
                BT   4,A0e64             ; 0e4d 84 16
                LISU 6                   ; 0e4f 66
                LISL 1                   ; 0e50 69
                LR   S, A                ; 0e51 5c
                LIS  $7                  ; 0e52 77
                NS   (IS)                ; 0e53 fc
                LISU 3                   ; 0e54 63
                LISL 3                   ; 0e55 6b
                LR   S, A                ; 0e56 5c
                LISU 6                   ; 0e57 66
                LISL 1                   ; 0e58 69
                LR   A,D                 ; 0e59 4e
                XS   (IS)                ; 0e5a ec
                BT   1,A0e7b             ; 0e5b 81 1f
                BF   $0,A0e71            ; 0e5d 90 13
A0e5f:          LR   A,$1                ; 0e5f 41
                CI   $08                 ; 0e60 25 08
                BF   $2,A0e3b            ; 0e62 92 d8
A0e64:          LR   A,$5                ; 0e64 45
                INC                      ; 0e65 1f
                LR   $5,A                ; 0e66 55
                DS   $1                  ; 0e67 31
                BF   $4,A0e2d            ; 0e68 94 c4
                CLR                      ; 0e6a 70
                LR   $0,A                ; 0e6b 50
A0e6c:          LR   A,$6                ; 0e6c 46
                LR   $1,A                ; 0e6d 51
                LR   A,$7                ; 0e6e 47
                LR   $2,A                ; 0e6f 52
                POP                      ; 0e70 1c
A0e71:          LR   A,$3                ; 0e71 43
                SL   1                   ; 0e72 13
                BF   $1,A0e64            ; 0e73 91 f0
                LR   A,$3                ; 0e75 43
                OI   $20                 ; 0e76 22 20
                LR   $3,A                ; 0e78 53
                BF   $0,A0e84            ; 0e79 90 0a
A0e7b:          LI   $20                 ; 0e7b 20 20
                NS   $3                  ; 0e7d f3
                BF   $4,A0e64            ; 0e7e 94 e5
                LR   A,$3                ; 0e80 43
                OI   $40                 ; 0e81 22 40
                LR   $3,A                ; 0e83 53
A0e84:          LISU 3                   ; 0e84 63
                LISL 3                   ; 0e85 6b
                LR   A,$1                ; 0e86 41
                CI   $08                 ; 0e87 25 08
                BT   2,A0ecf             ; 0e89 82 45
                LIS  $5                  ; 0e8b 75
                XS   (IS)                ; 0e8c ec
                BF   $4,A0e95            ; 0e8d 94 07
                LR   A,$3                ; 0e8f 43
                OI   $80                 ; 0e90 22 80
                LR   $3,A                ; 0e92 53
                BF   $0,A0ed3            ; 0e93 90 3f
A0e95:          LIS  $1                  ; 0e95 71
                XS   $3                  ; 0e96 e3
                SL   4                   ; 0e97 15
                BF   $4,A0e9e            ; 0e98 94 05
                LIS  $6                  ; 0e9a 76
                XS   (IS)                ; 0e9b ec
                BT   4,A0ed3             ; 0e9c 84 36
A0e9e:          LR   A,$1                ; 0e9e 41
                CI   $0c                 ; 0e9f 25 0c
                BT   2,A0ec6             ; 0ea1 82 24
                LIS  $3                  ; 0ea3 73
                XS   (IS)                ; 0ea4 ec
                BT   4,A0ed3             ; 0ea5 84 2d
                LIS  $f                  ; 0ea7 7f
                NS   $3                  ; 0ea8 f3
                CI   $01                 ; 0ea9 25 01
                BF   $4,A0e64            ; 0eab 94 b8
                XS   (IS)                ; 0ead ec
                BF   $4,A0e64            ; 0eae 94 b5
                LISU 6                   ; 0eb0 66
                LISL 1                   ; 0eb1 69
                CLR                      ; 0eb2 70
                AS   (IS)                ; 0eb3 cc
                BT   1,A0ebe             ; 0eb4 81 09
                LR   A,$1                ; 0eb6 41
                CI   $0e                 ; 0eb7 25 0e
                BF   $2,A0ed3            ; 0eb9 92 19
                JMP  A0e64               ; 0ebb 29 0e 64
A0ebe:          LR   A,$1                ; 0ebe 41
                CI   $0e                 ; 0ebf 25 0e
                BT   2,A0ed3             ; 0ec1 82 11
                JMP  A0e64               ; 0ec3 29 0e 64
A0ec6:          LISU 3                   ; 0ec6 63
                LISL 3                   ; 0ec7 6b
                LIS  $4                  ; 0ec8 74
                XS   (IS)                ; 0ec9 ec
                BT   4,A0ed3             ; 0eca 84 08
                JMP  A0e64               ; 0ecc 29 0e 64
A0ecf:          LIS  $2                  ; 0ecf 72
                XS   (IS)                ; 0ed0 ec
                BF   $4,A0e64            ; 0ed1 94 92
A0ed3:          LISU 3                   ; 0ed3 63
                LISL 1                   ; 0ed4 69
                LIS  $7                  ; 0ed5 77
                XS   (IS)                ; 0ed6 ec
                BT   4,A0ee6             ; 0ed7 84 0e
                LI   $20                 ; 0ed9 20 20
                NS   $3                  ; 0edb f3
                BF   $4,A0ee1            ; 0edc 94 04
                JMP  A0f8f               ; 0ede 29 0f 8f
A0ee1:          LIS  $1                  ; 0ee1 71
                LR   $0,A                ; 0ee2 50
                JMP  A0e6c               ; 0ee3 29 0e 6c
A0ee6:          LR   A,$1                ; 0ee6 41
                LR   $8,A                ; 0ee7 58
                LR   A,$2                ; 0ee8 42
                LR   $9,A                ; 0ee9 59
                LISU 2                   ; 0eea 62
                LISL 0                   ; 0eeb 68
                LR   A,$3                ; 0eec 43
                LR   S, A                ; 0eed 5c
                LISL 2                   ; 0eee 6a
                LR   A,$4                ; 0eef 44
                LR   S, A                ; 0ef0 5c
                LISU 3                   ; 0ef1 63
                LISL 7                   ; 0ef2 6f
                CLR                      ; 0ef3 70
                AS   (IS)                ; 0ef4 cc
                BT   4,A0f2e             ; 0ef5 84 38
                LR   A,$2                ; 0ef7 42
                LR   $3,A                ; 0ef8 53
                CLR                      ; 0ef9 70
                LR   $4,A                ; 0efa 54
                LR   A,(IS)              ; 0efb 4c
                LR   $2,A                ; 0efc 52
                LISU 2                   ; 0efd 62
                LISL 3                   ; 0efe 6b
                LR   A,(IS)              ; 0eff 4c
                DCI  $288e               ; 0f00 2a 28 8e
A0f03:          CM                       ; 0f03 8d
                BT   4,A0f0b             ; 0f04 84 06
A0f06:          DS   $2                  ; 0f06 32
                BF   $4,A0f03            ; 0f07 94 fb
                BF   $0,A0f2e            ; 0f09 90 24
A0f0b:          LIS  $1                  ; 0f0b 71
                NS   $4                  ; 0f0c f4
                BF   $4,A0f20            ; 0f0d 94 12
                LR   A,$4                ; 0f0f 44
                INC                      ; 0f10 1f
                LR   $4,A                ; 0f11 54
                LR   H,DC                ; 0f12 11
                LIS  $9                  ; 0f13 79
                ADC                      ; 0f14 8e
                LM                       ; 0f15 16
                LR   DC,H                ; 0f16 10
                XS   $3                  ; 0f17 e3
                BT   4,A0f06             ; 0f18 84 ed
                XS   $3                  ; 0f1a e3
                COM                      ; 0f1b 18
                INC                      ; 0f1c 1f
                XS   $3                  ; 0f1d e3
                BT   4,A0f06             ; 0f1e 84 e7
A0f20:          LISU 2                   ; 0f20 62
                LISL 2                   ; 0f21 6a
                LR   A,(IS)              ; 0f22 4c
                LR   $4,A                ; 0f23 54
                LISL 0                   ; 0f24 68
                LR   A,(IS)              ; 0f25 4c
                LR   $3,A                ; 0f26 53
                LR   A,$9                ; 0f27 49
                LR   $2,A                ; 0f28 52
                LR   A,$8                ; 0f29 48
                LR   $1,A                ; 0f2a 51
                JMP  A0f8f               ; 0f2b 29 0f 8f
A0f2e:          DCI  $2880               ; 0f2e 2a 28 80
                LISU 3                   ; 0f31 63
                LISL 3                   ; 0f32 6b
                CLR                      ; 0f33 70
                LR   $1,A                ; 0f34 51
                LR   A,(IS)              ; 0f35 4c
                LISU 6                   ; 0f36 66
                LISL 1                   ; 0f37 69
                CLR                      ; 0f38 70
                AS   (IS)                ; 0f39 cc
                LIS  $7                  ; 0f3a 77
                BT   1,A0f3e             ; 0f3b 81 02
                ADC                      ; 0f3d 8e
A0f3e:          NS   (IS)                ; 0f3e fc
                LR   $4,A                ; 0f3f 54
                CLR                      ; 0f40 70
                AS   $3                  ; 0f41 c3
                BT   1,A0f46             ; 0f42 81 03
                LIS  $5                  ; 0f44 75
                LR   $4,A                ; 0f45 54
A0f46:          LR   H,DC                ; 0f46 11
                LIS  $1                  ; 0f47 71
                AM                       ; 0f48 88
                LR   DC,H                ; 0f49 10
                ST                       ; 0f4a 17
                DS   $4                  ; 0f4b 34
                LR   A,$4                ; 0f4c 44
                ADC                      ; 0f4d 8e
                LIS  $f                  ; 0f4e 7f
                NM                       ; 0f4f 8a
                BT   4,A0f70             ; 0f50 84 1f
                LI   $ff                 ; 0f52 20 ff
                ADC                      ; 0f54 8e
                LM                       ; 0f55 16
                NI   $f0                 ; 0f56 21 f0
                BF   $4,A0f73            ; 0f58 94 1a
                LI   $ff                 ; 0f5a 20 ff
                ADC                      ; 0f5c 8e
                LR   H,DC                ; 0f5d 11
                DCI  A0820               ; 0f5e 2a 08 20
                LISU 3                   ; 0f61 63
                LISL 3                   ; 0f62 6b
                LR   A,(IS)              ; 0f63 4c
                ADC                      ; 0f64 8e
                LM                       ; 0f65 16
                SL   4                   ; 0f66 15
                LR   DC,H                ; 0f67 10
                LR   $0,A                ; 0f68 50
                LIS  $f                  ; 0f69 7f
                NM                       ; 0f6a 8a
                XS   $0                  ; 0f6b e0
                LR   DC,H                ; 0f6c 10
                ST                       ; 0f6d 17
                BF   $0,A0f84            ; 0f6e 90 15
A0f70:          LI   $ff                 ; 0f70 20 ff
                ADC                      ; 0f72 8e
A0f73:          LR   H,DC                ; 0f73 11
                LISU 3                   ; 0f74 63
                LISL 3                   ; 0f75 6b
                LR   A,(IS)              ; 0f76 4c
                DCI  A0820               ; 0f77 2a 08 20
                ADC                      ; 0f7a 8e
                LM                       ; 0f7b 16
                LR   $0,A                ; 0f7c 50
                LR   DC,H                ; 0f7d 10
                LI   $f0                 ; 0f7e 20 f0
                NM                       ; 0f80 8a
                XS   $0                  ; 0f81 e0
                LR   DC,H                ; 0f82 10
                ST                       ; 0f83 17
A0f84:          LR   A,$8                ; 0f84 48
                LR   $1,A                ; 0f85 51
                LR   A,$9                ; 0f86 49
                LR   $2,A                ; 0f87 52
                LISU 2                   ; 0f88 62
                LISL 0                   ; 0f89 68
                LR   A,(IS)              ; 0f8a 4c
                LR   $3,A                ; 0f8b 53
                LISL 2                   ; 0f8c 6a
                LR   A,(IS)              ; 0f8d 4c
                LR   $4,A                ; 0f8e 54
A0f8f:          LISU 3                   ; 0f8f 63
                LISL 3                   ; 0f90 6b
                LIS  $6                  ; 0f91 76
                XS   (IS)                ; 0f92 ec
                BT   4,A0f9c             ; 0f93 84 08
                LIS  $2                  ; 0f95 72
                XS   (IS)                ; 0f96 ec
                BT   4,A0f9c             ; 0f97 84 04
                JMP  A0e3b               ; 0f99 29 0e 3b
A0f9c:          JMP  A0e64               ; 0f9c 29 0e 64
A0f9f:          LISU 6                   ; 0f9f 66
                LISL 7                   ; 0fa0 6f
                LI   $80                 ; 0fa1 20 80
                XS   (IS)                ; 0fa3 ec
                LR   S, A                ; 0fa4 5c
                BT   1,A0fa9             ; 0fa5 81 03
                LISL 4                   ; 0fa7 6c
                DS   (IS)                ; 0fa8 3c
A0fa9:          LISU 4                   ; 0fa9 64
                LISL 5                   ; 0faa 6d
                DS   D                   ; 0fab 3e
                BT   2,A0faf             ; 0fac 82 02
                DS   (IS)                ; 0fae 3c
A0faf:          LISU 6                   ; 0faf 66
                LISL 6                   ; 0fb0 6e
                DS   (IS)                ; 0fb1 3c
                LISU 4                   ; 0fb2 64
                LISL 1                   ; 0fb3 69
                LR   A,D                 ; 0fb4 4e
                LR   $b,A                ; 0fb5 5b
                LR   A,(IS)              ; 0fb6 4c
                LR   $a,A                ; 0fb7 5a
                LR   DC,H                ; 0fb8 10
                LI   $ff                 ; 0fb9 20 ff
                ADC                      ; 0fbb 8e
                LM                       ; 0fbc 16
                LISU 5                   ; 0fbd 65
                LISL 3                   ; 0fbe 6b
                LR   D, A                ; 0fbf 5e
                LI   $fe                 ; 0fc0 20 fe
                ADC                      ; 0fc2 8e
                LM                       ; 0fc3 16
                LR   I, A                ; 0fc4 5d
                LISU 4                   ; 0fc5 64
                LI   $fe                 ; 0fc6 20 fe
                ADC                      ; 0fc8 8e
                LM                       ; 0fc9 16
                LR   D, A                ; 0fca 5e
                LI   $fe                 ; 0fcb 20 fe
                ADC                      ; 0fcd 8e
                LR   H,DC                ; 0fce 11
                LM                       ; 0fcf 16
                LR   D, A                ; 0fd0 5e
                LR   A,$b                ; 0fd1 4b
                LR   D, A                ; 0fd2 5e
                LR   A,$a                ; 0fd3 4a
                LR   S, A                ; 0fd4 5c
                JMP  A0d7e               ; 0fd5 29 0d 7e
A0fd8:          LISU 5                   ; 0fd8 65
                LISL 2                   ; 0fd9 6a
                LR   A,I                 ; 0fda 4d
                CI   $2f                 ; 0fdb 25 2f
                BF   $4,A0fec            ; 0fdd 94 0e
                LR   A,D                 ; 0fdf 4e
                CI   $6e                 ; 0fe0 25 6e
                BT   2,A0fec             ; 0fe2 82 09
                LR   $b,A                ; 0fe4 5b
                LR   A,(IS)              ; 0fe5 4c
                LR   $a,A                ; 0fe6 5a
                LR   DC,H                ; 0fe7 10
                CLR                      ; 0fe8 70
                ST                       ; 0fe9 17
                ST                       ; 0fea 17
                POP                      ; 0feb 1c
A0fec:          LISL 0                   ; 0fec 68
                LR   A,I                 ; 0fed 4d
                LR   $a,A                ; 0fee 5a
                LR   A,I                 ; 0fef 4d
                LR   $b,A                ; 0ff0 5b
                LR   DC,H                ; 0ff1 10
                LR   A,I                 ; 0ff2 4d
                LR   $a,A                ; 0ff3 5a
                LR   A,(IS)              ; 0ff4 4c
                LISL 1                   ; 0ff5 69
                LR   D, A                ; 0ff6 5e
                LR   A,$a                ; 0ff7 4a
                LR   I, A                ; 0ff8 5d
                ST                       ; 0ff9 17
                LR   A,(IS)              ; 0ffa 4c
                ST                       ; 0ffb 17
                LISU 6                   ; 0ffc 66
                LISL 0                   ; 0ffd 68
                LIS  $8                  ; 0ffe 78
                NS   I                   ; 0fff fd
                BF   $4,A1006            ; 1000 94 05
                LR   A,(IS)              ; 1002 4c
                OI   $10                 ; 1003 22 10
                LR   S, A                ; 1005 5c
A1006:          LISU 5                   ; 1006 65
                LISL 0                   ; 1007 68
                LR   A,I                 ; 1008 4d
                LR   $a,A                ; 1009 5a
                LR   A,(IS)              ; 100a 4c
                LR   $b,A                ; 100b 5b
                LR   DC,H                ; 100c 10
                CLR                      ; 100d 70
                ST                       ; 100e 17
                ST                       ; 100f 17
A1010:          LISU 2                   ; 1010 62
                LR   A,(IS)              ; 1011 4c
                ST                       ; 1012 17
                LISL 3                   ; 1013 6b
                LR   A,(IS)              ; 1014 4c
                ST                       ; 1015 17
                LISU 6                   ; 1016 66
                LISL 1                   ; 1017 69
                LR   A,I                 ; 1018 4d
                ST                       ; 1019 17
                CLR                      ; 101a 70
                ST                       ; 101b 17
                LISU 5                   ; 101c 65
                LR   H,DC                ; 101d 11
                LR   A,$a                ; 101e 4a
                LR   I, A                ; 101f 5d
                LR   A,$b                ; 1020 4b
                LR   S, A                ; 1021 5c
                POP                      ; 1022 1c
A1023:          LR   K,P                 ; 1023 08
                PI   A131d               ; 1024 28 13 1d
                LISU 4                   ; 1027 64
                LISL 0                   ; 1028 68
                LR   A,I                 ; 1029 4d
                LR   $1,A                ; 102a 51
                LR   A,(IS)              ; 102b 4c
                LR   $2,A                ; 102c 52
                CLR                      ; 102d 70
                LR   $3,A                ; 102e 53
                LR   $4,A                ; 102f 54
A1030:          LR   A,$1                ; 1030 41
                LR   $a,A                ; 1031 5a
                LR   A,$2                ; 1032 42
                LR   $b,A                ; 1033 5b
                LR   DC,H                ; 1034 10
                LM                       ; 1035 16
                LR   $1,A                ; 1036 51
                LM                       ; 1037 16
                LR   $2,A                ; 1038 52
                LI   $fe                 ; 1039 20 fe
                ADC                      ; 103b 8e
                LR   A,$3                ; 103c 43
                ST                       ; 103d 17
                LR   A,$4                ; 103e 44
                ST                       ; 103f 17
                CLR                      ; 1040 70
                AS   $1                  ; 1041 c1
                BF   $4,A1047            ; 1042 94 04
                JMP  A1324               ; 1044 29 13 24
A1047:          LISU 4                   ; 1047 64
                LISL 2                   ; 1048 6a
                LR   A,$1                ; 1049 41
                LR   I, A                ; 104a 5d
                LR   A,$2                ; 104b 42
                LR   S, A                ; 104c 5c
                DCI  $2ff8               ; 104d 2a 2f f8
                LR   A,$1                ; 1050 41
                ST                       ; 1051 17
                LR   A,$2                ; 1052 42
                ST                       ; 1053 17
                LR   A,$3                ; 1054 43
                ST                       ; 1055 17
                LR   A,$4                ; 1056 44
                ST                       ; 1057 17
                LR   A,$5                ; 1058 45
                ST                       ; 1059 17
                LR   A,$6                ; 105a 46
                ST                       ; 105b 17
                LR   A,$7                ; 105c 47
                ST                       ; 105d 17
                PI   A0cff               ; 105e 28 0c ff
                PI   A0e0b               ; 1061 28 0e 0b
                CLR                      ; 1064 70
                AS   $0                  ; 1065 c0
                BT   4,A1071             ; 1066 84 0a
                CLR                      ; 1068 70
                LISU 6                   ; 1069 66
                LISL 5                   ; 106a 6d
                LR   S, A                ; 106b 5c
                PI   A0d7e               ; 106c 28 0d 7e
                BF   $0,A107a            ; 106f 90 0a
A1071:          PI   A0c12               ; 1071 28 0c 12
                PI   A1111               ; 1074 28 11 11
                PI   A0d7e               ; 1077 28 0d 7e
A107a:          DCI  $2ff8               ; 107a 2a 2f f8
                LM                       ; 107d 16
                LR   $1,A                ; 107e 51
                LM                       ; 107f 16
                LR   $2,A                ; 1080 52
                LM                       ; 1081 16
                LR   $3,A                ; 1082 53
                LM                       ; 1083 16
                LR   $4,A                ; 1084 54
                LM                       ; 1085 16
                LR   $5,A                ; 1086 55
                LM                       ; 1087 16
                LR   $6,A                ; 1088 56
                LM                       ; 1089 16
                LR   $7,A                ; 108a 57
                LISU 4                   ; 108b 64
                LISL 0                   ; 108c 68
                LR   A,I                 ; 108d 4d
                LR   $a,A                ; 108e 5a
                LR   A,I                 ; 108f 4d
                LR   $b,A                ; 1090 5b
                LR   DC,H                ; 1091 10
                LR   A,I                 ; 1092 4d
                LR   $1,A                ; 1093 51
                LR   A,I                 ; 1094 4d
                LR   $2,A                ; 1095 52
A1096:          LM                       ; 1096 16
                LR   $3,A                ; 1097 53
                LM                       ; 1098 16
                LR   $4,A                ; 1099 54
                LI   $fe                 ; 109a 20 fe
                ADC                      ; 109c 8e
                CLR                      ; 109d 70
                AS   $3                  ; 109e c3
                BT   4,A10ba             ; 109f 84 1a
                LR   H,DC                ; 10a1 11
                LR   A,$a                ; 10a2 4a
                LR   $6,A                ; 10a3 56
                LR   A,$b                ; 10a4 4b
                LR   $7,A                ; 10a5 57
                LIS  $5                  ; 10a6 75
                AS   $4                  ; 10a7 c4
                LR   $b,A                ; 10a8 5b
                LR   A,$3                ; 10a9 43
                LNK                      ; 10aa 19
                LR   $a,A                ; 10ab 5a
                LR   DC,H                ; 10ac 10
                LISU 6                   ; 10ad 66
                LISL 5                   ; 10ae 6d
                LR   A,(IS)              ; 10af 4c
                AI   $ff                 ; 10b0 24 ff
                CM                       ; 10b2 8d
                BF   $2,A10c1            ; 10b3 92 0d
                LR   A,$6                ; 10b5 46
                LR   $a,A                ; 10b6 5a
                LR   A,$7                ; 10b7 47
                LR   $b,A                ; 10b8 5b
                LR   DC,H                ; 10b9 10
A10ba:          LR   A,$1                ; 10ba 41
                ST                       ; 10bb 17
                LR   A,$2                ; 10bc 42
                ST                       ; 10bd 17
                JMP  A1030               ; 10be 29 10 30
A10c1:          LR   A,$3                ; 10c1 43
                LR   $a,A                ; 10c2 5a
                LR   A,$4                ; 10c3 44
                LR   $b,A                ; 10c4 5b
                LR   A,$6                ; 10c5 46
                LR   $3,A                ; 10c6 53
                LR   A,$7                ; 10c7 47
                LR   $4,A                ; 10c8 54
                LR   DC,H                ; 10c9 10
                BF   $0,A1096            ; 10ca 90 cb
A10cc:          DCI  $28a3               ; 10cc 2a 28 a3
                CLR                      ; 10cf 70
                ST                       ; 10d0 17
                LISU 6                   ; 10d1 66
                LISL 7                   ; 10d2 6f
                DCI  A0825               ; 10d3 2a 08 25
                LR   A,(IS)              ; 10d6 4c
                SL   1                   ; 10d7 13
                BF   $1,A10ec            ; 10d8 91 13
                LISU 3                   ; 10da 63
                LISL 4                   ; 10db 6c
                LIS  $1                  ; 10dc 71
                NS   (IS)                ; 10dd fc
                BF   $4,A10e2            ; 10de 94 03
                LIS  $3                  ; 10e0 73
                ADC                      ; 10e1 8e
A10e2:          LR   H,DC                ; 10e2 11
                LISU 4                   ; 10e3 64
                LISL 6                   ; 10e4 6e
                LR   A,$a                ; 10e5 4a
                LR   I, A                ; 10e6 5d
                LR   A,$b                ; 10e7 4b
                LR   S, A                ; 10e8 5c
                JMP  A1324               ; 10e9 29 13 24
A10ec:          LISU 4                   ; 10ec 64
                LISL 3                   ; 10ed 6b
                LIS  $2                  ; 10ee 72
                AS   D                   ; 10ef ce
                LR   $b,A                ; 10f0 5b
                LR   A,(IS)              ; 10f1 4c
                LNK                      ; 10f2 19
                LR   $a,A                ; 10f3 5a
                LR   DC,H                ; 10f4 10
                LM                       ; 10f5 16
                DCI  $082b               ; 10f6 2a 08 2b
                CI   $16                 ; 10f9 25 16
                BT   4,A110d             ; 10fb 84 11
                CI   $1b                 ; 10fd 25 1b
                BT   4,A110d             ; 10ff 84 0d
                CI   $22                 ; 1101 25 22
                BT   4,A110d             ; 1103 84 09
                CI   $21                 ; 1105 25 21
                BT   2,A10e2             ; 1107 82 da
                CI   $23                 ; 1109 25 23
                BT   4,A10e2             ; 110b 84 d6
A110d:          LIS  $3                  ; 110d 73
                ADC                      ; 110e 8e
                BF   $0,A10e2            ; 110f 90 d2
A1111:          LR   K,P                 ; 1111 08
                PI   A131d               ; 1112 28 13 1d
                CLR                      ; 1115 70
                LISU 7                   ; 1116 67
                LISL 7                   ; 1117 6f
                LR   I, A                ; 1118 5d
                LR   I, A                ; 1119 5d
                LR   I, A                ; 111a 5d
                LR   I, A                ; 111b 5d
                LR   I, A                ; 111c 5d
                LR   I, A                ; 111d 5d
                LISU 3                   ; 111e 63
                LISL 1                   ; 111f 69
                LIS  $7                  ; 1120 77
                LR   S, A                ; 1121 5c
                LI   $15                 ; 1122 20 15
                LR   $0,A                ; 1124 50
A1125:          LISU 2                   ; 1125 62
                LISL 5                   ; 1126 6d
                LR   A,$0                ; 1127 40
                LR   S, A                ; 1128 5c
                DCI  $2808               ; 1129 2a 28 08
                ADC                      ; 112c 8e
                LM                       ; 112d 16
                CI   $ff                 ; 112e 25 ff
                BF   $4,A1135            ; 1130 94 04
                JMP  A1249               ; 1132 29 12 49
A1135:          LISU 6                   ; 1135 66
                LISL 0                   ; 1136 68
                LR   S, A                ; 1137 5c
                LIS  $7                  ; 1138 77
                NS   (IS)                ; 1139 fc
                LISU 3                   ; 113a 63
                LISL 5                   ; 113b 6d
                LR   S, A                ; 113c 5c
                BT   4,A117c             ; 113d 84 3e
                LIS  $1                  ; 113f 71
                XS   (IS)                ; 1140 ec
                BT   4,A117c             ; 1141 84 3a
                LR   A,(IS)              ; 1143 4c
                CI   $03                 ; 1144 25 03
                BT   2,A116b             ; 1146 82 24
                LIS  $6                  ; 1148 76
                XS   (IS)                ; 1149 ec
                LISU 6                   ; 114a 66
                BT   4,A1155             ; 114b 84 09
                LISL 4                   ; 114d 6c
                LR   A,(IS)              ; 114e 4c
                CI   $06                 ; 114f 25 06
                BT   2,A1164             ; 1151 82 12
                BF   $0,A117c            ; 1153 90 28
A1155:          LISL 0                   ; 1155 68
                LI   $10                 ; 1156 20 10
                NS   (IS)                ; 1158 fc
                BT   4,A1164             ; 1159 84 0a
                CLR                      ; 115b 70
                AS   (IS)                ; 115c cc
                LIS  $6                  ; 115d 76
                BT   1,A1178             ; 115e 81 19
                COM                      ; 1160 18
                INC                      ; 1161 1f
                BF   $0,A1178            ; 1162 90 15
A1164:          LISL 0                   ; 1164 68
                LIS  $8                  ; 1165 78
                NS   (IS)                ; 1166 fc
                BT   4,A117c             ; 1167 84 14
                BF   $0,A1171            ; 1169 90 07
A116b:          LISU 6                   ; 116b 66
                LISL 0                   ; 116c 68
                LIS  $8                  ; 116d 78
                NS   (IS)                ; 116e fc
                BF   $4,A117c            ; 116f 94 0c
A1171:          CLR                      ; 1171 70
                AS   (IS)                ; 1172 cc
                LIS  $3                  ; 1173 73
                BF   $1,A1178            ; 1174 91 03
                COM                      ; 1176 18
                INC                      ; 1177 1f
A1178:          LISU 7                   ; 1178 67
                LISL 0                   ; 1179 68
                AS   (IS)                ; 117a cc
                LR   S, A                ; 117b 5c
A117c:          DCI  $2880               ; 117c 2a 28 80
                LIS  $e                  ; 117f 7e
                LR   $1,A                ; 1180 51
                CLR                      ; 1181 70
A1182:          ST                       ; 1182 17
                DS   $1                  ; 1183 31
                BF   $4,A1182            ; 1184 94 fd
                PI   A0e24               ; 1186 28 0e 24
                DCI  $2887               ; 1189 2a 28 87
                LM                       ; 118c 16
                COM                      ; 118d 18
                INC                      ; 118e 1f
                DCI  $2880               ; 118f 2a 28 80
                AM                       ; 1192 88
                LISU 7                   ; 1193 67
                LISL 0                   ; 1194 68
                AS   (IS)                ; 1195 cc
                LR   S, A                ; 1196 5c
                LISU 6                   ; 1197 66
                CLR                      ; 1198 70
                AS   (IS)                ; 1199 cc
                BF   $4,A119f            ; 119a 94 04
                JMP  A1249               ; 119c 29 12 49
A119f:          CLR                      ; 119f 70
                LR   $2,A                ; 11a0 52
                LR   $4,A                ; 11a1 54
                DCI  A0820               ; 11a2 2a 08 20
                LISU 3                   ; 11a5 63
                LISL 5                   ; 11a6 6d
                LR   A,(IS)              ; 11a7 4c
                ADC                      ; 11a8 8e
                LM                       ; 11a9 16
                SL   1                   ; 11aa 13
                LR   $3,A                ; 11ab 53
                LISU 3                   ; 11ac 63
                LISL 6                   ; 11ad 6e
                LR   S, A                ; 11ae 5c
                LISU 6                   ; 11af 66
                LISL 0                   ; 11b0 68
                DCI  $2887               ; 11b1 2a 28 87
                XDC                      ; 11b4 2c
                DCI  $2880               ; 11b5 2a 28 80
                CLR                      ; 11b8 70
                AS   (IS)                ; 11b9 cc
                BF   $1,A11bd            ; 11ba 91 02
                XDC                      ; 11bc 2c
A11bd:          LM                       ; 11bd 16
                LR   $7,A                ; 11be 57
                XDC                      ; 11bf 2c
                LM                       ; 11c0 16
                LR   $6,A                ; 11c1 56
                PI   A12d9               ; 11c2 28 12 d9
                BT   4,A11f9             ; 11c5 84 33
A11c7:          LR   A,$0                ; 11c7 40
                LR   $8,A                ; 11c8 58
                PI   A12d9               ; 11c9 28 12 d9
                BT   4,A11e6             ; 11cc 84 19
                LR   A,$3                ; 11ce 43
                COM                      ; 11cf 18
                INC                      ; 11d0 1f
                AS   $8                  ; 11d1 c8
                BF   $2,A11e6            ; 11d2 92 13
A11d4:          LR   A,$0                ; 11d4 40
                COM                      ; 11d5 18
                INC                      ; 11d6 1f
                AS   $8                  ; 11d7 c8
                BT   2,A11f9             ; 11d8 82 20
                PI   A12d9               ; 11da 28 12 d9
                BT   4,A11f9             ; 11dd 84 1b
                LR   A,$0                ; 11df 40
                LR   $8,A                ; 11e0 58
                PI   A12d9               ; 11e1 28 12 d9
                BF   $4,A11d4            ; 11e4 94 ef
A11e6:          LR   A,$3                ; 11e6 43
                LR   $9,A                ; 11e7 59
                LIS  $1                  ; 11e8 71
                NS   $2                  ; 11e9 f2
                LR   A,$9                ; 11ea 49
                BT   4,A11ef             ; 11eb 84 03
                COM                      ; 11ed 18
                INC                      ; 11ee 1f
A11ef:          AS   $4                  ; 11ef c4
                LR   $4,A                ; 11f0 54
                CLR                      ; 11f1 70
                AS   $0                  ; 11f2 c0
                BT   4,A11f9             ; 11f3 84 05
                LR   A,$8                ; 11f5 48
                LR   $3,A                ; 11f6 53
                BF   $0,A11c7            ; 11f7 90 cf
A11f9:          LISU 3                   ; 11f9 63
                LISL 6                   ; 11fa 6e
                LR   A,(IS)              ; 11fb 4c
                LR   $3,A                ; 11fc 53
                CLR                      ; 11fd 70
                AS   $4                  ; 11fe c4
                BT   4,A123c             ; 11ff 84 3c
                DS   $3                  ; 1201 33
                LISU 6                   ; 1202 66
                LISL 0                   ; 1203 68
                LR   A,D                 ; 1204 4e
                XS   (IS)                ; 1205 ec
                LR   A,$4                ; 1206 44
                BF   $1,A1226            ; 1207 91 1e
                LISU 7                   ; 1209 67
                LISL 1                   ; 120a 69
                COM                      ; 120b 18
                INC                      ; 120c 1f
                AS   (IS)                ; 120d cc
                BT   2,A123c             ; 120e 82 2d
                LR   A,$4                ; 1210 44
                LR   S, A                ; 1211 5c
                LISU 4                   ; 1212 64
                LISL 3                   ; 1213 6b
                LIS  $3                  ; 1214 73
                AS   D                   ; 1215 ce
                LR   $b,A                ; 1216 5b
                LR   A,(IS)              ; 1217 4c
                LNK                      ; 1218 19
                LR   $a,A                ; 1219 5a
                LR   DC,H                ; 121a 10
                LISU 2                   ; 121b 62
                LISL 5                   ; 121c 6d
                LR   A,(IS)              ; 121d 4c
                CM                       ; 121e 8d
                BF   $4,A123c            ; 121f 94 1c
                LISU 7                   ; 1221 67
                LISL 7                   ; 1222 6f
                LR   S, A                ; 1223 5c
                BF   $0,A123c            ; 1224 90 17
A1226:          LISU 7                   ; 1226 67
                LISL 2                   ; 1227 6a
                COM                      ; 1228 18
                INC                      ; 1229 1f
                AS   (IS)                ; 122a cc
                BT   2,A1233             ; 122b 82 07
                LR   A,(IS)              ; 122d 4c
                LR   $0,A                ; 122e 50
                LR   A,$4                ; 122f 44
                LR   S, A                ; 1230 5c
                LR   A,$0                ; 1231 40
                LR   $4,A                ; 1232 54
A1233:          LISL 3                   ; 1233 6b
                LR   A,$4                ; 1234 44
                COM                      ; 1235 18
                INC                      ; 1236 1f
                AS   (IS)                ; 1237 cc
                BT   2,A123c             ; 1238 82 03
                LR   A,$4                ; 123a 44
                LR   S, A                ; 123b 5c
A123c:          LISU 6                   ; 123c 66
                LISL 0                   ; 123d 68
                CLR                      ; 123e 70
                AS   (IS)                ; 123f cc
                LR   A,$3                ; 1240 43
                BT   1,A1245             ; 1241 81 03
                COM                      ; 1243 18
                INC                      ; 1244 1f
A1245:          LISU 7                   ; 1245 67
                LISL 4                   ; 1246 6c
                AS   (IS)                ; 1247 cc
                LR   S, A                ; 1248 5c
A1249:          LISU 2                   ; 1249 62
                LISL 5                   ; 124a 6d
                LR   A,(IS)              ; 124b 4c
                INC                      ; 124c 1f
                LR   $0,A                ; 124d 50
                CI   $63                 ; 124e 25 63
                BT   4,A1255             ; 1250 84 04
                JMP  A1125               ; 1252 29 11 25
A1255:          LISU 7                   ; 1255 67
                LISL 7                   ; 1256 6f
                CLR                      ; 1257 70
                AS   (IS)                ; 1258 cc
                BT   4,A1260             ; 1259 84 06
                LISL 3                   ; 125b 6b
                LR   A,D                 ; 125c 4e
                LR   I, A                ; 125d 5d
                CLR                      ; 125e 70
                LR   S, A                ; 125f 5c
A1260:          LISL 1                   ; 1260 69
                CLR                      ; 1261 70
                AS   (IS)                ; 1262 cc
                BT   4,A1267             ; 1263 84 03
                AI   $ff                 ; 1265 24 ff
A1267:          LR   $1,A                ; 1267 51
                LISL 2                   ; 1268 6a
                CLR                      ; 1269 70
                AS   I                   ; 126a cd
                BT   4,A1274             ; 126b 84 08
                CLR                      ; 126d 70
                AS   (IS)                ; 126e cc
                BT   4,A1274             ; 126f 84 04
                AI   $ff                 ; 1271 24 ff
                SR   1                   ; 1273 12
A1274:          LR   $0,A                ; 1274 50
                LR   A,$1                ; 1275 41
                COM                      ; 1276 18
                INC                      ; 1277 1f
                AS   $0                  ; 1278 c0
                LR   $0,A                ; 1279 50
                LISU 6                   ; 127a 66
                LISL 7                   ; 127b 6f
                CLR                      ; 127c 70
                AS   (IS)                ; 127d cc
                LR   A,$0                ; 127e 40
                BT   1,A1283             ; 127f 81 03
                COM                      ; 1281 18
                INC                      ; 1282 1f
A1283:          LISU 7                   ; 1283 67
                LISL 4                   ; 1284 6c
                AS   (IS)                ; 1285 cc
                LISL 6                   ; 1286 6e
                LR   $0,A                ; 1287 50
                LR   A,(IS)              ; 1288 4c
                COM                      ; 1289 18
                INC                      ; 128a 1f
                AS   $0                  ; 128b c0
                LR   $0,A                ; 128c 50
                LI   $1e                 ; 128d 20 1e
                LR   $1,A                ; 128f 51
                PI   A1307               ; 1290 28 13 07
                LR   A,$0                ; 1293 40
                LR   $4,A                ; 1294 54
                LISU 7                   ; 1295 67
                LISL 5                   ; 1296 6d
                LR   A,(IS)              ; 1297 4c
                COM                      ; 1298 18
                INC                      ; 1299 1f
                LISL 0                   ; 129a 68
                AS   (IS)                ; 129b cc
                LR   $0,A                ; 129c 50
                LISU 7                   ; 129d 67
                LISL 7                   ; 129e 6f
                CLR                      ; 129f 70
                AS   (IS)                ; 12a0 cc
                BT   4,A12a5             ; 12a1 84 03
                CLR                      ; 12a3 70
                LR   $0,A                ; 12a4 50
A12a5:          LIS  $6                  ; 12a5 76
                LR   $1,A                ; 12a6 51
                PI   A1307               ; 12a7 28 13 07
                LR   A,$0                ; 12aa 40
                LR   $3,A                ; 12ab 53
                LR   A,$4                ; 12ac 44
                AS   $4                  ; 12ad c4
                LR   $0,A                ; 12ae 50
                AS   $0                  ; 12af c0
                AS   $3                  ; 12b0 c3
                LR   $0,A                ; 12b1 50
                LISU 6                   ; 12b2 66
                LISL 7                   ; 12b3 6f
                CLR                      ; 12b4 70
                AS   (IS)                ; 12b5 cc
                LR   A,$0                ; 12b6 40
                BF   $1,A12bb            ; 12b7 91 03
                COM                      ; 12b9 18
                INC                      ; 12ba 1f
A12bb:          AI   $80                 ; 12bb 24 80
                LISL 5                   ; 12bd 6d
                LR   S, A                ; 12be 5c
                PI   A1994               ; 12bf 28 19 94
                DCI  $2fff               ; 12c2 2a 2f ff
                NM                       ; 12c5 8a
                LISL 5                   ; 12c6 6d
                LISU 6                   ; 12c7 66
                AS   (IS)                ; 12c8 cc
                LR   S, A                ; 12c9 5c
                LR   $0,A                ; 12ca 50
                LISU 4                   ; 12cb 64
                LISL 3                   ; 12cc 6b
                LIS  $5                  ; 12cd 75
                AS   D                   ; 12ce ce
                LR   $b,A                ; 12cf 5b
                LR   A,(IS)              ; 12d0 4c
                LNK                      ; 12d1 19
                LR   $a,A                ; 12d2 5a
                LR   DC,H                ; 12d3 10
                LR   A,$0                ; 12d4 40
                ST                       ; 12d5 17
                JMP  A1324               ; 12d6 29 13 24
A12d9:          DS   $2                  ; 12d9 32
                LR   A,$6                ; 12da 46
                LR   $0,A                ; 12db 50
                LR   A,$7                ; 12dc 47
                LR   $6,A                ; 12dd 56
                LR   A,$0                ; 12de 40
                LR   $7,A                ; 12df 57
                CLR                      ; 12e0 70
                XS   $6                  ; 12e1 e6
                XDC                      ; 12e2 2c
                BT   4,A12fd             ; 12e3 84 19
                DS   $6                  ; 12e5 36
                CLR                      ; 12e6 70
A12e7:          AM                       ; 12e7 88
                BT   4,A12e7             ; 12e8 84 fe
                LR   $9,A                ; 12ea 59
                LI   $ff                 ; 12eb 20 ff
                ADC                      ; 12ed 8e
                LI   $f0                 ; 12ee 20 f0
                NS   $9                  ; 12f0 f9
                BT   4,A1300             ; 12f1 84 0e
                SR   4                   ; 12f3 14
A12f4:          SL   1                   ; 12f4 13
                LR   $0,A                ; 12f5 50
                LR   A,$9                ; 12f6 49
                SL   4                   ; 12f7 15
                ST                       ; 12f8 17
                LI   $ff                 ; 12f9 20 ff
                ADC                      ; 12fb 8e
                LR   A,$0                ; 12fc 40
A12fd:          LR   $0,A                ; 12fd 50
                NS   $0                  ; 12fe f0
                POP                      ; 12ff 1c
A1300:          LR   A,$9                ; 1300 49
                LR   $0,A                ; 1301 50
                CLR                      ; 1302 70
                LR   $9,A                ; 1303 59
                LR   A,$0                ; 1304 40
                BF   $0,A12f4            ; 1305 90 ee
A1307:          CLR                      ; 1307 70
                AS   $0                  ; 1308 c0
                BT   1,A1314             ; 1309 81 0a
                LR   A,$1                ; 130b 41
                AS   $0                  ; 130c c0
                BT   2,A1313             ; 130d 82 05
                LR   A,$1                ; 130f 41
                COM                      ; 1310 18
                INC                      ; 1311 1f
                LR   $0,A                ; 1312 50
A1313:          POP                      ; 1313 1c
A1314:          LR   A,$1                ; 1314 41
                COM                      ; 1315 18
                INC                      ; 1316 1f
                AS   $0                  ; 1317 c0
                BF   $2,A1313            ; 1318 92 fa
                LR   A,$1                ; 131a 41
                LR   $0,A                ; 131b 50
                POP                      ; 131c 1c
A131d:          LR   DC,Q                ; 131d 0f
                LR   A,KU                ; 131e 00
                ST                       ; 131f 17
                LR   A,KL                ; 1320 01
                ST                       ; 1321 17
                LR   Q,DC                ; 1322 0e
                POP                      ; 1323 1c
A1324:          LR   DC,Q                ; 1324 0f
                LI   $fe                 ; 1325 20 fe
                ADC                      ; 1327 8e
                LR   Q,DC                ; 1328 0e
                LM                       ; 1329 16
                LR   KU,A                ; 132a 04
                LM                       ; 132b 16
                LR   KL,A                ; 132c 05
                PK                       ; 132d 0c

A132e:          DI                       ; 132e 1a
                CLR                      ; 132f 70
                OUTS 0                   ; 1330 b0
                INS  0                   ; 1331 a0
                COM                      ; 1332 18
                SL   4                   ; 1333 15
                CI   $f0                 ; 1334 25 f0
                BF   $4,A133b            ; 1336 94 04
                JMP  A1c34               ; 1338 29 1c 34
A133b:          DCI  $3800               ; 133b 2a 38 00     LED OFF
                ST                       ; 133e 17
                DCI  $2ffe               ; 133f 2a 2f fe
                LIS  $2                  ; 1342 72
                ST                       ; 1343 17
                ST                       ; 1344 17
                LI   $7d                 ; 1345 20 7d
                LR   $0,A                ; 1347 50
                LIS  $2                  ; 1348 72
                LR   $1,A                ; 1349 51
                LIS  $2                  ; 134a 72
                LR   $2,A                ; 134b 52
                LI   $3e                 ; 134c 20 3e
                LR   $3,A                ; 134e 53
                LI   $40                 ; 134f 20 40
                LR   $4,A                ; 1351 54
                LI   $30                 ; 1352 20 30
                LR   $5,A                ; 1354 55
                PI   A1924               ; 1355 28 19 24
                CLR                      ; 1358 70
                LR   $0,A                ; 1359 50
                LR   $1,A                ; 135a 51
                LR   $4,A                ; 135b 54
                LR   $5,A                ; 135c 55
                LI   $7d                 ; 135d 20 7d
                LR   $2,A                ; 135f 52
                LI   $3f                 ; 1360 20 3f
                LR   $3,A                ; 1362 53
                PI   A1924               ; 1363 28 19 24
                DCI  A1486               ; 1366 2a 14 86
                LI   $1f                 ; 1369 20 1f
A136b:          LR   $0,A                ; 136b 50
                LIS  $a                  ; 136c 7a
                LR   $1,A                ; 136d 51
                LIS  $8                  ; 136e 78
                LR   $2,A                ; 136f 52
                LIS  $9                  ; 1370 79
                LR   $3,A                ; 1371 53
                LI   $40                 ; 1372 20 40
                LR   $4,A                ; 1374 54
                CLR                      ; 1375 70
                LR   $5,A                ; 1376 55
                PI   A1924               ; 1377 28 19 24
                LIS  $9                  ; 137a 79
                AS   $0                  ; 137b c0
                CI   $43                 ; 137c 25 43
                BF   $4,A136b            ; 137e 94 ec
                XDC                      ; 1380 2c
                DCI  A154d               ; 1381 2a 15 4d
                XDC                      ; 1384 2c
A1385:          XDC                      ; 1385 2c
                CLR                      ; 1386 70
                AM                       ; 1387 88
                XDC                      ; 1388 2c
                BT   4,A139d             ; 1389 84 13
                LR   $0,A                ; 138b 50
                LI   $17                 ; 138c 20 17
                LR   $1,A                ; 138e 51
                LIS  $8                  ; 138f 78
                LR   $2,A                ; 1390 52
                LIS  $7                  ; 1391 77
                LR   $3,A                ; 1392 53
                LI   $40                 ; 1393 20 40
                LR   $4,A                ; 1395 54
                CLR                      ; 1396 70
                LR   $5,A                ; 1397 55
                PI   A1924               ; 1398 28 19 24
                BF   $0,A1385            ; 139b 90 e9
A139d:          XDC                      ; 139d 2c
                CLR                      ; 139e 70
                AM                       ; 139f 88
                XDC                      ; 13a0 2c
                BT   4,A13b5             ; 13a1 84 13
                LR   $0,A                ; 13a3 50
                LI   $22                 ; 13a4 20 22
                LR   $1,A                ; 13a6 51
                LIS  $8                  ; 13a7 78
                LR   $2,A                ; 13a8 52
                LIS  $7                  ; 13a9 77
                LR   $3,A                ; 13aa 53
                LI   $80                 ; 13ab 20 80
                LR   $4,A                ; 13ad 54
                CLR                      ; 13ae 70
                LR   $5,A                ; 13af 55
                PI   A1924               ; 13b0 28 19 24
                BF   $0,A139d            ; 13b3 90 e9
A13b5:          XDC                      ; 13b5 2c
                CLR                      ; 13b6 70
                AM                       ; 13b7 88
                XDC                      ; 13b8 2c
                BT   4,A13cd             ; 13b9 84 13
                LR   $0,A                ; 13bb 50
                LI   $2d                 ; 13bc 20 2d
                LR   $1,A                ; 13be 51
                LIS  $8                  ; 13bf 78
                LR   $2,A                ; 13c0 52
                LIS  $7                  ; 13c1 77
                LR   $3,A                ; 13c2 53
                LI   $40                 ; 13c3 20 40
                LR   $4,A                ; 13c5 54
                CLR                      ; 13c6 70
                LR   $5,A                ; 13c7 55
                PI   A1924               ; 13c8 28 19 24
                BF   $0,A13b5            ; 13cb 90 e9
A13cd:          DCI  $2808               ; 13cd 2a 28 08
                LI   $78                 ; 13d0 20 78
                LR   $0,A                ; 13d2 50
                LI   $ff                 ; 13d3 20 ff
A13d5:          ST                       ; 13d5 17
                DS   $0                  ; 13d6 30
                BF   $4,A13d5            ; 13d7 94 fd
                DCI  $281d               ; 13d9 2a 28 1d
                XDC                      ; 13dc 2c
                DCI  A080b               ; 13dd 2a 08 0b
                LIS  $8                  ; 13e0 78
                LR   $0,A                ; 13e1 50
A13e2:          LM                       ; 13e2 16
                XDC                      ; 13e3 2c
                ST                       ; 13e4 17
                XDC                      ; 13e5 2c
                DS   $0                  ; 13e6 30
                BF   $4,A13e2            ; 13e7 94 fa
                LIS  $8                  ; 13e9 78
                LR   $0,A                ; 13ea 50
                XDC                      ; 13eb 2c
                LM                       ; 13ec 16
                LM                       ; 13ed 16
                LIS  $1                  ; 13ee 71
A13ef:          ST                       ; 13ef 17
                DS   $0                  ; 13f0 30
                BF   $4,A13ef            ; 13f1 94 fd
                LIS  $4                  ; 13f3 74
                LR   $1,A                ; 13f4 51
A13f5:          LIS  $8                  ; 13f5 78
                LR   $0,A                ; 13f6 50
                LM                       ; 13f7 16
                LM                       ; 13f8 16
                CLR                      ; 13f9 70
A13fa:          ST                       ; 13fa 17
                DS   $0                  ; 13fb 30
                BF   $4,A13fa            ; 13fc 94 fd
                DS   $1                  ; 13fe 31
                BF   $4,A13f5            ; 13ff 94 f5
                LM                       ; 1401 16
                LM                       ; 1402 16
                LIS  $8                  ; 1403 78
                LR   $0,A                ; 1404 50
                LI   $81                 ; 1405 20 81
A1407:          ST                       ; 1407 17
                DS   $0                  ; 1408 30
                BF   $4,A1407            ; 1409 94 fd
                LM                       ; 140b 16
                LM                       ; 140c 16
                XDC                      ; 140d 2c
                DCI  A080b               ; 140e 2a 08 0b
                LIS  $8                  ; 1411 78
                LR   $0,A                ; 1412 50
A1413:          LM                       ; 1413 16
                OI   $80                 ; 1414 22 80
                XDC                      ; 1416 2c
                ST                       ; 1417 17
                XDC                      ; 1418 2c
                DS   $0                  ; 1419 30
                BF   $4,A1413            ; 141a 94 f8
                CLR                      ; 141c 70
A141d:          LR   IS,A                ; 141d 0b
                CLR                      ; 141e 70
                LR   S, A                ; 141f 5c
                LR   A,IS                ; 1420 0a
                AI   $c1                 ; 1421 24 c1
                BF   $4,A141d            ; 1423 94 f9
                LISU 6                   ; 1425 66
                LI   $c1                 ; 1426 20 c1
                LR   S, A                ; 1428 5c
                LISL 4                   ; 1429 6c
                LIS  $1                  ; 142a 71
                LR   S, A                ; 142b 5c
                LISU 5                   ; 142c 65
                LI   $19                 ; 142d 20 19
                LR   I, A                ; 142f 5d
                LI   $5f                 ; 1430 20 5f
                LR   I, A                ; 1432 5d
                LI   $18                 ; 1433 20 18
                LR   I, A                ; 1435 5d
                LI   $5e                 ; 1436 20 5e
                LR   S, A                ; 1438 5c
                DCI  $2fc0               ; 1439 2a 2f c0
                LR   Q,DC                ; 143c 0e
A143d:          INS  0                   ; 143d a0
                COM                      ; 143e 18
                SL   4                   ; 143f 15
                BF   $1,A1462            ; 1440 91 21
                LISU 6                   ; 1442 66
                LISL 7                   ; 1443 6f
                SL   1                   ; 1444 13
                BT   1,A144d             ; 1445 81 07
                LI   $3f                 ; 1447 20 3f
                NS   (IS)                ; 1449 fc
                LR   S, A                ; 144a 5c
                BF   $0,A1454            ; 144b 90 08
A144d:          SL   1                   ; 144d 13
                BT   1,A145c             ; 144e 81 0d
                LR   A,(IS)              ; 1450 4c
                OI   $c0                 ; 1451 22 c0
                LR   S, A                ; 1453 5c
A1454:          DCI  A199f               ; 1454 2a 19 9f
                PI   A19d7               ; 1457 28 19 d7
                BF   $0,A143d            ; 145a 90 e2
A145c:          SL   1                   ; 145c 13
                BT   1,A143d             ; 145d 81 df
                JMP  A1567               ; 145f 29 15 67
A1462:          PI   A1b36               ; 1462 28 1b 36
A1465:          LISU 6                   ; 1465 66
                LISL 7                   ; 1466 6f
                LR   A,(IS)              ; 1467 4c
                SL   1                   ; 1468 13
                BF   $1,A1473            ; 1469 91 09
                PI   A15b5               ; 146b 28 15 b5
                PI   A1626               ; 146e 28 16 26
                BF   $0,A147f            ; 1471 90 0d
A1473:          PI   A1626               ; 1473 28 16 26
                LISU 6                   ; 1476 66
                LISL 7                   ; 1477 6f
                LI   $80                 ; 1478 20 80
                XS   (IS)                ; 147a ec
                LR   S, A                ; 147b 5c
                PI   A15b5               ; 147c 28 15 b5
A147f:          LISU 6                   ; 147f 66
                LISL 4                   ; 1480 6c
                LIS  $1                  ; 1481 71
                AS   (IS)                ; 1482 cc
                LR   S, A                ; 1483 5c
                BF   $0,A1465            ; 1484 90 e0
A1486:          DS   D                   ; 1486 3e
                LR   A,$1                ; 1487 41
                LR   A,$0                ; 1488 40
                LR   A,$0                ; 1489 40
                DS   D                   ; 148a 3e
                LR   A,KL                ; 148b 01
                LR   A,KL                ; 148c 01
                LR   A,$1                ; 148d 41
                DS   D                   ; 148e 3e
                DS   D                   ; 148f 3e
                LR   A,$1                ; 1490 41
                LR   A,$1                ; 1491 41
                LR   A,$1                ; 1492 41
                LIS  $f                  ; 1493 7f
                LR   A,$1                ; 1494 41
                LR   A,$1                ; 1495 41
                LR   A,$1                ; 1496 41
                LR   A,$1                ; 1497 41
                LIS  $e                  ; 1498 7e
                LR   A,$1                ; 1499 41
                LR   A,$1                ; 149a 41
                LR   A,$1                ; 149b 41
                LIS  $e                  ; 149c 7e
                LR   A,$1                ; 149d 41
                LR   A,$1                ; 149e 41
                LR   A,$1                ; 149f 41
                LIS  $e                  ; 14a0 7e
                DS   D                   ; 14a1 3e
                LR   A,$1                ; 14a2 41
                LR   A,$1                ; 14a3 41
                LR   A,$1                ; 14a4 41
                LIS  $f                  ; 14a5 7f
                LR   A,$1                ; 14a6 41
                LR   A,$1                ; 14a7 41
                LR   A,$1                ; 14a8 41
                LR   A,$1                ; 14a9 41
                LR   A,$4                ; 14aa 44
                LR   A,$4                ; 14ab 44
                LR   A,$4                ; 14ac 44
                LR   A,$4                ; 14ad 44
                LR   A,$4                ; 14ae 44
                PI   $1070               ; 14af 28 10 70
                LI   $20                 ; 14b2 20 20
                LI   $20                 ; 14b4 20 20
                LI   $70                 ; 14b6 20 70
                CLR                      ; 14b8 70
                LR   A,$8                ; 14b9 48
                LR   A,$4                ; 14ba 44
                LR   A,$4                ; 14bb 44
                LR   A,$4                ; 14bc 44
                LR   A,$8                ; 14bd 48
                CLR                      ; 14be 70
                LIS  $c                  ; 14bf 7c
                LR   A,$0                ; 14c0 40
                LR   A,$0                ; 14c1 40
                LIS  $8                  ; 14c2 78
                LR   A,$0                ; 14c3 40
                LR   A,$0                ; 14c4 40
                LIS  $c                  ; 14c5 7c
                DS   $8                  ; 14c6 38
                LR   A,$4                ; 14c7 44
                LR   A,$4                ; 14c8 44
                LR   A,$4                ; 14c9 44
                LR   A,$4                ; 14ca 44
                LR   A,$4                ; 14cb 44
                DS   $8                  ; 14cc 38
                LIS  $8                  ; 14cd 78
                LR   A,$4                ; 14ce 44
                LR   A,$4                ; 14cf 44
                LIS  $8                  ; 14d0 78
                LR   A,$0                ; 14d1 40
                LR   A,$0                ; 14d2 40
                LR   A,$0                ; 14d3 40
                LR   A,$0                ; 14d4 40
                LR   A,$0                ; 14d5 40
                LR   A,$0                ; 14d6 40
                LR   A,$0                ; 14d7 40
                LR   A,$0                ; 14d8 40
                LR   A,$0                ; 14d9 40
                LIS  $c                  ; 14da 7c
                DS   $8                  ; 14db 38
                LR   A,$4                ; 14dc 44
                LR   A,$4                ; 14dd 44
                LIS  $c                  ; 14de 7c
                LR   A,$4                ; 14df 44
                LR   A,$4                ; 14e0 44
                LR   A,$4                ; 14e1 44
                LR   A,$4                ; 14e2 44
                LR   A,$4                ; 14e3 44
                LR   A,$4                ; 14e4 44
                PI   A1010               ; 14e5 28 10 10
                LR   DC,H                ; 14e8 10
                DS   (IS)                ; 14e9 3c
                LR   A,$0                ; 14ea 40
                LR   A,$0                ; 14eb 40
                DS   $8                  ; 14ec 38
                LR   KU,A                ; 14ed 04
                LR   KU,A                ; 14ee 04
                LIS  $8                  ; 14ef 78
                DS   $8                  ; 14f0 38
                LR   A,$4                ; 14f1 44
                LR   A,$0                ; 14f2 40
                LR   A,$0                ; 14f3 40
                LR   A,$0                ; 14f4 40
                LR   A,$4                ; 14f5 44
                DS   $8                  ; 14f6 38
                LR   A,$4                ; 14f7 44
                LR   A,$4                ; 14f8 44
                LR   A,$4                ; 14f9 44
                LIS  $c                  ; 14fa 7c
                LR   A,$4                ; 14fb 44
                LR   A,$4                ; 14fc 44
                LR   A,$4                ; 14fd 44
                DS   $8                  ; 14fe 38
                LR   A,$4                ; 14ff 44
                LR   A,$4                ; 1500 44
                LIS  $c                  ; 1501 7c
                LR   A,$4                ; 1502 44
                LR   A,$4                ; 1503 44
                LR   A,$4                ; 1504 44
                DS   $8                  ; 1505 38
                LR   A,$4                ; 1506 44
                LR   A,$0                ; 1507 40
                LR   A,$0                ; 1508 40
                LR   A,$0                ; 1509 40
                LR   A,$4                ; 150a 44
                DS   $8                  ; 150b 38
                LR   A,$4                ; 150c 44
                LR   A,$4                ; 150d 44
                LR   A,$4                ; 150e 44
                LIS  $c                  ; 150f 7c
                LR   A,$4                ; 1510 44
                LR   A,$4                ; 1511 44
                LR   A,$4                ; 1512 44
                DS   $8                  ; 1513 38
                LR   A,$4                ; 1514 44
                LR   A,$0                ; 1515 40
                LR   A,$0                ; 1516 40
                LR   A,$0                ; 1517 40
                LR   A,$4                ; 1518 44
                DS   $8                  ; 1519 38
                DS   $8                  ; 151a 38
                LR   A,$4                ; 151b 44
                LR   A,$4                ; 151c 44
                LR   A,$4                ; 151d 44
                LR   A,$4                ; 151e 44
                LR   A,$4                ; 151f 44
                DS   $8                  ; 1520 38
                LR   A,$4                ; 1521 44
                LISL 4                   ; 1522 6c
                LR   $4,A                ; 1523 54
                LR   $4,A                ; 1524 54
                LR   A,$4                ; 1525 44
                LR   A,$4                ; 1526 44
                LR   A,$4                ; 1527 44
                LIS  $8                  ; 1528 78
                LR   A,$4                ; 1529 44
                LR   A,$4                ; 152a 44
                LIS  $8                  ; 152b 78
                LR   A,$0                ; 152c 40
                LR   A,$0                ; 152d 40
                LR   A,$0                ; 152e 40
                LR   A,$4                ; 152f 44
                LR   A,$4                ; 1530 44
                LR   A,$4                ; 1531 44
                LR   A,$4                ; 1532 44
                LR   A,$4                ; 1533 44
                LR   A,$4                ; 1534 44
                DS   $8                  ; 1535 38
                LIS  $c                  ; 1536 7c
                LR   DC,H                ; 1537 10
                LR   DC,H                ; 1538 10
                LR   DC,H                ; 1539 10
                LR   DC,H                ; 153a 10
                LR   DC,H                ; 153b 10
                LR   DC,H                ; 153c 10
                LIS  $c                  ; 153d 7c
                LR   A,$0                ; 153e 40
                LR   A,$0                ; 153f 40
                LIS  $8                  ; 1540 78
                LR   A,$0                ; 1541 40
                LR   A,$0                ; 1542 40
                LIS  $c                  ; 1543 7c
                LIS  $8                  ; 1544 78
                LR   A,$4                ; 1545 44
                LR   A,$4                ; 1546 44
                LIS  $8                  ; 1547 78
                LR   $0,A                ; 1548 50
                LR   A,$8                ; 1549 48
                LR   A,$4                ; 154a 44
                LR   A,KU                ; 154b 00
                LR   A,KU                ; 154c 00
A154d:          SR   4                   ; 154d 14
                EI                       ; 154e 1b
                LI   $27                 ; 154f 20 27
                db   $2e                 
                DS   $5                  ; 1552 35
                DS   (IS)                ; 1553 3c
                LR   A,$3                ; 1554 43
                LR   A,$a                ; 1555 4a
                LR   A,KU                ; 1556 00
                LR   W,J                 ; 1557 1d
                AI   $2b                 ; 1558 24 2b
                DS   $2                  ; 155a 32
                DS   $9                  ; 155b 39
                LR   A,$0                ; 155c 40
                LR   A,KU                ; 155d 00
                SL   4                   ; 155e 15
                POP                      ; 155f 1c
                XI   $2b                 ; 1560 23 2b
                DS   $2                  ; 1562 32
                DS   $9                  ; 1563 39
                LR   A,$0                ; 1564 40
                LR   A,$7                ; 1565 47
                LR   A,KU                ; 1566 00
A1567:          PI   A1b36               ; 1567 28 1b 36
A156a:          PI   A1b7d               ; 156a 28 1b 7d
                LISU 2                   ; 156d 62
                LISL 0                   ; 156e 68
                LR   A,(IS)              ; 156f 4c
                LISL 2                   ; 1570 6a
                XS   (IS)                ; 1571 ec
                BF   $4,A1582            ; 1572 94 0f
                LIS  $7                  ; 1574 77
                NS   (IS)                ; 1575 fc
                INC                      ; 1576 1f
                LR   $0,A                ; 1577 50
                LISU 6                   ; 1578 66
                LISL 7                   ; 1579 6f
                LI   $f0                 ; 157a 20 f0
                NS   (IS)                ; 157c fc
                XS   $0                  ; 157d e0
                LR   S, A                ; 157e 5c
                JMP  A1465               ; 157f 29 14 65
A1582:          DCI  $28b0               ; 1582 2a 28 b0
                PI   A18cb               ; 1585 28 18 cb
                LISL 0                   ; 1588 68
                PI   A18cb               ; 1589 28 18 cb
                CLR                      ; 158c 70
                ST                       ; 158d 17
                LISU 4                   ; 158e 64
                LISL 2                   ; 158f 6a
                LI   $28                 ; 1590 20 28
                LR   I, A                ; 1592 5d
                LI   $ae                 ; 1593 20 ae
                LR   S, A                ; 1595 5c
                PI   A0cff               ; 1596 28 0c ff
                LISU 2                   ; 1599 62
                LISL 0                   ; 159a 68
                LR   A,(IS)              ; 159b 4c
                LR   $b,A                ; 159c 5b
                LIS  $1                  ; 159d 71
                LR   $a,A                ; 159e 5a
                LISL 2                   ; 159f 6a
                LR   A,(IS)              ; 15a0 4c
                LISU 7                   ; 15a1 67
                LR   S, A                ; 15a2 5c
                PI   A1ab4               ; 15a3 28 1a b4
                LISU 7                   ; 15a6 67
                LISL 2                   ; 15a7 6a
                LR   A,(IS)              ; 15a8 4c
                LR   $b,A                ; 15a9 5b
                LIS  $1                  ; 15aa 71
                LR   $a,A                ; 15ab 5a
                PI   A1ab4               ; 15ac 28 1a b4
                LISU 6                   ; 15af 66
                LISL 4                   ; 15b0 6c
                LIS  $2                  ; 15b1 72
                LR   S, A                ; 15b2 5c
                BF   $0,A156a            ; 15b3 90 b6
A15b5:          LR   K,P                 ; 15b5 08
                PI   A131d               ; 15b6 28 13 1d
                DCI  $8000               ; 15b9 2a 80 00     Toggle LED
                ST                       ; 15bc 17
                PI   A084b               ; 15bd 28 08 4b
                DCI  $3800               ; 15c0 2a 38 00     LED OFF
                ST                       ; 15c3 17
                LISU 4                   ; 15c4 64
                LISL 6                   ; 15c5 6e
                LR   A,I                 ; 15c6 4d
                LR   $0,A                ; 15c7 50
                LR   A,(IS)              ; 15c8 4c
                LISL 3                   ; 15c9 6b
                LR   D, A                ; 15ca 5e
                LR   A,$0                ; 15cb 40
                LR   S, A                ; 15cc 5c
                DCI  $28a3               ; 15cd 2a 28 a3
                LIS  $1                  ; 15d0 71
                CM                       ; 15d1 8d
                BF   $4,A15d8            ; 15d2 94 05
                LR   $2,A                ; 15d4 52
                PI   A188f               ; 15d5 28 18 8f
A15d8:          DCI  $28a3               ; 15d8 2a 28 a3
                LIS  $1                  ; 15db 71
                AM                       ; 15dc 88
                BT   4,A1616             ; 15dd 84 38
                LISU 4                   ; 15df 64
                LISL 6                   ; 15e0 6e
                LR   A,I                 ; 15e1 4d
                LR   $0,A                ; 15e2 50
                LR   A,(IS)              ; 15e3 4c
                LISL 3                   ; 15e4 6b
                LR   D, A                ; 15e5 5e
                LR   A,$0                ; 15e6 40
                LR   S, A                ; 15e7 5c
                PI   A0cff               ; 15e8 28 0c ff
                PI   A0e0b               ; 15eb 28 0e 0b
                CLR                      ; 15ee 70
                AS   $0                  ; 15ef c0
                BT   4,A1613             ; 15f0 84 22
                DCI  A185d               ; 15f2 2a 18 5d
                LI   $5a                 ; 15f5 20 5a
                LR   $0,A                ; 15f7 50
                LIS  $7                  ; 15f8 77
                LR   $2,A                ; 15f9 52
                CLR                      ; 15fa 70
                LR   $5,A                ; 15fb 55
                LISU 6                   ; 15fc 66
                LISL 7                   ; 15fd 6f
                AS   (IS)                ; 15fe cc
                LI   $c0                 ; 15ff 20 c0
                LR   $4,A                ; 1601 54
                LI   $21                 ; 1602 20 21
                BT   1,A160a             ; 1604 81 05
                LI   $80                 ; 1606 20 80
                LR   $4,A                ; 1608 54
                LIS  $5                  ; 1609 75
A160a:          LR   $1,A                ; 160a 51
                LI   $1c                 ; 160b 20 1c
                LR   $3,A                ; 160d 53
                PI   A1924               ; 160e 28 19 24
A1611:          BF   $0,A1611            ; 1611 90 ff
A1613:          PI   A0d7e               ; 1613 28 0d 7e
A1616:          PI   A16bb               ; 1616 28 16 bb
                DCI  $28a3               ; 1619 2a 28 a3
                LIS  $1                  ; 161c 71
                AM                       ; 161d 88
                BF   $4,A1623            ; 161e 94 04
                PI   A188f               ; 1620 28 18 8f
A1623:          JMP  A1324               ; 1623 29 13 24
A1626:          LR   K,P                 ; 1626 08
                PI   A131d               ; 1627 28 13 1d
                PI   A18f2               ; 162a 28 18 f2
A162d:          PI   A1b7d               ; 162d 28 1b 7d
                DCI  $2ffe               ; 1630 2a 2f fe
                LM                       ; 1633 16
                LR   $0,A                ; 1634 50
                LIS  $3                  ; 1635 73
                LR   $1,A                ; 1636 51
                LIS  $8                  ; 1637 78
                NS   $0                  ; 1638 f0
                BF   $4,A1646            ; 1639 94 0c
                DS   $1                  ; 163b 31
                LIS  $4                  ; 163c 74
                NS   $0                  ; 163d f0
                BF   $4,A1646            ; 163e 94 07
                DS   $1                  ; 1640 31
                LIS  $2                  ; 1641 72
                NS   $0                  ; 1642 f0
                BF   $4,A1646            ; 1643 94 02
                DS   $1                  ; 1645 31
A1646:          LR   A,$1                ; 1646 41
                ST                       ; 1647 17
                LISU 2                   ; 1648 62
                LISL 0                   ; 1649 68
                LR   A,(IS)              ; 164a 4c
                LISL 2                   ; 164b 6a
                XS   (IS)                ; 164c ec
                BF   $4,A1661            ; 164d 94 13
                LISU 6                   ; 164f 66
                LISL 7                   ; 1650 6f
                LI   $c0                 ; 1651 20 c0
                XS   (IS)                ; 1653 ec
                LR   S, A                ; 1654 5c
                PI   A15b5               ; 1655 28 15 b5
                LISU 6                   ; 1658 66
                LISL 7                   ; 1659 6f
                LI   $c0                 ; 165a 20 c0
                XS   (IS)                ; 165c ec
                LR   S, A                ; 165d 5c
                JMP  A1324               ; 165e 29 13 24
A1661:          DCI  $2fe2               ; 1661 2a 2f e2
                PI   A18cb               ; 1664 28 18 cb
                LR   $2,A                ; 1667 52
                LISL 0                   ; 1668 68
                PI   A18cb               ; 1669 28 18 cb
                LR   $3,A                ; 166c 53
                DCI  $2c02               ; 166d 2a 2c 02
A1670:          LR   A,$2                ; 1670 42
                CM                       ; 1671 8d
                BF   $4,A1695            ; 1672 94 22
                LR   A,$3                ; 1674 43
                CM                       ; 1675 8d
                BF   $4,A1696            ; 1676 94 1f
                LI   $fc                 ; 1678 20 fc
                ADC                      ; 167a 8e
                LR   H,DC                ; 167b 11
                LISU 4                   ; 167c 64
                LISL 2                   ; 167d 6a
                LR   A,$a                ; 167e 4a
                LR   I, A                ; 167f 5d
                LR   A,$b                ; 1680 4b
                LR   S, A                ; 1681 5c
                PI   A0cff               ; 1682 28 0c ff
                PI   A0e0b               ; 1685 28 0e 0b
                CLR                      ; 1688 70
                AS   $0                  ; 1689 c0
                BF   $4,A16a6            ; 168a 94 1b
                PI   A0d7e               ; 168c 28 0d 7e
                PI   A16bb               ; 168f 28 16 bb
                JMP  A1324               ; 1692 29 13 24
A1695:          LM                       ; 1695 16
A1696:          LI   $fc                 ; 1696 20 fc
                ADC                      ; 1698 8e
                LM                       ; 1699 16
                LR   $a,A                ; 169a 5a
                LM                       ; 169b 16
                LR   $b,A                ; 169c 5b
                CLR                      ; 169d 70
                XS   $a                  ; 169e ea
                BT   4,A16a9             ; 169f 84 09
                LR   DC,H                ; 16a1 10
                LM                       ; 16a2 16
                LM                       ; 16a3 16
                BF   $0,A1670            ; 16a4 90 cb
A16a6:          PI   A0d7e               ; 16a6 28 0d 7e
A16a9:          LISU 3                   ; 16a9 63
                LISL 0                   ; 16aa 68
                LIS  $a                  ; 16ab 7a
                LR   S, A                ; 16ac 5c
A16ad:          DCI  A199f               ; 16ad 2a 19 9f
                PI   A19d7               ; 16b0 28 19 d7
                LISU 3                   ; 16b3 63
                LISL 0                   ; 16b4 68
                DS   (IS)                ; 16b5 3c
                BF   $4,A16ad            ; 16b6 94 f6
                JMP  A162d               ; 16b8 29 16 2d
A16bb:          LR   K,P                 ; 16bb 08
                PI   A131d               ; 16bc 28 13 1d
                LISU 4                   ; 16bf 64
                LISL 3                   ; 16c0 6b
                LIS  $2                  ; 16c1 72
                AS   D                   ; 16c2 ce
                LR   $b,A                ; 16c3 5b
                LR   A,(IS)              ; 16c4 4c
                LNK                      ; 16c5 19
                LR   $a,A                ; 16c6 5a
                LR   DC,H                ; 16c7 10
                PI   A18de               ; 16c8 28 18 de
                LISU 3                   ; 16cb 63
                LISL 6                   ; 16cc 6e
                LR   S, A                ; 16cd 5c
                LI   $1e                 ; 16ce 20 1e
                LR   $a,A                ; 16d0 5a
                PI   A1ab4               ; 16d1 28 1a b4
                PI   A0cff               ; 16d4 28 0c ff
                DCI  A199f               ; 16d7 2a 19 9f
                PI   A19d7               ; 16da 28 19 d7
                LISU 4                   ; 16dd 64
                LISL 3                   ; 16de 6b
                LIS  $3                  ; 16df 73
                AS   D                   ; 16e0 ce
                LR   $b,A                ; 16e1 5b
                LR   A,(IS)              ; 16e2 4c
                LNK                      ; 16e3 19
                LR   $a,A                ; 16e4 5a
                LR   DC,H                ; 16e5 10
                PI   A18de               ; 16e6 28 18 de
                LISU 3                   ; 16e9 63
                LISL 7                   ; 16ea 6f
                LR   S, A                ; 16eb 5c
                LI   $1e                 ; 16ec 20 1e
                LR   $a,A                ; 16ee 5a
                PI   A1ab4               ; 16ef 28 1a b4
                DCI  A199f               ; 16f2 2a 19 9f
                PI   A19d7               ; 16f5 28 19 d7
                LISU 4                   ; 16f8 64
                LISL 3                   ; 16f9 6b
                LIS  $2                  ; 16fa 72
                AS   D                   ; 16fb ce
                LR   $b,A                ; 16fc 5b
                LR   A,(IS)              ; 16fd 4c
                LNK                      ; 16fe 19
                LR   $a,A                ; 16ff 5a
                LR   DC,H                ; 1700 10
                PI   A18de               ; 1701 28 18 de
                LIS  $1                  ; 1704 71
                LR   $a,A                ; 1705 5a
                PI   A1ab4               ; 1706 28 1a b4
                LISU 4                   ; 1709 64
                LISL 4                   ; 170a 6c
A170b:          CLR                      ; 170b 70
                AS   (IS)                ; 170c cc
                LI   $21                 ; 170d 20 21
                LR   $1,A                ; 170f 51
                LI   $c0                 ; 1710 20 c0
                BT   1,A1718             ; 1712 81 05
                LIS  $5                  ; 1714 75
                LR   $1,A                ; 1715 51
                LI   $80                 ; 1716 20 80
A1718:          LR   S, A                ; 1718 5c
                LIS  $7                  ; 1719 77
                LISU 3                   ; 171a 63
                LISL 6                   ; 171b 6e
                PI   A178e               ; 171c 28 17 8e
                LISU 3                   ; 171f 63
                LISL 7                   ; 1720 6f
                PI   A178e               ; 1721 28 17 8e
                LISU 4                   ; 1724 64
                LISL 3                   ; 1725 6b
                LIS  $4                  ; 1726 74
                AS   D                   ; 1727 ce
                LR   $b,A                ; 1728 5b
                LR   A,(IS)              ; 1729 4c
                LNK                      ; 172a 19
                LR   $a,A                ; 172b 5a
                LR   DC,H                ; 172c 10
                LM                       ; 172d 16
                SL   1                   ; 172e 13
                BT   1,A174b             ; 172f 81 1b
                LM                       ; 1731 16
                LM                       ; 1732 16
                LM                       ; 1733 16
                LISU 3                   ; 1734 63
                LISL 6                   ; 1735 6e
                PI   A18de               ; 1736 28 18 de
                LR   I, A                ; 1739 5d
                PI   A18de               ; 173a 28 18 de
                LIS  $1                  ; 173d 71
                LR   $a,A                ; 173e 5a
                PI   A1ab4               ; 173f 28 1a b4
                LISU 3                   ; 1742 63
                LISL 6                   ; 1743 6e
                LR   A,(IS)              ; 1744 4c
                LR   $b,A                ; 1745 5b
                LIS  $1                  ; 1746 71
                LR   $a,A                ; 1747 5a
                PI   A1ab4               ; 1748 28 1a b4
A174b:          LISU 6                   ; 174b 66
                LISL 7                   ; 174c 6f
                LI   $80                 ; 174d 20 80
                XS   (IS)                ; 174f ec
                LR   S, A                ; 1750 5c
                PI   A0e0b               ; 1751 28 0e 0b
                LISU 6                   ; 1754 66
                LISL 7                   ; 1755 6f
                LI   $80                 ; 1756 20 80
                XS   (IS)                ; 1758 ec
                LR   S, A                ; 1759 5c
                CLR                      ; 175a 70
                AS   $0                  ; 175b c0
                BF   $4,A1761            ; 175c 94 04
                JMP  A1324               ; 175e 29 13 24
A1761:          DCI  A1876               ; 1761 2a 18 76
                LI   $5a                 ; 1764 20 5a
                LR   $0,A                ; 1766 50
                CLR                      ; 1767 70
                LR   $5,A                ; 1768 55
                AS   (IS)                ; 1769 cc
                LIS  $5                  ; 176a 75
                LR   $1,A                ; 176b 51
                LI   $80                 ; 176c 20 80
                BT   1,A1775             ; 176e 81 06
                LI   $21                 ; 1770 20 21
                LR   $1,A                ; 1772 51
                LI   $c0                 ; 1773 20 c0
A1775:          LR   $4,A                ; 1775 54
                LIS  $7                  ; 1776 77
                LR   $2,A                ; 1777 52
                LI   $1c                 ; 1778 20 1c
                LR   $3,A                ; 177a 53
                PI   A1924               ; 177b 28 19 24
                DCI  A1787               ; 177e 2a 17 87
                PI   A19d7               ; 1781 28 19 d7
                JMP  A1324               ; 1784 29 13 24
A1787:          LR   A,KL                ; 1787 01
                COM                      ; 1788 18
                LISU 0                   ; 1789 60
                BT   0,A170b             ; 178a 80 80
                BT   0,0                 ; 178c 80 00
A178e:          LR   K,P                 ; 178e 08
                PI   A131d               ; 178f 28 13 1d
                LR   A,(IS)              ; 1792 4c
                LISU 4                   ; 1793 64
                LISL 5                   ; 1794 6d
                LR   S, A                ; 1795 5c
                DCI  A17c4               ; 1796 2a 17 c4
                LIS  $7                  ; 1799 77
                NS   D                   ; 179a fe
                SL   4                   ; 179b 15
                SR   1                   ; 179c 12
                ADC                      ; 179d 8e
                LIS  $7                  ; 179e 77
                LR   $2,A                ; 179f 52
                LR   $3,A                ; 17a0 53
                LI   $5a                 ; 17a1 20 5a
                LR   $0,A                ; 17a3 50
                LR   A,(IS)              ; 17a4 4c
                LR   $4,A                ; 17a5 54
                CLR                      ; 17a6 70
                LR   $5,A                ; 17a7 55
A17a8:          LIS  $1                  ; 17a8 71
                LR   $6,A                ; 17a9 56
                PI   A1924               ; 17aa 28 19 24
                LISU 4                   ; 17ad 64
                LISL 5                   ; 17ae 6d
                LI   $38                 ; 17af 20 38
                NS   D                   ; 17b1 fe
                DCI  A1804               ; 17b2 2a 18 04
                ADC                      ; 17b5 8e
                LR   A,(IS)              ; 17b6 4c
                LR   $4,A                ; 17b7 54
                LIS  $7                  ; 17b8 77
                LR   $3,A                ; 17b9 53
                CLR                      ; 17ba 70
                LR   $5,A                ; 17bb 55
                LIS  $1                  ; 17bc 71
                LR   $6,A                ; 17bd 56
                PI   A1924               ; 17be 28 19 24
                JMP  A1324               ; 17c1 29 13 24
A17c4:          LR   DC,H                ; 17c4 10
                LR   $1,A                ; 17c5 51
                SL   1                   ; 17c6 13
                XS   $4                  ; 17c7 e4
                LR   A,$8                ; 17c8 48
                BT   0,0                 ; 17c9 80 00
                LR   A,KU                ; 17cb 00
                LIS  $8                  ; 17cc 78
                AMD                      ; 17cd 89
                XS   $2                  ; 17ce e2
                AI   $4f                 ; 17cf 24 4f
                LR   A,KU                ; 17d1 00
                LR   A,KU                ; 17d2 00
                LR   A,KU                ; 17d3 00
                DS   $8                  ; 17d4 38
                AMD                      ; 17d5 89
                LR   A,QU                ; 17d6 02
                LR   KU,A                ; 17d7 04
                LR   A,$7                ; 17d8 47
                LR   A,KU                ; 17d9 00
                LR   A,KU                ; 17da 00
                LR   A,KU                ; 17db 00
                LIS  $8                  ; 17dc 78
                AMD                      ; 17dd 89
                SR   1                   ; 17de 12
                AI   $4f                 ; 17df 24 4f
                LR   A,KU                ; 17e1 00
                LR   A,KU                ; 17e2 00
                LR   A,KU                ; 17e3 00
                LIS  $c                  ; 17e4 7c
                BT   1,A17a8             ; 17e5 81 c2
                LR   KU,A                ; 17e7 04
                LR   DC,Q                ; 17e8 0f
                BT   0,0                 ; 17e9 80 00
                LR   A,KU                ; 17eb 00
                LIS  $c                  ; 17ec 7c
                BT   1,-62               ; 17ed 81 c2
                LR   KU,A                ; 17ef 04
                LR   K,P                 ; 17f0 08
                LR   A,KU                ; 17f1 00
                LR   A,KU                ; 17f2 00
                LR   A,KU                ; 17f3 00
                LIS  $c                  ; 17f4 7c
                AMD                      ; 17f5 89
                LR   A,QU                ; 17f6 02
                LIS  $4                  ; 17f7 74
                db   $4f                 
                BT   0,0                 ; 17f9 80 00
                LR   A,KU                ; 17fb 00
                LR   A,$4                ; 17fc 44
                AMD                      ; 17fd 89
                NS   $2                  ; 17fe f2
                AI   $48                 ; 17ff 24 48
                BT   0,0                 ; 1801 80 00
                LR   A,KU                ; 1803 00
A1804:          LR   DC,H                ; 1804 10
                LISU 0                   ; 1805 60
A1806:          LR   A,$0                ; 1806 40
                BT   1,A180f             ; 1807 81 07
                LR   A,KU                ; 1809 00
                LR   A,KU                ; 180a 00
                LR   A,KU                ; 180b 00
                DS   $8                  ; 180c 38
                AM                       ; 180d 88
A180e:          LR   DC,H                ; 180e 10
A180f:          LR   A,$3                ; 180f 43
                LR   DC,Q                ; 1810 0f
                BT   0,0                 ; 1811 80 00
                LR   A,KU                ; 1813 00
                DS   $8                  ; 1814 38
                AM                       ; 1815 88
                LISU 0                   ; 1816 60
                AI   $47                 ; 1817 24 47
                LR   A,KU                ; 1819 00
                LR   A,KU                ; 181a 00
                LR   A,KU                ; 181b 00
                LR   A,$8                ; 181c 48
                BF   $1,A180e            ; 181d 91 f0
                LR   A,$0                ; 181f 40
                BT   1,0                 ; 1820 81 00
                LR   A,KU                ; 1822 00
                LR   A,KU                ; 1823 00
                LIS  $c                  ; 1824 7c
                BT   1,A1806             ; 1825 81 e0
                AI   $47                 ; 1827 24 47
                LR   A,KU                ; 1829 00
                LR   A,KU                ; 182a 00
                LR   A,KU                ; 182b 00
                DS   $8                  ; 182c 38
                AMD                      ; 182d 89
                LR   A,QL                ; 182e 03
                AS   $4                  ; 182f c4
                LR   A,$7                ; 1830 47
                LR   A,KU                ; 1831 00
                LR   A,KU                ; 1832 00
                LR   A,KU                ; 1833 00
                LIS  $c                  ; 1834 7c
                LR   K,P                 ; 1835 08
                LI   $81                 ; 1836 20 81
                LR   A,QU                ; 1838 02
                LR   A,KU                ; 1839 00
                LR   A,KU                ; 183a 00
                LR   A,KU                ; 183b 00
                DS   $8                  ; 183c 38
                AM                       ; 183d 88
                XS   $2                  ; 183e e2
                AI   $47                 ; 183f 24 47
                LR   A,KU                ; 1841 00
                LR   A,KU                ; 1842 00
                LR   A,KU                ; 1843 00
A1844:          LR   A,$4                ; 1844 44
                ASD  $9                  ; 1845 d9
                LR   $2,A                ; 1846 52
                AI   $48                 ; 1847 24 48
                BT   0,A1852             ; 1849 80 08
                PI   $89f2               ; 184b 28 89 f2
                AI   $40                 ; 184e 24 40
                INC                      ; 1850 1f
                LR   K,P                 ; 1851 08
A1852:          LR   DC,H                ; 1852 10
                LI   $40                 ; 1853 20 40
                BT   0,15                ; 1855 80 0f
                BT   4,A1860             ; 1857 84 08
                LR   DC,H                ; 1859 10
                LI   $40                 ; 185a 20 40
                LR   A,KU                ; 185c 00
A185d:          LIS  $8                  ; 185d 78
                AMD                      ; 185e 89
                SL   1                   ; 185f 13
A1860:          AS   $4                  ; 1860 c4
                LR   K,P                 ; 1861 08
                LR   A,KU                ; 1862 00
                LR   K,P                 ; 1863 08
                PI   $89f2               ; 1864 28 89 f2
                AI   $40                 ; 1867 24 40
                INC                      ; 1869 1f
                LR   K,P                 ; 186a 08
                LR   DC,H                ; 186b 10
                LI   $40                 ; 186c 20 40
                BT   0,A187e             ; 186e 80 0f
                BT   4,A1879             ; 1870 84 08
                LR   DC,H                ; 1872 10
                LI   $40                 ; 1873 20 40
                LR   A,KU                ; 1875 00
A1876:          DS   $8                  ; 1876 38
                AMD                      ; 1877 89
                LR   A,KL                ; 1878 01
A1879:          AS   $0                  ; 1879 c0
                LR   A,$8                ; 187a 48
                ADC                      ; 187b 8e
                LR   A,KU                ; 187c 00
                DS   $8                  ; 187d 38
A187e:          AMD                      ; 187e 89
                LR   A,QU                ; 187f 02
                LR   KU,A                ; 1880 04
                LR   A,$7                ; 1881 47
                LR   A,KU                ; 1882 00
                OI   $44                 ; 1883 22 44
                NS   $9                  ; 1885 f9
                SR   1                   ; 1886 12
                AI   $40                 ; 1887 24 40
                LR   A,KU                ; 1889 00
                LR   A,KU                ; 188a 00
                LR   A,KU                ; 188b 00
                LR   A,KU                ; 188c 00
                LR   A,KU                ; 188d 00
                LR   A,KU                ; 188e 00
A188f:          LISU 6                   ; 188f 66
                LISL 4                   ; 1890 6c
                LR   A,D                 ; 1891 4e
                XS   (IS)                ; 1892 ec
                BT   4,A1896             ; 1893 84 02
                POP                      ; 1895 1c
A1896:          DCI  A1844               ; 1896 2a 18 44
                LI   $5a                 ; 1899 20 5a
                LR   $0,A                ; 189b 50
                LIS  $7                  ; 189c 77
                LR   $2,A                ; 189d 52
                CLR                      ; 189e 70
                LR   $5,A                ; 189f 55
                LISU 6                   ; 18a0 66
                LISL 7                   ; 18a1 6f
                AS   (IS)                ; 18a2 cc
                LI   $c0                 ; 18a3 20 c0
                LR   $4,A                ; 18a5 54
                LI   $21                 ; 18a6 20 21
                BT   1,A18ae             ; 18a8 81 05
                LI   $80                 ; 18aa 20 80
                LR   $4,A                ; 18ac 54
                LIS  $5                  ; 18ad 75
A18ae:          LR   $1,A                ; 18ae 51
                LI   $1c                 ; 18af 20 1c
                LR   $3,A                ; 18b1 53
                PI   A1924               ; 18b2 28 19 24
                LIS  $1                  ; 18b5 71
                LR   $5,A                ; 18b6 55
                CLR                      ; 18b7 70
                LR   $6,A                ; 18b8 56
                LR   $7,A                ; 18b9 57
A18ba:          DS   $6                  ; 18ba 36
                BF   $4,A18ba            ; 18bb 94 fe
                DS   $7                  ; 18bd 37
                BF   $4,A18ba            ; 18be 94 fb
                DCI  $2c00               ; 18c0 2a 2c 00
                PI   A19d7               ; 18c3 28 19 d7
                DS   $5                  ; 18c6 35
                BF   $4,A18ba            ; 18c7 94 f2
A18c9:          BF   $0,A18c9            ; 18c9 90 ff
A18cb:          LR   A,(IS)              ; 18cb 4c
                LR   $1,A                ; 18cc 51
                LI   $15                 ; 18cd 20 15
A18cf:          LR   $0,A                ; 18cf 50
                LI   $f8                 ; 18d0 20 f8
                AS   $1                  ; 18d2 c1
                BF   $1,A18da            ; 18d3 91 06
                LR   $1,A                ; 18d5 51
                LIS  $a                  ; 18d6 7a
                AS   $0                  ; 18d7 c0
                BF   $0,A18cf            ; 18d8 90 f6
A18da:          LR   A,$1                ; 18da 41
                AS   $0                  ; 18db c0
                ST                       ; 18dc 17
                POP                      ; 18dd 1c
A18de:          LI   $eb                 ; 18de 20 eb
                AM                       ; 18e0 88
                LR   $1,A                ; 18e1 51
                CLR                      ; 18e2 70
A18e3:          LR   $0,A                ; 18e3 50
                LI   $f6                 ; 18e4 20 f6
                AS   $1                  ; 18e6 c1
                BF   $1,A18ee            ; 18e7 91 06
                LR   $1,A                ; 18e9 51
                LIS  $8                  ; 18ea 78
                AS   $0                  ; 18eb c0
                BF   $0,A18e3            ; 18ec 90 f6
A18ee:          LR   A,$1                ; 18ee 41
                AS   $0                  ; 18ef c0
                LR   $b,A                ; 18f0 5b
                POP                      ; 18f1 1c
A18f2:          LR   K,P                 ; 18f2 08
                PI   A131d               ; 18f3 28 13 1d
                LISU 4                   ; 18f6 64
                LISL 2                   ; 18f7 6a
                LR   A,(IS)              ; 18f8 4c
                LISU 3                   ; 18f9 63
                LR   I, A                ; 18fa 5d
                LISU 4                   ; 18fb 64
                LR   A,(IS)              ; 18fc 4c
                LISU 3                   ; 18fd 63
                LISL 0                   ; 18fe 68
                LR   D, A                ; 18ff 5e
                LISU 6                   ; 1900 66
                LI   $80                 ; 1901 20 80
                XS   (IS)                ; 1903 ec
                LR   I, A                ; 1904 5d
                LISU 4                   ; 1905 64
                LI   $2f                 ; 1906 20 2f
                LR   I, A                ; 1908 5d
                LI   $7e                 ; 1909 20 7e
                LR   I, A                ; 190b 5d
                LISU 5                   ; 190c 65
                LI   $2c                 ; 190d 20 2c
                LR   I, A                ; 190f 5d
                LI   $00                 ; 1910 20 00
                LR   S, A                ; 1912 5c
                PI   A09d1               ; 1913 28 09 d1
                LISU 3                   ; 1916 63
                LISL 2                   ; 1917 6a
                LR   A,(IS)              ; 1918 4c
                LISU 4                   ; 1919 64
                LR   S, A                ; 191a 5c
                LISU 3                   ; 191b 63
                LISL 0                   ; 191c 68
                LR   A,(IS)              ; 191d 4c
                LISU 4                   ; 191e 64
                LISL 3                   ; 191f 6b
                LR   S, A                ; 1920 5c
                JMP  A1324               ; 1921 29 13 24
A1924:          LI   $40                 ; 1924 20 40
                OUTS 0                   ; 1926 b0
                LR   A,$4                ; 1927 44
                COM                      ; 1928 18
                NI   $c0                 ; 1929 21 c0
                AS   $5                  ; 192b c5
                LR   $4,A                ; 192c 54
                LR   $6,A                ; 192d 56
                CLR                      ; 192e 70
                LR   $5,A                ; 192f 55
                LIS  $1                  ; 1930 71
                LR   $9,A                ; 1931 59
                LIS  $8                  ; 1932 78
                NS   $4                  ; 1933 f4
                BT   4,A1939             ; 1934 84 04
                LI   $ff                 ; 1936 20 ff
                LR   $9,A                ; 1938 59
A1939:          LR   A,$0                ; 1939 40
                COM                      ; 193a 18
                OUTS 4                   ; 193b b4
                LR   A,$2                ; 193c 42
                LR   $7,A                ; 193d 57
A193e:          CLR                      ; 193e 70
                AS   $5                  ; 193f c5
                BF   $4,A194e            ; 1940 94 0d
                LIS  $8                  ; 1942 78
                LR   $5,A                ; 1943 55
                LI   $ff                 ; 1944 20 ff
                LR   $8,A                ; 1946 58
                LI   $20                 ; 1947 20 20
                NS   $4                  ; 1949 f4
                BF   $4,A194e            ; 194a 94 03
                LM                       ; 194c 16
                LR   $8,A                ; 194d 58
A194e:          LR   A,$6                ; 194e 46
                OUTS 1                   ; 194f b1
                CLR                      ; 1950 70
                AS   $8                  ; 1951 c8
                BF   $1,A195b            ; 1952 91 08
                LI   $ff                 ; 1954 20 ff
                OUTS 1                   ; 1956 b1
                LIS  $1                  ; 1957 71
                NS   $4                  ; 1958 f4
                BF   $4,A196d            ; 1959 94 13
A195b:          INS  5                   ; 195b a5
                COM                      ; 195c 18
                NI   $c0                 ; 195d 21 c0
                AS   $1                  ; 195f c1
                COM                      ; 1960 18
                OUTS 5                   ; 1961 b5
                LI   $60                 ; 1962 20 60
                OUTS 0                   ; 1964 b0
                LI   $40                 ; 1965 20 40
                OUTS 0                   ; 1967 b0
                LIS  $4                  ; 1968 74
A1969:          AI   $ff                 ; 1969 24 ff
                BF   $4,A1969            ; 196b 94 fd
A196d:          INS  4                   ; 196d a4
                AI   $ff                 ; 196e 24 ff
                OUTS 4                   ; 1970 b4
                LI   $10                 ; 1971 20 10
                NS   $4                  ; 1973 f4
                BT   4,A1979             ; 1974 84 04
                LR   A,$6                ; 1976 46
                SL   1                   ; 1977 13
                LR   $6,A                ; 1978 56
A1979:          DS   $5                  ; 1979 35
                LR   A,$8                ; 197a 48
                SL   1                   ; 197b 13
                LR   $8,A                ; 197c 58
                DS   $7                  ; 197d 37
                BF   $4,A193e            ; 197e 94 bf
                LR   A,$1                ; 1980 41
                AS   $9                  ; 1981 c9
                LR   $1,A                ; 1982 51
                LR   A,$4                ; 1983 44
                LR   $6,A                ; 1984 56
                DS   $3                  ; 1985 33
                BF   $4,A1939            ; 1986 94 b2
                CLR                      ; 1988 70
                OUTS 0                   ; 1989 b0
                POP                      ; 198a 1c
A198b:          LI   $20                 ; 198b 20 20
                LR   $2,A                ; 198d 52
A198e:          DS   $2                  ; 198e 32
                BF   $4,A198e            ; 198f 94 fe
                DS   $3                  ; 1991 33
                BF   $4,A198b            ; 1992 94 f8
A1994:          LISU 3                   ; 1994 63
                LISL 4                   ; 1995 6c
                LR   A,(IS)              ; 1996 4c
                SL   1                   ; 1997 13
                SL   1                   ; 1998 13
                SL   1                   ; 1999 13
                AS   (IS)                ; 199a cc
                AI   $59                 ; 199b 24 59
                LR   S, A                ; 199d 5c
                POP                      ; 199e 1c
A199f:          LR   A,KL                ; 199f 01
                LR   A,$0                ; 19a0 40
                LR   A,$0                ; 19a1 40
                DS   $0                  ; 19a2 30
                db   $ff                 
                NS   D                   ; 19a4 fe
                LR   A,KU                ; 19a5 00
A19a6:          INS  0                   ; 19a6 a0
                COM                      ; 19a7 18
                NI   $0f                 ; 19a8 21 0f
                BT   4,A19ce             ; 19aa 84 23
                LR   $3,A                ; 19ac 53
                DCI  $2ffe               ; 19ad 2a 2f fe
                CM                       ; 19b0 8d
                BT   4,A19ce             ; 19b1 84 1c
                LI   $e0                 ; 19b3 20 e0
A19b5:          INC                      ; 19b5 1f
                BF   $4,A19b5            ; 19b6 94 fe
                INS  0                   ; 19b8 a0
                COM                      ; 19b9 18
                NI   $0f                 ; 19ba 21 0f
                COM                      ; 19bc 18
                INC                      ; 19bd 1f
                AS   $3                  ; 19be c3
                BF   $4,A19a6            ; 19bf 94 e6
                LR   A,$3                ; 19c1 43
                DCI  $2ffe               ; 19c2 2a 2f fe
                ST                       ; 19c5 17
                LI   $80                 ; 19c6 20 80
                OUTS 5                   ; 19c8 b5
                CLR                      ; 19c9 70
A19ca:          INC                      ; 19ca 1f
                BF   $4,A19ca            ; 19cb 94 fe
                OUTS 5                   ; 19cd b5
A19ce:          CLR                      ; 19ce 70
                OUTS 1                   ; 19cf b1
                OUTS 4                   ; 19d0 b4
                INS  1                   ; 19d1 a1
                LR   $3,A                ; 19d2 53
                INS  4                   ; 19d3 a4
                NS   $3                  ; 19d4 f3
                COM                      ; 19d5 18
                POP                      ; 19d6 1c
A19d7:          CLR                      ; 19d7 70
                LR   $0,A                ; 19d8 50
                LR   $1,A                ; 19d9 51
A19da:          CLR                      ; 19da 70
                AM                       ; 19db 88
                BF   $4,A19df            ; 19dc 94 02
                POP                      ; 19de 1c

                ; Sound effect when moving
A19df:          LR   $2,A                ; 19df 52
                LM                       ; 19e0 16
                LR   $3,A                ; 19e1 53
                LM                       ; 19e2 16
                LR   $4,A                ; 19e3 54
A19e4:          DS   $2                  ; 19e4 32
                BT   4,A19da             ; 19e5 84 f4
                LI   $80                 ; 19e7 20 80
                OUTS 5                   ; 19e9 b5
                LR   A,$3                ; 19ea 43
                AS   $0                  ; 19eb c0
                LR   $0,A                ; 19ec 50
A19ed:          INC                      ; 19ed 1f
                BF   $4,A19ed            ; 19ee 94 fe
                OUTS 5                   ; 19f0 b5
                LR   A,$4                ; 19f1 44
                AS   $1                  ; 19f2 c1
                LR   $1,A                ; 19f3 51
A19f4:          INC                      ; 19f4 1f
                BF   $4,A19f4            ; 19f5 94 fe
                BF   $0,A19e4            ; 19f7 90 ec


A19f9:          BT   0,A1a5a             ; 19f9 80 60
                COM                      ; 19fb 18
                LR   QU,A                ; 19fc 06
                LR   A,KL                ; 19fd 01
                BT   0,A1a5f             ; 19fe 80 60
                INC                      ; 1a00 1f
                NS   (IS)                ; 1a01 fc
A1a02:          LR   A,KU                ; 1a02 00
                LR   A,KU                ; 1a03 00
                LR   A,KU                ; 1a04 00
                LR   A,KU                ; 1a05 00
                LR   A,KU                ; 1a06 00
                LR   A,KU                ; 1a07 00
                LR   A,KU                ; 1a08 00
                LR   A,KU                ; 1a09 00
                COM                      ; 1a0a 18
                COM                      ; 1a0b 18
                DS   (IS)                ; 1a0c 3c
                DS   (IS)                ; 1a0d 3c
                DS   $8                  ; 1a0e 38
                LR   S, A                ; 1a0f 5c
                LIS  $e                  ; 1a10 7e
                LISL 6                   ; 1a11 6e
                LR   A,D                 ; 1a12 4e
                PK                       ; 1a13 0c
                POP                      ; 1a14 1c
                DS   $6                  ; 1a15 36
                OI   $36                 ; 1a16 22 36
                LR   K,P                 ; 1a18 08
                DS   D                   ; 1a19 3e
                LR   $a,A                ; 1a1a 5a
                LIS  $e                  ; 1a1b 7e
                DS   (IS)                ; 1a1c 3c
                DS   (IS)                ; 1a1d 3c
                DS   (IS)                ; 1a1e 3c
                LIS  $e                  ; 1a1f 7e
                LR   K,P                 ; 1a20 08
                DCI  $0055               ; 1a21 2a 00 55
                LIS  $f                  ; 1a24 7f
                DS   D                   ; 1a25 3e
                LR   K,P                 ; 1a26 08
                POP                      ; 1a27 1c
                LR   K,P                 ; 1a28 08
                OI   $7f                 ; 1a29 22 7f
                DS   D                   ; 1a2b 3e
A1a2c:          LR   K,P                 ; 1a2c 08
                PI   A19a6               ; 1a2d 28 19 a6
                LR   $3,A                ; 1a30 53
                CLR                      ; 1a31 70
                LR   $1,A                ; 1a32 51
                LR   $2,A                ; 1a33 52
                LIS  $1                  ; 1a34 71
                NS   $3                  ; 1a35 f3
                BT   4,A1a3a             ; 1a36 84 03
                LIS  $1                  ; 1a38 71
                LR   $1,A                ; 1a39 51
A1a3a:          LIS  $2                  ; 1a3a 72
                NS   $3                  ; 1a3b f3
                BT   4,A1a41             ; 1a3c 84 04
                LI   $ff                 ; 1a3e 20 ff
                LR   $1,A                ; 1a40 51
A1a41:          LIS  $8                  ; 1a41 78
                NS   $3                  ; 1a42 f3
                BT   4,A1a47             ; 1a43 84 03
                LIS  $8                  ; 1a45 78
                LR   $2,A                ; 1a46 52
A1a47:          LIS  $4                  ; 1a47 74
                NS   $3                  ; 1a48 f3
                BT   4,A1a4e             ; 1a49 84 04
                LI   $f8                 ; 1a4b 20 f8
                LR   $2,A                ; 1a4d 52
A1a4e:          LR   A,$0                ; 1a4e 40
                SR   1                   ; 1a4f 12
                SR   1                   ; 1a50 12
                SR   1                   ; 1a51 12
                LR   $3,A                ; 1a52 53
                LR   A,$0                ; 1a53 40
                AS   $1                  ; 1a54 c1
                SR   1                   ; 1a55 12
                SR   1                   ; 1a56 12
                SR   1                   ; 1a57 12
                COM                      ; 1a58 18
                INC                      ; 1a59 1f
A1a5a:          AS   $3                  ; 1a5a c3
                BF   $4,A1a65            ; 1a5b 94 09
                LR   A,$0                ; 1a5d 40
                AS   $1                  ; 1a5e c1
A1a5f:          AS   $2                  ; 1a5f c2
                CI   $3f                 ; 1a60 25 3f
                BF   $2,A1a65            ; 1a62 92 02
                LR   $0,A                ; 1a64 50
A1a65:          LR   A,$0                ; 1a65 40
                PK                       ; 1a66 0c
A1a67:          LR   K,P                 ; 1a67 08
                LIS  $7                  ; 1a68 77
                NS   $a                  ; 1a69 fa
                SL   1                   ; 1a6a 13
                LR   $0,A                ; 1a6b 50
                SL   1                   ; 1a6c 13
                SL   1                   ; 1a6d 13
                AS   $0                  ; 1a6e c0
                AI   $08                 ; 1a6f 24 08
                LR   $0,A                ; 1a71 50
                LR   A,$a                ; 1a72 4a
                SR   1                   ; 1a73 12
                SR   1                   ; 1a74 12
                SR   1                   ; 1a75 12
                LR   $b,A                ; 1a76 5b
                SL   1                   ; 1a77 13
                LR   $9,A                ; 1a78 59
                SL   1                   ; 1a79 13
                AS   $9                  ; 1a7a c9
                AS   $b                  ; 1a7b cb
                AI   $07                 ; 1a7c 24 07
                COM                      ; 1a7e 18
                INC                      ; 1a7f 1f
                AI   $3d                 ; 1a80 24 3d
                LR   $b,A                ; 1a82 5b
                LR   $1,A                ; 1a83 51
                DCI  A19f9               ; 1a84 2a 19 f9
                LIS  $a                  ; 1a87 7a
                LR   $2,A                ; 1a88 52
                LIS  $7                  ; 1a89 77
                LR   $3,A                ; 1a8a 53
                LI   $01                 ; 1a8b 20 01
                LR   $5,A                ; 1a8d 55
                PI   A1924               ; 1a8e 28 19 24
                LI   $c0                 ; 1a91 20 c0
                LR   $3,A                ; 1a93 53
                PI   A198b               ; 1a94 28 19 8b
                LI   $40                 ; 1a97 20 40
                LR   $4,A                ; 1a99 54
                LIS  $9                  ; 1a9a 79
                NS   $a                  ; 1a9b fa
                BT   4,A1aa4             ; 1a9c 84 07
                CI   $09                 ; 1a9e 25 09
                BT   4,A1aa4             ; 1aa0 84 03
                CLR                      ; 1aa2 70
                LR   $4,A                ; 1aa3 54
A1aa4:          DCI  A19f9               ; 1aa4 2a 19 f9
                LR   A,$b                ; 1aa7 4b
                LR   $1,A                ; 1aa8 51
                LIS  $a                  ; 1aa9 7a
                LR   $2,A                ; 1aaa 52
                LIS  $7                  ; 1aab 77
                LR   $3,A                ; 1aac 53
                LI   $01                 ; 1aad 20 01
                LR   $5,A                ; 1aaf 55
                PI   A1924               ; 1ab0 28 19 24
                PK                       ; 1ab3 0c
A1ab4:          LR   K,P                 ; 1ab4 08
A1ab5:          LR   A,$a                ; 1ab5 4a
                CI   $ff                 ; 1ab6 25 ff
                BF   $4,A1abb            ; 1ab8 94 02
                PK                       ; 1aba 0c
A1abb:          LIS  $7                  ; 1abb 77
                NS   $b                  ; 1abc fb
                SL   1                   ; 1abd 13
                LR   $0,A                ; 1abe 50
                SL   1                   ; 1abf 13
                SL   1                   ; 1ac0 13
                AS   $0                  ; 1ac1 c0
                AI   $08                 ; 1ac2 24 08
                LR   $0,A                ; 1ac4 50
                LR   A,$b                ; 1ac5 4b
                SR   1                   ; 1ac6 12
                SR   1                   ; 1ac7 12
                SR   1                   ; 1ac8 12
                LR   $1,A                ; 1ac9 51
                SL   1                   ; 1aca 13
                LR   $2,A                ; 1acb 52
                SL   1                   ; 1acc 13
                AS   $2                  ; 1acd c2
                AS   $1                  ; 1ace c1
                AI   $07                 ; 1acf 24 07
                COM                      ; 1ad1 18
                INC                      ; 1ad2 1f
                AI   $3d                 ; 1ad3 24 3d
                LR   $1,A                ; 1ad5 51
                LISU 3                   ; 1ad6 63
                LISL 0                   ; 1ad7 68
                LR   S, A                ; 1ad8 5c
                LI   $40                 ; 1ad9 20 40
                LR   $4,A                ; 1adb 54
                LIS  $9                  ; 1adc 79
                NS   $b                  ; 1add fb
                BT   4,A1ae6             ; 1ade 84 07
                CI   $09                 ; 1ae0 25 09
                BT   4,A1ae6             ; 1ae2 84 03
                CLR                      ; 1ae4 70
                LR   $4,A                ; 1ae5 54
A1ae6:          LIS  $a                  ; 1ae6 7a
                LR   $2,A                ; 1ae7 52
                LIS  $7                  ; 1ae8 77
                LR   $3,A                ; 1ae9 53
                LI   $20                 ; 1aea 20 20
                LR   $5,A                ; 1aec 55
                PI   A1924               ; 1aed 28 19 24
                LR   A,$b                ; 1af0 4b
                NI   $f8                 ; 1af1 21 f8
                LR   $1,A                ; 1af3 51
                SR   1                   ; 1af4 12
                SR   1                   ; 1af5 12
                AS   $1                  ; 1af6 c1
                LR   $1,A                ; 1af7 51
                LIS  $7                  ; 1af8 77
                NS   $b                  ; 1af9 fb
                AS   $1                  ; 1afa c1
                AI   $15                 ; 1afb 24 15
                DCI  $2808               ; 1afd 2a 28 08
                ADC                      ; 1b00 8e
                CLR                      ; 1b01 70
                AM                       ; 1b02 88
                BT   4,A1b08             ; 1b03 84 04
                LISU 4                   ; 1b05 64
                LISL 4                   ; 1b06 6c
                LR   S, A                ; 1b07 5c
A1b08:          LR   $1,A                ; 1b08 51
                NI   $80                 ; 1b09 21 80
                LR   $4,A                ; 1b0b 54
                BF   $4,A1b11            ; 1b0c 94 04
                LI   $c0                 ; 1b0e 20 c0
                LR   $4,A                ; 1b10 54
A1b11:          LIS  $7                  ; 1b11 77
                NS   $1                  ; 1b12 f1
                SL   1                   ; 1b13 13
                LR   $2,A                ; 1b14 52
                SL   1                   ; 1b15 13
                AS   $2                  ; 1b16 c2
                DCI  A1a02               ; 1b17 2a 1a 02
                ADC                      ; 1b1a 8e
                LR   A,$0                ; 1b1b 40
                INC                      ; 1b1c 1f
                LR   $0,A                ; 1b1d 50
                LISU 3                   ; 1b1e 63
                LISL 0                   ; 1b1f 68
                LR   A,(IS)              ; 1b20 4c
                LR   $1,A                ; 1b21 51
                LIS  $8                  ; 1b22 78
                LR   $2,A                ; 1b23 52
                LIS  $6                  ; 1b24 76
                LR   $3,A                ; 1b25 53
                LI   $01                 ; 1b26 20 01
                LR   $5,A                ; 1b28 55
                PI   A1924               ; 1b29 28 19 24
                LI   $32                 ; 1b2c 20 32
                LR   $3,A                ; 1b2e 53
                PI   A198b               ; 1b2f 28 19 8b
                DS   $a                  ; 1b32 3a
                JMP  A1ab5               ; 1b33 29 1a b5
A1b36:          LR   K,P                 ; 1b36 08
                PI   A131d               ; 1b37 28 13 1d
                LI   $7d                 ; 1b3a 20 7d
                LR   $0,A                ; 1b3c 50
                LIS  $2                  ; 1b3d 72
                LR   $1,A                ; 1b3e 51
                LIS  $2                  ; 1b3f 72
                LR   $2,A                ; 1b40 52
                LI   $3e                 ; 1b41 20 3e
                LR   $3,A                ; 1b43 53
                LI   $40                 ; 1b44 20 40
                LR   $4,A                ; 1b46 54
                LI   $30                 ; 1b47 20 30
                LR   $5,A                ; 1b49 55
                PI   A1924               ; 1b4a 28 19 24
                CLR                      ; 1b4d 70
                LR   $0,A                ; 1b4e 50
                LIS  $2                  ; 1b4f 72
                LR   $1,A                ; 1b50 51
                LI   $7d                 ; 1b51 20 7d
                LR   $2,A                ; 1b53 52
                LI   $3e                 ; 1b54 20 3e
                LR   $3,A                ; 1b56 53
                LI   $c0                 ; 1b57 20 c0
                LR   $4,A                ; 1b59 54
                LI   $20                 ; 1b5a 20 20
                LR   $5,A                ; 1b5c 55
                PI   A1924               ; 1b5d 28 19 24
                CLR                      ; 1b60 70
                LISU 3                   ; 1b61 63
                LISL 2                   ; 1b62 6a
                LR   S, A                ; 1b63 5c
                BF   $0,A1b6d            ; 1b64 90 08
A1b66:          LISU 3                   ; 1b66 63
                LISL 2                   ; 1b67 6a
                LR   A,(IS)              ; 1b68 4c
                INC                      ; 1b69 1f
                LISU 3                   ; 1b6a 63
                LISL 2                   ; 1b6b 6a
                LR   S, A                ; 1b6c 5c
A1b6d:          CI   $3f                 ; 1b6d 25 3f
                BF   $1,A1b79            ; 1b6f 91 09
                LR   $b,A                ; 1b71 5b
                CLR                      ; 1b72 70
                LR   $a,A                ; 1b73 5a
                PI   A1ab4               ; 1b74 28 1a b4
                BF   $0,A1b66            ; 1b77 90 ee
A1b79:          PI   A1324               ; 1b79 28 13 24
                PK                       ; 1b7c 0c
A1b7d:          LR   K,P                 ; 1b7d 08
                PI   A131d               ; 1b7e 28 13 1d
                LI   $23                 ; 1b81 20 23
                LISU 2                   ; 1b83 62
                LISL 2                   ; 1b84 6a
                LR   S, A                ; 1b85 5c
A1b86:          PI   A19a6               ; 1b86 28 19 a6
                NI   $80                 ; 1b89 21 80
                BF   $4,A1bac            ; 1b8b 94 20
                LISU 2                   ; 1b8d 62
                LISL 2                   ; 1b8e 6a
                LR   A,(IS)              ; 1b8f 4c
                LR   $a,A                ; 1b90 5a
                LI   $80                 ; 1b91 20 80
                LR   $4,A                ; 1b93 54
                PI   A1a67               ; 1b94 28 1a 67
                LISU 3                   ; 1b97 63
                LISL 4                   ; 1b98 6c
                DS   (IS)                ; 1b99 3c
                LISU 2                   ; 1b9a 62
                LISL 2                   ; 1b9b 6a
                LR   A,(IS)              ; 1b9c 4c
                LR   $0,A                ; 1b9d 50
                PI   A1a2c               ; 1b9e 28 1a 2c
                LISU 2                   ; 1ba1 62
                LISL 2                   ; 1ba2 6a
                LR   S, A                ; 1ba3 5c
                LI   $fe                 ; 1ba4 20 fe
                LR   $3,A                ; 1ba6 53
                PI   A198b               ; 1ba7 28 19 8b
                BF   $0,A1b86            ; 1baa 90 db
A1bac:          LI   $c8                 ; 1bac 20 c8
                LR   $3,A                ; 1bae 53
                PI   A198b               ; 1baf 28 19 8b
A1bb2:          PI   A19a6               ; 1bb2 28 19 a6
                NI   $80                 ; 1bb5 21 80
                BT   4,A1bc4             ; 1bb7 84 0c
                LI   $c8                 ; 1bb9 20 c8
                LR   $3,A                ; 1bbb 53
                PI   A198b               ; 1bbc 28 19 8b
                LISU 3                   ; 1bbf 63
                LISL 4                   ; 1bc0 6c
                DS   (IS)                ; 1bc1 3c
                BF   $0,A1bb2            ; 1bc2 90 ef
A1bc4:          LISU 2                   ; 1bc4 62
                LISL 2                   ; 1bc5 6a
                LR   A,(IS)              ; 1bc6 4c
                LISL 0                   ; 1bc7 68
                LR   S, A                ; 1bc8 5c
A1bc9:          PI   A19a6               ; 1bc9 28 19 a6
                NI   $80                 ; 1bcc 21 80
                BF   $4,A1bff            ; 1bce 94 30
                LIS  $2                  ; 1bd0 72
                LR   $a,A                ; 1bd1 5a
                LISU 2                   ; 1bd2 62
                LISL 2                   ; 1bd3 6a
                LR   A,(IS)              ; 1bd4 4c
                LR   $b,A                ; 1bd5 5b
                PI   A1ab4               ; 1bd6 28 1a b4
                LISU 2                   ; 1bd9 62
                LISL 0                   ; 1bda 68
                LR   A,(IS)              ; 1bdb 4c
                LR   $a,A                ; 1bdc 5a
                LI   $c0                 ; 1bdd 20 c0
                LR   $4,A                ; 1bdf 54
                PI   A1a67               ; 1be0 28 1a 67
                LISU 3                   ; 1be3 63
                LISL 4                   ; 1be4 6c
                DS   (IS)                ; 1be5 3c
                LISU 2                   ; 1be6 62
                LISL 0                   ; 1be7 68
                LR   A,(IS)              ; 1be8 4c
                LR   $0,A                ; 1be9 50
                PI   A1a2c               ; 1bea 28 1a 2c
                LISU 2                   ; 1bed 62
                LISL 0                   ; 1bee 68
                LR   S, A                ; 1bef 5c
                LI   $32                 ; 1bf0 20 32
                LR   $3,A                ; 1bf2 53
                PI   A198b               ; 1bf3 28 19 8b
                PI   A19a6               ; 1bf6 28 19 a6
                NI   $40                 ; 1bf9 21 40
                BF   $4,A1b86            ; 1bfb 94 8a
                BF   $0,A1bc9            ; 1bfd 90 cb
A1bff:          PI   A19a6               ; 1bff 28 19 a6
                NI   $80                 ; 1c02 21 80
                BT   4,A1c0e             ; 1c04 84 09
                LI   $c8                 ; 1c06 20 c8
                LR   $3,A                ; 1c08 53
                PI   A198b               ; 1c09 28 19 8b
                BF   $0,A1bff            ; 1c0c 90 f2
A1c0e:          PI   A19a6               ; 1c0e 28 19 a6
                NI   $70                 ; 1c11 21 70
                BF   $4,A1c2a            ; 1c13 94 16
                LISU 2                   ; 1c15 62
                LISL 2                   ; 1c16 6a
                LR   A,(IS)              ; 1c17 4c
                LR   $b,A                ; 1c18 5b
                LIS  $1                  ; 1c19 71
                LR   $a,A                ; 1c1a 5a
                PI   A1ab4               ; 1c1b 28 1a b4
                LISU 2                   ; 1c1e 62
                LISL 0                   ; 1c1f 68
                LR   A,(IS)              ; 1c20 4c
                LR   $a,A                ; 1c21 5a
                LI   $80                 ; 1c22 20 80
                LR   $4,A                ; 1c24 54
                PI   A1a67               ; 1c25 28 1a 67
                BF   $0,A1c0e            ; 1c28 90 e5
A1c2a:          NI   $40                 ; 1c2a 21 40
                BT   4,A1c31             ; 1c2c 84 04
                JMP  A1b86               ; 1c2e 29 1b 86
A1c31:          JMP  A1324               ; 1c31 29 13 24
A1c34:          .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
                .byte $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff