; 6502bench SourceGen v1.8.5 COP_10_OPADP eq $10 {const} ;Allocate direct page COP_26_OPBHA eq $26 {const} ;Set BHA to start of string immediate COP_29_OPRFR eq $29 {const} ;Find reference to module, entry BHA points name, X contains pointer in DP to 8 byte block DP_MOSREF eq $00 {addr/8} ;MOS module reference DP_8_PTR_VID eq $08 {addr/2} ;pointer into video memory area addrs $ff7e00 rwid longm,longx ff/7e00 brl LFF7E18 ff/7e03 dd1 $68 ff/7e04 dd1 $07 ff/7e05 dd1 $00 ff/7e06 dd1 $00 ff/7e07 dd1 $01 ff/7e08 dd1 $03 ff/7e09 fill 5,$00 ff/7e0e str “Keyboard” ff/7e16 dd1 $00 ff/7e17 dd1 $00 ff/7e18 LFF7E18 pld ff/7e19 phd ff/7e1a pei (DP_MOSREF+4) ;Get private workspace pointer into DP ff/7e1c pld ff/7e1d php ff/7e1e rep #$30 ff/7e20 cpx #$0023 ff/7e23 bcs @retsec ff/7e25 phb ff/7e26 per @exit-1 ff/7e29 per bratblServ-1 ff/7e2c pha ff/7e2d txa ff/7e2e adc $03,S ff/7e30 sta $03,S ff/7e32 pla ff/7e33 sep #$30 rwid shortm,shortx ff/7e35 rts ff/7e36 @exit plb ff/7e37 bcs @retsec ff/7e39 plp ff/7e3a clc ff/7e3b rtl ff/7e3c @retsec plp ff/7e3d sec ff/7e3e rtl ff/7e3f bratblServ bra @retsec ff/7e41 bra Serv2 ff/7e43 brl serv4 ff/7e46 nop ff/7e47 @retsec sec ;8 ff/7e48 rts ff/7e49 nop ;A ff/7e4a nop ff/7e4b brl ServC ff/7e4e nop ff/7e4f brl Serv10 ff/7e52 nop ff/7e53 brl Serv14 ff/7e56 nop ff/7e57 brl Serv18 ff/7e5a nop ff/7e5b brl Serv1C ff/7e5e nop ff/7e5f brl Serv20 ff/7e62 Serv2 phd ff/7e63 pld ff/7e64 bne LFF7E87 ff/7e66 cop COP_10_OPADP ;allocate 17 bytes of DP ff/7e68 dd2 $0017 ff/7e6a bcs LFF7EA1 ff/7e6c rep #$30 rwid longm,longx ff/7e6e pea $0000 dbank $00 ff/7e71 plb ff/7e72 plb ff/7e73 ldy #$0004 ff/7e76 sta ($05,S),y ;store allocated DP in private workspace pointer ff/7e78 tcd ;switch to new DP ff/7e79 sep #$30 rwid shortm,shortx ff/7e7b cop COP_26_OPBHA ff/7e7d zstr “MOS” ff/7e81 ldx #$00 ff/7e83 ldy #$00 ff/7e85 cop COP_29_OPRFR ;get MOS module reference ff/7e87 LFF7E87 stz $0a ff/7e89 stz $0b ff/7e8b stz $12 ff/7e8d stz $13 ff/7e8f stz $0c ff/7e91 stz $0d ff/7e93 stz $0e ff/7e95 lda #$10 ff/7e97 sta $0f ff/7e99 lda #$32 ff/7e9b sta $10 ff/7e9d lda #$03 ff/7e9f sta $11 ff/7ea1 LFF7EA1 rts rwid longm,longx ff/7ea2 Serv20 lda $11 ff/7ea4 pha ff/7ea5 lda $10 ff/7ea7 pha ff/7ea8 eor #$f0ff ff/7eab tsb $49 ff/7ead sbcl $eb1185,x ff/7eb1 eor #$f0ff ff/7eb4 tsb $49 ff/7eb6 sbcl $681085,x ff/7eba xba ff/7ebb pla ff/7ebc rts rwid shortm,shortx ff/7ebd LFF7EBD php ff/7ebe lda $0c ff/7ec0 and #$3f ff/7ec2 ora #$40 ff/7ec4 pha ff/7ec5 lda #$10 ff/7ec7 bit $0f ff/7ec9 beq LFF7ECF ff/7ecb pla ff/7ecc ora #$80 ff/7ece pha ff/7ecf LFF7ECF lda #$08 ff/7ed1 bit $0f ff/7ed3 beq LFF7ED9 ff/7ed5 pla ff/7ed6 and #$bf ff/7ed8 pha ff/7ed9 LFF7ED9 pla ff/7eda cmp $0c ff/7edc beq LFF7EED ff/7ede sta $0c ff/7ee0 phx ff/7ee1 phy ff/7ee2 and #$c0 ff/7ee4 tax ff/7ee5 ldy #$3f ff/7ee7 lda #$9a ff/7ee9 cop $06 ff/7eeb ply ff/7eec plx ff/7eed LFF7EED pla ff/7eee rts ff/7eef Serv10 tax ff/7ef0 per LFF7EF6-1 ff/7ef3 brl LFF80AA ff/7ef6 LFF7EF6 bmi LFF7EFA ff/7ef8 clc ff/7ef9 rts ff/7efa LFF7EFA sec ff/7efb rts ff/7efc Serv1C clv ff/7efd clc ff/7efe bra LFF7F0D ff/7f00 serv4 tyx ff/7f01 clv ff/7f02 sec ff/7f03 bra LFF7F0D ff/7f05 sep #$40 ;todo -dead? ff/7f07 clc ff/7f08 bra LFF7F0D ff/7f0a ServC sep #$40 ff/7f0c sec ff/7f0d LFF7F0D bvc LFF7F18 ff/7f0f lda $0a ff/7f11 ora $0b ff/7f13 bne LFF7F37 ff/7f15 jmp LFF8091 ff/7f18 LFF7F18 php ff/7f19 per LFF7F1F-1 ff/7f1c brl LFF8537 ff/7f1f LFF7F1F plp ff/7f20 bcs LFF7F2A ff/7f22 per LFF7F28-1 ff/7f25 brl LFF7F37 ff/7f28 LFF7F28 bra LFF7F30 ff/7f2a LFF7F2A per LFF7F30-1 ff/7f2d brl LFF80D6 ff/7f30 LFF7F30 per LFF7F36-1 ff/7f33 brl LFF8546 ff/7f36 LFF7F36 rts ff/7f37 LFF7F37 lda $0f ff/7f39 and #$1f ff/7f3b ldx #$57 ff/7f3d per LFF7F43-1 ff/7f40 brl LFF80AA ff/7f43 LFF7F43 stx $0d ff/7f45 clv ff/7f46 bpl LFF7F4E ff/7f48 ora #$40 ff/7f4a sep #$40 ff/7f4c bra LFF7F5F ff/7f4e LFF7F4E ldx #$55 ff/7f50 per LFF7F56-1 ff/7f53 brl LFF80AA ff/7f56 LFF7F56 stx $0d ff/7f58 clv ff/7f59 bpl LFF7F5F ff/7f5b ora #$40 ff/7f5d sep #$40 ff/7f5f LFF7F5F ldx #$17 ff/7f61 per LFF7F67-1 ff/7f64 brl LFF80AA ff/7f67 LFF7F67 bpl LFF7F6B ff/7f69 ora #$80 ff/7f6b LFF7F6B bcs LFF7F70 ff/7f6d brl LFF7EBD ff/7f70 LFF7F70 ldx #$53 ff/7f72 per LFF7F78-1 ff/7f75 brl LFF80AA ff/7f78 LFF7F78 bpl LFF7F7C ff/7f7a ora #$20 ff/7f7c LFF7F7C sta $0f ff/7f7e ldx $0a ff/7f80 beq LFF7F9A ff/7f82 per LFF7F88-1 ff/7f85 brl LFF80AA ff/7f88 LFF7F88 bmi LFF7F9D ff/7f8a cpx $0a ff/7f8c LFF7F8C stx $0a ff/7f8e bne LFF7F9A ff/7f90 ldx #$00 ff/7f92 stx $0a ff/7f94 LFF7F94 per LFF7F9A-1 ff/7f97 brl LFF80A1 ff/7f9a LFF7F9A jmp LFF8062 ff/7f9d LFF7F9D cpx $0a ff/7f9f bne LFF7F8C ff/7fa1 lda $13 ff/7fa3 beq LFF7FD3 ff/7fa5 dec $13 ff/7fa7 bne LFF7FD3 ff/7fa9 lda $12 ff/7fab sta $13 ff/7fad lda $11 ff/7faf sta $12 ff/7fb1 lda $0f ff/7fb3 ldx $0a ff/7fb5 cpx #$9f ff/7fb7 bne LFF7FC5 ff/7fb9 eor #$10 ff/7fbb and #$f3 ff/7fbd bit $0d ff/7fbf bpl LFF7FCD ff/7fc1 ora #$14 ff/7fc3 bra LFF7FCD ff/7fc5 LFF7FC5 cpx #$dc ff/7fc7 bne LFF7FD6 ff/7fc9 eor #$08 ff/7fcb and #$eb ff/7fcd LFF7FCD sta $0f ff/7fcf lda #$00 ff/7fd1 sta $13 ff/7fd3 LFF7FD3 jmp LFF8062 ff/7fd6 LFF7FD6 lda $0f ff/7fd8 bit #$48 ff/7fda beq LFF7FE4 ff/7fdc ora #$40 ff/7fde bit #$04 ff/7fe0 bne LFF7FE4 ff/7fe2 and #$ef ff/7fe4 LFF7FE4 sta $0d ff/7fe6 phb ff/7fe7 phk dbank K (auto) ff/7fe8 plb ff/7fe9 rep #$30 rwid longm,longx ff/7feb per LFF8273-1 ff/7fee txa ff/7fef clc ff/7ff0 adc $01,S ff/7ff2 plx ff/7ff3 tax ff/7ff4 lda a:$0000,x ff/7ff7 plb ff/7ff8 sep #$30 rwid shortm,shortx ff/7ffa tax ff/7ffb cmp #$21 ff/7ffd bcc LFF8046 ff/7fff lda $0d ff/8001 beq LFF8046 ff/8003 lda #$80 ff/8005 bit $0d ff/8007 beq LFF8011 ff/8009 txa ff/800a per LFF8010-1 ff/800d brl Serv14 ff/8010 LFF8010 tax ff/8011 LFF8011 lda #$40 ff/8013 bit $0d ff/8015 beq LFF8026 ff/8017 ldy $0b ff/8019 beq LFF801E ff/801b brl LFF7F94 ff/801e LFF801E txa ff/801f per LFF8025-1 ff/8022 brl LFF8474 ff/8025 LFF8025 tax ff/8026 LFF8026 lda #$20 ff/8028 bit $0d ff/802a beq LFF8034 ff/802c txa ff/802d per LFF8033-1 ff/8030 brl LFF84AB ff/8033 LFF8033 tax ff/8034 LFF8034 lda #$10 ff/8036 bit $0d ff/8038 beq LFF8046 ff/803a txa ff/803b per LFF8041-1 ff/803e brl LFF854B ff/8041 LFF8041 bcs LFF8045 ff/8043 eor #$20 ff/8045 LFF8045 tax ff/8046 LFF8046 txa ff/8047 per LFF804D-1 ff/804a brl LFF84DB ff/804d LFF804D tay ff/804e per LFF8054-1 ff/8051 brl LFF8254 ff/8054 LFF8054 tya ff/8055 ldx #$04 ff/8057 per LFF805D-1 ff/805a brl LFF8559 ff/805d LFF805D lsr A ff/805e bcc LFF8062 ff/8060 stz $13 ff/8062 LFF8062 ldx $0b ff/8064 beq LFF8074 ff/8066 per LFF806C-1 ff/8069 brl LFF80AA ff/806c LFF806C stx $0b ff/806e bmi LFF8074 ff/8070 ldx #$00 ff/8072 stx $0b ff/8074 LFF8074 ldx $0b ff/8076 bne LFF8091 ff/8078 ldy #$0a ff/807a per LFF8080-1 ff/807d brl LFF8265 ff/8080 LFF8080 bmi LFF808E ff/8082 lda $0a ff/8084 sta $0b ff/8086 LFF8086 stx $0a ff/8088 per LFF808E-1 ff/808b brl LFF80A1 ff/808e LFF808E jmp LFF7EBD ff/8091 LFF8091 lda $0a ff/8093 bne LFF808E ff/8095 ldy #$0b ff/8097 per LFF809D-1 ff/809a brl LFF8265 ff/809d LFF809D bmi LFF808E ff/809f bpl LFF8086 ff/80a1 LFF80A1 ldx #$01 ff/80a3 stx $13 ff/80a5 ldx $10 ff/80a7 stx $12 ff/80a9 rts ff/80aa LFF80AA beq LFF80D0 ff/80ac pha ff/80ad txa ff/80ae and #$7f ff/80b0 pha ff/80b1 per LFF80B7-1 ff/80b4 brl LFF81F0 ff/80b7 LFF80B7 sta $0e ff/80b9 php ff/80ba per LFF80C0-1 ff/80bd brl getVidInd8 ff/80c0 LFF80C0 plp ff/80c1 and $0e ff/80c3 beq LFF80C7 ff/80c5 lda #$80 ff/80c7 LFF80C7 sta $0e ff/80c9 pla ff/80ca ora $0e ff/80cc tax ff/80cd pla ff/80ce ldy $0e ff/80d0 LFF80D0 rts ff/80d1 Serv18 sta $0b ff/80d3 stz $0a ff/80d5 rts ff/80d6 LFF80D6 txa ff/80d7 bmi LFF80DC ff/80d9 brl LFF8156 ff/80dc LFF80DC php ff/80dd and #$7f ff/80df tay ff/80e0 phb ff/80e1 phk dbank K (auto) ff/80e2 plb ff/80e3 rep #$20 rwid longm ff/80e5 per LFF83AE ff/80e8 lda ($01,S),y ff/80ea tax ff/80eb pla ff/80ec plb ff/80ed sep #$20 rwid shortm ff/80ef cpx #$50 ff/80f1 bne LFF80FF ff/80f3 ldx #$57 ff/80f5 per LFF80FB-1 ff/80f8 brl LFF80AA ff/80fb LFF80FB bmi LFF80FF ff/80fd ldx #$55 ff/80ff LFF80FF per LFF8105-1 ff/8102 brl LFF80AA ff/8105 LFF8105 plp ff/8106 txa ff/8107 rts ff/8108 LFF8108 bvc LFF811A ff/810a per LFF8110-1 ff/810d brl LFF8145 ff/8110 LFF8110 bcc LFF811A ff/8112 bit $14 ff/8114 beq LFF811A ff/8116 eor $14 ff/8118 beq LFF813E ff/811a LFF811A pha ff/811b per LFF8121-1 ff/811e brl LFF81B9 ff/8121 LFF8121 cmp #$57 ff/8123 beq LFF813F ff/8125 cmp #$55 ff/8127 beq LFF813F ff/8129 cmp #$17 ff/812b beq LFF813F ff/812d cmp #$53 ff/812f beq LFF813F ff/8131 pla ff/8132 ldx #$ff ff/8134 LFF8134 lsr A ff/8135 inx ff/8136 bcc LFF8134 ff/8138 lda #$00 ff/813a LFF813A rol A ff/813b dex ff/813c bpl LFF813A ff/813e LFF813E rts ff/813f LFF813F lda #$00 ff/8141 pla ff/8142 ldx #$00 ff/8144 rts ff/8145 LFF8145 clc ff/8146 pha ff/8147 lda DP_8_PTR_VID ff/8149 eor $15 ff/814b bne LFF8154 ff/814d lda DP_8_PTR_VID+1 ff/814f eor $16 ff/8151 bne LFF8154 ff/8153 sec ff/8154 LFF8154 pla ff/8155 rts ff/8156 LFF8156 inx ff/8157 txa ff/8158 and #$7f ff/815a tax ff/815b sei ff/815c lda #$ff ff/815e tay ff/815f sta $14 ff/8161 stx $15 ff/8163 and #$0f ff/8165 beq LFF81AF ff/8167 sty DP_8_PTR_VID ff/8169 ldx #$9f ff/816b stx DP_8_PTR_VID+1 ff/816d ldx #$00 ff/816f LFF816F per LFF8175-1 ff/8172 brl getVidInd8 ff/8175 LFF8175 and #$0f ff/8177 beq LFF81B3 ff/8179 ldy #$04 ff/817b LFF817B lsr A ff/817c bcc LFF819F ff/817e pha ff/817f phb ff/8180 phk dbank K (auto) ff/8181 plb ff/8182 phx ff/8183 rep #$30 rwid longm,longx ff/8185 per LFF8376 ;TODO: this sequence could be replaced with lda LFF8376,X? ff/8188 txa ff/8189 clc ff/818a adc $01,S ff/818c plx ff/818d lda a:$0000,x ff/8190 sep #$30 rwid shortm,shortx ff/8192 plx ff/8193 plb ff/8194 cmp $15 ff/8196 bcc LFF819E ff/8198 cmp $14 ff/819a bcs LFF819E ff/819c sta $14 ff/819e LFF819E pla ff/819f LFF819F inx ff/81a0 dey ff/81a1 bne LFF817B ff/81a3 LFF81A3 lda DP_8_PTR_VID+1 ff/81a5 eor #$c0 ff/81a7 sec ff/81a8 ror A ff/81a9 ror DP_8_PTR_VID ff/81ab sta DP_8_PTR_VID+1 ff/81ad bcs LFF816F ff/81af LFF81AF ldx $14 ff/81b1 txa ff/81b2 rts ff/81b3 LFF81B3 inx ff/81b4 inx ff/81b5 inx ff/81b6 inx ff/81b7 bpl LFF81A3 ff/81b9 LFF81B9 ldx #$ff ff/81bb LFF81BB inx ff/81bc lsr A ff/81bd bcc LFF81BB ff/81bf stx $0e ff/81c1 lda DP_8_PTR_VID ff/81c3 eor #$ff ff/81c5 beq LFF81D7 ff/81c7 ldx #$00 ff/81c9 LFF81C9 inx ff/81ca lsr A ff/81cb bcc LFF81C9 ff/81cd txa ff/81ce asl A ff/81cf asl A ff/81d0 per LFF81D6-1 ff/81d3 brl LFF81E1 ff/81d6 LFF81D6 rts ff/81d7 LFF81D7 lda DP_8_PTR_VID+1 ff/81d9 and #$3f ff/81db eor #$3f ff/81dd ldx #$08 ff/81df bne LFF81C9 ff/81e1 LFF81E1 ora $0e ff/81e3 tax ff/81e4 lda DP_8_PTR_VID+1 ff/81e6 and #$20 ff/81e8 bne LFF81EE ff/81ea txa ff/81eb ora #$40 ff/81ed tax ff/81ee LFF81EE txa ff/81ef rts ff/81f0 LFF81F0 php ff/81f1 phy ff/81f2 phb ff/81f3 phk dbank K (auto) ff/81f4 plb ff/81f5 pha ff/81f6 and #$3f ff/81f8 lsr A ff/81f9 lsr A ff/81fa tay ff/81fb pla ff/81fc pha ff/81fd and #$7f ff/81ff cmp #$40 ff/8201 per tblQQQ-1 ff/8204 lda ($01,S),y ff/8206 plx ff/8207 plx ff/8208 bcc LFF820C ff/820a and #$df ff/820c LFF820C sta DP_8_PTR_VID+1 ff/820e phb ff/820f pea $0000 ff/8212 plb ff/8213 plb ff/8214 sta $16 ff/8216 plb ff/8217 per tblQQQ2-1 ff/821a lda ($01,S),y ff/821c plx ff/821d plx ff/821e sta DP_8_PTR_VID ff/8220 phb ff/8221 pea $0000 ff/8224 plb dbank $00 ff/8225 plb ff/8226 sta $15 ff/8228 plb ff/8229 pla ff/822a and #$03 ff/822c tay ff/822d per LFF842E ff/8230 lda ($01,S),y ff/8232 plx ff/8233 plx ff/8234 plb ff/8235 ply ff/8236 plp ff/8237 rts ff/8238 tblQQQ dd1 $bf ff/8239 dd1 $bf ff/823a dd1 $bf ff/823b dd1 $bf ff/823c dd1 $bf ff/823d dd1 $bf ff/823e dd1 $bf ff/823f dd1 $bf ff/8240 dd1 $be ff/8241 dd1 $bd ff/8242 dd1 $bb ff/8243 dd1 $b7 ff/8244 dd1 $af ff/8245 dd1 $9f ff/8246 tblQQQ2 dd1 $fe ff/8247 dd1 $fd ff/8248 dd1 $fb ff/8249 dd1 $f7 ff/824a dd1 $ef ff/824b dd1 $df ff/824c dd1 $bf ff/824d dd1 $7f ff/824e dd1 $ff ff/824f dd1 $ff ff/8250 dd1 $ff ff/8251 dd1 $ff ff/8252 dd1 $ff ff/8253 dd1 $ff ff/8254 LFF8254 cli ff/8255 sei ff/8256 txa ff/8257 rts ff/8258 getVidInd8 phx ff/8259 php ff/825a rep #$10 rwid longx ff/825c ldx DP_8_PTR_VID ff/825e ldal $450000,x ff/8262 plp ff/8263 plx ff/8264 rts rwid shortx ff/8265 LFF8265 clv ff/8266 tyx ff/8267 lda $00,x ff/8269 beq LFF8275 ff/826b sep #$40 ff/826d per LFF8273-1 ff/8270 brl LFF81F0 ff/8273 LFF8273 sta $14 ff/8275 LFF8275 lda #$00 ff/8277 sta DP_8_PTR_VID ff/8279 lda #$a0 ff/827b sta DP_8_PTR_VID+1 ff/827d per LFF8283-1 ff/8280 brl getVidInd8 ff/8283 LFF8283 and #$0f ff/8285 bne LFF829C ff/8287 lda #$00 ff/8289 sta DP_8_PTR_VID ff/828b lda #$80 ff/828d sta DP_8_PTR_VID+1 ff/828f per LFF8295-1 ff/8292 brl getVidInd8 ff/8295 LFF8295 and #$0f ff/8297 bne LFF829C ff/8299 brl LFF82EA ff/829c LFF829C ldy #$ff ff/829e sty DP_8_PTR_VID ff/82a0 ldx #$af ff/82a2 stx DP_8_PTR_VID+1 ff/82a4 LFF82A4 per LFF82AA-1 ff/82a7 brl getVidInd8 ff/82aa LFF82AA and #$0f ff/82ac beq LFF82B6 ff/82ae per LFF82B4-1 ff/82b1 brl LFF8108 ff/82b4 LFF82B4 bne LFF82EE ff/82b6 LFF82B6 lda DP_8_PTR_VID+1 ff/82b8 eor #$c0 ff/82ba sec ff/82bb ror A ff/82bc ror DP_8_PTR_VID ff/82be sta DP_8_PTR_VID+1 ff/82c0 bcs LFF82A4 ff/82c2 ldy #$ff ff/82c4 sty DP_8_PTR_VID ff/82c6 ldx #$8f ff/82c8 stx DP_8_PTR_VID+1 ff/82ca LFF82CA per LFF82D0-1 ff/82cd brl getVidInd8 ff/82d0 LFF82D0 and #$0f ff/82d2 beq LFF82DC ff/82d4 per LFF82DA-1 ff/82d7 brl LFF8108 ff/82da LFF82DA bne LFF82EE ff/82dc LFF82DC lda DP_8_PTR_VID+1 ff/82de eor #$e0 ff/82e0 sec ff/82e1 ror A ff/82e2 ror DP_8_PTR_VID ff/82e4 and #$df ff/82e6 sta DP_8_PTR_VID+1 ff/82e8 bcs LFF82CA ff/82ea LFF82EA ldx #$80 ff/82ec bmi LFF82F4 ff/82ee LFF82EE per LFF82F4-1 ff/82f1 brl LFF81B9 ff/82f4 LFF82F4 txa ff/82f5 rts ff/82f6 str “:^[;l0okg6tf???” ff/8305 dd1 $cf ff/8306 str “????d4esa2q?j8uh????” ff/831a dd1 $8d ff/831b dd1 $89 ff/831c dd1 $8f ff/831d dd1 $8c ff/831e str ↑“HBEGM” ff/8323 dd1 $20 ff/8324 dd1 $ce ff/8325 dd1 $0d ff/8326 dd1 $86 ff/8327 dd1 $88 ff/8328 dd1 $87 ff/8329 dd1 $83 ff/832a str “????????????/p_-,i.9vrb5????????xwc3?” ff/834f dd1 $09 ff/8350 str “z1nym7” ff/8356 str ↑“IFKC” ff/835a dd1 $7f ff/835b dd1 $8b ff/835c dd1 $8e ff/835d dd1 $80 ff/835e str ↑“JD@A” ff/8362 dd1 $5c ff/8363 dd1 $5d ff/8364 dd1 $cc ff/8365 dd1 $1b ff/8366 dd1 $84 ff/8367 dd1 $82 ff/8368 dd1 $85 ff/8369 dd1 $81 ff/836a str “????????????” ff/8376 LFF8376 dd1 $70 ff/8377 dd1 $40 ff/8378 dd1 $01 ff/8379 dd1 $00 ff/837a dd1 $30 ff/837b dd1 $10 ff/837c str “Aa1!QB” ff/8382 dd1 $11 ff/8383 dd1 $22 ff/8384 dd1 $32 ff/8385 dd1 $52 ff/8386 dd1 $12 ff/8387 dd1 $33 ff/8388 dd1 $43 ff/8389 dd1 $63 ff/838a dd1 $13 ff/838b str “#Sd4DTU$5Ee” ff/8396 dd1 $15 ff/8397 str “%Ff&6Vg'7Wh” ff/83a2 dd1 $17 ff/83a3 dd1 $39 ff/83a4 dd1 $48 ff/83a5 dd1 $ff ff/83a6 dd1 $19 ff/83a7 str “)IYyi” ff/83ac dd1 $ff ff/83ad dd1 $62 ff/83ae LFF83AE dd1 $50 ff/83af dd1 $17 ff/83b0 dd1 $57 ff/83b1 dd1 $55 ff/83b2 dd1 $53 ff/83b3 dd1 $13 ff/83b4 dd1 $72 ff/83b5 dd1 $30 ff/83b6 dd1 $32 ff/83b7 dd1 $00 ff/83b8 str “'%$&” ff/83bc dd1 $00 ff/83bd dd1 $00 ff/83be dd1 $1e ff/83bf dd1 $5b ff/83c0 dd1 $19 ff/83c1 str “Ot!6G” ff/83c6 dd1 $05 ff/83c7 dd1 $2b ff/83c8 fill 7,$00 ff/83cf dd1 $59 ff/83d0 dd1 $1a ff/83d1 dd1 $0e ff/83d2 dd1 $63 ff/83d3 dd1 $49 ff/83d4 dd1 $4b ff/83d5 dd1 $09 ff/83d6 dd1 $46 ff/83d7 dd1 $6a ff/83d8 fill 6,$00 ff/83de dd1 $5f ff/83df dd1 $1d ff/83e0 dd1 $18 ff/83e1 str “M”,$0d,“"”,$0a,“E” ff/83e6 dd1 $06 ff/83e7 dd1 $2a ff/83e8 fill 6,$00 ff/83ee dd1 $1f ff/83ef dd1 $1c ff/83f0 dd1 $58 ff/83f1 dd1 $0f ff/83f2 dd1 $61 ff/83f3 dd1 $20 ff/83f4 dd1 $0b ff/83f5 dd1 $46 ff/83f6 dd1 $04 ff/83f7 dd1 $33 ff/83f8 fill 6,$00 ff/83fe dd1 $5c ff/83ff dd1 $1b ff/8400 dd1 $5a ff/8401 dd1 $0c ff/8402 dd1 $23 ff/8403 dd1 $60 ff/8404 dd1 $08 ff/8405 str $07,“qho-gm.e]^1LNbHJDi/,dnflswu7v45” ff/8425 dd1 $00 ff/8426 str “q(k)” ff/842a dd1 $00 ff/842b dd1 $00 ff/842c dd1 $00 ff/842d dd1 $00 ff/842e LFF842E dd1 $01 ff/842f dd1 $02 ff/8430 dd1 $04 ff/8431 dd1 $08 ff/8432 Serv14 phb ff/8433 phy ff/8434 phk dbank K (auto) ff/8435 plb ff/8436 ldy #$02 ff/8438 per tblQ1-1 ff/843b LFF843B cmp ($01,S),y ff/843d beq LFF8465 ff/843f dey ff/8440 bne LFF843B ff/8442 ply ff/8443 ply ff/8444 cmp #$7f ff/8446 beq LFF8462 ff/8448 bcc LFF844F ff/844a ply ff/844b plb ff/844c eor #$20 ff/844e rts ff/844f LFF844F cmp #$40 ff/8451 bcc LFF8462 ff/8453 and #$1f ff/8455 LFF8455 pha ff/8456 lda #$00 ff/8458 phb ff/8459 pea $0000 ff/845c plb dbank $00 ff/845d plb ff/845e sta $0d ff/8460 plb ff/8461 pla ff/8462 LFF8462 ply ff/8463 plb ff/8464 rts ff/8465 LFF8465 pla ff/8466 pla ff/8467 per tblQ1+1 ff/846a lda ($01,S),y ff/846c ply ff/846d ply ff/846e bra LFF8455 ff/8470 tblQ1 dd1 $5f ff/8471 dd1 $2f ff/8472 dd1 $00 ff/8473 dd1 $1f ff/8474 LFF8474 phb ff/8475 phy ff/8476 phk dbank K (auto) ff/8477 plb ff/8478 ldy #$02 ff/847a per tblXX-1 ff/847d LFF847D cmp ($01,S),y ff/847f beq LFF849B ff/8481 dey ff/8482 bne LFF847D ff/8484 ply ff/8485 ply ff/8486 cmp #$7f ff/8488 beq LFF8498 ff/848a bcs LFF8496 ff/848c cmp #$21 ff/848e bcc LFF8498 ff/8490 cmp #$40 ff/8492 bcc LFF8496 ff/8494 eor #$30 ff/8496 LFF8496 eor #$10 ff/8498 LFF8498 ply ff/8499 plb ff/849a rts ff/849b LFF849B pla ff/849c pla ff/849d per tblXX+1 ff/84a0 lda ($01,S),y ff/84a2 ply ff/84a3 ply ff/84a4 ply ff/84a5 plb ff/84a6 rts ff/84a7 tblXX str “_0@`” ff/84ab LFF84AB phb ff/84ac phy ff/84ad phk dbank K (auto) ff/84ae plb ff/84af ldy #$08 ff/84b1 per tblYY-1 ff/84b4 LFF84B4 cmp ($01,S),y ff/84b6 beq LFF84C0 ff/84b8 dey ff/84b9 bne LFF84B4 ff/84bb ply ff/84bc ply ff/84bd LFF84BD ply ff/84be plb ff/84bf rts ff/84c0 LFF84C0 pla ff/84c1 pla ff/84c2 per tblYY+7 ff/84c5 lda ($01,S),y ff/84c7 ply ff/84c8 ply ff/84c9 bra LFF84BD ff/84cb tblYY str “12345678” ff/84d3 dd1 $81 ff/84d4 dd1 $82 ff/84d5 dd1 $83 ff/84d6 dd1 $84 ff/84d7 dd1 $85 ff/84d8 dd1 $86 ff/84d9 dd1 $87 ff/84da dd1 $88 ff/84db LFF84DB cmp #$c0 ff/84dd bcc LFF84FA ff/84df phb ff/84e0 phy ff/84e1 phk dbank K (auto) ff/84e2 plb ff/84e3 and #$cf ff/84e5 ldy #$08 ff/84e7 per tblZZ-1 ff/84ea LFF84EA cmp ($01,S),y ff/84ec beq LFF84FB ff/84ee dey ff/84ef bne LFF84EA ff/84f1 ply ff/84f2 ply ff/84f3 and #$0f ff/84f5 clc ff/84f6 adc #$30 ff/84f8 LFF84F8 ply ff/84f9 plb ff/84fa LFF84FA rts ff/84fb LFF84FB pla ff/84fc pla ff/84fd per tblZZ2-1 ff/8500 lda ($01,S),y ff/8502 ply ff/8503 ply ff/8504 php ff/8505 pha ff/8506 lda #$ac ff/8508 ldx #$00 ff/850a ldy #$ff ff/850c cop $06 ff/850e txa ff/850f lsr A ff/8510 bcc LFF8523 ff/8512 pla ff/8513 cmp #$2e ff/8515 bne LFF851B ff/8517 lda #$2a ff/8519 bra LFF8524 ff/851b LFF851B cmp #$3d ff/851d bne LFF8524 ff/851f lda #$23 ff/8521 bra LFF8524 ff/8523 LFF8523 pla ff/8524 LFF8524 plp ff/8525 bra LFF84F8 ff/8527 tblZZ dd1 $80 ff/8528 dd1 $89 ff/8529 dd1 $ca ff/852a dd1 $cb ff/852b dd1 $cf ff/852c dd1 $cc ff/852d dd1 $cd ff/852e dd1 $ce ff/852f tblZZ2 dd1 $1e ff/8530 dd1 $2d ff/8531 dd1 $2e ff/8532 dd1 $3d ff/8533 dd1 $f4 ff/8534 dd1 $f0 ff/8535 dd1 $f1 ff/8536 dd1 $f2 ff/8537 LFF8537 pha ff/8538 lda #$02 ff/853a LFF853A phx ff/853b ldx #$06 ff/853d per LFF8543-1 ff/8540 brl LFF8559 ff/8543 LFF8543 plx ff/8544 pla ff/8545 rts ff/8546 LFF8546 pha ff/8547 lda #$00 ff/8549 bra LFF853A ff/854b LFF854B pha ff/854c and #$df ff/854e cmp #$41 ff/8550 bcc LFF8556 ff/8552 cmp #$5b ff/8554 bcc LFF8557 ff/8556 LFF8556 sec ff/8557 LFF8557 pla ff/8558 rts ff/8559 LFF8559 phk ff/855a per anRTS-1 ff/855d brl callMOS ff/8560 anRTS rts ff/8561 callMOS pei (DP_MOSREF+4) ff/8563 pei (DP_MOSREF+2) ff/8565 pei (DP_MOSREF) ff/8567 rtl ff/8568 dd2 $58ed ;crc ff/856a fill 150,$ff adrend ↑ $ff7e00