; da65 V2.15 ; Created: 2016-10-23 14:46:38 ; Input file: ROM/OMNIMNXX.ROM ; Page: 1 .setcpu "6502" ; ---------------------------------------------------------------------------- L009B := $009B L27DC := $27DC L5FDB := $5FDB L65DB := $65DB LC08F := $C08F CLI := $C0B2 LC151 := $C151 LC230 := $C230 LC6B8 := $C6B8 LC6C6 := $C6C6 LC6EE := $C6EE LC6F2 := $C6F2 LC78F := $C78F LC79C := $C79C LC7BC := $C7BC LC7D4 := $C7D4 LC7ED := $C7ED LC805 := $C805 LC80E := $C80E LC819 := $C819 LC841 := $C841 LC84A := $C84A LC853 := $C853 LCB40 := $CB40 LCCF5 := $CCF5 LCD1A := $CD1A LCF5D := $CF5D LCF63 := $CF63 LCF69 := $CF69 LCF75 := $CF75 LCF7B := $CF7B PUTx := $CFAB GETx := $CFB9 LCFD1 := $CFD1 LCFEF := $CFEF LD9AA := $D9AA LD9D2 := $D9D2 LDA44 := $DA44 LDADB := $DADB LDDB6 := $DDB6 LE453 := $E453 LE456 := $E456 ; ---------------------------------------------------------------------------- OmniBEntry: jsr LCF75 ; 5000 20 75 CF u. bmi L5032 ; 5003 30 2D 0- lda $94 ; 5005 A5 94 .. sta $92 ; 5007 85 92 .. lda $95 ; 5009 A5 95 .. sta $93 ; 500B 85 93 .. jsr LC6EE ; 500D 20 EE C6 .. lda $97 ; 5010 A5 97 .. jsr LCCF5 ; 5012 20 F5 CC .. lda $96 ; 5015 A5 96 .. jsr LCCF5 ; 5017 20 F5 CC .. lda #$C0 ; 501A A9 C0 .. jsr LCCF5 ; 501C 20 F5 CC .. lda #$25 ; 501F A9 25 .% jsr LCCF5 ; 5021 20 F5 CC .. ldy #$04 ; 5024 A0 04 .. lda $92 ; 5026 A5 92 .. sta ($94),y ; 5028 91 94 .. iny ; 502A C8 . lda $93 ; 502B A5 93 .. sta ($94),y ; 502D 91 94 .. jsr LCB40 ; 502F 20 40 CB @. L5032: jmp LCFEF ; 5032 4C EF CF L.. ; ---------------------------------------------------------------------------- stx $9A ; 5035 86 9A .. bit $0120 ; 5037 2C 20 01 , . bvs L5041 ; 503A 70 05 p. ldx #$00 ; 503C A2 00 .. jsr LC79C ; 503E 20 9C C7 .. L5041: pha ; 5041 48 H lda $0120 ; 5042 AD 20 01 . . and #$20 ; 5045 29 20 ) beq L5054 ; 5047 F0 0B .. lda $0120 ; 5049 AD 20 01 . . and #$1F ; 504C 29 1F ). beq L5054 ; 504E F0 04 .. pla ; 5050 68 h jmp L505A ; 5051 4C 5A 50 LZP ; ---------------------------------------------------------------------------- L5054: pla ; 5054 68 h ldx #$50 ; 5055 A2 50 .P jsr LC79C ; 5057 20 9C C7 .. L505A: ldx $9A ; 505A A6 9A .. jmp GETx ; 505C 4C B9 CF L.. ; ---------------------------------------------------------------------------- pha ; 505F 48 H lsr a ; 5060 4A J lsr a ; 5061 4A J lsr a ; 5062 4A J lsr a ; 5063 4A J jsr LC819 ; 5064 20 19 C8 .. jsr LCF63 ; 5067 20 63 CF c. pla ; 506A 68 h jsr LC819 ; 506B 20 19 C8 .. jsr LCF63 ; 506E 20 63 CF c. jmp GETx ; 5071 4C B9 CF L.. ; ---------------------------------------------------------------------------- ldx #$50 ; 5074 A2 50 .P lda $0340,x ; 5076 BD 40 03 .@. bpl L509F ; 5079 10 24 .$ jsr LC78F ; 507B 20 8F C7 .. lda #$03 ; 507E A9 03 .. sta $0342,x ; 5080 9D 42 03 .B. lda $0125 ; 5083 AD 25 01 .%. sta $0344,x ; 5086 9D 44 03 .D. lda $0126 ; 5089 AD 26 01 .&. sta $0345,x ; 508C 9D 45 03 .E. lda #$08 ; 508F A9 08 .. sta $034A,x ; 5091 9D 4A 03 .J. jsr LE456 ; 5094 20 56 E4 V. bpl L50A2 ; 5097 10 09 .. jsr LC78F ; 5099 20 8F C7 .. jmp LC230 ; 509C 4C 30 C2 L0. ; ---------------------------------------------------------------------------- L509F: jsr LC78F ; 509F 20 8F C7 .. L50A2: jmp LCFEF ; 50A2 4C EF CF L.. ; ---------------------------------------------------------------------------- jsr LCF75 ; 50A5 20 75 CF u. bmi L50B2 ; 50A8 30 08 0. lda $94 ; 50AA A5 94 .. sta $0123 ; 50AC 8D 23 01 .#. jmp LC08F ; 50AF 4C 8F C0 L.. ; ---------------------------------------------------------------------------- L50B2: lda $0124 ; 50B2 AD 24 01 .$. beq L50C1 ; 50B5 F0 0A .. jsr LC6F2 ; 50B7 20 F2 C6 .. jmp L009B ; 50BA 4C 9B 00 L.. ; ---------------------------------------------------------------------------- lda #$00 ; 50BD A9 00 .. beq L50C9 ; 50BF F0 08 .. L50C1: jsr LC6F2 ; 50C1 20 F2 C6 .. .byte $53 ; 50C4 53 S .byte $9B ; 50C5 9B . brk ; 50C6 00 . lda #$01 ; 50C7 A9 01 .. L50C9: sta $0124 ; 50C9 8D 24 01 .$. jmp LCFEF ; 50CC 4C EF CF L.. ; ---------------------------------------------------------------------------- stx $9A ; 50CF 86 9A .. pha ; 50D1 48 H and #$7F ; 50D2 29 7F ). cmp #$7F ; 50D4 C9 7F .. beq L50DC ; 50D6 F0 04 .. cmp #$20 ; 50D8 C9 20 . bcs L50DE ; 50DA B0 02 .. L50DC: lda #$2D ; 50DC A9 2D .- L50DE: ldx #$50 ; 50DE A2 50 .P jsr LC79C ; 50E0 20 9C C7 .. pla ; 50E3 68 h pha ; 50E4 48 H and #$7F ; 50E5 29 7F ). cmp #$60 ; 50E7 C9 60 .` bcs L50F9 ; 50E9 B0 0E .. cmp #$20 ; 50EB C9 20 . bcs L50F4 ; 50ED B0 05 .. pla ; 50EF 68 h adc #$40 ; 50F0 69 40 i@ bcc L50FA ; 50F2 90 06 .. L50F4: pla ; 50F4 68 h sbc #$20 ; 50F5 E9 20 . bcs L50FA ; 50F7 B0 01 .. L50F9: pla ; 50F9 68 h L50FA: sta $5D ; 50FA 85 5D .] lda #$1F ; 50FC A9 1F .. ldx #$00 ; 50FE A2 00 .. jsr LC79C ; 5100 20 9C C7 .. ldx $9A ; 5103 A6 9A .. jmp GETx ; 5105 4C B9 CF L.. ; ---------------------------------------------------------------------------- sty L009B ; 5108 84 9B .. L510A: ldy #$00 ; 510A A0 00 .. ldx #$00 ; 510C A2 00 .. lda $92 ; 510E A5 92 .. sec ; 5110 38 8 sbc #$2A ; 5111 E9 2A .* cmp $0348,x ; 5113 DD 48 03 .H. beq L5149 ; 5116 F0 31 .1 lda ($92),y ; 5118 B1 92 .. cmp #$5E ; 511A C9 5E .^ beq L5149 ; 511C F0 2B .+ jsr LC7BC ; 511E 20 BC C7 .. jsr LC7D4 ; 5121 20 D4 C7 .. bmi L510A ; 5124 30 E4 0. pha ; 5126 48 H lda #$00 ; 5127 A9 00 .. sta $94 ; 5129 85 94 .. sta $95 ; 512B 85 95 .. pla ; 512D 68 h L512E: asl a ; 512E 0A . ; A * 16 asl a ; 512F 0A . asl a ; 5130 0A . asl a ; 5131 0A . ldy #$04 ; 5132 A0 04 .. L5134: asl a ; 5134 0A . rol $94 ; 5135 26 94 &. rol $95 ; 5137 26 95 &. dey ; 5139 88 . bne L5134 ; 513A D0 F8 .. lda ($92),y ; 513C B1 92 .. jsr LC7D4 ; 513E 20 D4 C7 .. bmi L514B ; 5141 30 08 0. jsr LC7BC ; 5143 20 BC C7 .. jmp L512E ; 5146 4C 2E 51 L.Q ; ---------------------------------------------------------------------------- L5149: lda #$00 ; 5149 A9 00 .. L514B: ldy L009B ; 514B A4 9B .. eor #$FF ; 514D 49 FF I. jmp GETx ; 514F 4C B9 CF L.. ; ---------------------------------------------------------------------------- lda $0123 ; 5152 AD 23 01 .#. sta $0301 ; 5155 8D 01 03 ... lda #$53 ; 5158 A9 53 .S sta $0302 ; 515A 8D 02 03 ... jsr LE453 ; 515D 20 53 E4 S. ldx #$00 ; 5160 A2 00 .. ldy #$80 ; 5162 A0 80 .. lda $030B ; 5164 AD 0B 03 ... bne L5170 ; 5167 D0 07 .. lda $030A ; 5169 AD 0A 03 ... cmp #$04 ; 516C C9 04 .. bcc L517B ; 516E 90 0B .. L5170: lda $02EA ; 5170 AD EA 02 ... and #$20 ; 5173 29 20 ) beq L517B ; 5175 F0 04 .. ldx #$01 ; 5177 A2 01 .. ldy #$00 ; 5179 A0 00 .. L517B: stx $0309 ; 517B 8E 09 03 ... sty $0308 ; 517E 8C 08 03 ... jmp GETx ; 5181 4C B9 CF L.. ; ---------------------------------------------------------------------------- jsr LCF75 ; 5184 20 75 CF u. bmi L5193 ; 5187 30 0A 0. lda $94 ; 5189 A5 94 .. sta $030A ; 518B 8D 0A 03 ... lda $95 ; 518E A5 95 .. sta $030B ; 5190 8D 0B 03 ... L5193: lda $0304 ; 5193 AD 04 03 ... sta $96 ; 5196 85 96 .. lda $0305 ; 5198 AD 05 03 ... sta $97 ; 519B 85 97 .. jsr LCF75 ; 519D 20 75 CF u. bmi L51AA ; 51A0 30 08 0. jsr LC84A ; 51A2 20 4A C8 J. jsr LCF75 ; 51A5 20 75 CF u. bpl L51B2 ; 51A8 10 08 .. L51AA: lda #$01 ; 51AA A9 01 .. sta $94 ; 51AC 85 94 .. lda #$00 ; 51AE A9 00 .. sta $95 ; 51B0 85 95 .. L51B2: jsr LCF7B ; 51B2 20 7B CF {. lda $96 ; 51B5 A5 96 .. sta $0304 ; 51B7 8D 04 03 ... lda $97 ; 51BA A5 97 .. sta $0305 ; 51BC 8D 05 03 ... jmp GETx ; 51BF 4C B9 CF L.. ; ---------------------------------------------------------------------------- lda $94 ; 51C2 A5 94 .. bne L51C8 ; 51C4 D0 02 .. dec $95 ; 51C6 C6 95 .. L51C8: dec $94 ; 51C8 C6 94 .. lda $94 ; 51CA A5 94 .. ora $95 ; 51CC 05 95 .. jmp GETx ; 51CE 4C B9 CF L.. ; ---------------------------------------------------------------------------- lda $030B ; 51D1 AD 0B 03 ... cmp #$08 ; 51D4 C9 08 .. bmi L51EA ; 51D6 30 12 0. pha ; 51D8 48 H lda $030A ; 51D9 AD 0A 03 ... clc ; 51DC 18 . adc #$80 ; 51DD 69 80 i. sta $030A ; 51DF 8D 0A 03 ... pla ; 51E2 68 h adc #$00 ; 51E3 69 00 i. sta $030B ; 51E5 8D 0B 03 ... bne L51F2 ; 51E8 D0 08 .. L51EA: inc $030A ; 51EA EE 0A 03 ... bne L51F2 ; 51ED D0 03 .. inc $030B ; 51EF EE 0B 03 ... L51F2: clc ; 51F2 18 . lda $0304 ; 51F3 AD 04 03 ... adc $0308 ; 51F6 6D 08 03 m.. sta $0304 ; 51F9 8D 04 03 ... lda $0305 ; 51FC AD 05 03 ... adc $0309 ; 51FF 6D 09 03 m.. sta $0305 ; 5202 8D 05 03 ... jmp GETx ; 5205 4C B9 CF L.. ; ---------------------------------------------------------------------------- ldy #$0B ; 5208 A0 0B .. L520A: lda $0300,y ; 520A B9 00 03 ... sta $012A,y ; 520D 99 2A 01 .*. dey ; 5210 88 . bpl L520A ; 5211 10 F7 .. lda $0135 ; 5213 AD 35 01 .5. jsr LCF69 ; 5216 20 69 CF i. lda $0134 ; 5219 AD 34 01 .4. jsr LC805 ; 521C 20 05 C8 .. lda $012F ; 521F AD 2F 01 ./. jsr LCF69 ; 5222 20 69 CF i. lda $012E ; 5225 AD 2E 01 ... jsr LCF69 ; 5228 20 69 CF i. jsr LC7ED ; 522B 20 ED C7 .. ldy #$0B ; 522E A0 0B .. L5230: lda $012A,y ; 5230 B9 2A 01 .*. sta $0300,y ; 5233 99 00 03 ... dey ; 5236 88 . bpl L5230 ; 5237 10 F7 .. jmp GETx ; 5239 4C B9 CF L.. ; ---------------------------------------------------------------------------- jsr LCF75 ; 523C 20 75 CF u. bpl L5244 ; 523F 10 03 .. jsr LC841 ; 5241 20 41 C8 A. L5244: jsr LC84A ; 5244 20 4A C8 J. jsr LCF75 ; 5247 20 75 CF u. bpl L524F ; 524A 10 03 .. jsr LC841 ; 524C 20 41 C8 A. L524F: jmp GETx ; 524F 4C B9 CF L.. ; ---------------------------------------------------------------------------- lda #$08 ; 5252 A9 08 .. clc ; 5254 18 . adc $96 ; 5255 65 96 e. sta $96 ; 5257 85 96 .. lda #$00 ; 5259 A9 00 .. adc $97 ; 525B 65 97 e. sta $97 ; 525D 85 97 .. jmp GETx ; 525F 4C B9 CF L.. ; ---------------------------------------------------------------------------- ldx #$00 ; 5262 A2 00 .. ldy #$00 ; 5264 A0 00 .. L5266: lda ($92),y ; 5266 B1 92 .. cmp #$20 ; 5268 C9 20 . beq L5270 ; 526A F0 04 .. cmp #$2C ; 526C C9 2C ., bne L5274 ; 526E D0 04 .. L5270: inc $92 ; 5270 E6 92 .. bne L5266 ; 5272 D0 F2 .. L5274: lda #$01 ; 5274 A9 01 .. sta $0123 ; 5276 8D 23 01 .#. lda #$04 ; 5279 A9 04 .. sta $9D ; 527B 85 9D .. sty $9C ; 527D 84 9C .. dey ; 527F 88 . sty $97 ; 5280 84 97 .. L5282: iny ; 5282 C8 . lda ($92),y ; 5283 B1 92 .. cmp #$3A ; 5285 C9 3A .: bne L52A5 ; 5287 D0 1C .. lda #$5E ; 5289 A9 5E .^ sta ($92),y ; 528B 91 92 .. lda ($92,x) ; 528D A1 92 .. cmp #$44 ; 528F C9 44 .D bne L5295 ; 5291 D0 02 .. inc $92 ; 5293 E6 92 .. L5295: jsr LCF75 ; 5295 20 75 CF u. bmi L529F ; 5298 30 05 0. lda $94 ; 529A A5 94 .. sta $0123 ; 529C 8D 23 01 .#. L529F: inc $92 ; 529F E6 92 .. ldy #$FF ; 52A1 A0 FF .. bmi L5282 ; 52A3 30 DD 0. L52A5: cmp #$2E ; 52A5 C9 2E .. bne L52AB ; 52A7 D0 02 .. sty $97 ; 52A9 84 97 .. L52AB: cmp #$20 ; 52AB C9 20 . beq L52B9 ; 52AD F0 0A .. cmp #$2C ; 52AF C9 2C ., beq L52B9 ; 52B1 F0 06 .. cmp #$9B ; 52B3 C9 9B .. beq L52D7 ; 52B5 F0 20 . bne L5282 ; 52B7 D0 C9 .. L52B9: lda $92 ; 52B9 A5 92 .. pha ; 52BB 48 H lda $93 ; 52BC A5 93 .. pha ; 52BE 48 H tya ; 52BF 98 . jsr LC6C6 ; 52C0 20 C6 C6 .. tay ; 52C3 A8 . jsr LCF75 ; 52C4 20 75 CF u. bmi L52D1 ; 52C7 30 08 0. lda $94 ; 52C9 A5 94 .. sta $9C ; 52CB 85 9C .. lda $95 ; 52CD A5 95 .. sta $9D ; 52CF 85 9D .. L52D1: pla ; 52D1 68 h sta $93 ; 52D2 85 93 .. pla ; 52D4 68 h sta $92 ; 52D5 85 92 .. L52D7: bit $97 ; 52D7 24 97 $. bpl L52DE ; 52D9 10 03 .. sty $97 ; 52DB 84 97 .. iny ; 52DD C8 . L52DE: lda #$9B ; 52DE A9 9B .. sta ($92),y ; 52E0 91 92 .. ldy $97 ; 52E2 A4 97 .. L52E4: iny ; 52E4 C8 . lda ($92),y ; 52E5 B1 92 .. sta $94,x ; 52E7 95 94 .. inx ; 52E9 E8 . cpx #$03 ; 52EA E0 03 .. bne L52E4 ; 52EC D0 F6 .. lda #$08 ; 52EE A9 08 .. ldy $97 ; 52F0 A4 97 .. jsr LC6B8 ; 52F2 20 B8 C6 .. ldx #$00 ; 52F5 A2 00 .. L52F7: lda $94,x ; 52F7 B5 94 .. cmp #$9B ; 52F9 C9 9B .. beq L5305 ; 52FB F0 08 .. sta ($92),y ; 52FD 91 92 .. iny ; 52FF C8 . inx ; 5300 E8 . cpx #$03 ; 5301 E0 03 .. bne L52F7 ; 5303 D0 F2 .. L5305: lda #$0B ; 5305 A9 0B .. jsr LC6B8 ; 5307 20 B8 C6 .. jmp GETx ; 530A 4C B9 CF L.. ; ---------------------------------------------------------------------------- cmp #$23 ; 530D C9 23 .# bne L5321 ; 530F D0 10 .. jsr LC7BC ; 5311 20 BC C7 .. jsr L541B ; 5314 20 1B 54 .T bcs L536A ; 5317 B0 51 .Q cpy $95 ; 5319 C4 95 .. bne L536A ; 531B D0 4D .M ldx #$01 ; 531D A2 01 .. bne L536C ; 531F D0 4B .K L5321: cmp #$2A ; 5321 C9 2A .* bne L532A ; 5323 D0 05 .. jsr LC7BC ; 5325 20 BC C7 .. lda ($92),y ; 5328 B1 92 .. L532A: pha ; 532A 48 H jsr LC7BC ; 532B 20 BC C7 .. jsr L541B ; 532E 20 1B 54 .T bcs L536A ; 5331 B0 37 .7 pla ; 5333 68 h cmp #$2D ; 5334 C9 2D .- beq L5351 ; 5336 F0 19 .. cmp #$2B ; 5338 C9 2B .+ bne L536A ; 533A D0 2E .. L533C: cpy $95 ; 533C C4 95 .. bne L536A ; 533E D0 2A .* sec ; 5340 38 8 lda $94 ; 5341 A5 94 .. beq L5351 ; 5343 F0 0C .. sbc #$02 ; 5345 E9 02 .. sta $94 ; 5347 85 94 .. bcc L5351 ; 5349 90 06 .. cmp #$80 ; 534B C9 80 .. bcs L536A ; 534D B0 1B .. bcc L5366 ; 534F 90 15 .. L5351: cpy $95 ; 5351 C4 95 .. bne L536A ; 5353 D0 15 .. clc ; 5355 18 . lda $94 ; 5356 A5 94 .. adc #$02 ; 5358 69 02 i. sta $94 ; 535A 85 94 .. cmp #$81 ; 535C C9 81 .. bcs L536A ; 535E B0 0A .. sec ; 5360 38 8 tya ; 5361 98 . sbc $94 ; 5362 E5 94 .. sta $94 ; 5364 85 94 .. L5366: ldx #$0B ; 5366 A2 0B .. bne L536C ; 5368 D0 02 .. L536A: ldx #$00 ; 536A A2 00 .. L536C: jmp GETx ; 536C 4C B9 CF L.. ; ---------------------------------------------------------------------------- jsr LC7BC ; 536F 20 BC C7 .. jsr L53D3 ; 5372 20 D3 53 .S cpx #$08 ; 5375 E0 08 .. bne L537D ; 5377 D0 04 .. ldx #$06 ; 5379 A2 06 .. bne L536C ; 537B D0 EF .. L537D: cpx #$0A ; 537D E0 0A .. bne L538C ; 537F D0 0B .. jsr L5414 ; 5381 20 14 54 .T cpx #$0D ; 5384 E0 0D .. bne L538C ; 5386 D0 04 .. ldx #$07 ; 5388 A2 07 .. bne L536C ; 538A D0 E0 .. L538C: cpx #$02 ; 538C E0 02 .. bne L536A ; 538E D0 DA .. lda $94 ; 5390 A5 94 .. cmp #$FF ; 5392 C9 FF .. beq L536A ; 5394 F0 D4 .. ldx #$0C ; 5396 A2 0C .. bne L536C ; 5398 D0 D2 .. jsr L53D3 ; 539A 20 D3 53 .S cmp #$9B ; 539D C9 9B .. bne L536C ; 539F D0 CB .. lda $9C ; 53A1 A5 9C .. cmp #$04 ; 53A3 C9 04 .. bcc L536C ; 53A5 90 C5 .. cmp #$0E ; 53A7 C9 0E .. bcs L536C ; 53A9 B0 C1 .. cmp #$07 ; 53AB C9 07 .. beq L536C ; 53AD F0 BD .. cmp #$0B ; 53AF C9 0B .. beq L536C ; 53B1 F0 B9 .. sec ; 53B3 38 8 lda $94 ; 53B4 A5 94 .. sbc $96 ; 53B6 E5 96 .. sta $94 ; 53B8 85 94 .. lda $95 ; 53BA A5 95 .. sbc $97 ; 53BC E5 97 .. sta $95 ; 53BE 85 95 .. bcs L53D0 ; 53C0 B0 0E .. sec ; 53C2 38 8 tya ; 53C3 98 . sbc $94 ; 53C4 E5 94 .. sta $94 ; 53C6 85 94 .. tya ; 53C8 98 . sbc $95 ; 53C9 E5 95 .. sta $95 ; 53CB 85 95 .. jmp L5351 ; 53CD 4C 51 53 LQS ; ---------------------------------------------------------------------------- L53D0: jmp L533C ; 53D0 4C 3C 53 L<S ; ---------------------------------------------------------------------------- L53D3: jsr L541B ; 53D3 20 1B 54 .T bcs L53E6 ; 53D6 B0 0E .. lda ($92),y ; 53D8 B1 92 .. cmp #$9B ; 53DA C9 9B .. beq L53E9 ; 53DC F0 0B .. cmp #$58 ; 53DE C9 58 .X beq L53FD ; 53E0 F0 1B .. cmp #$59 ; 53E2 C9 59 .Y beq L5407 ; 53E4 F0 21 .! L53E6: ldx #$00 ; 53E6 A2 00 .. rts ; 53E8 60 ` ; ---------------------------------------------------------------------------- L53E9: ldx $9C ; 53E9 A6 9C .. cpx #$1C ; 53EB E0 1C .. beq L53FA ; 53ED F0 0B .. cpx #$1D ; 53EF E0 1D .. beq L53FA ; 53F1 F0 07 .. cpy $95 ; 53F3 C4 95 .. bne L53FA ; 53F5 D0 03 .. ldx #$03 ; 53F7 A2 03 .. rts ; 53F9 60 ` ; ---------------------------------------------------------------------------- L53FA: ldx #$02 ; 53FA A2 02 .. rts ; 53FC 60 ` ; ---------------------------------------------------------------------------- L53FD: cpy $95 ; 53FD C4 95 .. bne L5404 ; 53FF D0 03 .. ldx #$08 ; 5401 A2 08 .. rts ; 5403 60 ` ; ---------------------------------------------------------------------------- L5404: ldx #$09 ; 5404 A2 09 .. rts ; 5406 60 ` ; ---------------------------------------------------------------------------- L5407: ldx $9C ; 5407 A6 9C .. cpx #$1F ; 5409 E0 1F .. beq L5414 ; 540B F0 07 .. cpx #$31 ; 540D E0 31 .1 beq L5414 ; 540F F0 03 .. L5411: ldx #$0A ; 5411 A2 0A .. rts ; 5413 60 ` ; ---------------------------------------------------------------------------- L5414: cpy $95 ; 5414 C4 95 .. bne L5411 ; 5416 D0 F9 .. ldx #$0D ; 5418 A2 0D .. rts ; 541A 60 ` ; ---------------------------------------------------------------------------- L541B: lda ($92),y ; 541B B1 92 .. ldx #$05 ; 541D A2 05 .. jsr LCF5D ; 541F 20 5D CF ]. cpx #$05 ; 5422 E0 05 .. beq L542E ; 5424 F0 08 .. cpx #$10 ; 5426 E0 10 .. bcs L5435 ; 5428 B0 0B .. jsr OmniBRestA ; 542A 20 5B 54 [T rts ; 542D 60 ` ; ---------------------------------------------------------------------------- L542E: jsr LCF75 ; 542E 20 75 CF u. bmi L5435 ; 5431 30 02 0. clc ; 5433 18 . rts ; 5434 60 ` ; ---------------------------------------------------------------------------- L5435: sec ; 5435 38 8 rts ; 5436 60 ` ; ---------------------------------------------------------------------------- L5437: cmp String,x ; 5437 DD 44 54 .DT beq L5441 ; 543A F0 05 .. inx ; 543C E8 . cpx #$17 ; 543D E0 17 .. bne L5437 ; 543F D0 F6 .. L5441: jmp GETx ; 5441 4C B9 CF L.. ; ---------------------------------------------------------------------------- String: .byte "#+-*($0123456789ABCDEF" ; 5444 23 2B 2D 2A 28 24 30 31 #+-*($01 ; 544C 32 33 34 35 36 37 38 39 23456789 ; 5454 41 42 43 44 45 46 ABCDEF .byte $9B ; 545A 9B . ; ---------------------------------------------------------------------------- OmniBRestA: jsr LDA44 ; 545B 20 44 DA D. lda ($92),y ; 545E B1 92 .. jsr LC7D4 ; 5460 20 D4 C7 .. jsr LC853 ; 5463 20 53 C8 S. rts ; 5466 60 ` ; ---------------------------------------------------------------------------- jsr LCF75 ; 5467 20 75 CF u. bmi L5474 ; 546A 30 08 0. lda $94 ; 546C A5 94 .. jsr LCCF5 ; 546E 20 F5 CC .. jmp LCFD1 ; 5471 4C D1 CF L.. ; ---------------------------------------------------------------------------- L5474: jmp LCFEF ; 5474 4C EF CF L.. ; ---------------------------------------------------------------------------- jsr LCD1A ; 5477 20 1A CD .. jsr LCF69 ; 547A 20 69 CF i. jsr LC7ED ; 547D 20 ED C7 .. jmp LCFEF ; 5480 4C EF CF L.. ; ---------------------------------------------------------------------------- jsr LCF75 ; 5483 20 75 CF u. bpl L548B ; 5486 10 03 .. jmp OmniBEntryB ; 5488 4C 39 55 L9U ; ---------------------------------------------------------------------------- L548B: ldy #$00 ; 548B A0 00 .. lda ($92),y ; 548D B1 92 .. cmp #$9B ; 548F C9 9B .. beq L54AF ; 5491 F0 1C .. cmp #$20 ; 5493 C9 20 . beq L54AF ; 5495 F0 18 .. jsr LDA44 ; 5497 20 44 DA D. jsr LC151 ; 549A 20 51 C1 Q. L549D: jsr LC7BC ; 549D 20 BC C7 .. lda ($92),y ; 54A0 B1 92 .. jsr LC7D4 ; 54A2 20 D4 C7 .. bmi L549D ; 54A5 30 F6 0. jsr LC853 ; 54A7 20 53 C8 S. bcc L54AF ; 54AA 90 03 .. jmp OmniBEntryB ; 54AC 4C 39 55 L9U ; ---------------------------------------------------------------------------- L54AF: jsr LC84A ; 54AF 20 4A C8 J. lda #$9D ; 54B2 A9 9D .. jsr LCF63 ; 54B4 20 63 CF c. lda #$24 ; 54B7 A9 24 .$ jsr LCF63 ; 54B9 20 63 CF c. jsr LC80E ; 54BC 20 0E C8 .. lda #$3D ; 54BF A9 3D .= jsr LCF63 ; 54C1 20 63 CF c. jsr L553C ; 54C4 20 3C 55 <U lda $D4 ; 54C7 A5 D4 .. and #$03 ; 54C9 29 03 ). tay ; 54CB A8 . ldx #$00 ; 54CC A2 00 .. L54CE: lda $D5,x ; 54CE B5 D5 .. jsr LCF69 ; 54D0 20 69 CF i. inx ; 54D3 E8 . dey ; 54D4 88 . bpl L54CE ; 54D5 10 F7 .. jsr LC7ED ; 54D7 20 ED C7 .. jsr LCF75 ; 54DA 20 75 CF u. bmi OmniBEntryB ; 54DD 30 5A 0Z jsr LDDB6 ; 54DF 20 B6 DD .. jsr LC84A ; 54E2 20 4A C8 J. jsr L553C ; 54E5 20 3C 55 <U ldx #$05 ; 54E8 A2 05 .. L54EA: lda $D4,x ; 54EA B5 D4 .. pha ; 54EC 48 H lda $E0,x ; 54ED B5 E0 .. sta $D4,x ; 54EF 95 D4 .. pla ; 54F1 68 h sta $E0,x ; 54F2 95 E0 .. dex ; 54F4 CA . bpl L54EA ; 54F5 10 F3 .. ldy #$00 ; 54F7 A0 00 .. L54F9: lda ($92),y ; 54F9 B1 92 .. iny ; 54FB C8 . cmp #$20 ; 54FC C9 20 . beq L54F9 ; 54FE F0 F9 .. ldy #$03 ; 5500 A0 03 .. L5502: cmp Operator,y ; 5502 D9 2D 55 .-U ; Math done here beq L550C ; 5505 F0 05 .. dey ; 5507 88 . bpl L5502 ; 5508 10 F8 .. bmi OmniBEntryB ; 550A 30 2D 0- L550C: tya ; 550C 98 . asl a ; 550D 0A . tay ; 550E A8 . jsr L5524 ; 550F 20 24 55 $U bcs OmniBEntryB ; 5512 B0 25 .% jsr LD9D2 ; 5514 20 D2 D9 .. bcs OmniBEntryB ; 5517 B0 20 . lda $D4 ; 5519 A5 D4 .. sta $94 ; 551B 85 94 .. lda $D5 ; 551D A5 D5 .. sta $95 ; 551F 85 95 .. jmp L54AF ; 5521 4C AF 54 L.T ; ---------------------------------------------------------------------------- L5524: lda JumpTable,y ; 5524 B9 31 55 .1U pha ; 5527 48 H lda JumpTable+1,y ; 5528 B9 32 55 .2U pha ; 552B 48 H rts ; 552C 60 ` ; ---------------------------------------------------------------------------- Operator: .byte $2B,$2D,$2A,$2F ; 552D 2B 2D 2A 2F +-*/ ; ---------------------------------------------------------------------------- JumpTable: .word L65DB-1 ; 5531 DA 65 .e .word L5FDB-1 ; 5533 DA 5F ._ .word LDADB-1 ; 5535 DA DA .. .word L27DC-1 ; 5537 DB 27 .' ; ---------------------------------------------------------------------------- OmniBEntryB: jmp LCFEF ; 5539 4C EF CF L.. ; ---------------------------------------------------------------------------- L553C: lda $96 ; 553C A5 96 .. sta $D4 ; 553E 85 D4 .. lda $97 ; 5540 A5 97 .. sta $D5 ; 5542 85 D5 .. jsr LD9AA ; 5544 20 AA D9 .. rts ; 5547 60 ` ; ---------------------------------------------------------------------------- Mnemonics: .byte "???ADCANDASLBCCBCSBEQBITBMIBNEB"; 5548 3F 3F 3F 41 44 43 41 4E ???ADCAN ; 5550 44 41 53 4C 42 43 43 42 DASLBCCB ; 5558 43 53 42 45 51 42 49 54 CSBEQBIT ; 5560 42 4D 49 42 4E 45 42 BMIBNEB .byte "PLBRKBVCBVSCLCCLDCLICLVCMPCPXCP"; 5567 50 4C 42 52 4B 42 56 43 PLBRKBVC ; 556F 42 56 53 43 4C 43 43 4C BVSCLCCL ; 5577 44 43 4C 49 43 4C 56 43 DCLICLVC ; 557F 4D 50 43 50 58 43 50 MPCPXCP .byte "YDECDEXDEYEORINCINXINYJMPJSRLDA"; 5586 59 44 45 43 44 45 58 44 YDECDEXD ; 558E 45 59 45 4F 52 49 4E 43 EYEORINC ; 5596 49 4E 58 49 4E 59 4A 4D INXINYJM ; 559E 50 4A 53 52 4C 44 41 PJSRLDA .byte "LDXLDYLSRNOPORAPHAPHPPLAPLPROLR"; 55A5 4C 44 58 4C 44 59 4C 53 LDXLDYLS ; 55AD 52 4E 4F 50 4F 52 41 50 RNOPORAP ; 55B5 48 41 50 48 50 50 4C 41 HAPHPPLA ; 55BD 50 4C 50 52 4F 4C 52 PLPROLR .byte "ORRTIRTSSBCSECSEDSEISTASTXSTYTA"; 55C4 4F 52 52 54 49 52 54 53 ORRTIRTS ; 55CC 53 42 43 53 45 43 53 45 SBCSECSE ; 55D4 44 53 45 49 53 54 41 53 DSEISTAS ; 55DC 54 58 53 54 59 54 41 TXSTYTA .byte "XTAYTSXTXATXSTYA" ; 55E3 58 54 41 59 54 53 58 54 XTAYTSXT ; 55EB 58 41 54 58 53 54 59 41 XATXSTYA ; ---------------------------------------------------------------------------- OmniBEntryX: .byte $0B,$05,$23,$06,$00,$00,$00,$00 ; 55F3 0B 05 23 06 00 00 00 00 ..#..... .byte $00,$00,$23,$03,$03,$03,$00,$00 ; 55FB 00 00 23 03 03 03 00 00 ..#..... .byte $25,$05,$23,$01,$03,$04,$00,$00 ; 5603 25 05 23 01 03 04 00 00 %.#..... .byte $00,$00,$23,$02,$03,$02,$00,$00 ; 560B 00 00 23 02 03 02 00 00 ..#..... .byte $0A,$0B,$23,$07,$00,$00,$00,$00 ; 5613 0A 0B 23 07 00 00 00 00 ..#..... .byte $00,$00,$23,$08,$03,$08,$00,$00 ; 561B 00 00 23 08 03 08 00 00 ..#..... .byte $0E,$05,$23,$0A,$00,$00,$00,$00 ; 5623 0E 05 23 0A 00 00 00 00 ..#..... .byte $00,$00,$23,$09,$03,$09,$00,$00 ; 562B 00 00 23 09 03 09 00 00 ..#..... .byte $1D,$02,$02,$06,$00,$00,$00,$00 ; 5633 1D 02 02 06 00 00 00 00 ........ .byte $07,$03,$02,$03,$28,$03,$00,$00 ; 563B 07 03 02 03 28 03 00 00 ....(... .byte $27,$05,$02,$01,$28,$04,$00,$00 ; 5643 27 05 02 01 28 04 00 00 '...(... .byte $07,$02,$02,$02,$28,$02,$00,$00 ; 564B 07 02 02 02 28 02 00 00 ....(... .byte $08,$0B,$02,$07,$00,$00,$00,$00 ; 5653 08 0B 02 07 00 00 00 00 ........ .byte $00,$00,$02,$08,$28,$08,$00,$00 ; 565B 00 00 02 08 28 08 00 00 ....(... .byte $2D,$05,$02,$0A,$00,$00,$00,$00 ; 5663 2D 05 02 0A 00 00 00 00 -....... .byte $00,$00,$02,$09,$28,$09,$00,$00 ; 566B 00 00 02 09 28 09 00 00 ....(... .byte $2A,$05,$18,$06,$00,$00,$00,$00 ; 5673 2A 05 18 06 00 00 00 00 *....... .byte $00,$00,$18,$03,$21,$03,$00,$00 ; 567B 00 00 18 03 21 03 00 00 ....!... .byte $24,$05,$18,$01,$21,$04,$00,$00 ; 5683 24 05 18 01 21 04 00 00 $...!... .byte $1C,$02,$18,$02,$21,$02,$00,$00 ; 568B 1C 02 18 02 21 02 00 00 ....!... .byte $0C,$0B,$18,$07,$00,$00,$00,$00 ; 5693 0C 0B 18 07 00 00 00 00 ........ .byte $00,$00,$18,$08,$21,$08,$00,$00 ; 569B 00 00 18 08 21 08 00 00 ....!... .byte $10,$05,$18,$0A,$00,$00,$00,$00 ; 56A3 10 05 18 0A 00 00 00 00 ........ .byte $00,$00,$18,$09,$21,$09,$00,$00 ; 56AB 00 00 18 09 21 09 00 00 ....!... .byte $2B,$05,$01,$06,$00,$00,$00,$00 ; 56B3 2B 05 01 06 00 00 00 00 +....... .byte $00,$00,$01,$03,$29,$03,$00,$00 ; 56BB 00 00 01 03 29 03 00 00 ....)... .byte $26,$05,$01,$01,$29,$04,$00,$00 ; 56C3 26 05 01 01 29 04 00 00 &...)... .byte $1C,$0C,$01,$02,$29,$02,$00,$00 ; 56CB 1C 0C 01 02 29 02 00 00 ....)... .byte $0D,$0B,$01,$07,$00,$00,$00,$00 ; 56D3 0D 0B 01 07 00 00 00 00 ........ .byte $00,$00,$01,$08,$29,$08,$00,$00 ; 56DB 00 00 01 08 29 08 00 00 ....)... .byte $2F,$05,$01,$0A,$00,$00,$00,$00 ; 56E3 2F 05 01 0A 00 00 00 00 /....... .byte $00,$00,$01,$09,$29,$09,$00,$00 ; 56EB 00 00 01 09 29 09 00 00 ....)... .byte $00,$00,$30,$06,$00,$00,$00,$00 ; 56F3 00 00 30 06 00 00 00 00 ..0..... .byte $32,$03,$30,$03,$31,$03,$00,$00 ; 56FB 32 03 30 03 31 03 00 00 2.0.1... .byte $17,$05,$00,$00,$36,$05,$00,$00 ; 5703 17 05 00 00 36 05 00 00 ....6... .byte $32,$02,$30,$02,$31,$02,$00,$00 ; 570B 32 02 30 02 31 02 00 00 2.0.1... .byte $04,$0B,$30,$07,$00,$00,$00,$00 ; 5713 04 0B 30 07 00 00 00 00 ..0..... .byte $32,$08,$30,$08,$31,$0D,$00,$00 ; 571B 32 08 30 08 31 0D 00 00 2.0.1... .byte $38,$05,$30,$0A,$37,$05,$00,$00 ; 5723 38 05 30 0A 37 05 00 00 8.0.7... .byte $00,$00,$30,$09,$00,$00,$00,$00 ; 572B 00 00 30 09 00 00 00 00 ..0..... .byte $20,$01,$1E,$06,$1F,$01,$00,$00 ; 5733 20 01 1E 06 1F 01 00 00 ....... .byte $20,$03,$1E,$03,$1F,$03,$00,$00 ; 573B 20 03 1E 03 1F 03 00 00 ....... .byte $34,$05,$1E,$01,$33,$05,$00,$00 ; 5743 34 05 1E 01 33 05 00 00 4...3... .byte $20,$02,$1E,$02,$1F,$02,$00,$00 ; 574B 20 02 1E 02 1F 02 00 00 ....... .byte $05,$0B,$1E,$07,$00,$00,$00,$00 ; 5753 05 0B 1E 07 00 00 00 00 ........ .byte $20,$08,$1E,$08,$1F,$0D,$00,$00 ; 575B 20 08 1E 08 1F 0D 00 00 ....... .byte $11,$05,$1E,$0A,$35,$05,$00,$00 ; 5763 11 05 1E 0A 35 05 00 00 ....5... .byte $20,$09,$1E,$09,$1F,$0A,$00,$00 ; 576B 20 09 1E 09 1F 0A 00 00 ....... .byte $14,$01,$12,$06,$00,$00,$00,$00 ; 5773 14 01 12 06 00 00 00 00 ........ .byte $14,$03,$12,$03,$15,$03,$00,$00 ; 577B 14 03 12 03 15 03 00 00 ........ .byte $1B,$05,$12,$01,$16,$05,$00,$00 ; 5783 1B 05 12 01 16 05 00 00 ........ .byte $14,$02,$12,$02,$15,$02,$00,$00 ; 578B 14 02 12 02 15 02 00 00 ........ .byte $09,$0B,$12,$07,$00,$00,$00,$00 ; 5793 09 0B 12 07 00 00 00 00 ........ .byte $00,$00,$12,$08,$15,$08,$00,$00 ; 579B 00 00 12 08 15 08 00 00 ........ .byte $0F,$05,$12,$0A,$00,$00,$00,$00 ; 57A3 0F 05 12 0A 00 00 00 00 ........ .byte $00,$00,$12,$09,$15,$09,$00,$00 ; 57AB 00 00 12 09 15 09 00 00 ........ .byte $13,$01,$2C,$06,$00,$00,$00,$00 ; 57B3 13 01 2C 06 00 00 00 00 ..,..... .byte $13,$03,$2C,$03,$19,$03,$00,$00 ; 57BB 13 03 2C 03 19 03 00 00 ..,..... .byte $1A,$05,$2C,$01,$22,$05,$00,$00 ; 57C3 1A 05 2C 01 22 05 00 00 ..,."... .byte $13,$02,$2C,$02,$19,$02,$00,$00 ; 57CB 13 02 2C 02 19 02 00 00 ..,..... .byte $06,$0B,$2C,$07,$00,$00,$00,$00 ; 57D3 06 0B 2C 07 00 00 00 00 ..,..... .byte $00,$00,$2C,$08,$19,$08,$00,$00 ; 57DB 00 00 2C 08 19 08 00 00 ..,..... .byte $2E,$05,$2C,$0A,$00,$00,$00,$00 ; 57E3 2E 05 2C 0A 00 00 00 00 ..,..... .byte $00,$00,$2C,$09,$19,$09,$00,$00 ; 57EB 00 00 2C 09 19 09 00 00 ..,..... .byte $00,$00,$00,$00,$00,$00,$00,$00 ; 57F3 00 00 00 00 00 00 00 00 ........ .byte $00,$00,$00,$00 ; 57FB 00 00 00 00 ....