Difference between revisions of "Disassembly:Videocart 24"

From veswiki
Jump to: navigation, search
m (1 revision)
 
(2 intermediate revisions by the same user not shown)
Line 1: Line 1:
{{Incomplete Disassembly}}
+
This is the complete disassembly of the [[Channel F]] [[Videocart 24]] made with e5frog's modified [[f8tool]] made by [[Peter Trauner]]'s. Original code is copyright © 1978 (?) [[Zircon International]].
  
This is the complete disassembly of the [[Channel F]] [[Videocart 24]] made with Peter Trauner's [[f8tool]]. Original code is copyright © 1978 (?) Zircon International.
+
<pre>
 +
;===============================================================================
 +
; VIDEOCART 24 / PRO FOOTBALL
 +
; Commented disassembly
 +
;
 +
; Original binary copyright Zircon International, approximately 1978.
 +
; Original disassembly generated with f8tool and reconstructed as compilable
 +
; DASM/F8 source. This revision preserves all instructions, labels, data bytes,
 +
; addresses and original address comments. Only explanatory comments and
 +
; section headings have been added.
 +
;
 +
; Confidence terminology used below:
 +
;  confirmed      directly established by I/O, data flow or control flow
 +
;  strongly likely supported by several independent code relationships
 +
;  preliminary    descriptive working name, not an original symbol
 +
;
 +
; The range $124D-$17FF is emitted as data because reachable code addresses it
 +
; through DC0. Routines and tables are described without changing binary data.
 +
;===============================================================================
 +
 
 +
processor f8
 +
org $0800
 +
 
 +
clrscrn equ $00D0
 +
 
 +
lr 5, A ; 0800 55
 +
nop ; 0801 2B
 +
li $D0 ; 0802 20 D0
 +
lr 3, A ; 0804 53
 +
pi clrscrn ; 0805 28 00 D0
 +
lisu 6 ; 0808 66
 +
lisl 1 ; 0809 69
 +
li $21 ; 080A 20 21
 +
lr S, A ; 080C 5C
 +
lis 1 ; 080D 71
 +
lr $A, A ; 080E 5A
 +
jmp L0E68 ; 080F 29 0E 68
 +
;-------------------------------------------------------------------------------
 +
; set_isar_2x_r0_plus_10 (confirmed)
 +
; Convert object index in r0 to the first byte of a two-byte scratchpad entry.
 +
; Output: ISAR = $10 + 2*r0. A and ISAR are changed; r0 is preserved.
 +
;-------------------------------------------------------------------------------
 +
L0812: li $10 ; 0812 20 10
 +
as 0 ; 0814 C0
 +
as 0 ; 0815 C0
 +
lr IS, A ; 0816 0B
 +
pop ; 0817 1C
 +
;-------------------------------------------------------------------------------
 +
; delay_r5 (confirmed)
 +
; Blocking two-level delay. A wraps through 256 INC operations for each r5
 +
; count. r5 is consumed and returns as zero.
 +
;-------------------------------------------------------------------------------
 +
L0818: clr ; 0818 70
 +
L0819: inc ; 0819 1F
 +
bnz L0819 ; 081A 94 FE
 +
ds 5 ; 081C 35
 +
bnz L0818 ; 081D 94 FA
 +
pop ; 081F 1C
 +
;-------------------------------------------------------------------------------
 +
; Graphics parameter entry points (strongly likely)
 +
; L0820 reads r3, then L0822 reads r4, r2, r5 and r6 from DC0 before entering
 +
; the common renderer. Observed use identifies r3/r4 as coordinates, r2 as
 +
; color/mode, and r5/r6 as width/height counters.
 +
;-------------------------------------------------------------------------------
 +
L0820: lm ; 0820 16
 +
lr 3, A ; 0821 53
 +
L0822: lm ; 0822 16
 +
lr 4, A ; 0823 54
 +
lm ; 0824 16
 +
lr 2, A ; 0825 52
 +
lm ; 0826 16
 +
lr 5, A ; 0827 55
 +
lm ; 0828 16
 +
lr 6, A ; 0829 56
 +
br L084A ; 082A 90 1F
 +
; draw_object_from_scratch: select solid/background mode, then read X/Y pair.
 +
L082C: li $C1 ; 082C 20 C1
 +
lr 2, A ; 082E 52
 +
; Read a two-byte coordinate pair through ISAR with post-increment semantics.
 +
L082F: lr A, I ; 082F 4D
 +
lr 3, A ; 0830 53
 +
ds 3 ; 0831 33
 +
lr A, I ; 0832 4D
 +
lr 4, A ; 0833 54
 +
ds 4 ; 0834 34
 +
br L083A ; 0835 90 04
 +
.byte $20, $C1, $52 ; 0837
 +
L083A: lis 3 ; 083A 73
 +
lr 5, A ; 083B 55
 +
; Short fixed-height graphics entry: use three rows.
 +
L083C: lis 3 ; 083C 73
 +
lr 6, A ; 083D 56
 +
br L084A ; 083E 90 0B
 +
; draw_bitmap_entry (confirmed graphics): select a two-byte glyph/sprite entry
 +
; at L1364 + 2*r1 and use fixed dimensions 3 by 5.
 +
L0840: dci L1364 ; 0840 2A 13 64
 +
lr A, 1 ; 0843 41
 +
adc ; 0844 8E
 +
adc ; 0845 8E
 +
lis 3 ; 0846 73
 +
lr 5, A ; 0847 55
 +
lis 5 ; 0848 75
 +
lr 6, A ; 0849 56
 +
;-------------------------------------------------------------------------------
 +
; draw_bitmap_core (confirmed)
 +
; Port 0: graphics write/strobe. Port 1: color. Port 4: inverted X.
 +
; Port 5: inverted Y in low six bits and sound selection in high two bits.
 +
; r7 is the serial bitmap mask; a new byte is fetched with LM when exhausted.
 +
; r1 and r6 count columns and rows. Port 0 is cleared before return.
 +
;-------------------------------------------------------------------------------
 +
L084A: clr ; 084A 70
 +
lr 7, A ; 084B 57
 +
li $40 ; 084C 20 40
 +
outs 0 ; 084E B0
 +
lr A, 4 ; 084F 44
 +
oi $C0 ; 0850 22 C0
 +
com ; 0852 18
 +
outs 5 ; 0853 B5
 +
L0854: lr A, 3 ; 0854 43
 +
com ; 0855 18
 +
outs 4 ; 0856 B4
 +
lr A, 5 ; 0857 45
 +
lr 1, A ; 0858 51
 +
L0859: lr A, 2 ; 0859 42
 +
outs 1 ; 085A B1
 +
ni 1 ; 085B 21 01
 +
bnz L0873 ; 085D 94 15
 +
com ; 085F 18
 +
adc ; 0860 8E
 +
lr A, 7 ; 0861 47
 +
sr 1 ; 0862 12
 +
lr 7, A ; 0863 57
 +
bnz L086A ; 0864 94 05
 +
lm ; 0866 16
 +
li $80 ; 0867 20 80
 +
lr 7, A ; 0869 57
 +
L086A: nm ; 086A 8A
 +
bnz L0873 ; 086B 94 07
 +
com ; 086D 18
 +
outs 1 ; 086E B1
 +
lis 2 ; 086F 72
 +
ns 2 ; 0870 F2
 +
bnz L087D ; 0871 94 0B
 +
L0873: li $60 ; 0873 20 60
 +
outs 0 ; 0875 B0
 +
li $40 ; 0876 20 40
 +
outs 0 ; 0878 B0
 +
L0879: ai $F5 ; 0879 24 F5
 +
bp L0879 ; 087B 81 FD
 +
L087D: ins 4 ; 087D A4
 +
ai $FF ; 087E 24 FF
 +
outs 4 ; 0880 B4
 +
ds 1 ; 0881 31
 +
bnz L0859 ; 0882 94 D6
 +
ins 5 ; 0884 A5
 +
ai $FF ; 0885 24 FF
 +
outs 5 ; 0887 B5
 +
ds 6 ; 0888 36
 +
bnz L0854 ; 0889 94 CA
 +
clr ; 088B 70
 +
outs 0 ; 088C B0
 +
pop ; 088D 1C
 +
;-------------------------------------------------------------------------------
 +
; play_sound_table (confirmed)
 +
; DC0 points to pairs: repetition/group count followed by delay value. A zero
 +
; count terminates. The routine alternates $80 (500 Hz) and $00 on port 5;
 +
; r5 controls both on-time and off-time, while r4/r7 group the pulses.
 +
;-------------------------------------------------------------------------------
 +
L088E: lis 3 ; 088E 73
 +
lr 4, A ; 088F 54
 +
L0890: inc ; 0890 1F
 +
bnz L0890 ; 0891 94 FE
 +
am ; 0893 88
 +
lr 7, A ; 0894 57
 +
bz L08AF ; 0895 84 19
 +
lm ; 0897 16
 +
lr 5, A ; 0898 55
 +
L0899: li $80 ; 0899 20 80
 +
outs 5 ; 089B B5
 +
lr A, 5 ; 089C 45
 +
L089D: inc ; 089D 1F
 +
bnz L089D ; 089E 94 FE
 +
outs 5 ; 08A0 B5
 +
lr A, 5 ; 08A1 45
 +
L08A2: inc ; 08A2 1F
 +
bnz L08A2 ; 08A3 94 FE
 +
ds 4 ; 08A5 34
 +
bnz L0899 ; 08A6 94 F2
 +
lis 3 ; 08A8 73
 +
lr 4, A ; 08A9 54
 +
ds 7 ; 08AA 37
 +
bnz L0899 ; 08AB 94 ED
 +
br L088E ; 08AD 90 E0
 +
L08AF: pop ; 08AF 1C
 +
;-------------------------------------------------------------------------------
 +
; read_controller_a / read_controller_b (strongly likely)
 +
; Select one of two controller I/O paths according to r10 bit 0. The selected
 +
; input is inverted and stored in O73. L08C1 selects the opposite input path.
 +
;-------------------------------------------------------------------------------
 +
L08B0: lis 1 ; 08B0 71
 +
ns $A ; 08B1 FA
 +
bz L08B9 ; 08B2 84 06
 +
L08B4: clr ; 08B4 70
 +
outs 4 ; 08B5 B4
 +
ins 4 ; 08B6 A4
 +
br L08BC ; 08B7 90 04
 +
L08B9: clr ; 08B9 70
 +
outs 1 ; 08BA B1
 +
ins 1 ; 08BB A1
 +
L08BC: com ; 08BC 18
 +
lisu 7 ; 08BD 67
 +
lisl 3 ; 08BE 6B
 +
lr S, A ; 08BF 5C
 +
pop ; 08C0 1C
 +
L08C1: lis 1 ; 08C1 71
 +
ns $A ; 08C2 FA
 +
bz L08B4 ; 08C3 84 F0
 +
br L08B9 ; 08C5 90 F3
 +
;-------------------------------------------------------------------------------
 +
; lookup_table_1268 (confirmed table lookup)
 +
; Index table L1268 from scratchpad state and accumulate variable-length data.
 +
;-------------------------------------------------------------------------------
 +
L08C7: dci L1268 ; 08C7 2A 12 68
 +
lisu 7 ; 08CA 67
 +
lisl 6 ; 08CB 6E
 +
lr A, D ; 08CC 4E
 +
adc ; 08CD 8E
 +
lm ; 08CE 16
 +
adc ; 08CF 8E
 +
lr A, S ; 08D0 4C
 +
com ; 08D1 18
 +
inc ; 08D2 1F
 +
lr 4, A ; 08D3 54
 +
L08D4: lm ; 08D4 16
 +
as 4 ; 08D5 C4
 +
lm ; 08D6 16
 +
bm L08D4 ; 08D7 91 FC
 +
pop ; 08D9 1C
 +
; lookup_table_1297 (confirmed table lookup)
 +
; Parallel lookup using L1297, with a three-byte accumulation stride.
 +
L08DA: dci L1297 ; 08DA 2A 12 97
 +
lisu 7 ; 08DD 67
 +
lisl 6 ; 08DE 6E
 +
lr A, D ; 08DF 4E
 +
adc ; 08E0 8E
 +
lm ; 08E1 16
 +
adc ; 08E2 8E
 +
lr A, S ; 08E3 4C
 +
com ; 08E4 18
 +
inc ; 08E5 1F
 +
lr 4, A ; 08E6 54
 +
L08E7: lm ; 08E7 16
 +
lm ; 08E8 16
 +
as 4 ; 08E9 C4
 +
lm ; 08EA 16
 +
bm L08E7 ; 08EB 91 FB
 +
pop ; 08ED 1C
 +
;-------------------------------------------------------------------------------
 +
; calc_small_index_a (preliminary)
 +
; Return a small class in r5 according to r0 and player/side flag r10 bit 0.
 +
;-------------------------------------------------------------------------------
 +
L08EE: lis 2 ; 08EE 72
 +
lr 5, A ; 08EF 55
 +
lr A, 0 ; 08F0 40
 +
ci 6 ; 08F1 25 06
 +
bm L08F6 ; 08F3 91 02
 +
ds 5 ; 08F5 35
 +
L08F6: lis 1 ; 08F6 71
 +
ns $A ; 08F7 FA
 +
bz L08FB ; 08F8 84 02
 +
ds 5 ; 08FA 35
 +
L08FB: ds 5 ; 08FB 35
 +
pop ; 08FC 1C
 +
; calc_small_index_b (preliminary)
 +
; Return a small class in r5 from the relation between r0 and r4.
 +
L08FD: lis 2 ; 08FD 72
 +
lr 5, A ; 08FE 55
 +
li $F9 ; 08FF 20 F9
 +
as 0 ; 0901 C0
 +
bm L0905 ; 0902 91 02
 +
ds 5 ; 0904 35
 +
L0905: li $F9 ; 0905 20 F9
 +
as 4 ; 0907 C4
 +
bm L090B ; 0908 91 02
 +
ds 5 ; 090A 35
 +
L090B: ds 5 ; 090B 35
 +
pop ; 090C 1C
 +
;-------------------------------------------------------------------------------
 +
; update_motion_or_collision_vector (strongly likely)
 +
; Compare object coordinate pairs stored at $10 + 2*index. The block computes
 +
; absolute differences, applies side/direction flags, and records an event in
 +
; r11 bit 1 when the tested geometric condition is met.
 +
;-------------------------------------------------------------------------------
 +
L090D: lisu 6 ; 090D 66
 +
lisl 5 ; 090E 6D
 +
li $64 ; 090F 20 64
 +
lr I, A ; 0911 5D
 +
lr A, 9 ; 0912 49
 +
lr S, A ; 0913 5C
 +
lisl 4 ; 0914 6C
 +
lr A, 4 ; 0915 44
 +
lr S, A ; 0916 5C
 +
lis 6 ; 0917 76
 +
lr 9, A ; 0918 59
 +
L0919: li $10 ; 0919 20 10
 +
as 8 ; 091B C8
 +
as 8 ; 091C C8
 +
lr IS, A ; 091D 0B
 +
lr A, S ; 091E 4C
 +
lr 7, A ; 091F 57
 +
li $FE ; 0920 20 FE
 +
lr 5, A ; 0922 55
 +
li $10 ; 0923 20 10
 +
as 9 ; 0925 C9
 +
as 9 ; 0926 C9
 +
lr IS, A ; 0927 0B
 +
lr A, 7 ; 0928 47
 +
com ; 0929 18
 +
inc ; 092A 1F
 +
as S ; 092B CC
 +
lr 7, A ; 092C 57
 +
bp L0931 ; 092D 81 03
 +
com ; 092F 18
 +
inc ; 0930 1F
 +
L0931: lr 4, A ; 0931 54
 +
lis 1 ; 0932 71
 +
ns $A ; 0933 FA
 +
bz L093A ; 0934 84 05
 +
lr A, 7 ; 0936 47
 +
com ; 0937 18
 +
inc ; 0938 1F
 +
lr 7, A ; 0939 57
 +
L093A: lr A, 5 ; 093A 45
 +
inc ; 093B 1F
 +
inc ; 093C 1F
 +
lr 5, A ; 093D 55
 +
lr A, 4 ; 093E 44
 +
ai $FD ; 093F 24 FD
 +
lr 4, A ; 0941 54
 +
bp L093A ; 0942 81 F7
 +
lisu 6 ; 0944 66
 +
lisl 7 ; 0945 6F
 +
lis 8 ; 0946 78
 +
ns S ; 0947 FC
 +
bz L094E ; 0948 84 05
 +
lr A, 5 ; 094A 45
 +
com ; 094B 18
 +
inc ; 094C 1F
 +
lr 5, A ; 094D 55
 +
L094E: lis $C ; 094E 7C
 +
ns S ; 094F FC
 +
bnz L0953 ; 0950 94 02
 +
lr 5, A ; 0952 55
 +
L0953: lis 1 ; 0953 71
 +
ns $A ; 0954 FA
 +
bnz L095B ; 0955 94 05
 +
lr A, 5 ; 0957 45
 +
com ; 0958 18
 +
inc ; 0959 1F
 +
lr 5, A ; 095A 55
 +
L095B: clr ; 095B 70
 +
as 7 ; 095C C7
 +
bm L0963 ; 095D 91 05
 +
lr A, 5 ; 095F 45
 +
com ; 0960 18
 +
inc ; 0961 1F
 +
lr 5, A ; 0962 55
 +
L0963: li $11 ; 0963 20 11
 +
as 8 ; 0965 C8
 +
as 8 ; 0966 C8
 +
lr IS, A ; 0967 0B
 +
lr A, S ; 0968 4C
 +
as 5 ; 0969 C5
 +
com ; 096A 18
 +
inc ; 096B 1F
 +
lr 5, A ; 096C 55
 +
li $11 ; 096D 20 11
 +
as 9 ; 096F C9
 +
as 9 ; 0970 C9
 +
lr IS, A ; 0971 0B
 +
lr A, S ; 0972 4C
 +
as 5 ; 0973 C5
 +
bp L0978 ; 0974 81 03
 +
com ; 0976 18
 +
inc ; 0977 1F
 +
L0978: lr 5, A ; 0978 55
 +
com ; 0979 18
 +
lisu 6 ; 097A 66
 +
lisl 5 ; 097B 6D
 +
as S ; 097C CC
 +
bm L09B3 ; 097D 91 35
 +
lr A, 5 ; 097F 45
 +
lr S, A ; 0980 5C
 +
clr ; 0981 70
 +
as 7 ; 0982 C7
 +
bp L09AF ; 0983 81 2B
 +
lr A, $B ; 0985 4B
 +
ni $FD ; 0986 21 FD
 +
lr $B, A ; 0988 5B
 +
li $10 ; 0989 20 10
 +
as 8 ; 098B C8
 +
as 8 ; 098C C8
 +
lr IS, A ; 098D 0B
 +
lr A, S ; 098E 4C
 +
sr 1 ; 098F 12
 +
as S ; 0990 CC
 +
lr 5, A ; 0991 55
 +
lisu 2 ; 0992 62
 +
lisl 6 ; 0993 6E
 +
lr A, S ; 0994 4C
 +
sr 1 ; 0995 12
 +
com ; 0996 18
 +
inc ; 0997 1F
 +
as 5 ; 0998 C5
 +
lr 5, A ; 0999 55
 +
li $10 ; 099A 20 10
 +
as 9 ; 099C C9
 +
as 9 ; 099D C9
 +
lr IS, A ; 099E 0B
 +
lr A, S ; 099F 4C
 +
com ; 09A0 18
 +
inc ; 09A1 1F
 +
as 5 ; 09A2 C5
 +
lr 5, A ; 09A3 55
 +
lis 1 ; 09A4 71
 +
ns $A ; 09A5 FA
 +
bz L09AC ; 09A6 84 05
 +
lr A, 5 ; 09A8 45
 +
com ; 09A9 18
 +
inc ; 09AA 1F
 +
lr 5, A ; 09AB 55
 +
L09AC: ds 5 ; 09AC 35
 +
bp L09B3 ; 09AD 81 05
 +
L09AF: lr A, $B ; 09AF 4B
 +
oi 2 ; 09B0 22 02
 +
lr $B, A ; 09B2 5B
 +
L09B3: ds 9 ; 09B3 39
 +
lr A, 9 ; 09B4 49
 +
ci 3 ; 09B5 25 03
 +
bp L09BC ; 09B7 81 04
 +
jmp L0919 ; 09B9 29 09 19
 +
L09BC: lisu 6 ; 09BC 66
 +
lisl 6 ; 09BD 6E
 +
lr A, S ; 09BE 4C
 +
lr 9, A ; 09BF 59
 +
lisl 4 ; 09C0 6C
 +
lr A, S ; 09C1 4C
 +
lr 4, A ; 09C2 54
 +
pop ; 09C3 1C
 +
;-------------------------------------------------------------------------------
 +
; draw_player_or_marker (strongly likely)
 +
; Save the nested return in K, derive a screen position from O61/O62, and draw
 +
; four component glyphs through L0840. Return through PK.
 +
;-------------------------------------------------------------------------------
 +
L09C4: lr K, P ; 09C4 08
 +
lisu 6 ; 09C5 66
 +
lisl 1 ; 09C6 69
 +
lr A, I ; 09C7 4D
 +
ci $32 ; 09C8 25 32
 +
li $3C ; 09CA 20 3C
 +
bp L09D0 ; 09CC 81 03
 +
li $19 ; 09CE 20 19
 +
L09D0: lr 3, A ; 09D0 53
 +
clr ; 09D1 70
 +
lr 1, A ; 09D2 51
 +
as S ; 09D3 CC
 +
lr 8, A ; 09D4 58
 +
bz L09E4 ; 09D5 84 0E
 +
L09D7: lr A, 8 ; 09D7 48
 +
ai $C4 ; 09D8 24 C4
 +
ci $C3 ; 09DA 25 C3
 +
bnc L09E4 ; 09DC 92 07
 +
lr 8, A ; 09DE 58
 +
lr A, 1 ; 09DF 41
 +
inc ; 09E0 1F
 +
lr 1, A ; 09E1 51
 +
br L09D7 ; 09E2 90 F4
 +
L09E4: lis 7 ; 09E4 77
 +
lr 4, A ; 09E5 54
 +
li $40 ; 09E6 20 40
 +
lr 2, A ; 09E8 52
 +
pi L0840 ; 09E9 28 08 40
 +
lis 4 ; 09EC 74
 +
as 3 ; 09ED C3
 +
lr 3, A ; 09EE 53
 +
lis $A ; 09EF 7A
 +
lr 1, A ; 09F0 51
 +
pi L0840 ; 09F1 28 08 40
 +
lis 3 ; 09F4 73
 +
as 3 ; 09F5 C3
 +
lr 3, A ; 09F6 53
 +
clr ; 09F7 70
 +
L09F8: lr 1, A ; 09F8 51
 +
lr A, 8 ; 09F9 48
 +
ai $F6 ; 09FA 24 F6
 +
bm L0A04 ; 09FC 91 07
 +
lr 8, A ; 09FE 58
 +
lr A, 1 ; 09FF 41
 +
inc ; 0A00 1F
 +
lr 1, A ; 0A01 51
 +
br L09F8 ; 0A02 90 F5
 +
L0A04: pi L0840 ; 0A04 28 08 40
 +
lis 4 ; 0A07 74
 +
as 3 ; 0A08 C3
 +
lr 3, A ; 0A09 53
 +
lr A, 8 ; 0A0A 48
 +
lr 1, A ; 0A0B 51
 +
pi L0840 ; 0A0C 28 08 40
 +
pk ; 0A0F 0C
 +
;-------------------------------------------------------------------------------
 +
; normalize_control_bits (strongly likely)
 +
; Copy direction bits from r7 to r4 and mirror selected bits for the active side.
 +
;-------------------------------------------------------------------------------
 +
L0A10: lr A, 7 ; 0A10 47
 +
lr 4, A ; 0A11 54
 +
lis 1 ; 0A12 71
 +
ns $A ; 0A13 FA
 +
bnz L0A1D ; 0A14 94 08
 +
lis 3 ; 0A16 73
 +
ns 4 ; 0A17 F4
 +
bz L0A1D ; 0A18 84 04
 +
lis 3 ; 0A1A 73
 +
xs 4 ; 0A1B E4
 +
lr 4, A ; 0A1C 54
 +
L0A1D: br L0A24 ; 0A1D 90 06
 +
; read_control_nibble (strongly likely): load low four bits of O73 into r4.
 +
L0A1F: lisu 7 ; 0A1F 67
 +
lisl 3 ; 0A20 6B
 +
lis $F ; 0A21 7F
 +
ns S ; 0A22 FC
 +
lr 4, A ; 0A23 54
 +
;-------------------------------------------------------------------------------
 +
; apply_direction_and_move (strongly likely)
 +
; Decode r4 bits 0-3 into signed horizontal and vertical steps in r3/r6, then
 +
; apply object-, side- and boundary-specific movement rules.
 +
;-------------------------------------------------------------------------------
 +
L0A24: lr K, P ; 0A24 08
 +
clr ; 0A25 70
 +
lr 3, A ; 0A26 53
 +
lr 6, A ; 0A27 56
 +
lis 1 ; 0A28 71
 +
ns 4 ; 0A29 F4
 +
bz L0A2E ; 0A2A 84 03
 +
lis 1 ; 0A2C 71
 +
lr 3, A ; 0A2D 53
 +
L0A2E: lis 2 ; 0A2E 72
 +
ns 4 ; 0A2F F4
 +
bz L0A33 ; 0A30 84 02
 +
ds 3 ; 0A32 33
 +
L0A33: nop ; 0A33 2B
 +
lis 4 ; 0A34 74
 +
ns 4 ; 0A35 F4
 +
bz L0A3A ; 0A36 84 03
 +
lis 1 ; 0A38 71
 +
lr 6, A ; 0A39 56
 +
L0A3A: lis 8 ; 0A3A 78
 +
ns 4 ; 0A3B F4
 +
bz L0A3F ; 0A3C 84 02
 +
ds 6 ; 0A3E 36
 +
L0A3F: clr ; 0A3F 70
 +
as 0 ; 0A40 C0
 +
bnz L0A61 ; 0A41 94 1F
 +
lr A, 6 ; 0A43 46
 +
sl 1 ; 0A44 13
 +
lr 6, A ; 0A45 56
 +
lr A, 3 ; 0A46 43
 +
bz L0A4D ; 0A47 84 05
 +
sl 1 ; 0A49 13
 +
sl 1 ; 0A4A 13
 +
br L0A4F ; 0A4B 90 03
 +
L0A4D: sl 1 ; 0A4D 13
 +
as 3 ; 0A4E C3
 +
L0A4F: lr 3, A ; 0A4F 53
 +
lisu 7 ; 0A50 67
 +
lisl 6 ; 0A51 6E
 +
lr A, D ; 0A52 4E
 +
ci 6 ; 0A53 25 06
 +
bp L0A73 ; 0A55 81 1D
 +
lis 1 ; 0A57 71
 +
ns S ; 0A58 FC
 +
bnz L0A5D ; 0A59 94 03
 +
li $FF ; 0A5B 20 FF
 +
L0A5D: as 6 ; 0A5D C6
 +
lr 6, A ; 0A5E 56
 +
br L0A73 ; 0A5F 90 13
 +
L0A61: lisu 7 ; 0A61 67
 +
lisl 6 ; 0A62 6E
 +
lis 7 ; 0A63 77
 +
xs S ; 0A64 EC
 +
bnz L0A73 ; 0A65 94 0D
 +
lis 3 ; 0A67 73
 +
xs 9 ; 0A68 E9
 +
bnz L0A73 ; 0A69 94 09
 +
lr A, 0 ; 0A6B 40
 +
ci 6 ; 0A6C 25 06
 +
bm L0A73 ; 0A6E 91 04
 +
clr ; 0A70 70
 +
lr 3, A ; 0A71 53
 +
lr 6, A ; 0A72 56
 +
L0A73: lis 2 ; 0A73 72
 +
ns $A ; 0A74 FA
 +
bnz L0A9A ; 0A75 94 24
 +
lr A, 0 ; 0A77 40
 +
ci 6 ; 0A78 25 06
 +
bp L0A9A ; 0A7A 81 1F
 +
ci $C ; 0A7C 25 0C
 +
bm L0A9A ; 0A7E 91 1B
 +
lis 3 ; 0A80 73
 +
xs 9 ; 0A81 E9
 +
bnz L0A89 ; 0A82 94 06
 +
li $20 ; 0A84 20 20
 +
ns $A ; 0A86 FA
 +
bz L0A9A ; 0A87 84 12
 +
L0A89: lisl 4 ; 0A89 6C
 +
lr A, S ; 0A8A 4C
 +
sl 4 ; 0A8B 15
 +
sl 1 ; 0A8C 13
 +
as S ; 0A8D CC
 +
ai $73 ; 0A8E 24 73
 +
lr S, A ; 0A90 5C
 +
lr A, S ; 0A91 4C
 +
sr 4 ; 0A92 14
 +
sr 1 ; 0A93 12
 +
sr 1 ; 0A94 12
 +
bnz L0A9A ; 0A95 94 04
 +
lr A, 3 ; 0A97 43
 +
sl 1 ; 0A98 13
 +
lr 3, A ; 0A99 53
 +
;-------------------------------------------------------------------------------
 +
; Central object/collision pass (strongly likely)
 +
; Iterate two-byte object records, test position limits and collisions, and set
 +
; event bits in r11. O53/O54 hold a temporary coordinate pair.
 +
;-------------------------------------------------------------------------------
 +
L0A9A: clr ; 0A9A 70
 +
lr $B, A ; 0A9B 5B
 +
L0A9C: pi L0812 ; 0A9C 28 08 12
 +
lr A, I ; 0A9F 4D
 +
as 3 ; 0AA0 C3
 +
lr 1, A ; 0AA1 51
 +
lr A, S ; 0AA2 4C
 +
as 6 ; 0AA3 C6
 +
lisu 5 ; 0AA4 65
 +
lisl 3 ; 0AA5 6B
 +
lr 2, A ; 0AA6 52
 +
lr D, A ; 0AA7 5E
 +
lr A, 1 ; 0AA8 41
 +
lr I, A ; 0AA9 5D
 +
lr A, D ; 0AAA 4E
 +
ci $F ; 0AAB 25 0F
 +
bp L0AB3 ; 0AAD 81 05
 +
ci $35 ; 0AAF 25 35
 +
bp L0AD2 ; 0AB1 81 20
 +
L0AB3: clr ; 0AB3 70
 +
as 0 ; 0AB4 C0
 +
bz L0ACE ; 0AB5 84 18
 +
lisu 5 ; 0AB7 65
 +
lisl 4 ; 0AB8 6C
 +
ci 5 ; 0AB9 25 05
 +
bnz L0AC2 ; 0ABB 94 06
 +
lis $C ; 0ABD 7C
 +
xs S ; 0ABE EC
 +
lr S, A ; 0ABF 5C
 +
br L0ACA ; 0AC0 90 09
 +
L0AC2: ci 6 ; 0AC2 25 06
 +
bnz L0ACA ; 0AC4 94 05
 +
li $C0 ; 0AC6 20 C0
 +
xs S ; 0AC8 EC
 +
lr S, A ; 0AC9 5C
 +
L0ACA: clr ; 0ACA 70
 +
lr 6, A ; 0ACB 56
 +
br L0A9C ; 0ACC 90 CF
 +
L0ACE: lr A, $B ; 0ACE 4B
 +
oi $10 ; 0ACF 22 10
 +
lr $B, A ; 0AD1 5B
 +
L0AD2: lr A, 1 ; 0AD2 41
 +
ci $A ; 0AD3 25 0A
 +
bp L0ADB ; 0AD5 81 05
 +
ci $5F ; 0AD7 25 5F
 +
bp L0AF5 ; 0AD9 81 1B
 +
L0ADB: clr ; 0ADB 70
 +
as 0 ; 0ADC C0
 +
bnz L0AE5 ; 0ADD 94 07
 +
lr A, $B ; 0ADF 4B
 +
oi $40 ; 0AE0 22 40
 +
lr $B, A ; 0AE2 5B
 +
br L0AF5 ; 0AE3 90 11
 +
L0AE5: lr A, 0 ; 0AE5 40
 +
ci 5 ; 0AE6 25 05
 +
lisu 5 ; 0AE8 65
 +
lisl 4 ; 0AE9 6C
 +
bnz L0AF1 ; 0AEA 94 06
 +
lis 3 ; 0AEC 73
 +
xs S ; 0AED EC
 +
lr S, A ; 0AEE 5C
 +
br L0AF1 ; 0AEF 90 01
 +
L0AF1: clr ; 0AF1 70
 +
lr 3, A ; 0AF2 53
 +
br L0A9C ; 0AF3 90 A8
 +
L0AF5: lis 8 ; 0AF5 78
 +
ns $A ; 0AF6 FA
 +
lis 1 ; 0AF7 71
 +
bz L0AFB ; 0AF8 84 02
 +
clr ; 0AFA 70
 +
L0AFB: lr 4, A ; 0AFB 54
 +
L0AFC: lr A, 4 ; 0AFC 44
 +
xs 0 ; 0AFD E0
 +
bz L0B0B ; 0AFE 84 0C
 +
li $10 ; 0B00 20 10
 +
as 4 ; 0B02 C4
 +
as 4 ; 0B03 C4
 +
lr IS, A ; 0B04 0B
 +
lis 2 ; 0B05 72
 +
as I ; 0B06 CD
 +
com ; 0B07 18
 +
as 1 ; 0B08 C1
 +
bm L0B0E ; 0B09 91 04
 +
L0B0B: jmp L0BB1 ; 0B0B 29 0B B1
 +
L0B0E: ai 5 ; 0B0E 24 05
 +
bm L0B0B ; 0B10 91 FA
 +
lis 2 ; 0B12 72
 +
as I ; 0B13 CD
 +
com ; 0B14 18
 +
as 2 ; 0B15 C2
 +
bp L0B0B ; 0B16 81 F4
 +
ai 5 ; 0B18 24 05
 +
bm L0B0B ; 0B1A 91 F0
 +
lr A, 0 ; 0B1C 40
 +
lr 8, A ; 0B1D 58
 +
lr A, 9 ; 0B1E 49
 +
xs 4 ; 0B1F E4
 +
bz L0B28 ; 0B20 84 07
 +
lr A, 4 ; 0B22 44
 +
lr 8, A ; 0B23 58
 +
lr A, 9 ; 0B24 49
 +
xs 0 ; 0B25 E0
 +
bnz L0B8E ; 0B26 94 67
 +
L0B28: clr ; 0B28 70
 +
as 9 ; 0B29 C9
 +
bnz L0B81 ; 0B2A 94 56
 +
lr A, $B ; 0B2C 4B
 +
ni $FD ; 0B2D 21 FD
 +
lr $B, A ; 0B2F 5B
 +
lisu 7 ; 0B30 67
 +
lisl 6 ; 0B31 6E
 +
lr A, D ; 0B32 4E
 +
ci 6 ; 0B33 25 06
 +
bp L0B55 ; 0B35 81 1F
 +
lr A, S ; 0B37 4C
 +
com ; 0B38 18
 +
inc ; 0B39 1F
 +
lisl 1 ; 0B3A 69
 +
as S ; 0B3B CC
 +
bp L0B0B ; 0B3C 81 CE
 +
lr A, 8 ; 0B3E 48
 +
ci 6 ; 0B3F 25 06
 +
lr A, $B ; 0B41 4B
 +
bm L0B49 ; 0B42 91 06
 +
oi $E ; 0B44 22 0E
 +
lr $B, A ; 0B46 5B
 +
br L0B4E ; 0B47 90 06
 +
L0B49: oi $A ; 0B49 22 0A
 +
lr $B, A ; 0B4B 5B
 +
lr A, 8 ; 0B4C 48
 +
lr 9, A ; 0B4D 59
 +
L0B4E: lr A, $A ; 0B4E 4A
 +
oi 2 ; 0B4F 22 02
 +
lr $A, A ; 0B51 5A
 +
jmp L0BBC ; 0B52 29 0B BC
 +
L0B55: lr A, 8 ; 0B55 48
 +
ci 3 ; 0B56 25 03
 +
bp L0B0B ; 0B58 81 B2
 +
ci $A ; 0B5A 25 0A
 +
bm L0B0B ; 0B5C 91 AE
 +
lr A, $B ; 0B5E 4B
 +
oi 2 ; 0B5F 22 02
 +
lr $B, A ; 0B61 5B
 +
lr A, 8 ; 0B62 48
 +
ci 6 ; 0B63 25 06
 +
bp L0B6E ; 0B65 81 08
 +
pi L090D ; 0B67 28 09 0D
 +
lis 2 ; 0B6A 72
 +
ns $B ; 0B6B FB
 +
bz L0BB1 ; 0B6C 84 44
 +
L0B6E: lr A, 8 ; 0B6E 48
 +
lr 9, A ; 0B6F 59
 +
lr A, $B ; 0B70 4B
 +
oi 8 ; 0B71 22 08
 +
ni $FE ; 0B73 21 FE
 +
lr $B, A ; 0B75 5B
 +
lr A, 8 ; 0B76 48
 +
ci 6 ; 0B77 25 06
 +
bp L0B7F ; 0B79 81 05
 +
lr A, $A ; 0B7B 4A
 +
oi 2 ; 0B7C 22 02
 +
lr $A, A ; 0B7E 5A
 +
L0B7F: br L0BBC ; 0B7F 90 3C
 +
L0B81: pi L08FD ; 0B81 28 08 FD
 +
bnz L0B8E ; 0B84 94 09
 +
lr A, $B ; 0B86 4B
 +
oi 4 ; 0B87 22 04
 +
ni $FE ; 0B89 21 FE
 +
lr $B, A ; 0B8B 5B
 +
br L0BBC ; 0B8C 90 2F
 +
L0B8E: lr A, $B ; 0B8E 4B
 +
oi 1 ; 0B8F 22 01
 +
lr $B, A ; 0B91 5B
 +
lr A, 3 ; 0B92 43
 +
ci 1 ; 0B93 25 01
 +
bp L0B9A ; 0B95 81 04
 +
lis 1 ; 0B97 71
 +
br L0BA0 ; 0B98 90 07
 +
L0B9A: ci $FE ; 0B9A 25 FE
 +
bm L0BA4 ; 0B9C 91 07
 +
li $FF ; 0B9E 20 FF
 +
L0BA0: lr 3, A ; 0BA0 53
 +
L0BA1: jmp L0A9A ; 0BA1 29 0A 9A
 +
L0BA4: pi L08FD ; 0BA4 28 08 FD
 +
bz L0BB1 ; 0BA7 84 09
 +
clr ; 0BA9 70
 +
as 6 ; 0BAA C6
 +
bz L0BBC ; 0BAB 84 10
 +
clr ; 0BAD 70
 +
lr 6, A ; 0BAE 56
 +
br L0BA1 ; 0BAF 90 F1
 +
L0BB1: lr A, 4 ; 0BB1 44
 +
inc ; 0BB2 1F
 +
lr 4, A ; 0BB3 54
 +
ci $C ; 0BB4 25 0C
 +
bm L0BBC ; 0BB6 91 05
 +
jmp L0AFC ; 0BB8 29 0A FC
 +
;-------------------------------------------------------------------------------
 +
; Scene/state update entry (preliminary)
 +
; Preserve nested return in K, redraw changed objects, update packed state and
 +
; dispatch event sound or phase transitions.
 +
;-------------------------------------------------------------------------------
 +
L0BBB: lr K, P ; 0BBB 08
 +
L0BBC: lis 8 ; 0BBC 78
 +
ns $B ; 0BBD FB
 +
bz L0BC9 ; 0BBE 84 0A
 +
lr A, $A ; 0BC0 4A
 +
ni $F7 ; 0BC1 21 F7
 +
lr $A, A ; 0BC3 5A
 +
lisu 2 ; 0BC4 62
 +
lisl 0 ; 0BC5 68
 +
pi L082C ; 0BC6 28 08 2C
 +
L0BC9: pi L0812 ; 0BC9 28 08 12
 +
pi L082C ; 0BCC 28 08 2C
 +
li $58 ; 0BCF 20 58
 +
lr 3, A ; 0BD1 53
 +
pi L0812 ; 0BD2 28 08 12
 +
lr A, I ; 0BD5 4D
 +
ci $53 ; 0BD6 25 53
 +
bm L0BE1 ; 0BD8 91 08
 +
ci $17 ; 0BDA 25 17
 +
bm L0BEC ; 0BDC 91 0F
 +
li $12 ; 0BDE 20 12
 +
lr 3, A ; 0BE0 53
 +
L0BE1: lr A, S ; 0BE1 4C
 +
lr 4, A ; 0BE2 54
 +
ds 4 ; 0BE3 34
 +
lis 1 ; 0BE4 71
 +
lr 5, A ; 0BE5 55
 +
li $41 ; 0BE6 20 41
 +
lr 2, A ; 0BE8 52
 +
pi L083C ; 0BE9 28 08 3C
 +
L0BEC: li $80 ; 0BEC 20 80
 +
lr 2, A ; 0BEE 52
 +
dci L1331 ; 0BEF 2A 13 31
 +
pi L08EE ; 0BF2 28 08 EE
 +
bz L0BFC ; 0BF5 84 06
 +
clr ; 0BF7 70
 +
lr 2, A ; 0BF8 52
 +
dci L132F ; 0BF9 2A 13 2F
 +
L0BFC: clr ; 0BFC 70
 +
as 0 ; 0BFD C0
 +
bnz L0C0A ; 0BFE 94 0B
 +
dci L132D ; 0C00 2A 13 2D
 +
lis 8 ; 0C03 78
 +
ns $B ; 0C04 FB
 +
bz L0C0A ; 0C05 84 04
 +
jmp L0C96 ; 0C07 29 0C 96
 +
L0C0A: lr A, 9 ; 0C0A 49
 +
com ; 0C0B 18
 +
inc ; 0C0C 1F
 +
as 0 ; 0C0D C0
 +
bnz L0C13 ; 0C0E 94 04
 +
li $40 ; 0C10 20 40
 +
lr 2, A ; 0C12 52
 +
L0C13: lisu 5 ; 0C13 65
 +
lisl 2 ; 0C14 6A
 +
lr A, I ; 0C15 4D
 +
lr 3, A ; 0C16 53
 +
lr A, S ; 0C17 4C
 +
lr 4, A ; 0C18 54
 +
lis 1 ; 0C19 71
 +
ns $B ; 0C1A FB
 +
bnz L0C24 ; 0C1B 94 08
 +
pi L0812 ; 0C1D 28 08 12
 +
lr A, 3 ; 0C20 43
 +
lr I, A ; 0C21 5D
 +
lr A, 4 ; 0C22 44
 +
lr D, A ; 0C23 5E
 +
L0C24: pi L0812 ; 0C24 28 08 12
 +
pi L082F ; 0C27 28 08 2F
 +
li $40 ; 0C2A 20 40
 +
ns $B ; 0C2C FB
 +
bz L0C5C ; 0C2D 84 2E
 +
lisu 7 ; 0C2F 67
 +
lisl 6 ; 0C30 6E
 +
lr A, S ; 0C31 4C
 +
ci 6 ; 0C32 25 06
 +
bp L0C68 ; 0C34 81 33
 +
ci 7 ; 0C36 25 07
 +
bz L0C44 ; 0C38 84 0B
 +
L0C3A: lr A, $B ; 0C3A 4B
 +
oi 6 ; 0C3B 22 06
 +
lr $B, A ; 0C3D 5B
 +
br L0C96 ; 0C3E 90 57
 +
.byte $5C, $29, $0E, $16 ; 0C40
 +
L0C44: lisu 2 ; 0C44 62
 +
lisl 1 ; 0C45 69
 +
lr A, S ; 0C46 4C
 +
ci $26 ; 0C47 25 26
 +
bm L0C3A ; 0C49 91 F0
 +
ci $1A ; 0C4B 25 1A
 +
bp L0C3A ; 0C4D 81 EC
 +
lisu 2 ; 0C4F 62
 +
lisl 0 ; 0C50 68
 +
lr A, S ; 0C51 4C
 +
ci $32 ; 0C52 25 32
 +
lis $B ; 0C54 7B
 +
bm L0C58 ; 0C55 91 02
 +
lis 3 ; 0C57 73
 +
L0C58: lr 9, A ; 0C58 59
 +
jmp L0D1C ; 0C59 29 0D 1C
 +
L0C5C: li $10 ; 0C5C 20 10
 +
ns $B ; 0C5E FB
 +
bz L0C96 ; 0C5F 84 36
 +
lisu 7 ; 0C61 67
 +
lisl 6 ; 0C62 6E
 +
lr A, S ; 0C63 4C
 +
ci 6 ; 0C64 25 06
 +
bm L0C3A ; 0C66 91 D3
 +
L0C68: li $10 ; 0C68 20 10
 +
ns $A ; 0C6A FA
 +
bnz L0C93 ; 0C6B 94 27
 +
L0C6D: dci L137A ; 0C6D 2A 13 7A
 +
pi L088E ; 0C70 28 08 8E
 +
lis 1 ; 0C73 71
 +
ns $A ; 0C74 FA
 +
lisu 6 ; 0C75 66
 +
lisl 1 ; 0C76 69
 +
lr A, S ; 0C77 4C
 +
bz L0C87 ; 0C78 84 0E
 +
ci $26 ; 0C7A 25 26
 +
bp L0C82 ; 0C7C 81 05
 +
ai $F6 ; 0C7E 24 F6
 +
br L0C92 ; 0C80 90 11
 +
L0C82: ai $12 ; 0C82 24 12
 +
sr 1 ; 0C84 12
 +
br L0C92 ; 0C85 90 0C
 +
L0C87: ci $44 ; 0C87 25 44
 +
bm L0C8F ; 0C89 91 05
 +
ai $A ; 0C8B 24 0A
 +
br L0C92 ; 0C8D 90 04
 +
L0C8F: ai $58 ; 0C8F 24 58
 +
sr 1 ; 0C91 12
 +
L0C92: lr S, A ; 0C92 5C
 +
L0C93: jmp L0E68 ; 0C93 29 0E 68
 +
;-------------------------------------------------------------------------------
 +
; play_short_beep_and_update_state (confirmed sound section)
 +
; Select delay data through L1251, wait, pulse $40 (1 kHz) then $00 on port 5.
 +
; The following path continues into event/state processing when required.
 +
;-------------------------------------------------------------------------------
 +
L0C96: nop ; 0C96 2B
 +
dci L1251 ; 0C97 2A 12 51
 +
lisu 7 ; 0C9A 67
 +
lisl 2 ; 0C9B 6A
 +
lr A, S ; 0C9C 4C
 +
adc ; 0C9D 8E
 +
adc ; 0C9E 8E
 +
lm ; 0C9F 16
 +
lr 5, A ; 0CA0 55
 +
lm ; 0CA1 16
 +
L0CA2: inc ; 0CA2 1F
 +
bnz L0CA2 ; 0CA3 94 FE
 +
ds 5 ; 0CA5 35
 +
bnz L0CA2 ; 0CA6 94 FB
 +
li $40 ; 0CA8 20 40
 +
outs 5 ; 0CAA B5
 +
clr ; 0CAB 70
 +
outs 5 ; 0CAC B5
 +
lis 4 ; 0CAD 74
 +
ns $B ; 0CAE FB
 +
bnz L0CB2 ; 0CAF 94 02
 +
pk ; 0CB1 0C
 +
L0CB2: dci L1381 ; 0CB2 2A 13 81
 +
pi L088E ; 0CB5 28 08 8E
 +
li $10 ; 0CB8 20 10
 +
as 9 ; 0CBA C9
 +
as 9 ; 0CBB C9
 +
lr IS, A ; 0CBC 0B
 +
lr A, S ; 0CBD 4C
 +
lisu 6 ; 0CBE 66
 +
lisl 1 ; 0CBF 69
 +
inc ; 0CC0 1F
 +
lr S, A ; 0CC1 5C
 +
lr A, $B ; 0CC2 4B
 +
ni $FB ; 0CC3 21 FB
 +
lr $B, A ; 0CC5 5B
 +
lis 1 ; 0CC6 71
 +
ns $A ; 0CC7 FA
 +
bz L0CCD ; 0CC8 84 04
 +
lis 4 ; 0CCA 74
 +
as $B ; 0CCB CB
 +
lr $B, A ; 0CCC 5B
 +
L0CCD: lis 2 ; 0CCD 72
 +
ns $A ; 0CCE FA
 +
bz L0CD4 ; 0CCF 84 04
 +
lis 4 ; 0CD1 74
 +
xs $B ; 0CD2 EB
 +
lr $B, A ; 0CD3 5B
 +
L0CD4: lis 4 ; 0CD4 74
 +
ns $B ; 0CD5 FB
 +
bz L0CF9 ; 0CD6 84 22
 +
lr A, S ; 0CD8 4C
 +
ci $58 ; 0CD9 25 58
 +
bm L0D13 ; 0CDB 91 37
 +
ci $11 ; 0CDD 25 11
 +
bm L0CE8 ; 0CDF 91 08
 +
lis 2 ; 0CE1 72
 +
ns $A ; 0CE2 FA
 +
bz L0CF2 ; 0CE3 84 0E
 +
li $21 ; 0CE5 20 21
 +
L0CE7: lr S, A ; 0CE7 5C
 +
L0CE8: lis 2 ; 0CE8 72
 +
ns $A ; 0CE9 FA
 +
bnz L0CEF ; 0CEA 94 04
 +
jmp L0E68 ; 0CEC 29 0E 68
 +
L0CEF: jmp L0E16 ; 0CEF 29 0E 16
 +
L0CF2: li $49 ; 0CF2 20 49
 +
lr S, A ; 0CF4 5C
 +
lis 2 ; 0CF5 72
 +
L0CF6: lr 9, A ; 0CF6 59
 +
br L0D27 ; 0CF7 90 2F
 +
L0CF9: ds S ; 0CF9 3C
 +
ds S ; 0CFA 3C
 +
lr A, S ; 0CFB 4C
 +
ci $11 ; 0CFC 25 11
 +
bp L0D10 ; 0CFE 81 11
 +
ci $58 ; 0D00 25 58
 +
bp L0CE7 ; 0D02 81 E4
 +
lis 2 ; 0D04 72
 +
ns $A ; 0D05 FA
 +
li $49 ; 0D06 20 49
 +
bnz L0CE7 ; 0D08 94 DE
 +
li $21 ; 0D0A 20 21
 +
lr S, A ; 0D0C 5C
 +
lis $A ; 0D0D 7A
 +
br L0CF6 ; 0D0E 90 E7
 +
L0D10: lis 7 ; 0D10 77
 +
br L0D14 ; 0D11 90 02
 +
L0D13: lis $F ; 0D13 7F
 +
L0D14: lr 9, A ; 0D14 59
 +
lis 2 ; 0D15 72
 +
ns $A ; 0D16 FA
 +
bz L0D1C ; 0D17 84 04
 +
lis 1 ; 0D19 71
 +
xs $A ; 0D1A EA
 +
lr $A, A ; 0D1B 5A
 +
L0D1C: lis 8 ; 0D1C 78
 +
ns 9 ; 0D1D F9
 +
lisu 6 ; 0D1E 66
 +
lisl 1 ; 0D1F 69
 +
li $49 ; 0D20 20 49
 +
bnz L0D26 ; 0D22 94 03
 +
li $21 ; 0D24 20 21
 +
L0D26: lr S, A ; 0D26 5C
 +
L0D27: dci L13CF ; 0D27 2A 13 CF
 +
pi L088E ; 0D2A 28 08 8E
 +
jmp L0E18 ; 0D2D 29 0E 18
 +
;-------------------------------------------------------------------------------
 +
; direction_from_coordinate_delta (strongly likely)
 +
; Compare coordinate pair r9 with pair r0, form absolute X/Y differences and
 +
; encode horizontal direction as 1/2 and vertical direction as 4/8 in r4.
 +
;-------------------------------------------------------------------------------
 +
L0D30: li $10 ; 0D30 20 10
 +
as 9 ; 0D32 C9
 +
as 9 ; 0D33 C9
 +
lr IS, A ; 0D34 0B
 +
lr A, I ; 0D35 4D
 +
lr 5, A ; 0D36 55
 +
lr A, S ; 0D37 4C
 +
lr 6, A ; 0D38 56
 +
li $10 ; 0D39 20 10
 +
as 0 ; 0D3B C0
 +
as 0 ; 0D3C C0
 +
lr IS, A ; 0D3D 0B
 +
lr A, I ; 0D3E 4D
 +
com ; 0D3F 18
 +
inc ; 0D40 1F
 +
as 5 ; 0D41 C5
 +
lr 5, A ; 0D42 55
 +
bp L0D47 ; 0D43 81 03
 +
com ; 0D45 18
 +
inc ; 0D46 1F
 +
L0D47: lr 4, A ; 0D47 54
 +
lr A, S ; 0D48 4C
 +
com ; 0D49 18
 +
inc ; 0D4A 1F
 +
as 6 ; 0D4B C6
 +
lr 6, A ; 0D4C 56
 +
bp L0D51 ; 0D4D 81 03
 +
com ; 0D4F 18
 +
inc ; 0D50 1F
 +
L0D51: lr 3, A ; 0D51 53
 +
com ; 0D52 18
 +
inc ; 0D53 1F
 +
as 4 ; 0D54 C4
 +
clr ; 0D55 70
 +
bm L0D5F ; 0D56 91 08
 +
as 5 ; 0D58 C5
 +
lis 1 ; 0D59 71
 +
bp L0D5D ; 0D5A 81 02
 +
lis 2 ; 0D5C 72
 +
L0D5D: br L0D64 ; 0D5D 90 06
 +
L0D5F: as 6 ; 0D5F C6
 +
lis 4 ; 0D60 74
 +
bp L0D64 ; 0D61 81 02
 +
lis 8 ; 0D63 78
 +
L0D64: lr 4, A ; 0D64 54
 +
br L0D83 ; 0D65 90 1D
 +
L0D67: li $10 ; 0D67 20 10
 +
as 0 ; 0D69 C0
 +
as 0 ; 0D6A C0
 +
lr IS, A ; 0D6B 0B
 +
lr A, I ; 0D6C 4D
 +
com ; 0D6D 18
 +
inc ; 0D6E 1F
 +
as 5 ; 0D6F C5
 +
bz L0D76 ; 0D70 84 05
 +
lis 2 ; 0D72 72
 +
bm L0D76 ; 0D73 91 02
 +
lis 1 ; 0D75 71
 +
L0D76: lr 4, A ; 0D76 54
 +
lr A, S ; 0D77 4C
 +
com ; 0D78 18
 +
inc ; 0D79 1F
 +
as 6 ; 0D7A C6
 +
bz L0D81 ; 0D7B 84 05
 +
lis 8 ; 0D7D 78
 +
bm L0D81 ; 0D7E 91 02
 +
lis 4 ; 0D80 74
 +
L0D81: as 4 ; 0D81 C4
 +
lr 4, A ; 0D82 54
 +
L0D83: jmp L0A24 ; 0D83 29 0A 24
 +
;-------------------------------------------------------------------------------
 +
; choose_direction_step (strongly likely)
 +
; Produce small signed steps, normally 0, 4 or $FC (-4), from side, state and
 +
; current object coordinates; continue through the direction decoder.
 +
;-------------------------------------------------------------------------------
 +
L0D86: clr ; 0D86 70
 +
lr 5, A ; 0D87 55
 +
lr 6, A ; 0D88 56
 +
as 2 ; 0D89 C2
 +
ci 0 ; 0D8A 25 00
 +
bnz L0D98 ; 0D8C 94 0B
 +
lis 1 ; 0D8E 71
 +
ns $A ; 0D8F FA
 +
lis 4 ; 0D90 74
 +
bnz L0D95 ; 0D91 94 03
 +
li $FC ; 0D93 20 FC
 +
L0D95: lr 5, A ; 0D95 55
 +
br L0DA6 ; 0D96 90 0F
 +
L0D98: li $11 ; 0D98 20 11
 +
as 7 ; 0D9A C7
 +
as 7 ; 0D9B C7
 +
lr IS, A ; 0D9C 0B
 +
lr A, S ; 0D9D 4C
 +
ci $23 ; 0D9E 25 23
 +
li $FC ; 0DA0 20 FC
 +
bm L0DA5 ; 0DA2 91 02
 +
lis 4 ; 0DA4 74
 +
L0DA5: lr 6, A ; 0DA5 56
 +
L0DA6: li $10 ; 0DA6 20 10
 +
as 7 ; 0DA8 C7
 +
as 7 ; 0DA9 C7
 +
lr IS, A ; 0DAA 0B
 +
lr A, I ; 0DAB 4D
 +
as 5 ; 0DAC C5
 +
lr 5, A ; 0DAD 55
 +
lr A, S ; 0DAE 4C
 +
as 6 ; 0DAF C6
 +
lr 6, A ; 0DB0 56
 +
br L0D67 ; 0DB1 90 B5
 +
;-------------------------------------------------------------------------------
 +
; lookup_state_table_125d (strongly likely)
 +
; Replace the current scratchpad state through L125D and choose r0=6 or 12 from
 +
; ISAR parity before entering the nested update worker.
 +
;-------------------------------------------------------------------------------
 +
L0DB3: dci L125D ; 0DB3 2A 12 5D
 +
lr A, S ; 0DB6 4C
 +
adc ; 0DB7 8E
 +
lm ; 0DB8 16
 +
lr S, A ; 0DB9 5C
 +
lr A, IS ; 0DBA 0A
 +
ni 1 ; 0DBB 21 01
 +
lis $C ; 0DBD 7C
 +
bnz L0DC1 ; 0DBE 94 02
 +
lis 6 ; 0DC0 76
 +
L0DC1: lr 0, A ; 0DC1 50
 +
lisu 6 ; 0DC2 66
 +
lisl 7 ; 0DC3 6F
 +
clr ; 0DC4 70
 +
lr S, A ; 0DC5 5C
 +
; nested_state_update (strongly likely)
 +
; Save the caller return from K in Q, process state/formation tables L1313 or
 +
; L12FB, and return explicitly with LR P0,Q at L0E15.
 +
L0DC6: lr K, P ; 0DC6 08
 +
lr A, KU ; 0DC7 00
 +
lr QU, A ; 0DC8 06
 +
lr A, KL ; 0DC9 01
 +
lr QL, A ; 0DCA 07
 +
L0DCB: dci L1313 ; 0DCB 2A 13 13
 +
lisu 6 ; 0DCE 66
 +
lisl 1 ; 0DCF 69
 +
lr A, S ; 0DD0 4C
 +
lr 6, A ; 0DD1 56
 +
lisu 6 ; 0DD2 66
 +
lisl 7 ; 0DD3 6F
 +
lis 4 ; 0DD4 74
 +
ns S ; 0DD5 FC
 +
bz L0DEB ; 0DD6 84 14
 +
dci L12FB ; 0DD8 2A 12 FB
 +
lr A, 0 ; 0DDB 40
 +
ci 6 ; 0DDC 25 06
 +
bm L0DEB ; 0DDE 91 0C
 +
lis $C ; 0DE0 7C
 +
adc ; 0DE1 8E
 +
lis 1 ; 0DE2 71
 +
ns $A ; 0DE3 FA
 +
li $F6 ; 0DE4 20 F6
 +
bnz L0DE9 ; 0DE6 94 02
 +
lis $A ; 0DE8 7A
 +
L0DE9: as 6 ; 0DE9 C6
 +
lr 6, A ; 0DEA 56
 +
L0DEB: lisu 5 ; 0DEB 65
 +
lisl 3 ; 0DEC 6B
 +
lr A, 0 ; 0DED 40
 +
adc ; 0DEE 8E
 +
adc ; 0DEF 8E
 +
lm ; 0DF0 16
 +
lr D, A ; 0DF1 5E
 +
pi L08EE ; 0DF2 28 08 EE
 +
lm ; 0DF5 16
 +
bz L0DFA ; 0DF6 84 03
 +
com ; 0DF8 18
 +
inc ; 0DF9 1F
 +
L0DFA: as 6 ; 0DFA C6
 +
L0DFB: lr S, A ; 0DFB 5C
 +
ci $C ; 0DFC 25 0C
 +
bp L0E06 ; 0DFE 81 07
 +
ci $5E ; 0E00 25 5E
 +
bp L0E09 ; 0E02 81 06
 +
ai $FE ; 0E04 24 FE
 +
L0E06: inc ; 0E06 1F
 +
br L0DFB ; 0E07 90 F3
 +
L0E09: clr ; 0E09 70
 +
lr $B, A ; 0E0A 5B
 +
pi L0BBB ; 0E0B 28 0B BB
 +
ds 0 ; 0E0E 30
 +
bz L0E15 ; 0E0F 84 05
 +
lis 6 ; 0E11 76
 +
xs 0 ; 0E12 E0
 +
bnz L0DCB ; 0E13 94 B7
 +
L0E15: lr P0, Q ; 0E15 0D
 +
;-------------------------------------------------------------------------------
 +
; start_round_or_screen (strongly likely)
 +
; Reset phase-local state, toggle r10 bit 0, draw fixed screen components, and
 +
; initialize players/objects for the next side or round.
 +
;-------------------------------------------------------------------------------
 +
L0E16: clr ; 0E16 70
 +
lr 9, A ; 0E17 59
 +
L0E18: lis 1 ; 0E18 71
 +
xs $A ; 0E19 EA
 +
lr $A, A ; 0E1A 5A
 +
lisu 6 ; 0E1B 66
 +
lisl 0 ; 0E1C 68
 +
clr ; 0E1D 70
 +
lr S, A ; 0E1E 5C
 +
; draw_fixed_screen_element: render parameter block L135F through L0820.
 +
L0E1F: dci L135F ; 0E1F 2A 13 5F
 +
pi L0820 ; 0E22 28 08 20
 +
L0E25: lisu 5 ; 0E25 65
 +
lisl 6 ; 0E26 6E
 +
li $12 ; 0E27 20 12
 +
lr 4, A ; 0E29 54
 +
li $1B ; 0E2A 20 1B
 +
lr 3, A ; 0E2C 53
 +
clr ; 0E2D 70
 +
lr 2, A ; 0E2E 52
 +
L0E2F: lr A, S ; 0E2F 4C
 +
sr 4 ; 0E30 14
 +
lr 1, A ; 0E31 51
 +
pi L0840 ; 0E32 28 08 40
 +
lr A, I ; 0E35 4D
 +
sl 4 ; 0E36 15
 +
sr 4 ; 0E37 14
 +
lr 1, A ; 0E38 51
 +
lis 5 ; 0E39 75
 +
as 3 ; 0E3A C3
 +
lr 3, A ; 0E3B 53
 +
pi L0840 ; 0E3C 28 08 40
 +
li $43 ; 0E3F 20 43
 +
lr 3, A ; 0E41 53
 +
li $80 ; 0E42 20 80
 +
lr 2, A ; 0E44 52
 +
lr A, IS ; 0E45 0A
 +
ci $2F ; 0E46 25 2F
 +
bz L0E2F ; 0E48 84 E6
 +
lis 7 ; 0E4A 77
 +
ns 9 ; 0E4B F9
 +
bz L0E60 ; 0E4C 84 13
 +
ds 9 ; 0E4E 39
 +
lis 8 ; 0E4F 78
 +
ns 9 ; 0E50 F9
 +
lisl 6 ; 0E51 6E
 +
bnz L0E55 ; 0E52 94 02
 +
lr A, I ; 0E54 4D
 +
L0E55: li $67 ; 0E55 20 67
 +
outs 5 ; 0E57 B5
 +
lr 5, A ; 0E58 55
 +
asd S ; 0E59 DC
 +
lr S, A ; 0E5A 5C
 +
pi L0818 ; 0E5B 28 08 18
 +
br L0E25 ; 0E5E 90 C6
 +
L0E60: lis 2 ; 0E60 72
 +
lr 4, A ; 0E61 54
 +
L0E62: pi L0818 ; 0E62 28 08 18
 +
ds 4 ; 0E65 34
 +
bnz L0E62 ; 0E66 94 FB
 +
;-------------------------------------------------------------------------------
 +
; advance_init_phase (confirmed counter behavior)
 +
; Increment O60 and repeat initialization while the phase value is below four.
 +
; After phase four, build the field and initialize active play state.
 +
;-------------------------------------------------------------------------------
 +
L0E68: lisu 6 ; 0E68 66
 +
lisl 0 ; 0E69 68
 +
lr A, S ; 0E6A 4C
 +
inc ; 0E6B 1F
 +
lr S, A ; 0E6C 5C
 +
ci 4 ; 0E6D 25 04
 +
bm L0E16 ; 0E6F 91 A6
 +
lis 2 ; 0E71 72
 +
lr 4, A ; 0E72 54
 +
L0E73: pi L0818 ; 0E73 28 08 18
 +
ds 4 ; 0E76 34
 +
bnz L0E73 ; 0E77 94 FB
 +
lisu 2 ; 0E79 62
 +
lisl 0 ; 0E7A 68
 +
pi L082C ; 0E7B 28 08 2C
 +
dci L1333 ; 0E7E 2A 13 33
 +
lis 8 ; 0E81 78
 +
lr 8, A ; 0E82 58
 +
L0E83: pi L0820 ; 0E83 28 08 20
 +
ds 8 ; 0E86 38
 +
bnz L0E83 ; 0E87 94 FB
 +
L0E89: lis $D ; 0E89 7D
 +
lr 4, A ; 0E8A 54
 +
lis 2 ; 0E8B 72
 +
lr 6, A ; 0E8C 56
 +
pi L084A ; 0E8D 28 08 4A
 +
li $37 ; 0E90 20 37
 +
lr 4, A ; 0E92 54
 +
lis 2 ; 0E93 72
 +
lr 6, A ; 0E94 56
 +
pi L084A ; 0E95 28 08 4A
 +
lis 7 ; 0E98 77
 +
as 3 ; 0E99 C3
 +
lr 3, A ; 0E9A 53
 +
ci $55 ; 0E9B 25 55
 +
bp L0E89 ; 0E9D 81 EB
 +
lis 2 ; 0E9F 72
 +
lr 9, A ; 0EA0 59
 +
lr A, $A ; 0EA1 4A
 +
ni $C5 ; 0EA2 21 C5
 +
lr $A, A ; 0EA4 5A
 +
lisu 6 ; 0EA5 66
 +
lisl 1 ; 0EA6 69
 +
lr A, D ; 0EA7 4E
 +
lr 3, A ; 0EA8 53
 +
ds 3 ; 0EA9 33
 +
lis 7 ; 0EAA 77
 +
lr 4, A ; 0EAB 54
 +
lis 1 ; 0EAC 71
 +
ns $A ; 0EAD FA
 +
lr $A, A ; 0EAE 5A
 +
clr ; 0EAF 70
 +
bnz L0EB4 ; 0EB0 94 03
 +
li $80 ; 0EB2 20 80
 +
L0EB4: lr 2, A ; 0EB4 52
 +
lr A, S ; 0EB5 4C
 +
lr 1, A ; 0EB6 51
 +
pi L0840 ; 0EB7 28 08 40
 +
pi L09C4 ; 0EBA 28 09 C4
 +
clr ; 0EBD 70
 +
as S ; 0EBE CC
 +
bnz L0ED1 ; 0EBF 94 11
 +
li $F0 ; 0EC1 20 F0
 +
lr S, A ; 0EC3 5C
 +
dci L1392 ; 0EC4 2A 13 92
 +
pi L088E ; 0EC7 28 08 8E
 +
lisl 0 ; 0ECA 68
 +
ds S ; 0ECB 3C
 +
clr ; 0ECC 70
 +
lr 9, A ; 0ECD 59
 +
jmp L0E1F ; 0ECE 29 0E 1F
 +
L0ED1: lisu 2 ; 0ED1 62
 +
lisl 0 ; 0ED2 68
 +
L0ED3: lis 4 ; 0ED3 74
 +
lr S, A ; 0ED4 5C
 +
lr A, IS ; 0ED5 0A
 +
inc ; 0ED6 1F
 +
lr IS, A ; 0ED7 0B
 +
ci $2A ; 0ED8 25 2A
 +
bnz L0ED3 ; 0EDA 94 F8
 +
lis $C ; 0EDC 7C
 +
lr 0, A ; 0EDD 50
 +
lisu 6 ; 0EDE 66
 +
lisl 7 ; 0EDF 6F
 +
lis 4 ; 0EE0 74
 +
lr S, A ; 0EE1 5C
 +
pi L0DC6 ; 0EE2 28 0D C6
 +
pi L0DC6 ; 0EE5 28 0D C6
 +
lisu 7 ; 0EE8 67
 +
lisl 6 ; 0EE9 6E
 +
li $C0 ; 0EEA 20 C0
 +
lr I, A ; 0EEC 5D
 +
lr D, A ; 0EED 5E
 +
lisu 2 ; 0EEE 62
 +
lisl 0 ; 0EEF 68
 +
li $60 ; 0EF0 20 60
 +
lr S, A ; 0EF2 5C
 +
;-------------------------------------------------------------------------------
 +
; main_game_loop (strongly likely)
 +
; Alternate controller sources, debounce console input, update active objects,
 +
; evaluate state transitions and invoke the table-driven update worker.
 +
;-------------------------------------------------------------------------------
 +
L0EF3: lisu 7 ; 0EF3 67
 +
lisl 6 ; 0EF4 6E
 +
L0EF5: li $B0 ; 0EF5 20 B0
 +
L0EF7: inc ; 0EF7 1F
 +
bnz L0EF7 ; 0EF8 94 FE
 +
lis 1 ; 0EFA 71
 +
lr 4, A ; 0EFB 54
 +
L0EFC: lr A, IS ; 0EFC 0A
 +
xi 1 ; 0EFD 23 01
 +
lr IS, A ; 0EFF 0B
 +
lr A, IS ; 0F00 0A
 +
lr 7, A ; 0F01 57
 +
ni 1 ; 0F02 21 01
 +
bnz L0F0B ; 0F04 94 06
 +
pi L08B0 ; 0F06 28 08 B0
 +
br L0F0E ; 0F09 90 04
 +
L0F0B: pi L08C1 ; 0F0B 28 08 C1
 +
L0F0E: lr A, D ; 0F0E 4E
 +
lr 6, A ; 0F0F 56
 +
clr ; 0F10 70
 +
as S ; 0F11 CC
 +
bnz L0F22 ; 0F12 94 0F
 +
lis 5 ; 0F14 75
 +
lr 5, A ; 0F15 55
 +
ins 0 ; 0F16 A0
 +
com ; 0F17 18
 +
ni $F ; 0F18 21 0F
 +
bz L0F22 ; 0F1A 84 07
 +
L0F1C: ds 5 ; 0F1C 35
 +
sr 1 ; 0F1D 12
 +
bnz L0F1C ; 0F1E 94 FD
 +
lr A, 5 ; 0F20 45
 +
lr S, A ; 0F21 5C
 +
L0F22: lr A, 7 ; 0F22 47
 +
lr IS, A ; 0F23 0B
 +
lr A, S ; 0F24 4C
 +
ni $C0 ; 0F25 21 C0
 +
bnz L0F33 ; 0F27 94 0B
 +
ds 4 ; 0F29 34
 +
bnz L0F8E ; 0F2A 94 63
 +
li $CE ; 0F2C 20 CE
 +
L0F2E: inc ; 0F2E 1F
 +
bnz L0F2E ; 0F2F 94 FE
 +
br L0EFC ; 0F31 90 CA
 +
L0F33: lisu 7 ; 0F33 67
 +
lisl 4 ; 0F34 6C
 +
ds S ; 0F35 3C
 +
clr ; 0F36 70
 +
lisu 2 ; 0F37 62
 +
lisl 0 ; 0F38 68
 +
as S ; 0F39 CC
 +
bnz L0F52 ; 0F3A 94 17
 +
lr A, 7 ; 0F3C 47
 +
lr IS, A ; 0F3D 0B
 +
ni 1 ; 0F3E 21 01
 +
bz L0F49 ; 0F40 84 08
 +
lr A, D ; 0F42 4E
 +
li $C0 ; 0F43 20 C0
 +
ns S ; 0F45 FC
 +
lr A, I ; 0F46 4D
 +
bnz L0EF5 ; 0F47 94 AD
 +
L0F49: lr A, S ; 0F49 4C
 +
ni $C0 ; 0F4A 21 C0
 +
bz L0EF5 ; 0F4C 84 A8
 +
clr ; 0F4E 70
 +
lr S, A ; 0F4F 5C
 +
br L0F82 ; 0F50 90 31
 +
L0F52: lisu 2 ; 0F52 62
 +
lisl 1 ; 0F53 69
 +
ds D ; 0F54 3E
 +
bnz L0F58 ; 0F55 94 02
 +
ds D ; 0F57 3E
 +
L0F58: lr A, 7 ; 0F58 47
 +
lr IS, A ; 0F59 0B
 +
lr A, 6 ; 0F5A 46
 +
ni $30 ; 0F5B 21 30
 +
bnz L0F64 ; 0F5D 94 06
 +
L0F5F: lis $F ; 0F5F 7F
 +
ns 6 ; 0F60 F6
 +
ai $C0 ; 0F61 24 C0
 +
lr S, A ; 0F63 5C
 +
L0F64: lr A, 6 ; 0F64 46
 +
com ; 0F65 18
 +
inc ; 0F66 1F
 +
as S ; 0F67 CC
 +
ni $F ; 0F68 21 0F
 +
bnz L0F5F ; 0F6A 94 F4
 +
lr A, S ; 0F6C 4C
 +
ai $C0 ; 0F6D 24 C0
 +
lr S, A ; 0F6F 5C
 +
ni $C0 ; 0F70 21 C0
 +
bz L0F77 ; 0F72 84 04
 +
jmp L0EF5 ; 0F74 29 0E F5
 +
L0F77: lr A, IS ; 0F77 0A
 +
ci $3E ; 0F78 25 3E
 +
bnz L0F82 ; 0F7A 94 07
 +
lisu 2 ; 0F7C 62
 +
lisl 0 ; 0F7D 68
 +
lis 3 ; 0F7E 73
 +
lr S, A ; 0F7F 5C
 +
lr A, 7 ; 0F80 47
 +
lr IS, A ; 0F81 0B
 +
L0F82: pi L0DB3 ; 0F82 28 0D B3
 +
lis 6 ; 0F85 76
 +
as 0 ; 0F86 C0
 +
lr 0, A ; 0F87 50
 +
pi L0DC6 ; 0F88 28 0D C6
 +
jmp L0EF3 ; 0F8B 29 0E F3
 +
;-------------------------------------------------------------------------------
 +
; Timed game-event handling and extended collision checks (strongly likely).
 +
; Initializes O20, waits for controller activity or timeout, updates event flags
 +
; and object state, then dispatches sound/scene handling.
 +
;-------------------------------------------------------------------------------
 +
L0F8E: clr ; 0F8E 70
 +
lr 5, A ; 0F8F 55
 +
lisu 7 ; 0F90 67
 +
lisl 2 ; 0F91 6A
 +
as S ; 0F92 CC
 +
bnz L0F97 ; 0F93 94 03
 +
lis 5 ; 0F95 75
 +
lr S, A ; 0F96 5C
 +
L0F97: lisu 2 ; 0F97 62
 +
lisl 0 ; 0F98 68
 +
li $B0 ; 0F99 20 B0
 +
lr S, A ; 0F9B 5C
 +
pi L0818 ; 0F9C 28 08 18
 +
L0F9F: lisu 2 ; 0F9F 62
 +
lisl 1 ; 0FA0 69
 +
ds D ; 0FA1 3E
 +
bnz L0FAD ; 0FA2 94 0A
 +
ds S ; 0FA4 3C
 +
bnz L0FAD ; 0FA5 94 07
 +
lisu 6 ; 0FA7 66
 +
lisl 0 ; 0FA8 68
 +
ds S ; 0FA9 3C
 +
jmp L0C6D ; 0FAA 29 0C 6D
 +
L0FAD: pi L08B0 ; 0FAD 28 08 B0
 +
bz L0F9F ; 0FB0 84 EE
 +
lisl 5 ; 0FB2 6D
 +
lis 2 ; 0FB3 72
 +
lr S, A ; 0FB4 5C
 +
lisu 7 ; 0FB5 67
 +
lisl 7 ; 0FB6 6F
 +
clr ; 0FB7 70
 +
as S ; 0FB8 CC
 +
bnz L0FBF ; 0FB9 94 05
 +
lr A, $A ; 0FBB 4A
 +
oi $40 ; 0FBC 22 40
 +
lr $A, A ; 0FBE 5A
 +
L0FBF: lis 3 ; 0FBF 73
 +
lr 9, A ; 0FC0 59
 +
lisu 5 ; 0FC1 65
 +
lisl 4 ; 0FC2 6C
 +
li $11 ; 0FC3 20 11
 +
lr I, A ; 0FC5 5D
 +
clr ; 0FC6 70
 +
lr S, A ; 0FC7 5C
 +
lisu 7 ; 0FC8 67
 +
lisl 1 ; 0FC9 69
 +
li $77 ; 0FCA 20 77
 +
lr S, A ; 0FCC 5C
 +
L0FCD: li $FD ; 0FCD 20 FD
 +
lr 6, A ; 0FCF 56
 +
lis 2 ; 0FD0 72
 +
lr 5, A ; 0FD1 55
 +
lisu 6 ; 0FD2 66
 +
lisl 1 ; 0FD3 69
 +
lr A, S ; 0FD4 4C
 +
com ; 0FD5 18
 +
inc ; 0FD6 1F
 +
lisu 2 ; 0FD7 62
 +
lisl 6 ; 0FD8 6E
 +
as S ; 0FD9 CC
 +
bz L0FE9 ; 0FDA 84 0E
 +
bp L0FDF ; 0FDC 81 02
 +
ds 5 ; 0FDE 35
 +
L0FDF: lis 1 ; 0FDF 71
 +
ns $A ; 0FE0 FA
 +
bz L0FE6 ; 0FE1 84 04
 +
ds 5 ; 0FE3 35
 +
lis 3 ; 0FE4 73
 +
lr 6, A ; 0FE5 56
 +
L0FE6: ds 5 ; 0FE6 35
 +
bnz L0FEF ; 0FE7 94 07
 +
L0FE9: lr A, $A ; 0FE9 4A
 +
oi $20 ; 0FEA 22 20
 +
lr $A, A ; 0FEC 5A
 +
br L1035 ; 0FED 90 47
 +
L0FEF: lisu 7 ; 0FEF 67
 +
lisl 4 ; 0FF0 6C
 +
lr A, I ; 0FF1 4D
 +
sr 4 ; 0FF2 14
 +
sr 1 ; 0FF3 12
 +
ai $11 ; 0FF4 24 11
 +
com ; 0FF6 18
 +
as S ; 0FF7 CC
 +
bnz L1035 ; 0FF8 94 3C
 +
lis 3 ; 0FFA 73
 +
xs 9 ; 0FFB E9
 +
bnz L1035 ; 0FFC 94 38
 +
lisl 6 ; 0FFE 6E
 +
lis 4 ; 0FFF 74
 +
xs S ; 1000 EC
 +
bz L1035 ; 1001 84 33
 +
lis 5 ; 1003 75
 +
xs S ; 1004 EC
 +
bz L1035 ; 1005 84 2F
 +
lisu 4 ; 1007 64
 +
lisl 7 ; 1008 6F
 +
lr A, S ; 1009 4C
 +
ci $19 ; 100A 25 19
 +
bp L1035 ; 100C 81 28
 +
lisu 5 ; 100E 65
 +
lisl 1 ; 100F 69
 +
lr A, S ; 1010 4C
 +
ci $23 ; 1011 25 23
 +
bm L1035 ; 1013 91 21
 +
lisu 2 ; 1015 62
 +
lisl 2 ; 1016 6A
 +
lr A, S ; 1017 4C
 +
as 6 ; 1018 C6
 +
lr S, A ; 1019 5C
 +
lisl 4 ; 101A 6C
 +
lr S, A ; 101B 5C
 +
lr A, 6 ; 101C 46
 +
com ; 101D 18
 +
inc ; 101E 1F
 +
lr 6, A ; 101F 56
 +
lisu 4 ; 1020 64
 +
lisl 6 ; 1021 6E
 +
as S ; 1022 CC
 +
lr S, A ; 1023 5C
 +
lisu 5 ; 1024 65
 +
lisl 0 ; 1025 68
 +
lr A, 6 ; 1026 46
 +
as S ; 1027 CC
 +
lr S, A ; 1028 5C
 +
lisu 6 ; 1029 66
 +
lisl 1 ; 102A 69
 +
lr A, S ; 102B 4C
 +
ai $FC ; 102C 24 FC
 +
lr 3, A ; 102E 53
 +
dci L135B ; 102F 2A 13 5B
 +
pi L0822 ; 1032 28 08 22
 +
;-------------------------------------------------------------------------------
 +
; Repositioning and formation/zone tests (strongly likely).
 +
; Copies coordinate state, evaluates object zones and finds minimum distances
 +
; against object records O30-O33. r10 bit 4 records the proximity condition.
 +
;-------------------------------------------------------------------------------
 +
L1035: pi L08B0 ; 1035 28 08 B0
 +
lis 8 ; 1038 78
 +
ns $A ; 1039 FA
 +
bnz L10B9 ; 103A 94 7E
 +
lisu 2 ; 103C 62
 +
lisl 6 ; 103D 6E
 +
lr A, I ; 103E 4D
 +
lr 7, A ; 103F 57
 +
lr A, I ; 1040 4D
 +
lisu 2 ; 1041 62
 +
lisl 1 ; 1042 69
 +
lr D, A ; 1043 5E
 +
lr A, 7 ; 1044 47
 +
lr S, A ; 1045 5C
 +
li $20 ; 1046 20 20
 +
ns $A ; 1048 FA
 +
bz L104E ; 1049 84 04
 +
L104B: jmp L10E0 ; 104B 29 10 E0
 +
L104E: lisu 7 ; 104E 67
 +
lisl 3 ; 104F 6B
 +
as S ; 1050 CC
 +
bp L104B ; 1051 81 F9
 +
lis 3 ; 1053 73
 +
xs 9 ; 1054 E9
 +
bnz L104B ; 1055 94 F5
 +
lr 9, A ; 1057 59
 +
lis 8 ; 1058 78
 +
as $A ; 1059 CA
 +
lr $A, A ; 105A 5A
 +
lisl 6 ; 105B 6E
 +
lr A, S ; 105C 4C
 +
ci 6 ; 105D 25 06
 +
bp L1096 ; 105F 81 36
 +
lr A, $A ; 1061 4A
 +
oi 2 ; 1062 22 02
 +
lr $A, A ; 1064 5A
 +
lisl 4 ; 1065 6C
 +
lr A, I ; 1066 4D
 +
sr 4 ; 1067 14
 +
sr 1 ; 1068 12
 +
ai $A ; 1069 24 0A
 +
as S ; 106B CC
 +
lisl 1 ; 106C 69
 +
lr S, A ; 106D 5C
 +
lisl 6 ; 106E 6E
 +
lis 7 ; 106F 77
 +
xs S ; 1070 EC
 +
bnz L1096 ; 1071 94 24
 +
lisl 1 ; 1073 69
 +
lr A, S ; 1074 4C
 +
ai $FD ; 1075 24 FD
 +
lr S, A ; 1077 5C
 +
lis 1 ; 1078 71
 +
ns $A ; 1079 FA
 +
lisu 2 ; 107A 62
 +
lisl 0 ; 107B 68
 +
bnz L1083 ; 107C 94 06
 +
li $F6 ; 107E 20 F6
 +
as S ; 1080 CC
 +
br L1087 ; 1081 90 05
 +
L1083: lr A, S ; 1083 4C
 +
com ; 1084 18
 +
ai $61 ; 1085 24 61
 +
L1087: lr 5, A ; 1087 55
 +
lisu 7 ; 1088 67
 +
lisl 4 ; 1089 6C
 +
li $3F ; 108A 20 3F
 +
ns D ; 108C FE
 +
as 5 ; 108D C5
 +
ci $39 ; 108E 25 39
 +
clr ; 1090 70
 +
bp L1095 ; 1091 81 03
 +
li $20 ; 1093 20 20
 +
L1095: lr S, A ; 1095 5C
 +
L1096: lr A, $A ; 1096 4A
 +
oi $40 ; 1097 22 40
 +
lr $A, A ; 1099 5A
 +
lisu 7 ; 109A 67
 +
lisl 3 ; 109B 6B
 +
li $10 ; 109C 20 10
 +
ns S ; 109E FC
 +
lis 6 ; 109F 76
 +
bnz L10A9 ; 10A0 94 08
 +
li $20 ; 10A2 20 20
 +
ns S ; 10A4 FC
 +
lis $A ; 10A5 7A
 +
bnz L10A9 ; 10A6 94 02
 +
lis 2 ; 10A8 72
 +
L10A9: lr 7, A ; 10A9 57
 +
lis 1 ; 10AA 71
 +
ns $A ; 10AB FA
 +
bz L10B5 ; 10AC 84 08
 +
li $30 ; 10AE 20 30
 +
ns S ; 10B0 FC
 +
lis $F ; 10B1 7F
 +
bnz L10B5 ; 10B2 94 02
 +
lis 3 ; 10B4 73
 +
L10B5: lisu 6 ; 10B5 66
 +
lisl 7 ; 10B6 6F
 +
xs 7 ; 10B7 E7
 +
lr S, A ; 10B8 5C
 +
L10B9: lisu 2 ; 10B9 62
 +
lisl 0 ; 10BA 68
 +
lr A, I ; 10BB 4D
 +
com ; 10BC 18
 +
inc ; 10BD 1F
 +
lr 4, A ; 10BE 54
 +
lr A, D ; 10BF 4E
 +
com ; 10C0 18
 +
inc ; 10C1 1F
 +
lr 5, A ; 10C2 55
 +
lisu 3 ; 10C3 63
 +
lisl 0 ; 10C4 68
 +
L10C5: lr A, I ; 10C5 4D
 +
as 4 ; 10C6 C4
 +
bp L10CB ; 10C7 81 03
 +
com ; 10C9 18
 +
inc ; 10CA 1F
 +
L10CB: lr 2, A ; 10CB 52
 +
lr A, I ; 10CC 4D
 +
as 5 ; 10CD C5
 +
bp L10D2 ; 10CE 81 03
 +
com ; 10D0 18
 +
inc ; 10D1 1F
 +
L10D2: as 2 ; 10D2 C2
 +
ci $F ; 10D3 25 0F
 +
bnc L10DB ; 10D5 92 05
 +
lr A, $A ; 10D7 4A
 +
oi $10 ; 10D8 22 10
 +
lr $A, A ; 10DA 5A
 +
L10DB: lr A, IS ; 10DB 0A
 +
ci $1C ; 10DC 25 1C
 +
bp L10C5 ; 10DE 81 E6
 +
;-------------------------------------------------------------------------------
 +
; Player/object turn and automatic movement selection (strongly likely).
 +
; Select control- or table-driven movement, iterate object groups and route the
 +
; resulting event to the common frame/state handlers.
 +
;-------------------------------------------------------------------------------
 +
L10E0: lisu 7 ; 10E0 67
 +
lisl 5 ; 10E1 6D
 +
lr A, S ; 10E2 4C
 +
com ; 10E3 18
 +
inc ; 10E4 1F
 +
lisl 1 ; 10E5 69
 +
as S ; 10E6 CC
 +
clr ; 10E7 70
 +
lr 0, A ; 10E8 50
 +
bm L10EE ; 10E9 91 04
 +
lisu 6 ; 10EB 66
 +
lisl 7 ; 10EC 6F
 +
lr A, S ; 10ED 4C
 +
L10EE: lr 4, A ; 10EE 54
 +
lis 8 ; 10EF 78
 +
ns $A ; 10F0 FA
 +
bz L10F6 ; 10F1 84 04
 +
pi L0A24 ; 10F3 28 0A 24
 +
L10F6: lis 2 ; 10F6 72
 +
ns $A ; 10F7 FA
 +
bnz L10FD ; 10F8 94 04
 +
jmp L1137 ; 10FA 29 11 37
 +
L10FD: lis 6 ; 10FD 76
 +
lr 0, A ; 10FE 50
 +
L10FF: pi L0A1F ; 10FF 28 0A 1F
 +
ds 0 ; 1102 30
 +
bnz L10FF ; 1103 94 FB
 +
pi L08C1 ; 1105 28 08 C1
 +
lis $C ; 1108 7C
 +
lr 0, A ; 1109 50
 +
lis 8 ; 110A 78
 +
ns $A ; 110B FA
 +
bz L111A ; 110C 84 0D
 +
L110E: pi L0A1F ; 110E 28 0A 1F
 +
ds 0 ; 1111 30
 +
lr A, 0 ; 1112 40
 +
ci 6 ; 1113 25 06
 +
bm L110E ; 1115 91 F8
 +
jmp L1227 ; 1117 29 12 27
 +
L111A: com ; 111A 18
 +
inc ; 111B 1F
 +
as 9 ; 111C C9
 +
bnz L1124 ; 111D 94 06
 +
pi L0A1F ; 111F 28 0A 1F
 +
br L112E ; 1122 90 0B
 +
L1124: lis 1 ; 1124 71
 +
ns $A ; 1125 FA
 +
lis 2 ; 1126 72
 +
bnz L112A ; 1127 94 02
 +
lis 1 ; 1129 71
 +
L112A: lr 4, A ; 112A 54
 +
pi L0A24 ; 112B 28 0A 24
 +
L112E: ds 0 ; 112E 30
 +
lr A, 0 ; 112F 40
 +
ci 6 ; 1130 25 06
 +
bm L111A ; 1132 91 E7
 +
jmp L1200 ; 1134 29 12 00
 +
;-------------------------------------------------------------------------------
 +
; Formation lookup and object movement (strongly likely).
 +
; Split L08C7 results into nibbles, normalize direction bits, read L1297-based
 +
; formation records through L08DA and apply resulting moves.
 +
;-------------------------------------------------------------------------------
 +
L1137: lis 2 ; 1137 72
 +
lr 0, A ; 1138 50
 +
pi L08C7 ; 1139 28 08 C7
 +
ni $F0 ; 113C 21 F0
 +
sr 4 ; 113E 14
 +
lr 7, A ; 113F 57
 +
pi L0A10 ; 1140 28 0A 10
 +
ds 0 ; 1143 30
 +
pi L08C7 ; 1144 28 08 C7
 +
ni $F ; 1147 21 0F
 +
lr 7, A ; 1149 57
 +
pi L0A10 ; 114A 28 0A 10
 +
lis 3 ; 114D 73
 +
lr 0, A ; 114E 50
 +
xs 9 ; 114F E9
 +
bz L1159 ; 1150 84 08
 +
clr ; 1152 70
 +
lr 4, A ; 1153 54
 +
pi L0A24 ; 1154 28 0A 24
 +
br L1189 ; 1157 90 31
 +
L1159: pi L0A1F ; 1159 28 0A 1F
 +
lis 6 ; 115C 76
 +
lr 0, A ; 115D 50
 +
pi L08DA ; 115E 28 08 DA
 +
lisu 5 ; 1161 65
 +
lisl 4 ; 1162 6C
 +
bnz L1166 ; 1163 94 02
 +
lr S, A ; 1165 5C
 +
L1166: li $F0 ; 1166 20 F0
 +
ns S ; 1168 FC
 +
sr 4 ; 1169 14
 +
lr 7, A ; 116A 57
 +
pi L0A10 ; 116B 28 0A 10
 +
ds 0 ; 116E 30
 +
lisu 5 ; 116F 65
 +
lisl 4 ; 1170 6C
 +
lis $F ; 1171 7F
 +
ns S ; 1172 FC
 +
lr 7, A ; 1173 57
 +
pi L0A10 ; 1174 28 0A 10
 +
ds 0 ; 1177 30
 +
pi L08DA ; 1178 28 08 DA
 +
lm ; 117B 16
 +
lisu 5 ; 117C 65
 +
lisl 5 ; 117D 6D
 +
bnz L1181 ; 117E 94 02
 +
lr S, A ; 1180 5C
 +
L1181: lis $F ; 1181 7F
 +
ns S ; 1182 FC
 +
lr 7, A ; 1183 57
 +
pi L0A10 ; 1184 28 0A 10
 +
br L1194 ; 1187 90 0C
 +
L1189: lis 6 ; 1189 76
 +
lr 0, A ; 118A 50
 +
L118B: pi L0A1F ; 118B 28 0A 1F
 +
ds 0 ; 118E 30
 +
lr A, 0 ; 118F 40
 +
ci 3 ; 1190 25 03
 +
bnz L118B ; 1192 94 F8
 +
;-------------------------------------------------------------------------------
 +
; Multi-object update and event evaluation (strongly likely).
 +
; Compare object 12 and 11, read the opposing controller and update objects 10
 +
; through 7 using direct controls or generated direction steps.
 +
;-------------------------------------------------------------------------------
 +
L1194: lis $C ; 1194 7C
 +
lr 0, A ; 1195 50
 +
pi L0D30 ; 1196 28 0D 30
 +
ds 0 ; 1199 30
 +
pi L0D30 ; 119A 28 0D 30
 +
pi L08C1 ; 119D 28 08 C1
 +
li $30 ; 11A0 20 30
 +
ns S ; 11A2 FC
 +
bz L11A9 ; 11A3 84 05
 +
lr A, $A ; 11A5 4A
 +
oi $40 ; 11A6 22 40
 +
lr $A, A ; 11A8 5A
 +
L11A9: lis $A ; 11A9 7A
 +
lr 0, A ; 11AA 50
 +
pi L0A1F ; 11AB 28 0A 1F
 +
ds 0 ; 11AE 30
 +
L11AF: li $40 ; 11AF 20 40
 +
ns $A ; 11B1 FA
 +
bnz L11CF ; 11B2 94 1C
 +
lr A, 0 ; 11B4 40
 +
ci 8 ; 11B5 25 08
 +
bnz L11BD ; 11B7 94 05
 +
lis 6 ; 11B9 76
 +
lr 7, A ; 11BA 57
 +
br L11BF ; 11BB 90 03
 +
L11BD: lis 5 ; 11BD 75
 +
lr 7, A ; 11BE 57
 +
L11BF: lis 1 ; 11BF 71
 +
lisu 7 ; 11C0 67
 +
lisl 7 ; 11C1 6F
 +
ns S ; 11C2 FC
 +
lr 2, A ; 11C3 52
 +
lr A, S ; 11C4 4C
 +
ai $FF ; 11C5 24 FF
 +
ni 2 ; 11C7 21 02
 +
sr 1 ; 11C9 12
 +
as 0 ; 11CA C0
 +
ni 1 ; 11CB 21 01
 +
bnz L11D4 ; 11CD 94 06
 +
L11CF: pi L0A1F ; 11CF 28 0A 1F
 +
br L11D7 ; 11D2 90 04
 +
L11D4: pi L0D86 ; 11D4 28 0D 86
 +
L11D7: ds 0 ; 11D7 30
 +
lr A, 0 ; 11D8 40
 +
ci 7 ; 11D9 25 07
 +
bm L11AF ; 11DB 91 D3
 +
lisu 7 ; 11DD 67
 +
lisl 3 ; 11DE 6B
 +
li $40 ; 11DF 20 40
 +
ns S ; 11E1 FC
 +
bnz L11FD ; 11E2 94 1A
 +
lisl 7 ; 11E4 6F
 +
lr A, D ; 11E5 4E
 +
ci 4 ; 11E6 25 04
 +
bp L11F8 ; 11E8 81 0F
 +
lisu 7 ; 11EA 67
 +
lisl 5 ; 11EB 6D
 +
lr A, S ; 11EC 4C
 +
ci $A ; 11ED 25 0A
 +
bm L11F8 ; 11EF 91 08
 +
lis 6 ; 11F1 76
 +
lr 7, A ; 11F2 57
 +
pi L0A10 ; 11F3 28 0A 10
 +
br L1200 ; 11F6 90 09
 +
L11F8: pi L0D30 ; 11F8 28 0D 30
 +
br L1200 ; 11FB 90 04
 +
L11FD: pi L0A1F ; 11FD 28 0A 1F
 +
L1200: lis 2 ; 1200 72
 +
lr 5, A ; 1201 55
 +
clr ; 1202 70
 +
as 9 ; 1203 C9
 +
bz L1227 ; 1204 84 22
 +
ci 6 ; 1206 25 06
 +
bm L120B ; 1208 91 02
 +
ds 5 ; 120A 35
 +
L120B: lis 1 ; 120B 71
 +
ns $A ; 120C FA
 +
bz L1210 ; 120D 84 02
 +
ds 5 ; 120F 35
 +
L1210: li $10 ; 1210 20 10
 +
as 9 ; 1212 C9
 +
as 9 ; 1213 C9
 +
lr IS, A ; 1214 0B
 +
lr A, S ; 1215 4C
 +
ds 5 ; 1216 35
 +
bz L1220 ; 1217 84 08
 +
ci $57 ; 1219 25 57
 +
bp L1227 ; 121B 81 0B
 +
jmp L0D13 ; 121D 29 0D 13
 +
L1220: ci $12 ; 1220 25 12
 +
bm L1227 ; 1222 91 04
 +
jmp L0D10 ; 1224 29 0D 10
 +
;-------------------------------------------------------------------------------
 +
; Frame/time update (strongly likely)
 +
; Advance O75, apply timing increment from L124D to O63, propagate carry into
 +
; O62, optionally redraw, then re-enter the active update path at L0FCD.
 +
;-------------------------------------------------------------------------------
 +
L1227: lisu 7 ; 1227 67
 +
lisl 5 ; 1228 6D
 +
lr A, S ; 1229 4C
 +
inc ; 122A 1F
 +
lr S, A ; 122B 5C
 +
ci $60 ; 122C 25 60
 +
bp L1232 ; 122E 81 03
 +
ds S ; 1230 3C
 +
ds S ; 1231 3C
 +
L1232: dci L124D ; 1232 2A 12 4D
 +
lisu 7 ; 1235 67
 +
lisl 2 ; 1236 6A
 +
lr A, S ; 1237 4C
 +
adc ; 1238 8E
 +
lm ; 1239 16
 +
lisu 6 ; 123A 66
 +
lisl 3 ; 123B 6B
 +
as S ; 123C CC
 +
lr S, A ; 123D 5C
 +
bnc L124A ; 123E 92 0B
 +
lisu 6 ; 1240 66
 +
lisl 2 ; 1241 6A
 +
clr ; 1242 70
 +
as S ; 1243 CC
 +
bz L1247 ; 1244 84 02
 +
ds S ; 1246 3C
 +
L1247: pi L09C4 ; 1247 28 09 C4
 +
L124A: jmp L0FCD ; 124A 29 0F CD
 +
;===============================================================================
 +
; DATA TABLES $124D-$13E9
 +
; This range is addressed from reachable code through DCI. It must remain raw
 +
; data. Labels below describe known consumers; contents are preserved exactly.
 +
;===============================================================================
 +
; frame/tempo increment table used at L1232
 +
L124D: .byte $50, $14, $1D, $38 ; 124D
 +
; Delay/parameter table used by the short 1 kHz beep at L0C96.
 +
L1251: .byte $48, $29, $01, $FF, $01, $00, $04, $00, $06, $00, $02, $00 ; 1251
 +
; State lookup table used by L0DB3.
 +
L125D: .byte $00, $03, $07, $AB, $05, $04, $06, $AB, $01, $02, $08 ; 125D
 +
; Variable-length lookup/formation data consumed by L08C7.
 +
L1268: .byte $08, $09, $0A, $0B, $0C, $17, $22, $23, $24, $77, $00, $77, $00, $77, $00, $77 ; 1268
 +
.byte $00, $08, $00, $0C, $88, $0F, $81, $11, $80, $13, $01, $77, $11, $03, $00, $07 ; 1278
 +
.byte $44, $0A, $50, $0C, $00, $0E, $00, $77, $11, $77, $00, $77, $00, $77, $00 ; 1288
 +
; Variable-length lookup/formation data consumed by L08DA.
 +
L1297: .byte $0A, $1C, $25, $34, $40, $52, $5B, $67, $67, $77, $11, $03, $03, $11, $01, $06 ; 1297
 +
.byte $45, $01, $0F, $48, $01, $12, $08, $01, $17, $01, $01, $1B, $01, $04, $77, $06 ; 12A7
 +
.byte $11, $01, $0A, $11, $00, $0C, $95, $00, $77, $03, $11, $01, $0E, $49, $00, $14 ; 12B7
 +
.byte $04, $00, $19, $92, $01, $20, $98, $04, $77, $03, $51, $01, $12, $52, $01, $16 ; 12C7
 +
.byte $14, $01, $1B, $91, $01, $77, $03, $11, $05, $07, $51, $05, $0A, $51, $05, $0D ; 12D7
 +
.byte $12, $09, $0E, $15, $09, $21, $A5, $04, $77, $08, $15, $01, $0C, $55, $01, $10 ; 12E7
 +
.byte $84, $01, $77, $02 ; 12F7
 +
; Alternate state/formation table selected inside L0DCB.
 +
L12FB: .byte $11, $08, $07, $11, $09, $0B, $58, $09, $0D, $15, $00, $77, $77, $77, $1E, $0A ; 12FB
 +
.byte $22, $0A, $1C, $06, $24, $06, $1E, $02 ; 130B
 +
; Primary state/formation table selected inside L0DCB.
 +
L1313: .byte $22, $02, $1C, $02, $20, $02, $20, $07, $23, $0A, $2C, $03, $16, $02, $20, $08 ; 1313
 +
.byte $16, $0B, $2C, $0C, $1C, $14, $1C, $02, $20, $02 ; 1323
 +
; Three short selector/bitmap records chosen near L0BEC.
 +
L132D: .byte $FF, $80 ; 132D
 +
L132F: .byte $AA, $80 ; 132F
 +
L1331: .byte $F7, $80 ; 1331
 +
; Eight consecutive graphics parameter records rendered from L0E83.
 +
L1333: .byte $09, $37, $41, $59, $01, $09, $0E, $41, $01, $2A, $09, $0E, $41, $59, $01, $61 ; 1333
 +
.byte $0E, $41, $01, $2A, $0A, $0F, $C1, $57, $28, $58, $0C, $41, $01, $2E, $0A, $07 ; 1343
 +
.byte $C1, $61, $05, $12, $0C, $41, $01, $2E ; 1353
 +
; Graphics parameter block entered through L0822 at $102F.
 +
L135B: .byte $17, $C1, $09, $11 ; 135B
 +
; Fixed screen graphics parameter block entered through L0820 at $0E1F.
 +
L135F: .byte $19, $11, $C1, $33, $07 ; 135F
 +
; Packed sprite/glyph data indexed as L1364 + 2*r1 by L0840.
 +
L1364: .byte $F6, $DE, $59, $2E, $E7, $CE, $E7, $9E, $B7, $92, $F3, $9E, $F3, $DE, $E5, $24 ; 1364
 +
.byte $F7, $DE, $F7, $9E, $08, $20 ; 1374
 +
; Sound-effect table consumed by L088E from $0C6D.
 +
L137A: .byte $27, $67, $25, $47, $23, $27, $00 ; 137A
 +
; Sound-effect table consumed by L088E from $0CB2.
 +
L1381: .byte $04, $22, $07, $AB, $03, $BB, $08, $CC, $03, $34, $06, $12, $0D, $12, $0D, $12 ; 1381
 +
.byte $00 ; 1391
 +
; Sound-effect table consumed by L088E from $0EC4.
 +
L1392: .byte $37, $6A, $1A, $61, $1B, $6A, $0E, $73, $1D, $73, $0D, $6A, $1D, $73, $0E, $73 ; 1392
 +
.byte $1D, $73, $0E, $73, $1B, $6A, $1D, $73, $10, $82, $20, $82, $0F, $7B, $31, $82 ; 13A2
 +
.byte $24, $90, $2B, $A2, $29, $9D, $24, $90, $20, $82, $1B, $6A, $16, $43, $18, $58 ; 13B2
 +
.byte $0D, $6A, $20, $82, $0E, $73, $1B, $6A, $18, $58, $2B, $43, $00 ; 13C2
 +
; Sound-effect table consumed by L088E from $0D27. The terminating zero is
 +
; followed by unused ROM fill; retain all bytes to preserve the original image.
 +
L13CF: .byte $31, $82, $0F, $7B, $24, $90, $20, $82, $41, $A2, $14, $9D, $31, $AD, $2B, $A2 ; 13CF
 +
.byte $36, $B6, $36, $B6, $36, $B6, $36, $B6, $6D, $B6, $00, $FF, $FF, $FF, $FF, $FF ; 13DF
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 13EF
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 13FF
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 140F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 141F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 142F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 143F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 144F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 145F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 146F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 147F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 148F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 149F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 14AF
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 14BF
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 14CF
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 14DF
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 14EF
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 14FF
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 150F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 151F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 152F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 153F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 154F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 155F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 156F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 157F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 158F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 159F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 15AF
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 15BF
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 15CF
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 15DF
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 15EF
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 15FF
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 160F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 161F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 162F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 163F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 164F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 165F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 166F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 167F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 168F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 169F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 16AF
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 16BF
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 16CF
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 16DF
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 16EF
 +
.byte $FF, $00, $00, $00, $00, $00, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 16FF
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 170F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 171F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 172F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 173F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 174F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 175F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 176F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 177F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 178F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 179F
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 17AF
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 17BF
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 17CF
 +
.byte $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF ; 17DF
 +
.byte $FF, $00, $10, $E9, $1B, $DD, $E5, $00, $00, $00, $00, $00, $00, $00, $00, $00 ; 17EF
 +
.byte $00 ; 17FF
  
<pre>
+
; Interpreting the last bytes as a five bit alphabet and using ROT24 - it spells PANBLAST, perhaps it means something to someone.
Reset: equ $0000
+
 
 +
IF 0
  
org $0800
+
Smart data report
 +
=================
 +
Mode: enabled by -s or /s
 +
Memory range: $0800-$17FF
 +
Code bytes: 2630
 +
Data bytes: 1466
  
CartridgeStart: LR  $5,A                ; 0800 55
+
DCI data roots from reachable code:
                NOP                      ; 0801 2b
+
   $1333 from $0E7E
CartridgeEntry: LI   $d0                ; 0802 20 d0
+
   $1392 from $0EC4
                LR  $3,A                ; 0804 53
+
   $135F from $0E1F
                PI   $00d0              ; 0805 28 00 d0
+
   $1364 from $0840
                LISU 6                  ; 0808 66
+
   $1313 from $0DCB
                LISL 1                  ; 0809 69
+
   $12FB from $0DD8
                LI  $21                ; 080a 20 21
+
   $1331 from $0BEF
                LR   (IS),A              ; 080c 5c
+
   $132F from $0BF9
                LIS  $1                  ; 080d 71
+
   $132D from $0C00
                LR  $a,A                ; 080e 5a
+
   $137A from $0C6D
                JMP  A0e68              ; 080f 29 0e 68
+
   $1251 from $0C97
A0812:          LI   $10                ; 0812 20 10
+
   $1381 from $0CB2
                AS  $0                  ; 0814 c0
+
   $125D from $0DB3
                AS  $0                  ; 0815 c0
+
   $135B from $102F
                LR  IS,A                ; 0816 0b
+
   $13CF from $0D27
                POP                      ; 0817 1c
+
   $124D from $1232
A0818:          LIS  $0                  ; 0818 70
+
   $1268 from $08C7
A0819:          INC                      ; 0819 1f
+
   $1297 from $08DA
                BF  $4,A0819            ; 081a 94 fe
 
                DS  $5                  ; 081c 35
 
                BF  $4,A0818            ; 081d 94 fa
 
                POP                      ; 081f 1c
 
A0820:          LM                      ; 0820 16
 
                LR  $3,A                ; 0821 53
 
A0822:          LM                      ; 0822 16
 
                LR  $4,A                ; 0823 54
 
                LM                      ; 0824 16
 
                LR  $2,A                ; 0825 52
 
                LM                      ; 0826 16
 
                LR  $5,A                ; 0827 55
 
                LM                      ; 0828 16
 
                LR  $6,A                ; 0829 56
 
                BF  $0,A084a            ; 082a 90 1f
 
A082c:          LI  $c1                ; 082c 20 c1
 
                LR  $2,A                ; 082e 52
 
A082f:          LR  A,(IS)+            ; 082f 4d
 
                LR  $3,A                ; 0830 53
 
                DS  $3                  ; 0831 33
 
                LR  A,(IS)+            ; 0832 4d
 
                LR  $4,A                ; 0833 54
 
                DS  $4                  ; 0834 34
 
                BF  $0,A083a            ; 0835 90 04
 
                LI  $c1                ; 0837 20 c1
 
                LR  $2,A                ; 0839 52
 
A083a:          LIS  $3                  ; 083a 73
 
                LR  $5,A                ; 083b 55
 
A083c:          LIS  $3                  ; 083c 73
 
                LR  $6,A                ; 083d 56
 
                BF  $0,A084a            ; 083e 90 0b
 
A0840:          DCI  A1364              ; 0840 2a 13 64
 
                LR   A,$1                ; 0843 41
 
                ADC                      ; 0844 8e
 
                ADC                      ; 0845 8e
 
                LIS  $3                  ; 0846 73
 
                LR  $5,A                ; 0847 55
 
                LIS  $5                  ; 0848 75
 
                LR  $6,A                ; 0849 56
 
A084a:          LIS  $0                  ; 084a 70
 
                LR  $7,A                ; 084b 57
 
                LI  $40                ; 084c 20 40
 
                OUTS 0                  ; 084e b0
 
                LR  A,$4                ; 084f 44
 
                OI  $c0                ; 0850 22 c0
 
                COM                      ; 0852 18
 
                OUTS 5                  ; 0853 b5
 
A0854:          LR  A,$3                ; 0854 43
 
                COM                      ; 0855 18
 
                OUTS 4                  ; 0856 b4
 
                LR  A,$5                ; 0857 45
 
                LR  $1,A                ; 0858 51
 
A0859:          LR  A,$2                ; 0859 42
 
                OUTS 1                  ; 085a b1
 
                NI  $01                ; 085b 21 01
 
                BF  $4,A0873            ; 085d 94 15
 
                COM                      ; 085f 18
 
                ADC                      ; 0860 8e
 
                LR  A,$7                ; 0861 47
 
                SR  1                  ; 0862 12
 
                LR  $7,A                ; 0863 57
 
                BF  $4,A086a            ; 0864 94 05
 
                LM                      ; 0866 16
 
                LI  $80                ; 0867 20 80
 
                LR  $7,A                ; 0869 57
 
A086a:          NM                      ; 086a 8a
 
                BF  $4,A0873            ; 086b 94 07
 
                COM                      ; 086d 18
 
                OUTS 1                  ; 086e b1
 
                LIS  $2                  ; 086f 72
 
                NS  $2                  ; 0870 f2
 
                BF  $4,A087d            ; 0871 94 0b
 
A0873:          LI  $60                ; 0873 20 60
 
                OUTS 0                  ; 0875 b0
 
                LI  $40                ; 0876 20 40
 
                OUTS 0                  ; 0878 b0
 
A0879:          AI  $f5                ; 0879 24 f5
 
                BT  1,A0879            ; 087b 81 fd
 
A087d:          INS  4                  ; 087d a4
 
                AI  $ff                ; 087e 24 ff
 
                OUTS 4                  ; 0880 b4
 
                DS  $1                  ; 0881 31
 
                BF  $4,A0859            ; 0882 94 d6
 
                INS  5                  ; 0884 a5
 
                AI  $ff                ; 0885 24 ff
 
                OUTS 5                  ; 0887 b5
 
                DS  $6                  ; 0888 36
 
                BF  $4,A0854            ; 0889 94 ca
 
                LIS  $0                  ; 088b 70
 
                OUTS 0                  ; 088c b0
 
                POP                      ; 088d 1c
 
A088e:          LIS  $3                  ; 088e 73
 
                LR  $4,A                ; 088f 54
 
A0890:          INC                      ; 0890 1f
 
                BF  $4,A0890            ; 0891 94 fe
 
                AM                      ; 0893 88
 
                LR  $7,A                ; 0894 57
 
                BT  4,A08af            ; 0895 84 19
 
                LM                      ; 0897 16
 
                LR  $5,A                ; 0898 55
 
A0899:          LI  $80                ; 0899 20 80
 
                OUTS 5                  ; 089b b5
 
                LR  A,$5                ; 089c 45
 
A089d:          INC                      ; 089d 1f
 
                BF  $4,A089d            ; 089e 94 fe
 
                OUTS 5                  ; 08a0 b5
 
                LR  A,$5                ; 08a1 45
 
A08a2:          INC                      ; 08a2 1f
 
                BF  $4,A08a2            ; 08a3 94 fe
 
                DS  $4                  ; 08a5 34
 
                BF  $4,A0899            ; 08a6 94 f2
 
                LIS  $3                  ; 08a8 73
 
                LR  $4,A                ; 08a9 54
 
                DS  $7                  ; 08aa 37
 
                BF  $4,A0899            ; 08ab 94 ed
 
                BF  $0,A088e            ; 08ad 90 e0
 
A08af:          POP                      ; 08af 1c
 
A08b0:          LIS  $1                  ; 08b0 71
 
                NS  $a                  ; 08b1 fa
 
                BT  4,A08b9            ; 08b2 84 06
 
A08b4:          LIS  $0                  ; 08b4 70
 
                OUTS 4                  ; 08b5 b4
 
                INS  4                  ; 08b6 a4
 
                BF  $0,A08bc            ; 08b7 90 04
 
A08b9:          LIS  $0                  ; 08b9 70
 
                OUTS 1                  ; 08ba b1
 
                INS  1                  ; 08bb a1
 
A08bc:          COM                      ; 08bc 18
 
                LISU 7                  ; 08bd 67
 
                LISL 3                  ; 08be 6b
 
                LR  (IS),A              ; 08bf 5c
 
                POP                      ; 08c0 1c
 
A08c1:          LIS  $1                  ; 08c1 71
 
                NS  $a                  ; 08c2 fa
 
                BT  4,A08b4            ; 08c3 84 f0
 
                BF  $0,A08b9            ; 08c5 90 f3
 
A08c7:          DCI  A1268              ; 08c7 2a 12 68
 
                LISU 7                  ; 08ca 67
 
                LISL 6                  ; 08cb 6e
 
                LR  A,(IS)-            ; 08cc 4e
 
                ADC                      ; 08cd 8e
 
                LM                      ; 08ce 16
 
                ADC                      ; 08cf 8e
 
                LR  A,(IS)              ; 08d0 4c
 
                COM                      ; 08d1 18
 
                INC                      ; 08d2 1f
 
                LR  $4,A                ; 08d3 54
 
A08d4:          LM                      ; 08d4 16
 
                AS  $4                  ; 08d5 c4
 
                LM                      ; 08d6 16
 
                BF  $1,A08d4            ; 08d7 91 fc
 
                POP                      ; 08d9 1c
 
A08da:          DCI  A1297              ; 08da 2a 12 97
 
                LISU 7                  ; 08dd 67
 
                LISL 6                  ; 08de 6e
 
                LR  A,(IS)-            ; 08df 4e
 
                ADC                      ; 08e0 8e
 
                LM                      ; 08e1 16
 
                ADC                      ; 08e2 8e
 
                LR  A,(IS)              ; 08e3 4c
 
                COM                      ; 08e4 18
 
                INC                      ; 08e5 1f
 
                LR  $4,A                ; 08e6 54
 
A08e7:          LM                      ; 08e7 16
 
                LM                      ; 08e8 16
 
                AS  $4                  ; 08e9 c4
 
                LM                      ; 08ea 16
 
                BF  $1,A08e7            ; 08eb 91 fb
 
                POP                      ; 08ed 1c
 
A08ee:          LIS  $2                  ; 08ee 72
 
                LR  $5,A                ; 08ef 55
 
                LR  A,$0                ; 08f0 40
 
                CI  $06                ; 08f1 25 06
 
                BF  $1,A08f6            ; 08f3 91 02
 
                DS  $5                  ; 08f5 35
 
A08f6:          LIS  $1                  ; 08f6 71
 
                NS  $a                  ; 08f7 fa
 
                BT  4,A08fb            ; 08f8 84 02
 
                DS  $5                  ; 08fa 35
 
A08fb:          DS  $5                  ; 08fb 35
 
                POP                      ; 08fc 1c
 
A08fd:          LIS  $2                  ; 08fd 72
 
                LR  $5,A                ; 08fe 55
 
                LI  $f9                ; 08ff 20 f9
 
                AS  $0                  ; 0901 c0
 
                BF  $1,A0905            ; 0902 91 02
 
                DS  $5                  ; 0904 35
 
A0905:          LI  $f9                ; 0905 20 f9
 
                AS  $4                  ; 0907 c4
 
                BF  $1,A090b            ; 0908 91 02
 
                DS  $5                  ; 090a 35
 
A090b:          DS  $5                  ; 090b 35
 
                POP                      ; 090c 1c
 
A090d:          LISU 6                  ; 090d 66
 
A090e:          LISL 5                  ; 090e 6d
 
                LI  $64                ; 090f 20 64
 
                LR  (IS)+,A            ; 0911 5d
 
                LR  A,$9                ; 0912 49
 
                LR  (IS),A              ; 0913 5c
 
                LISL 4                  ; 0914 6c
 
                LR  A,$4                ; 0915 44
 
                LR   (IS),A              ; 0916 5c
 
                LIS  $6                  ; 0917 76
 
                LR  $9,A                ; 0918 59
 
A0919:          LI   $10                ; 0919 20 10
 
                AS  $8                  ; 091b c8
 
                AS  $8                  ; 091c c8
 
                LR  IS,A                ; 091d 0b
 
                LR  A,(IS)              ; 091e 4c
 
                LR  $7,A                ; 091f 57
 
                LI  $fe                ; 0920 20 fe
 
                LR  $5,A                ; 0922 55
 
                LI  $10                ; 0923 20 10
 
                AS  $9                  ; 0925 c9
 
                AS  $9                  ; 0926 c9
 
                LR  IS,A                ; 0927 0b
 
                LR  A,$7                ; 0928 47
 
                COM                      ; 0929 18
 
                INC                      ; 092a 1f
 
                AS  (IS)                ; 092b cc
 
                LR  $7,A                ; 092c 57
 
                BT  1,A0931            ; 092d 81 03
 
                COM                      ; 092f 18
 
                INC                      ; 0930 1f
 
A0931:          LR  $4,A                ; 0931 54
 
                LIS  $1                  ; 0932 71
 
                NS  $a                  ; 0933 fa
 
                BT  4,A093a            ; 0934 84 05
 
                LR  A,$7                ; 0936 47
 
                COM                      ; 0937 18
 
                INC                      ; 0938 1f
 
                LR  $7,A                ; 0939 57
 
A093a:          LR  A,$5                ; 093a 45
 
                INC                      ; 093b 1f
 
                INC                      ; 093c 1f
 
                LR  $5,A                ; 093d 55
 
                LR  A,$4                ; 093e 44
 
                AI  $fd                ; 093f 24 fd
 
                LR  $4,A                ; 0941 54
 
                BT  1,A093a            ; 0942 81 f7
 
                LISU 6                  ; 0944 66
 
                LISL 7                  ; 0945 6f
 
                LIS  $8                  ; 0946 78
 
                NS  (IS)                ; 0947 fc
 
                BT  4,A094e            ; 0948 84 05
 
                LR  A,$5                ; 094a 45
 
                COM                      ; 094b 18
 
                INC                      ; 094c 1f
 
                LR  $5,A                ; 094d 55
 
A094e:          LIS  $c                  ; 094e 7c
 
                NS  (IS)                ; 094f fc
 
                BF  $4,A0953            ; 0950 94 02
 
                LR  $5,A                ; 0952 55
 
A0953:          LIS  $1                  ; 0953 71
 
                NS  $a                  ; 0954 fa
 
                BF  $4,A095b            ; 0955 94 05
 
                LR  A,$5                ; 0957 45
 
                COM                      ; 0958 18
 
                INC                      ; 0959 1f
 
                LR  $5,A                ; 095a 55
 
A095b:          LIS  $0                  ; 095b 70
 
                AS  $7                  ; 095c c7
 
                BF  $1,A0963            ; 095d 91 05
 
                LR  A,$5                ; 095f 45
 
                COM                      ; 0960 18
 
                INC                      ; 0961 1f
 
                LR  $5,A                ; 0962 55
 
A0963:          LI  $11                ; 0963 20 11
 
                AS  $8                  ; 0965 c8
 
                AS  $8                  ; 0966 c8
 
                LR  IS,A                ; 0967 0b
 
                LR  A,(IS)              ; 0968 4c
 
                AS  $5                  ; 0969 c5
 
                COM                      ; 096a 18
 
                INC                      ; 096b 1f
 
                LR  $5,A                ; 096c 55
 
                LI  $11                ; 096d 20 11
 
                AS  $9                  ; 096f c9
 
                AS  $9                  ; 0970 c9
 
                LR  IS,A                ; 0971 0b
 
                LR  A,(IS)              ; 0972 4c
 
                AS  $5                  ; 0973 c5
 
                BT  1,A0978            ; 0974 81 03
 
                COM                      ; 0976 18
 
                INC                      ; 0977 1f
 
A0978:          LR  $5,A                ; 0978 55
 
                COM                      ; 0979 18
 
                LISU 6                  ; 097a 66
 
                LISL 5                  ; 097b 6d
 
                AS  (IS)                ; 097c cc
 
                BF  $1,A09b3            ; 097d 91 35
 
                LR  A,$5                ; 097f 45
 
                LR  (IS),A              ; 0980 5c
 
                LIS  $0                  ; 0981 70
 
                AS  $7                  ; 0982 c7
 
                BT  1,A09af            ; 0983 81 2b
 
                LR  A,$b                ; 0985 4b
 
                NI  $fd                ; 0986 21 fd
 
                LR  $b,A                ; 0988 5b
 
                LI  $10                ; 0989 20 10
 
                AS  $8                  ; 098b c8
 
                AS  $8                  ; 098c c8
 
                LR  IS,A                ; 098d 0b
 
                LR  A,(IS)              ; 098e 4c
 
                SR  1                  ; 098f 12
 
                AS  (IS)                ; 0990 cc
 
                LR  $5,A                ; 0991 55
 
                LISU 2                  ; 0992 62
 
                LISL 6                  ; 0993 6e
 
                LR  A,(IS)              ; 0994 4c
 
                SR  1                  ; 0995 12
 
                COM                      ; 0996 18
 
                INC                      ; 0997 1f
 
                AS  $5                  ; 0998 c5
 
                LR  $5,A                ; 0999 55
 
                LI  $10                ; 099a 20 10
 
                AS  $9                  ; 099c c9
 
                AS  $9                  ; 099d c9
 
                LR  IS,A                ; 099e 0b
 
                LR  A,(IS)              ; 099f 4c
 
                COM                      ; 09a0 18
 
                INC                      ; 09a1 1f
 
                AS  $5                  ; 09a2 c5
 
                LR  $5,A                ; 09a3 55
 
                LIS  $1                  ; 09a4 71
 
                NS  $a                  ; 09a5 fa
 
                BT  4,A09ac            ; 09a6 84 05
 
                LR  A,$5                ; 09a8 45
 
                COM                      ; 09a9 18
 
                INC                      ; 09aa 1f
 
                LR  $5,A                ; 09ab 55
 
A09ac:          DS  $5                  ; 09ac 35
 
                BT  1,A09b3            ; 09ad 81 05
 
A09af:          LR  A,$b                ; 09af 4b
 
                OI  $02                ; 09b0 22 02
 
                LR  $b,A                ; 09b2 5b
 
A09b3:          DS  $9                  ; 09b3 39
 
                LR  A,$9                ; 09b4 49
 
                CI  $03                ; 09b5 25 03
 
                BT  1,A09bc            ; 09b7 81 04
 
                JMP  A0919              ; 09b9 29 09 19
 
A09bc:          LISU 6                  ; 09bc 66
 
                LISL 6                  ; 09bd 6e
 
                LR  A,(IS)              ; 09be 4c
 
                LR  $9,A                ; 09bf 59
 
                LISL 4                  ; 09c0 6c
 
                LR  A,(IS)              ; 09c1 4c
 
                LR  $4,A                ; 09c2 54
 
                POP                      ; 09c3 1c
 
A09c4:          LR  K,P                ; 09c4 08
 
                LISU 6                  ; 09c5 66
 
                LISL 1                  ; 09c6 69
 
                LR  A,(IS)+            ; 09c7 4d
 
                CI  $32                ; 09c8 25 32
 
                LI  $3c                ; 09ca 20 3c
 
                BT  1,A09d0            ; 09cc 81 03
 
                LI  $19                ; 09ce 20 19
 
A09d0:          LR  $3,A                ; 09d0 53
 
                LIS  $0                  ; 09d1 70
 
                LR  $1,A                ; 09d2 51
 
                AS  (IS)                ; 09d3 cc
 
                LR  $8,A                ; 09d4 58
 
                BT  4,A09e4            ; 09d5 84 0e
 
A09d7:          LR  A,$8                ; 09d7 48
 
                AI  $c4                ; 09d8 24 c4
 
                CI  $c3                ; 09da 25 c3
 
                BF  $2,A09e4            ; 09dc 92 07
 
                LR  $8,A                ; 09de 58
 
                LR  A,$1                ; 09df 41
 
                INC                      ; 09e0 1f
 
                LR  $1,A                ; 09e1 51
 
                BF  $0,A09d7            ; 09e2 90 f4
 
A09e4:          LIS  $7                  ; 09e4 77
 
                LR  $4,A                ; 09e5 54
 
                LI  $40                ; 09e6 20 40
 
                LR  $2,A                ; 09e8 52
 
                PI  A0840              ; 09e9 28 08 40
 
                LIS  $4                  ; 09ec 74
 
                AS  $3                  ; 09ed c3
 
                LR  $3,A                ; 09ee 53
 
                LIS  $a                  ; 09ef 7a
 
                LR  $1,A                ; 09f0 51
 
                PI  A0840              ; 09f1 28 08 40
 
                LIS  $3                  ; 09f4 73
 
                AS  $3                  ; 09f5 c3
 
                LR  $3,A                ; 09f6 53
 
                LIS  $0                  ; 09f7 70
 
A09f8:          LR  $1,A                ; 09f8 51
 
                LR  A,$8                ; 09f9 48
 
                AI  $f6                ; 09fa 24 f6
 
                BF  $1,A0a04            ; 09fc 91 07
 
                LR  $8,A                ; 09fe 58
 
                LR  A,$1                ; 09ff 41
 
                INC                      ; 0a00 1f
 
                LR  $1,A                ; 0a01 51
 
                BF  $0,A09f8            ; 0a02 90 f5
 
A0a04:          PI  A0840              ; 0a04 28 08 40
 
                LIS  $4                  ; 0a07 74
 
                AS  $3                  ; 0a08 c3
 
                LR  $3,A                ; 0a09 53
 
                LR  A,$8                ; 0a0a 48
 
                LR  $1,A                ; 0a0b 51
 
                PI  A0840              ; 0a0c 28 08 40
 
A0a0f:          PK                      ; 0a0f 0c
 
A0a10:          LR  A,$7                ; 0a10 47
 
                LR  $4,A                ; 0a11 54
 
                LIS  $1                  ; 0a12 71
 
                NS  $a                  ; 0a13 fa
 
                BF  $4,A0a1d            ; 0a14 94 08
 
                LIS  $3                  ; 0a16 73
 
                NS  $4                  ; 0a17 f4
 
                BT  4,A0a1d            ; 0a18 84 04
 
                LIS  $3                  ; 0a1a 73
 
                XS  $4                  ; 0a1b e4
 
                LR  $4,A                ; 0a1c 54
 
A0a1d:          BF  $0,A0a24            ; 0a1d 90 06
 
A0a1f:          LISU 7                  ; 0a1f 67
 
                LISL 3                  ; 0a20 6b
 
                LIS  $f                  ; 0a21 7f
 
                NS  (IS)                ; 0a22 fc
 
                LR  $4,A                ; 0a23 54
 
A0a24:          LR  K,P                ; 0a24 08
 
                LIS  $0                  ; 0a25 70
 
                LR  $3,A                ; 0a26 53
 
                LR  $6,A                ; 0a27 56
 
                LIS  $1                  ; 0a28 71
 
                NS  $4                  ; 0a29 f4
 
                BT  4,A0a2e            ; 0a2a 84 03
 
                LIS  $1                  ; 0a2c 71
 
                LR  $3,A                ; 0a2d 53
 
A0a2e:          LIS  $2                  ; 0a2e 72
 
                NS  $4                  ; 0a2f f4
 
                BT  4,A0a33            ; 0a30 84 02
 
                DS  $3                  ; 0a32 33
 
A0a33:          NOP                      ; 0a33 2b
 
                LIS  $4                  ; 0a34 74
 
                NS  $4                  ; 0a35 f4
 
                BT  4,A0a3a            ; 0a36 84 03
 
                LIS  $1                  ; 0a38 71
 
                LR  $6,A                ; 0a39 56
 
A0a3a:          LIS  $8                  ; 0a3a 78
 
                NS  $4                  ; 0a3b f4
 
                BT  4,A0a3f            ; 0a3c 84 02
 
                DS  $6                  ; 0a3e 36
 
A0a3f:          LIS  $0                  ; 0a3f 70
 
                AS  $0                  ; 0a40 c0
 
                BF  $4,A0a61            ; 0a41 94 1f
 
                LR  A,$6                ; 0a43 46
 
                SL  1                  ; 0a44 13
 
                LR  $6,A                ; 0a45 56
 
                LR  A,$3                ; 0a46 43
 
                BT  4,A0a4d            ; 0a47 84 05
 
                SL  1                  ; 0a49 13
 
                SL  1                  ; 0a4a 13
 
                BF  $0,A0a4f            ; 0a4b 90 03
 
A0a4d:          SL  1                  ; 0a4d 13
 
                AS  $3                  ; 0a4e c3
 
A0a4f:          LR  $3,A                ; 0a4f 53
 
                LISU 7                  ; 0a50 67
 
                LISL 6                  ; 0a51 6e
 
                LR  A,(IS)-            ; 0a52 4e
 
                CI  $06                ; 0a53 25 06
 
                BT  1,A0a73            ; 0a55 81 1d
 
                LIS  $1                  ; 0a57 71
 
                NS  (IS)                ; 0a58 fc
 
                BF  $4,A0a5d            ; 0a59 94 03
 
                LI  $ff                ; 0a5b 20 ff
 
A0a5d:          AS  $6                  ; 0a5d c6
 
                LR  $6,A                ; 0a5e 56
 
                BF  $0,A0a73            ; 0a5f 90 13
 
A0a61:          LISU 7                  ; 0a61 67
 
                LISL 6                  ; 0a62 6e
 
                LIS  $7                  ; 0a63 77
 
                XS  (IS)                ; 0a64 ec
 
                BF  $4,A0a73            ; 0a65 94 0d
 
                LIS  $3                  ; 0a67 73
 
                XS  $9                  ; 0a68 e9
 
                BF  $4,A0a73            ; 0a69 94 09
 
                LR  A,$0                ; 0a6b 40
 
                CI  $06                ; 0a6c 25 06
 
                BF  $1,A0a73            ; 0a6e 91 04
 
                LIS  $0                  ; 0a70 70
 
                LR  $3,A                ; 0a71 53
 
                LR  $6,A                ; 0a72 56
 
A0a73:          LIS  $2                  ; 0a73 72
 
                NS  $a                  ; 0a74 fa
 
                BF  $4,A0a9a            ; 0a75 94 24
 
                LR  A,$0                ; 0a77 40
 
                CI  $06                ; 0a78 25 06
 
                BT  1,A0a9a            ; 0a7a 81 1f
 
                CI  $0c                ; 0a7c 25 0c
 
                BF  $1,A0a9a            ; 0a7e 91 1b
 
                LIS  $3                  ; 0a80 73
 
                XS  $9                  ; 0a81 e9
 
                BF  $4,A0a89            ; 0a82 94 06
 
                LI  $20                ; 0a84 20 20
 
                NS  $a                  ; 0a86 fa
 
                BT  4,A0a9a            ; 0a87 84 12
 
A0a89:          LISL 4                  ; 0a89 6c
 
                LR  A,(IS)              ; 0a8a 4c
 
                SL  4                  ; 0a8b 15
 
                SL  1                  ; 0a8c 13
 
                AS  (IS)                ; 0a8d cc
 
                AI  $73                ; 0a8e 24 73
 
                LR  (IS),A              ; 0a90 5c
 
                LR  A,(IS)              ; 0a91 4c
 
                SR  4                  ; 0a92 14
 
                SR  1                  ; 0a93 12
 
                SR  1                  ; 0a94 12
 
                BF  $4,A0a9a            ; 0a95 94 04
 
                LR  A,$3                ; 0a97 43
 
                SL  1                  ; 0a98 13
 
                LR  $3,A                ; 0a99 53
 
A0a9a:          LIS  $0                  ; 0a9a 70
 
                LR  $b,A                ; 0a9b 5b
 
A0a9c:          PI  A0812              ; 0a9c 28 08 12
 
                LR  A,(IS)+            ; 0a9f 4d
 
                AS  $3                  ; 0aa0 c3
 
                LR  $1,A                ; 0aa1 51
 
                LR  A,(IS)              ; 0aa2 4c
 
                AS  $6                  ; 0aa3 c6
 
                LISU 5                  ; 0aa4 65
 
                LISL 3                  ; 0aa5 6b
 
                LR  $2,A                ; 0aa6 52
 
                LR  (IS)-,A            ; 0aa7 5e
 
                LR  A,$1                ; 0aa8 41
 
                LR  (IS)+,A            ; 0aa9 5d
 
                LR  A,(IS)-            ; 0aaa 4e
 
                CI  $0f                ; 0aab 25 0f
 
                BT  1,A0ab3            ; 0aad 81 05
 
                CI  $35                ; 0aaf 25 35
 
                BT  1,A0ad2            ; 0ab1 81 20
 
A0ab3:          LIS  $0                  ; 0ab3 70
 
                AS  $0                  ; 0ab4 c0
 
                BT  4,A0ace            ; 0ab5 84 18
 
                LISU 5                  ; 0ab7 65
 
                LISL 4                  ; 0ab8 6c
 
                CI  $05                ; 0ab9 25 05
 
                BF  $4,A0ac2            ; 0abb 94 06
 
                LIS  $c                  ; 0abd 7c
 
                XS  (IS)                ; 0abe ec
 
                LR  (IS),A              ; 0abf 5c
 
                BF  $0,A0aca            ; 0ac0 90 09
 
A0ac2:          CI  $06                ; 0ac2 25 06
 
                BF  $4,A0aca            ; 0ac4 94 05
 
                LI  $c0                ; 0ac6 20 c0
 
                XS  (IS)                ; 0ac8 ec
 
                LR  (IS),A              ; 0ac9 5c
 
A0aca:          LIS  $0                  ; 0aca 70
 
                LR  $6,A                ; 0acb 56
 
                BF  $0,A0a9c            ; 0acc 90 cf
 
A0ace:          LR  A,$b                ; 0ace 4b
 
                OI  $10                ; 0acf 22 10
 
                LR  $b,A                ; 0ad1 5b
 
A0ad2:          LR  A,$1                ; 0ad2 41
 
                CI  $0a                ; 0ad3 25 0a
 
                BT  1,A0adb            ; 0ad5 81 05
 
                CI  $5f                ; 0ad7 25 5f
 
                BT  1,A0af5            ; 0ad9 81 1b
 
A0adb:          LIS  $0                  ; 0adb 70
 
                AS  $0                  ; 0adc c0
 
                BF  $4,A0ae5            ; 0add 94 07
 
                LR  A,$b                ; 0adf 4b
 
                OI  $40                ; 0ae0 22 40
 
                LR  $b,A                ; 0ae2 5b
 
                BF  $0,A0af5            ; 0ae3 90 11
 
A0ae5:          LR  A,$0                ; 0ae5 40
 
                CI  $05                ; 0ae6 25 05
 
                LISU 5                  ; 0ae8 65
 
                LISL 4                  ; 0ae9 6c
 
                BF  $4,A0af1            ; 0aea 94 06
 
                LIS  $3                  ; 0aec 73
 
                XS  (IS)                ; 0aed ec
 
                LR  (IS),A              ; 0aee 5c
 
                BF  $0,A0af1            ; 0aef 90 01
 
A0af1:          LIS  $0                  ; 0af1 70
 
                LR  $3,A                ; 0af2 53
 
                BF  $0,A0a9c            ; 0af3 90 a8
 
A0af5:          LIS  $8                  ; 0af5 78
 
                NS  $a                  ; 0af6 fa
 
                LIS  $1                  ; 0af7 71
 
                BT  4,A0afb            ; 0af8 84 02
 
                LIS  $0                  ; 0afa 70
 
A0afb:          LR  $4,A                ; 0afb 54
 
A0afc:          LR  A,$4                ; 0afc 44
 
                XS  $0                  ; 0afd e0
 
                BT  4,A0b0b            ; 0afe 84 0c
 
                LI  $10                ; 0b00 20 10
 
                AS  $4                  ; 0b02 c4
 
                AS  $4                  ; 0b03 c4
 
                LR  IS,A                ; 0b04 0b
 
                LIS  $2                  ; 0b05 72
 
                AS  (IS)+              ; 0b06 cd
 
                COM                      ; 0b07 18
 
                AS  $1                  ; 0b08 c1
 
                BF  $1,A0b0e            ; 0b09 91 04
 
A0b0b:          JMP  A0bb1              ; 0b0b 29 0b b1
 
A0b0e:          AI  $05                ; 0b0e 24 05
 
                BF  $1,A0b0b            ; 0b10 91 fa
 
                LIS  $2                  ; 0b12 72
 
                AS  (IS)+              ; 0b13 cd
 
                COM                      ; 0b14 18
 
                AS  $2                  ; 0b15 c2
 
                BT  1,A0b0b            ; 0b16 81 f4
 
                AI  $05                ; 0b18 24 05
 
                BF  $1,A0b0b            ; 0b1a 91 f0
 
                LR  A,$0                ; 0b1c 40
 
                LR  $8,A                ; 0b1d 58
 
                LR  A,$9                ; 0b1e 49
 
                XS  $4                  ; 0b1f e4
 
                BT  4,A0b28            ; 0b20 84 07
 
                LR  A,$4                ; 0b22 44
 
                LR  $8,A                ; 0b23 58
 
                LR  A,$9                ; 0b24 49
 
                XS  $0                  ; 0b25 e0
 
                BF  $4,A0b8e            ; 0b26 94 67
 
A0b28:          LIS  $0                  ; 0b28 70
 
                AS  $9                  ; 0b29 c9
 
                BF  $4,A0b81            ; 0b2a 94 56
 
                LR  A,$b                ; 0b2c 4b
 
                NI  $fd                ; 0b2d 21 fd
 
                LR  $b,A                ; 0b2f 5b
 
                LISU 7                  ; 0b30 67
 
                LISL 6                  ; 0b31 6e
 
                LR  A,(IS)-            ; 0b32 4e
 
                CI  $06                ; 0b33 25 06
 
                BT  1,A0b55            ; 0b35 81 1f
 
                LR  A,(IS)              ; 0b37 4c
 
                COM                      ; 0b38 18
 
                INC                      ; 0b39 1f
 
                LISL 1                  ; 0b3a 69
 
                AS  (IS)                ; 0b3b cc
 
                BT  1,A0b0b            ; 0b3c 81 ce
 
                LR  A,$8                ; 0b3e 48
 
                CI  $06                ; 0b3f 25 06
 
                LR  A,$b                ; 0b41 4b
 
                BF  $1,A0b49            ; 0b42 91 06
 
                OI  $0e                ; 0b44 22 0e
 
                LR  $b,A                ; 0b46 5b
 
                BF  $0,A0b4e            ; 0b47 90 06
 
A0b49:          OI  $0a                ; 0b49 22 0a
 
                LR  $b,A                ; 0b4b 5b
 
                LR  A,$8                ; 0b4c 48
 
                LR  $9,A                ; 0b4d 59
 
A0b4e:          LR  A,$a                ; 0b4e 4a
 
                OI  $02                ; 0b4f 22 02
 
                LR  $a,A                ; 0b51 5a
 
                JMP  A0bbc              ; 0b52 29 0b bc
 
A0b55:          LR  A,$8                ; 0b55 48
 
                CI  $03                ; 0b56 25 03
 
                BT  1,A0b0b            ; 0b58 81 b2
 
                CI  $0a                ; 0b5a 25 0a
 
                BF  $1,A0b0b            ; 0b5c 91 ae
 
                LR  A,$b                ; 0b5e 4b
 
                OI  $02                ; 0b5f 22 02
 
                LR  $b,A                ; 0b61 5b
 
                LR  A,$8                ; 0b62 48
 
                CI  $06                ; 0b63 25 06
 
                BT  1,A0b6e            ; 0b65 81 08
 
                PI  A090d              ; 0b67 28 09 0d
 
                LIS  $2                  ; 0b6a 72
 
                NS  $b                  ; 0b6b fb
 
                BT  4,A0bb1            ; 0b6c 84 44
 
A0b6e:          LR  A,$8                ; 0b6e 48
 
                LR  $9,A                ; 0b6f 59
 
                LR  A,$b                ; 0b70 4b
 
                OI  $08                ; 0b71 22 08
 
                NI  $fe                ; 0b73 21 fe
 
                LR  $b,A                ; 0b75 5b
 
                LR  A,$8                ; 0b76 48
 
                CI  $06                ; 0b77 25 06
 
                BT  1,A0b7f            ; 0b79 81 05
 
                LR  A,$a                ; 0b7b 4a
 
                OI  $02                ; 0b7c 22 02
 
                LR  $a,A                ; 0b7e 5a
 
A0b7f:          BF  $0,A0bbc            ; 0b7f 90 3c
 
A0b81:          PI  A08fd              ; 0b81 28 08 fd
 
                BF  $4,A0b8e            ; 0b84 94 09
 
                LR  A,$b                ; 0b86 4b
 
                OI  $04                ; 0b87 22 04
 
                NI  $fe                ; 0b89 21 fe
 
                LR  $b,A                ; 0b8b 5b
 
                BF  $0,A0bbc            ; 0b8c 90 2f
 
A0b8e:          LR  A,$b                ; 0b8e 4b
 
                OI  $01                ; 0b8f 22 01
 
                LR  $b,A                ; 0b91 5b
 
                LR  A,$3                ; 0b92 43
 
                CI  $01                ; 0b93 25 01
 
                BT  1,A0b9a            ; 0b95 81 04
 
                LIS  $1                  ; 0b97 71
 
                BF  $0,A0ba0            ; 0b98 90 07
 
A0b9a:          CI  $fe                ; 0b9a 25 fe
 
                BF  $1,A0ba4            ; 0b9c 91 07
 
                LI  $ff                ; 0b9e 20 ff
 
A0ba0:          LR  $3,A                ; 0ba0 53
 
A0ba1:          JMP  A0a9a              ; 0ba1 29 0a 9a
 
A0ba4:          PI  A08fd              ; 0ba4 28 08 fd
 
                BT  4,A0bb1            ; 0ba7 84 09
 
                LIS  $0                  ; 0ba9 70
 
                AS  $6                  ; 0baa c6
 
                BT  4,A0bbc            ; 0bab 84 10
 
                LIS  $0                  ; 0bad 70
 
                LR  $6,A                ; 0bae 56
 
                BF  $0,A0ba1            ; 0baf 90 f1
 
A0bb1:          LR  A,$4                ; 0bb1 44
 
                INC                      ; 0bb2 1f
 
                LR  $4,A                ; 0bb3 54
 
                CI  $0c                ; 0bb4 25 0c
 
                BF  $1,A0bbc            ; 0bb6 91 05
 
                JMP  A0afc              ; 0bb8 29 0a fc
 
A0bbb:          LR  K,P                ; 0bbb 08
 
A0bbc:          LIS  $8                  ; 0bbc 78
 
                NS  $b                  ; 0bbd fb
 
                BT  4,A0bc9            ; 0bbe 84 0a
 
                LR  A,$a                ; 0bc0 4a
 
                NI  $f7                ; 0bc1 21 f7
 
                LR  $a,A                ; 0bc3 5a
 
                LISU 2                  ; 0bc4 62
 
                LISL 0                  ; 0bc5 68
 
                PI  A082c              ; 0bc6 28 08 2c
 
A0bc9:          PI  A0812              ; 0bc9 28 08 12
 
                PI  A082c              ; 0bcc 28 08 2c
 
                LI  $58                ; 0bcf 20 58
 
                LR  $3,A                ; 0bd1 53
 
                PI  A0812              ; 0bd2 28 08 12
 
                LR  A,(IS)+            ; 0bd5 4d
 
                CI  $53                ; 0bd6 25 53
 
                BF  $1,A0be1            ; 0bd8 91 08
 
                CI  $17                ; 0bda 25 17
 
                BF  $1,A0bec            ; 0bdc 91 0f
 
                LI  $12                ; 0bde 20 12
 
                LR  $3,A                ; 0be0 53
 
A0be1:          LR  A,(IS)              ; 0be1 4c
 
                LR  $4,A                ; 0be2 54
 
                DS  $4                  ; 0be3 34
 
                LIS  $1                  ; 0be4 71
 
                LR  $5,A                ; 0be5 55
 
                LI  $41                ; 0be6 20 41
 
                LR  $2,A                ; 0be8 52
 
                PI  A083c              ; 0be9 28 08 3c
 
A0bec:          LI  $80                ; 0bec 20 80
 
                LR  $2,A                ; 0bee 52
 
                DCI  $1331               ; 0bef 2a 13 31
 
                PI  A08ee              ; 0bf2 28 08 ee
 
                BT  4,A0bfc            ; 0bf5 84 06
 
                LIS  $0                  ; 0bf7 70
 
                LR  $2,A                ; 0bf8 52
 
                DCI  $132f              ; 0bf9 2a 13 2f
 
A0bfc:          LIS  $0                  ; 0bfc 70
 
                AS   $0                  ; 0bfd c0
 
                BF  $4,A0c0a            ; 0bfe 94 0b
 
                DCI  A132d              ; 0c00 2a 13 2d
 
                LIS  $8                  ; 0c03 78
 
                NS   $b                  ; 0c04 fb
 
                BT  4,A0c0a            ; 0c05 84 04
 
                JMP  A0c96              ; 0c07 29 0c 96
 
A0c0a:          LR  A,$9                ; 0c0a 49
 
                COM                      ; 0c0b 18
 
                INC                      ; 0c0c 1f
 
                AS   $0                  ; 0c0d c0
 
                BF  $4,A0c13            ; 0c0e 94 04
 
                LI   $40                ; 0c10 20 40
 
                LR  $2,A                ; 0c12 52
 
A0c13:          LISU 5                  ; 0c13 65
 
                LISL 2                  ; 0c14 6a
 
                LR  A,(IS)+            ; 0c15 4d
 
                LR   $3,A                ; 0c16 53
 
                LR  A,(IS)              ; 0c17 4c
 
                LR  $4,A                ; 0c18 54
 
                LIS  $1                  ; 0c19 71
 
                NS  $b                  ; 0c1a fb
 
                BF  $4,A0c24            ; 0c1b 94 08
 
                PI  A0812              ; 0c1d 28 08 12
 
                LR  A,$3                ; 0c20 43
 
                LR  (IS)+,A            ; 0c21 5d
 
                LR  A,$4                ; 0c22 44
 
                LR  (IS)-,A            ; 0c23 5e
 
A0c24:          PI  A0812              ; 0c24 28 08 12
 
                PI  A082f              ; 0c27 28 08 2f
 
                LI  $40                ; 0c2a 20 40
 
                NS  $b                  ; 0c2c fb
 
                BT  4,A0c5c            ; 0c2d 84 2e
 
                LISU 7                  ; 0c2f 67
 
                LISL 6                  ; 0c30 6e
 
                LR  A,(IS)              ; 0c31 4c
 
                CI  $06                ; 0c32 25 06
 
                BT  1,A0c68            ; 0c34 81 33
 
                CI  $07                ; 0c36 25 07
 
                BT  4,A0c44            ; 0c38 84 0b
 
A0c3a:          LR  A,$b                ; 0c3a 4b
 
                OI  $06                ; 0c3b 22 06
 
                LR  $b,A                ; 0c3d 5b
 
                BF  $0,A0c96            ; 0c3e 90 57
 
                LR  (IS),A              ; 0c40 5c
 
                JMP  A0e16              ; 0c41 29 0e 16
 
A0c44:          LISU 2                  ; 0c44 62
 
                LISL 1                  ; 0c45 69
 
                LR  A,(IS)              ; 0c46 4c
 
                CI  $26                ; 0c47 25 26
 
                BF  $1,A0c3a            ; 0c49 91 f0
 
                CI  $1a                ; 0c4b 25 1a
 
                BT  1,A0c3a            ; 0c4d 81 ec
 
                LISU 2                  ; 0c4f 62
 
                LISL 0                  ; 0c50 68
 
                LR  A,(IS)              ; 0c51 4c
 
                CI  $32                ; 0c52 25 32
 
                LIS  $b                  ; 0c54 7b
 
                BF  $1,A0c58            ; 0c55 91 02
 
                LIS  $3                  ; 0c57 73
 
A0c58:          LR  $9,A                ; 0c58 59
 
                JMP  A0d1c              ; 0c59 29 0d 1c
 
A0c5c:          LI  $10                ; 0c5c 20 10
 
                NS  $b                  ; 0c5e fb
 
                BT  4,A0c96            ; 0c5f 84 36
 
                LISU 7                  ; 0c61 67
 
                LISL 6                  ; 0c62 6e
 
                LR  A,(IS)              ; 0c63 4c
 
                CI  $06                ; 0c64 25 06
 
                BF  $1,A0c3a            ; 0c66 91 d3
 
A0c68:          LI  $10                ; 0c68 20 10
 
                NS  $a                  ; 0c6a fa
 
                BF  $4,A0c93            ; 0c6b 94 27
 
A0c6d:          DCI  $137a              ; 0c6d 2a 13 7a
 
                PI  A088e              ; 0c70 28 08 8e
 
                LIS  $1                  ; 0c73 71
 
                NS  $a                  ; 0c74 fa
 
                LISU 6                  ; 0c75 66
 
                LISL 1                  ; 0c76 69
 
                LR  A,(IS)              ; 0c77 4c
 
                BT  4,A0c87            ; 0c78 84 0e
 
                CI  $26                ; 0c7a 25 26
 
                BT  1,A0c82            ; 0c7c 81 05
 
                AI  $f6                ; 0c7e 24 f6
 
                BF  $0,A0c92            ; 0c80 90 11
 
A0c82:          AI  $12                ; 0c82 24 12
 
                SR  1                  ; 0c84 12
 
                BF  $0,A0c92            ; 0c85 90 0c
 
A0c87:          CI  $44                ; 0c87 25 44
 
                BF  $1,A0c8f            ; 0c89 91 05
 
                AI  $0a                ; 0c8b 24 0a
 
                BF  $0,A0c92            ; 0c8d 90 04
 
A0c8f:          AI  $58                ; 0c8f 24 58
 
                SR  1                  ; 0c91 12
 
A0c92:          LR  (IS),A              ; 0c92 5c
 
A0c93:          JMP  A0e68              ; 0c93 29 0e 68
 
A0c96:          NOP                      ; 0c96 2b
 
                DCI  A1251              ; 0c97 2a 12 51
 
                LISU 7                  ; 0c9a 67
 
                LISL 2                  ; 0c9b 6a
 
                LR  A,(IS)              ; 0c9c 4c
 
                ADC                      ; 0c9d 8e
 
                ADC                      ; 0c9e 8e
 
                LM                      ; 0c9f 16
 
                LR  $5,A                ; 0ca0 55
 
                LM                      ; 0ca1 16
 
A0ca2:          INC                      ; 0ca2 1f
 
                BF  $4,A0ca2            ; 0ca3 94 fe
 
                DS  $5                  ; 0ca5 35
 
                BF  $4,A0ca2            ; 0ca6 94 fb
 
                LI  $40                ; 0ca8 20 40
 
                OUTS 5                  ; 0caa b5
 
                LIS  $0                  ; 0cab 70
 
                OUTS 5                  ; 0cac b5
 
                LIS  $4                  ; 0cad 74
 
                NS  $b                  ; 0cae fb
 
                BF  $4,A0cb2            ; 0caf 94 02
 
                PK                      ; 0cb1 0c
 
A0cb2:          DCI  A1381              ; 0cb2 2a 13 81
 
                PI  A088e              ; 0cb5 28 08 8e
 
                LI  $10                ; 0cb8 20 10
 
                AS  $9                  ; 0cba c9
 
                AS  $9                  ; 0cbb c9
 
                LR  IS,A                ; 0cbc 0b
 
                LR  A,(IS)              ; 0cbd 4c
 
                LISU 6                  ; 0cbe 66
 
                LISL 1                  ; 0cbf 69
 
                INC                      ; 0cc0 1f
 
                LR  (IS),A              ; 0cc1 5c
 
                LR  A,$b                ; 0cc2 4b
 
                NI  $fb                ; 0cc3 21 fb
 
                LR  $b,A                ; 0cc5 5b
 
                LIS  $1                  ; 0cc6 71
 
                NS  $a                  ; 0cc7 fa
 
                BT  4,A0ccd            ; 0cc8 84 04
 
                LIS  $4                  ; 0cca 74
 
                AS  $b                  ; 0ccb cb
 
                LR  $b,A                ; 0ccc 5b
 
A0ccd:          LIS  $2                  ; 0ccd 72
 
                NS  $a                  ; 0cce fa
 
                BT  4,A0cd4            ; 0ccf 84 04
 
                LIS  $4                  ; 0cd1 74
 
                XS  $b                  ; 0cd2 eb
 
                LR  $b,A                ; 0cd3 5b
 
A0cd4:          LIS  $4                  ; 0cd4 74
 
                NS  $b                  ; 0cd5 fb
 
                BT  4,A0cf9            ; 0cd6 84 22
 
                LR  A,(IS)              ; 0cd8 4c
 
                CI  $58                ; 0cd9 25 58
 
                BF  $1,A0d13            ; 0cdb 91 37
 
                CI  $11                ; 0cdd 25 11
 
                BF  $1,A0ce8            ; 0cdf 91 08
 
                LIS  $2                  ; 0ce1 72
 
                NS  $a                  ; 0ce2 fa
 
                BT  4,A0cf2            ; 0ce3 84 0e
 
                LI  $21                ; 0ce5 20 21
 
A0ce7:          LR  (IS),A              ; 0ce7 5c
 
A0ce8:          LIS  $2                  ; 0ce8 72
 
                NS  $a                  ; 0ce9 fa
 
                BF  $4,A0cef            ; 0cea 94 04
 
                JMP  A0e68              ; 0cec 29 0e 68
 
A0cef:          JMP  A0e16              ; 0cef 29 0e 16
 
A0cf2:          LI  $49                ; 0cf2 20 49
 
                LR  (IS),A              ; 0cf4 5c
 
                LIS  $2                  ; 0cf5 72
 
A0cf6:          LR  $9,A                ; 0cf6 59
 
                BF  $0,A0d27            ; 0cf7 90 2f
 
A0cf9:          DS  (IS)                ; 0cf9 3c
 
                DS  (IS)                ; 0cfa 3c
 
                LR  A,(IS)              ; 0cfb 4c
 
                CI  $11                ; 0cfc 25 11
 
                BT  1,A0d10            ; 0cfe 81 11
 
                CI  $58                ; 0d00 25 58
 
                BT  1,A0ce7            ; 0d02 81 e4
 
                LIS  $2                  ; 0d04 72
 
                NS  $a                  ; 0d05 fa
 
                LI  $49                ; 0d06 20 49
 
                BF  $4,A0ce7            ; 0d08 94 de
 
                LI  $21                ; 0d0a 20 21
 
                LR  (IS),A              ; 0d0c 5c
 
                LIS  $a                  ; 0d0d 7a
 
                BF  $0,A0cf6            ; 0d0e 90 e7
 
A0d10:          LIS  $7                  ; 0d10 77
 
                BF  $0,A0d14            ; 0d11 90 02
 
A0d13:          LIS  $f                  ; 0d13 7f
 
A0d14:          LR  $9,A                ; 0d14 59
 
                LIS  $2                  ; 0d15 72
 
                NS  $a                  ; 0d16 fa
 
                BT  4,A0d1c            ; 0d17 84 04
 
                LIS  $1                  ; 0d19 71
 
                XS  $a                  ; 0d1a ea
 
                LR  $a,A                ; 0d1b 5a
 
A0d1c:          LIS  $8                  ; 0d1c 78
 
                NS  $9                  ; 0d1d f9
 
                LISU 6                  ; 0d1e 66
 
                LISL 1                  ; 0d1f 69
 
                LI  $49                ; 0d20 20 49
 
                BF  $4,A0d26            ; 0d22 94 03
 
                LI  $21                ; 0d24 20 21
 
A0d26:          LR  (IS),A              ; 0d26 5c
 
A0d27:          DCI  A13cf              ; 0d27 2a 13 cf
 
                PI  A088e              ; 0d2a 28 08 8e
 
                JMP  A0e18              ; 0d2d 29 0e 18
 
A0d30:          LI  $10                ; 0d30 20 10
 
                AS  $9                  ; 0d32 c9
 
                AS  $9                  ; 0d33 c9
 
                LR  IS,A                ; 0d34 0b
 
                LR  A,(IS)+            ; 0d35 4d
 
                LR  $5,A                ; 0d36 55
 
                LR  A,(IS)              ; 0d37 4c
 
                LR  $6,A                ; 0d38 56
 
                LI  $10                ; 0d39 20 10
 
                AS  $0                  ; 0d3b c0
 
                AS  $0                  ; 0d3c c0
 
                LR  IS,A                ; 0d3d 0b
 
                LR  A,(IS)+            ; 0d3e 4d
 
                COM                      ; 0d3f 18
 
                INC                      ; 0d40 1f
 
                AS  $5                  ; 0d41 c5
 
                LR  $5,A                ; 0d42 55
 
                BT  1,A0d47            ; 0d43 81 03
 
                COM                      ; 0d45 18
 
                INC                      ; 0d46 1f
 
A0d47:          LR  $4,A                ; 0d47 54
 
                LR  A,(IS)              ; 0d48 4c
 
                COM                      ; 0d49 18
 
                INC                      ; 0d4a 1f
 
                AS  $6                  ; 0d4b c6
 
                LR  $6,A                ; 0d4c 56
 
                BT  1,A0d51            ; 0d4d 81 03
 
                COM                      ; 0d4f 18
 
                INC                      ; 0d50 1f
 
A0d51:          LR  $3,A                ; 0d51 53
 
                COM                      ; 0d52 18
 
                INC                      ; 0d53 1f
 
                AS  $4                  ; 0d54 c4
 
                LIS  $0                  ; 0d55 70
 
                BF  $1,A0d5f            ; 0d56 91 08
 
                AS  $5                  ; 0d58 c5
 
                LIS  $1                  ; 0d59 71
 
                BT  1,A0d5d            ; 0d5a 81 02
 
                LIS  $2                  ; 0d5c 72
 
A0d5d:          BF  $0,A0d64            ; 0d5d 90 06
 
A0d5f:          AS  $6                  ; 0d5f c6
 
                LIS  $4                  ; 0d60 74
 
                BT  1,A0d64            ; 0d61 81 02
 
                LIS  $8                  ; 0d63 78
 
A0d64:          LR  $4,A                ; 0d64 54
 
                BF  $0,A0d83            ; 0d65 90 1d
 
A0d67:          LI  $10                ; 0d67 20 10
 
                AS  $0                  ; 0d69 c0
 
                AS  $0                  ; 0d6a c0
 
                LR  IS,A                ; 0d6b 0b
 
                LR  A,(IS)+            ; 0d6c 4d
 
                COM                      ; 0d6d 18
 
                INC                      ; 0d6e 1f
 
                AS  $5                  ; 0d6f c5
 
                BT  4,A0d76            ; 0d70 84 05
 
                LIS  $2                  ; 0d72 72
 
                BF  $1,A0d76            ; 0d73 91 02
 
                LIS  $1                  ; 0d75 71
 
A0d76:          LR  $4,A                ; 0d76 54
 
                LR  A,(IS)              ; 0d77 4c
 
                COM                      ; 0d78 18
 
                INC                      ; 0d79 1f
 
                AS  $6                  ; 0d7a c6
 
                BT  4,A0d81            ; 0d7b 84 05
 
                LIS  $8                  ; 0d7d 78
 
                BF  $1,A0d81            ; 0d7e 91 02
 
                LIS  $4                  ; 0d80 74
 
A0d81:          AS  $4                  ; 0d81 c4
 
                LR  $4,A                ; 0d82 54
 
A0d83:          JMP  A0a24              ; 0d83 29 0a 24
 
A0d86:          LIS  $0                  ; 0d86 70
 
                LR  $5,A                ; 0d87 55
 
                LR  $6,A                ; 0d88 56
 
                AS  $2                  ; 0d89 c2
 
                CI  $00                ; 0d8a 25 00
 
                BF  $4,A0d98            ; 0d8c 94 0b
 
                LIS  $1                  ; 0d8e 71
 
                NS  $a                  ; 0d8f fa
 
                LIS  $4                  ; 0d90 74
 
                BF  $4,A0d95            ; 0d91 94 03
 
                LI  $fc                ; 0d93 20 fc
 
A0d95:          LR  $5,A                ; 0d95 55
 
                BF  $0,A0da6            ; 0d96 90 0f
 
A0d98:          LI  $11                ; 0d98 20 11
 
                AS  $7                  ; 0d9a c7
 
                AS  $7                  ; 0d9b c7
 
                LR  IS,A                ; 0d9c 0b
 
                LR  A,(IS)              ; 0d9d 4c
 
                CI  $23                ; 0d9e 25 23
 
                LI  $fc                ; 0da0 20 fc
 
                BF  $1,A0da5            ; 0da2 91 02
 
                LIS  $4                  ; 0da4 74
 
A0da5:          LR  $6,A                ; 0da5 56
 
A0da6:          LI  $10                ; 0da6 20 10
 
                AS  $7                  ; 0da8 c7
 
                AS  $7                  ; 0da9 c7
 
                LR  IS,A                ; 0daa 0b
 
                LR  A,(IS)+            ; 0dab 4d
 
                AS  $5                  ; 0dac c5
 
                LR  $5,A                ; 0dad 55
 
                LR  A,(IS)              ; 0dae 4c
 
                AS  $6                  ; 0daf c6
 
                LR  $6,A                ; 0db0 56
 
                BF  $0,A0d67            ; 0db1 90 b5
 
A0db3:          DCI  A125d              ; 0db3 2a 12 5d
 
                LR  A,(IS)              ; 0db6 4c
 
                ADC                      ; 0db7 8e
 
                LM                      ; 0db8 16
 
                LR  (IS),A              ; 0db9 5c
 
                LR  A,IS                ; 0dba 0a
 
                NI  $01                ; 0dbb 21 01
 
                LIS  $c                  ; 0dbd 7c
 
                BF  $4,A0dc1            ; 0dbe 94 02
 
                LIS  $6                  ; 0dc0 76
 
A0dc1:          LR  $0,A                ; 0dc1 50
 
                LISU 6                  ; 0dc2 66
 
                LISL 7                  ; 0dc3 6f
 
                LIS  $0                  ; 0dc4 70
 
                LR  (IS),A              ; 0dc5 5c
 
A0dc6:          LR  K,P                ; 0dc6 08
 
                LR  A,KU                ; 0dc7 00
 
                LR  QU,A                ; 0dc8 06
 
                LR  A,KL                ; 0dc9 01
 
                LR  QL,A                ; 0dca 07
 
A0dcb:          DCI  A1313              ; 0dcb 2a 13 13
 
                LISU 6                  ; 0dce 66
 
                LISL 1                  ; 0dcf 69
 
                LR  A,(IS)              ; 0dd0 4c
 
                LR  $6,A                ; 0dd1 56
 
                LISU 6                  ; 0dd2 66
 
                LISL 7                  ; 0dd3 6f
 
                LIS  $4                  ; 0dd4 74
 
                NS  (IS)                ; 0dd5 fc
 
                BT  4,A0deb            ; 0dd6 84 14
 
                DCI  A12fb              ; 0dd8 2a 12 fb
 
                LR  A,$0                ; 0ddb 40
 
                CI  $06                ; 0ddc 25 06
 
                BF  $1,A0deb            ; 0dde 91 0c
 
                LIS  $c                  ; 0de0 7c
 
                ADC                      ; 0de1 8e
 
                LIS  $1                  ; 0de2 71
 
                NS  $a                  ; 0de3 fa
 
                LI  $f6                ; 0de4 20 f6
 
                BF  $4,A0de9            ; 0de6 94 02
 
                LIS  $a                  ; 0de8 7a
 
A0de9:          AS  $6                  ; 0de9 c6
 
                LR  $6,A                ; 0dea 56
 
A0deb:          LISU 5                  ; 0deb 65
 
                LISL 3                  ; 0dec 6b
 
                LR  A,$0                ; 0ded 40
 
                ADC                      ; 0dee 8e
 
                ADC                      ; 0def 8e
 
                LM                      ; 0df0 16
 
                LR  (IS)-,A            ; 0df1 5e
 
                PI  A08ee              ; 0df2 28 08 ee
 
                LM                      ; 0df5 16
 
                BT  4,A0dfa            ; 0df6 84 03
 
                COM                      ; 0df8 18
 
                INC                      ; 0df9 1f
 
A0dfa:          AS  $6                  ; 0dfa c6
 
A0dfb:          LR  (IS),A              ; 0dfb 5c
 
                CI  $0c                ; 0dfc 25 0c
 
                BT  1,A0e06            ; 0dfe 81 07
 
                CI  $5e                ; 0e00 25 5e
 
                BT  1,A0e09            ; 0e02 81 06
 
                AI  $fe                ; 0e04 24 fe
 
A0e06:          INC                      ; 0e06 1f
 
                BF  $0,A0dfb            ; 0e07 90 f3
 
A0e09:          LIS  $0                  ; 0e09 70
 
                LR  $b,A                ; 0e0a 5b
 
                PI  A0bbb              ; 0e0b 28 0b bb
 
                DS  $0                  ; 0e0e 30
 
                BT  4,A0e15            ; 0e0f 84 05
 
                LIS  $6                  ; 0e11 76
 
                XS  $0                  ; 0e12 e0
 
                BF  $4,A0dcb            ; 0e13 94 b7
 
A0e15:          LR  P0,Q                ; 0e15 0d
 
A0e16:          LIS  $0                  ; 0e16 70
 
                LR  $9,A                ; 0e17 59
 
A0e18:          LIS  $1                  ; 0e18 71
 
                XS  $a                  ; 0e19 ea
 
                LR  $a,A                ; 0e1a 5a
 
                LISU 6                  ; 0e1b 66
 
                LISL 0                  ; 0e1c 68
 
                LIS  $0                  ; 0e1d 70
 
                LR  (IS),A              ; 0e1e 5c
 
A0e1f:          DCI  A135f              ; 0e1f 2a 13 5f
 
                PI  A0820              ; 0e22 28 08 20
 
A0e25:          LISU 5                  ; 0e25 65
 
                LISL 6                  ; 0e26 6e
 
                LI  $12                ; 0e27 20 12
 
                LR  $4,A                ; 0e29 54
 
                LI  $1b                ; 0e2a 20 1b
 
                LR  $3,A                ; 0e2c 53
 
                LIS  $0                  ; 0e2d 70
 
                LR  $2,A                ; 0e2e 52
 
A0e2f:          LR  A,(IS)              ; 0e2f 4c
 
                SR  4                  ; 0e30 14
 
                LR  $1,A                ; 0e31 51
 
                PI  A0840              ; 0e32 28 08 40
 
                LR  A,(IS)+            ; 0e35 4d
 
                SL  4                  ; 0e36 15
 
                SR  4                  ; 0e37 14
 
                LR  $1,A                ; 0e38 51
 
                LIS  $5                  ; 0e39 75
 
                AS  $3                  ; 0e3a c3
 
                LR  $3,A                ; 0e3b 53
 
                PI  A0840              ; 0e3c 28 08 40
 
                LI  $43                ; 0e3f 20 43
 
                LR  $3,A                ; 0e41 53
 
                LI  $80                ; 0e42 20 80
 
                LR  $2,A                ; 0e44 52
 
                LR  A,IS                ; 0e45 0a
 
                CI  $2f                ; 0e46 25 2f
 
                BT  4,A0e2f            ; 0e48 84 e6
 
                LIS  $7                  ; 0e4a 77
 
                NS  $9                  ; 0e4b f9
 
                BT  4,A0e60            ; 0e4c 84 13
 
                DS  $9                  ; 0e4e 39
 
                LIS  $8                  ; 0e4f 78
 
                NS  $9                  ; 0e50 f9
 
                LISL 6                  ; 0e51 6e
 
                BF  $4,A0e55            ; 0e52 94 02
 
                LR  A,(IS)+            ; 0e54 4d
 
A0e55:          LI  $67                ; 0e55 20 67
 
                OUTS 5                  ; 0e57 b5
 
                LR  $5,A                ; 0e58 55
 
                ASD  (IS)                ; 0e59 dc
 
                LR  (IS),A              ; 0e5a 5c
 
                PI  A0818              ; 0e5b 28 08 18
 
                BF  $0,A0e25            ; 0e5e 90 c6
 
A0e60:          LIS  $2                  ; 0e60 72
 
                LR  $4,A                ; 0e61 54
 
A0e62:          PI  A0818              ; 0e62 28 08 18
 
                DS  $4                  ; 0e65 34
 
                BF  $4,A0e62            ; 0e66 94 fb
 
A0e68:          LISU 6                  ; 0e68 66
 
                LISL 0                  ; 0e69 68
 
                LR  A,(IS)              ; 0e6a 4c
 
                INC                      ; 0e6b 1f
 
                LR  (IS),A              ; 0e6c 5c
 
                CI  $04                ; 0e6d 25 04
 
                BF  $1,A0e16            ; 0e6f 91 a6
 
                LIS  $2                  ; 0e71 72
 
                LR  $4,A                ; 0e72 54
 
A0e73:          PI  A0818              ; 0e73 28 08 18
 
                DS  $4                  ; 0e76 34
 
                BF  $4,A0e73            ; 0e77 94 fb
 
                LISU 2                  ; 0e79 62
 
                LISL 0                  ; 0e7a 68
 
                PI  A082c              ; 0e7b 28 08 2c
 
                DCI  $1333              ; 0e7e 2a 13 33
 
                LIS  $8                  ; 0e81 78
 
                LR  $8,A                ; 0e82 58
 
A0e83:          PI  A0820              ; 0e83 28 08 20
 
                DS  $8                  ; 0e86 38
 
                BF  $4,A0e83            ; 0e87 94 fb
 
A0e89:          LIS  $d                  ; 0e89 7d
 
                LR  $4,A                ; 0e8a 54
 
                LIS  $2                  ; 0e8b 72
 
                LR  $6,A                ; 0e8c 56
 
                PI  A084a              ; 0e8d 28 08 4a
 
                LI  $37                ; 0e90 20 37
 
                LR  $4,A                ; 0e92 54
 
                LIS  $2                  ; 0e93 72
 
                LR  $6,A                ; 0e94 56
 
                PI  A084a              ; 0e95 28 08 4a
 
                LIS  $7                  ; 0e98 77
 
                AS  $3                  ; 0e99 c3
 
                LR  $3,A                ; 0e9a 53
 
                CI  $55                ; 0e9b 25 55
 
                BT  1,A0e89            ; 0e9d 81 eb
 
                LIS  $2                  ; 0e9f 72
 
                LR  $9,A                ; 0ea0 59
 
                LR  A,$a                ; 0ea1 4a
 
                NI  $c5                ; 0ea2 21 c5
 
                LR  $a,A                ; 0ea4 5a
 
                LISU 6                  ; 0ea5 66
 
                LISL 1                  ; 0ea6 69
 
                LR  A,(IS)-            ; 0ea7 4e
 
                LR  $3,A                ; 0ea8 53
 
                DS  $3                  ; 0ea9 33
 
                LIS  $7                  ; 0eaa 77
 
                LR  $4,A                ; 0eab 54
 
                LIS  $1                  ; 0eac 71
 
                NS  $a                  ; 0ead fa
 
                LR  $a,A                ; 0eae 5a
 
                LIS  $0                  ; 0eaf 70
 
                BF  $4,A0eb4            ; 0eb0 94 03
 
                LI  $80                ; 0eb2 20 80
 
A0eb4:          LR  $2,A                ; 0eb4 52
 
                LR  A,(IS)              ; 0eb5 4c
 
                LR  $1,A                ; 0eb6 51
 
                PI  A0840              ; 0eb7 28 08 40
 
                PI  A09c4              ; 0eba 28 09 c4
 
                LIS  $0                  ; 0ebd 70
 
                AS  (IS)                ; 0ebe cc
 
                BF  $4,A0ed1            ; 0ebf 94 11
 
                LI  $f0                ; 0ec1 20 f0
 
                LR  (IS),A              ; 0ec3 5c
 
                DCI  A1392              ; 0ec4 2a 13 92
 
                PI  A088e              ; 0ec7 28 08 8e
 
                LISL 0                  ; 0eca 68
 
                DS  (IS)                ; 0ecb 3c
 
                LIS  $0                  ; 0ecc 70
 
                LR  $9,A                ; 0ecd 59
 
                JMP  A0e1f              ; 0ece 29 0e 1f
 
A0ed1:          LISU 2                  ; 0ed1 62
 
                LISL 0                  ; 0ed2 68
 
A0ed3:          LIS  $4                  ; 0ed3 74
 
                LR  (IS),A              ; 0ed4 5c
 
                LR  A,IS                ; 0ed5 0a
 
                INC                      ; 0ed6 1f
 
                LR  IS,A                ; 0ed7 0b
 
                CI  $2a                ; 0ed8 25 2a
 
                BF  $4,A0ed3            ; 0eda 94 f8
 
                LIS  $c                  ; 0edc 7c
 
                LR  $0,A                ; 0edd 50
 
                LISU 6                  ; 0ede 66
 
                LISL 7                  ; 0edf 6f
 
                LIS  $4                  ; 0ee0 74
 
                LR  (IS),A              ; 0ee1 5c
 
                PI  A0dc6              ; 0ee2 28 0d c6
 
                PI  A0dc6              ; 0ee5 28 0d c6
 
                LISU 7                  ; 0ee8 67
 
                LISL 6                  ; 0ee9 6e
 
                LI  $c0                ; 0eea 20 c0
 
                LR  (IS)+,A            ; 0eec 5d
 
                LR  (IS)-,A            ; 0eed 5e
 
                LISU 2                  ; 0eee 62
 
                LISL 0                  ; 0eef 68
 
                LI  $60                ; 0ef0 20 60
 
                LR  (IS),A              ; 0ef2 5c
 
A0ef3:          LISU 7                  ; 0ef3 67
 
                LISL 6                  ; 0ef4 6e
 
A0ef5:          LI  $b0                ; 0ef5 20 b0
 
A0ef7:          INC                      ; 0ef7 1f
 
                BF  $4,A0ef7            ; 0ef8 94 fe
 
                LIS  $1                  ; 0efa 71
 
                LR  $4,A                ; 0efb 54
 
A0efc:          LR  A,IS                ; 0efc 0a
 
                XI  $01                ; 0efd 23 01
 
                LR  IS,A                ; 0eff 0b
 
                LR  A,IS                ; 0f00 0a
 
                LR  $7,A                ; 0f01 57
 
                NI  $01                ; 0f02 21 01
 
                BF  $4,A0f0b            ; 0f04 94 06
 
                PI  A08b0              ; 0f06 28 08 b0
 
                BF  $0,A0f0e            ; 0f09 90 04
 
A0f0b:          PI  A08c1              ; 0f0b 28 08 c1
 
A0f0e:          LR  A,(IS)-            ; 0f0e 4e
 
                LR  $6,A                ; 0f0f 56
 
                LIS  $0                  ; 0f10 70
 
                AS  (IS)                ; 0f11 cc
 
                BF  $4,A0f22            ; 0f12 94 0f
 
                LIS  $5                  ; 0f14 75
 
                LR  $5,A                ; 0f15 55
 
                INS  0                  ; 0f16 a0
 
                COM                      ; 0f17 18
 
                NI  $0f                ; 0f18 21 0f
 
                BT  4,A0f22            ; 0f1a 84 07
 
A0f1c:          DS  $5                  ; 0f1c 35
 
                SR  1                  ; 0f1d 12
 
                BF  $4,A0f1c            ; 0f1e 94 fd
 
                LR  A,$5                ; 0f20 45
 
                LR  (IS),A              ; 0f21 5c
 
A0f22:          LR  A,$7                ; 0f22 47
 
                LR  IS,A                ; 0f23 0b
 
                LR  A,(IS)              ; 0f24 4c
 
                NI  $c0                ; 0f25 21 c0
 
                BF  $4,A0f33            ; 0f27 94 0b
 
                DS  $4                  ; 0f29 34
 
                BF  $4,A0f8e            ; 0f2a 94 63
 
                LI  $ce                ; 0f2c 20 ce
 
A0f2e:          INC                      ; 0f2e 1f
 
                BF  $4,A0f2e            ; 0f2f 94 fe
 
                BF  $0,A0efc            ; 0f31 90 ca
 
A0f33:          LISU 7                  ; 0f33 67
 
                LISL 4                  ; 0f34 6c
 
                DS  (IS)                ; 0f35 3c
 
                LIS  $0                  ; 0f36 70
 
                LISU 2                  ; 0f37 62
 
                LISL 0                  ; 0f38 68
 
                AS  (IS)                ; 0f39 cc
 
                BF  $4,A0f52            ; 0f3a 94 17
 
                LR  A,$7                ; 0f3c 47
 
                LR  IS,A                ; 0f3d 0b
 
                NI  $01                ; 0f3e 21 01
 
                BT  4,A0f49            ; 0f40 84 08
 
                LR  A,(IS)-            ; 0f42 4e
 
                LI  $c0                ; 0f43 20 c0
 
                NS  (IS)                ; 0f45 fc
 
                LR  A,(IS)+            ; 0f46 4d
 
                BF  $4,A0ef5            ; 0f47 94 ad
 
A0f49:          LR  A,(IS)              ; 0f49 4c
 
                NI  $c0                ; 0f4a 21 c0
 
                BT  4,A0ef5            ; 0f4c 84 a8
 
                LIS  $0                  ; 0f4e 70
 
                LR  (IS),A              ; 0f4f 5c
 
                BF  $0,A0f82            ; 0f50 90 31
 
A0f52:          LISU 2                  ; 0f52 62
 
                LISL 1                  ; 0f53 69
 
                DS  (IS)-              ; 0f54 3e
 
                BF  $4,A0f58            ; 0f55 94 02
 
                DS  (IS)-              ; 0f57 3e
 
A0f58:          LR  A,$7                ; 0f58 47
 
                LR  IS,A                ; 0f59 0b
 
                LR  A,$6                ; 0f5a 46
 
                NI  $30                ; 0f5b 21 30
 
                BF  $4,A0f64            ; 0f5d 94 06
 
A0f5f:          LIS  $f                  ; 0f5f 7f
 
                NS  $6                  ; 0f60 f6
 
                AI  $c0                ; 0f61 24 c0
 
                LR  (IS),A              ; 0f63 5c
 
A0f64:          LR  A,$6                ; 0f64 46
 
                COM                      ; 0f65 18
 
                INC                      ; 0f66 1f
 
                AS  (IS)                ; 0f67 cc
 
                NI  $0f                ; 0f68 21 0f
 
                BF  $4,A0f5f            ; 0f6a 94 f4
 
                LR  A,(IS)              ; 0f6c 4c
 
                AI  $c0                ; 0f6d 24 c0
 
                LR  (IS),A              ; 0f6f 5c
 
                NI  $c0                ; 0f70 21 c0
 
                BT  4,A0f77            ; 0f72 84 04
 
                JMP  A0ef5              ; 0f74 29 0e f5
 
A0f77:          LR  A,IS                ; 0f77 0a
 
                CI  $3e                ; 0f78 25 3e
 
                BF  $4,A0f82            ; 0f7a 94 07
 
                LISU 2                  ; 0f7c 62
 
                LISL 0                  ; 0f7d 68
 
                LIS  $3                  ; 0f7e 73
 
                LR  (IS),A              ; 0f7f 5c
 
                LR  A,$7                ; 0f80 47
 
                LR  IS,A                ; 0f81 0b
 
A0f82:          PI  A0db3              ; 0f82 28 0d b3
 
                LIS  $6                  ; 0f85 76
 
                AS  $0                  ; 0f86 c0
 
                LR  $0,A                ; 0f87 50
 
                PI  A0dc6              ; 0f88 28 0d c6
 
                JMP  A0ef3              ; 0f8b 29 0e f3
 
A0f8e:          LIS  $0                  ; 0f8e 70
 
                LR  $5,A                ; 0f8f 55
 
                LISU 7                  ; 0f90 67
 
                LISL 2                  ; 0f91 6a
 
                AS  (IS)                ; 0f92 cc
 
                BF  $4,A0f97            ; 0f93 94 03
 
                LIS  $5                  ; 0f95 75
 
                LR  (IS),A              ; 0f96 5c
 
A0f97:          LISU 2                  ; 0f97 62
 
                LISL 0                  ; 0f98 68
 
                LI  $b0                ; 0f99 20 b0
 
                LR  (IS),A              ; 0f9b 5c
 
                PI  A0818              ; 0f9c 28 08 18
 
A0f9f:          LISU 2                  ; 0f9f 62
 
                LISL 1                  ; 0fa0 69
 
                DS  (IS)-              ; 0fa1 3e
 
                BF  $4,A0fad            ; 0fa2 94 0a
 
                DS  (IS)                ; 0fa4 3c
 
                BF  $4,A0fad            ; 0fa5 94 07
 
                LISU 6                  ; 0fa7 66
 
                LISL 0                  ; 0fa8 68
 
                DS  (IS)                ; 0fa9 3c
 
                JMP  A0c6d              ; 0faa 29 0c 6d
 
A0fad:          PI  A08b0              ; 0fad 28 08 b0
 
                BT  4,A0f9f            ; 0fb0 84 ee
 
                LISL 5                  ; 0fb2 6d
 
                LIS  $2                  ; 0fb3 72
 
                LR  (IS),A              ; 0fb4 5c
 
                LISU 7                  ; 0fb5 67
 
                LISL 7                  ; 0fb6 6f
 
                LIS  $0                  ; 0fb7 70
 
                AS  (IS)                ; 0fb8 cc
 
                BF  $4,A0fbf            ; 0fb9 94 05
 
                LR  A,$a                ; 0fbb 4a
 
                OI  $40                ; 0fbc 22 40
 
                LR  $a,A                ; 0fbe 5a
 
A0fbf:          LIS  $3                  ; 0fbf 73
 
                LR  $9,A                ; 0fc0 59
 
                LISU 5                  ; 0fc1 65
 
                LISL 4                  ; 0fc2 6c
 
                LI  $11                ; 0fc3 20 11
 
                LR  (IS)+,A            ; 0fc5 5d
 
                LIS  $0                  ; 0fc6 70
 
                LR  (IS),A              ; 0fc7 5c
 
                LISU 7                  ; 0fc8 67
 
                LISL 1                  ; 0fc9 69
 
                LI  $77                ; 0fca 20 77
 
                LR  (IS),A              ; 0fcc 5c
 
A0fcd:          LI  $fd                ; 0fcd 20 fd
 
                LR  $6,A                ; 0fcf 56
 
                LIS  $2                  ; 0fd0 72
 
                LR  $5,A                ; 0fd1 55
 
                LISU 6                  ; 0fd2 66
 
                LISL 1                  ; 0fd3 69
 
                LR  A,(IS)              ; 0fd4 4c
 
                COM                      ; 0fd5 18
 
                INC                      ; 0fd6 1f
 
                LISU 2                  ; 0fd7 62
 
                LISL 6                  ; 0fd8 6e
 
                AS  (IS)                ; 0fd9 cc
 
                BT  4,A0fe9            ; 0fda 84 0e
 
                BT  1,A0fdf            ; 0fdc 81 02
 
                DS  $5                  ; 0fde 35
 
A0fdf:          LIS  $1                  ; 0fdf 71
 
                NS  $a                  ; 0fe0 fa
 
                BT  4,A0fe6            ; 0fe1 84 04
 
                DS  $5                  ; 0fe3 35
 
                LIS  $3                  ; 0fe4 73
 
                LR  $6,A                ; 0fe5 56
 
A0fe6:          DS  $5                  ; 0fe6 35
 
                BF  $4,A0fef            ; 0fe7 94 07
 
A0fe9:          LR  A,$a                ; 0fe9 4a
 
                OI  $20                ; 0fea 22 20
 
                LR  $a,A                ; 0fec 5a
 
                BF  $0,A1035            ; 0fed 90 47
 
A0fef:          LISU 7                  ; 0fef 67
 
                LISL 4                  ; 0ff0 6c
 
                LR  A,(IS)+            ; 0ff1 4d
 
                SR  4                  ; 0ff2 14
 
                SR  1                  ; 0ff3 12
 
                AI  $11                ; 0ff4 24 11
 
                COM                      ; 0ff6 18
 
                AS  (IS)                ; 0ff7 cc
 
                BF  $4,A1035            ; 0ff8 94 3c
 
                LIS  $3                  ; 0ffa 73
 
                XS  $9                  ; 0ffb e9
 
                BF  $4,A1035            ; 0ffc 94 38
 
                LISL 6                  ; 0ffe 6e
 
                LIS  $4                  ; 0fff 74
 
                XS  (IS)                ; 1000 ec
 
                BT  4,A1035            ; 1001 84 33
 
                LIS  $5                  ; 1003 75
 
                XS  (IS)                ; 1004 ec
 
                BT  4,A1035            ; 1005 84 2f
 
                LISU 4                  ; 1007 64
 
                LISL 7                  ; 1008 6f
 
                LR  A,(IS)              ; 1009 4c
 
                CI  $19                ; 100a 25 19
 
                BT  1,A1035            ; 100c 81 28
 
                LISU 5                  ; 100e 65
 
                LISL 1                  ; 100f 69
 
                LR  A,(IS)              ; 1010 4c
 
                CI  $23                ; 1011 25 23
 
                BF  $1,A1035            ; 1013 91 21
 
                LISU 2                  ; 1015 62
 
                LISL 2                  ; 1016 6a
 
                LR  A,(IS)              ; 1017 4c
 
                AS  $6                  ; 1018 c6
 
                LR  (IS),A              ; 1019 5c
 
                LISL 4                  ; 101a 6c
 
                LR  (IS),A              ; 101b 5c
 
                LR  A,$6                ; 101c 46
 
                COM                      ; 101d 18
 
                INC                      ; 101e 1f
 
                LR  $6,A                ; 101f 56
 
                LISU 4                  ; 1020 64
 
                LISL 6                  ; 1021 6e
 
                AS  (IS)                ; 1022 cc
 
                LR  (IS),A              ; 1023 5c
 
                LISU 5                  ; 1024 65
 
                LISL 0                  ; 1025 68
 
                LR  A,$6                ; 1026 46
 
                AS  (IS)                ; 1027 cc
 
                LR  (IS),A              ; 1028 5c
 
                LISU 6                  ; 1029 66
 
                LISL 1                  ; 102a 69
 
                LR  A,(IS)              ; 102b 4c
 
                AI  $fc                ; 102c 24 fc
 
                LR  $3,A                ; 102e 53
 
                DCI  A135b              ; 102f 2a 13 5b
 
                PI  A0822              ; 1032 28 08 22
 
A1035:          PI  A08b0              ; 1035 28 08 b0
 
                LIS  $8                  ; 1038 78
 
                NS  $a                  ; 1039 fa
 
                BF  $4,A10b9            ; 103a 94 7e
 
                LISU 2                  ; 103c 62
 
                LISL 6                  ; 103d 6e
 
                LR  A,(IS)+            ; 103e 4d
 
                LR  $7,A                ; 103f 57
 
                LR  A,(IS)+            ; 1040 4d
 
                LISU 2                  ; 1041 62
 
                LISL 1                  ; 1042 69
 
                LR  (IS)-,A            ; 1043 5e
 
                LR  A,$7                ; 1044 47
 
                LR  (IS),A              ; 1045 5c
 
                LI  $20                ; 1046 20 20
 
                NS  $a                  ; 1048 fa
 
                BT  4,A104e            ; 1049 84 04
 
A104b:          JMP  A10e0              ; 104b 29 10 e0
 
A104e:          LISU 7                  ; 104e 67
 
                LISL 3                  ; 104f 6b
 
                AS  (IS)                ; 1050 cc
 
                BT  1,A104b            ; 1051 81 f9
 
                LIS  $3                  ; 1053 73
 
                XS  $9                  ; 1054 e9
 
                BF  $4,A104b            ; 1055 94 f5
 
                LR  $9,A                ; 1057 59
 
                LIS  $8                  ; 1058 78
 
                AS  $a                  ; 1059 ca
 
                LR  $a,A                ; 105a 5a
 
                LISL 6                  ; 105b 6e
 
                LR  A,(IS)              ; 105c 4c
 
                CI  $06                ; 105d 25 06
 
                BT  1,A1096            ; 105f 81 36
 
                LR  A,$a                ; 1061 4a
 
                OI  $02                ; 1062 22 02
 
                LR  $a,A                ; 1064 5a
 
                LISL 4                  ; 1065 6c
 
                LR  A,(IS)+            ; 1066 4d
 
                SR  4                  ; 1067 14
 
                SR  1                  ; 1068 12
 
                AI  $0a                ; 1069 24 0a
 
                AS  (IS)                ; 106b cc
 
                LISL 1                  ; 106c 69
 
                LR  (IS),A              ; 106d 5c
 
                LISL 6                  ; 106e 6e
 
                LIS  $7                  ; 106f 77
 
                XS  (IS)                ; 1070 ec
 
                BF  $4,A1096            ; 1071 94 24
 
                LISL 1                  ; 1073 69
 
                LR  A,(IS)              ; 1074 4c
 
                AI  $fd                ; 1075 24 fd
 
                LR  (IS),A              ; 1077 5c
 
                LIS  $1                  ; 1078 71
 
                NS  $a                  ; 1079 fa
 
                LISU 2                  ; 107a 62
 
                LISL 0                  ; 107b 68
 
                BF  $4,A1083            ; 107c 94 06
 
                LI  $f6                ; 107e 20 f6
 
                AS  (IS)                ; 1080 cc
 
                BF  $0,A1087            ; 1081 90 05
 
A1083:          LR  A,(IS)              ; 1083 4c
 
                COM                      ; 1084 18
 
                AI  $61                ; 1085 24 61
 
A1087:          LR  $5,A                ; 1087 55
 
                LISU 7                  ; 1088 67
 
                LISL 4                  ; 1089 6c
 
                LI  $3f                ; 108a 20 3f
 
                NS  (IS)-              ; 108c fe
 
                AS  $5                  ; 108d c5
 
                CI  $39                ; 108e 25 39
 
                LIS  $0                  ; 1090 70
 
                BT  1,A1095            ; 1091 81 03
 
                LI  $20                ; 1093 20 20
 
A1095:          LR  (IS),A              ; 1095 5c
 
A1096:          LR  A,$a                ; 1096 4a
 
                OI  $40                ; 1097 22 40
 
                LR  $a,A                ; 1099 5a
 
                LISU 7                  ; 109a 67
 
                LISL 3                  ; 109b 6b
 
                LI  $10                ; 109c 20 10
 
                NS  (IS)                ; 109e fc
 
                LIS  $6                  ; 109f 76
 
                BF  $4,A10a9            ; 10a0 94 08
 
                LI  $20                ; 10a2 20 20
 
                NS  (IS)                ; 10a4 fc
 
                LIS  $a                  ; 10a5 7a
 
                BF  $4,A10a9            ; 10a6 94 02
 
                LIS  $2                  ; 10a8 72
 
A10a9:          LR  $7,A                ; 10a9 57
 
                LIS  $1                  ; 10aa 71
 
                NS  $a                  ; 10ab fa
 
                BT  4,A10b5            ; 10ac 84 08
 
                LI  $30                ; 10ae 20 30
 
                NS  (IS)                ; 10b0 fc
 
                LIS  $f                  ; 10b1 7f
 
                BF  $4,A10b5            ; 10b2 94 02
 
                LIS  $3                  ; 10b4 73
 
A10b5:          LISU 6                  ; 10b5 66
 
                LISL 7                  ; 10b6 6f
 
                XS  $7                  ; 10b7 e7
 
                LR  (IS),A              ; 10b8 5c
 
A10b9:          LISU 2                  ; 10b9 62
 
                LISL 0                  ; 10ba 68
 
                LR  A,(IS)+            ; 10bb 4d
 
                COM                      ; 10bc 18
 
                INC                      ; 10bd 1f
 
                LR  $4,A                ; 10be 54
 
                LR  A,(IS)-            ; 10bf 4e
 
                COM                      ; 10c0 18
 
                INC                      ; 10c1 1f
 
                LR  $5,A                ; 10c2 55
 
                LISU 3                  ; 10c3 63
 
                LISL 0                  ; 10c4 68
 
A10c5:          LR  A,(IS)+            ; 10c5 4d
 
                AS  $4                  ; 10c6 c4
 
                BT  1,A10cb            ; 10c7 81 03
 
                COM                      ; 10c9 18
 
                INC                      ; 10ca 1f
 
A10cb:          LR  $2,A                ; 10cb 52
 
                LR  A,(IS)+            ; 10cc 4d
 
                AS  $5                  ; 10cd c5
 
                BT  1,A10d2            ; 10ce 81 03
 
                COM                      ; 10d0 18
 
                INC                      ; 10d1 1f
 
A10d2:          AS  $2                  ; 10d2 c2
 
                CI  $0f                ; 10d3 25 0f
 
                BF  $2,A10db            ; 10d5 92 05
 
                LR  A,$a                ; 10d7 4a
 
                OI  $10                ; 10d8 22 10
 
                LR  $a,A                ; 10da 5a
 
A10db:          LR  A,IS                ; 10db 0a
 
                CI  $1c                ; 10dc 25 1c
 
                BT  1,A10c5            ; 10de 81 e6
 
A10e0:          LISU 7                  ; 10e0 67
 
                LISL 5                  ; 10e1 6d
 
                LR  A,(IS)              ; 10e2 4c
 
                COM                      ; 10e3 18
 
                INC                      ; 10e4 1f
 
                LISL 1                  ; 10e5 69
 
                AS  (IS)                ; 10e6 cc
 
                LIS  $0                  ; 10e7 70
 
                LR  $0,A                ; 10e8 50
 
                BF  $1,A10ee            ; 10e9 91 04
 
                LISU 6                  ; 10eb 66
 
                LISL 7                  ; 10ec 6f
 
                LR  A,(IS)              ; 10ed 4c
 
A10ee:          LR  $4,A                ; 10ee 54
 
                LIS  $8                  ; 10ef 78
 
                NS  $a                  ; 10f0 fa
 
                BT  4,A10f6            ; 10f1 84 04
 
                PI  A0a24              ; 10f3 28 0a 24
 
A10f6:          LIS  $2                  ; 10f6 72
 
                NS  $a                  ; 10f7 fa
 
                BF  $4,A10fd            ; 10f8 94 04
 
                JMP  A1137              ; 10fa 29 11 37
 
A10fd:          LIS  $6                  ; 10fd 76
 
                LR  $0,A                ; 10fe 50
 
A10ff:          PI  A0a1f              ; 10ff 28 0a 1f
 
                DS  $0                  ; 1102 30
 
                BF  $4,A10ff            ; 1103 94 fb
 
                PI  A08c1              ; 1105 28 08 c1
 
                LIS  $c                  ; 1108 7c
 
                LR  $0,A                ; 1109 50
 
                LIS  $8                  ; 110a 78
 
                NS  $a                  ; 110b fa
 
                BT  4,A111a            ; 110c 84 0d
 
A110e:          PI  A0a1f              ; 110e 28 0a 1f
 
                DS  $0                  ; 1111 30
 
                LR  A,$0                ; 1112 40
 
                CI  $06                ; 1113 25 06
 
                BF  $1,A110e            ; 1115 91 f8
 
                JMP  A1227              ; 1117 29 12 27
 
A111a:          COM                      ; 111a 18
 
                INC                      ; 111b 1f
 
                AS  $9                  ; 111c c9
 
                BF  $4,A1124            ; 111d 94 06
 
                PI  A0a1f              ; 111f 28 0a 1f
 
                BF  $0,A112e            ; 1122 90 0b
 
A1124:          LIS  $1                  ; 1124 71
 
                NS  $a                  ; 1125 fa
 
                LIS  $2                  ; 1126 72
 
                BF  $4,A112a            ; 1127 94 02
 
                LIS  $1                  ; 1129 71
 
A112a:          LR  $4,A                ; 112a 54
 
                PI  A0a24              ; 112b 28 0a 24
 
A112e:          DS  $0                  ; 112e 30
 
                LR  A,$0                ; 112f 40
 
                CI  $06                ; 1130 25 06
 
                BF  $1,A111a            ; 1132 91 e7
 
                JMP  A1200              ; 1134 29 12 00
 
A1137:          LIS  $2                  ; 1137 72
 
                LR  $0,A                ; 1138 50
 
                PI  A08c7              ; 1139 28 08 c7
 
                NI  $f0                ; 113c 21 f0
 
                SR  4                  ; 113e 14
 
                LR  $7,A                ; 113f 57
 
                PI  A0a10              ; 1140 28 0a 10
 
                DS  $0                  ; 1143 30
 
                PI  A08c7              ; 1144 28 08 c7
 
                NI  $0f                ; 1147 21 0f
 
                LR  $7,A                ; 1149 57
 
                PI  A0a10              ; 114a 28 0a 10
 
                LIS  $3                  ; 114d 73
 
                LR  $0,A                ; 114e 50
 
                XS  $9                  ; 114f e9
 
                BT  4,A1159            ; 1150 84 08
 
                LIS  $0                  ; 1152 70
 
                LR  $4,A                ; 1153 54
 
                PI  A0a24              ; 1154 28 0a 24
 
                BF  $0,A1189            ; 1157 90 31
 
A1159:          PI  A0a1f              ; 1159 28 0a 1f
 
                LIS  $6                  ; 115c 76
 
                LR  $0,A                ; 115d 50
 
                PI  A08da              ; 115e 28 08 da
 
                LISU 5                  ; 1161 65
 
                LISL 4                  ; 1162 6c
 
                BF  $4,A1166            ; 1163 94 02
 
                LR  (IS),A              ; 1165 5c
 
A1166:          LI  $f0                ; 1166 20 f0
 
                NS  (IS)                ; 1168 fc
 
                SR  4                  ; 1169 14
 
                LR  $7,A                ; 116a 57
 
                PI  A0a10              ; 116b 28 0a 10
 
                DS  $0                  ; 116e 30
 
                LISU 5                  ; 116f 65
 
                LISL 4                  ; 1170 6c
 
                LIS  $f                  ; 1171 7f
 
                NS  (IS)                ; 1172 fc
 
                LR  $7,A                ; 1173 57
 
                PI  A0a10              ; 1174 28 0a 10
 
                DS  $0                  ; 1177 30
 
                PI  A08da              ; 1178 28 08 da
 
                LM                      ; 117b 16
 
                LISU 5                  ; 117c 65
 
                LISL 5                  ; 117d 6d
 
                BF  $4,A1181            ; 117e 94 02
 
                LR  (IS),A              ; 1180 5c
 
A1181:          LIS  $f                  ; 1181 7f
 
                NS  (IS)                ; 1182 fc
 
                LR  $7,A                ; 1183 57
 
                PI  A0a10              ; 1184 28 0a 10
 
                BF  $0,A1194            ; 1187 90 0c
 
A1189:          LIS  $6                  ; 1189 76
 
                LR  $0,A                ; 118a 50
 
A118b:          PI  A0a1f              ; 118b 28 0a 1f
 
                DS  $0                  ; 118e 30
 
                LR  A,$0                ; 118f 40
 
                CI  $03                ; 1190 25 03
 
                BF  $4,A118b            ; 1192 94 f8
 
A1194:          LIS  $c                  ; 1194 7c
 
                LR  $0,A                ; 1195 50
 
                PI  A0d30              ; 1196 28 0d 30
 
                DS  $0                  ; 1199 30
 
                PI  A0d30              ; 119a 28 0d 30
 
                PI  A08c1              ; 119d 28 08 c1
 
                LI  $30                ; 11a0 20 30
 
                NS  (IS)                ; 11a2 fc
 
                BT  4,A11a9            ; 11a3 84 05
 
                LR  A,$a                ; 11a5 4a
 
                OI  $40                ; 11a6 22 40
 
                LR  $a,A                ; 11a8 5a
 
A11a9:          LIS  $a                  ; 11a9 7a
 
                LR  $0,A                ; 11aa 50
 
                PI  A0a1f              ; 11ab 28 0a 1f
 
                DS  $0                  ; 11ae 30
 
A11af:          LI  $40                ; 11af 20 40
 
                NS  $a                  ; 11b1 fa
 
                BF  $4,A11cf            ; 11b2 94 1c
 
                LR  A,$0                ; 11b4 40
 
                CI  $08                ; 11b5 25 08
 
                BF  $4,A11bd            ; 11b7 94 05
 
                LIS  $6                  ; 11b9 76
 
                LR  $7,A                ; 11ba 57
 
                BF  $0,A11bf            ; 11bb 90 03
 
A11bd:          LIS  $5                  ; 11bd 75
 
                LR  $7,A                ; 11be 57
 
A11bf:          LIS  $1                  ; 11bf 71
 
                LISU 7                  ; 11c0 67
 
                LISL 7                  ; 11c1 6f
 
                NS  (IS)                ; 11c2 fc
 
                LR  $2,A                ; 11c3 52
 
                LR  A,(IS)              ; 11c4 4c
 
                AI  $ff                ; 11c5 24 ff
 
                NI  $02                ; 11c7 21 02
 
                SR  1                  ; 11c9 12
 
                AS  $0                  ; 11ca c0
 
                NI  $01                ; 11cb 21 01
 
                BF  $4,A11d4            ; 11cd 94 06
 
A11cf:          PI  A0a1f              ; 11cf 28 0a 1f
 
                BF  $0,A11d7            ; 11d2 90 04
 
A11d4:          PI  A0d86              ; 11d4 28 0d 86
 
A11d7:          DS  $0                  ; 11d7 30
 
                LR  A,$0                ; 11d8 40
 
                CI  $07                ; 11d9 25 07
 
                BF  $1,A11af            ; 11db 91 d3
 
                LISU 7                  ; 11dd 67
 
                LISL 3                  ; 11de 6b
 
                LI  $40                ; 11df 20 40
 
                NS  (IS)                ; 11e1 fc
 
                BF  $4,A11fd            ; 11e2 94 1a
 
                LISL 7                  ; 11e4 6f
 
                LR  A,(IS)-            ; 11e5 4e
 
                CI  $04                ; 11e6 25 04
 
                BT  1,A11f8            ; 11e8 81 0f
 
                LISU 7                  ; 11ea 67
 
                LISL 5                  ; 11eb 6d
 
                LR  A,(IS)              ; 11ec 4c
 
                CI  $0a                ; 11ed 25 0a
 
                BF  $1,A11f8            ; 11ef 91 08
 
                LIS  $6                  ; 11f1 76
 
                LR  $7,A                ; 11f2 57
 
                PI  A0a10              ; 11f3 28 0a 10
 
                BF  $0,A1200            ; 11f6 90 09
 
A11f8:          PI  A0d30              ; 11f8 28 0d 30
 
                BF  $0,A1200            ; 11fb 90 04
 
A11fd:          PI  A0a1f              ; 11fd 28 0a 1f
 
A1200:          LIS  $2                  ; 1200 72
 
                LR  $5,A                ; 1201 55
 
                LIS  $0                  ; 1202 70
 
                AS  $9                  ; 1203 c9
 
                BT  4,A1227            ; 1204 84 22
 
                CI   $06                ; 1206 25 06
 
                BF  $1,A120b            ; 1208 91 02
 
                DS   $5                  ; 120a 35
 
A120b:          LIS  $1                  ; 120b 71
 
                NS  $a                  ; 120c fa
 
                BT  4,A1210            ; 120d 84 02
 
                DS  $5                  ; 120f 35
 
A1210:          LI  $10                ; 1210 20 10
 
                AS  $9                  ; 1212 c9
 
                AS  $9                  ; 1213 c9
 
                LR  IS,A                ; 1214 0b
 
                LR  A,(IS)              ; 1215 4c
 
                DS  $5                  ; 1216 35
 
                BT  4,A1220            ; 1217 84 08
 
                CI   $57                ; 1219 25 57
 
                BT  1,A1227            ; 121b 81 0b
 
                JMP  A0d13              ; 121d 29 0d 13
 
A1220:          CI  $12                ; 1220 25 12
 
                BF   $1,A1227            ; 1222 91 04
 
                JMP  A0d10              ; 1224 29 0d 10
 
A1227:          LISU 7                  ; 1227 67
 
                LISL 5                  ; 1228 6d
 
                LR  A,(IS)              ; 1229 4c
 
                INC                      ; 122a 1f
 
                LR  (IS),A              ; 122b 5c
 
                CI  $60                ; 122c 25 60
 
                BT  1,A1232            ; 122e 81 03
 
                DS  (IS)                ; 1230 3c
 
                DS  (IS)                ; 1231 3c
 
A1232:          DCI  A124d              ; 1232 2a 12 4d
 
                LISU 7                  ; 1235 67
 
                LISL 2                  ; 1236 6a
 
                LR  A,(IS)              ; 1237 4c
 
                ADC                      ; 1238 8e
 
                LM                      ; 1239 16
 
                LISU 6                  ; 123a 66
 
                LISL 3                  ; 123b 6b
 
                AS  (IS)                ; 123c cc
 
                LR  (IS),A              ; 123d 5c
 
                BF  $2,A124a            ; 123e 92 0b
 
                LISU 6                  ; 1240 66
 
                LISL 2                  ; 1241 6a
 
                LIS  $0                  ; 1242 70
 
                AS  (IS)                ; 1243 cc
 
                BT  4,A1247            ; 1244 84 02
 
                DS  (IS)                ; 1246 3c
 
A1247:          PI  A09c4              ; 1247 28 09 c4
 
A124a:          JMP  A0fcd              ; 124a 29 0f cd
 
A124d:          LR  $0,A                ; 124d 50
 
                SR  4                  ; 124e 14
 
                LR  W,J                ; 124f 1d
 
                DS  $8                  ; 1250 38
 
A1251:          LR   A,$8                ; 1251 48
 
                JMP  $01ff              ; 1252 29 01 ff
 
                LR  A,KL                ; 1255 01
 
                LR  A,KU                ; 1256 00
 
                LR  KU,A                ; 1257 04
 
                LR  A,KU                ; 1258 00
 
                LR  QU,A                ; 1259 06
 
                LR  A,KU                ; 125a 00
 
                LR  A,QU                ; 125b 02
 
                LR  A,KU                ; 125c 00
 
A125d:          LR  A,KU                ; 125d 00
 
                LR  A,QL                ; 125e 03
 
                LR  QL,A                ; 125f 07
 
                INS  11                  ; 1260 ab
 
                LR  KL,A                ; 1261 05
 
                LR  KU,A                ; 1262 04
 
                LR  QU,A                ; 1263 06
 
                INS  11                  ; 1264 ab
 
                LR  A,KL                ; 1265 01
 
                LR  A,QU                ; 1266 02
 
                LR  K,P                ; 1267 08
 
A1268:          LR  K,P                ; 1268 08
 
                LR  P,K                ; 1269 09
 
                LR  A,IS                ; 126a 0a
 
                LR  IS,A                ; 126b 0b
 
                PK                      ; 126c 0c
 
                ST                      ; 126d 17
 
                OI  $23                ; 126e 22 23
 
                AI  $77                ; 1270 24 77
 
                LR  A,KU                ; 1272 00
 
                LIS  $7                  ; 1273 77
 
                LR  A,KU                ; 1274 00
 
                LIS  $7                  ; 1275 77
 
                LR  A,KU                ; 1276 00
 
                LIS  $7                  ; 1277 77
 
                LR  A,KU                ; 1278 00
 
                LR  K,P                ; 1279 08
 
                LR  A,KU                ; 127a 00
 
                PK                      ; 127b 0c
 
                AM                      ; 127c 88
 
                LR  DC,Q                ; 127d 0f
 
                BT  1,A1290            ; 127e 81 11
 
                BT  0,A1294            ; 1280 80 13
 
                LR  A,KL                ; 1282 01
 
                LIS  $7                  ; 1283 77
 
                LR  H,DC                ; 1284 11
 
                LR  A,QL                ; 1285 03
 
                LR  A,KU                ; 1286 00
 
                LR  QL,A                ; 1287 07
 
                LR  A,$4                ; 1288 44
 
                LR  A,IS                ; 1289 0a
 
                LR   $0,A                ; 128a 50
 
                PK                      ; 128b 0c
 
                LR  A,KU                ; 128c 00
 
                LR  Q,DC                ; 128d 0e
 
                LR  A,KU                ; 128e 00
 
                LIS  $7                  ; 128f 77
 
A1290:          LR  H,DC                ; 1290 11
 
                LIS  $7                  ; 1291 77
 
                LR  A,KU                ; 1292 00
 
                LIS  $7                  ; 1293 77
 
A1294:          LR  A,KU                ; 1294 00
 
                LIS  $7                  ; 1295 77
 
                LR  A,KU                ; 1296 00
 
A1297:          LR  A,IS                ; 1297 0a
 
                POP                      ; 1298 1c
 
                CI  $34                ; 1299 25 34
 
                LR  A,$0                ; 129b 40
 
                LR  $2,A                ; 129c 52
 
                LR  $b,A                ; 129d 5b
 
                LISU 7                  ; 129e 67
 
                LISU 7                  ; 129f 67
 
                LIS  $7                  ; 12a0 77
 
                LR  H,DC                ; 12a1 11
 
                LR  A,QL                ; 12a2 03
 
                LR  A,QL                ; 12a3 03
 
                LR  H,DC                ; 12a4 11
 
                LR  A,KL                ; 12a5 01
 
                LR  QU,A                ; 12a6 06
 
                LR  A,$5                ; 12a7 45
 
                LR  A,KL                ; 12a8 01
 
                LR  DC,Q                ; 12a9 0f
 
                LR  A,$8                ; 12aa 48
 
                LR  A,KL                ; 12ab 01
 
                SR  1                  ; 12ac 12
 
                LR  K,P                ; 12ad 08
 
                LR  A,KL                ; 12ae 01
 
                ST                      ; 12af 17
 
                LR  A,KL                ; 12b0 01
 
                LR  A,KL                ; 12b1 01
 
                EI                      ; 12b2 1b
 
                LR  A,KL                ; 12b3 01
 
                LR  KU,A                ; 12b4 04
 
                LIS  $7                  ; 12b5 77
 
                LR  QU,A                ; 12b6 06
 
                LR  H,DC                ; 12b7 11
 
                LR  A,KL                ; 12b8 01
 
                LR  A,IS                ; 12b9 0a
 
                LR  H,DC                ; 12ba 11
 
                LR  A,KU                ; 12bb 00
 
                PK                      ; 12bc 0c
 
                BF  $5,0                ; 12bd 95 00
 
                LIS  $7                  ; 12bf 77
 
                LR  A,QL                ; 12c0 03
 
                LR  H,DC                ; 12c1 11
 
                LR  A,KL                ; 12c2 01
 
                LR  Q,DC                ; 12c3 0e
 
                LR  A,$9                ; 12c4 49
 
                LR  A,KU                ; 12c5 00
 
                SR  4                  ; 12c6 14
 
                LR  KU,A                ; 12c7 04
 
                LR  A,KU                ; 12c8 00
 
                LNK                      ; 12c9 19
 
                BF  $2,A12cc            ; 12ca 92 01
 
A12cc:          LI  $98                ; 12cc 20 98
 
                LR  KU,A                ; 12ce 04
 
                LIS  $7                  ; 12cf 77
 
                LR  A,QL                ; 12d0 03
 
                LR  $1,A                ; 12d1 51
 
                LR  A,KL                ; 12d2 01
 
                SR  1                  ; 12d3 12
 
                LR  $2,A                ; 12d4 52
 
                LR  A,KL                ; 12d5 01
 
                LM                      ; 12d6 16
 
                SR  4                  ; 12d7 14
 
                LR  A,KL                ; 12d8 01
 
A12d9:          EI                      ; 12d9 1b
 
                BF  $1,A12dc            ; 12da 91 01
 
A12dc:          LIS  $7                  ; 12dc 77
 
                LR  A,QL                ; 12dd 03
 
                LR  H,DC                ; 12de 11
 
                LR  KL,A                ; 12df 05
 
                LR  QL,A                ; 12e0 07
 
                LR  $1,A                ; 12e1 51
 
                LR  KL,A                ; 12e2 05
 
                LR  A,IS                ; 12e3 0a
 
                LR  $1,A                ; 12e4 51
 
                LR  KL,A                ; 12e5 05
 
                LR  P0,Q                ; 12e6 0d
 
                SR  1                  ; 12e7 12
 
                LR  P,K                ; 12e8 09
 
                LR  Q,DC                ; 12e9 0e
 
                SL  4                  ; 12ea 15
 
                LR  P,K                ; 12eb 09
 
                NI  $a5                ; 12ec 21 a5
 
                LR  KU,A                ; 12ee 04
 
                LIS  $7                  ; 12ef 77
 
                LR  K,P                ; 12f0 08
 
                SL  4                  ; 12f1 15
 
                LR  A,KL                ; 12f2 01
 
                PK                      ; 12f3 0c
 
                LR  $5,A                ; 12f4 55
 
                LR  A,KL                ; 12f5 01
 
                LR  DC,H                ; 12f6 10
 
                BT  4,A12f9            ; 12f7 84 01
 
A12f9:          LIS  $7                  ; 12f9 77
 
                LR  A,QU                ; 12fa 02
 
A12fb:          LR  H,DC                ; 12fb 11
 
                LR  K,P                ; 12fc 08
 
                LR  QL,A                ; 12fd 07
 
                LR  H,DC                ; 12fe 11
 
                LR  P,K                ; 12ff 09
 
                LR  IS,A                ; 1300 0b
 
                LR  $8,A                ; 1301 58
 
                LR  P,K                ; 1302 09
 
                LR  P0,Q                ; 1303 0d
 
                SL  4                  ; 1304 15
 
                LR  A,KU                ; 1305 00
 
                LIS  $7                  ; 1306 77
 
                LIS  $7                  ; 1307 77
 
                LIS  $7                  ; 1308 77
 
                LR  J,W                ; 1309 1e
 
                LR  A,IS                ; 130a 0a
 
                OI  $0a                ; 130b 22 0a
 
                POP                      ; 130d 1c
 
                LR  QU,A                ; 130e 06
 
                AI  $06                ; 130f 24 06
 
                LR  J,W                ; 1311 1e
 
                LR  A,QU                ; 1312 02
 
A1313:          OI  $02                ; 1313 22 02
 
                POP                      ; 1315 1c
 
                LR  A,QU                ; 1316 02
 
                LI  $02                ; 1317 20 02
 
                LI  $07                ; 1319 20 07
 
                XI  $0a                ; 131b 23 0a
 
                XDC                      ; 131d 2c
 
                LR  A,QL                ; 131e 03
 
                LM                      ; 131f 16
 
                LR  A,QU                ; 1320 02
 
                LI  $08                ; 1321 20 08
 
A1323:          LM                      ; 1323 16
 
                LR  IS,A                ; 1324 0b
 
                XDC                      ; 1325 2c
 
                PK                      ; 1326 0c
 
                POP                      ; 1327 1c
 
A1328:          SR  4                  ; 1328 14
 
                POP                      ; 1329 1c
 
                LR  A,QU                ; 132a 02
 
                LI  $02                ; 132b 20 02
 
A132d:          db  $ff               
 
                BT  0,A12d9            ; 132e 80 aa
 
                BT  0,A1328            ; 1330 80 f7
 
                BT  0,A133c            ; 1332 80 09
 
                DS  $7                  ; 1334 37
 
                LR  A,$1                ; 1335 41
 
                LR  $9,A                ; 1336 59
 
                LR  A,KL                ; 1337 01
 
                LR  P,K                ; 1338 09
 
                LR  Q,DC                ; 1339 0e
 
                LR  A,$1                ; 133a 41
 
                LR  A,KL                ; 133b 01
 
A133c:          DCI  A090e              ; 133c 2a 09 0e
 
                LR  A,$1                ; 133f 41
 
                LR  $9,A                ; 1340 59
 
                LR  A,KL                ; 1341 01
 
                LISU 1                  ; 1342 61
 
                LR  Q,DC                ; 1343 0e
 
                LR  A,$1                ; 1344 41
 
                LR  A,KL                ; 1345 01
 
                DCI  A0a0f              ; 1346 2a 0a 0f
 
                AS  $1                  ; 1349 c1
 
                LR  $7,A                ; 134a 57
 
                PI  $580c              ; 134b 28 58 0c
 
                LR  A,$1                ; 134e 41
 
                LR  A,KL                ; 134f 01
 
                db  $2e               
 
                LR  A,IS                ; 1351 0a
 
                LR  QL,A                ; 1352 07
 
                AS  $1                  ; 1353 c1
 
                LISU 1                  ; 1354 61
 
                LR  KL,A                ; 1355 05
 
                SR  1                  ; 1356 12
 
                PK                      ; 1357 0c
 
                LR  A,$1                ; 1358 41
 
                LR  A,KL                ; 1359 01
 
                db  $2e               
 
A135b:          ST                      ; 135b 17
 
                AS  $1                  ; 135c c1
 
                LR  P,K                ; 135d 09
 
                LR  H,DC                ; 135e 11
 
A135f:          LNK                      ; 135f 19
 
                LR  H,DC                ; 1360 11
 
A1361:          AS  $1                  ; 1361 c1
 
                DS  $3                  ; 1362 33
 
A1363:          LR  QL,A                ; 1363 07
 
A1364:          NS  $6                  ; 1364 f6
 
                ASD  (IS)-              ; 1365 de
 
                LR  $9,A                ; 1366 59
 
                db  $2e               
 
                XS  $7                  ; 1368 e7
 
                AS  (IS)-              ; 1369 ce
 
                XS  $7                  ; 136a e7
 
                BF  $e,A1323            ; 136b 9e b7
 
                BF  $2,A1361            ; 136d 92 f3
 
                BF  $e,A1363            ; 136f 9e f3
 
                ASD  (IS)-              ; 1371 de
 
                XS  $5                  ; 1372 e5
 
                AI  $f7                ; 1373 24 f7
 
                ASD  (IS)-              ; 1375 de
 
                NS  $7                  ; 1376 f7
 
                BF  $e,A1380            ; 1377 9e 08
 
                LI  $27                ; 1379 20 27
 
                LISU 7                  ; 137b 67
 
                CI  $47                ; 137c 25 47
 
                XI  $27                ; 137e 23 27
 
A1380:          LR  A,KU                ; 1380 00
 
A1381:          LR  KU,A                ; 1381 04
 
                OI  $07                ; 1382 22 07
 
                INS  11                  ; 1384 ab
 
                LR  A,QL                ; 1385 03
 
                OUTS 11                  ; 1386 bb
 
                LR  K,P                ; 1387 08
 
                AS  (IS)                ; 1388 cc
 
                LR  A,QL                ; 1389 03
 
                DS  $4                  ; 138a 34
 
                LR  QU,A                ; 138b 06
 
                SR  1                  ; 138c 12
 
                LR  P0,Q                ; 138d 0d
 
                SR  1                  ; 138e 12
 
                LR  P0,Q                ; 138f 0d
 
                SR  1                  ; 1390 12
 
                LR  A,KU                ; 1391 00
 
A1392:          DS  $7                  ; 1392 37
 
                LISL 2                  ; 1393 6a
 
                DI                      ; 1394 1a
 
                LISU 1                  ; 1395 61
 
                EI                      ; 1396 1b
 
                LISL 2                  ; 1397 6a
 
                LR  Q,DC                ; 1398 0e
 
                LIS  $3                  ; 1399 73
 
                LR  W,J                ; 139a 1d
 
                LIS  $3                  ; 139b 73
 
                LR  P0,Q                ; 139c 0d
 
                LISL 2                  ; 139d 6a
 
                LR  W,J                ; 139e 1d
 
                LIS  $3                  ; 139f 73
 
                LR  Q,DC                ; 13a0 0e
 
                LIS  $3                  ; 13a1 73
 
                LR  W,J                ; 13a2 1d
 
                LIS  $3                  ; 13a3 73
 
                LR  Q,DC                ; 13a4 0e
 
                LIS  $3                  ; 13a5 73
 
                EI                      ; 13a6 1b
 
                LISL 2                  ; 13a7 6a
 
                LR  W,J                ; 13a8 1d
 
                LIS  $3                  ; 13a9 73
 
                LR  DC,H                ; 13aa 10
 
                BT  2,A13cc            ; 13ab 82 20
 
                BT  2,A13bd            ; 13ad 82 0f
 
                LIS  $b                  ; 13af 7b
 
                DS  $1                  ; 13b0 31
 
                BT  2,36                ; 13b1 82 24
 
                BF  $0,A13df            ; 13b3 90 2b
 
                db  $a2               
 
                JMP  $9d24              ; 13b6 29 9d 24
 
                BF  $0,A13da            ; 13b9 90 20
 
                BT  2,A13d7            ; 13bb 82 1b
 
A13bd:          LISL 2                  ; 13bd 6a
 
                LM                      ; 13be 16
 
                LR  A,$3                ; 13bf 43
 
                COM                      ; 13c0 18
 
                LR  $8,A                ; 13c1 58
 
                LR  P0,Q                ; 13c2 0d
 
                LISL 2                  ; 13c3 6a
 
                LI  $82                ; 13c4 20 82
 
                LR  Q,DC                ; 13c6 0e
 
                LIS  $3                  ; 13c7 73
 
                EI                      ; 13c8 1b
 
                LISL 2                  ; 13c9 6a
 
                COM                      ; 13ca 18
 
                LR  $8,A                ; 13cb 58
 
A13cc:          NOP                      ; 13cc 2b
 
                LR  A,$3                ; 13cd 43
 
                LR  A,KU                ; 13ce 00
 
A13cf:          DS  $1                  ; 13cf 31
 
                BT  2,A13e0            ; 13d0 82 0f
 
                LIS  $b                  ; 13d2 7b
 
                AI  $90                ; 13d3 24 90
 
                LI  $82                ; 13d5 20 82
 
A13d7:          LR  A,$1                ; 13d7 41
 
                db  $a2               
 
                SR  4                  ; 13d9 14
 
A13da:          BF  $d,A140c            ; 13da 9d 31
 
                INS  13                  ; 13dc ad
 
                NOP                      ; 13dd 2b
 
                db  $a2               
 
A13df:          DS  $6                  ; 13df 36
 
A13e0:          OUTS 6                  ; 13e0 b6
 
                DS  $6                  ; 13e1 36
 
                OUTS 6                  ; 13e2 b6
 
                DS  $6                  ; 13e3 36
 
                OUTS 6                  ; 13e4 b6
 
                DS  $6                  ; 13e5 36
 
                OUTS 6                  ; 13e6 b6
 
                LISL 5                  ; 13e7 6d
 
                OUTS 6                  ; 13e8 b6
 
                LR  A,KU                ; 13e9 00
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
A140c:          db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                LR  A,KU                ; 1700 00
 
                LR  A,KU                ; 1701 00
 
                LR  A,KU                ; 1702 00
 
                LR  A,KU                ; 1703 00
 
                LR  A,KU                ; 1704 00
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                db  $ff               
 
                LR  A,KU                ; 17f0 00
 
                LR  DC,H                ; 17f1 10
 
                XS  $9                  ; 17f2 e9
 
                EI                      ; 17f3 1b
 
                ASD  (IS)+              ; 17f4 dd
 
                XS  $5                  ; 17f5 e5
 
                LR  A,KU                ; 17f6 00
 
                LR  A,KU                ; 17f7 00
 
                LR  A,KU                ; 17f8 00
 
                LR  A,KU                ; 17f9 00
 
                LR  A,KU                ; 17fa 00
 
                LR  A,KU                ; 17fb 00
 
                LR  A,KU                ; 17fc 00
 
                LR  A,KU                ; 17fd 00
 
                LR  A,KU                ; 17fe 00
 
                LR  A,KU                ; 17ff 00
 
  
 +
Data intervals emitted as .byte:
 +
  $0837-$0839 (3 bytes)
 +
  $0C40-$0C43 (4 bytes)
 +
  $124D-$17FF (1459 bytes)
  
 +
ENDIF
 
</pre>
 
</pre>

Latest revision as of 16:54, 28 August 2026

This is the complete disassembly of the Channel F Videocart 24 made with e5frog's modified f8tool made by Peter Trauner's. Original code is copyright © 1978 (?) Zircon International.

;===============================================================================
; VIDEOCART 24 / PRO FOOTBALL
; Commented disassembly
;
; Original binary copyright Zircon International, approximately 1978.
; Original disassembly generated with f8tool and reconstructed as compilable
; DASM/F8 source. This revision preserves all instructions, labels, data bytes,
; addresses and original address comments. Only explanatory comments and
; section headings have been added.
;
; Confidence terminology used below:
;   confirmed       directly established by I/O, data flow or control flow
;   strongly likely supported by several independent code relationships
;   preliminary     descriptive working name, not an original symbol
;
; The range $124D-$17FF is emitted as data because reachable code addresses it
; through DC0. Routines and tables are described without changing binary data.
;===============================================================================

		processor f8
		org $0800

clrscrn		equ	$00D0

		lr	5, A			; 0800 55
		nop				; 0801 2B
		li	$D0			; 0802 20 D0
		lr	3, A			; 0804 53
		pi	clrscrn			; 0805 28 00 D0
		lisu	6			; 0808 66
		lisl	1			; 0809 69
		li	$21			; 080A 20 21
		lr	S, A			; 080C 5C
		lis	1			; 080D 71
		lr	$A, A			; 080E 5A
		jmp	L0E68			; 080F 29 0E 68
;-------------------------------------------------------------------------------
; set_isar_2x_r0_plus_10 (confirmed)
; Convert object index in r0 to the first byte of a two-byte scratchpad entry.
; Output: ISAR = $10 + 2*r0. A and ISAR are changed; r0 is preserved.
;-------------------------------------------------------------------------------
L0812:		li	$10			; 0812 20 10
		as	0			; 0814 C0
		as	0			; 0815 C0
		lr	IS, A			; 0816 0B
		pop				; 0817 1C
;-------------------------------------------------------------------------------
; delay_r5 (confirmed)
; Blocking two-level delay. A wraps through 256 INC operations for each r5
; count. r5 is consumed and returns as zero.
;-------------------------------------------------------------------------------
L0818:		clr				; 0818 70
L0819:		inc				; 0819 1F
		bnz	L0819			; 081A 94 FE
		ds	5			; 081C 35
		bnz	L0818			; 081D 94 FA
		pop				; 081F 1C
;-------------------------------------------------------------------------------
; Graphics parameter entry points (strongly likely)
; L0820 reads r3, then L0822 reads r4, r2, r5 and r6 from DC0 before entering
; the common renderer. Observed use identifies r3/r4 as coordinates, r2 as
; color/mode, and r5/r6 as width/height counters.
;-------------------------------------------------------------------------------
L0820:		lm				; 0820 16
		lr	3, A			; 0821 53
L0822:		lm				; 0822 16
		lr	4, A			; 0823 54
		lm				; 0824 16
		lr	2, A			; 0825 52
		lm				; 0826 16
		lr	5, A			; 0827 55
		lm				; 0828 16
		lr	6, A			; 0829 56
		br	L084A			; 082A 90 1F
; draw_object_from_scratch: select solid/background mode, then read X/Y pair.
L082C:		li	$C1			; 082C 20 C1
		lr	2, A			; 082E 52
; Read a two-byte coordinate pair through ISAR with post-increment semantics.
L082F:		lr	A, I			; 082F 4D
		lr	3, A			; 0830 53
		ds	3			; 0831 33
		lr	A, I			; 0832 4D
		lr	4, A			; 0833 54
		ds	4			; 0834 34
		br	L083A			; 0835 90 04
		.byte	$20, $C1, $52		; 0837
L083A:		lis	3			; 083A 73
		lr	5, A			; 083B 55
; Short fixed-height graphics entry: use three rows.
L083C:		lis	3			; 083C 73
		lr	6, A			; 083D 56
		br	L084A			; 083E 90 0B
; draw_bitmap_entry (confirmed graphics): select a two-byte glyph/sprite entry
; at L1364 + 2*r1 and use fixed dimensions 3 by 5.
L0840:		dci	L1364			; 0840 2A 13 64
		lr	A, 1			; 0843 41
		adc				; 0844 8E
		adc				; 0845 8E
		lis	3			; 0846 73
		lr	5, A			; 0847 55
		lis	5			; 0848 75
		lr	6, A			; 0849 56
;-------------------------------------------------------------------------------
; draw_bitmap_core (confirmed)
; Port 0: graphics write/strobe. Port 1: color. Port 4: inverted X.
; Port 5: inverted Y in low six bits and sound selection in high two bits.
; r7 is the serial bitmap mask; a new byte is fetched with LM when exhausted.
; r1 and r6 count columns and rows. Port 0 is cleared before return.
;-------------------------------------------------------------------------------
L084A:		clr				; 084A 70
		lr	7, A			; 084B 57
		li	$40			; 084C 20 40
		outs	0			; 084E B0
		lr	A, 4			; 084F 44
		oi	$C0			; 0850 22 C0
		com				; 0852 18
		outs	5			; 0853 B5
L0854:		lr	A, 3			; 0854 43
		com				; 0855 18
		outs	4			; 0856 B4
		lr	A, 5			; 0857 45
		lr	1, A			; 0858 51
L0859:		lr	A, 2			; 0859 42
		outs	1			; 085A B1
		ni	1			; 085B 21 01
		bnz	L0873			; 085D 94 15
		com				; 085F 18
		adc				; 0860 8E
		lr	A, 7			; 0861 47
		sr	1			; 0862 12
		lr	7, A			; 0863 57
		bnz	L086A			; 0864 94 05
		lm				; 0866 16
		li	$80			; 0867 20 80
		lr	7, A			; 0869 57
L086A:		nm				; 086A 8A
		bnz	L0873			; 086B 94 07
		com				; 086D 18
		outs	1			; 086E B1
		lis	2			; 086F 72
		ns	2			; 0870 F2
		bnz	L087D			; 0871 94 0B
L0873:		li	$60			; 0873 20 60
		outs	0			; 0875 B0
		li	$40			; 0876 20 40
		outs	0			; 0878 B0
L0879:		ai	$F5			; 0879 24 F5
		bp	L0879			; 087B 81 FD
L087D:		ins	4			; 087D A4
		ai	$FF			; 087E 24 FF
		outs	4			; 0880 B4
		ds	1			; 0881 31
		bnz	L0859			; 0882 94 D6
		ins	5			; 0884 A5
		ai	$FF			; 0885 24 FF
		outs	5			; 0887 B5
		ds	6			; 0888 36
		bnz	L0854			; 0889 94 CA
		clr				; 088B 70
		outs	0			; 088C B0
		pop				; 088D 1C
;-------------------------------------------------------------------------------
; play_sound_table (confirmed)
; DC0 points to pairs: repetition/group count followed by delay value. A zero
; count terminates. The routine alternates $80 (500 Hz) and $00 on port 5;
; r5 controls both on-time and off-time, while r4/r7 group the pulses.
;-------------------------------------------------------------------------------
L088E:		lis	3			; 088E 73
		lr	4, A			; 088F 54
L0890:		inc				; 0890 1F
		bnz	L0890			; 0891 94 FE
		am				; 0893 88
		lr	7, A			; 0894 57
		bz	L08AF			; 0895 84 19
		lm				; 0897 16
		lr	5, A			; 0898 55
L0899:		li	$80			; 0899 20 80
		outs	5			; 089B B5
		lr	A, 5			; 089C 45
L089D:		inc				; 089D 1F
		bnz	L089D			; 089E 94 FE
		outs	5			; 08A0 B5
		lr	A, 5			; 08A1 45
L08A2:		inc				; 08A2 1F
		bnz	L08A2			; 08A3 94 FE
		ds	4			; 08A5 34
		bnz	L0899			; 08A6 94 F2
		lis	3			; 08A8 73
		lr	4, A			; 08A9 54
		ds	7			; 08AA 37
		bnz	L0899			; 08AB 94 ED
		br	L088E			; 08AD 90 E0
L08AF:		pop				; 08AF 1C
;-------------------------------------------------------------------------------
; read_controller_a / read_controller_b (strongly likely)
; Select one of two controller I/O paths according to r10 bit 0. The selected
; input is inverted and stored in O73. L08C1 selects the opposite input path.
;-------------------------------------------------------------------------------
L08B0:		lis	1			; 08B0 71
		ns	$A			; 08B1 FA
		bz	L08B9			; 08B2 84 06
L08B4:		clr				; 08B4 70
		outs	4			; 08B5 B4
		ins	4			; 08B6 A4
		br	L08BC			; 08B7 90 04
L08B9:		clr				; 08B9 70
		outs	1			; 08BA B1
		ins	1			; 08BB A1
L08BC:		com				; 08BC 18
		lisu	7			; 08BD 67
		lisl	3			; 08BE 6B
		lr	S, A			; 08BF 5C
		pop				; 08C0 1C
L08C1:		lis	1			; 08C1 71
		ns	$A			; 08C2 FA
		bz	L08B4			; 08C3 84 F0
		br	L08B9			; 08C5 90 F3
;-------------------------------------------------------------------------------
; lookup_table_1268 (confirmed table lookup)
; Index table L1268 from scratchpad state and accumulate variable-length data.
;-------------------------------------------------------------------------------
L08C7:		dci	L1268			; 08C7 2A 12 68
		lisu	7			; 08CA 67
		lisl	6			; 08CB 6E
		lr	A, D			; 08CC 4E
		adc				; 08CD 8E
		lm				; 08CE 16
		adc				; 08CF 8E
		lr	A, S			; 08D0 4C
		com				; 08D1 18
		inc				; 08D2 1F
		lr	4, A			; 08D3 54
L08D4:		lm				; 08D4 16
		as	4			; 08D5 C4
		lm				; 08D6 16
		bm	L08D4			; 08D7 91 FC
		pop				; 08D9 1C
; lookup_table_1297 (confirmed table lookup)
; Parallel lookup using L1297, with a three-byte accumulation stride.
L08DA:		dci	L1297			; 08DA 2A 12 97
		lisu	7			; 08DD 67
		lisl	6			; 08DE 6E
		lr	A, D			; 08DF 4E
		adc				; 08E0 8E
		lm				; 08E1 16
		adc				; 08E2 8E
		lr	A, S			; 08E3 4C
		com				; 08E4 18
		inc				; 08E5 1F
		lr	4, A			; 08E6 54
L08E7:		lm				; 08E7 16
		lm				; 08E8 16
		as	4			; 08E9 C4
		lm				; 08EA 16
		bm	L08E7			; 08EB 91 FB
		pop				; 08ED 1C
;-------------------------------------------------------------------------------
; calc_small_index_a (preliminary)
; Return a small class in r5 according to r0 and player/side flag r10 bit 0.
;-------------------------------------------------------------------------------
L08EE:		lis	2			; 08EE 72
		lr	5, A			; 08EF 55
		lr	A, 0			; 08F0 40
		ci	6			; 08F1 25 06
		bm	L08F6			; 08F3 91 02
		ds	5			; 08F5 35
L08F6:		lis	1			; 08F6 71
		ns	$A			; 08F7 FA
		bz	L08FB			; 08F8 84 02
		ds	5			; 08FA 35
L08FB:		ds	5			; 08FB 35
		pop				; 08FC 1C
; calc_small_index_b (preliminary)
; Return a small class in r5 from the relation between r0 and r4.
L08FD:		lis	2			; 08FD 72
		lr	5, A			; 08FE 55
		li	$F9			; 08FF 20 F9
		as	0			; 0901 C0
		bm	L0905			; 0902 91 02
		ds	5			; 0904 35
L0905:		li	$F9			; 0905 20 F9
		as	4			; 0907 C4
		bm	L090B			; 0908 91 02
		ds	5			; 090A 35
L090B:		ds	5			; 090B 35
		pop				; 090C 1C
;-------------------------------------------------------------------------------
; update_motion_or_collision_vector (strongly likely)
; Compare object coordinate pairs stored at $10 + 2*index. The block computes
; absolute differences, applies side/direction flags, and records an event in
; r11 bit 1 when the tested geometric condition is met.
;-------------------------------------------------------------------------------
L090D:		lisu	6			; 090D 66
		lisl	5			; 090E 6D
		li	$64			; 090F 20 64
		lr	I, A			; 0911 5D
		lr	A, 9			; 0912 49
		lr	S, A			; 0913 5C
		lisl	4			; 0914 6C
		lr	A, 4			; 0915 44
		lr	S, A			; 0916 5C
		lis	6			; 0917 76
		lr	9, A			; 0918 59
L0919:		li	$10			; 0919 20 10
		as	8			; 091B C8
		as	8			; 091C C8
		lr	IS, A			; 091D 0B
		lr	A, S			; 091E 4C
		lr	7, A			; 091F 57
		li	$FE			; 0920 20 FE
		lr	5, A			; 0922 55
		li	$10			; 0923 20 10
		as	9			; 0925 C9
		as	9			; 0926 C9
		lr	IS, A			; 0927 0B
		lr	A, 7			; 0928 47
		com				; 0929 18
		inc				; 092A 1F
		as	S			; 092B CC
		lr	7, A			; 092C 57
		bp	L0931			; 092D 81 03
		com				; 092F 18
		inc				; 0930 1F
L0931:		lr	4, A			; 0931 54
		lis	1			; 0932 71
		ns	$A			; 0933 FA
		bz	L093A			; 0934 84 05
		lr	A, 7			; 0936 47
		com				; 0937 18
		inc				; 0938 1F
		lr	7, A			; 0939 57
L093A:		lr	A, 5			; 093A 45
		inc				; 093B 1F
		inc				; 093C 1F
		lr	5, A			; 093D 55
		lr	A, 4			; 093E 44
		ai	$FD			; 093F 24 FD
		lr	4, A			; 0941 54
		bp	L093A			; 0942 81 F7
		lisu	6			; 0944 66
		lisl	7			; 0945 6F
		lis	8			; 0946 78
		ns	S			; 0947 FC
		bz	L094E			; 0948 84 05
		lr	A, 5			; 094A 45
		com				; 094B 18
		inc				; 094C 1F
		lr	5, A			; 094D 55
L094E:		lis	$C			; 094E 7C
		ns	S			; 094F FC
		bnz	L0953			; 0950 94 02
		lr	5, A			; 0952 55
L0953:		lis	1			; 0953 71
		ns	$A			; 0954 FA
		bnz	L095B			; 0955 94 05
		lr	A, 5			; 0957 45
		com				; 0958 18
		inc				; 0959 1F
		lr	5, A			; 095A 55
L095B:		clr				; 095B 70
		as	7			; 095C C7
		bm	L0963			; 095D 91 05
		lr	A, 5			; 095F 45
		com				; 0960 18
		inc				; 0961 1F
		lr	5, A			; 0962 55
L0963:		li	$11			; 0963 20 11
		as	8			; 0965 C8
		as	8			; 0966 C8
		lr	IS, A			; 0967 0B
		lr	A, S			; 0968 4C
		as	5			; 0969 C5
		com				; 096A 18
		inc				; 096B 1F
		lr	5, A			; 096C 55
		li	$11			; 096D 20 11
		as	9			; 096F C9
		as	9			; 0970 C9
		lr	IS, A			; 0971 0B
		lr	A, S			; 0972 4C
		as	5			; 0973 C5
		bp	L0978			; 0974 81 03
		com				; 0976 18
		inc				; 0977 1F
L0978:		lr	5, A			; 0978 55
		com				; 0979 18
		lisu	6			; 097A 66
		lisl	5			; 097B 6D
		as	S			; 097C CC
		bm	L09B3			; 097D 91 35
		lr	A, 5			; 097F 45
		lr	S, A			; 0980 5C
		clr				; 0981 70
		as	7			; 0982 C7
		bp	L09AF			; 0983 81 2B
		lr	A, $B			; 0985 4B
		ni	$FD			; 0986 21 FD
		lr	$B, A			; 0988 5B
		li	$10			; 0989 20 10
		as	8			; 098B C8
		as	8			; 098C C8
		lr	IS, A			; 098D 0B
		lr	A, S			; 098E 4C
		sr	1			; 098F 12
		as	S			; 0990 CC
		lr	5, A			; 0991 55
		lisu	2			; 0992 62
		lisl	6			; 0993 6E
		lr	A, S			; 0994 4C
		sr	1			; 0995 12
		com				; 0996 18
		inc				; 0997 1F
		as	5			; 0998 C5
		lr	5, A			; 0999 55
		li	$10			; 099A 20 10
		as	9			; 099C C9
		as	9			; 099D C9
		lr	IS, A			; 099E 0B
		lr	A, S			; 099F 4C
		com				; 09A0 18
		inc				; 09A1 1F
		as	5			; 09A2 C5
		lr	5, A			; 09A3 55
		lis	1			; 09A4 71
		ns	$A			; 09A5 FA
		bz	L09AC			; 09A6 84 05
		lr	A, 5			; 09A8 45
		com				; 09A9 18
		inc				; 09AA 1F
		lr	5, A			; 09AB 55
L09AC:		ds	5			; 09AC 35
		bp	L09B3			; 09AD 81 05
L09AF:		lr	A, $B			; 09AF 4B
		oi	2			; 09B0 22 02
		lr	$B, A			; 09B2 5B
L09B3:		ds	9			; 09B3 39
		lr	A, 9			; 09B4 49
		ci	3			; 09B5 25 03
		bp	L09BC			; 09B7 81 04
		jmp	L0919			; 09B9 29 09 19
L09BC:		lisu	6			; 09BC 66
		lisl	6			; 09BD 6E
		lr	A, S			; 09BE 4C
		lr	9, A			; 09BF 59
		lisl	4			; 09C0 6C
		lr	A, S			; 09C1 4C
		lr	4, A			; 09C2 54
		pop				; 09C3 1C
;-------------------------------------------------------------------------------
; draw_player_or_marker (strongly likely)
; Save the nested return in K, derive a screen position from O61/O62, and draw
; four component glyphs through L0840. Return through PK.
;-------------------------------------------------------------------------------
L09C4:		lr	K, P			; 09C4 08
		lisu	6			; 09C5 66
		lisl	1			; 09C6 69
		lr	A, I			; 09C7 4D
		ci	$32			; 09C8 25 32
		li	$3C			; 09CA 20 3C
		bp	L09D0			; 09CC 81 03
		li	$19			; 09CE 20 19
L09D0:		lr	3, A			; 09D0 53
		clr				; 09D1 70
		lr	1, A			; 09D2 51
		as	S			; 09D3 CC
		lr	8, A			; 09D4 58
		bz	L09E4			; 09D5 84 0E
L09D7:		lr	A, 8			; 09D7 48
		ai	$C4			; 09D8 24 C4
		ci	$C3			; 09DA 25 C3
		bnc	L09E4			; 09DC 92 07
		lr	8, A			; 09DE 58
		lr	A, 1			; 09DF 41
		inc				; 09E0 1F
		lr	1, A			; 09E1 51
		br	L09D7			; 09E2 90 F4
L09E4:		lis	7			; 09E4 77
		lr	4, A			; 09E5 54
		li	$40			; 09E6 20 40
		lr	2, A			; 09E8 52
		pi	L0840			; 09E9 28 08 40
		lis	4			; 09EC 74
		as	3			; 09ED C3
		lr	3, A			; 09EE 53
		lis	$A			; 09EF 7A
		lr	1, A			; 09F0 51
		pi	L0840			; 09F1 28 08 40
		lis	3			; 09F4 73
		as	3			; 09F5 C3
		lr	3, A			; 09F6 53
		clr				; 09F7 70
L09F8:		lr	1, A			; 09F8 51
		lr	A, 8			; 09F9 48
		ai	$F6			; 09FA 24 F6
		bm	L0A04			; 09FC 91 07
		lr	8, A			; 09FE 58
		lr	A, 1			; 09FF 41
		inc				; 0A00 1F
		lr	1, A			; 0A01 51
		br	L09F8			; 0A02 90 F5
L0A04:		pi	L0840			; 0A04 28 08 40
		lis	4			; 0A07 74
		as	3			; 0A08 C3
		lr	3, A			; 0A09 53
		lr	A, 8			; 0A0A 48
		lr	1, A			; 0A0B 51
		pi	L0840			; 0A0C 28 08 40
		pk				; 0A0F 0C
;-------------------------------------------------------------------------------
; normalize_control_bits (strongly likely)
; Copy direction bits from r7 to r4 and mirror selected bits for the active side.
;-------------------------------------------------------------------------------
L0A10:		lr	A, 7			; 0A10 47
		lr	4, A			; 0A11 54
		lis	1			; 0A12 71
		ns	$A			; 0A13 FA
		bnz	L0A1D			; 0A14 94 08
		lis	3			; 0A16 73
		ns	4			; 0A17 F4
		bz	L0A1D			; 0A18 84 04
		lis	3			; 0A1A 73
		xs	4			; 0A1B E4
		lr	4, A			; 0A1C 54
L0A1D:		br	L0A24			; 0A1D 90 06
; read_control_nibble (strongly likely): load low four bits of O73 into r4.
L0A1F:		lisu	7			; 0A1F 67
		lisl	3			; 0A20 6B
		lis	$F			; 0A21 7F
		ns	S			; 0A22 FC
		lr	4, A			; 0A23 54
;-------------------------------------------------------------------------------
; apply_direction_and_move (strongly likely)
; Decode r4 bits 0-3 into signed horizontal and vertical steps in r3/r6, then
; apply object-, side- and boundary-specific movement rules.
;-------------------------------------------------------------------------------
L0A24:		lr	K, P			; 0A24 08
		clr				; 0A25 70
		lr	3, A			; 0A26 53
		lr	6, A			; 0A27 56
		lis	1			; 0A28 71
		ns	4			; 0A29 F4
		bz	L0A2E			; 0A2A 84 03
		lis	1			; 0A2C 71
		lr	3, A			; 0A2D 53
L0A2E:		lis	2			; 0A2E 72
		ns	4			; 0A2F F4
		bz	L0A33			; 0A30 84 02
		ds	3			; 0A32 33
L0A33:		nop				; 0A33 2B
		lis	4			; 0A34 74
		ns	4			; 0A35 F4
		bz	L0A3A			; 0A36 84 03
		lis	1			; 0A38 71
		lr	6, A			; 0A39 56
L0A3A:		lis	8			; 0A3A 78
		ns	4			; 0A3B F4
		bz	L0A3F			; 0A3C 84 02
		ds	6			; 0A3E 36
L0A3F:		clr				; 0A3F 70
		as	0			; 0A40 C0
		bnz	L0A61			; 0A41 94 1F
		lr	A, 6			; 0A43 46
		sl	1			; 0A44 13
		lr	6, A			; 0A45 56
		lr	A, 3			; 0A46 43
		bz	L0A4D			; 0A47 84 05
		sl	1			; 0A49 13
		sl	1			; 0A4A 13
		br	L0A4F			; 0A4B 90 03
L0A4D:		sl	1			; 0A4D 13
		as	3			; 0A4E C3
L0A4F:		lr	3, A			; 0A4F 53
		lisu	7			; 0A50 67
		lisl	6			; 0A51 6E
		lr	A, D			; 0A52 4E
		ci	6			; 0A53 25 06
		bp	L0A73			; 0A55 81 1D
		lis	1			; 0A57 71
		ns	S			; 0A58 FC
		bnz	L0A5D			; 0A59 94 03
		li	$FF			; 0A5B 20 FF
L0A5D:		as	6			; 0A5D C6
		lr	6, A			; 0A5E 56
		br	L0A73			; 0A5F 90 13
L0A61:		lisu	7			; 0A61 67
		lisl	6			; 0A62 6E
		lis	7			; 0A63 77
		xs	S			; 0A64 EC
		bnz	L0A73			; 0A65 94 0D
		lis	3			; 0A67 73
		xs	9			; 0A68 E9
		bnz	L0A73			; 0A69 94 09
		lr	A, 0			; 0A6B 40
		ci	6			; 0A6C 25 06
		bm	L0A73			; 0A6E 91 04
		clr				; 0A70 70
		lr	3, A			; 0A71 53
		lr	6, A			; 0A72 56
L0A73:		lis	2			; 0A73 72
		ns	$A			; 0A74 FA
		bnz	L0A9A			; 0A75 94 24
		lr	A, 0			; 0A77 40
		ci	6			; 0A78 25 06
		bp	L0A9A			; 0A7A 81 1F
		ci	$C			; 0A7C 25 0C
		bm	L0A9A			; 0A7E 91 1B
		lis	3			; 0A80 73
		xs	9			; 0A81 E9
		bnz	L0A89			; 0A82 94 06
		li	$20			; 0A84 20 20
		ns	$A			; 0A86 FA
		bz	L0A9A			; 0A87 84 12
L0A89:		lisl	4			; 0A89 6C
		lr	A, S			; 0A8A 4C
		sl	4			; 0A8B 15
		sl	1			; 0A8C 13
		as	S			; 0A8D CC
		ai	$73			; 0A8E 24 73
		lr	S, A			; 0A90 5C
		lr	A, S			; 0A91 4C
		sr	4			; 0A92 14
		sr	1			; 0A93 12
		sr	1			; 0A94 12
		bnz	L0A9A			; 0A95 94 04
		lr	A, 3			; 0A97 43
		sl	1			; 0A98 13
		lr	3, A			; 0A99 53
;-------------------------------------------------------------------------------
; Central object/collision pass (strongly likely)
; Iterate two-byte object records, test position limits and collisions, and set
; event bits in r11. O53/O54 hold a temporary coordinate pair.
;-------------------------------------------------------------------------------
L0A9A:		clr				; 0A9A 70
		lr	$B, A			; 0A9B 5B
L0A9C:		pi	L0812			; 0A9C 28 08 12
		lr	A, I			; 0A9F 4D
		as	3			; 0AA0 C3
		lr	1, A			; 0AA1 51
		lr	A, S			; 0AA2 4C
		as	6			; 0AA3 C6
		lisu	5			; 0AA4 65
		lisl	3			; 0AA5 6B
		lr	2, A			; 0AA6 52
		lr	D, A			; 0AA7 5E
		lr	A, 1			; 0AA8 41
		lr	I, A			; 0AA9 5D
		lr	A, D			; 0AAA 4E
		ci	$F			; 0AAB 25 0F
		bp	L0AB3			; 0AAD 81 05
		ci	$35			; 0AAF 25 35
		bp	L0AD2			; 0AB1 81 20
L0AB3:		clr				; 0AB3 70
		as	0			; 0AB4 C0
		bz	L0ACE			; 0AB5 84 18
		lisu	5			; 0AB7 65
		lisl	4			; 0AB8 6C
		ci	5			; 0AB9 25 05
		bnz	L0AC2			; 0ABB 94 06
		lis	$C			; 0ABD 7C
		xs	S			; 0ABE EC
		lr	S, A			; 0ABF 5C
		br	L0ACA			; 0AC0 90 09
L0AC2:		ci	6			; 0AC2 25 06
		bnz	L0ACA			; 0AC4 94 05
		li	$C0			; 0AC6 20 C0
		xs	S			; 0AC8 EC
		lr	S, A			; 0AC9 5C
L0ACA:		clr				; 0ACA 70
		lr	6, A			; 0ACB 56
		br	L0A9C			; 0ACC 90 CF
L0ACE:		lr	A, $B			; 0ACE 4B
		oi	$10			; 0ACF 22 10
		lr	$B, A			; 0AD1 5B
L0AD2:		lr	A, 1			; 0AD2 41
		ci	$A			; 0AD3 25 0A
		bp	L0ADB			; 0AD5 81 05
		ci	$5F			; 0AD7 25 5F
		bp	L0AF5			; 0AD9 81 1B
L0ADB:		clr				; 0ADB 70
		as	0			; 0ADC C0
		bnz	L0AE5			; 0ADD 94 07
		lr	A, $B			; 0ADF 4B
		oi	$40			; 0AE0 22 40
		lr	$B, A			; 0AE2 5B
		br	L0AF5			; 0AE3 90 11
L0AE5:		lr	A, 0			; 0AE5 40
		ci	5			; 0AE6 25 05
		lisu	5			; 0AE8 65
		lisl	4			; 0AE9 6C
		bnz	L0AF1			; 0AEA 94 06
		lis	3			; 0AEC 73
		xs	S			; 0AED EC
		lr	S, A			; 0AEE 5C
		br	L0AF1			; 0AEF 90 01
L0AF1:		clr				; 0AF1 70
		lr	3, A			; 0AF2 53
		br	L0A9C			; 0AF3 90 A8
L0AF5:		lis	8			; 0AF5 78
		ns	$A			; 0AF6 FA
		lis	1			; 0AF7 71
		bz	L0AFB			; 0AF8 84 02
		clr				; 0AFA 70
L0AFB:		lr	4, A			; 0AFB 54
L0AFC:		lr	A, 4			; 0AFC 44
		xs	0			; 0AFD E0
		bz	L0B0B			; 0AFE 84 0C
		li	$10			; 0B00 20 10
		as	4			; 0B02 C4
		as	4			; 0B03 C4
		lr	IS, A			; 0B04 0B
		lis	2			; 0B05 72
		as	I			; 0B06 CD
		com				; 0B07 18
		as	1			; 0B08 C1
		bm	L0B0E			; 0B09 91 04
L0B0B:		jmp	L0BB1			; 0B0B 29 0B B1
L0B0E:		ai	5			; 0B0E 24 05
		bm	L0B0B			; 0B10 91 FA
		lis	2			; 0B12 72
		as	I			; 0B13 CD
		com				; 0B14 18
		as	2			; 0B15 C2
		bp	L0B0B			; 0B16 81 F4
		ai	5			; 0B18 24 05
		bm	L0B0B			; 0B1A 91 F0
		lr	A, 0			; 0B1C 40
		lr	8, A			; 0B1D 58
		lr	A, 9			; 0B1E 49
		xs	4			; 0B1F E4
		bz	L0B28			; 0B20 84 07
		lr	A, 4			; 0B22 44
		lr	8, A			; 0B23 58
		lr	A, 9			; 0B24 49
		xs	0			; 0B25 E0
		bnz	L0B8E			; 0B26 94 67
L0B28:		clr				; 0B28 70
		as	9			; 0B29 C9
		bnz	L0B81			; 0B2A 94 56
		lr	A, $B			; 0B2C 4B
		ni	$FD			; 0B2D 21 FD
		lr	$B, A			; 0B2F 5B
		lisu	7			; 0B30 67
		lisl	6			; 0B31 6E
		lr	A, D			; 0B32 4E
		ci	6			; 0B33 25 06
		bp	L0B55			; 0B35 81 1F
		lr	A, S			; 0B37 4C
		com				; 0B38 18
		inc				; 0B39 1F
		lisl	1			; 0B3A 69
		as	S			; 0B3B CC
		bp	L0B0B			; 0B3C 81 CE
		lr	A, 8			; 0B3E 48
		ci	6			; 0B3F 25 06
		lr	A, $B			; 0B41 4B
		bm	L0B49			; 0B42 91 06
		oi	$E			; 0B44 22 0E
		lr	$B, A			; 0B46 5B
		br	L0B4E			; 0B47 90 06
L0B49:		oi	$A			; 0B49 22 0A
		lr	$B, A			; 0B4B 5B
		lr	A, 8			; 0B4C 48
		lr	9, A			; 0B4D 59
L0B4E:		lr	A, $A			; 0B4E 4A
		oi	2			; 0B4F 22 02
		lr	$A, A			; 0B51 5A
		jmp	L0BBC			; 0B52 29 0B BC
L0B55:		lr	A, 8			; 0B55 48
		ci	3			; 0B56 25 03
		bp	L0B0B			; 0B58 81 B2
		ci	$A			; 0B5A 25 0A
		bm	L0B0B			; 0B5C 91 AE
		lr	A, $B			; 0B5E 4B
		oi	2			; 0B5F 22 02
		lr	$B, A			; 0B61 5B
		lr	A, 8			; 0B62 48
		ci	6			; 0B63 25 06
		bp	L0B6E			; 0B65 81 08
		pi	L090D			; 0B67 28 09 0D
		lis	2			; 0B6A 72
		ns	$B			; 0B6B FB
		bz	L0BB1			; 0B6C 84 44
L0B6E:		lr	A, 8			; 0B6E 48
		lr	9, A			; 0B6F 59
		lr	A, $B			; 0B70 4B
		oi	8			; 0B71 22 08
		ni	$FE			; 0B73 21 FE
		lr	$B, A			; 0B75 5B
		lr	A, 8			; 0B76 48
		ci	6			; 0B77 25 06
		bp	L0B7F			; 0B79 81 05
		lr	A, $A			; 0B7B 4A
		oi	2			; 0B7C 22 02
		lr	$A, A			; 0B7E 5A
L0B7F:		br	L0BBC			; 0B7F 90 3C
L0B81:		pi	L08FD			; 0B81 28 08 FD
		bnz	L0B8E			; 0B84 94 09
		lr	A, $B			; 0B86 4B
		oi	4			; 0B87 22 04
		ni	$FE			; 0B89 21 FE
		lr	$B, A			; 0B8B 5B
		br	L0BBC			; 0B8C 90 2F
L0B8E:		lr	A, $B			; 0B8E 4B
		oi	1			; 0B8F 22 01
		lr	$B, A			; 0B91 5B
		lr	A, 3			; 0B92 43
		ci	1			; 0B93 25 01
		bp	L0B9A			; 0B95 81 04
		lis	1			; 0B97 71
		br	L0BA0			; 0B98 90 07
L0B9A:		ci	$FE			; 0B9A 25 FE
		bm	L0BA4			; 0B9C 91 07
		li	$FF			; 0B9E 20 FF
L0BA0:		lr	3, A			; 0BA0 53
L0BA1:		jmp	L0A9A			; 0BA1 29 0A 9A
L0BA4:		pi	L08FD			; 0BA4 28 08 FD
		bz	L0BB1			; 0BA7 84 09
		clr				; 0BA9 70
		as	6			; 0BAA C6
		bz	L0BBC			; 0BAB 84 10
		clr				; 0BAD 70
		lr	6, A			; 0BAE 56
		br	L0BA1			; 0BAF 90 F1
L0BB1:		lr	A, 4			; 0BB1 44
		inc				; 0BB2 1F
		lr	4, A			; 0BB3 54
		ci	$C			; 0BB4 25 0C
		bm	L0BBC			; 0BB6 91 05
		jmp	L0AFC			; 0BB8 29 0A FC
;-------------------------------------------------------------------------------
; Scene/state update entry (preliminary)
; Preserve nested return in K, redraw changed objects, update packed state and
; dispatch event sound or phase transitions.
;-------------------------------------------------------------------------------
L0BBB:		lr	K, P			; 0BBB 08
L0BBC:		lis	8			; 0BBC 78
		ns	$B			; 0BBD FB
		bz	L0BC9			; 0BBE 84 0A
		lr	A, $A			; 0BC0 4A
		ni	$F7			; 0BC1 21 F7
		lr	$A, A			; 0BC3 5A
		lisu	2			; 0BC4 62
		lisl	0			; 0BC5 68
		pi	L082C			; 0BC6 28 08 2C
L0BC9:		pi	L0812			; 0BC9 28 08 12
		pi	L082C			; 0BCC 28 08 2C
		li	$58			; 0BCF 20 58
		lr	3, A			; 0BD1 53
		pi	L0812			; 0BD2 28 08 12
		lr	A, I			; 0BD5 4D
		ci	$53			; 0BD6 25 53
		bm	L0BE1			; 0BD8 91 08
		ci	$17			; 0BDA 25 17
		bm	L0BEC			; 0BDC 91 0F
		li	$12			; 0BDE 20 12
		lr	3, A			; 0BE0 53
L0BE1:		lr	A, S			; 0BE1 4C
		lr	4, A			; 0BE2 54
		ds	4			; 0BE3 34
		lis	1			; 0BE4 71
		lr	5, A			; 0BE5 55
		li	$41			; 0BE6 20 41
		lr	2, A			; 0BE8 52
		pi	L083C			; 0BE9 28 08 3C
L0BEC:		li	$80			; 0BEC 20 80
		lr	2, A			; 0BEE 52
		dci	L1331			; 0BEF 2A 13 31
		pi	L08EE			; 0BF2 28 08 EE
		bz	L0BFC			; 0BF5 84 06
		clr				; 0BF7 70
		lr	2, A			; 0BF8 52
		dci	L132F			; 0BF9 2A 13 2F
L0BFC:		clr				; 0BFC 70
		as	0			; 0BFD C0
		bnz	L0C0A			; 0BFE 94 0B
		dci	L132D			; 0C00 2A 13 2D
		lis	8			; 0C03 78
		ns	$B			; 0C04 FB
		bz	L0C0A			; 0C05 84 04
		jmp	L0C96			; 0C07 29 0C 96
L0C0A:		lr	A, 9			; 0C0A 49
		com				; 0C0B 18
		inc				; 0C0C 1F
		as	0			; 0C0D C0
		bnz	L0C13			; 0C0E 94 04
		li	$40			; 0C10 20 40
		lr	2, A			; 0C12 52
L0C13:		lisu	5			; 0C13 65
		lisl	2			; 0C14 6A
		lr	A, I			; 0C15 4D
		lr	3, A			; 0C16 53
		lr	A, S			; 0C17 4C
		lr	4, A			; 0C18 54
		lis	1			; 0C19 71
		ns	$B			; 0C1A FB
		bnz	L0C24			; 0C1B 94 08
		pi	L0812			; 0C1D 28 08 12
		lr	A, 3			; 0C20 43
		lr	I, A			; 0C21 5D
		lr	A, 4			; 0C22 44
		lr	D, A			; 0C23 5E
L0C24:		pi	L0812			; 0C24 28 08 12
		pi	L082F			; 0C27 28 08 2F
		li	$40			; 0C2A 20 40
		ns	$B			; 0C2C FB
		bz	L0C5C			; 0C2D 84 2E
		lisu	7			; 0C2F 67
		lisl	6			; 0C30 6E
		lr	A, S			; 0C31 4C
		ci	6			; 0C32 25 06
		bp	L0C68			; 0C34 81 33
		ci	7			; 0C36 25 07
		bz	L0C44			; 0C38 84 0B
L0C3A:		lr	A, $B			; 0C3A 4B
		oi	6			; 0C3B 22 06
		lr	$B, A			; 0C3D 5B
		br	L0C96			; 0C3E 90 57
		.byte	$5C, $29, $0E, $16	; 0C40
L0C44:		lisu	2			; 0C44 62
		lisl	1			; 0C45 69
		lr	A, S			; 0C46 4C
		ci	$26			; 0C47 25 26
		bm	L0C3A			; 0C49 91 F0
		ci	$1A			; 0C4B 25 1A
		bp	L0C3A			; 0C4D 81 EC
		lisu	2			; 0C4F 62
		lisl	0			; 0C50 68
		lr	A, S			; 0C51 4C
		ci	$32			; 0C52 25 32
		lis	$B			; 0C54 7B
		bm	L0C58			; 0C55 91 02
		lis	3			; 0C57 73
L0C58:		lr	9, A			; 0C58 59
		jmp	L0D1C			; 0C59 29 0D 1C
L0C5C:		li	$10			; 0C5C 20 10
		ns	$B			; 0C5E FB
		bz	L0C96			; 0C5F 84 36
		lisu	7			; 0C61 67
		lisl	6			; 0C62 6E
		lr	A, S			; 0C63 4C
		ci	6			; 0C64 25 06
		bm	L0C3A			; 0C66 91 D3
L0C68:		li	$10			; 0C68 20 10
		ns	$A			; 0C6A FA
		bnz	L0C93			; 0C6B 94 27
L0C6D:		dci	L137A			; 0C6D 2A 13 7A
		pi	L088E			; 0C70 28 08 8E
		lis	1			; 0C73 71
		ns	$A			; 0C74 FA
		lisu	6			; 0C75 66
		lisl	1			; 0C76 69
		lr	A, S			; 0C77 4C
		bz	L0C87			; 0C78 84 0E
		ci	$26			; 0C7A 25 26
		bp	L0C82			; 0C7C 81 05
		ai	$F6			; 0C7E 24 F6
		br	L0C92			; 0C80 90 11
L0C82:		ai	$12			; 0C82 24 12
		sr	1			; 0C84 12
		br	L0C92			; 0C85 90 0C
L0C87:		ci	$44			; 0C87 25 44
		bm	L0C8F			; 0C89 91 05
		ai	$A			; 0C8B 24 0A
		br	L0C92			; 0C8D 90 04
L0C8F:		ai	$58			; 0C8F 24 58
		sr	1			; 0C91 12
L0C92:		lr	S, A			; 0C92 5C
L0C93:		jmp	L0E68			; 0C93 29 0E 68
;-------------------------------------------------------------------------------
; play_short_beep_and_update_state (confirmed sound section)
; Select delay data through L1251, wait, pulse $40 (1 kHz) then $00 on port 5.
; The following path continues into event/state processing when required.
;-------------------------------------------------------------------------------
L0C96:		nop				; 0C96 2B
		dci	L1251			; 0C97 2A 12 51
		lisu	7			; 0C9A 67
		lisl	2			; 0C9B 6A
		lr	A, S			; 0C9C 4C
		adc				; 0C9D 8E
		adc				; 0C9E 8E
		lm				; 0C9F 16
		lr	5, A			; 0CA0 55
		lm				; 0CA1 16
L0CA2:		inc				; 0CA2 1F
		bnz	L0CA2			; 0CA3 94 FE
		ds	5			; 0CA5 35
		bnz	L0CA2			; 0CA6 94 FB
		li	$40			; 0CA8 20 40
		outs	5			; 0CAA B5
		clr				; 0CAB 70
		outs	5			; 0CAC B5
		lis	4			; 0CAD 74
		ns	$B			; 0CAE FB
		bnz	L0CB2			; 0CAF 94 02
		pk				; 0CB1 0C
L0CB2:		dci	L1381			; 0CB2 2A 13 81
		pi	L088E			; 0CB5 28 08 8E
		li	$10			; 0CB8 20 10
		as	9			; 0CBA C9
		as	9			; 0CBB C9
		lr	IS, A			; 0CBC 0B
		lr	A, S			; 0CBD 4C
		lisu	6			; 0CBE 66
		lisl	1			; 0CBF 69
		inc				; 0CC0 1F
		lr	S, A			; 0CC1 5C
		lr	A, $B			; 0CC2 4B
		ni	$FB			; 0CC3 21 FB
		lr	$B, A			; 0CC5 5B
		lis	1			; 0CC6 71
		ns	$A			; 0CC7 FA
		bz	L0CCD			; 0CC8 84 04
		lis	4			; 0CCA 74
		as	$B			; 0CCB CB
		lr	$B, A			; 0CCC 5B
L0CCD:		lis	2			; 0CCD 72
		ns	$A			; 0CCE FA
		bz	L0CD4			; 0CCF 84 04
		lis	4			; 0CD1 74
		xs	$B			; 0CD2 EB
		lr	$B, A			; 0CD3 5B
L0CD4:		lis	4			; 0CD4 74
		ns	$B			; 0CD5 FB
		bz	L0CF9			; 0CD6 84 22
		lr	A, S			; 0CD8 4C
		ci	$58			; 0CD9 25 58
		bm	L0D13			; 0CDB 91 37
		ci	$11			; 0CDD 25 11
		bm	L0CE8			; 0CDF 91 08
		lis	2			; 0CE1 72
		ns	$A			; 0CE2 FA
		bz	L0CF2			; 0CE3 84 0E
		li	$21			; 0CE5 20 21
L0CE7:		lr	S, A			; 0CE7 5C
L0CE8:		lis	2			; 0CE8 72
		ns	$A			; 0CE9 FA
		bnz	L0CEF			; 0CEA 94 04
		jmp	L0E68			; 0CEC 29 0E 68
L0CEF:		jmp	L0E16			; 0CEF 29 0E 16
L0CF2:		li	$49			; 0CF2 20 49
		lr	S, A			; 0CF4 5C
		lis	2			; 0CF5 72
L0CF6:		lr	9, A			; 0CF6 59
		br	L0D27			; 0CF7 90 2F
L0CF9:		ds	S			; 0CF9 3C
		ds	S			; 0CFA 3C
		lr	A, S			; 0CFB 4C
		ci	$11			; 0CFC 25 11
		bp	L0D10			; 0CFE 81 11
		ci	$58			; 0D00 25 58
		bp	L0CE7			; 0D02 81 E4
		lis	2			; 0D04 72
		ns	$A			; 0D05 FA
		li	$49			; 0D06 20 49
		bnz	L0CE7			; 0D08 94 DE
		li	$21			; 0D0A 20 21
		lr	S, A			; 0D0C 5C
		lis	$A			; 0D0D 7A
		br	L0CF6			; 0D0E 90 E7
L0D10:		lis	7			; 0D10 77
		br	L0D14			; 0D11 90 02
L0D13:		lis	$F			; 0D13 7F
L0D14:		lr	9, A			; 0D14 59
		lis	2			; 0D15 72
		ns	$A			; 0D16 FA
		bz	L0D1C			; 0D17 84 04
		lis	1			; 0D19 71
		xs	$A			; 0D1A EA
		lr	$A, A			; 0D1B 5A
L0D1C:		lis	8			; 0D1C 78
		ns	9			; 0D1D F9
		lisu	6			; 0D1E 66
		lisl	1			; 0D1F 69
		li	$49			; 0D20 20 49
		bnz	L0D26			; 0D22 94 03
		li	$21			; 0D24 20 21
L0D26:		lr	S, A			; 0D26 5C
L0D27:		dci	L13CF			; 0D27 2A 13 CF
		pi	L088E			; 0D2A 28 08 8E
		jmp	L0E18			; 0D2D 29 0E 18
;-------------------------------------------------------------------------------
; direction_from_coordinate_delta (strongly likely)
; Compare coordinate pair r9 with pair r0, form absolute X/Y differences and
; encode horizontal direction as 1/2 and vertical direction as 4/8 in r4.
;-------------------------------------------------------------------------------
L0D30:		li	$10			; 0D30 20 10
		as	9			; 0D32 C9
		as	9			; 0D33 C9
		lr	IS, A			; 0D34 0B
		lr	A, I			; 0D35 4D
		lr	5, A			; 0D36 55
		lr	A, S			; 0D37 4C
		lr	6, A			; 0D38 56
		li	$10			; 0D39 20 10
		as	0			; 0D3B C0
		as	0			; 0D3C C0
		lr	IS, A			; 0D3D 0B
		lr	A, I			; 0D3E 4D
		com				; 0D3F 18
		inc				; 0D40 1F
		as	5			; 0D41 C5
		lr	5, A			; 0D42 55
		bp	L0D47			; 0D43 81 03
		com				; 0D45 18
		inc				; 0D46 1F
L0D47:		lr	4, A			; 0D47 54
		lr	A, S			; 0D48 4C
		com				; 0D49 18
		inc				; 0D4A 1F
		as	6			; 0D4B C6
		lr	6, A			; 0D4C 56
		bp	L0D51			; 0D4D 81 03
		com				; 0D4F 18
		inc				; 0D50 1F
L0D51:		lr	3, A			; 0D51 53
		com				; 0D52 18
		inc				; 0D53 1F
		as	4			; 0D54 C4
		clr				; 0D55 70
		bm	L0D5F			; 0D56 91 08
		as	5			; 0D58 C5
		lis	1			; 0D59 71
		bp	L0D5D			; 0D5A 81 02
		lis	2			; 0D5C 72
L0D5D:		br	L0D64			; 0D5D 90 06
L0D5F:		as	6			; 0D5F C6
		lis	4			; 0D60 74
		bp	L0D64			; 0D61 81 02
		lis	8			; 0D63 78
L0D64:		lr	4, A			; 0D64 54
		br	L0D83			; 0D65 90 1D
L0D67:		li	$10			; 0D67 20 10
		as	0			; 0D69 C0
		as	0			; 0D6A C0
		lr	IS, A			; 0D6B 0B
		lr	A, I			; 0D6C 4D
		com				; 0D6D 18
		inc				; 0D6E 1F
		as	5			; 0D6F C5
		bz	L0D76			; 0D70 84 05
		lis	2			; 0D72 72
		bm	L0D76			; 0D73 91 02
		lis	1			; 0D75 71
L0D76:		lr	4, A			; 0D76 54
		lr	A, S			; 0D77 4C
		com				; 0D78 18
		inc				; 0D79 1F
		as	6			; 0D7A C6
		bz	L0D81			; 0D7B 84 05
		lis	8			; 0D7D 78
		bm	L0D81			; 0D7E 91 02
		lis	4			; 0D80 74
L0D81:		as	4			; 0D81 C4
		lr	4, A			; 0D82 54
L0D83:		jmp	L0A24			; 0D83 29 0A 24
;-------------------------------------------------------------------------------
; choose_direction_step (strongly likely)
; Produce small signed steps, normally 0, 4 or $FC (-4), from side, state and
; current object coordinates; continue through the direction decoder.
;-------------------------------------------------------------------------------
L0D86:		clr				; 0D86 70
		lr	5, A			; 0D87 55
		lr	6, A			; 0D88 56
		as	2			; 0D89 C2
		ci	0			; 0D8A 25 00
		bnz	L0D98			; 0D8C 94 0B
		lis	1			; 0D8E 71
		ns	$A			; 0D8F FA
		lis	4			; 0D90 74
		bnz	L0D95			; 0D91 94 03
		li	$FC			; 0D93 20 FC
L0D95:		lr	5, A			; 0D95 55
		br	L0DA6			; 0D96 90 0F
L0D98:		li	$11			; 0D98 20 11
		as	7			; 0D9A C7
		as	7			; 0D9B C7
		lr	IS, A			; 0D9C 0B
		lr	A, S			; 0D9D 4C
		ci	$23			; 0D9E 25 23
		li	$FC			; 0DA0 20 FC
		bm	L0DA5			; 0DA2 91 02
		lis	4			; 0DA4 74
L0DA5:		lr	6, A			; 0DA5 56
L0DA6:		li	$10			; 0DA6 20 10
		as	7			; 0DA8 C7
		as	7			; 0DA9 C7
		lr	IS, A			; 0DAA 0B
		lr	A, I			; 0DAB 4D
		as	5			; 0DAC C5
		lr	5, A			; 0DAD 55
		lr	A, S			; 0DAE 4C
		as	6			; 0DAF C6
		lr	6, A			; 0DB0 56
		br	L0D67			; 0DB1 90 B5
;-------------------------------------------------------------------------------
; lookup_state_table_125d (strongly likely)
; Replace the current scratchpad state through L125D and choose r0=6 or 12 from
; ISAR parity before entering the nested update worker.
;-------------------------------------------------------------------------------
L0DB3:		dci	L125D			; 0DB3 2A 12 5D
		lr	A, S			; 0DB6 4C
		adc				; 0DB7 8E
		lm				; 0DB8 16
		lr	S, A			; 0DB9 5C
		lr	A, IS			; 0DBA 0A
		ni	1			; 0DBB 21 01
		lis	$C			; 0DBD 7C
		bnz	L0DC1			; 0DBE 94 02
		lis	6			; 0DC0 76
L0DC1:		lr	0, A			; 0DC1 50
		lisu	6			; 0DC2 66
		lisl	7			; 0DC3 6F
		clr				; 0DC4 70
		lr	S, A			; 0DC5 5C
; nested_state_update (strongly likely)
; Save the caller return from K in Q, process state/formation tables L1313 or
; L12FB, and return explicitly with LR P0,Q at L0E15.
L0DC6:		lr	K, P			; 0DC6 08
		lr	A, KU			; 0DC7 00
		lr	QU, A			; 0DC8 06
		lr	A, KL			; 0DC9 01
		lr	QL, A			; 0DCA 07
L0DCB:		dci	L1313			; 0DCB 2A 13 13
		lisu	6			; 0DCE 66
		lisl	1			; 0DCF 69
		lr	A, S			; 0DD0 4C
		lr	6, A			; 0DD1 56
		lisu	6			; 0DD2 66
		lisl	7			; 0DD3 6F
		lis	4			; 0DD4 74
		ns	S			; 0DD5 FC
		bz	L0DEB			; 0DD6 84 14
		dci	L12FB			; 0DD8 2A 12 FB
		lr	A, 0			; 0DDB 40
		ci	6			; 0DDC 25 06
		bm	L0DEB			; 0DDE 91 0C
		lis	$C			; 0DE0 7C
		adc				; 0DE1 8E
		lis	1			; 0DE2 71
		ns	$A			; 0DE3 FA
		li	$F6			; 0DE4 20 F6
		bnz	L0DE9			; 0DE6 94 02
		lis	$A			; 0DE8 7A
L0DE9:		as	6			; 0DE9 C6
		lr	6, A			; 0DEA 56
L0DEB:		lisu	5			; 0DEB 65
		lisl	3			; 0DEC 6B
		lr	A, 0			; 0DED 40
		adc				; 0DEE 8E
		adc				; 0DEF 8E
		lm				; 0DF0 16
		lr	D, A			; 0DF1 5E
		pi	L08EE			; 0DF2 28 08 EE
		lm				; 0DF5 16
		bz	L0DFA			; 0DF6 84 03
		com				; 0DF8 18
		inc				; 0DF9 1F
L0DFA:		as	6			; 0DFA C6
L0DFB:		lr	S, A			; 0DFB 5C
		ci	$C			; 0DFC 25 0C
		bp	L0E06			; 0DFE 81 07
		ci	$5E			; 0E00 25 5E
		bp	L0E09			; 0E02 81 06
		ai	$FE			; 0E04 24 FE
L0E06:		inc				; 0E06 1F
		br	L0DFB			; 0E07 90 F3
L0E09:		clr				; 0E09 70
		lr	$B, A			; 0E0A 5B
		pi	L0BBB			; 0E0B 28 0B BB
		ds	0			; 0E0E 30
		bz	L0E15			; 0E0F 84 05
		lis	6			; 0E11 76
		xs	0			; 0E12 E0
		bnz	L0DCB			; 0E13 94 B7
L0E15:		lr	P0, Q			; 0E15 0D
;-------------------------------------------------------------------------------
; start_round_or_screen (strongly likely)
; Reset phase-local state, toggle r10 bit 0, draw fixed screen components, and
; initialize players/objects for the next side or round.
;-------------------------------------------------------------------------------
L0E16:		clr				; 0E16 70
		lr	9, A			; 0E17 59
L0E18:		lis	1			; 0E18 71
		xs	$A			; 0E19 EA
		lr	$A, A			; 0E1A 5A
		lisu	6			; 0E1B 66
		lisl	0			; 0E1C 68
		clr				; 0E1D 70
		lr	S, A			; 0E1E 5C
; draw_fixed_screen_element: render parameter block L135F through L0820.
L0E1F:		dci	L135F			; 0E1F 2A 13 5F
		pi	L0820			; 0E22 28 08 20
L0E25:		lisu	5			; 0E25 65
		lisl	6			; 0E26 6E
		li	$12			; 0E27 20 12
		lr	4, A			; 0E29 54
		li	$1B			; 0E2A 20 1B
		lr	3, A			; 0E2C 53
		clr				; 0E2D 70
		lr	2, A			; 0E2E 52
L0E2F:		lr	A, S			; 0E2F 4C
		sr	4			; 0E30 14
		lr	1, A			; 0E31 51
		pi	L0840			; 0E32 28 08 40
		lr	A, I			; 0E35 4D
		sl	4			; 0E36 15
		sr	4			; 0E37 14
		lr	1, A			; 0E38 51
		lis	5			; 0E39 75
		as	3			; 0E3A C3
		lr	3, A			; 0E3B 53
		pi	L0840			; 0E3C 28 08 40
		li	$43			; 0E3F 20 43
		lr	3, A			; 0E41 53
		li	$80			; 0E42 20 80
		lr	2, A			; 0E44 52
		lr	A, IS			; 0E45 0A
		ci	$2F			; 0E46 25 2F
		bz	L0E2F			; 0E48 84 E6
		lis	7			; 0E4A 77
		ns	9			; 0E4B F9
		bz	L0E60			; 0E4C 84 13
		ds	9			; 0E4E 39
		lis	8			; 0E4F 78
		ns	9			; 0E50 F9
		lisl	6			; 0E51 6E
		bnz	L0E55			; 0E52 94 02
		lr	A, I			; 0E54 4D
L0E55:		li	$67			; 0E55 20 67
		outs	5			; 0E57 B5
		lr	5, A			; 0E58 55
		asd	S			; 0E59 DC
		lr	S, A			; 0E5A 5C
		pi	L0818			; 0E5B 28 08 18
		br	L0E25			; 0E5E 90 C6
L0E60:		lis	2			; 0E60 72
		lr	4, A			; 0E61 54
L0E62:		pi	L0818			; 0E62 28 08 18
		ds	4			; 0E65 34
		bnz	L0E62			; 0E66 94 FB
;-------------------------------------------------------------------------------
; advance_init_phase (confirmed counter behavior)
; Increment O60 and repeat initialization while the phase value is below four.
; After phase four, build the field and initialize active play state.
;-------------------------------------------------------------------------------
L0E68:		lisu	6			; 0E68 66
		lisl	0			; 0E69 68
		lr	A, S			; 0E6A 4C
		inc				; 0E6B 1F
		lr	S, A			; 0E6C 5C
		ci	4			; 0E6D 25 04
		bm	L0E16			; 0E6F 91 A6
		lis	2			; 0E71 72
		lr	4, A			; 0E72 54
L0E73:		pi	L0818			; 0E73 28 08 18
		ds	4			; 0E76 34
		bnz	L0E73			; 0E77 94 FB
		lisu	2			; 0E79 62
		lisl	0			; 0E7A 68
		pi	L082C			; 0E7B 28 08 2C
		dci	L1333			; 0E7E 2A 13 33
		lis	8			; 0E81 78
		lr	8, A			; 0E82 58
L0E83:		pi	L0820			; 0E83 28 08 20
		ds	8			; 0E86 38
		bnz	L0E83			; 0E87 94 FB
L0E89:		lis	$D			; 0E89 7D
		lr	4, A			; 0E8A 54
		lis	2			; 0E8B 72
		lr	6, A			; 0E8C 56
		pi	L084A			; 0E8D 28 08 4A
		li	$37			; 0E90 20 37
		lr	4, A			; 0E92 54
		lis	2			; 0E93 72
		lr	6, A			; 0E94 56
		pi	L084A			; 0E95 28 08 4A
		lis	7			; 0E98 77
		as	3			; 0E99 C3
		lr	3, A			; 0E9A 53
		ci	$55			; 0E9B 25 55
		bp	L0E89			; 0E9D 81 EB
		lis	2			; 0E9F 72
		lr	9, A			; 0EA0 59
		lr	A, $A			; 0EA1 4A
		ni	$C5			; 0EA2 21 C5
		lr	$A, A			; 0EA4 5A
		lisu	6			; 0EA5 66
		lisl	1			; 0EA6 69
		lr	A, D			; 0EA7 4E
		lr	3, A			; 0EA8 53
		ds	3			; 0EA9 33
		lis	7			; 0EAA 77
		lr	4, A			; 0EAB 54
		lis	1			; 0EAC 71
		ns	$A			; 0EAD FA
		lr	$A, A			; 0EAE 5A
		clr				; 0EAF 70
		bnz	L0EB4			; 0EB0 94 03
		li	$80			; 0EB2 20 80
L0EB4:		lr	2, A			; 0EB4 52
		lr	A, S			; 0EB5 4C
		lr	1, A			; 0EB6 51
		pi	L0840			; 0EB7 28 08 40
		pi	L09C4			; 0EBA 28 09 C4
		clr				; 0EBD 70
		as	S			; 0EBE CC
		bnz	L0ED1			; 0EBF 94 11
		li	$F0			; 0EC1 20 F0
		lr	S, A			; 0EC3 5C
		dci	L1392			; 0EC4 2A 13 92
		pi	L088E			; 0EC7 28 08 8E
		lisl	0			; 0ECA 68
		ds	S			; 0ECB 3C
		clr				; 0ECC 70
		lr	9, A			; 0ECD 59
		jmp	L0E1F			; 0ECE 29 0E 1F
L0ED1:		lisu	2			; 0ED1 62
		lisl	0			; 0ED2 68
L0ED3:		lis	4			; 0ED3 74
		lr	S, A			; 0ED4 5C
		lr	A, IS			; 0ED5 0A
		inc				; 0ED6 1F
		lr	IS, A			; 0ED7 0B
		ci	$2A			; 0ED8 25 2A
		bnz	L0ED3			; 0EDA 94 F8
		lis	$C			; 0EDC 7C
		lr	0, A			; 0EDD 50
		lisu	6			; 0EDE 66
		lisl	7			; 0EDF 6F
		lis	4			; 0EE0 74
		lr	S, A			; 0EE1 5C
		pi	L0DC6			; 0EE2 28 0D C6
		pi	L0DC6			; 0EE5 28 0D C6
		lisu	7			; 0EE8 67
		lisl	6			; 0EE9 6E
		li	$C0			; 0EEA 20 C0
		lr	I, A			; 0EEC 5D
		lr	D, A			; 0EED 5E
		lisu	2			; 0EEE 62
		lisl	0			; 0EEF 68
		li	$60			; 0EF0 20 60
		lr	S, A			; 0EF2 5C
;-------------------------------------------------------------------------------
; main_game_loop (strongly likely)
; Alternate controller sources, debounce console input, update active objects,
; evaluate state transitions and invoke the table-driven update worker.
;-------------------------------------------------------------------------------
L0EF3:		lisu	7			; 0EF3 67
		lisl	6			; 0EF4 6E
L0EF5:		li	$B0			; 0EF5 20 B0
L0EF7:		inc				; 0EF7 1F
		bnz	L0EF7			; 0EF8 94 FE
		lis	1			; 0EFA 71
		lr	4, A			; 0EFB 54
L0EFC:		lr	A, IS			; 0EFC 0A
		xi	1			; 0EFD 23 01
		lr	IS, A			; 0EFF 0B
		lr	A, IS			; 0F00 0A
		lr	7, A			; 0F01 57
		ni	1			; 0F02 21 01
		bnz	L0F0B			; 0F04 94 06
		pi	L08B0			; 0F06 28 08 B0
		br	L0F0E			; 0F09 90 04
L0F0B:		pi	L08C1			; 0F0B 28 08 C1
L0F0E:		lr	A, D			; 0F0E 4E
		lr	6, A			; 0F0F 56
		clr				; 0F10 70
		as	S			; 0F11 CC
		bnz	L0F22			; 0F12 94 0F
		lis	5			; 0F14 75
		lr	5, A			; 0F15 55
		ins	0			; 0F16 A0
		com				; 0F17 18
		ni	$F			; 0F18 21 0F
		bz	L0F22			; 0F1A 84 07
L0F1C:		ds	5			; 0F1C 35
		sr	1			; 0F1D 12
		bnz	L0F1C			; 0F1E 94 FD
		lr	A, 5			; 0F20 45
		lr	S, A			; 0F21 5C
L0F22:		lr	A, 7			; 0F22 47
		lr	IS, A			; 0F23 0B
		lr	A, S			; 0F24 4C
		ni	$C0			; 0F25 21 C0
		bnz	L0F33			; 0F27 94 0B
		ds	4			; 0F29 34
		bnz	L0F8E			; 0F2A 94 63
		li	$CE			; 0F2C 20 CE
L0F2E:		inc				; 0F2E 1F
		bnz	L0F2E			; 0F2F 94 FE
		br	L0EFC			; 0F31 90 CA
L0F33:		lisu	7			; 0F33 67
		lisl	4			; 0F34 6C
		ds	S			; 0F35 3C
		clr				; 0F36 70
		lisu	2			; 0F37 62
		lisl	0			; 0F38 68
		as	S			; 0F39 CC
		bnz	L0F52			; 0F3A 94 17
		lr	A, 7			; 0F3C 47
		lr	IS, A			; 0F3D 0B
		ni	1			; 0F3E 21 01
		bz	L0F49			; 0F40 84 08
		lr	A, D			; 0F42 4E
		li	$C0			; 0F43 20 C0
		ns	S			; 0F45 FC
		lr	A, I			; 0F46 4D
		bnz	L0EF5			; 0F47 94 AD
L0F49:		lr	A, S			; 0F49 4C
		ni	$C0			; 0F4A 21 C0
		bz	L0EF5			; 0F4C 84 A8
		clr				; 0F4E 70
		lr	S, A			; 0F4F 5C
		br	L0F82			; 0F50 90 31
L0F52:		lisu	2			; 0F52 62
		lisl	1			; 0F53 69
		ds	D			; 0F54 3E
		bnz	L0F58			; 0F55 94 02
		ds	D			; 0F57 3E
L0F58:		lr	A, 7			; 0F58 47
		lr	IS, A			; 0F59 0B
		lr	A, 6			; 0F5A 46
		ni	$30			; 0F5B 21 30
		bnz	L0F64			; 0F5D 94 06
L0F5F:		lis	$F			; 0F5F 7F
		ns	6			; 0F60 F6
		ai	$C0			; 0F61 24 C0
		lr	S, A			; 0F63 5C
L0F64:		lr	A, 6			; 0F64 46
		com				; 0F65 18
		inc				; 0F66 1F
		as	S			; 0F67 CC
		ni	$F			; 0F68 21 0F
		bnz	L0F5F			; 0F6A 94 F4
		lr	A, S			; 0F6C 4C
		ai	$C0			; 0F6D 24 C0
		lr	S, A			; 0F6F 5C
		ni	$C0			; 0F70 21 C0
		bz	L0F77			; 0F72 84 04
		jmp	L0EF5			; 0F74 29 0E F5
L0F77:		lr	A, IS			; 0F77 0A
		ci	$3E			; 0F78 25 3E
		bnz	L0F82			; 0F7A 94 07
		lisu	2			; 0F7C 62
		lisl	0			; 0F7D 68
		lis	3			; 0F7E 73
		lr	S, A			; 0F7F 5C
		lr	A, 7			; 0F80 47
		lr	IS, A			; 0F81 0B
L0F82:		pi	L0DB3			; 0F82 28 0D B3
		lis	6			; 0F85 76
		as	0			; 0F86 C0
		lr	0, A			; 0F87 50
		pi	L0DC6			; 0F88 28 0D C6
		jmp	L0EF3			; 0F8B 29 0E F3
;-------------------------------------------------------------------------------
; Timed game-event handling and extended collision checks (strongly likely).
; Initializes O20, waits for controller activity or timeout, updates event flags
; and object state, then dispatches sound/scene handling.
;-------------------------------------------------------------------------------
L0F8E:		clr				; 0F8E 70
		lr	5, A			; 0F8F 55
		lisu	7			; 0F90 67
		lisl	2			; 0F91 6A
		as	S			; 0F92 CC
		bnz	L0F97			; 0F93 94 03
		lis	5			; 0F95 75
		lr	S, A			; 0F96 5C
L0F97:		lisu	2			; 0F97 62
		lisl	0			; 0F98 68
		li	$B0			; 0F99 20 B0
		lr	S, A			; 0F9B 5C
		pi	L0818			; 0F9C 28 08 18
L0F9F:		lisu	2			; 0F9F 62
		lisl	1			; 0FA0 69
		ds	D			; 0FA1 3E
		bnz	L0FAD			; 0FA2 94 0A
		ds	S			; 0FA4 3C
		bnz	L0FAD			; 0FA5 94 07
		lisu	6			; 0FA7 66
		lisl	0			; 0FA8 68
		ds	S			; 0FA9 3C
		jmp	L0C6D			; 0FAA 29 0C 6D
L0FAD:		pi	L08B0			; 0FAD 28 08 B0
		bz	L0F9F			; 0FB0 84 EE
		lisl	5			; 0FB2 6D
		lis	2			; 0FB3 72
		lr	S, A			; 0FB4 5C
		lisu	7			; 0FB5 67
		lisl	7			; 0FB6 6F
		clr				; 0FB7 70
		as	S			; 0FB8 CC
		bnz	L0FBF			; 0FB9 94 05
		lr	A, $A			; 0FBB 4A
		oi	$40			; 0FBC 22 40
		lr	$A, A			; 0FBE 5A
L0FBF:		lis	3			; 0FBF 73
		lr	9, A			; 0FC0 59
		lisu	5			; 0FC1 65
		lisl	4			; 0FC2 6C
		li	$11			; 0FC3 20 11
		lr	I, A			; 0FC5 5D
		clr				; 0FC6 70
		lr	S, A			; 0FC7 5C
		lisu	7			; 0FC8 67
		lisl	1			; 0FC9 69
		li	$77			; 0FCA 20 77
		lr	S, A			; 0FCC 5C
L0FCD:		li	$FD			; 0FCD 20 FD
		lr	6, A			; 0FCF 56
		lis	2			; 0FD0 72
		lr	5, A			; 0FD1 55
		lisu	6			; 0FD2 66
		lisl	1			; 0FD3 69
		lr	A, S			; 0FD4 4C
		com				; 0FD5 18
		inc				; 0FD6 1F
		lisu	2			; 0FD7 62
		lisl	6			; 0FD8 6E
		as	S			; 0FD9 CC
		bz	L0FE9			; 0FDA 84 0E
		bp	L0FDF			; 0FDC 81 02
		ds	5			; 0FDE 35
L0FDF:		lis	1			; 0FDF 71
		ns	$A			; 0FE0 FA
		bz	L0FE6			; 0FE1 84 04
		ds	5			; 0FE3 35
		lis	3			; 0FE4 73
		lr	6, A			; 0FE5 56
L0FE6:		ds	5			; 0FE6 35
		bnz	L0FEF			; 0FE7 94 07
L0FE9:		lr	A, $A			; 0FE9 4A
		oi	$20			; 0FEA 22 20
		lr	$A, A			; 0FEC 5A
		br	L1035			; 0FED 90 47
L0FEF:		lisu	7			; 0FEF 67
		lisl	4			; 0FF0 6C
		lr	A, I			; 0FF1 4D
		sr	4			; 0FF2 14
		sr	1			; 0FF3 12
		ai	$11			; 0FF4 24 11
		com				; 0FF6 18
		as	S			; 0FF7 CC
		bnz	L1035			; 0FF8 94 3C
		lis	3			; 0FFA 73
		xs	9			; 0FFB E9
		bnz	L1035			; 0FFC 94 38
		lisl	6			; 0FFE 6E
		lis	4			; 0FFF 74
		xs	S			; 1000 EC
		bz	L1035			; 1001 84 33
		lis	5			; 1003 75
		xs	S			; 1004 EC
		bz	L1035			; 1005 84 2F
		lisu	4			; 1007 64
		lisl	7			; 1008 6F
		lr	A, S			; 1009 4C
		ci	$19			; 100A 25 19
		bp	L1035			; 100C 81 28
		lisu	5			; 100E 65
		lisl	1			; 100F 69
		lr	A, S			; 1010 4C
		ci	$23			; 1011 25 23
		bm	L1035			; 1013 91 21
		lisu	2			; 1015 62
		lisl	2			; 1016 6A
		lr	A, S			; 1017 4C
		as	6			; 1018 C6
		lr	S, A			; 1019 5C
		lisl	4			; 101A 6C
		lr	S, A			; 101B 5C
		lr	A, 6			; 101C 46
		com				; 101D 18
		inc				; 101E 1F
		lr	6, A			; 101F 56
		lisu	4			; 1020 64
		lisl	6			; 1021 6E
		as	S			; 1022 CC
		lr	S, A			; 1023 5C
		lisu	5			; 1024 65
		lisl	0			; 1025 68
		lr	A, 6			; 1026 46
		as	S			; 1027 CC
		lr	S, A			; 1028 5C
		lisu	6			; 1029 66
		lisl	1			; 102A 69
		lr	A, S			; 102B 4C
		ai	$FC			; 102C 24 FC
		lr	3, A			; 102E 53
		dci	L135B			; 102F 2A 13 5B
		pi	L0822			; 1032 28 08 22
;-------------------------------------------------------------------------------
; Repositioning and formation/zone tests (strongly likely).
; Copies coordinate state, evaluates object zones and finds minimum distances
; against object records O30-O33. r10 bit 4 records the proximity condition.
;-------------------------------------------------------------------------------
L1035:		pi	L08B0			; 1035 28 08 B0
		lis	8			; 1038 78
		ns	$A			; 1039 FA
		bnz	L10B9			; 103A 94 7E
		lisu	2			; 103C 62
		lisl	6			; 103D 6E
		lr	A, I			; 103E 4D
		lr	7, A			; 103F 57
		lr	A, I			; 1040 4D
		lisu	2			; 1041 62
		lisl	1			; 1042 69
		lr	D, A			; 1043 5E
		lr	A, 7			; 1044 47
		lr	S, A			; 1045 5C
		li	$20			; 1046 20 20
		ns	$A			; 1048 FA
		bz	L104E			; 1049 84 04
L104B:		jmp	L10E0			; 104B 29 10 E0
L104E:		lisu	7			; 104E 67
		lisl	3			; 104F 6B
		as	S			; 1050 CC
		bp	L104B			; 1051 81 F9
		lis	3			; 1053 73
		xs	9			; 1054 E9
		bnz	L104B			; 1055 94 F5
		lr	9, A			; 1057 59
		lis	8			; 1058 78
		as	$A			; 1059 CA
		lr	$A, A			; 105A 5A
		lisl	6			; 105B 6E
		lr	A, S			; 105C 4C
		ci	6			; 105D 25 06
		bp	L1096			; 105F 81 36
		lr	A, $A			; 1061 4A
		oi	2			; 1062 22 02
		lr	$A, A			; 1064 5A
		lisl	4			; 1065 6C
		lr	A, I			; 1066 4D
		sr	4			; 1067 14
		sr	1			; 1068 12
		ai	$A			; 1069 24 0A
		as	S			; 106B CC
		lisl	1			; 106C 69
		lr	S, A			; 106D 5C
		lisl	6			; 106E 6E
		lis	7			; 106F 77
		xs	S			; 1070 EC
		bnz	L1096			; 1071 94 24
		lisl	1			; 1073 69
		lr	A, S			; 1074 4C
		ai	$FD			; 1075 24 FD
		lr	S, A			; 1077 5C
		lis	1			; 1078 71
		ns	$A			; 1079 FA
		lisu	2			; 107A 62
		lisl	0			; 107B 68
		bnz	L1083			; 107C 94 06
		li	$F6			; 107E 20 F6
		as	S			; 1080 CC
		br	L1087			; 1081 90 05
L1083:		lr	A, S			; 1083 4C
		com				; 1084 18
		ai	$61			; 1085 24 61
L1087:		lr	5, A			; 1087 55
		lisu	7			; 1088 67
		lisl	4			; 1089 6C
		li	$3F			; 108A 20 3F
		ns	D			; 108C FE
		as	5			; 108D C5
		ci	$39			; 108E 25 39
		clr				; 1090 70
		bp	L1095			; 1091 81 03
		li	$20			; 1093 20 20
L1095:		lr	S, A			; 1095 5C
L1096:		lr	A, $A			; 1096 4A
		oi	$40			; 1097 22 40
		lr	$A, A			; 1099 5A
		lisu	7			; 109A 67
		lisl	3			; 109B 6B
		li	$10			; 109C 20 10
		ns	S			; 109E FC
		lis	6			; 109F 76
		bnz	L10A9			; 10A0 94 08
		li	$20			; 10A2 20 20
		ns	S			; 10A4 FC
		lis	$A			; 10A5 7A
		bnz	L10A9			; 10A6 94 02
		lis	2			; 10A8 72
L10A9:		lr	7, A			; 10A9 57
		lis	1			; 10AA 71
		ns	$A			; 10AB FA
		bz	L10B5			; 10AC 84 08
		li	$30			; 10AE 20 30
		ns	S			; 10B0 FC
		lis	$F			; 10B1 7F
		bnz	L10B5			; 10B2 94 02
		lis	3			; 10B4 73
L10B5:		lisu	6			; 10B5 66
		lisl	7			; 10B6 6F
		xs	7			; 10B7 E7
		lr	S, A			; 10B8 5C
L10B9:		lisu	2			; 10B9 62
		lisl	0			; 10BA 68
		lr	A, I			; 10BB 4D
		com				; 10BC 18
		inc				; 10BD 1F
		lr	4, A			; 10BE 54
		lr	A, D			; 10BF 4E
		com				; 10C0 18
		inc				; 10C1 1F
		lr	5, A			; 10C2 55
		lisu	3			; 10C3 63
		lisl	0			; 10C4 68
L10C5:		lr	A, I			; 10C5 4D
		as	4			; 10C6 C4
		bp	L10CB			; 10C7 81 03
		com				; 10C9 18
		inc				; 10CA 1F
L10CB:		lr	2, A			; 10CB 52
		lr	A, I			; 10CC 4D
		as	5			; 10CD C5
		bp	L10D2			; 10CE 81 03
		com				; 10D0 18
		inc				; 10D1 1F
L10D2:		as	2			; 10D2 C2
		ci	$F			; 10D3 25 0F
		bnc	L10DB			; 10D5 92 05
		lr	A, $A			; 10D7 4A
		oi	$10			; 10D8 22 10
		lr	$A, A			; 10DA 5A
L10DB:		lr	A, IS			; 10DB 0A
		ci	$1C			; 10DC 25 1C
		bp	L10C5			; 10DE 81 E6
;-------------------------------------------------------------------------------
; Player/object turn and automatic movement selection (strongly likely).
; Select control- or table-driven movement, iterate object groups and route the
; resulting event to the common frame/state handlers.
;-------------------------------------------------------------------------------
L10E0:		lisu	7			; 10E0 67
		lisl	5			; 10E1 6D
		lr	A, S			; 10E2 4C
		com				; 10E3 18
		inc				; 10E4 1F
		lisl	1			; 10E5 69
		as	S			; 10E6 CC
		clr				; 10E7 70
		lr	0, A			; 10E8 50
		bm	L10EE			; 10E9 91 04
		lisu	6			; 10EB 66
		lisl	7			; 10EC 6F
		lr	A, S			; 10ED 4C
L10EE:		lr	4, A			; 10EE 54
		lis	8			; 10EF 78
		ns	$A			; 10F0 FA
		bz	L10F6			; 10F1 84 04
		pi	L0A24			; 10F3 28 0A 24
L10F6:		lis	2			; 10F6 72
		ns	$A			; 10F7 FA
		bnz	L10FD			; 10F8 94 04
		jmp	L1137			; 10FA 29 11 37
L10FD:		lis	6			; 10FD 76
		lr	0, A			; 10FE 50
L10FF:		pi	L0A1F			; 10FF 28 0A 1F
		ds	0			; 1102 30
		bnz	L10FF			; 1103 94 FB
		pi	L08C1			; 1105 28 08 C1
		lis	$C			; 1108 7C
		lr	0, A			; 1109 50
		lis	8			; 110A 78
		ns	$A			; 110B FA
		bz	L111A			; 110C 84 0D
L110E:		pi	L0A1F			; 110E 28 0A 1F
		ds	0			; 1111 30
		lr	A, 0			; 1112 40
		ci	6			; 1113 25 06
		bm	L110E			; 1115 91 F8
		jmp	L1227			; 1117 29 12 27
L111A:		com				; 111A 18
		inc				; 111B 1F
		as	9			; 111C C9
		bnz	L1124			; 111D 94 06
		pi	L0A1F			; 111F 28 0A 1F
		br	L112E			; 1122 90 0B
L1124:		lis	1			; 1124 71
		ns	$A			; 1125 FA
		lis	2			; 1126 72
		bnz	L112A			; 1127 94 02
		lis	1			; 1129 71
L112A:		lr	4, A			; 112A 54
		pi	L0A24			; 112B 28 0A 24
L112E:		ds	0			; 112E 30
		lr	A, 0			; 112F 40
		ci	6			; 1130 25 06
		bm	L111A			; 1132 91 E7
		jmp	L1200			; 1134 29 12 00
;-------------------------------------------------------------------------------
; Formation lookup and object movement (strongly likely).
; Split L08C7 results into nibbles, normalize direction bits, read L1297-based
; formation records through L08DA and apply resulting moves.
;-------------------------------------------------------------------------------
L1137:		lis	2			; 1137 72
		lr	0, A			; 1138 50
		pi	L08C7			; 1139 28 08 C7
		ni	$F0			; 113C 21 F0
		sr	4			; 113E 14
		lr	7, A			; 113F 57
		pi	L0A10			; 1140 28 0A 10
		ds	0			; 1143 30
		pi	L08C7			; 1144 28 08 C7
		ni	$F			; 1147 21 0F
		lr	7, A			; 1149 57
		pi	L0A10			; 114A 28 0A 10
		lis	3			; 114D 73
		lr	0, A			; 114E 50
		xs	9			; 114F E9
		bz	L1159			; 1150 84 08
		clr				; 1152 70
		lr	4, A			; 1153 54
		pi	L0A24			; 1154 28 0A 24
		br	L1189			; 1157 90 31
L1159:		pi	L0A1F			; 1159 28 0A 1F
		lis	6			; 115C 76
		lr	0, A			; 115D 50
		pi	L08DA			; 115E 28 08 DA
		lisu	5			; 1161 65
		lisl	4			; 1162 6C
		bnz	L1166			; 1163 94 02
		lr	S, A			; 1165 5C
L1166:		li	$F0			; 1166 20 F0
		ns	S			; 1168 FC
		sr	4			; 1169 14
		lr	7, A			; 116A 57
		pi	L0A10			; 116B 28 0A 10
		ds	0			; 116E 30
		lisu	5			; 116F 65
		lisl	4			; 1170 6C
		lis	$F			; 1171 7F
		ns	S			; 1172 FC
		lr	7, A			; 1173 57
		pi	L0A10			; 1174 28 0A 10
		ds	0			; 1177 30
		pi	L08DA			; 1178 28 08 DA
		lm				; 117B 16
		lisu	5			; 117C 65
		lisl	5			; 117D 6D
		bnz	L1181			; 117E 94 02
		lr	S, A			; 1180 5C
L1181:		lis	$F			; 1181 7F
		ns	S			; 1182 FC
		lr	7, A			; 1183 57
		pi	L0A10			; 1184 28 0A 10
		br	L1194			; 1187 90 0C
L1189:		lis	6			; 1189 76
		lr	0, A			; 118A 50
L118B:		pi	L0A1F			; 118B 28 0A 1F
		ds	0			; 118E 30
		lr	A, 0			; 118F 40
		ci	3			; 1190 25 03
		bnz	L118B			; 1192 94 F8
;-------------------------------------------------------------------------------
; Multi-object update and event evaluation (strongly likely).
; Compare object 12 and 11, read the opposing controller and update objects 10
; through 7 using direct controls or generated direction steps.
;-------------------------------------------------------------------------------
L1194:		lis	$C			; 1194 7C
		lr	0, A			; 1195 50
		pi	L0D30			; 1196 28 0D 30
		ds	0			; 1199 30
		pi	L0D30			; 119A 28 0D 30
		pi	L08C1			; 119D 28 08 C1
		li	$30			; 11A0 20 30
		ns	S			; 11A2 FC
		bz	L11A9			; 11A3 84 05
		lr	A, $A			; 11A5 4A
		oi	$40			; 11A6 22 40
		lr	$A, A			; 11A8 5A
L11A9:		lis	$A			; 11A9 7A
		lr	0, A			; 11AA 50
		pi	L0A1F			; 11AB 28 0A 1F
		ds	0			; 11AE 30
L11AF:		li	$40			; 11AF 20 40
		ns	$A			; 11B1 FA
		bnz	L11CF			; 11B2 94 1C
		lr	A, 0			; 11B4 40
		ci	8			; 11B5 25 08
		bnz	L11BD			; 11B7 94 05
		lis	6			; 11B9 76
		lr	7, A			; 11BA 57
		br	L11BF			; 11BB 90 03
L11BD:		lis	5			; 11BD 75
		lr	7, A			; 11BE 57
L11BF:		lis	1			; 11BF 71
		lisu	7			; 11C0 67
		lisl	7			; 11C1 6F
		ns	S			; 11C2 FC
		lr	2, A			; 11C3 52
		lr	A, S			; 11C4 4C
		ai	$FF			; 11C5 24 FF
		ni	2			; 11C7 21 02
		sr	1			; 11C9 12
		as	0			; 11CA C0
		ni	1			; 11CB 21 01
		bnz	L11D4			; 11CD 94 06
L11CF:		pi	L0A1F			; 11CF 28 0A 1F
		br	L11D7			; 11D2 90 04
L11D4:		pi	L0D86			; 11D4 28 0D 86
L11D7:		ds	0			; 11D7 30
		lr	A, 0			; 11D8 40
		ci	7			; 11D9 25 07
		bm	L11AF			; 11DB 91 D3
		lisu	7			; 11DD 67
		lisl	3			; 11DE 6B
		li	$40			; 11DF 20 40
		ns	S			; 11E1 FC
		bnz	L11FD			; 11E2 94 1A
		lisl	7			; 11E4 6F
		lr	A, D			; 11E5 4E
		ci	4			; 11E6 25 04
		bp	L11F8			; 11E8 81 0F
		lisu	7			; 11EA 67
		lisl	5			; 11EB 6D
		lr	A, S			; 11EC 4C
		ci	$A			; 11ED 25 0A
		bm	L11F8			; 11EF 91 08
		lis	6			; 11F1 76
		lr	7, A			; 11F2 57
		pi	L0A10			; 11F3 28 0A 10
		br	L1200			; 11F6 90 09
L11F8:		pi	L0D30			; 11F8 28 0D 30
		br	L1200			; 11FB 90 04
L11FD:		pi	L0A1F			; 11FD 28 0A 1F
L1200:		lis	2			; 1200 72
		lr	5, A			; 1201 55
		clr				; 1202 70
		as	9			; 1203 C9
		bz	L1227			; 1204 84 22
		ci	6			; 1206 25 06
		bm	L120B			; 1208 91 02
		ds	5			; 120A 35
L120B:		lis	1			; 120B 71
		ns	$A			; 120C FA
		bz	L1210			; 120D 84 02
		ds	5			; 120F 35
L1210:		li	$10			; 1210 20 10
		as	9			; 1212 C9
		as	9			; 1213 C9
		lr	IS, A			; 1214 0B
		lr	A, S			; 1215 4C
		ds	5			; 1216 35
		bz	L1220			; 1217 84 08
		ci	$57			; 1219 25 57
		bp	L1227			; 121B 81 0B
		jmp	L0D13			; 121D 29 0D 13
L1220:		ci	$12			; 1220 25 12
		bm	L1227			; 1222 91 04
		jmp	L0D10			; 1224 29 0D 10
;-------------------------------------------------------------------------------
; Frame/time update (strongly likely)
; Advance O75, apply timing increment from L124D to O63, propagate carry into
; O62, optionally redraw, then re-enter the active update path at L0FCD.
;-------------------------------------------------------------------------------
L1227:		lisu	7			; 1227 67
		lisl	5			; 1228 6D
		lr	A, S			; 1229 4C
		inc				; 122A 1F
		lr	S, A			; 122B 5C
		ci	$60			; 122C 25 60
		bp	L1232			; 122E 81 03
		ds	S			; 1230 3C
		ds	S			; 1231 3C
L1232:		dci	L124D			; 1232 2A 12 4D
		lisu	7			; 1235 67
		lisl	2			; 1236 6A
		lr	A, S			; 1237 4C
		adc				; 1238 8E
		lm				; 1239 16
		lisu	6			; 123A 66
		lisl	3			; 123B 6B
		as	S			; 123C CC
		lr	S, A			; 123D 5C
		bnc	L124A			; 123E 92 0B
		lisu	6			; 1240 66
		lisl	2			; 1241 6A
		clr				; 1242 70
		as	S			; 1243 CC
		bz	L1247			; 1244 84 02
		ds	S			; 1246 3C
L1247:		pi	L09C4			; 1247 28 09 C4
L124A:		jmp	L0FCD			; 124A 29 0F CD
;===============================================================================
; DATA TABLES $124D-$13E9
; This range is addressed from reachable code through DCI. It must remain raw
; data. Labels below describe known consumers; contents are preserved exactly.
;===============================================================================
; frame/tempo increment table used at L1232
L124D:		.byte	$50, $14, $1D, $38	; 124D
; Delay/parameter table used by the short 1 kHz beep at L0C96.
L1251:		.byte	$48, $29, $01, $FF, $01, $00, $04, $00, $06, $00, $02, $00			; 1251
; State lookup table used by L0DB3.
L125D:		.byte	$00, $03, $07, $AB, $05, $04, $06, $AB, $01, $02, $08				; 125D
; Variable-length lookup/formation data consumed by L08C7.
L1268:		.byte	$08, $09, $0A, $0B, $0C, $17, $22, $23, $24, $77, $00, $77, $00, $77, $00, $77	; 1268
		.byte	$00, $08, $00, $0C, $88, $0F, $81, $11, $80, $13, $01, $77, $11, $03, $00, $07	; 1278
		.byte	$44, $0A, $50, $0C, $00, $0E, $00, $77, $11, $77, $00, $77, $00, $77, $00	; 1288
; Variable-length lookup/formation data consumed by L08DA.
L1297:		.byte	$0A, $1C, $25, $34, $40, $52, $5B, $67, $67, $77, $11, $03, $03, $11, $01, $06	; 1297
		.byte	$45, $01, $0F, $48, $01, $12, $08, $01, $17, $01, $01, $1B, $01, $04, $77, $06	; 12A7
		.byte	$11, $01, $0A, $11, $00, $0C, $95, $00, $77, $03, $11, $01, $0E, $49, $00, $14	; 12B7
		.byte	$04, $00, $19, $92, $01, $20, $98, $04, $77, $03, $51, $01, $12, $52, $01, $16	; 12C7
		.byte	$14, $01, $1B, $91, $01, $77, $03, $11, $05, $07, $51, $05, $0A, $51, $05, $0D	; 12D7
		.byte	$12, $09, $0E, $15, $09, $21, $A5, $04, $77, $08, $15, $01, $0C, $55, $01, $10	; 12E7
		.byte	$84, $01, $77, $02	; 12F7
; Alternate state/formation table selected inside L0DCB.
L12FB:		.byte	$11, $08, $07, $11, $09, $0B, $58, $09, $0D, $15, $00, $77, $77, $77, $1E, $0A	; 12FB
		.byte	$22, $0A, $1C, $06, $24, $06, $1E, $02						; 130B
; Primary state/formation table selected inside L0DCB.
L1313:		.byte	$22, $02, $1C, $02, $20, $02, $20, $07, $23, $0A, $2C, $03, $16, $02, $20, $08	; 1313
		.byte	$16, $0B, $2C, $0C, $1C, $14, $1C, $02, $20, $02				; 1323
; Three short selector/bitmap records chosen near L0BEC.
L132D:		.byte	$FF, $80		; 132D
L132F:		.byte	$AA, $80		; 132F
L1331:		.byte	$F7, $80		; 1331
; Eight consecutive graphics parameter records rendered from L0E83.
L1333:		.byte	$09, $37, $41, $59, $01, $09, $0E, $41, $01, $2A, $09, $0E, $41, $59, $01, $61	; 1333
		.byte	$0E, $41, $01, $2A, $0A, $0F, $C1, $57, $28, $58, $0C, $41, $01, $2E, $0A, $07	; 1343
		.byte	$C1, $61, $05, $12, $0C, $41, $01, $2E						; 1353
; Graphics parameter block entered through L0822 at $102F.
L135B:		.byte	$17, $C1, $09, $11	; 135B
; Fixed screen graphics parameter block entered through L0820 at $0E1F.
L135F:		.byte	$19, $11, $C1, $33, $07								; 135F
; Packed sprite/glyph data indexed as L1364 + 2*r1 by L0840.
L1364:		.byte	$F6, $DE, $59, $2E, $E7, $CE, $E7, $9E, $B7, $92, $F3, $9E, $F3, $DE, $E5, $24	; 1364
		.byte	$F7, $DE, $F7, $9E, $08, $20							; 1374
; Sound-effect table consumed by L088E from $0C6D.
L137A:		.byte	$27, $67, $25, $47, $23, $27, $00						; 137A
; Sound-effect table consumed by L088E from $0CB2.
L1381:		.byte	$04, $22, $07, $AB, $03, $BB, $08, $CC, $03, $34, $06, $12, $0D, $12, $0D, $12	; 1381
		.byte	$00			; 1391
; Sound-effect table consumed by L088E from $0EC4.
L1392:		.byte	$37, $6A, $1A, $61, $1B, $6A, $0E, $73, $1D, $73, $0D, $6A, $1D, $73, $0E, $73	; 1392
		.byte	$1D, $73, $0E, $73, $1B, $6A, $1D, $73, $10, $82, $20, $82, $0F, $7B, $31, $82	; 13A2
		.byte	$24, $90, $2B, $A2, $29, $9D, $24, $90, $20, $82, $1B, $6A, $16, $43, $18, $58	; 13B2
		.byte	$0D, $6A, $20, $82, $0E, $73, $1B, $6A, $18, $58, $2B, $43, $00			; 13C2
; Sound-effect table consumed by L088E from $0D27. The terminating zero is
; followed by unused ROM fill; retain all bytes to preserve the original image.
L13CF:		.byte	$31, $82, $0F, $7B, $24, $90, $20, $82, $41, $A2, $14, $9D, $31, $AD, $2B, $A2	; 13CF
		.byte	$36, $B6, $36, $B6, $36, $B6, $36, $B6, $6D, $B6, $00, $FF, $FF, $FF, $FF, $FF	; 13DF
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 13EF
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 13FF
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 140F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 141F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 142F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 143F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 144F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 145F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 146F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 147F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 148F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 149F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 14AF
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 14BF
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 14CF
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 14DF
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 14EF
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 14FF
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 150F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 151F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 152F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 153F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 154F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 155F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 156F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 157F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 158F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 159F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 15AF
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 15BF
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 15CF
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 15DF
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 15EF
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 15FF
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 160F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 161F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 162F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 163F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 164F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 165F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 166F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 167F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 168F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 169F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 16AF
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 16BF
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 16CF
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 16DF
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 16EF
		.byte	$FF, $00, $00, $00, $00, $00, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 16FF
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 170F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 171F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 172F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 173F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 174F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 175F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 176F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 177F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 178F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 179F
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 17AF
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 17BF
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 17CF
		.byte	$FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF	; 17DF
		.byte	$FF, $00, $10, $E9, $1B, $DD, $E5, $00, $00, $00, $00, $00, $00, $00, $00, $00	; 17EF
		.byte	$00			; 17FF

; Interpreting the last bytes as a five bit alphabet and using ROT24 - it spells PANBLAST, perhaps it means something to someone.

		IF 0

Smart data report
=================
Mode: enabled by -s or /s
Memory range: $0800-$17FF
Code bytes: 2630
Data bytes: 1466

DCI data roots from reachable code:
  $1333 from $0E7E
  $1392 from $0EC4
  $135F from $0E1F
  $1364 from $0840
  $1313 from $0DCB
  $12FB from $0DD8
  $1331 from $0BEF
  $132F from $0BF9
  $132D from $0C00
  $137A from $0C6D
  $1251 from $0C97
  $1381 from $0CB2
  $125D from $0DB3
  $135B from $102F
  $13CF from $0D27
  $124D from $1232
  $1268 from $08C7
  $1297 from $08DA

Data intervals emitted as .byte:
  $0837-$0839 (3 bytes)
  $0C40-$0C43 (4 bytes)
  $124D-$17FF (1459 bytes)

		ENDIF