Chameleon
10-23-2008, 11:34 PM
first 1888 bytes of a Rom240 or is it a S01????
$00:$4000: (05) 00065A btjt0 $06, $405D ; Branch to $405D if $06.0=1
$00:$4003: (00) A7
$00:$4004: (03) 2029 jra $402F ; Branch to $402F always
$00:$4006: (00) A7
$00:$4007: (02) 9D nop ; No operation
$00:$4008: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$400B: (06) 81 ret ; Return
$00:$400C: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$400F: (00) A7
$00:$4010: (03) 2025 jra $4037 ; Branch to $4037 always
$00:$4012: (00) A7
$00:$4013: (02) 9D nop ; No operation
$00:$4014: (03) 202C jra $4042 ; Branch to $4042 always
$00:$4016: (00) A7
$00:$4017: (02) 9D nop ; No operation
$00:$4018: (05) 3F0B clr $0B ; Clear $0B
$00:$401A: (03) 205E jra $407A ; Branch to $407A always
$00:$401C: (03) 202F jra $404D ; Branch to $404D always
$00:$401E: (00) A7
$00:$401F: (02) 9D nop ; No operation
$00:$4020: (04) 86 pop cc ; Restore CC from stack
$00:$4021: (03) CC4F5F jp $4F5F ; Jump to $4F5F
$00:$4024: (03) 202F jra $4055 ; Branch to $4055 always
$00:$4026: (00) A7
$00:$4027: (02) 9D nop ; No operation
$00:$4028: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$402B: (00) A7
$00:$402C: (00) A7
$00:$402D: (05) 1E04 bset7 $04 ; Set $04.7
$00:$402F: (07) 8D009EC3 ecall #$00, $9EC3 ; Call $9EC3 from page #$00
$00:$4033: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$4036: (00) A7
$00:$4037: (07) 8D009EC3 ecall #$00, $9EC3 ; Call $9EC3 from page #$00
$00:$403B: (03) CC4CC7 jp $4CC7 ; Jump to $4CC7
$00:$403E: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$4041: (00) A7
$00:$4042: (07) 8D009EC3 ecall #$00, $9EC3 ; Call $9EC3 from page #$00
$00:$4046: (03) CC4FBF jp $4FBF ; Jump to $4FBF
$00:$4049: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$404C: (00) A7
$00:$404D: (07) 8D009EC3 ecall #$00, $9EC3 ; Call $9EC3 from page #$00
$00:$4051: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$4054: (00) A7
$00:$4055: (07) 8D009EC3 ecall #$00, $9EC3 ; Call $9EC3 from page #$00
$00:$4059: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$405C: (00) A7
$00:$405D: (05) 1360 bclr1 $60 ; Clear $60.1
$00:$405F: (02) 9B sim ; Set interrupt mask
$00:$4060: (03) B602 ld a, $02 ; Load into A from $02
$00:$4062: (02) A4C0 and a, #$C0 ; Logical AND (A AND #$C0)
$00:$4064: (04) B702 ld $02, a ; Load into $02 from A
$00:$4066: (02) A6A5 ld a, #$A5 ; Load #$A5 into A
$00:$4068: (04) B706 ld $06, a ; Load into $06 from A
$00:$406A: (02) A60E ld a, #$0E ; Load #$0E into A
$00:$406C: (04) B70D ld $0D, a ; Load into $0D from A
$00:$406E: (07) 8D00DCCF ecall #$00, $DCCF ; Call $DCCF from page #$00
$00:$4072: (02) A608 ld a, #$08 ; Load #$08 into A
$00:$4074: (07) 8D00DC85 ecall #$00, $DC85 ; Call $DC85 from page #$00
$00:$4078: (00) A7
$00:$4079: (00) A7
$00:$407A: (05) 1119 bclr0 $19 ; Clear $19.0
$00:$407C: (03) B61E ld a, $1E ; Load into A from $1E
$00:$407E: (05) 02630D btjt1 $63, $408E ; Branch to $408E if $63.1=1
$00:$4081: (05) 006311 btjt0 $63, $4095 ; Branch to $4095 if $63.0=1
$00:$4084: (04) B755 ld $55, a ; Load into $55 from A
$00:$4086: (03) CC4150 jp $4150 ; Jump to $4150
$00:$4089: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$408C: (00) A7
$00:$408D: (00) A7
$00:$408E: (05) 0F521E btjf7 $52, $40AF ; Branch to $40AF if $52.7=0
$00:$4091: (04) B754 ld $54, a ; Load into $54 from A
$00:$4093: (03) 2025 jra $40BA ; Branch to $40BA always
$00:$4095: (03) BE57 ld x, $57 ; Load into X from $57
$00:$4097: (02) A302 cp x, #$02 ; Compare X with #$02
$00:$4099: (03) 2706 jreq $40A1 ; Branch to $40A1 if equal
$00:$409B: (05) E751 ld ($51,x), a ; Load into $51, index X, from A
$00:$409D: (05) 3C57 inc $57 ; Increment $57
$00:$409F: (03) 201F jra $40C0 ; Branch to $40C0 always
$00:$40A1: (05) 1163 bclr0 $63 ; Clear $63.0
$00:$40A3: (04) B753 ld $53, a ; Load into $53 from A
$00:$40A5: (03) 2602 jrne $40A9 ; Branch to $40A9 if not equal
$00:$40A7: (03) 2017 jra $40C0 ; Branch to $40C0 always
$00:$40A9: (05) 1263 bset1 $63 ; Set $63.1
$00:$40AB: (04) B757 ld $57, a ; Load into $57 from A
$00:$40AD: (03) 2011 jra $40C0 ; Branch to $40C0 always
$00:$40AF: (03) BE59 ld x, $59 ; Load into X from $59
$00:$40B1: (02) A3FF cp x, #$FF ; Compare X with #$FF
$00:$40B3: (03) 2405 jrnc $40BA ; Branch to $40BA if carry clear
$00:$40B5: (06) D70DF8 ld ($0DF8,x), a ; Load into $0DF8, index X, from A
$00:$40B8: (05) 3C59 inc $59 ; Increment $59
$00:$40BA: (05) 3A57 dec $57 ; Decrement $57
$00:$40BC: (03) 2602 jrne $40C0 ; Branch to $40C0 if not equal
$00:$40BE: (05) 1363 bclr1 $63 ; Clear $63.1
$00:$40C0: (05) 001A35 btjt0 $1A, $40F8 ; Branch to $40F8 if $1A.0=1
$00:$40C3: (04) CE0DE4 ld x, $0DE4 ; Load into X from $0DE4
$00:$40C6: (05) 001A2F btjt0 $1A, $40F8 ; Branch to $40F8 if $1A.0=1
$00:$40C9: (05) 130A bclr1 $0A ; Clear $0A.1
$00:$40CB: (05) 001A2A btjt0 $1A, $40F8 ; Branch to $40F8 if $1A.0=1
$00:$40CE: (05) 3F0A clr $0A ; Clear $0A
$00:$40D0: (05) 001A25 btjt0 $1A, $40F8 ; Branch to $40F8 if $1A.0=1
$00:$40D3: (02) A6F9 ld a, #$F9 ; Load #$F9 into A
$00:$40D5: (05) 001A20 btjt0 $1A, $40F8 ; Branch to $40F8 if $1A.0=1
$00:$40D8: (04) B709 ld $09, a ; Load into $09 from A
$00:$40DA: (05) 001A1B btjt0 $1A, $40F8 ; Branch to $40F8 if $1A.0=1
$00:$40DD: (05) 120A bset1 $0A ; Set $0A.1
$00:$40DF: (05) 001A16 btjt0 $1A, $40F8 ; Branch to $40F8 if $1A.0=1
$00:$40E2: (05) 020AFA btjt1 $0A, $40DF ; Branch to $40DF if $0A.1=1
$00:$40E5: (05) 001A10 btjt0 $1A, $40F8 ; Branch to $40F8 if $1A.0=1
$00:$40E8: (03) 5A dec x ; Decrement X
$00:$40E9: (05) 001A0C btjt0 $1A, $40F8 ; Branch to $40F8 if $1A.0=1
$00:$40EC: (03) 26E7 jrne $40D5 ; Branch to $40D5 if not equal
$00:$40EE: (06) AD10 callr $4100 ; Call relative $4100
$00:$40F0: (03) CC42BE jp $42BE ; Jump to $42BE
$00:$40F3: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$40F6: (00) A7
$00:$40F7: (00) A7
$00:$40F8: (03) CC407A jp $407A ; Jump to $407A
$00:$40FB: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$40FE: (00) A7
$00:$40FF: (00) A7
$00:$4100: (05) 125E bset1 $5E ; Set $5E.1
$00:$4102: (02) 96 ld x, s ; Load into X from S
$00:$4103: (02) 8C ld a, csr ; Load into A from CSR
$00:$4104: (03) 4D tnz a ; Test for negative and zero
$00:$4105: (03) 270E jreq $4115 ; Branch to $4115 if equal
$00:$4107: (02) A101 cp a, #$01 ; Compare A with #$01
$00:$4109: (03) 270A jreq $4115 ; Branch to $4115 if equal
$00:$410B: (02) A180 cp a, #$80 ; Compare A with #$80
$00:$410D: (03) 2706 jreq $4115 ; Branch to $4115 if equal
$00:$410F: (07) 8D00414E ecall #$00, $414E ; Call $414E from page #$00
$00:$4113: (03) 2018 jra $412D ; Branch to $412D always
$00:$4115: (05) D60F06 ld a, ($0F06,x) ; Load into A from $0F06, index X.
$00:$4118: (03) 2603 jrne $411D ; Branch to $411D if not equal
$00:$411A: (05) D60F08 ld a, ($0F08,x) ; Load into A from $0F08, index X.
$00:$411D: (02) A110 cp a, #$10 ; Compare A with #$10
$00:$411F: (03) 252E jrc $414F ; Branch to $414F if carry set
$00:$4121: (02) A140 cp a, #$40 ; Compare A with #$40
$00:$4123: (03) 242A jrnc $414F ; Branch to $414F if carry clear
$00:$4125: (02) A135 cp a, #$35 ; Compare A with #$35
$00:$4127: (03) 2504 jrc $412D ; Branch to $412D if carry set
$00:$4129: (02) A138 cp a, #$38 ; Compare A with #$38
$00:$412B: (03) 2522 jrc $414F ; Branch to $414F if carry set
$00:$412D: (05) 1463 bset2 $63 ; Set $63.2
$00:$412F: (02) A6A5 ld a, #$A5 ; Load #$A5 into A
$00:$4131: (04) B706 ld $06, a ; Load into $06 from A
$00:$4133: (02) A60E ld a, #$0E ; Load #$0E into A
$00:$4135: (04) B70D ld $0D, a ; Load into $0D from A
$00:$4137: (02) 96 ld x, s ; Load into X from S
$00:$4138: (02) A676 ld a, #$76 ; Load #$76 into A
$00:$413A: (06) D70F06 ld ($0F06,x), a ; Load into $0F06, index X, from A
$00:$413D: (02) A6BB ld a, #$BB ; Load #$BB into A
$00:$413F: (06) D70F07 ld ($0F07,x), a ; Load into $0F07, index X, from A
$00:$4142: (07) 8D00414E ecall #$00, $414E ; Call $414E from page #$00
$00:$4146: (03) CC4988 jp $4988 ; Jump to $4988
$00:$4149: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$414C: (00) A7
$00:$414D: (00) A7
$00:$414E: (04) 84 pop a ; Restore A from stack
$00:$414F: (06) 81 ret ; Return
$00:$4150: (06) ADAE callr $4100 ; Call relative $4100
$00:$4152: (05) 051A08 btjf2 $1A, $415D ; Branch to $415D if $1A.2=0
$00:$4155: (03) CC42BA jp $42BA ; Jump to $42BA
$00:$4158: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$415B: (00) A7
$00:$415C: (00) A7
$00:$415D: (05) 071A08 btjf3 $1A, $4168 ; Branch to $4168 if $1A.3=0
$00:$4160: (03) CC42BE jp $42BE ; Jump to $42BE
$00:$4163: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$4166: (00) A7
$00:$4167: (00) A7
$00:$4168: (05) 091A08 btjf4 $1A, $4173 ; Branch to $4173 if $1A.4=0
$00:$416B: (03) CC42BE jp $42BE ; Jump to $42BE
$00:$416E: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$4171: (00) A7
$00:$4172: (00) A7
$00:$4173: (03) B653 ld a, $53 ; Load into A from $53
$00:$4175: (03) 2713 jreq $418A ; Branch to $418A if equal
$00:$4177: (05) 0F5204 btjf7 $52, $417E ; Branch to $417E if $52.7=0
$00:$417A: (03) B654 ld a, $54 ; Load into A from $54
$00:$417C: (03) 200C jra $418A ; Branch to $418A always
$00:$417E: (03) BB58 add a, $58 ; Add A to $58
$00:$4180: (02) 97 ld x, a ; Load into X from A
$00:$4181: (03) 4F clr a ; Clear A
$00:$4182: (03) 5A dec x ; Decrement X
$00:$4183: (05) D80DF8 xor a, ($0DF8,x) ; Logical XOR (A XOR $0DF8, index X.)
$00:$4186: (03) B358 cp x, $58 ; Compare X with $58
$00:$4188: (03) 26F8 jrne $4182 ; Branch to $4182 if not equal
$00:$418A: (03) B851 xor a, $51 ; Logical XOR (A XOR $51)
$00:$418C: (03) B852 xor a, $52 ; Logical XOR (A XOR $52)
$00:$418E: (03) B853 xor a, $53 ; Logical XOR (A XOR $53)
$00:$4190: (03) B855 xor a, $55 ; Logical XOR (A XOR $55)
$00:$4192: (03) 2708 jreq $419C ; Branch to $419C if equal
$00:$4194: (03) CC42BA jp $42BA ; Jump to $42BA
$00:$4197: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$419A: (00) A7
$00:$419B: (00) A7
$00:$419C: (05) 0F527F btjf7 $52, $421E ; Branch to $421E if $52.7=0
$00:$419F: (05) 0D5254 btjf6 $52, $41F6 ; Branch to $41F6 if $52.6=0
$00:$41A2: (03) B652 ld a, $52 ; Load into A from $52
$00:$41A4: (02) A1C0 cp a, #$C0 ; Compare A with #$C0
$00:$41A6: (03) 2717 jreq $41BF ; Branch to $41BF if equal
$00:$41A8: (02) A1C1 cp a, #$C1 ; Compare A with #$C1
$00:$41AA: (03) 272D jreq $41D9 ; Branch to $41D9 if equal
$00:$41AC: (02) A1E1 cp a, #$E1 ; Compare A with #$E1
$00:$41AE: (03) 270C jreq $41BC ; Branch to $41BC if equal
$00:$41B0: (02) A1C2 cp a, #$C2 ; Compare A with #$C2
$00:$41B2: (03) 270B jreq $41BF ; Branch to $41BF if equal
$00:$41B4: (02) A1E3 cp a, #$E3 ; Compare A with #$E3
$00:$41B6: (03) 2704 jreq $41BC ; Branch to $41BC if equal
$00:$41B8: (02) A1E4 cp a, #$E4 ; Compare A with #$E4
$00:$41BA: (03) 2700 jreq $41BC ; Branch to $41BC if equal
$00:$41BC: (03) CC42BE jp $42BE ; Jump to $42BE
$00:$41BF: (06) CD7783 call $7783 ; Call $7783
$00:$41C2: (05) 3F58 clr $58 ; Clear $58
$00:$41C4: (05) 3F59 clr $59 ; Clear $59
$00:$41C6: (05) 1962 bclr4 $62 ; Clear $62.4
$00:$41C8: (05) 1B62 bclr5 $62 ; Clear $62.5
$00:$41CA: (05) 1D62 bclr6 $62 ; Clear $62.6
$00:$41CC: (05) 1F62 bclr7 $62 ; Clear $62.7
$00:$41CE: (05) 1E63 bset7 $63 ; Set $63.7
$00:$41D0: (03) B652 ld a, $52 ; Load into A from $52
$00:$41D2: (02) AA20 or a, #$20 ; Logical OR (A OR #$20)
$00:$41D4: (03) BE53 ld x, $53 ; Load into X from $53
$00:$41D6: (03) CC42CE jp $42CE ; Jump to $42CE
$00:$41D9: (03) B653 ld a, $53 ; Load into A from $53
$00:$41DB: (02) A101 cp a, #$01 ; Compare A with #$01
$00:$41DD: (03) 26DD jrne $41BC ; Branch to $41BC if not equal
$00:$41DF: (03) B654 ld a, $54 ; Load into A from $54
$00:$41E1: (03) 27D9 jreq $41BC ; Branch to $41BC if equal
$00:$41E3: (02) A1FE cp a, #$FE ; Compare A with #$FE
$00:$41E5: (03) 22D5 jrugt $41BC ; Branch to $41BC if higher
$00:$41E7: (02) A1FF cp a, #$FF ; Compare A with #$FF
$00:$41E9: (03) 2302 jrule $41ED ; Branch to $41ED if lower/same
$00:$41EB: (02) A6FF ld a, #$FF ; Load #$FF into A
$00:$41ED: (04) B756 ld $56, a ; Load into $56 from A
$00:$41EF: (02) A6E1 ld a, #$E1 ; Load #$E1 into A
$00:$41F1: (02) AE01 ld x, #$01 ; Load #$01 into X
$00:$41F3: (03) CC42CE jp $42CE ; Jump to $42CE
$00:$41F6: (05) 086278 btjt4 $62, $4271 ; Branch to $4271 if $62.4=1
$00:$41F9: (05) 085205 btjt4 $52, $4201 ; Branch to $4201 if $52.4=1
$00:$41FC: (05) 0C6215 btjt6 $62, $4214 ; Branch to $4214 if $62.6=1
$00:$41FF: (03) 2003 jra $4204 ; Branch to $4204 always
$00:$4201: (05) 0D6210 btjf6 $62, $4214 ; Branch to $4214 if $62.6=0
$00:$4204: (05) 0052B5 btjt0 $52, $41BC ; Branch to $41BC if $52.0=1
$00:$4207: (04) C60DE9 ld a, $0DE9 ; Load into A from $0DE9
$00:$420A: (02) A520 bcp a, #$20 ; Bit compare A with #$20
$00:$420C: (03) 27AE jreq $41BC ; Branch to $41BC if equal
$00:$420E: (06) CD4366 call $4366 ; Call $4366
$00:$4211: (03) CC4E9F jp $4E9F ; Jump to $4E9F
$00:$4214: (05) 0562A5 btjf2 $62, $41BC ; Branch to $41BC if $62.2=0
$00:$4217: (06) CD438E call $438E ; Call $438E
$00:$421A: (03) CC4E9F jp $4E9F ; Jump to $4E9F
$00:$421D: (00) A7
$00:$421E: (06) CD7783 call $7783 ; Call $7783
$00:$4221: (05) 1862 bset4 $62 ; Set $62.4
$00:$4223: (05) 1F62 bclr7 $62 ; Clear $62.7
$00:$4225: (05) 0C5202 btjt6 $52, $422A ; Branch to $422A if $52.6=1
$00:$4228: (05) 1E62 bset7 $62 ; Set $62.7
$00:$422A: (03) B659 ld a, $59 ; Load into A from $59
$00:$422C: (04) B758 ld $58, a ; Load into $58 from A
$00:$422E: (05) 0A5240 btjt5 $52, $4271 ; Branch to $4271 if $52.5=1
$00:$4231: (05) 1962 bclr4 $62 ; Clear $62.4
$00:$4233: (06) AD43 callr $4278 ; Call relative $4278
$00:$4235: (03) 2619 jrne $4250 ; Branch to $4250 if not equal
$00:$4237: (06) AD5A callr $4293 ; Call relative $4293
$00:$4239: (06) CD434F call $434F ; Call $434F
$00:$423C: (04) C60DE8 ld a, $0DE8 ; Load into A from $0DE8
$00:$423F: (04) B753 ld $53, a ; Load into $53 from A
$00:$4241: (06) CD4384 call $4384 ; Call $4384
$00:$4244: (05) 3F58 clr $58 ; Clear $58
$00:$4246: (05) 3F59 clr $59 ; Clear $59
$00:$4248: (03) CC4E9F jp $4E9F ; Jump to $4E9F
$00:$424B: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$424E: (00) A7
$00:$424F: (00) A7
$00:$4250: (05) 016406 btjf0 $64, $4259 ; Branch to $4259 if $64.0=0
$00:$4253: (05) 036403 btjf1 $64, $4259 ; Branch to $4259 if $64.1=0
$00:$4256: (06) CD4137 call $4137 ; Call $4137
$00:$4259: (06) CD4441 call $4441 ; Call $4441
$00:$425C: (05) 011805 btjf0 $18, $4264 ; Branch to $4264 if $18.0=0
$00:$425F: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$4262: (00) A7
$00:$4263: (00) A7
$00:$4264: (05) 0018F8 btjt0 $18, $425F ; Branch to $425F if $18.0=1
$00:$4267: (05) 1A62 bset5 $62 ; Set $62.5
$00:$4269: (03) CC4E9F jp $4E9F ; Jump to $4E9F
$00:$426C: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$426F: (00) A7
$00:$4270: (00) A7
$00:$4271: (03) 2053 jra $42C6 ; Branch to $42C6 always
$00:$4273: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$4276: (00) A7
$00:$4277: (00) A7
$00:$4278: (03) B659 ld a, $59 ; Load into A from $59
$00:$427A: (02) A108 cp a, #$08 ; Compare A with #$08
$00:$427C: (03) 260C jrne $428A ; Branch to $428A if not equal
$00:$427E: (02) 97 ld x, a ; Load into X from A
$00:$427F: (05) D60DF7 ld a, ($0DF7,x) ; Load into A from $0DF7, index X.
$00:$4282: (05) D1428A cp a, ($428A,x) ; Compare A to $428A, index X.
$00:$4285: (03) 2603 jrne $428A ; Branch to $428A if not equal
$00:$4287: (03) 5A dec x ; Decrement X
$00:$4288: (03) 26F5 jrne $427F ; Branch to $427F if not equal
$00:$428A: (06) 81 ret ; Return
$00:$428B: (02) A0CA sub a, #$CA ; Substract #$CA from A
$00:$428D: (05) 000002 btjt0 $00, $4292 ; Branch to $4292 if $00.0=1
$00:$4290: (04) C00006 sub a, $0006 ; Substract $0006 from A
$00:$4293: (05) 1663 bset3 $63 ; Set $63.3
$00:$4295: (02) AE03 ld x, #$03 ; Load #$03 into X
$00:$4297: (04) E666 ld a, ($66,x) ; Load into A from $66, index X.
$00:$4299: (06) D70DFA ld ($0DFA,x), a ; Load into $0DFA, index X, from A
$00:$429C: (03) 5A dec x ; Decrement X
$00:$429D: (03) 2AF8 jrpl $4297 ; Branch to $4297 if positive
$00:$429F: (02) A6B0 ld a, #$B0 ; Load #$B0 into A
$00:$42A1: (05) C70DF8 ld $0DF8, a ; Load into $0DF8 from A
$00:$42A4: (02) A604 ld a, #$04 ; Load #$04 into A
$00:$42A6: (05) C70DF9 ld $0DF9, a ; Load into $0DF9 from A
$00:$42A9: (02) A690 ld a, #$90 ; Load #$90 into A
$00:$42AB: (05) C70DFE ld $0DFE, a ; Load into $0DFE from A
$00:$42AE: (03) 4F clr a ; Clear A
$00:$42AF: (05) C70DFF ld $0DFF, a ; Load into $0DFF from A
$00:$42B2: (05) 1367 bclr1 $67 ; Clear $67.1
$00:$42B4: (02) A608 ld a, #$08 ; Load #$08 into A
$00:$42B6: (05) C70DE8 ld $0DE8, a ; Load into $0DE8 from A
$00:$42B9: (06) 81 ret ; Return
$00:$42BA: (02) A681 ld a, #$81 ; Load #$81 into A
$00:$42BC: (03) 2002 jra $42C0 ; Branch to $42C0 always
$00:$42BE: (02) A682 ld a, #$82 ; Load #$82 into A
$00:$42C0: (03) BE58 ld x, $58 ; Load into X from $58
$00:$42C2: (04) BF59 ld $59, x ; Load into $59 from X
$00:$42C4: (03) 2002 jra $42C8 ; Branch to $42C8 always
$00:$42C6: (02) A680 ld a, #$80 ; Load #$80 into A
$00:$42C8: (03) 5F clr x ; Clear X
$00:$42C9: (05) 0F6202 btjf7 $62, $42CE ; Branch to $42CE if $62.7=0
$00:$42CC: (02) AA10 or a, #$10 ; Logical OR (A OR #$10)
$00:$42CE: (04) B752 ld $52, a ; Load into $52 from A
$00:$42D0: (05) 3E51 swap $51 ; Swap nibbles
$00:$42D2: (02) 9F ld a, x ; Load into A from X
$00:$42D3: (04) B753 ld $53, a ; Load into $53 from A
$00:$42D5: (03) 2702 jreq $42D9 ; Branch to $42D9 if equal
$00:$42D7: (03) B854 xor a, $54 ; Logical XOR (A XOR $54)
$00:$42D9: (03) B851 xor a, $51 ; Logical XOR (A XOR $51)
$00:$42DB: (03) B852 xor a, $52 ; Logical XOR (A XOR $52)
$00:$42DD: (03) 88 push a ; Save A on stack
$00:$42DE: (06) AD17 callr $42F7 ; Call relative $42F7
$00:$42E0: (04) 3D53 tnz $53 ; Test for negative and zero
$00:$42E2: (03) 2705 jreq $42E9 ; Branch to $42E9 if equal
$00:$42E4: (03) B654 ld a, $54 ; Load into A from $54
$00:$42E6: (06) CD432D call $432D ; Call $432D
$00:$42E9: (04) 84 pop a ; Restore A from stack
$00:$42EA: (06) CD432D call $432D ; Call $432D
$00:$42ED: (06) AD1F callr $430E ; Call relative $430E
$00:$42EF: (03) CC4E9F jp $4E9F ; Jump to $4E9F
$00:$42F2: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$42F5: (00) A7
$00:$42F6: (00) A7
$00:$42F7: (06) CD431C call $431C ; Call $431C
$00:$42FA: (03) B651 ld a, $51 ; Load into A from $51
$00:$42FC: (06) CD432D call $432D ; Call $432D
$00:$42FF: (03) B652 ld a, $52 ; Load into A from $52
$00:$4301: (06) CD432D call $432D ; Call $432D
$00:$4304: (03) B653 ld a, $53 ; Load into A from $53
$00:$4306: (03) CC432D jp $432D ; Jump to $432D
$00:$4309: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$430C: (00) A7
$00:$430D: (00) A7
$00:$430E: (05) 1063 bset0 $63 ; Set $63.0
$00:$4310: (05) 1363 bclr1 $63 ; Clear $63.1
$00:$4312: (05) 3F57 clr $57 ; Clear $57
$00:$4314: (03) CC4422 jp $4422 ; Jump to $4422
$00:$4317: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$431A: (00) A7
$00:$431B: (00) A7
$00:$431C: (05) 130A bclr1 $0A ; Clear $0A.1
$00:$431E: (02) A610 ld a, #$10 ; Load #$10 into A
$00:$4320: (04) B70A ld $0A, a ; Load into $0A from A
$00:$4322: (04) C60DE3 ld a, $0DE3 ; Load into A from $0DE3
$00:$4325: (04) B709 ld $09, a ; Load into $09 from A
$00:$4327: (05) 120A bset1 $0A ; Set $0A.1
$00:$4329: (05) 020AFD btjt1 $0A, $4329 ; Branch to $4329 if $0A.1=1
$00:$432C: (06) 81 ret ; Return
$00:$432D: (02) 9B sim ; Set interrupt mask
$00:$432E: (03) 88 push a ; Save A on stack
$00:$432F: (05) 001803 btjt0 $18, $4335 ; Branch to $4335 if $18.0=1
$00:$4332: (06) CD4427 call $4427 ; Call $4427
$00:$4335: (04) CE0DE2 ld x, $0DE2 ; Load into X from $0DE2
$00:$4338: (03) 270B jreq $4345 ; Branch to $4345 if equal
$00:$433A: (05) 130A bclr1 $0A ; Clear $0A.1
$00:$433C: (05) 3F0A clr $0A ; Clear $0A
$00:$433E: (04) BF09 ld $09, x ; Load into $09 from X
$00:$4340: (05) 120A bset1 $0A ; Set $0A.1
$00:$4342: (05) 020AFD btjt1 $0A, $4342 ; Branch to $4342 if $0A.1=1
$00:$4345: (05) 031AFD btjf1 $1A, $4345 ; Branch to $4345 if $1A.1=0
$00:$4348: (06) CD757E call $757E ; Call $757E
$00:$434B: (04) 84 pop a ; Restore A from stack
$00:$434C: (04) B71D ld $1D, a ; Load into $1D from A
$00:$434E: (06) 81 ret ; Return
$00:$434F: (05) 1B62 bclr5 $62 ; Clear $62.5
$00:$4351: (05) 3F52 clr $52 ; Clear $52
$00:$4353: (05) 3F53 clr $53 ; Clear $53
$00:$4355: (05) 0C6205 btjt6 $62, $435D ; Branch to $435D if $62.6=1
$00:$4358: (05) 1D52 bclr6 $52 ; Clear $52.6
$00:$435A: (05) 1C62 bset6 $62 ; Set $62.6
$00:$435C: (06) 81 ret ; Return
$00:$435D: (05) 1C52 bset6 $52 ; Set $52.6
$00:$435F: (05) 1D62 bclr6 $62 ; Clear $62.6
$00:$4361: (06) 81 ret ; Return
$00:$4362: (06) ADEB callr $434F ; Call relative $434F
$00:$4364: (03) 201E jra $4384 ; Branch to $4384 always
$00:$4366: (06) ADE7 callr $434F ; Call relative $434F
$00:$4368: (04) CE0DEB ld x, $0DEB ; Load into X from $0DEB
$00:$436B: (07) DD78B4 call ($78B4,x) ; Call $78B4, index X,
$00:$436E: (05) 3C5A inc $5A ; Increment $5A
$00:$4370: (05) 3C53 inc $53 ; Increment $53
$00:$4372: (03) BE53 ld x, $53 ; Load into X from $53
$00:$4374: (06) D70DF7 ld ($0DF7,x), a ; Load into $0DF7, index X, from A
$00:$4377: (03) 2508 jrc $4381 ; Branch to $4381 if carry set
$00:$4379: (03) B356 cp x, $56 ; Compare X with $56
$00:$437B: (03) 26EB jrne $4368 ; Branch to $4368 if not equal
$00:$437D: (05) 1A52 bset5 $52 ; Set $52.5
$00:$437F: (03) 2003 jra $4384 ; Branch to $4384 always
$00:$4381: (06) CD7783 call $7783 ; Call $7783
$00:$4384: (03) B652 ld a, $52 ; Load into A from $52
$00:$4386: (05) C70DE9 ld $0DE9, a ; Load into $0DE9 from A
$00:$4389: (03) B653 ld a, $53 ; Load into A from $53
$00:$438B: (05) C70DEA ld $0DEA, a ; Load into $0DEA from A
$00:$438E: (05) 1462 bset2 $62 ; Set $62.2
$00:$4390: (04) C60DE9 ld a, $0DE9 ; Load into A from $0DE9
$00:$4393: (04) B752 ld $52, a ; Load into $52 from A
$00:$4395: (04) C60DEA ld a, $0DEA ; Load into A from $0DEA
$00:$4398: (04) B753 ld $53, a ; Load into $53 from A
$00:$439A: (05) 3E51 swap $51 ; Swap nibbles
$00:$439C: (03) B651 ld a, $51 ; Load into A from $51
$00:$439E: (03) B852 xor a, $52 ; Logical XOR (A XOR $52)
$00:$43A0: (03) B853 xor a, $53 ; Logical XOR (A XOR $53)
$00:$43A2: (05) 3F57 clr $57 ; Clear $57
$00:$43A4: (03) BE57 ld x, $57 ; Load into X from $57
$00:$43A6: (03) B353 cp x, $53 ; Compare X with $53
$00:$43A8: (03) 2707 jreq $43B1 ; Branch to $43B1 if equal
$00:$43AA: (05) D80DF8 xor a, ($0DF8,x) ; Logical XOR (A XOR $0DF8, index X.)
$00:$43AD: (05) 3C57 inc $57 ; Increment $57
$00:$43AF: (03) 20F3 jra $43A4 ; Branch to $43A4 always
$00:$43B1: (03) 88 push a ; Save A on stack
$00:$43B2: (06) CD42F7 call $42F7 ; Call $42F7
$00:$43B5: (05) 3F57 clr $57 ; Clear $57
$00:$43B7: (03) BE57 ld x, $57 ; Load into X from $57
$00:$43B9: (03) B353 cp x, $53 ; Compare X with $53
$00:$43BB: (03) 270A jreq $43C7 ; Branch to $43C7 if equal
$00:$43BD: (05) D60DF8 ld a, ($0DF8,x) ; Load into A from $0DF8, index X.
$00:$43C0: (06) CD432D call $432D ; Call $432D
$00:$43C3: (05) 3C57 inc $57 ; Increment $57
$00:$43C5: (03) 20F0 jra $43B7 ; Branch to $43B7 always
$00:$43C7: (04) 84 pop a ; Restore A from stack
$00:$43C8: (06) CD432D call $432D ; Call $432D
$00:$43CB: (03) CC430E jp $430E ; Jump to $430E
$00:$43CE: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$43D1: (00) A7
$00:$43D2: (00) A7
$00:$43D3: (04) CE0DE8 ld x, $0DE8 ; Load into X from $0DE8
$00:$43D6: (03) 278A jreq $4362 ; Branch to $4362 if equal
$00:$43D8: (05) 3F58 clr $58 ; Clear $58
$00:$43DA: (05) 3F59 clr $59 ; Clear $59
$00:$43DC: (05) C70DEB ld $0DEB, a ; Load into $0DEB from A
$00:$43DF: (05) 3F5A clr $5A ; Clear $5A
$00:$43E1: (03) 8A push cc ; Save CC on stack
$00:$43E2: (06) CD4366 call $4366 ; Call $4366
$00:$43E5: (04) 86 pop cc ; Restore CC from stack
$00:$43E6: (06) 81 ret ; Return
$00:$43E7: (05) 0D1AFD btjf6 $1A, $43E7 ; Branch to $43E7 if $1A.6=0
$00:$43EA: (05) 0C1A05 btjt6 $1A, $43F2 ; Branch to $43F2 if $1A.6=1
$00:$43ED: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$43F0: (00) A7
$00:$43F1: (00) A7
$00:$43F2: (05) 1118 bclr0 $18 ; Clear $18.0
$00:$43F4: (05) 1118 bclr0 $18 ; Clear $18.0
$00:$43F6: (05) 3F18 clr $18 ; Clear $18
$00:$43F8: (05) 1E18 bset7 $18 ; Set $18.7
$00:$43FA: (05) 016202 btjf0 $62, $43FF ; Branch to $43FF if $62.0=0
$00:$43FD: (05) 1618 bset3 $18 ; Set $18.3
$00:$43FF: (05) 1918 bclr4 $18 ; Clear $18.4
$00:$4401: (05) 1B18 bclr5 $18 ; Clear $18.5
$00:$4403: (04) C60DE7 ld a, $0DE7 ; Load into A from $0DE7
$00:$4406: (02) A430 and a, #$30 ; Logical AND (A AND #$30)
$00:$4408: (03) BA18 or a, $18 ; Logical OR (A OR $18)
$00:$440A: (04) B718 ld $18, a ; Load into $18 from A
$00:$440C: (04) C60DE5 ld a, $0DE5 ; Load into A from $0DE5
$00:$440F: (02) A407 and a, #$07 ; Logical AND (A AND #$07)
$00:$4411: (03) 88 push a ; Save A on stack
$00:$4412: (03) B61B ld a, $1B ; Load into A from $1B
$00:$4414: (02) A478 and a, #$78 ; Logical AND (A AND #$78)
$00:$4416: (04) 31EA01 or a, ($01,s) ; Logical OR (A OR $01, index S.)
$00:$4419: (04) B71B ld $1B, a ; Load into $1B from A
$00:$441B: (04) 84 pop a ; Restore A from stack
$00:$441C: (04) C60DE6 ld a, $0DE6 ; Load into A from $0DE6
$00:$441F: (04) B71C ld $1C, a ; Load into $1C from A
$00:$4421: (06) 81 ret ; Return
$00:$4422: (06) AD03 callr $4427 ; Call relative $4427
$00:$4424: (05) 1019 bset0 $19 ; Set $19.0
$00:$4426: (06) 81 ret ; Return
$00:$4427: (05) 0D1AFD btjf6 $1A, $4427 ; Branch to $4427 if $1A.6=0
$00:$442A: (05) 0C1A05 btjt6 $1A, $4432 ; Branch to $4432 if $1A.6=1
$00:$442D: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$4430: (00) A7
$00:$4431: (00) A7
$00:$4432: (05) 1018 bset0 $18 ; Set $18.0
$00:$4434: (03) B619 ld a, $19 ; Load into A from $19
$00:$4436: (02) A4C0 and a, #$C0 ; Logical AND (A AND #$C0)
$00:$4438: (04) B719 ld $19, a ; Load into $19 from A
$00:$443A: (03) B61A ld a, $1A ; Load into A from $1A
$00:$443C: (02) A480 and a, #$80 ; Logical AND (A AND #$80)
$00:$443E: (04) B71A ld $1A, a ; Load into $1A from A
$00:$4440: (06) 81 ret ; Return
$00:$4441: (05) 0D1AFD btjf6 $1A, $4441 ; Branch to $4441 if $1A.6=0
$00:$4444: (05) 0C1A05 btjt6 $1A, $444C ; Branch to $444C if $1A.6=1
$00:$4447: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$444A: (00) A7
$00:$444B: (00) A7
$00:$444C: (05) 1118 bclr0 $18 ; Clear $18.0
$00:$444E: (05) 1118 bclr0 $18 ; Clear $18.0
$00:$4450: (06) 81 ret ; Return
$00:$4451: (04) C60DF9 ld a, $0DF9 ; Load into A from $0DF9
$00:$4454: (07) 8D009EC3 ecall #$00, $9EC3 ; Call $9EC3 from page #$00
$00:$4458: (02) A1CA cp a, #$CA ; Compare A with #$CA
$00:$445A: (03) 2737 jreq $4493 ; Branch to $4493 if equal
$00:$445C: (06) CD4988 call $4988 ; Call $4988
$00:$445F: (05) 1963 bclr4 $63 ; Clear $63.4
$00:$4461: (05) 1C5F bset6 $5F ; Set $5F.6
$00:$4463: (03) AC push dsr ; Save DSR on stack.
$00:$4464: (04) C63099 ld a, $3099 ; Load into A from $3099
$00:$4467: (03) 260D jrne $4476 ; Branch to $4476 if not equal
$00:$4469: (03) 7180 ld dsr, #$80 ; Load #$80 into DSR
$00:$446B: (04) C68000 ld a, $8000 ; Load into A from $8000
$00:$446E: (03) CC447B jp $447B ; Jump to $447B
$00:$4471: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$4474: (00) A7
$00:$4475: (00) A7
$00:$4476: (03) 7180 ld dsr, #$80 ; Load #$80 into DSR
$00:$4478: (04) C68048 ld a, $8048 ; Load into A from $8048
$00:$447B: (04) AF pop dsr ; Restore DSR from stack
$00:$447C: (02) A480 and a, #$80 ; Logical AND (A AND #$80)
$00:$447E: (03) 2708 jreq $4488 ; Branch to $4488 if equal
$00:$4480: (03) CC7771 jp $7771 ; Jump to $7771
$00:$4483: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$4486: (00) A7
$00:$4487: (00) A7
$00:$4488: (03) 26F9 jrne $4483 ; Branch to $4483 if not equal
$00:$448A: (04) C60DF9 ld a, $0DF9 ; Load into A from $0DF9
$00:$448D: (03) CC4A2A jp $4A2A ; Jump to $4A2A
$00:$4490: (03) CC7771 jp $7771 ; Jump to $7771
$00:$4493: (05) 1561 bclr2 $61 ; Clear $61.2
$00:$4495: (06) CD56B1 call $56B1 ; Call $56B1
$00:$4498: (05) 010080 btjf0 $00, $441B ; Branch to $441B if $00.0=0
$00:$449B: (04) C60DFA ld a, $0DFA ; Load into A from $0DFA
$00:$449E: (04) CA0DFB or a, $0DFB ; Logical OR (A OR $0DFB)
$00:$44A1: (03) 26ED jrne $4490 ; Branch to $4490 if not equal
$00:$44A3: (06) CD506A call $506A ; Call $506A
$00:$44A6: (03) 25E8 jrc $4490 ; Branch to $4490 if carry set
$00:$44A8: (03) B659 ld a, $59 ; Load into A from $59
$00:$44AA: (02) A005 sub a, #$05 ; Substract #$05 from A
$00:$44AC: (03) 2409 jrnc $44B7 ; Branch to $44B7 if carry clear
$00:$44AE: (03) CC7771 jp $7771 ; Jump to $7771
$00:$44B1: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$44B4: (00) A7
$00:$44B5: (05) 1E04 bset7 $04 ; Set $04.7
$00:$44B7: (04) C10DFC cp a, $0DFC ; Compare A to $0DFC
$00:$44BA: (03) 2709 jreq $44C5 ; Branch to $44C5 if equal
$00:$44BC: (02) A001 sub a, #$01 ; Substract #$01 from A
$00:$44BE: (03) 25EE jrc $44AE ; Branch to $44AE if carry set
$00:$44C0: (04) C10DFC cp a, $0DFC ; Compare A to $0DFC
$00:$44C3: (03) 26E9 jrne $44AE ; Branch to $44AE if not equal
$00:$44C5: (02) A002 sub a, #$02 ; Substract #$02 from A
$00:$44C7: (03) 25E5 jrc $44AE ; Branch to $44AE if carry set
$00:$44C9: (04) C10DFE cp a, $0DFE ; Compare A to $0DFE
$00:$44CC: (03) 26E0 jrne $44AE ; Branch to $44AE if not equal
$00:$44CE: (05) C70C82 ld $0C82, a ; Load into $0C82 from A
$00:$44D1: (05) 126C bset1 $6C ; Set $6C.1
$00:$44D3: (04) C60DFD ld a, $0DFD ; Load into A from $0DFD
$00:$44D6: (05) C70C81 ld $0C81, a ; Load into $0C81 from A
$00:$44D9: (02) 97 ld x, a ; Load into X from A
$00:$44DA: (03) 54 srl x ; Logical shift right
$00:$44DB: (03) 54 srl x ; Logical shift right
$00:$44DC: (03) 54 srl x ; Logical shift right
$00:$44DD: (03) AC push dsr ; Save DSR on stack.
$00:$44DE: (04) C63099 ld a, $3099 ; Load into A from $3099
$00:$44E1: (03) 260D jrne $44F0 ; Branch to $44F0 if not equal
$00:$44E3: (03) 7180 ld dsr, #$80 ; Load #$80 into DSR
$00:$44E5: (05) D68008 ld a, ($8008,x) ; Load into A from $8008, index X.
$00:$44E8: (03) CC44F5 jp $44F5 ; Jump to $44F5
$00:$44EB: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$44EE: (00) A7
$00:$44EF: (00) A7
$00:$44F0: (03) 7180 ld dsr, #$80 ; Load #$80 into DSR
$00:$44F2: (05) D68050 ld a, ($8050,x) ; Load into A from $8050, index X.
$00:$44F5: (04) B724 ld $24, a ; Load into $24 from A
$00:$44F7: (04) AF pop dsr ; Restore DSR from stack
$00:$44F8: (04) C60C81 ld a, $0C81 ; Load into A from $0C81
$00:$44FB: (02) A407 and a, #$07 ; Logical AND (A AND #$07)
$00:$44FD: (02) A807 xor a, #$07 ; Logical XOR (A XOR #$07)
$00:$44FF: (02) 97 ld x, a ; Load into X from A
$00:$4500: (03) AC push dsr ; Save DSR on stack.
$00:$4501: (03) 7102 ld dsr, #$02 ; Load #$02 into DSR
$00:$4503: (05) D68111 ld a, ($8111,x) ; Load into A from $8111, index X.
$00:$4506: (04) AF pop dsr ; Restore DSR from stack
$00:$4507: (03) B424 and a, $24 ; Logical AND (A AND $24)
$00:$4509: (03) 2708 jreq $4513 ; Branch to $4513 if equal
$00:$450B: (03) CC7771 jp $7771 ; Jump to $7771
$00:$450E: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$4511: (00) A7
$00:$4512: (00) A7
$00:$4513: (03) 26F9 jrne $450E ; Branch to $450E if not equal
$00:$4515: (04) C60C81 ld a, $0C81 ; Load into A from $0C81
$00:$4518: (07) 8D009EC3 ecall #$00, $9EC3 ; Call $9EC3 from page #$00
$00:$451C: (02) A133 cp a, #$33 ; Compare A with #$33
$00:$451E: (03) 264E jrne $456E ; Branch to $456E if not equal
$00:$4520: (06) CD56B1 call $56B1 ; Call $56B1
$00:$4523: (05) 0DF8FF btjf6 $F8, $4525 ; Branch to $4525 if $F8.6=0
$00:$4526: (02) A663 ld a, #$63 ; Load #$63 into A
$00:$4528: (05) 06642F btjt3 $64, $455A ; Branch to $455A if $64.3=1
$00:$452B: (05) 0A682C btjt5 $68, $455A ; Branch to $455A if $68.5=1
$00:$452E: (05) 096429 btjf4 $64, $455A ; Branch to $455A if $64.4=0
$00:$4531: (04) C60DC3 ld a, $0DC3 ; Load into A from $0DC3
$00:$4534: (02) AB03 add a, #$03 ; Add A to #$03
$00:$4536: (06) CD53D7 call $53D7 ; Call $53D7
$00:$4539: (05) 0DFECD btjf6 $FE, $4509 ; Branch to $4509 if $FE.6=0
$00:$453C: (03) 58 sll x ; Logical shift left
$00:$453D: (03) 24CD jrnc $450C ; Branch to $450C if carry clear
$00:$453F: (03) 53 cpl x ; Logical complement
$00:$4540: (06) D709B0 ld ($09B0,x), a ; Load into $09B0, index X, from A
$00:$4543: (06) CD7E53 call $7E53 ; Call $7E53
$00:$4546: (04) CE0DBC ld x, $0DBC ; Load into X from $0DBC
$00:$4549: (03) 2705 jreq $4550 ; Branch to $4550 if equal
$00:$454B: (02) AE01 ld x, #$01 ; Load #$01 into X
$00:$454D: (05) CF0DF7 ld $0DF7, x ; Load into $0DF7 from X
$00:$4550: (04) CE0DB8 ld x, $0DB8 ; Load into X from $0DB8
$00:$4553: (05) CF0DFC ld $0DFC, x ; Load into $0DFC from X
$00:$4556: (03) 5F clr x ; Clear X
$00:$4557: (05) CF0DFD ld $0DFD, x ; Load into $0DFD from X
$00:$455A: (05) 1964 bclr4 $64 ; Clear $64.4
$00:$455C: (02) AB02 add a, #$02 ; Add A to #$02
$00:$455E: (02) AE06 ld x, #$06 ; Load #$06 into X
$00:$4560: (05) CF0DFA ld $0DFA, x ; Load into $0DFA from X
$00:$4563: (05) C70DFB ld $0DFB, a ; Load into $0DFB from A
$00:$4566: (02) AB02 add a, #$02 ; Add A to #$02
$00:$4568: (02) 97 ld x, a ; Load into X from A
$00:$4569: (02) A6F3 ld a, #$F3 ; Load #$F3 into A
$00:$456B: (03) CC49BB jp $49BB ; Jump to $49BB
$00:$456E: (02) A11C cp a, #$1C ; Compare A with #$1C
$00:$4570: (03) 265B jrne $45CD ; Branch to $45CD if not equal
$00:$4572: (02) 90AE3F ld y, #$3F ; Load #$3F into Y
$00:$4575: (02) AE1E ld x, #$1E ; Load #$1E into X
$00:$4577: (04) C82F71 xor a, $2F71 ; Logical XOR (A XOR $2F71)
$00:$457A: (03) 5A dec x ; Decrement X
$00:$457B: (03) 2AFA jrpl $4577 ; Branch to $4577 if positive
$00:$457D: (06) 90D70DF8 ld ($0DF8,y), a ; Load into $0DF8, index Y, from A
$00:$4581: (03) 905A dec y ; Decrement Y
$00:$4583: (03) 2AF0 jrpl $4575 ; Branch to $4575 if positive
$00:$4585: (03) 4F clr a ; Clear A
$00:$4586: (05) C70DFA ld $0DFA, a ; Load into $0DFA from A
$00:$4589: (05) C70E14 ld $0E14, a ; Load into $0E14 from A
$00:$458C: (02) A608 ld a, #$08 ; Load #$08 into A
$00:$458E: (05) C70DFB ld $0DFB, a ; Load into $0DFB from A
$00:$4591: (05) C70E15 ld $0E15, a ; Load into $0E15 from A
$00:$4594: (06) CD53D7 call $53D7 ; Call $53D7
$00:$4597: (05) 0DFACD btjf6 $FA, $4567 ; Branch to $4567 if $FA.6=0
$00:$459A: (03) 58 sll x ; Logical shift left
$00:$459B: (03) 24CD jrnc $456A ; Branch to $456A if carry clear
$00:$459D: (03) 53 cpl x ; Logical complement
$00:$459E: (06) D70272 ld ($0272,x), a ; Load into $0272, index X, from A
$00:$45A1: (05) 036902 btjf1 $69, $45A6 ; Branch to $45A6 if $69.1=0
$00:$45A4: (06) AD16 callr $45BC ; Call relative $45BC
$00:$45A6: (05) 05690A btjf2 $69, $45B3 ; Branch to $45B3 if $69.2=0
$00:$45A9: (02) A61A ld a, #$1A ; Load #$1A into A
$00:$45AB: (06) CD5582 call $5582 ; Call $5582
$00:$45AE: (06) CD55C3 call $55C3 ; Call $55C3
$00:$45B1: (06) AD09 callr $45BC ; Call relative $45BC
$00:$45B3: (05) 1369 bclr1 $69 ; Clear $69.1
$00:$45B5: (05) 1569 bclr2 $69 ; Clear $69.2
$00:$45B7: (06) CD49AF call $49AF ; Call $49AF
$00:$45BA: (02) 9C rsp ; Reset stack pointer
$00:$45BB: (05) 34AE srl $AE ; Logical shift right
$00:$45BD: (05) 0192D6 btjf0 $92, $4596 ; Branch to $4596 if $92.0=0
$00:$45C0: (03) 47 sra a ; Arithmetic shift right
$00:$45C1: (03) 2709 jreq $45CC ; Branch to $45CC if equal
$00:$45C3: (02) A118 cp a, #$18 ; Compare A with #$18
$00:$45C5: (03) 2205 jrugt $45CC ; Branch to $45CC if higher
$00:$45C7: (02) AB02 add a, #$02 ; Add A to #$02
$00:$45C9: (06) CD7E53 call $7E53 ; Call $7E53
$00:$45CC: (06) 81 ret ; Return
$00:$45CD: (02) A1C8 cp a, #$C8 ; Compare A with #$C8
$00:$45CF: (03) 2619 jrne $45EA ; Branch to $45EA if not equal
$00:$45D1: (06) CD53D7 call $53D7 ; Call $53D7
$00:$45D4: (05) 0DFACD btjf6 $FA, $45A4 ; Branch to $45A4 if $FA.6=0
$00:$45D7: (03) 58 sll x ; Logical shift left
$00:$45D8: (03) 24CD jrnc $45A7 ; Branch to $45A7 if carry clear
$00:$45DA: (03) 53 cpl x ; Logical complement
$00:$45DB: (06) D70DC7 ld ($0DC7,x), a ; Load into $0DC7, index X, from A
$00:$45DE: (02) A604 ld a, #$04 ; Load #$04 into A
$00:$45E0: (06) CD7E53 call $7E53 ; Call $7E53
$00:$45E3: (05) 1967 bclr4 $67 ; Clear $67.4
$00:$45E5: (06) CD49AF call $49AF ; Call $49AF
$00:$45E8: (03) B804 xor a, $04 ; Logical XOR (A XOR $04)
$00:$45EA: (02) A1C7 cp a, #$C7 ; Compare A with #$C7
$00:$45EC: (03) 260C jrne $45FA ; Branch to $45FA if not equal
$00:$45EE: (06) CD5743 call $5743 ; Call $5743
$00:$45F1: (05) 0DFA02 btjf6 $FA, $45F6 ; Branch to $45F6 if $FA.6=0
$00:$45F4: (06) 6ACD dec ($CD,x) ; Decrement $CD, index X,
$00:$45F6: (03) 49 rlc a ; Rotate left through carry
$00:$45F7: (04) AF pop dsr ; Restore DSR from stack
$00:$45F8: (04) B702 ld $02, a ; Load into $02 from A
$00:$45FA: (02) A115 cp a, #$15 ; Compare A with #$15
$00:$45FC: (03) 260C jrne $460A ; Branch to $460A if not equal
$00:$45FE: (06) CD7ED1 call $7ED1 ; Call $7ED1
$00:$4601: (05) 0DFA06 btjf6 $FA, $460A ; Branch to $460A if $FA.6=0
$00:$4604: (03) 4F clr a ; Clear A
$00:$4605: (06) CD49AF call $49AF ; Call $49AF
$00:$4608: (02) 95 ld s, a ; Load into S from A
$00:$4609: (05) 06A112 btjt3 $A1, $461E ; Branch to $461E if $A1.3=1
$00:$460C: (03) 260D jrne $461B ; Branch to $461B if not equal
$00:$460E: (06) CD7E14 call $7E14 ; Call $7E14
$00:$4611: (05) 3050 neg $50 ; Negate $50
$00:$4613: (05) 0DFA04 btjf6 $FA, $461A ; Branch to $461A if $FA.6=0
$00:$4616: (06) CD49AF call $49AF ; Call $49AF
$00:$4619: (05) 9204A165 btjt2 [$A1], [$65] ; Branch to $65, indirect. if $A1, indirect, .2=1
$00:$461D: (03) 261E jrne $463D ; Branch to $463D if not equal
$00:$461F: (06) CD56B1 call $56B1 ; Call $56B1
$00:$4622: (05) 0DF8FF btjf6 $F8, $4624 ; Branch to $4624 if $F8.6=0
$00:$4625: (05) 06640E btjt3 $64, $4636 ; Branch to $4636 if $64.3=1
$00:$4628: (05) 08640B btjt4 $64, $4636 ; Branch to $4636 if $64.4=1
$00:$462B: (05) 0B6808 btjf5 $68, $4636 ; Branch to $4636 if $68.5=0
$00:$462E: (06) CD7E14 call $7E14 ; Call $7E14
$00:$4631: (05) 09B00D btjf4 $B0, $4641 ; Branch to $4641 if $B0.4=0
$00:$4634: (03) FA or a, (x) ; Logical OR (A OR index X.)
$00:$4635: (03) 50 neg x ; Negate X
$00:$4636: (05) 1B68 bclr5 $68 ; Clear $68.5
$00:$4638: (06) CD49AF call $49AF ; Call $49AF
$00:$463B: (04) E550 bcp a, ($50,x) ; Bit compare A with $50, index X.
$00:$463D: (02) A11A cp a, #$1A ; Compare A with #$1A
$00:$463F: (03) 262D jrne $466E ; Branch to $466E if not equal
$00:$4641: (04) C60DFF ld a, $0DFF ; Load into A from $0DFF
$00:$4644: (04) B728 ld $28, a ; Load into $28 from A
$00:$4646: (06) CD56B1 call $56B1 ; Call $56B1
$00:$4649: (05) 0DF8FF btjf6 $F8, $464B ; Branch to $464B if $F8.6=0
$00:$464C: (05) 056810 btjf2 $68, $465F ; Branch to $465F if $68.2=0
$00:$464F: (04) CE02FA ld x, $02FA ; Load into X from $02FA
$00:$4652: (02) A330 cp x, #$30 ; Compare X with #$30
$00:$4654: (03) 2209 jrugt $465F ; Branch to $465F if higher
$00:$4656: (05) D602FA ld a, ($02FA,x) ; Load into A from $02FA, index X.
$00:$4659: (06) D70DFA ld ($0DFA,x), a ; Load into $0DFA, index X, from A
$00:$465C: (03) 5A dec x ; Decrement X
$00:$465D: (03) 2AF7 jrpl $4656 ; Branch to $4656 if positive
$00:$465F: (03) BE28 ld x, $28 ; Load into X from $28
$00:$4661: (02) A302 cp x, #$02 ; Compare X with #$02
$00:$4663: (03) 2402 jrnc $4667 ; Branch to $4667 if carry clear
$00:$4665: (02) AE02 ld x, #$02 ; Load #$02 into X
$00:$4667: (03) 5A dec x ; Decrement X
$00:$4668: (03) 5A dec x ; Decrement X
$00:$4669: (02) A69A ld a, #$9A ; Load #$9A into A
$00:$466B: (03) CC49BB jp $49BB ; Jump to $49BB
$00:$466E: (02) A149 cp a, #$49 ; Compare A with #$49
$00:$4670: (03) 261E jrne $4690 ; Branch to $4690 if not equal
$00:$4672: (06) CD56B1 call $56B1 ; Call $56B1
$00:$4675: (05) 0DF8FF btjf6 $F8, $4677 ; Branch to $4677 if $F8.6=0
$00:$4678: (05) 08640E btjt4 $64, $4689 ; Branch to $4689 if $64.4=1
$00:$467B: (05) 0A680B btjt5 $68, $4689 ; Branch to $4689 if $68.5=1
$00:$467E: (05) 076408 btjf3 $64, $4689 ; Branch to $4689 if $64.3=0
$00:$4681: (06) CD7E14 call $7E14 ; Call $7E14
$00:$4684: (05) 09B00D btjf4 $B0, $4694 ; Branch to $4694 if $B0.4=0
$00:$4687: (03) FA or a, (x) ; Logical OR (A OR index X.)
$00:$4688: (09) 80 iret ; Return
$00:$4689: (05) 1764 bclr3 $64 ; Clear $64.3
$00:$468B: (06) CD49AF call $49AF ; Call $49AF
$00:$468E: (05) 79 rlc (x) ; Rotate left through carry
$00:$468F: (09) 80 iret ; Return
$00:$4690: (07) 8D009EC3 ecall #$00, $9EC3 ; Call $9EC3 from page #$00
$00:$4694: (06) CD4988 call $4988 ; Call $4988
$00:$4697: (06) CD56B1 call $56B1 ; Call $56B1
$00:$469A: (05) 09B083 btjf4 $B0, $4620 ; Branch to $4620 if $B0.4=0
$00:$469D: (06) CD509B call $509B ; Call $509B
$00:$46A0: (04) C60DFD ld a, $0DFD ; Load into A from $0DFD
$00:$46A3: (02) A122 cp a, #$22 ; Compare A with #$22
$00:$46A5: (03) 2703 jreq $46AA ; Branch to $46AA if equal
$00:$46A7: (03) CC477D jp $477D ; Jump to $477D
$00:$46AA: (06) CD59D5 call $59D5 ; Call $59D5
$00:$46AD: (03) 2AAE jrpl $465D ; Branch to $465D if positive
$00:$46AF: (06) 6AC6 dec ($C6,x) ; Decrement $C6, index X,
$00:$46B1: (05) 0E00A0 btjt7 $00, $4654 ; Branch to $4654 if $00.7=1
$00:$46B4: (05) 022205 btjt1 $22, $46BC ; Branch to $46BC if $22.1=1
$00:$46B7: (06) CD49AF call $49AF ; Call $49AF
$00:$46BA: (02) A200 sbc a, #$00 ; Sub w/carry #$00 from A
$00:$46BC: (05) C7023C ld $023C, a ; Load into $023C from A
$00:$46BF: (04) C60DFF ld a, $0DFF ; Load into A from $0DFF
$00:$46C2: (06) CD56B1 call $56B1 ; Call $56B1
$00:$46C5: (05) 0DFBFC btjf6 $FB, $46C4 ; Branch to $46C4 if $FB.6=0
$00:$46C8: (03) 4D tnz a ; Test for negative and zero
$00:$46C9: (03) 2A1D jrpl $46E8 ; Branch to $46E8 if positive
$00:$46CB: (05) 096360 btjf4 $63, $472E ; Branch to $472E if $63.4=0
$00:$46CE: (06) CD7E00 call $7E00 ; Call $7E00
$00:$46D1: (05) 023803 btjt1 $38, $46D7 ; Branch to $46D7 if $38.1=1
$00:$46D4: (03) 4E swap a ; Swap nibbles
$00:$46D5: (02) 90AE00 ld y, #$00 ; Load #$00 into Y
$00:$46D8: (03) 48 sll a ; Logical shift left
$00:$46D9: (03) 2A03 jrpl $46DE ; Branch to $46DE if positive
$00:$46DB: (02) 90AE40 ld y, #$40 ; Load #$40 into Y
$00:$46DE: (04) C6023B ld a, $023B ; Load into A from $023B
$00:$46E1: (06) CD59AC call $59AC ; Call $59AC
$00:$46E4: (03) 2415 jrnc $46FB ; Branch to $46FB if carry clear
$00:$46E6: (03) 2046 jra $472E ; Branch to $472E always
$00:$46E8: (05) C7023B ld $023B, a ; Load into $023B from A
$00:$46EB: (06) CD5996 call $5996 ; Call $5996
$00:$46EE: (02) 90AE60 ld y, #$60 ; Load #$60 into Y
$00:$46F1: (03) 88 push a ; Save A on stack
$00:$46F2: (03) B66A ld a, $6A ; Load into A from $6A
$00:$46F4: (03) BA6B or a, $6B ; Logical OR (A OR $6B)
$00:$46F6: (04) 84 pop a ; Restore A from stack
$00:$46F7: (03) 2602 jrne $46FB ; Branch to $46FB if not equal
$00:$46F9: (05) 1167 bclr0 $67 ; Clear $67.0
$00:$46FB: (07) 8D009EC3 ecall #$00, $9EC3 ; Call $9EC3 from page #$00
$00:$46FF: (05) C7032E ld $032E, a ; Load into $032E from A
$00:$4702: (07) 8D00A3A3 ecall #$00, $A3A3 ; Call $A3A3 from page #$00
$00:$4706: (03) 2526 jrc $472E ; Branch to $472E if carry set
$00:$4708: (02) 909F ld a, y ; Load into A from Y
$00:$470A: (06) CD7264 call $7264 ; Call $7264
$00:$470D: (03) 251F jrc $472E ; Branch to $472E if carry set
$00:$470F: (06) CD5743 call $5743 ; Call $5743
$00:$4712: (05) 023803 btjt1 $38, $4718 ; Branch to $4718 if $38.1=1
$00:$4715: (03) 4E swap a ; Swap nibbles
$00:$4716: (05) 1863 bset4 $63 ; Set $63.4
$00:$4718: (06) CD53D7 call $53D7 ; Call $53D7
$00:$471B: (05) 0DFB3F btjf6 $FB, $475D ; Branch to $475D if $FB.6=0
$00:$471E: (00) 82
$00:$471F: (02) A6FC ld a, #$FC ; Load #$FC into A
$00:$4721: (04) B783 ld $83, a ; Load into $83 from A
$00:$4723: (07) 8D004736 ecall #$00, $4736 ; Call $4736 from page #$00
$00:$4727: (03) B648 ld a, $48 ; Load into A from $48
$00:$4729: (02) A0FB sub a, #$FB ; Substract #$FB from A
$00:$472B: (05) C70DFA ld $0DFA, a ; Load into $0DFA from A
$00:$472E: (04) CE023C ld x, $023C ; Load into X from $023C
$00:$4731: (02) A6A2 ld a, #$A2 ; Load #$A2 into A
$00:$4733: (03) CC49BB jp $49BB ; Jump to $49BB
$00:$4736: (07) 8D009EC3 ecall #$00, $9EC3 ; Call $9EC3 from page #$00
$00:$473A: (03) AC push dsr ; Save DSR on stack.
$00:$473B: (03) BE82 ld x, $82 ; Load into X from $82
$00:$473D: (03) B37F cp x, $7F ; Compare X with $7F
$00:$473F: (03) 223A jrugt $477B ; Branch to $477B if higher
$00:$4741: (03) 58 sll x ; Logical shift left
$00:$4742: (03) 58 sll x ; Logical shift left
$00:$4743: (05) D607B0 ld a, ($07B0,x) ; Load into A from $07B0, index X.
$00:$4746: (02) 9097 ld y, a ; Load into Y from A
$00:$4748: (03) 271F jreq $4769 ; Branch to $4769 if equal
$00:$474A: (05) D607B1 ld a, ($07B1,x) ; Load into A from $07B1, index X.
$00:$474D: (02) 7B ld dsr, a ; Load into DSR from A
$00:$474E: (05) D607B2 ld a, ($07B2,x) ; Load into A from $07B2, index X.
$00:$4751: (04) B74A ld $4A, a ; Load into $4A from A
$00:$4753: (05) D607B3 ld a, ($07B3,x) ; Load into A from $07B3, index X.
$00:$4756: (04) B74B ld $4B, a ; Load into $4B from A
$00:$4758: (03) B683 ld a, $83 ; Load into A from $83
$00:$475A: (05) D007B0 sub a, ($07B0,x) ; Substract $07B0, index X. from A
$00:$475D: (03) 250E jrc $476D ; Branch to $476D if carry set
$00:$475F: (04) B7?? ld $00, a ; Load into $00 from A
$00:$4000: (05) 00065A btjt0 $06, $405D ; Branch to $405D if $06.0=1
$00:$4003: (00) A7
$00:$4004: (03) 2029 jra $402F ; Branch to $402F always
$00:$4006: (00) A7
$00:$4007: (02) 9D nop ; No operation
$00:$4008: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$400B: (06) 81 ret ; Return
$00:$400C: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$400F: (00) A7
$00:$4010: (03) 2025 jra $4037 ; Branch to $4037 always
$00:$4012: (00) A7
$00:$4013: (02) 9D nop ; No operation
$00:$4014: (03) 202C jra $4042 ; Branch to $4042 always
$00:$4016: (00) A7
$00:$4017: (02) 9D nop ; No operation
$00:$4018: (05) 3F0B clr $0B ; Clear $0B
$00:$401A: (03) 205E jra $407A ; Branch to $407A always
$00:$401C: (03) 202F jra $404D ; Branch to $404D always
$00:$401E: (00) A7
$00:$401F: (02) 9D nop ; No operation
$00:$4020: (04) 86 pop cc ; Restore CC from stack
$00:$4021: (03) CC4F5F jp $4F5F ; Jump to $4F5F
$00:$4024: (03) 202F jra $4055 ; Branch to $4055 always
$00:$4026: (00) A7
$00:$4027: (02) 9D nop ; No operation
$00:$4028: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$402B: (00) A7
$00:$402C: (00) A7
$00:$402D: (05) 1E04 bset7 $04 ; Set $04.7
$00:$402F: (07) 8D009EC3 ecall #$00, $9EC3 ; Call $9EC3 from page #$00
$00:$4033: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$4036: (00) A7
$00:$4037: (07) 8D009EC3 ecall #$00, $9EC3 ; Call $9EC3 from page #$00
$00:$403B: (03) CC4CC7 jp $4CC7 ; Jump to $4CC7
$00:$403E: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$4041: (00) A7
$00:$4042: (07) 8D009EC3 ecall #$00, $9EC3 ; Call $9EC3 from page #$00
$00:$4046: (03) CC4FBF jp $4FBF ; Jump to $4FBF
$00:$4049: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$404C: (00) A7
$00:$404D: (07) 8D009EC3 ecall #$00, $9EC3 ; Call $9EC3 from page #$00
$00:$4051: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$4054: (00) A7
$00:$4055: (07) 8D009EC3 ecall #$00, $9EC3 ; Call $9EC3 from page #$00
$00:$4059: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$405C: (00) A7
$00:$405D: (05) 1360 bclr1 $60 ; Clear $60.1
$00:$405F: (02) 9B sim ; Set interrupt mask
$00:$4060: (03) B602 ld a, $02 ; Load into A from $02
$00:$4062: (02) A4C0 and a, #$C0 ; Logical AND (A AND #$C0)
$00:$4064: (04) B702 ld $02, a ; Load into $02 from A
$00:$4066: (02) A6A5 ld a, #$A5 ; Load #$A5 into A
$00:$4068: (04) B706 ld $06, a ; Load into $06 from A
$00:$406A: (02) A60E ld a, #$0E ; Load #$0E into A
$00:$406C: (04) B70D ld $0D, a ; Load into $0D from A
$00:$406E: (07) 8D00DCCF ecall #$00, $DCCF ; Call $DCCF from page #$00
$00:$4072: (02) A608 ld a, #$08 ; Load #$08 into A
$00:$4074: (07) 8D00DC85 ecall #$00, $DC85 ; Call $DC85 from page #$00
$00:$4078: (00) A7
$00:$4079: (00) A7
$00:$407A: (05) 1119 bclr0 $19 ; Clear $19.0
$00:$407C: (03) B61E ld a, $1E ; Load into A from $1E
$00:$407E: (05) 02630D btjt1 $63, $408E ; Branch to $408E if $63.1=1
$00:$4081: (05) 006311 btjt0 $63, $4095 ; Branch to $4095 if $63.0=1
$00:$4084: (04) B755 ld $55, a ; Load into $55 from A
$00:$4086: (03) CC4150 jp $4150 ; Jump to $4150
$00:$4089: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$408C: (00) A7
$00:$408D: (00) A7
$00:$408E: (05) 0F521E btjf7 $52, $40AF ; Branch to $40AF if $52.7=0
$00:$4091: (04) B754 ld $54, a ; Load into $54 from A
$00:$4093: (03) 2025 jra $40BA ; Branch to $40BA always
$00:$4095: (03) BE57 ld x, $57 ; Load into X from $57
$00:$4097: (02) A302 cp x, #$02 ; Compare X with #$02
$00:$4099: (03) 2706 jreq $40A1 ; Branch to $40A1 if equal
$00:$409B: (05) E751 ld ($51,x), a ; Load into $51, index X, from A
$00:$409D: (05) 3C57 inc $57 ; Increment $57
$00:$409F: (03) 201F jra $40C0 ; Branch to $40C0 always
$00:$40A1: (05) 1163 bclr0 $63 ; Clear $63.0
$00:$40A3: (04) B753 ld $53, a ; Load into $53 from A
$00:$40A5: (03) 2602 jrne $40A9 ; Branch to $40A9 if not equal
$00:$40A7: (03) 2017 jra $40C0 ; Branch to $40C0 always
$00:$40A9: (05) 1263 bset1 $63 ; Set $63.1
$00:$40AB: (04) B757 ld $57, a ; Load into $57 from A
$00:$40AD: (03) 2011 jra $40C0 ; Branch to $40C0 always
$00:$40AF: (03) BE59 ld x, $59 ; Load into X from $59
$00:$40B1: (02) A3FF cp x, #$FF ; Compare X with #$FF
$00:$40B3: (03) 2405 jrnc $40BA ; Branch to $40BA if carry clear
$00:$40B5: (06) D70DF8 ld ($0DF8,x), a ; Load into $0DF8, index X, from A
$00:$40B8: (05) 3C59 inc $59 ; Increment $59
$00:$40BA: (05) 3A57 dec $57 ; Decrement $57
$00:$40BC: (03) 2602 jrne $40C0 ; Branch to $40C0 if not equal
$00:$40BE: (05) 1363 bclr1 $63 ; Clear $63.1
$00:$40C0: (05) 001A35 btjt0 $1A, $40F8 ; Branch to $40F8 if $1A.0=1
$00:$40C3: (04) CE0DE4 ld x, $0DE4 ; Load into X from $0DE4
$00:$40C6: (05) 001A2F btjt0 $1A, $40F8 ; Branch to $40F8 if $1A.0=1
$00:$40C9: (05) 130A bclr1 $0A ; Clear $0A.1
$00:$40CB: (05) 001A2A btjt0 $1A, $40F8 ; Branch to $40F8 if $1A.0=1
$00:$40CE: (05) 3F0A clr $0A ; Clear $0A
$00:$40D0: (05) 001A25 btjt0 $1A, $40F8 ; Branch to $40F8 if $1A.0=1
$00:$40D3: (02) A6F9 ld a, #$F9 ; Load #$F9 into A
$00:$40D5: (05) 001A20 btjt0 $1A, $40F8 ; Branch to $40F8 if $1A.0=1
$00:$40D8: (04) B709 ld $09, a ; Load into $09 from A
$00:$40DA: (05) 001A1B btjt0 $1A, $40F8 ; Branch to $40F8 if $1A.0=1
$00:$40DD: (05) 120A bset1 $0A ; Set $0A.1
$00:$40DF: (05) 001A16 btjt0 $1A, $40F8 ; Branch to $40F8 if $1A.0=1
$00:$40E2: (05) 020AFA btjt1 $0A, $40DF ; Branch to $40DF if $0A.1=1
$00:$40E5: (05) 001A10 btjt0 $1A, $40F8 ; Branch to $40F8 if $1A.0=1
$00:$40E8: (03) 5A dec x ; Decrement X
$00:$40E9: (05) 001A0C btjt0 $1A, $40F8 ; Branch to $40F8 if $1A.0=1
$00:$40EC: (03) 26E7 jrne $40D5 ; Branch to $40D5 if not equal
$00:$40EE: (06) AD10 callr $4100 ; Call relative $4100
$00:$40F0: (03) CC42BE jp $42BE ; Jump to $42BE
$00:$40F3: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$40F6: (00) A7
$00:$40F7: (00) A7
$00:$40F8: (03) CC407A jp $407A ; Jump to $407A
$00:$40FB: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$40FE: (00) A7
$00:$40FF: (00) A7
$00:$4100: (05) 125E bset1 $5E ; Set $5E.1
$00:$4102: (02) 96 ld x, s ; Load into X from S
$00:$4103: (02) 8C ld a, csr ; Load into A from CSR
$00:$4104: (03) 4D tnz a ; Test for negative and zero
$00:$4105: (03) 270E jreq $4115 ; Branch to $4115 if equal
$00:$4107: (02) A101 cp a, #$01 ; Compare A with #$01
$00:$4109: (03) 270A jreq $4115 ; Branch to $4115 if equal
$00:$410B: (02) A180 cp a, #$80 ; Compare A with #$80
$00:$410D: (03) 2706 jreq $4115 ; Branch to $4115 if equal
$00:$410F: (07) 8D00414E ecall #$00, $414E ; Call $414E from page #$00
$00:$4113: (03) 2018 jra $412D ; Branch to $412D always
$00:$4115: (05) D60F06 ld a, ($0F06,x) ; Load into A from $0F06, index X.
$00:$4118: (03) 2603 jrne $411D ; Branch to $411D if not equal
$00:$411A: (05) D60F08 ld a, ($0F08,x) ; Load into A from $0F08, index X.
$00:$411D: (02) A110 cp a, #$10 ; Compare A with #$10
$00:$411F: (03) 252E jrc $414F ; Branch to $414F if carry set
$00:$4121: (02) A140 cp a, #$40 ; Compare A with #$40
$00:$4123: (03) 242A jrnc $414F ; Branch to $414F if carry clear
$00:$4125: (02) A135 cp a, #$35 ; Compare A with #$35
$00:$4127: (03) 2504 jrc $412D ; Branch to $412D if carry set
$00:$4129: (02) A138 cp a, #$38 ; Compare A with #$38
$00:$412B: (03) 2522 jrc $414F ; Branch to $414F if carry set
$00:$412D: (05) 1463 bset2 $63 ; Set $63.2
$00:$412F: (02) A6A5 ld a, #$A5 ; Load #$A5 into A
$00:$4131: (04) B706 ld $06, a ; Load into $06 from A
$00:$4133: (02) A60E ld a, #$0E ; Load #$0E into A
$00:$4135: (04) B70D ld $0D, a ; Load into $0D from A
$00:$4137: (02) 96 ld x, s ; Load into X from S
$00:$4138: (02) A676 ld a, #$76 ; Load #$76 into A
$00:$413A: (06) D70F06 ld ($0F06,x), a ; Load into $0F06, index X, from A
$00:$413D: (02) A6BB ld a, #$BB ; Load #$BB into A
$00:$413F: (06) D70F07 ld ($0F07,x), a ; Load into $0F07, index X, from A
$00:$4142: (07) 8D00414E ecall #$00, $414E ; Call $414E from page #$00
$00:$4146: (03) CC4988 jp $4988 ; Jump to $4988
$00:$4149: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$414C: (00) A7
$00:$414D: (00) A7
$00:$414E: (04) 84 pop a ; Restore A from stack
$00:$414F: (06) 81 ret ; Return
$00:$4150: (06) ADAE callr $4100 ; Call relative $4100
$00:$4152: (05) 051A08 btjf2 $1A, $415D ; Branch to $415D if $1A.2=0
$00:$4155: (03) CC42BA jp $42BA ; Jump to $42BA
$00:$4158: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$415B: (00) A7
$00:$415C: (00) A7
$00:$415D: (05) 071A08 btjf3 $1A, $4168 ; Branch to $4168 if $1A.3=0
$00:$4160: (03) CC42BE jp $42BE ; Jump to $42BE
$00:$4163: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$4166: (00) A7
$00:$4167: (00) A7
$00:$4168: (05) 091A08 btjf4 $1A, $4173 ; Branch to $4173 if $1A.4=0
$00:$416B: (03) CC42BE jp $42BE ; Jump to $42BE
$00:$416E: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$4171: (00) A7
$00:$4172: (00) A7
$00:$4173: (03) B653 ld a, $53 ; Load into A from $53
$00:$4175: (03) 2713 jreq $418A ; Branch to $418A if equal
$00:$4177: (05) 0F5204 btjf7 $52, $417E ; Branch to $417E if $52.7=0
$00:$417A: (03) B654 ld a, $54 ; Load into A from $54
$00:$417C: (03) 200C jra $418A ; Branch to $418A always
$00:$417E: (03) BB58 add a, $58 ; Add A to $58
$00:$4180: (02) 97 ld x, a ; Load into X from A
$00:$4181: (03) 4F clr a ; Clear A
$00:$4182: (03) 5A dec x ; Decrement X
$00:$4183: (05) D80DF8 xor a, ($0DF8,x) ; Logical XOR (A XOR $0DF8, index X.)
$00:$4186: (03) B358 cp x, $58 ; Compare X with $58
$00:$4188: (03) 26F8 jrne $4182 ; Branch to $4182 if not equal
$00:$418A: (03) B851 xor a, $51 ; Logical XOR (A XOR $51)
$00:$418C: (03) B852 xor a, $52 ; Logical XOR (A XOR $52)
$00:$418E: (03) B853 xor a, $53 ; Logical XOR (A XOR $53)
$00:$4190: (03) B855 xor a, $55 ; Logical XOR (A XOR $55)
$00:$4192: (03) 2708 jreq $419C ; Branch to $419C if equal
$00:$4194: (03) CC42BA jp $42BA ; Jump to $42BA
$00:$4197: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$419A: (00) A7
$00:$419B: (00) A7
$00:$419C: (05) 0F527F btjf7 $52, $421E ; Branch to $421E if $52.7=0
$00:$419F: (05) 0D5254 btjf6 $52, $41F6 ; Branch to $41F6 if $52.6=0
$00:$41A2: (03) B652 ld a, $52 ; Load into A from $52
$00:$41A4: (02) A1C0 cp a, #$C0 ; Compare A with #$C0
$00:$41A6: (03) 2717 jreq $41BF ; Branch to $41BF if equal
$00:$41A8: (02) A1C1 cp a, #$C1 ; Compare A with #$C1
$00:$41AA: (03) 272D jreq $41D9 ; Branch to $41D9 if equal
$00:$41AC: (02) A1E1 cp a, #$E1 ; Compare A with #$E1
$00:$41AE: (03) 270C jreq $41BC ; Branch to $41BC if equal
$00:$41B0: (02) A1C2 cp a, #$C2 ; Compare A with #$C2
$00:$41B2: (03) 270B jreq $41BF ; Branch to $41BF if equal
$00:$41B4: (02) A1E3 cp a, #$E3 ; Compare A with #$E3
$00:$41B6: (03) 2704 jreq $41BC ; Branch to $41BC if equal
$00:$41B8: (02) A1E4 cp a, #$E4 ; Compare A with #$E4
$00:$41BA: (03) 2700 jreq $41BC ; Branch to $41BC if equal
$00:$41BC: (03) CC42BE jp $42BE ; Jump to $42BE
$00:$41BF: (06) CD7783 call $7783 ; Call $7783
$00:$41C2: (05) 3F58 clr $58 ; Clear $58
$00:$41C4: (05) 3F59 clr $59 ; Clear $59
$00:$41C6: (05) 1962 bclr4 $62 ; Clear $62.4
$00:$41C8: (05) 1B62 bclr5 $62 ; Clear $62.5
$00:$41CA: (05) 1D62 bclr6 $62 ; Clear $62.6
$00:$41CC: (05) 1F62 bclr7 $62 ; Clear $62.7
$00:$41CE: (05) 1E63 bset7 $63 ; Set $63.7
$00:$41D0: (03) B652 ld a, $52 ; Load into A from $52
$00:$41D2: (02) AA20 or a, #$20 ; Logical OR (A OR #$20)
$00:$41D4: (03) BE53 ld x, $53 ; Load into X from $53
$00:$41D6: (03) CC42CE jp $42CE ; Jump to $42CE
$00:$41D9: (03) B653 ld a, $53 ; Load into A from $53
$00:$41DB: (02) A101 cp a, #$01 ; Compare A with #$01
$00:$41DD: (03) 26DD jrne $41BC ; Branch to $41BC if not equal
$00:$41DF: (03) B654 ld a, $54 ; Load into A from $54
$00:$41E1: (03) 27D9 jreq $41BC ; Branch to $41BC if equal
$00:$41E3: (02) A1FE cp a, #$FE ; Compare A with #$FE
$00:$41E5: (03) 22D5 jrugt $41BC ; Branch to $41BC if higher
$00:$41E7: (02) A1FF cp a, #$FF ; Compare A with #$FF
$00:$41E9: (03) 2302 jrule $41ED ; Branch to $41ED if lower/same
$00:$41EB: (02) A6FF ld a, #$FF ; Load #$FF into A
$00:$41ED: (04) B756 ld $56, a ; Load into $56 from A
$00:$41EF: (02) A6E1 ld a, #$E1 ; Load #$E1 into A
$00:$41F1: (02) AE01 ld x, #$01 ; Load #$01 into X
$00:$41F3: (03) CC42CE jp $42CE ; Jump to $42CE
$00:$41F6: (05) 086278 btjt4 $62, $4271 ; Branch to $4271 if $62.4=1
$00:$41F9: (05) 085205 btjt4 $52, $4201 ; Branch to $4201 if $52.4=1
$00:$41FC: (05) 0C6215 btjt6 $62, $4214 ; Branch to $4214 if $62.6=1
$00:$41FF: (03) 2003 jra $4204 ; Branch to $4204 always
$00:$4201: (05) 0D6210 btjf6 $62, $4214 ; Branch to $4214 if $62.6=0
$00:$4204: (05) 0052B5 btjt0 $52, $41BC ; Branch to $41BC if $52.0=1
$00:$4207: (04) C60DE9 ld a, $0DE9 ; Load into A from $0DE9
$00:$420A: (02) A520 bcp a, #$20 ; Bit compare A with #$20
$00:$420C: (03) 27AE jreq $41BC ; Branch to $41BC if equal
$00:$420E: (06) CD4366 call $4366 ; Call $4366
$00:$4211: (03) CC4E9F jp $4E9F ; Jump to $4E9F
$00:$4214: (05) 0562A5 btjf2 $62, $41BC ; Branch to $41BC if $62.2=0
$00:$4217: (06) CD438E call $438E ; Call $438E
$00:$421A: (03) CC4E9F jp $4E9F ; Jump to $4E9F
$00:$421D: (00) A7
$00:$421E: (06) CD7783 call $7783 ; Call $7783
$00:$4221: (05) 1862 bset4 $62 ; Set $62.4
$00:$4223: (05) 1F62 bclr7 $62 ; Clear $62.7
$00:$4225: (05) 0C5202 btjt6 $52, $422A ; Branch to $422A if $52.6=1
$00:$4228: (05) 1E62 bset7 $62 ; Set $62.7
$00:$422A: (03) B659 ld a, $59 ; Load into A from $59
$00:$422C: (04) B758 ld $58, a ; Load into $58 from A
$00:$422E: (05) 0A5240 btjt5 $52, $4271 ; Branch to $4271 if $52.5=1
$00:$4231: (05) 1962 bclr4 $62 ; Clear $62.4
$00:$4233: (06) AD43 callr $4278 ; Call relative $4278
$00:$4235: (03) 2619 jrne $4250 ; Branch to $4250 if not equal
$00:$4237: (06) AD5A callr $4293 ; Call relative $4293
$00:$4239: (06) CD434F call $434F ; Call $434F
$00:$423C: (04) C60DE8 ld a, $0DE8 ; Load into A from $0DE8
$00:$423F: (04) B753 ld $53, a ; Load into $53 from A
$00:$4241: (06) CD4384 call $4384 ; Call $4384
$00:$4244: (05) 3F58 clr $58 ; Clear $58
$00:$4246: (05) 3F59 clr $59 ; Clear $59
$00:$4248: (03) CC4E9F jp $4E9F ; Jump to $4E9F
$00:$424B: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$424E: (00) A7
$00:$424F: (00) A7
$00:$4250: (05) 016406 btjf0 $64, $4259 ; Branch to $4259 if $64.0=0
$00:$4253: (05) 036403 btjf1 $64, $4259 ; Branch to $4259 if $64.1=0
$00:$4256: (06) CD4137 call $4137 ; Call $4137
$00:$4259: (06) CD4441 call $4441 ; Call $4441
$00:$425C: (05) 011805 btjf0 $18, $4264 ; Branch to $4264 if $18.0=0
$00:$425F: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$4262: (00) A7
$00:$4263: (00) A7
$00:$4264: (05) 0018F8 btjt0 $18, $425F ; Branch to $425F if $18.0=1
$00:$4267: (05) 1A62 bset5 $62 ; Set $62.5
$00:$4269: (03) CC4E9F jp $4E9F ; Jump to $4E9F
$00:$426C: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$426F: (00) A7
$00:$4270: (00) A7
$00:$4271: (03) 2053 jra $42C6 ; Branch to $42C6 always
$00:$4273: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$4276: (00) A7
$00:$4277: (00) A7
$00:$4278: (03) B659 ld a, $59 ; Load into A from $59
$00:$427A: (02) A108 cp a, #$08 ; Compare A with #$08
$00:$427C: (03) 260C jrne $428A ; Branch to $428A if not equal
$00:$427E: (02) 97 ld x, a ; Load into X from A
$00:$427F: (05) D60DF7 ld a, ($0DF7,x) ; Load into A from $0DF7, index X.
$00:$4282: (05) D1428A cp a, ($428A,x) ; Compare A to $428A, index X.
$00:$4285: (03) 2603 jrne $428A ; Branch to $428A if not equal
$00:$4287: (03) 5A dec x ; Decrement X
$00:$4288: (03) 26F5 jrne $427F ; Branch to $427F if not equal
$00:$428A: (06) 81 ret ; Return
$00:$428B: (02) A0CA sub a, #$CA ; Substract #$CA from A
$00:$428D: (05) 000002 btjt0 $00, $4292 ; Branch to $4292 if $00.0=1
$00:$4290: (04) C00006 sub a, $0006 ; Substract $0006 from A
$00:$4293: (05) 1663 bset3 $63 ; Set $63.3
$00:$4295: (02) AE03 ld x, #$03 ; Load #$03 into X
$00:$4297: (04) E666 ld a, ($66,x) ; Load into A from $66, index X.
$00:$4299: (06) D70DFA ld ($0DFA,x), a ; Load into $0DFA, index X, from A
$00:$429C: (03) 5A dec x ; Decrement X
$00:$429D: (03) 2AF8 jrpl $4297 ; Branch to $4297 if positive
$00:$429F: (02) A6B0 ld a, #$B0 ; Load #$B0 into A
$00:$42A1: (05) C70DF8 ld $0DF8, a ; Load into $0DF8 from A
$00:$42A4: (02) A604 ld a, #$04 ; Load #$04 into A
$00:$42A6: (05) C70DF9 ld $0DF9, a ; Load into $0DF9 from A
$00:$42A9: (02) A690 ld a, #$90 ; Load #$90 into A
$00:$42AB: (05) C70DFE ld $0DFE, a ; Load into $0DFE from A
$00:$42AE: (03) 4F clr a ; Clear A
$00:$42AF: (05) C70DFF ld $0DFF, a ; Load into $0DFF from A
$00:$42B2: (05) 1367 bclr1 $67 ; Clear $67.1
$00:$42B4: (02) A608 ld a, #$08 ; Load #$08 into A
$00:$42B6: (05) C70DE8 ld $0DE8, a ; Load into $0DE8 from A
$00:$42B9: (06) 81 ret ; Return
$00:$42BA: (02) A681 ld a, #$81 ; Load #$81 into A
$00:$42BC: (03) 2002 jra $42C0 ; Branch to $42C0 always
$00:$42BE: (02) A682 ld a, #$82 ; Load #$82 into A
$00:$42C0: (03) BE58 ld x, $58 ; Load into X from $58
$00:$42C2: (04) BF59 ld $59, x ; Load into $59 from X
$00:$42C4: (03) 2002 jra $42C8 ; Branch to $42C8 always
$00:$42C6: (02) A680 ld a, #$80 ; Load #$80 into A
$00:$42C8: (03) 5F clr x ; Clear X
$00:$42C9: (05) 0F6202 btjf7 $62, $42CE ; Branch to $42CE if $62.7=0
$00:$42CC: (02) AA10 or a, #$10 ; Logical OR (A OR #$10)
$00:$42CE: (04) B752 ld $52, a ; Load into $52 from A
$00:$42D0: (05) 3E51 swap $51 ; Swap nibbles
$00:$42D2: (02) 9F ld a, x ; Load into A from X
$00:$42D3: (04) B753 ld $53, a ; Load into $53 from A
$00:$42D5: (03) 2702 jreq $42D9 ; Branch to $42D9 if equal
$00:$42D7: (03) B854 xor a, $54 ; Logical XOR (A XOR $54)
$00:$42D9: (03) B851 xor a, $51 ; Logical XOR (A XOR $51)
$00:$42DB: (03) B852 xor a, $52 ; Logical XOR (A XOR $52)
$00:$42DD: (03) 88 push a ; Save A on stack
$00:$42DE: (06) AD17 callr $42F7 ; Call relative $42F7
$00:$42E0: (04) 3D53 tnz $53 ; Test for negative and zero
$00:$42E2: (03) 2705 jreq $42E9 ; Branch to $42E9 if equal
$00:$42E4: (03) B654 ld a, $54 ; Load into A from $54
$00:$42E6: (06) CD432D call $432D ; Call $432D
$00:$42E9: (04) 84 pop a ; Restore A from stack
$00:$42EA: (06) CD432D call $432D ; Call $432D
$00:$42ED: (06) AD1F callr $430E ; Call relative $430E
$00:$42EF: (03) CC4E9F jp $4E9F ; Jump to $4E9F
$00:$42F2: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$42F5: (00) A7
$00:$42F6: (00) A7
$00:$42F7: (06) CD431C call $431C ; Call $431C
$00:$42FA: (03) B651 ld a, $51 ; Load into A from $51
$00:$42FC: (06) CD432D call $432D ; Call $432D
$00:$42FF: (03) B652 ld a, $52 ; Load into A from $52
$00:$4301: (06) CD432D call $432D ; Call $432D
$00:$4304: (03) B653 ld a, $53 ; Load into A from $53
$00:$4306: (03) CC432D jp $432D ; Jump to $432D
$00:$4309: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$430C: (00) A7
$00:$430D: (00) A7
$00:$430E: (05) 1063 bset0 $63 ; Set $63.0
$00:$4310: (05) 1363 bclr1 $63 ; Clear $63.1
$00:$4312: (05) 3F57 clr $57 ; Clear $57
$00:$4314: (03) CC4422 jp $4422 ; Jump to $4422
$00:$4317: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$431A: (00) A7
$00:$431B: (00) A7
$00:$431C: (05) 130A bclr1 $0A ; Clear $0A.1
$00:$431E: (02) A610 ld a, #$10 ; Load #$10 into A
$00:$4320: (04) B70A ld $0A, a ; Load into $0A from A
$00:$4322: (04) C60DE3 ld a, $0DE3 ; Load into A from $0DE3
$00:$4325: (04) B709 ld $09, a ; Load into $09 from A
$00:$4327: (05) 120A bset1 $0A ; Set $0A.1
$00:$4329: (05) 020AFD btjt1 $0A, $4329 ; Branch to $4329 if $0A.1=1
$00:$432C: (06) 81 ret ; Return
$00:$432D: (02) 9B sim ; Set interrupt mask
$00:$432E: (03) 88 push a ; Save A on stack
$00:$432F: (05) 001803 btjt0 $18, $4335 ; Branch to $4335 if $18.0=1
$00:$4332: (06) CD4427 call $4427 ; Call $4427
$00:$4335: (04) CE0DE2 ld x, $0DE2 ; Load into X from $0DE2
$00:$4338: (03) 270B jreq $4345 ; Branch to $4345 if equal
$00:$433A: (05) 130A bclr1 $0A ; Clear $0A.1
$00:$433C: (05) 3F0A clr $0A ; Clear $0A
$00:$433E: (04) BF09 ld $09, x ; Load into $09 from X
$00:$4340: (05) 120A bset1 $0A ; Set $0A.1
$00:$4342: (05) 020AFD btjt1 $0A, $4342 ; Branch to $4342 if $0A.1=1
$00:$4345: (05) 031AFD btjf1 $1A, $4345 ; Branch to $4345 if $1A.1=0
$00:$4348: (06) CD757E call $757E ; Call $757E
$00:$434B: (04) 84 pop a ; Restore A from stack
$00:$434C: (04) B71D ld $1D, a ; Load into $1D from A
$00:$434E: (06) 81 ret ; Return
$00:$434F: (05) 1B62 bclr5 $62 ; Clear $62.5
$00:$4351: (05) 3F52 clr $52 ; Clear $52
$00:$4353: (05) 3F53 clr $53 ; Clear $53
$00:$4355: (05) 0C6205 btjt6 $62, $435D ; Branch to $435D if $62.6=1
$00:$4358: (05) 1D52 bclr6 $52 ; Clear $52.6
$00:$435A: (05) 1C62 bset6 $62 ; Set $62.6
$00:$435C: (06) 81 ret ; Return
$00:$435D: (05) 1C52 bset6 $52 ; Set $52.6
$00:$435F: (05) 1D62 bclr6 $62 ; Clear $62.6
$00:$4361: (06) 81 ret ; Return
$00:$4362: (06) ADEB callr $434F ; Call relative $434F
$00:$4364: (03) 201E jra $4384 ; Branch to $4384 always
$00:$4366: (06) ADE7 callr $434F ; Call relative $434F
$00:$4368: (04) CE0DEB ld x, $0DEB ; Load into X from $0DEB
$00:$436B: (07) DD78B4 call ($78B4,x) ; Call $78B4, index X,
$00:$436E: (05) 3C5A inc $5A ; Increment $5A
$00:$4370: (05) 3C53 inc $53 ; Increment $53
$00:$4372: (03) BE53 ld x, $53 ; Load into X from $53
$00:$4374: (06) D70DF7 ld ($0DF7,x), a ; Load into $0DF7, index X, from A
$00:$4377: (03) 2508 jrc $4381 ; Branch to $4381 if carry set
$00:$4379: (03) B356 cp x, $56 ; Compare X with $56
$00:$437B: (03) 26EB jrne $4368 ; Branch to $4368 if not equal
$00:$437D: (05) 1A52 bset5 $52 ; Set $52.5
$00:$437F: (03) 2003 jra $4384 ; Branch to $4384 always
$00:$4381: (06) CD7783 call $7783 ; Call $7783
$00:$4384: (03) B652 ld a, $52 ; Load into A from $52
$00:$4386: (05) C70DE9 ld $0DE9, a ; Load into $0DE9 from A
$00:$4389: (03) B653 ld a, $53 ; Load into A from $53
$00:$438B: (05) C70DEA ld $0DEA, a ; Load into $0DEA from A
$00:$438E: (05) 1462 bset2 $62 ; Set $62.2
$00:$4390: (04) C60DE9 ld a, $0DE9 ; Load into A from $0DE9
$00:$4393: (04) B752 ld $52, a ; Load into $52 from A
$00:$4395: (04) C60DEA ld a, $0DEA ; Load into A from $0DEA
$00:$4398: (04) B753 ld $53, a ; Load into $53 from A
$00:$439A: (05) 3E51 swap $51 ; Swap nibbles
$00:$439C: (03) B651 ld a, $51 ; Load into A from $51
$00:$439E: (03) B852 xor a, $52 ; Logical XOR (A XOR $52)
$00:$43A0: (03) B853 xor a, $53 ; Logical XOR (A XOR $53)
$00:$43A2: (05) 3F57 clr $57 ; Clear $57
$00:$43A4: (03) BE57 ld x, $57 ; Load into X from $57
$00:$43A6: (03) B353 cp x, $53 ; Compare X with $53
$00:$43A8: (03) 2707 jreq $43B1 ; Branch to $43B1 if equal
$00:$43AA: (05) D80DF8 xor a, ($0DF8,x) ; Logical XOR (A XOR $0DF8, index X.)
$00:$43AD: (05) 3C57 inc $57 ; Increment $57
$00:$43AF: (03) 20F3 jra $43A4 ; Branch to $43A4 always
$00:$43B1: (03) 88 push a ; Save A on stack
$00:$43B2: (06) CD42F7 call $42F7 ; Call $42F7
$00:$43B5: (05) 3F57 clr $57 ; Clear $57
$00:$43B7: (03) BE57 ld x, $57 ; Load into X from $57
$00:$43B9: (03) B353 cp x, $53 ; Compare X with $53
$00:$43BB: (03) 270A jreq $43C7 ; Branch to $43C7 if equal
$00:$43BD: (05) D60DF8 ld a, ($0DF8,x) ; Load into A from $0DF8, index X.
$00:$43C0: (06) CD432D call $432D ; Call $432D
$00:$43C3: (05) 3C57 inc $57 ; Increment $57
$00:$43C5: (03) 20F0 jra $43B7 ; Branch to $43B7 always
$00:$43C7: (04) 84 pop a ; Restore A from stack
$00:$43C8: (06) CD432D call $432D ; Call $432D
$00:$43CB: (03) CC430E jp $430E ; Jump to $430E
$00:$43CE: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$43D1: (00) A7
$00:$43D2: (00) A7
$00:$43D3: (04) CE0DE8 ld x, $0DE8 ; Load into X from $0DE8
$00:$43D6: (03) 278A jreq $4362 ; Branch to $4362 if equal
$00:$43D8: (05) 3F58 clr $58 ; Clear $58
$00:$43DA: (05) 3F59 clr $59 ; Clear $59
$00:$43DC: (05) C70DEB ld $0DEB, a ; Load into $0DEB from A
$00:$43DF: (05) 3F5A clr $5A ; Clear $5A
$00:$43E1: (03) 8A push cc ; Save CC on stack
$00:$43E2: (06) CD4366 call $4366 ; Call $4366
$00:$43E5: (04) 86 pop cc ; Restore CC from stack
$00:$43E6: (06) 81 ret ; Return
$00:$43E7: (05) 0D1AFD btjf6 $1A, $43E7 ; Branch to $43E7 if $1A.6=0
$00:$43EA: (05) 0C1A05 btjt6 $1A, $43F2 ; Branch to $43F2 if $1A.6=1
$00:$43ED: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$43F0: (00) A7
$00:$43F1: (00) A7
$00:$43F2: (05) 1118 bclr0 $18 ; Clear $18.0
$00:$43F4: (05) 1118 bclr0 $18 ; Clear $18.0
$00:$43F6: (05) 3F18 clr $18 ; Clear $18
$00:$43F8: (05) 1E18 bset7 $18 ; Set $18.7
$00:$43FA: (05) 016202 btjf0 $62, $43FF ; Branch to $43FF if $62.0=0
$00:$43FD: (05) 1618 bset3 $18 ; Set $18.3
$00:$43FF: (05) 1918 bclr4 $18 ; Clear $18.4
$00:$4401: (05) 1B18 bclr5 $18 ; Clear $18.5
$00:$4403: (04) C60DE7 ld a, $0DE7 ; Load into A from $0DE7
$00:$4406: (02) A430 and a, #$30 ; Logical AND (A AND #$30)
$00:$4408: (03) BA18 or a, $18 ; Logical OR (A OR $18)
$00:$440A: (04) B718 ld $18, a ; Load into $18 from A
$00:$440C: (04) C60DE5 ld a, $0DE5 ; Load into A from $0DE5
$00:$440F: (02) A407 and a, #$07 ; Logical AND (A AND #$07)
$00:$4411: (03) 88 push a ; Save A on stack
$00:$4412: (03) B61B ld a, $1B ; Load into A from $1B
$00:$4414: (02) A478 and a, #$78 ; Logical AND (A AND #$78)
$00:$4416: (04) 31EA01 or a, ($01,s) ; Logical OR (A OR $01, index S.)
$00:$4419: (04) B71B ld $1B, a ; Load into $1B from A
$00:$441B: (04) 84 pop a ; Restore A from stack
$00:$441C: (04) C60DE6 ld a, $0DE6 ; Load into A from $0DE6
$00:$441F: (04) B71C ld $1C, a ; Load into $1C from A
$00:$4421: (06) 81 ret ; Return
$00:$4422: (06) AD03 callr $4427 ; Call relative $4427
$00:$4424: (05) 1019 bset0 $19 ; Set $19.0
$00:$4426: (06) 81 ret ; Return
$00:$4427: (05) 0D1AFD btjf6 $1A, $4427 ; Branch to $4427 if $1A.6=0
$00:$442A: (05) 0C1A05 btjt6 $1A, $4432 ; Branch to $4432 if $1A.6=1
$00:$442D: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$4430: (00) A7
$00:$4431: (00) A7
$00:$4432: (05) 1018 bset0 $18 ; Set $18.0
$00:$4434: (03) B619 ld a, $19 ; Load into A from $19
$00:$4436: (02) A4C0 and a, #$C0 ; Logical AND (A AND #$C0)
$00:$4438: (04) B719 ld $19, a ; Load into $19 from A
$00:$443A: (03) B61A ld a, $1A ; Load into A from $1A
$00:$443C: (02) A480 and a, #$80 ; Logical AND (A AND #$80)
$00:$443E: (04) B71A ld $1A, a ; Load into $1A from A
$00:$4440: (06) 81 ret ; Return
$00:$4441: (05) 0D1AFD btjf6 $1A, $4441 ; Branch to $4441 if $1A.6=0
$00:$4444: (05) 0C1A05 btjt6 $1A, $444C ; Branch to $444C if $1A.6=1
$00:$4447: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$444A: (00) A7
$00:$444B: (00) A7
$00:$444C: (05) 1118 bclr0 $18 ; Clear $18.0
$00:$444E: (05) 1118 bclr0 $18 ; Clear $18.0
$00:$4450: (06) 81 ret ; Return
$00:$4451: (04) C60DF9 ld a, $0DF9 ; Load into A from $0DF9
$00:$4454: (07) 8D009EC3 ecall #$00, $9EC3 ; Call $9EC3 from page #$00
$00:$4458: (02) A1CA cp a, #$CA ; Compare A with #$CA
$00:$445A: (03) 2737 jreq $4493 ; Branch to $4493 if equal
$00:$445C: (06) CD4988 call $4988 ; Call $4988
$00:$445F: (05) 1963 bclr4 $63 ; Clear $63.4
$00:$4461: (05) 1C5F bset6 $5F ; Set $5F.6
$00:$4463: (03) AC push dsr ; Save DSR on stack.
$00:$4464: (04) C63099 ld a, $3099 ; Load into A from $3099
$00:$4467: (03) 260D jrne $4476 ; Branch to $4476 if not equal
$00:$4469: (03) 7180 ld dsr, #$80 ; Load #$80 into DSR
$00:$446B: (04) C68000 ld a, $8000 ; Load into A from $8000
$00:$446E: (03) CC447B jp $447B ; Jump to $447B
$00:$4471: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$4474: (00) A7
$00:$4475: (00) A7
$00:$4476: (03) 7180 ld dsr, #$80 ; Load #$80 into DSR
$00:$4478: (04) C68048 ld a, $8048 ; Load into A from $8048
$00:$447B: (04) AF pop dsr ; Restore DSR from stack
$00:$447C: (02) A480 and a, #$80 ; Logical AND (A AND #$80)
$00:$447E: (03) 2708 jreq $4488 ; Branch to $4488 if equal
$00:$4480: (03) CC7771 jp $7771 ; Jump to $7771
$00:$4483: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$4486: (00) A7
$00:$4487: (00) A7
$00:$4488: (03) 26F9 jrne $4483 ; Branch to $4483 if not equal
$00:$448A: (04) C60DF9 ld a, $0DF9 ; Load into A from $0DF9
$00:$448D: (03) CC4A2A jp $4A2A ; Jump to $4A2A
$00:$4490: (03) CC7771 jp $7771 ; Jump to $7771
$00:$4493: (05) 1561 bclr2 $61 ; Clear $61.2
$00:$4495: (06) CD56B1 call $56B1 ; Call $56B1
$00:$4498: (05) 010080 btjf0 $00, $441B ; Branch to $441B if $00.0=0
$00:$449B: (04) C60DFA ld a, $0DFA ; Load into A from $0DFA
$00:$449E: (04) CA0DFB or a, $0DFB ; Logical OR (A OR $0DFB)
$00:$44A1: (03) 26ED jrne $4490 ; Branch to $4490 if not equal
$00:$44A3: (06) CD506A call $506A ; Call $506A
$00:$44A6: (03) 25E8 jrc $4490 ; Branch to $4490 if carry set
$00:$44A8: (03) B659 ld a, $59 ; Load into A from $59
$00:$44AA: (02) A005 sub a, #$05 ; Substract #$05 from A
$00:$44AC: (03) 2409 jrnc $44B7 ; Branch to $44B7 if carry clear
$00:$44AE: (03) CC7771 jp $7771 ; Jump to $7771
$00:$44B1: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$44B4: (00) A7
$00:$44B5: (05) 1E04 bset7 $04 ; Set $04.7
$00:$44B7: (04) C10DFC cp a, $0DFC ; Compare A to $0DFC
$00:$44BA: (03) 2709 jreq $44C5 ; Branch to $44C5 if equal
$00:$44BC: (02) A001 sub a, #$01 ; Substract #$01 from A
$00:$44BE: (03) 25EE jrc $44AE ; Branch to $44AE if carry set
$00:$44C0: (04) C10DFC cp a, $0DFC ; Compare A to $0DFC
$00:$44C3: (03) 26E9 jrne $44AE ; Branch to $44AE if not equal
$00:$44C5: (02) A002 sub a, #$02 ; Substract #$02 from A
$00:$44C7: (03) 25E5 jrc $44AE ; Branch to $44AE if carry set
$00:$44C9: (04) C10DFE cp a, $0DFE ; Compare A to $0DFE
$00:$44CC: (03) 26E0 jrne $44AE ; Branch to $44AE if not equal
$00:$44CE: (05) C70C82 ld $0C82, a ; Load into $0C82 from A
$00:$44D1: (05) 126C bset1 $6C ; Set $6C.1
$00:$44D3: (04) C60DFD ld a, $0DFD ; Load into A from $0DFD
$00:$44D6: (05) C70C81 ld $0C81, a ; Load into $0C81 from A
$00:$44D9: (02) 97 ld x, a ; Load into X from A
$00:$44DA: (03) 54 srl x ; Logical shift right
$00:$44DB: (03) 54 srl x ; Logical shift right
$00:$44DC: (03) 54 srl x ; Logical shift right
$00:$44DD: (03) AC push dsr ; Save DSR on stack.
$00:$44DE: (04) C63099 ld a, $3099 ; Load into A from $3099
$00:$44E1: (03) 260D jrne $44F0 ; Branch to $44F0 if not equal
$00:$44E3: (03) 7180 ld dsr, #$80 ; Load #$80 into DSR
$00:$44E5: (05) D68008 ld a, ($8008,x) ; Load into A from $8008, index X.
$00:$44E8: (03) CC44F5 jp $44F5 ; Jump to $44F5
$00:$44EB: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$44EE: (00) A7
$00:$44EF: (00) A7
$00:$44F0: (03) 7180 ld dsr, #$80 ; Load #$80 into DSR
$00:$44F2: (05) D68050 ld a, ($8050,x) ; Load into A from $8050, index X.
$00:$44F5: (04) B724 ld $24, a ; Load into $24 from A
$00:$44F7: (04) AF pop dsr ; Restore DSR from stack
$00:$44F8: (04) C60C81 ld a, $0C81 ; Load into A from $0C81
$00:$44FB: (02) A407 and a, #$07 ; Logical AND (A AND #$07)
$00:$44FD: (02) A807 xor a, #$07 ; Logical XOR (A XOR #$07)
$00:$44FF: (02) 97 ld x, a ; Load into X from A
$00:$4500: (03) AC push dsr ; Save DSR on stack.
$00:$4501: (03) 7102 ld dsr, #$02 ; Load #$02 into DSR
$00:$4503: (05) D68111 ld a, ($8111,x) ; Load into A from $8111, index X.
$00:$4506: (04) AF pop dsr ; Restore DSR from stack
$00:$4507: (03) B424 and a, $24 ; Logical AND (A AND $24)
$00:$4509: (03) 2708 jreq $4513 ; Branch to $4513 if equal
$00:$450B: (03) CC7771 jp $7771 ; Jump to $7771
$00:$450E: (03) CC5A0A jp $5A0A ; Jump to $5A0A
$00:$4511: (00) A7
$00:$4512: (00) A7
$00:$4513: (03) 26F9 jrne $450E ; Branch to $450E if not equal
$00:$4515: (04) C60C81 ld a, $0C81 ; Load into A from $0C81
$00:$4518: (07) 8D009EC3 ecall #$00, $9EC3 ; Call $9EC3 from page #$00
$00:$451C: (02) A133 cp a, #$33 ; Compare A with #$33
$00:$451E: (03) 264E jrne $456E ; Branch to $456E if not equal
$00:$4520: (06) CD56B1 call $56B1 ; Call $56B1
$00:$4523: (05) 0DF8FF btjf6 $F8, $4525 ; Branch to $4525 if $F8.6=0
$00:$4526: (02) A663 ld a, #$63 ; Load #$63 into A
$00:$4528: (05) 06642F btjt3 $64, $455A ; Branch to $455A if $64.3=1
$00:$452B: (05) 0A682C btjt5 $68, $455A ; Branch to $455A if $68.5=1
$00:$452E: (05) 096429 btjf4 $64, $455A ; Branch to $455A if $64.4=0
$00:$4531: (04) C60DC3 ld a, $0DC3 ; Load into A from $0DC3
$00:$4534: (02) AB03 add a, #$03 ; Add A to #$03
$00:$4536: (06) CD53D7 call $53D7 ; Call $53D7
$00:$4539: (05) 0DFECD btjf6 $FE, $4509 ; Branch to $4509 if $FE.6=0
$00:$453C: (03) 58 sll x ; Logical shift left
$00:$453D: (03) 24CD jrnc $450C ; Branch to $450C if carry clear
$00:$453F: (03) 53 cpl x ; Logical complement
$00:$4540: (06) D709B0 ld ($09B0,x), a ; Load into $09B0, index X, from A
$00:$4543: (06) CD7E53 call $7E53 ; Call $7E53
$00:$4546: (04) CE0DBC ld x, $0DBC ; Load into X from $0DBC
$00:$4549: (03) 2705 jreq $4550 ; Branch to $4550 if equal
$00:$454B: (02) AE01 ld x, #$01 ; Load #$01 into X
$00:$454D: (05) CF0DF7 ld $0DF7, x ; Load into $0DF7 from X
$00:$4550: (04) CE0DB8 ld x, $0DB8 ; Load into X from $0DB8
$00:$4553: (05) CF0DFC ld $0DFC, x ; Load into $0DFC from X
$00:$4556: (03) 5F clr x ; Clear X
$00:$4557: (05) CF0DFD ld $0DFD, x ; Load into $0DFD from X
$00:$455A: (05) 1964 bclr4 $64 ; Clear $64.4
$00:$455C: (02) AB02 add a, #$02 ; Add A to #$02
$00:$455E: (02) AE06 ld x, #$06 ; Load #$06 into X
$00:$4560: (05) CF0DFA ld $0DFA, x ; Load into $0DFA from X
$00:$4563: (05) C70DFB ld $0DFB, a ; Load into $0DFB from A
$00:$4566: (02) AB02 add a, #$02 ; Add A to #$02
$00:$4568: (02) 97 ld x, a ; Load into X from A
$00:$4569: (02) A6F3 ld a, #$F3 ; Load #$F3 into A
$00:$456B: (03) CC49BB jp $49BB ; Jump to $49BB
$00:$456E: (02) A11C cp a, #$1C ; Compare A with #$1C
$00:$4570: (03) 265B jrne $45CD ; Branch to $45CD if not equal
$00:$4572: (02) 90AE3F ld y, #$3F ; Load #$3F into Y
$00:$4575: (02) AE1E ld x, #$1E ; Load #$1E into X
$00:$4577: (04) C82F71 xor a, $2F71 ; Logical XOR (A XOR $2F71)
$00:$457A: (03) 5A dec x ; Decrement X
$00:$457B: (03) 2AFA jrpl $4577 ; Branch to $4577 if positive
$00:$457D: (06) 90D70DF8 ld ($0DF8,y), a ; Load into $0DF8, index Y, from A
$00:$4581: (03) 905A dec y ; Decrement Y
$00:$4583: (03) 2AF0 jrpl $4575 ; Branch to $4575 if positive
$00:$4585: (03) 4F clr a ; Clear A
$00:$4586: (05) C70DFA ld $0DFA, a ; Load into $0DFA from A
$00:$4589: (05) C70E14 ld $0E14, a ; Load into $0E14 from A
$00:$458C: (02) A608 ld a, #$08 ; Load #$08 into A
$00:$458E: (05) C70DFB ld $0DFB, a ; Load into $0DFB from A
$00:$4591: (05) C70E15 ld $0E15, a ; Load into $0E15 from A
$00:$4594: (06) CD53D7 call $53D7 ; Call $53D7
$00:$4597: (05) 0DFACD btjf6 $FA, $4567 ; Branch to $4567 if $FA.6=0
$00:$459A: (03) 58 sll x ; Logical shift left
$00:$459B: (03) 24CD jrnc $456A ; Branch to $456A if carry clear
$00:$459D: (03) 53 cpl x ; Logical complement
$00:$459E: (06) D70272 ld ($0272,x), a ; Load into $0272, index X, from A
$00:$45A1: (05) 036902 btjf1 $69, $45A6 ; Branch to $45A6 if $69.1=0
$00:$45A4: (06) AD16 callr $45BC ; Call relative $45BC
$00:$45A6: (05) 05690A btjf2 $69, $45B3 ; Branch to $45B3 if $69.2=0
$00:$45A9: (02) A61A ld a, #$1A ; Load #$1A into A
$00:$45AB: (06) CD5582 call $5582 ; Call $5582
$00:$45AE: (06) CD55C3 call $55C3 ; Call $55C3
$00:$45B1: (06) AD09 callr $45BC ; Call relative $45BC
$00:$45B3: (05) 1369 bclr1 $69 ; Clear $69.1
$00:$45B5: (05) 1569 bclr2 $69 ; Clear $69.2
$00:$45B7: (06) CD49AF call $49AF ; Call $49AF
$00:$45BA: (02) 9C rsp ; Reset stack pointer
$00:$45BB: (05) 34AE srl $AE ; Logical shift right
$00:$45BD: (05) 0192D6 btjf0 $92, $4596 ; Branch to $4596 if $92.0=0
$00:$45C0: (03) 47 sra a ; Arithmetic shift right
$00:$45C1: (03) 2709 jreq $45CC ; Branch to $45CC if equal
$00:$45C3: (02) A118 cp a, #$18 ; Compare A with #$18
$00:$45C5: (03) 2205 jrugt $45CC ; Branch to $45CC if higher
$00:$45C7: (02) AB02 add a, #$02 ; Add A to #$02
$00:$45C9: (06) CD7E53 call $7E53 ; Call $7E53
$00:$45CC: (06) 81 ret ; Return
$00:$45CD: (02) A1C8 cp a, #$C8 ; Compare A with #$C8
$00:$45CF: (03) 2619 jrne $45EA ; Branch to $45EA if not equal
$00:$45D1: (06) CD53D7 call $53D7 ; Call $53D7
$00:$45D4: (05) 0DFACD btjf6 $FA, $45A4 ; Branch to $45A4 if $FA.6=0
$00:$45D7: (03) 58 sll x ; Logical shift left
$00:$45D8: (03) 24CD jrnc $45A7 ; Branch to $45A7 if carry clear
$00:$45DA: (03) 53 cpl x ; Logical complement
$00:$45DB: (06) D70DC7 ld ($0DC7,x), a ; Load into $0DC7, index X, from A
$00:$45DE: (02) A604 ld a, #$04 ; Load #$04 into A
$00:$45E0: (06) CD7E53 call $7E53 ; Call $7E53
$00:$45E3: (05) 1967 bclr4 $67 ; Clear $67.4
$00:$45E5: (06) CD49AF call $49AF ; Call $49AF
$00:$45E8: (03) B804 xor a, $04 ; Logical XOR (A XOR $04)
$00:$45EA: (02) A1C7 cp a, #$C7 ; Compare A with #$C7
$00:$45EC: (03) 260C jrne $45FA ; Branch to $45FA if not equal
$00:$45EE: (06) CD5743 call $5743 ; Call $5743
$00:$45F1: (05) 0DFA02 btjf6 $FA, $45F6 ; Branch to $45F6 if $FA.6=0
$00:$45F4: (06) 6ACD dec ($CD,x) ; Decrement $CD, index X,
$00:$45F6: (03) 49 rlc a ; Rotate left through carry
$00:$45F7: (04) AF pop dsr ; Restore DSR from stack
$00:$45F8: (04) B702 ld $02, a ; Load into $02 from A
$00:$45FA: (02) A115 cp a, #$15 ; Compare A with #$15
$00:$45FC: (03) 260C jrne $460A ; Branch to $460A if not equal
$00:$45FE: (06) CD7ED1 call $7ED1 ; Call $7ED1
$00:$4601: (05) 0DFA06 btjf6 $FA, $460A ; Branch to $460A if $FA.6=0
$00:$4604: (03) 4F clr a ; Clear A
$00:$4605: (06) CD49AF call $49AF ; Call $49AF
$00:$4608: (02) 95 ld s, a ; Load into S from A
$00:$4609: (05) 06A112 btjt3 $A1, $461E ; Branch to $461E if $A1.3=1
$00:$460C: (03) 260D jrne $461B ; Branch to $461B if not equal
$00:$460E: (06) CD7E14 call $7E14 ; Call $7E14
$00:$4611: (05) 3050 neg $50 ; Negate $50
$00:$4613: (05) 0DFA04 btjf6 $FA, $461A ; Branch to $461A if $FA.6=0
$00:$4616: (06) CD49AF call $49AF ; Call $49AF
$00:$4619: (05) 9204A165 btjt2 [$A1], [$65] ; Branch to $65, indirect. if $A1, indirect, .2=1
$00:$461D: (03) 261E jrne $463D ; Branch to $463D if not equal
$00:$461F: (06) CD56B1 call $56B1 ; Call $56B1
$00:$4622: (05) 0DF8FF btjf6 $F8, $4624 ; Branch to $4624 if $F8.6=0
$00:$4625: (05) 06640E btjt3 $64, $4636 ; Branch to $4636 if $64.3=1
$00:$4628: (05) 08640B btjt4 $64, $4636 ; Branch to $4636 if $64.4=1
$00:$462B: (05) 0B6808 btjf5 $68, $4636 ; Branch to $4636 if $68.5=0
$00:$462E: (06) CD7E14 call $7E14 ; Call $7E14
$00:$4631: (05) 09B00D btjf4 $B0, $4641 ; Branch to $4641 if $B0.4=0
$00:$4634: (03) FA or a, (x) ; Logical OR (A OR index X.)
$00:$4635: (03) 50 neg x ; Negate X
$00:$4636: (05) 1B68 bclr5 $68 ; Clear $68.5
$00:$4638: (06) CD49AF call $49AF ; Call $49AF
$00:$463B: (04) E550 bcp a, ($50,x) ; Bit compare A with $50, index X.
$00:$463D: (02) A11A cp a, #$1A ; Compare A with #$1A
$00:$463F: (03) 262D jrne $466E ; Branch to $466E if not equal
$00:$4641: (04) C60DFF ld a, $0DFF ; Load into A from $0DFF
$00:$4644: (04) B728 ld $28, a ; Load into $28 from A
$00:$4646: (06) CD56B1 call $56B1 ; Call $56B1
$00:$4649: (05) 0DF8FF btjf6 $F8, $464B ; Branch to $464B if $F8.6=0
$00:$464C: (05) 056810 btjf2 $68, $465F ; Branch to $465F if $68.2=0
$00:$464F: (04) CE02FA ld x, $02FA ; Load into X from $02FA
$00:$4652: (02) A330 cp x, #$30 ; Compare X with #$30
$00:$4654: (03) 2209 jrugt $465F ; Branch to $465F if higher
$00:$4656: (05) D602FA ld a, ($02FA,x) ; Load into A from $02FA, index X.
$00:$4659: (06) D70DFA ld ($0DFA,x), a ; Load into $0DFA, index X, from A
$00:$465C: (03) 5A dec x ; Decrement X
$00:$465D: (03) 2AF7 jrpl $4656 ; Branch to $4656 if positive
$00:$465F: (03) BE28 ld x, $28 ; Load into X from $28
$00:$4661: (02) A302 cp x, #$02 ; Compare X with #$02
$00:$4663: (03) 2402 jrnc $4667 ; Branch to $4667 if carry clear
$00:$4665: (02) AE02 ld x, #$02 ; Load #$02 into X
$00:$4667: (03) 5A dec x ; Decrement X
$00:$4668: (03) 5A dec x ; Decrement X
$00:$4669: (02) A69A ld a, #$9A ; Load #$9A into A
$00:$466B: (03) CC49BB jp $49BB ; Jump to $49BB
$00:$466E: (02) A149 cp a, #$49 ; Compare A with #$49
$00:$4670: (03) 261E jrne $4690 ; Branch to $4690 if not equal
$00:$4672: (06) CD56B1 call $56B1 ; Call $56B1
$00:$4675: (05) 0DF8FF btjf6 $F8, $4677 ; Branch to $4677 if $F8.6=0
$00:$4678: (05) 08640E btjt4 $64, $4689 ; Branch to $4689 if $64.4=1
$00:$467B: (05) 0A680B btjt5 $68, $4689 ; Branch to $4689 if $68.5=1
$00:$467E: (05) 076408 btjf3 $64, $4689 ; Branch to $4689 if $64.3=0
$00:$4681: (06) CD7E14 call $7E14 ; Call $7E14
$00:$4684: (05) 09B00D btjf4 $B0, $4694 ; Branch to $4694 if $B0.4=0
$00:$4687: (03) FA or a, (x) ; Logical OR (A OR index X.)
$00:$4688: (09) 80 iret ; Return
$00:$4689: (05) 1764 bclr3 $64 ; Clear $64.3
$00:$468B: (06) CD49AF call $49AF ; Call $49AF
$00:$468E: (05) 79 rlc (x) ; Rotate left through carry
$00:$468F: (09) 80 iret ; Return
$00:$4690: (07) 8D009EC3 ecall #$00, $9EC3 ; Call $9EC3 from page #$00
$00:$4694: (06) CD4988 call $4988 ; Call $4988
$00:$4697: (06) CD56B1 call $56B1 ; Call $56B1
$00:$469A: (05) 09B083 btjf4 $B0, $4620 ; Branch to $4620 if $B0.4=0
$00:$469D: (06) CD509B call $509B ; Call $509B
$00:$46A0: (04) C60DFD ld a, $0DFD ; Load into A from $0DFD
$00:$46A3: (02) A122 cp a, #$22 ; Compare A with #$22
$00:$46A5: (03) 2703 jreq $46AA ; Branch to $46AA if equal
$00:$46A7: (03) CC477D jp $477D ; Jump to $477D
$00:$46AA: (06) CD59D5 call $59D5 ; Call $59D5
$00:$46AD: (03) 2AAE jrpl $465D ; Branch to $465D if positive
$00:$46AF: (06) 6AC6 dec ($C6,x) ; Decrement $C6, index X,
$00:$46B1: (05) 0E00A0 btjt7 $00, $4654 ; Branch to $4654 if $00.7=1
$00:$46B4: (05) 022205 btjt1 $22, $46BC ; Branch to $46BC if $22.1=1
$00:$46B7: (06) CD49AF call $49AF ; Call $49AF
$00:$46BA: (02) A200 sbc a, #$00 ; Sub w/carry #$00 from A
$00:$46BC: (05) C7023C ld $023C, a ; Load into $023C from A
$00:$46BF: (04) C60DFF ld a, $0DFF ; Load into A from $0DFF
$00:$46C2: (06) CD56B1 call $56B1 ; Call $56B1
$00:$46C5: (05) 0DFBFC btjf6 $FB, $46C4 ; Branch to $46C4 if $FB.6=0
$00:$46C8: (03) 4D tnz a ; Test for negative and zero
$00:$46C9: (03) 2A1D jrpl $46E8 ; Branch to $46E8 if positive
$00:$46CB: (05) 096360 btjf4 $63, $472E ; Branch to $472E if $63.4=0
$00:$46CE: (06) CD7E00 call $7E00 ; Call $7E00
$00:$46D1: (05) 023803 btjt1 $38, $46D7 ; Branch to $46D7 if $38.1=1
$00:$46D4: (03) 4E swap a ; Swap nibbles
$00:$46D5: (02) 90AE00 ld y, #$00 ; Load #$00 into Y
$00:$46D8: (03) 48 sll a ; Logical shift left
$00:$46D9: (03) 2A03 jrpl $46DE ; Branch to $46DE if positive
$00:$46DB: (02) 90AE40 ld y, #$40 ; Load #$40 into Y
$00:$46DE: (04) C6023B ld a, $023B ; Load into A from $023B
$00:$46E1: (06) CD59AC call $59AC ; Call $59AC
$00:$46E4: (03) 2415 jrnc $46FB ; Branch to $46FB if carry clear
$00:$46E6: (03) 2046 jra $472E ; Branch to $472E always
$00:$46E8: (05) C7023B ld $023B, a ; Load into $023B from A
$00:$46EB: (06) CD5996 call $5996 ; Call $5996
$00:$46EE: (02) 90AE60 ld y, #$60 ; Load #$60 into Y
$00:$46F1: (03) 88 push a ; Save A on stack
$00:$46F2: (03) B66A ld a, $6A ; Load into A from $6A
$00:$46F4: (03) BA6B or a, $6B ; Logical OR (A OR $6B)
$00:$46F6: (04) 84 pop a ; Restore A from stack
$00:$46F7: (03) 2602 jrne $46FB ; Branch to $46FB if not equal
$00:$46F9: (05) 1167 bclr0 $67 ; Clear $67.0
$00:$46FB: (07) 8D009EC3 ecall #$00, $9EC3 ; Call $9EC3 from page #$00
$00:$46FF: (05) C7032E ld $032E, a ; Load into $032E from A
$00:$4702: (07) 8D00A3A3 ecall #$00, $A3A3 ; Call $A3A3 from page #$00
$00:$4706: (03) 2526 jrc $472E ; Branch to $472E if carry set
$00:$4708: (02) 909F ld a, y ; Load into A from Y
$00:$470A: (06) CD7264 call $7264 ; Call $7264
$00:$470D: (03) 251F jrc $472E ; Branch to $472E if carry set
$00:$470F: (06) CD5743 call $5743 ; Call $5743
$00:$4712: (05) 023803 btjt1 $38, $4718 ; Branch to $4718 if $38.1=1
$00:$4715: (03) 4E swap a ; Swap nibbles
$00:$4716: (05) 1863 bset4 $63 ; Set $63.4
$00:$4718: (06) CD53D7 call $53D7 ; Call $53D7
$00:$471B: (05) 0DFB3F btjf6 $FB, $475D ; Branch to $475D if $FB.6=0
$00:$471E: (00) 82
$00:$471F: (02) A6FC ld a, #$FC ; Load #$FC into A
$00:$4721: (04) B783 ld $83, a ; Load into $83 from A
$00:$4723: (07) 8D004736 ecall #$00, $4736 ; Call $4736 from page #$00
$00:$4727: (03) B648 ld a, $48 ; Load into A from $48
$00:$4729: (02) A0FB sub a, #$FB ; Substract #$FB from A
$00:$472B: (05) C70DFA ld $0DFA, a ; Load into $0DFA from A
$00:$472E: (04) CE023C ld x, $023C ; Load into X from $023C
$00:$4731: (02) A6A2 ld a, #$A2 ; Load #$A2 into A
$00:$4733: (03) CC49BB jp $49BB ; Jump to $49BB
$00:$4736: (07) 8D009EC3 ecall #$00, $9EC3 ; Call $9EC3 from page #$00
$00:$473A: (03) AC push dsr ; Save DSR on stack.
$00:$473B: (03) BE82 ld x, $82 ; Load into X from $82
$00:$473D: (03) B37F cp x, $7F ; Compare X with $7F
$00:$473F: (03) 223A jrugt $477B ; Branch to $477B if higher
$00:$4741: (03) 58 sll x ; Logical shift left
$00:$4742: (03) 58 sll x ; Logical shift left
$00:$4743: (05) D607B0 ld a, ($07B0,x) ; Load into A from $07B0, index X.
$00:$4746: (02) 9097 ld y, a ; Load into Y from A
$00:$4748: (03) 271F jreq $4769 ; Branch to $4769 if equal
$00:$474A: (05) D607B1 ld a, ($07B1,x) ; Load into A from $07B1, index X.
$00:$474D: (02) 7B ld dsr, a ; Load into DSR from A
$00:$474E: (05) D607B2 ld a, ($07B2,x) ; Load into A from $07B2, index X.
$00:$4751: (04) B74A ld $4A, a ; Load into $4A from A
$00:$4753: (05) D607B3 ld a, ($07B3,x) ; Load into A from $07B3, index X.
$00:$4756: (04) B74B ld $4B, a ; Load into $4B from A
$00:$4758: (03) B683 ld a, $83 ; Load into A from $83
$00:$475A: (05) D007B0 sub a, ($07B0,x) ; Substract $07B0, index X. from A
$00:$475D: (03) 250E jrc $476D ; Branch to $476D if carry set
$00:$475F: (04) B7?? ld $00, a ; Load into $00 from A