; da65 V2.15 ; Created: 2016-10-24 14:59:00 ; Input file: ROM/OMNIMNXX.ROM ; Page: 1 .setcpu "6502" ; ---------------------------------------------------------------------------- L000A := $000A L0092 := $0092 L0094 := $0094 L0127 := $0127 L02E0 := $02E0 L02E2 := $02E2 L206C := $206C L245B := $245B L24CA := $24CA L5000 := $5000 L5035 := $5035 L505F := $505F L5074 := $5074 L50A5 := $50A5 L50CF := $50CF L5108 := $5108 L5152 := $5152 L5184 := $5184 L51C2 := $51C2 L51D1 := $51D1 L5208 := $5208 L523C := $523C L5252 := $5252 L5262 := $5262 L530D := $530D L536F := $536F L539A := $539A L5437 := $5437 L5467 := $5467 L5477 := $5477 L5483 := $5483 LD9D2 := $D9D2 LE456 := $E456 ; JMP to CIO LE459 := $E459 ; JMP to SIO LF361 := $F361 ; XBOOT ; ---------------------------------------------------------------------------- OmniA: pla ; C000 68 h ; Entry point for the BASIC func X=USR(49153) USREntry: php ; C001 08 . pha ; C002 48 H txa ; C003 8A . pha ; C004 48 H tya ; C005 98 . pha ; C006 48 H tsx ; C007 BA . txa ; C008 8A . clc ; C009 18 . adc #$05 ; C00A 69 05 i. tax ; C00C AA . inc $0100,x ; C00D FE 00 01 ... bne LC015 ; C010 D0 03 .. inc $0101,x ; C012 FE 01 01 ... LC015: ldy #$00 ; C015 A0 00 .. LC017: lda L0092,y ; C017 B9 92 00 ... pha ; C01A 48 H iny ; C01B C8 . cpy #$0E ; C01C C0 0E .. bne LC017 ; C01E D0 F7 .. jsr LC715 ; C020 20 15 C7 .. jmp LC045 ; C023 4C 45 C0 LE. ; ---------------------------------------------------------------------------- php ; C026 08 . pha ; C027 48 H txa ; C028 8A . pha ; C029 48 H tya ; C02A 98 . pha ; C02B 48 H jmp LC03A ; C02C 4C 3A C0 L:. ; ---------------------------------------------------------------------------- txa ; C02F 8A . pha ; C030 48 H tya ; C031 98 . pha ; C032 48 H jmp LC015 ; C033 4C 15 C0 L.. ; ---------------------------------------------------------------------------- txa ; C036 8A . pha ; C037 48 H tya ; C038 98 . pha ; C039 48 H LC03A: ldy #$00 ; C03A A0 00 .. LC03C: lda L0092,y ; C03C B9 92 00 ... pha ; C03F 48 H iny ; C040 C8 . cpy #$0E ; C041 C0 0E .. bne LC03C ; C043 D0 F7 .. LC045: cli ; C045 58 X LC046: lda $0120 ; C046 AD 20 01 . . beq LC088 ; C049 F0 3D .= sec ; C04B 38 8 sbc #$01 ; C04C E9 01 .. and #$1F ; C04E 29 1F ). tay ; C050 A8 . lda $0120 ; C051 AD 20 01 . . sty $0120 ; C054 8C 20 01 . . and #$E0 ; C057 29 E0 ). ora $0120 ; C059 0D 20 01 . . sta $0120 ; C05C 8D 20 01 . . jsr LC6EE ; C05F 20 EE C6 .. lda $0121 ; C062 AD 21 01 .!. sta (L0094),y ; C065 91 94 .. iny ; C067 C8 . lda $0122 ; C068 AD 22 01 .". sta (L0094),y ; C06B 91 94 .. jsr LCB40 ; C06D 20 40 CB @. jsr LC7ED ; C070 20 ED C7 .. jsr LCD54 ; C073 20 54 CD T. jsr LC7ED ; C076 20 ED C7 .. lda $0120 ; C079 AD 20 01 . . beq LC08F ; C07C F0 11 .. lda $D01F ; C07E AD 1F D0 ... and #$01 ; C081 29 01 ). beq LC08F ; C083 F0 0A .. jmp LC993 ; C085 4C 93 C9 L.. ; ---------------------------------------------------------------------------- LC088: lda #$00 ; C088 A9 00 .. sta $98 ; C08A 85 98 .. jsr LCB40 ; C08C 20 40 CB @. LC08F: lda #$00 ; C08F A9 00 .. sta $02B6 ; C091 8D B6 02 ... sta $0120 ; C094 8D 20 01 . . sta $0129 ; C097 8D 29 01 .). lda #$40 ; C09A A9 40 .@ sta $02BE ; C09C 8D BE 02 ... jsr LC6F2 ; C09F 20 F2 C6 .. ; ; What is this? ; sta a:$3E,x ; C0A2 9D 3E 00 .>. ; STA $XXYY,X ; So it should be: ; STA $003E,X ; Interesting, this could have been STA $3A,X ( C0A3 95 3A) ; sta $003E,x ; C0A2 9D 3E 00 .>. jsr LC161 ; C0A5 20 61 C1 a. lda $D01F ; C0A8 AD 1F D0 ... and #$01 ; C0AB 29 01 ). bne CLI ; C0AD D0 03 .. jmp LC139 ; C0AF 4C 39 C1 L9. ; ; When Entered into Omnimon you are greated with: ; ; David Young OMNIMONXL (C)1984 ; ; PC NV-BDIZC AC X Y SP ; CA701 32 00 00 C0 1FF ; ^gt; ; ; OMNIMON XL would be in inverse (CF CD CE C9 CD CF CE D8 CC) ; ---------------------------------------------------------------------------- CLI: ldy #$00 ; C0B2 A0 00 .. LC0B4: lda (L0092),y ; C0B4 B1 92 .. jsr LC7BC ; C0B6 20 BC C7 .. cmp #$3E ; C0B9 C9 3E .> beq LC0B4 ; C0BB F0 F7 .. cmp #$9B ; C0BD C9 9B .. bne LC0C9 ; C0BF D0 08 .. sta $012B ; C0C1 8D 2B 01 .+. lda $99 ; C0C4 A5 99 .. sta $012A ; C0C6 8D 2A 01 .*. LC0C9: cmp CMDS,y ; C0C9 D9 EB C0 ... beq LC0D5 ; C0CC F0 07 .. iny ; C0CE C8 . cpy #$19 ; C0CF C0 19 .. bne LC0C9 ; C0D1 D0 F6 .. beq LC08F ; C0D3 F0 BA .. LC0D5: cpy #$04 ; C0D5 C0 04 .. bpl LC0DB ; C0D7 10 02 .. sta $99 ; C0D9 85 99 .. LC0DB: tya ; C0DB 98 . asl a ; C0DC 0A . tay ; C0DD A8 . lda CMDSAttrLO,y ; C0DE B9 04 C1 ... sta L0094 ; C0E1 85 94 .. lda CMDSAttrHI,y ; C0E3 B9 05 C1 ... sta $95 ; C0E6 85 95 .. jmp (L0094) ; C0E8 6C 94 00 l.. ; ---------------------------------------------------------------------------- CMDS: .byte "EXRDWJ+-CNYSPTAFLUMGOHVZB" ; C0EB 45 58 52 44 57 4A 2B 2D EXRDWJ+- ; C0F3 43 4E 59 53 50 54 41 46 CNYSPTAF ; C0FB 4C 55 4D 47 4F 48 56 5A LUMGOHVZ ; C103 42 B ; ---------------------------------------------------------------------------- CMDSAttrLO: CMDSAttrHI := * + 1 .addr eExec ; C104 80 C9 .. .addr xDisassemble ; C106 3D CD =. .addr rRead ; C108 C8 C1 .. .addr dDisplay ; C10A 7A C2 z. .addr wWrite ; C10C 49 C2 I. .addr jJump ; C10E CB CF .. .addr pPush ; C110 D1 CF .. .addr pPop ; C112 D7 CF .. .addr cChange ; C114 17 CB .. .addr nRelocate ; C116 CC C8 .. .addr yAssemble ; C118 91 CB .. .addr sSearch ; C11A 7F C4 .. .addr pPrint ; C11C E3 CF .. .addr tToggle ; C11E 48 C1 H. .addr aAlter ; C120 B0 C2 .. .addr fFill ; C122 0E C4 .. .addr lLink ; C124 E9 CF .. .addr OmniRestA ; C126 36 C1 6. .addr mMove ; C128 4B C3 K. .addr hGet ; C12A DE C4 .. .addr oOperate ; C12C F4 C3 .. .addr hHex ; C12E DD CF .. .addr vVerify ; C130 F2 C2 .. .addr UnkCmdZ ; C132 C7 C1 .. .addr bBoot ; C134 1E C4 .. ; ---------------------------------------------------------------------------- OmniRestA: jmp (L0127) ; C136 6C 27 01 l'. ; ---------------------------------------------------------------------------- LC139: ldy #$0D ; C139 A0 0D .. LC13B: pla ; C13B 68 h sta L0092,y ; C13C 99 92 00 ... dey ; C13F 88 . bpl LC13B ; C140 10 F9 .. pla ; C142 68 h tay ; C143 A8 . pla ; C144 68 h tax ; C145 AA . pla ; C146 68 h rti ; C147 40 @ ; ---------------------------------------------------------------------------- ; tToggle = $C148 tToggle:lda #$80 ; C148 A9 80 .. eor $98 ; C14A 45 98 E. sta $98 ; C14C 85 98 .. jmp dDisplay ; C14E 4C 7A C2 Lz. ; ---------------------------------------------------------------------------- LC151: lda #$2A ; C151 A9 2A .* sta L0092 ; C153 85 92 .. lda #$01 ; C155 A9 01 .. sta $93 ; C157 85 93 .. rts ; C159 60 ` ; ---------------------------------------------------------------------------- LC15A: inc $9E ; C15A E6 9E .. bne LC160 ; C15C D0 02 .. inc $9F ; C15E E6 9F .. LC160: rts ; C160 60 ` ; ---------------------------------------------------------------------------- LC161: stx $9A ; C161 86 9A .. ldx #$00 ; C163 A2 00 .. sty $9B ; C165 84 9B .. lda #$2A ; C167 A9 2A .* sta $0344,x ; C169 9D 44 03 .D. jsr LC151 ; C16C 20 51 C1 Q. sta $0345,x ; C16F 9D 45 03 .E. lda #$05 ; C172 A9 05 .. sta $0342,x ; C174 9D 42 03 .B. lda #$80 ; C177 A9 80 .. sta $0348,x ; C179 9D 48 03 .H. lda #$00 ; C17C A9 00 .. sta $0349,x ; C17E 9D 49 03 .I. jsr LE456 ; C181 20 56 E4 V. ldx #$50 ; C184 A2 50 .P lda #$2A ; C186 A9 2A .* sta $0344,x ; C188 9D 44 03 .D. lda #$01 ; C18B A9 01 .. sta $0345,x ; C18D 9D 45 03 .E. lda #$09 ; C190 A9 09 .. sta $0342,x ; C192 9D 42 03 .B. lda #$80 ; C195 A9 80 .. sta $0348,x ; C197 9D 48 03 .H. lda #$00 ; C19A A9 00 .. sta $0349,x ; C19C 9D 49 03 .I. jsr LE456 ; C19F 20 56 E4 V. ldy #$00 ; C1A2 A0 00 .. cpy $9F ; C1A4 C4 9F .. beq LC1C3 ; C1A6 F0 1B .. lda $0322 ; C1A8 AD 22 03 .". cmp #$E4 ; C1AB C9 E4 .. bne LC1C3 ; C1AD D0 14 .. LC1AF: lda (L0092),y ; C1AF B1 92 .. sta ($9E),y ; C1B1 91 9E .. jsr LC7BC ; C1B3 20 BC C7 .. jsr LC15A ; C1B6 20 5A C1 Z. cmp #$9B ; C1B9 C9 9B .. bne LC1AF ; C1BB D0 F2 .. tya ; C1BD 98 . sta ($9E),y ; C1BE 91 9E .. jsr LC151 ; C1C0 20 51 C1 Q. LC1C3: ldy $9B ; C1C3 A4 9B .. ldx $9A ; C1C5 A6 9A .. ; UnkCmdZ = $C1C7;Z - Jumps to RTS UnkCmdZ:rts ; C1C7 60 ` ; ---------------------------------------------------------------------------- ; rRead = $C1C8 rRead: jsr LCF81 ; C1C8 20 81 CF .. jsr LCF93 ; C1CB 20 93 CF .. bmi LC1DA ; C1CE 30 0A 0. LC1D0: lda $D01F ; C1D0 AD 1F D0 ... and #$04 ; C1D3 29 04 ). bne LC1DA ; C1D5 D0 03 .. jsr LCF93 ; C1D7 20 93 CF .. LC1DA: jsr LC25C ; C1DA 20 5C C2 \. bmi LC230 ; C1DD 30 51 0Q jsr LCF8D ; C1DF 20 8D CF .. lda $0124 ; C1E2 AD 24 01 .$. bne LC229 ; C1E5 D0 42 .B sec ; C1E7 38 8 lda $0304 ; C1E8 AD 04 03 ... sbc #$03 ; C1EB E9 03 .. sta $0304 ; C1ED 8D 04 03 ... sta L0092 ; C1F0 85 92 .. lda $0305 ; C1F2 AD 05 03 ... sbc #$00 ; C1F5 E9 00 .. sta $0305 ; C1F7 8D 05 03 ... sta $93 ; C1FA 85 93 .. ldy #$00 ; C1FC A0 00 .. lda (L0092),y ; C1FE B1 92 .. and #$03 ; C200 29 03 ). sta $9A ; C202 85 9A .. iny ; C204 C8 . ora (L0092),y ; C205 11 92 .. bne LC21F ; C207 D0 16 .. lda $030A ; C209 AD 0A 03 ... bne LC211 ; C20C D0 03 .. dec $030B ; C20E CE 0B 03 ... LC211: dec $030A ; C211 CE 0A 03 ... jsr LC6F2 ; C214 20 F2 C6 .. eor $4F ; C217 45 4F EO lsr $9B ; C219 46 9B F. brk ; C21B 00 . jmp OmniRestB ; C21C 4C 3C C2 L<. ; ---------------------------------------------------------------------------- LC21F: lda (L0092),y ; C21F B1 92 .. sta $030A ; C221 8D 0A 03 ... lda $9A ; C224 A5 9A .. sta $030B ; C226 8D 0B 03 ... LC229: jsr LCF87 ; C229 20 87 CF .. bne LC1D0 ; C22C D0 A2 .. beq OmniRestB ; C22E F0 0C .. LC230: jsr LC6F2 ; C230 20 F2 C6 .. IOERR: .byte "I/O ERR" ; C233 49 2F 4F 20 45 52 52 I/O ERR .byte $9B,$00 ; C23A 9B 00 .. ; ---------------------------------------------------------------------------- OmniRestB: lda $96 ; C23C A5 96 .. sta $0304 ; C23E 8D 04 03 ... lda $97 ; C241 A5 97 .. sta $0305 ; C243 8D 05 03 ... jmp LC08F ; C246 4C 8F C0 L.. ; ---------------------------------------------------------------------------- ; wWrite = $C249 wWrite: jsr LCF81 ; C249 20 81 CF .. LC24C: jsr LC262 ; C24C 20 62 C2 b. bmi LC230 ; C24F 30 DF 0. jsr LCF87 ; C251 20 87 CF .. beq OmniRestB ; C254 F0 E6 .. jsr LCF8D ; C256 20 8D CF .. jmp LC24C ; C259 4C 4C C2 LL. ; ---------------------------------------------------------------------------- LC25C: lda #$52 ; C25C A9 52 .R ldy #$40 ; C25E A0 40 .@ bne LC266 ; C260 D0 04 .. LC262: lda #$57 ; C262 A9 57 .W ldy #$80 ; C264 A0 80 .. LC266: sta $0302 ; C266 8D 02 03 ... sty $0303 ; C269 8C 03 03 ... lda #$31 ; C26C A9 31 .1 sta $0300 ; C26E 8D 00 03 ... lda #$0F ; C271 A9 0F .. sta $0306 ; C273 8D 06 03 ... jsr LE459 ; C276 20 59 E4 Y. rts ; C279 60 ` ; ---------------------------------------------------------------------------- ; dDisplay = $C27A dDisplay: jsr LCF99 ; C27A 20 99 CF .. LC27D: jsr LC29F ; C27D 20 9F C2 .. lda $98 ; C280 A5 98 .. bpl LC28A ; C282 10 06 .. jsr LC824 ; C284 20 24 C8 $. jsr LC824 ; C287 20 24 C8 $. LC28A: jsr LCF9F ; C28A 20 9F CF .. jsr LC7ED ; C28D 20 ED C7 .. lda #$07 ; C290 A9 07 .. eor $D01F ; C292 4D 1F D0 M.. bne LC29C ; C295 D0 05 .. jsr LC7CA ; C297 20 CA C7 .. bpl LC27D ; C29A 10 E1 .. LC29C: jmp LC08F ; C29C 4C 8F C0 L.. ; ---------------------------------------------------------------------------- LC29F: jsr LC6F2 ; C29F 20 F2 C6 .. sta $2041,x ; C2A2 9D 41 20 .A brk ; C2A5 00 . jsr LC80E ; C2A6 20 0E C8 .. jsr LC7F3 ; C2A9 20 F3 C7 .. jsr LC827 ; C2AC 20 27 C8 '. rts ; C2AF 60 ` ; ---------------------------------------------------------------------------- ; aAlter = $C2B0 aAlter: jsr LCF75 ; C2B0 20 75 CF u. bmi LC2F1 ; C2B3 30 3C 0< jsr LC84A ; C2B5 20 4A C8 J. jsr LC2BE ; C2B8 20 BE C2 .. jmp LC08F ; C2BB 4C 8F C0 L.. ; ---------------------------------------------------------------------------- LC2BE: lda $98 ; C2BE A5 98 .. bpl LC2C5 ; C2C0 10 03 .. jsr LC7BC ; C2C2 20 BC C7 .. LC2C5: ldy #$00 ; C2C5 A0 00 .. lda $98 ; C2C7 A5 98 .. bpl LC2DD ; C2C9 10 12 .. lda (L0092),y ; C2CB B1 92 .. pha ; C2CD 48 H jsr LC7BC ; C2CE 20 BC C7 .. lda L0092 ; C2D1 A5 92 .. sec ; C2D3 38 8 sbc #$2A ; C2D4 E9 2A .* cmp $0348,x ; C2D6 DD 48 03 .H. beq LC2F0 ; C2D9 F0 15 .. bne LC2E5 ; C2DB D0 08 .. LC2DD: jsr LCF75 ; C2DD 20 75 CF u. bmi LC2F1 ; C2E0 30 0F 0. lda L0094 ; C2E2 A5 94 .. pha ; C2E4 48 H LC2E5: pla ; C2E5 68 h ldy #$00 ; C2E6 A0 00 .. sta ($96),y ; C2E8 91 96 .. jsr LC7C3 ; C2EA 20 C3 C7 .. jmp LC2C5 ; C2ED 4C C5 C2 L.. ; ---------------------------------------------------------------------------- LC2F0: pla ; C2F0 68 h LC2F1: rts ; C2F1 60 ` ; ---------------------------------------------------------------------------- ; vVerify = $C2F2 vVerify:jsr LC89F ; C2F2 20 9F C8 .. bpl LC2FA ; C2F5 10 03 .. jmp LC8BA ; C2F7 4C BA C8 L.. ; ---------------------------------------------------------------------------- LC2FA: jsr LC3EB ; C2FA 20 EB C3 .. ldy #$00 ; C2FD A0 00 .. LC2FF: lda ($96),y ; C2FF B1 96 .. cmp (L0094),y ; C301 D1 94 .. beq LC325 ; C303 F0 20 . jsr LC80E ; C305 20 0E C8 .. jsr LC7F3 ; C308 20 F3 C7 .. lda ($96),y ; C30B B1 96 .. jsr LC805 ; C30D 20 05 C8 .. lda $95 ; C310 A5 95 .. jsr LCF69 ; C312 20 69 CF i. lda L0094 ; C315 A5 94 .. jsr LCF69 ; C317 20 69 CF i. jsr LC7F3 ; C31A 20 F3 C7 .. lda (L0094),y ; C31D B1 94 .. jsr LCF69 ; C31F 20 69 CF i. jsr LC7ED ; C322 20 ED C7 .. LC325: lda $D01F ; C325 AD 1F D0 ... eor #$07 ; C328 49 07 I. bne LC348 ; C32A D0 1C .. jsr LC7C3 ; C32C 20 C3 C7 .. inc L0094 ; C32F E6 94 .. bne LC335 ; C331 D0 02 .. inc $95 ; C333 E6 95 .. LC335: lda $012A ; C335 AD 2A 01 .*. bne LC33D ; C338 D0 03 .. dec $012B ; C33A CE 2B 01 .+. LC33D: dec $012A ; C33D CE 2A 01 .*. lda $012A ; C340 AD 2A 01 .*. ora $012B ; C343 0D 2B 01 .+. bne LC2FF ; C346 D0 B7 .. LC348: jmp LC08F ; C348 4C 8F C0 L.. ; ---------------------------------------------------------------------------- ; mMove = $C34B mMove: jsr LC89F ; C34B 20 9F C8 .. bmi LC3BA ; C34E 30 6A 0j jsr LC3EB ; C350 20 EB C3 .. lda $012A ; C353 AD 2A 01 .*. pha ; C356 48 H lda $012B ; C357 AD 2B 01 .+. pha ; C35A 48 H lda $95 ; C35B A5 95 .. cmp $97 ; C35D C5 97 .. bcc LC39A ; C35F 90 39 .9 bne LC369 ; C361 D0 06 .. lda L0094 ; C363 A5 94 .. cmp $96 ; C365 C5 96 .. bcc LC39A ; C367 90 31 .1 LC369: clc ; C369 18 . lda $012B ; C36A AD 2B 01 .+. adc $97 ; C36D 65 97 e. sta $97 ; C36F 85 97 .. clc ; C371 18 . lda $012B ; C372 AD 2B 01 .+. adc $95 ; C375 65 95 e. sta $95 ; C377 85 95 .. ldy $012A ; C379 AC 2A 01 .*. beq LC384 ; C37C F0 06 .. ldx $012A ; C37E AE 2A 01 .*. jsr LC3D9 ; C381 20 D9 C3 .. LC384: ldy #$00 ; C384 A0 00 .. cpy $012B ; C386 CC 2B 01 .+. beq LC3C2 ; C389 F0 37 .7 dec $97 ; C38B C6 97 .. dec $95 ; C38D C6 95 .. ldx #$00 ; C38F A2 00 .. jsr LC3D9 ; C391 20 D9 C3 .. dec $012B ; C394 CE 2B 01 .+. jmp LC384 ; C397 4C 84 C3 L.. ; ---------------------------------------------------------------------------- LC39A: ldy #$00 ; C39A A0 00 .. cpy $012B ; C39C CC 2B 01 .+. beq LC3B0 ; C39F F0 0F .. ldx #$00 ; C3A1 A2 00 .. jsr LC3E2 ; C3A3 20 E2 C3 .. inc $97 ; C3A6 E6 97 .. inc $95 ; C3A8 E6 95 .. dec $012B ; C3AA CE 2B 01 .+. jmp LC39A ; C3AD 4C 9A C3 L.. ; ---------------------------------------------------------------------------- LC3B0: ldx $012A ; C3B0 AE 2A 01 .*. beq LC3C2 ; C3B3 F0 0D .. jsr LC3E2 ; C3B5 20 E2 C3 .. beq LC3C2 ; C3B8 F0 08 .. LC3BA: lda #$00 ; C3BA A9 00 .. sta $96 ; C3BC 85 96 .. sta $97 ; C3BE 85 97 .. beq LC3C8 ; C3C0 F0 06 .. LC3C2: pla ; C3C2 68 h sta $97 ; C3C3 85 97 .. pla ; C3C5 68 h sta $96 ; C3C6 85 96 .. LC3C8: jsr LC80E ; C3C8 20 0E C8 .. jsr LC6F2 ; C3CB 20 F2 C6 .. BYTES: .byte " BYTES" ; C3CE 20 42 59 54 45 53 BYTES .byte $9B,$00 ; C3D4 9B 00 .. ; ---------------------------------------------------------------------------- OmniRestC: jmp LC08F ; C3D6 4C 8F C0 L.. ; ---------------------------------------------------------------------------- LC3D9: dey ; C3D9 88 . lda ($96),y ; C3DA B1 96 .. sta (L0094),y ; C3DC 91 94 .. dex ; C3DE CA . bne LC3D9 ; C3DF D0 F8 .. rts ; C3E1 60 ` ; ---------------------------------------------------------------------------- LC3E2: lda ($96),y ; C3E2 B1 96 .. sta (L0094),y ; C3E4 91 94 .. iny ; C3E6 C8 . dex ; C3E7 CA . bne LC3E2 ; C3E8 D0 F8 .. rts ; C3EA 60 ` ; ---------------------------------------------------------------------------- LC3EB: inc $012A ; C3EB EE 2A 01 .*. bne LC3F3 ; C3EE D0 03 .. inc $012B ; C3F0 EE 2B 01 .+. LC3F3: rts ; C3F3 60 ` ; ---------------------------------------------------------------------------- ; AKA UnkCmdU, I think this is the catch all oOperate: jsr LCF75 ; C3F4 20 75 CF u. bmi LC401 ; C3F7 30 08 0. lda L0094 ; C3F9 A5 94 .. sta $9E ; C3FB 85 9E .. lda $95 ; C3FD A5 95 .. sta $9F ; C3FF 85 9F .. LC401: lda #$24 ; C401 A9 24 .$ sta $0321 ; C403 8D 21 03 .!. lda #$CF ; C406 A9 CF .. sta $0322 ; C408 8D 22 03 .". jmp LC08F ; C40B 4C 8F C0 L.. ; ---------------------------------------------------------------------------- ; fFill = $C40E fFill: jsr LCF75 ; C40E 20 75 CF u. bmi LC41B ; C411 30 08 0. lda L0094 ; C413 A5 94 .. sta $9E ; C415 85 9E .. lda $95 ; C417 A5 95 .. sta $9F ; C419 85 9F .. LC41B: jmp LC08F ; C41B 4C 8F C0 L.. ; ---------------------------------------------------------------------------- ; bBoot = $C41E bBoot: jsr LCF7B ; C41E 20 7B CF {. lda #$00 ; C421 A9 00 .. sta $030B ; C423 8D 0B 03 ... sta $0304 ; C426 8D 04 03 ... lda #$01 ; C429 A9 01 .. sta $030A ; C42B 8D 0A 03 ... lda #$04 ; C42E A9 04 .. sta $0305 ; C430 8D 05 03 ... jsr LC25C ; C433 20 5C C2 \. ldx #$03 ; C436 A2 03 .. LC438: lda $0400,x ; C438 BD 00 04 ... sta $0240,x ; C43B 9D 40 02 .@. dex ; C43E CA . bpl LC438 ; C43F 10 F7 .. lda $0242 ; C441 AD 42 02 .B. sta $04 ; C444 85 04 .. lda $0243 ; C446 AD 43 02 .C. sta $05 ; C449 85 05 .. lda $0404 ; C44B AD 04 04 ... sta $0C ; C44E 85 0C .. lda $0405 ; C450 AD 05 04 ... sta $0D ; C453 85 0D .. LC455: ldy #$7F ; C455 A0 7F .. LC457: lda $0400,y ; C457 B9 00 04 ... sta ($04),y ; C45A 91 04 .. dey ; C45C 88 . bpl LC457 ; C45D 10 F8 .. clc ; C45F 18 . lda $04 ; C460 A5 04 .. adc #$80 ; C462 69 80 i. sta $04 ; C464 85 04 .. lda $05 ; C466 A5 05 .. adc #$00 ; C468 69 00 i. sta $05 ; C46A 85 05 .. dec $0241 ; C46C CE 41 02 .A. beq LC479 ; C46F F0 08 .. inc $030A ; C471 EE 0A 03 ... jsr LC25C ; C474 20 5C C2 \. bpl LC455 ; C477 10 DC .. LC479: jsr LF361 ; C479 20 61 F3 a. jmp (L000A) ; C47C 6C 0A 00 l.. ; ---------------------------------------------------------------------------- ; sSearch = $C47F sSearch:jsr LCF75 ; C47F 20 75 CF u. bmi LC4A7 ; C482 30 23 0# lda $95 ; C484 A5 95 .. pha ; C486 48 H lda L0094 ; C487 A5 94 .. pha ; C489 48 H lda #$2C ; C48A A9 2C ., sta $96 ; C48C 85 96 .. lda #$01 ; C48E A9 01 .. sta $97 ; C490 85 97 .. jsr LC2BE ; C492 20 BE C2 .. lda $96 ; C495 A5 96 .. sec ; C497 38 8 sbc #$2C ; C498 E9 2C ., sta L0094 ; C49A 85 94 .. pla ; C49C 68 h sec ; C49D 38 8 sbc #$01 ; C49E E9 01 .. sta $96 ; C4A0 85 96 .. pla ; C4A2 68 h sbc #$00 ; C4A3 E9 00 .. sta $97 ; C4A5 85 97 .. LC4A7: jsr LC7C3 ; C4A7 20 C3 C7 .. LC4AA: lda #$07 ; C4AA A9 07 .. eor $D01F ; C4AC 4D 1F D0 M.. bne LC4DB ; C4AF D0 2A .* ldx #$FF ; C4B1 A2 FF .. ldy #$FF ; C4B3 A0 FF .. LC4B5: inx ; C4B5 E8 . iny ; C4B6 C8 . cpx L0094 ; C4B7 E4 94 .. beq LC4D2 ; C4B9 F0 17 .. lda $012C,x ; C4BB BD 2C 01 .,. cmp ($96),y ; C4BE D1 96 .. beq LC4B5 ; C4C0 F0 F3 .. LC4C2: jsr LC7C3 ; C4C2 20 C3 C7 .. lda #$00 ; C4C5 A9 00 .. cmp $96 ; C4C7 C5 96 .. bne LC4AA ; C4C9 D0 DF .. cmp $97 ; C4CB C5 97 .. bne LC4AA ; C4CD D0 DB .. jmp LC4DB ; C4CF 4C DB C4 L.. ; ---------------------------------------------------------------------------- LC4D2: jsr LC29F ; C4D2 20 9F C2 .. jsr LC7ED ; C4D5 20 ED C7 .. jmp LC4C2 ; C4D8 4C C2 C4 L.. ; ---------------------------------------------------------------------------- LC4DB: jmp LC08F ; C4DB 4C 8F C0 L.. ; ---------------------------------------------------------------------------- ; hGet = $C4DE hGet: jsr LCFA5 ; C4DE 20 A5 CF .. lda #$68 ; C4E1 A9 68 .h sta $030A ; C4E3 8D 0A 03 ... lda #$01 ; C4E6 A9 01 .. sta $030B ; C4E8 8D 0B 03 ... jsr LCF7B ; C4EB 20 7B CF {. lda $9C ; C4EE A5 9C .. sta $0304 ; C4F0 8D 04 03 ... lda $9D ; C4F3 A5 9D .. sta $0305 ; C4F5 8D 05 03 ... lda #$08 ; C4F8 A9 08 .. sta L0094 ; C4FA 85 94 .. LC4FC: dec L0094 ; C4FC C6 94 .. bpl LC503 ; C4FE 10 03 .. LC500: jmp LC08F ; C500 4C 8F C0 L.. ; ---------------------------------------------------------------------------- LC503: inc $030A ; C503 EE 0A 03 ... jsr LC25C ; C506 20 5C C2 \. bpl LC50E ; C509 10 03 .. jmp LC6B5 ; C50B 4C B5 C6 L.. ; ---------------------------------------------------------------------------- LC50E: lda #$08 ; C50E A9 08 .. sta $95 ; C510 85 95 .. lda $0304 ; C512 AD 04 03 ... sta $96 ; C515 85 96 .. lda $0305 ; C517 AD 05 03 ... sta $97 ; C51A 85 97 .. LC51C: dec $95 ; C51C C6 95 .. bmi LC4FC ; C51E 30 DC 0. ldy #$00 ; C520 A0 00 .. lda ($96),y ; C522 B1 96 .. beq LC500 ; C524 F0 DA .. and #$81 ; C526 29 81 ). beq LC531 ; C528 F0 07 .. ldy #$10 ; C52A A0 10 .. LC52C: jsr LC6CC ; C52C 20 CC C6 .. beq LC51C ; C52F F0 EB .. LC531: lda ($96),y ; C531 B1 96 .. and #$06 ; C533 29 06 ). cmp #$06 ; C535 C9 06 .. beq LC53D ; C537 F0 04 .. lda #$03 ; C539 A9 03 .. bne LC53F ; C53B D0 02 .. LC53D: lda #$FF ; C53D A9 FF .. LC53F: sta $3E ; C53F 85 3E .> LC541: iny ; C541 C8 . lda ($96),y ; C542 B1 96 .. pha ; C544 48 H cpy #$04 ; C545 C0 04 .. bne LC541 ; C547 D0 F8 .. iny ; C549 C8 . jsr LC6CC ; C54A 20 CC C6 .. ldx #$00 ; C54D A2 00 .. LC54F: lda ($96),y ; C54F B1 96 .. cmp (L0092),y ; C551 D1 92 .. beq LC557 ; C553 F0 02 .. ldx #$FF ; C555 A2 FF .. LC557: jsr LCF63 ; C557 20 63 CF c. iny ; C55A C8 . cpy #$0B ; C55B C0 0B .. bne LC54F ; C55D D0 F0 .. jsr LC7F3 ; C55F 20 F3 C7 .. pla ; C562 68 h sta $9D ; C563 85 9D .. pla ; C565 68 h sta $012A ; C566 8D 2A 01 .*. pla ; C569 68 h jsr LCF69 ; C56A 20 69 CF i. pla ; C56D 68 h jsr LC805 ; C56E 20 05 C8 .. lda $9D ; C571 A5 9D .. jsr LCF69 ; C573 20 69 CF i. lda $012A ; C576 AD 2A 01 .*. jsr LCF69 ; C579 20 69 CF i. jsr LC7ED ; C57C 20 ED C7 .. txa ; C57F 8A . bmi LC52C ; C580 30 AA 0. lda $0304 ; C582 AD 04 03 ... sta $43 ; C585 85 43 .C lda $0305 ; C587 AD 05 03 ... sta $44 ; C58A 85 44 .D lda #$02 ; C58C A9 02 .. sta $49 ; C58E 85 49 .I ldy $0308 ; C590 AC 08 03 ... dey ; C593 88 . dey ; C594 88 . dey ; C595 88 . LC596: lda $96 ; C596 A5 96 .. bne LC59C ; C598 D0 02 .. dec $97 ; C59A C6 97 .. LC59C: dec $96 ; C59C C6 96 .. lda ($96,x) ; C59E A1 96 .. sta ($43),y ; C5A0 91 43 .C iny ; C5A2 C8 . dec $49 ; C5A3 C6 49 .I bne LC596 ; C5A5 D0 EF .. ldy #$FF ; C5A7 A0 FF .. lda #$00 ; C5A9 A9 00 .. sta L02E0 ; C5AB 8D E0 02 ... sta $02E1 ; C5AE 8D E1 02 ... LC5B1: sta L02E2 ; C5B1 8D E2 02 ... sta $02E3 ; C5B4 8D E3 02 ... LC5B7: jsr LC673 ; C5B7 20 73 C6 s. sta $47 ; C5BA 85 47 .G jsr LC673 ; C5BC 20 73 C6 s. sta $48 ; C5BF 85 48 .H and $47 ; C5C1 25 47 %G cmp #$FF ; C5C3 C9 FF .. bne LC5D1 ; C5C5 D0 0A .. jsr LC673 ; C5C7 20 73 C6 s. sta $47 ; C5CA 85 47 .G jsr LC673 ; C5CC 20 73 C6 s. sta $48 ; C5CF 85 48 .H LC5D1: jsr LC673 ; C5D1 20 73 C6 s. sta $45 ; C5D4 85 45 .E jsr LC673 ; C5D6 20 73 C6 s. sta $46 ; C5D9 85 46 .F lda $D01F ; C5DB AD 1F D0 ... and #$04 ; C5DE 29 04 ). bne LC61B ; C5E0 D0 39 .9 jsr LC7F3 ; C5E2 20 F3 C7 .. lda $48 ; C5E5 A5 48 .H jsr LCF69 ; C5E7 20 69 CF i. lda $47 ; C5EA A5 47 .G jsr LC805 ; C5EC 20 05 C8 .. lda $46 ; C5EF A5 46 .F jsr LCF69 ; C5F1 20 69 CF i. lda $45 ; C5F4 A5 45 .E jsr LCF69 ; C5F6 20 69 CF i. jsr LC7ED ; C5F9 20 ED C7 .. LC5FC: lda $D01F ; C5FC AD 1F D0 ... and #$02 ; C5FF 29 02 ). beq LC5FC ; C601 F0 F9 .. LC603: lda $D01F ; C603 AD 1F D0 ... and #$04 ; C606 29 04 ). bne LC61B ; C608 D0 11 .. lda $D01F ; C60A AD 1F D0 ... and #$01 ; C60D 29 01 ). bne LC614 ; C60F D0 03 .. jmp LC08F ; C611 4C 8F C0 L.. ; ---------------------------------------------------------------------------- LC614: lda $D01F ; C614 AD 1F D0 ... and #$02 ; C617 29 02 ). bne LC603 ; C619 D0 E8 .. LC61B: sec ; C61B 38 8 lda $45 ; C61C A5 45 .E sbc $47 ; C61E E5 47 .G sta $45 ; C620 85 45 .E lda $46 ; C622 A5 46 .F sbc $48 ; C624 E5 48 .H sta $46 ; C626 85 46 .F LC628: jsr LC673 ; C628 20 73 C6 s. ldx #$00 ; C62B A2 00 .. sta ($47,x) ; C62D 81 47 .G inc $47 ; C62F E6 47 .G bne LC635 ; C631 D0 02 .. inc $48 ; C633 E6 48 .H LC635: lda $45 ; C635 A5 45 .E bne LC63F ; C637 D0 06 .. lda $46 ; C639 A5 46 .F beq LC644 ; C63B F0 07 .. dec $46 ; C63D C6 46 .F LC63F: dec $45 ; C63F C6 45 .E jmp LC628 ; C641 4C 28 C6 L(. ; ---------------------------------------------------------------------------- LC644: lda L02E2 ; C644 AD E2 02 ... ora $02E3 ; C647 0D E3 02 ... bne LC64F ; C64A D0 03 .. jmp LC5B7 ; C64C 4C B7 C5 L.. ; ---------------------------------------------------------------------------- LC64F: lda $0300,x ; C64F BD 00 03 ... pha ; C652 48 H inx ; C653 E8 . cpx #$10 ; C654 E0 10 .. bne LC64F ; C656 D0 F7 .. tya ; C658 98 . pha ; C659 48 H jsr LC66D ; C65A 20 6D C6 m. pla ; C65D 68 h tay ; C65E A8 . ldx #$0F ; C65F A2 0F .. LC661: pla ; C661 68 h sta $0300,x ; C662 9D 00 03 ... dex ; C665 CA . bpl LC661 ; C666 10 F9 .. lda #$00 ; C668 A9 00 .. jmp LC5B1 ; C66A 4C B1 C5 L.. ; ---------------------------------------------------------------------------- LC66D: jmp (L02E2) ; C66D 6C E2 02 l.. ; ---------------------------------------------------------------------------- LC670: jmp (L02E0) ; C670 6C E0 02 l.. ; ---------------------------------------------------------------------------- LC673: iny ; C673 C8 . cpy $49 ; C674 C4 49 .I bne LC6A0 ; C676 D0 28 .( ldy $0308 ; C678 AC 08 03 ... dey ; C67B 88 . dey ; C67C 88 . lda ($43),y ; C67D B1 43 .C sta $030A ; C67F 8D 0A 03 ... dey ; C682 88 . lda ($43),y ; C683 B1 43 .C and $3E ; C685 25 3E %> sta $030B ; C687 8D 0B 03 ... ora $030A ; C68A 0D 0A 03 ... beq LC6A3 ; C68D F0 14 .. jsr LC25C ; C68F 20 5C C2 \. bmi LC6B3 ; C692 30 1F 0. ldy $0308 ; C694 AC 08 03 ... dey ; C697 88 . lda ($43),y ; C698 B1 43 .C sta $49 ; C69A 85 49 .I ldy #$FF ; C69C A0 FF .. bmi LC673 ; C69E 30 D3 0. LC6A0: lda ($43),y ; C6A0 B1 43 .C rts ; C6A2 60 ` ; ---------------------------------------------------------------------------- LC6A3: lda L02E0 ; C6A3 AD E0 02 ... ora $02E1 ; C6A6 0D E1 02 ... beq LC6B0 ; C6A9 F0 05 .. pla ; C6AB 68 h pla ; C6AC 68 h jsr LC670 ; C6AD 20 70 C6 p. LC6B0: jmp LC211 ; C6B0 4C 11 C2 L.. ; ---------------------------------------------------------------------------- LC6B3: pla ; C6B3 68 h pla ; C6B4 68 h LC6B5: jmp LC230 ; C6B5 4C 30 C2 L0. ; ---------------------------------------------------------------------------- sta $97 ; C6B8 85 97 .. lda #$20 ; C6BA A9 20 . LC6BC: cpy $97 ; C6BC C4 97 .. bcs LC6C5 ; C6BE B0 05 .. sta (L0092),y ; C6C0 91 92 .. iny ; C6C2 C8 . bne LC6BC ; C6C3 D0 F7 .. LC6C5: rts ; C6C5 60 ` ; ---------------------------------------------------------------------------- LC6C6: inc L0092 ; C6C6 E6 92 .. dey ; C6C8 88 . bne LC6C6 ; C6C9 D0 FB .. rts ; C6CB 60 ` ; ---------------------------------------------------------------------------- LC6CC: jsr LC7C3 ; C6CC 20 C3 C7 .. dey ; C6CF 88 . bne LC6CC ; C6D0 D0 FA .. rts ; C6D2 60 ` ; ---------------------------------------------------------------------------- LC6D3: stx $9A ; C6D3 86 9A .. tsx ; C6D5 BA . txa ; C6D6 8A . ldx $9A ; C6D7 A6 9A .. clc ; C6D9 18 . adc #$12 ; C6DA 69 12 i. sta L0094 ; C6DC 85 94 .. lda #$01 ; C6DE A9 01 .. sta $95 ; C6E0 85 95 .. ldy #$06 ; C6E2 A0 06 .. lda (L0094),y ; C6E4 B1 94 .. sta $97 ; C6E6 85 97 .. dey ; C6E8 88 . lda (L0094),y ; C6E9 B1 94 .. sta $96 ; C6EB 85 96 .. rts ; C6ED 60 ` ; ---------------------------------------------------------------------------- LC6EE: jsr LC6D3 ; C6EE 20 D3 C6 .. rts ; C6F1 60 ` ; ---------------------------------------------------------------------------- LC6F2: pla ; C6F2 68 h sta L0092 ; C6F3 85 92 .. pla ; C6F5 68 h sta $93 ; C6F6 85 93 .. tya ; C6F8 98 . pha ; C6F9 48 H ldy #$00 ; C6FA A0 00 .. LC6FC: jsr LC7BC ; C6FC 20 BC C7 .. lda (L0092),y ; C6FF B1 92 .. beq LC709 ; C701 F0 06 .. jsr LCF63 ; C703 20 63 CF c. jmp LC6FC ; C706 4C FC C6 L.. ; ---------------------------------------------------------------------------- LC709: pla ; C709 68 h tay ; C70A A8 . lda $93 ; C70B A5 93 .. pha ; C70D 48 H lda L0092 ; C70E A5 92 .. pha ; C710 48 H rts ; C711 60 ` ; ---------------------------------------------------------------------------- eor $3A ; C712 45 3A E: .byte $9B ; C714 9B . LC715: ldx #$00 ; C715 A2 00 .. stx $0F ; C717 86 0F .. stx $0120 ; C719 8E 20 01 . . stx $9F ; C71C 86 9F .. lda $0344,x ; C71E BD 44 03 .D. sta $9C ; C721 85 9C .. lda $0345,x ; C723 BD 45 03 .E. sta $9D ; C726 85 9D .. lda #$9B ; C728 A9 9B .. sta ($9C,x) ; C72A 81 9C .. lda #$03 ; C72C A9 03 .. sta $0342,x ; C72E 9D 42 03 .B. lda #$12 ; C731 A9 12 .. sta $0344,x ; C733 9D 44 03 .D. lda #$C7 ; C736 A9 C7 .. sta $0345,x ; C738 9D 45 03 .E. lda #$0C ; C73B A9 0C .. sta $034A,x ; C73D 9D 4A 03 .J. jsr LE456 ; C740 20 56 E4 V. lda #$48 ; C743 A9 48 .H sta $0125 ; C745 8D 25 01 .%. lda #$CF ; C748 A9 CF .. sta $0126 ; C74A 8D 26 01 .&. lda #$01 ; C74D A9 01 .. sta $0123 ; C74F 8D 23 01 .#. sta $0124 ; C752 8D 24 01 .$. lda #$2F ; C755 A9 2F ./ sta $0206 ; C757 8D 06 02 ... lda #$C0 ; C75A A9 C0 .. sta $0207 ; C75C 8D 07 02 ... ldy #$03 ; C75F A0 03 .. LC761: lda $E48A,y ; C761 B9 8A E4 ... sta $020A,y ; C764 99 0A 02 ... dey ; C767 88 . bpl LC761 ; C768 10 F7 .. jsr LC6F2 ; C76A 20 F2 C6 .. COPYRIGHT: .byte $9B ; C76D 9B . .byte "David Young " ; C76E 44 61 76 69 64 20 59 6F David Yo ; C776 75 6E 67 20 ung OMNIMONXL: .byte $CF,$CD,$CE,$C9,$CD,$CF,$CE,$D8 ; C77A CF CD CE C9 CD CF CE D8 ........ .byte $CC ; C782 CC . .byte " (C)1984" ; C783 20 28 43 29 31 39 38 34 (C)1984 .byte $9B,$9B,$00 ; C78B 9B 9B 00 ... ; ---------------------------------------------------------------------------- OmniRestD: rts ; C78E 60 ` ; ---------------------------------------------------------------------------- sty $9B ; C78F 84 9B .. lda #$0C ; C791 A9 0C .. sta $0342,x ; C793 9D 42 03 .B. jsr LE456 ; C796 20 56 E4 V. ldy $9B ; C799 A4 9B .. rts ; C79B 60 ` ; ---------------------------------------------------------------------------- sty $9B ; C79C 84 9B .. pha ; C79E 48 H lda $0340,x ; C79F BD 40 03 .@. cmp #$FF ; C7A2 C9 FF .. beq LC7B8 ; C7A4 F0 12 .. lda #$00 ; C7A6 A9 00 .. sta $0348,x ; C7A8 9D 48 03 .H. sta $0349,x ; C7AB 9D 49 03 .I. lda #$0B ; C7AE A9 0B .. sta $0342,x ; C7B0 9D 42 03 .B. pla ; C7B3 68 h pha ; C7B4 48 H jsr LE456 ; C7B5 20 56 E4 V. LC7B8: pla ; C7B8 68 h ldy $9B ; C7B9 A4 9B .. rts ; C7BB 60 ` ; ---------------------------------------------------------------------------- LC7BC: inc L0092 ; C7BC E6 92 .. bne LC7C2 ; C7BE D0 02 .. inc $93 ; C7C0 E6 93 .. LC7C2: rts ; C7C2 60 ` ; ---------------------------------------------------------------------------- LC7C3: inc $96 ; C7C3 E6 96 .. LC7C5: bne LC7C9 ; C7C5 D0 02 .. inc $97 ; C7C7 E6 97 .. LC7C9: rts ; C7C9 60 ` ; ---------------------------------------------------------------------------- LC7CA: sec ; C7CA 38 8 lda L0094 ; C7CB A5 94 .. sbc $96 ; C7CD E5 96 .. lda $95 ; C7CF A5 95 .. sbc $97 ; C7D1 E5 97 .. rts ; C7D3 60 ` ; ---------------------------------------------------------------------------- LC7D4: sec ; C7D4 38 8 sbc #$30 ; C7D5 E9 30 .0 bmi LC7E8 ; C7D7 30 0F 0. cmp #$0A ; C7D9 C9 0A .. bmi LC7EA ; C7DB 30 0D 0. sec ; C7DD 38 8 sbc #$07 ; C7DE E9 07 .. cmp #$0A ; C7E0 C9 0A .. bmi LC7E8 ; C7E2 30 04 0. cmp #$10 ; C7E4 C9 10 .. bmi LC7EA ; C7E6 30 02 0. LC7E8: lda #$FF ; C7E8 A9 FF .. LC7EA: cmp #$00 ; C7EA C9 00 .. rts ; C7EC 60 ` ; ---------------------------------------------------------------------------- LC7ED: lda #$9B ; C7ED A9 9B .. jsr LCF63 ; C7EF 20 63 CF c. rts ; C7F2 60 ` ; ---------------------------------------------------------------------------- LC7F3: lda #$01 ; C7F3 A9 01 .. LC7F5: stx $9C ; C7F5 86 9C .. tax ; C7F7 AA . beq LC802 ; C7F8 F0 08 .. LC7FA: lda #$20 ; C7FA A9 20 . jsr LCF63 ; C7FC 20 63 CF c. dex ; C7FF CA . bne LC7FA ; C800 D0 F8 .. LC802: ldx $9C ; C802 A6 9C .. rts ; C804 60 ` ; ---------------------------------------------------------------------------- LC805: jsr LCF69 ; C805 20 69 CF i. lda #$01 ; C808 A9 01 .. jsr LC7F5 ; C80A 20 F5 C7 .. rts ; C80D 60 ` ; ---------------------------------------------------------------------------- LC80E: lda $97 ; C80E A5 97 .. jsr LCF69 ; C810 20 69 CF i. lda $96 ; C813 A5 96 .. jsr LCF69 ; C815 20 69 CF i. rts ; C818 60 ` ; ---------------------------------------------------------------------------- and #$0F ; C819 29 0F ). cmp #$0A ; C81B C9 0A .. bmi LC821 ; C81D 30 02 0. adc #$06 ; C81F 69 06 i. LC821: adc #$30 ; C821 69 30 i0 rts ; C823 60 ` ; ---------------------------------------------------------------------------- LC824: jsr LCF9F ; C824 20 9F CF .. LC827: ldy #$00 ; C827 A0 00 .. LC829: lda ($96),y ; C829 B1 96 .. pha ; C82B 48 H lda $98 ; C82C A5 98 .. bmi LC837 ; C82E 30 07 0. pla ; C830 68 h jsr LC805 ; C831 20 05 C8 .. jmp LC83B ; C834 4C 3B C8 L;. ; ---------------------------------------------------------------------------- LC837: pla ; C837 68 h jsr LCF6F ; C838 20 6F CF o. LC83B: iny ; C83B C8 . cpy #$08 ; C83C C0 08 .. bne LC829 ; C83E D0 E9 .. rts ; C840 60 ` ; ---------------------------------------------------------------------------- lda $96 ; C841 A5 96 .. sta L0094 ; C843 85 94 .. lda $97 ; C845 A5 97 .. sta $95 ; C847 85 95 .. rts ; C849 60 ` ; ---------------------------------------------------------------------------- LC84A: lda L0094 ; C84A A5 94 .. sta $96 ; C84C 85 96 .. lda $95 ; C84E A5 95 .. sta $97 ; C850 85 97 .. rts ; C852 60 ` ; ---------------------------------------------------------------------------- ldx #$FF ; C853 A2 FF .. LC855: inx ; C855 E8 . cpx #$03 ; C856 E0 03 .. beq LC89E ; C858 F0 44 .D sta $D5,x ; C85A 95 D5 .. asl $D5,x ; C85C 16 D5 .. asl $D5,x ; C85E 16 D5 .. asl $D5,x ; C860 16 D5 .. asl $D5,x ; C862 16 D5 .. jsr LC7BC ; C864 20 BC C7 .. lda (L0092),y ; C867 B1 92 .. jsr LC7D4 ; C869 20 D4 C7 .. bpl LC87B ; C86C 10 0D .. ldy #$04 ; C86E A0 04 .. LC870: lsr $D5 ; C870 46 D5 F. ror $D6 ; C872 66 D6 f. ror $D7 ; C874 66 D7 f. dey ; C876 88 . bne LC870 ; C877 D0 F7 .. beq LC889 ; C879 F0 0E .. LC87B: ora $D5,x ; C87B 15 D5 .. sta $D5,x ; C87D 95 D5 .. jsr LC7BC ; C87F 20 BC C7 .. lda (L0092),y ; C882 B1 92 .. jsr LC7D4 ; C884 20 D4 C7 .. bpl LC855 ; C887 10 CC .. LC889: txa ; C889 8A . clc ; C88A 18 . adc #$40 ; C88B 69 40 i@ sta $D4 ; C88D 85 D4 .. jsr LD9D2 ; C88F 20 D2 D9 .. bcs LC89E ; C892 B0 0A .. lda $D4 ; C894 A5 D4 .. sta L0094 ; C896 85 94 .. lda $D5 ; C898 A5 D5 .. sta $95 ; C89A 85 95 .. ldy #$00 ; C89C A0 00 .. LC89E: rts ; C89E 60 ` ; ---------------------------------------------------------------------------- LC89F: jsr LCF99 ; C89F 20 99 CF .. sec ; C8A2 38 8 lda L0094 ; C8A3 A5 94 .. sbc $96 ; C8A5 E5 96 .. sta $012A ; C8A7 8D 2A 01 .*. lda $95 ; C8AA A5 95 .. sbc $97 ; C8AC E5 97 .. bcc LC8B7 ; C8AE 90 07 .. sta $012B ; C8B0 8D 2B 01 .+. jsr LCF75 ; C8B3 20 75 CF u. rts ; C8B6 60 ` ; ---------------------------------------------------------------------------- LC8B7: lda #$FF ; C8B7 A9 FF .. rts ; C8B9 60 ` ; ---------------------------------------------------------------------------- LC8BA: jsr LC6F2 ; C8BA 20 F2 C6 .. INPUTERR := * + 1 sta $4E49,x ; C8BD 9D 49 4E .IN .byte "PUT ERR" ; C8C0 50 55 54 20 45 52 52 PUT ERR .byte $9B,$00 ; C8C7 9B 00 .. ; ---------------------------------------------------------------------------- OmniRestE: jmp LC08F ; C8C9 4C 8F C0 L.. ; ---------------------------------------------------------------------------- ; nRelocate = $C8CC nRelocate: jsr LC89F ; C8CC 20 9F C8 .. bpl LC8D4 ; C8CF 10 03 .. jmp LC977 ; C8D1 4C 77 C9 Lw. ; ---------------------------------------------------------------------------- LC8D4: lda $96 ; C8D4 A5 96 .. sta $012C ; C8D6 8D 2C 01 .,. lda $97 ; C8D9 A5 97 .. sta $012D ; C8DB 8D 2D 01 .-. lda L0094 ; C8DE A5 94 .. sta $012E ; C8E0 8D 2E 01 ... lda $95 ; C8E3 A5 95 .. sta $012F ; C8E5 8D 2F 01 ./. jsr LCF75 ; C8E8 20 75 CF u. bmi LC8F7 ; C8EB 30 0A 0. jsr LC84A ; C8ED 20 4A C8 J. jsr LCF75 ; C8F0 20 75 CF u. bmi LC901 ; C8F3 30 0C 0. bpl LC912 ; C8F5 10 1B .. LC8F7: lda $012E ; C8F7 AD 2E 01 ... sta $96 ; C8FA 85 96 .. lda $012F ; C8FC AD 2F 01 ./. sta $97 ; C8FF 85 97 .. LC901: clc ; C901 18 . lda $012E ; C902 AD 2E 01 ... adc $012A ; C905 6D 2A 01 m*. sta L0094 ; C908 85 94 .. lda $012F ; C90A AD 2F 01 ./. adc $012B ; C90D 6D 2B 01 m+. sta $95 ; C910 85 95 .. LC912: jsr LC7CA ; C912 20 CA C7 .. bcc LC977 ; C915 90 60 .` LC917: jsr LCDE2 ; C917 20 E2 CD .. cmp #$00 ; C91A C9 00 .. beq LC97A ; C91C F0 5C .\ tay ; C91E A8 . ldx LCE28,y ; C91F BE 28 CE .(. cpx #$03 ; C922 E0 03 .. bne LC969 ; C924 D0 43 .C ldy #$00 ; C926 A0 00 .. jsr LC7C3 ; C928 20 C3 C7 .. lda $96 ; C92B A5 96 .. sta L0092 ; C92D 85 92 .. lda $97 ; C92F A5 97 .. sta $93 ; C931 85 93 .. lda ($96),y ; C933 B1 96 .. tax ; C935 AA . jsr LC7C3 ; C936 20 C3 C7 .. lda ($96),y ; C939 B1 96 .. pha ; C93B 48 H sec ; C93C 38 8 txa ; C93D 8A . sbc $012C ; C93E ED 2C 01 .,. tax ; C941 AA . pla ; C942 68 h sbc $012D ; C943 ED 2D 01 .-. sta $9C ; C946 85 9C .. bcc LC967 ; C948 90 1D .. cmp $012B ; C94A CD 2B 01 .+. bcc LC959 ; C94D 90 0A .. bne LC967 ; C94F D0 16 .. txa ; C951 8A . cmp $012A ; C952 CD 2A 01 .*. bcc LC959 ; C955 90 02 .. bne LC967 ; C957 D0 0E .. LC959: clc ; C959 18 . txa ; C95A 8A . adc $012E ; C95B 6D 2E 01 m.. sta (L0092),y ; C95E 91 92 .. lda $9C ; C960 A5 9C .. adc $012F ; C962 6D 2F 01 m/. sta ($96),y ; C965 91 96 .. LC967: ldx #$01 ; C967 A2 01 .. LC969: jsr LC7C3 ; C969 20 C3 C7 .. dex ; C96C CA . bne LC969 ; C96D D0 FA .. jsr LC7CA ; C96F 20 CA C7 .. bcs LC917 ; C972 B0 A3 .. jmp LC08F ; C974 4C 8F C0 L.. ; ---------------------------------------------------------------------------- LC977: jmp LC8BA ; C977 4C BA C8 L.. ; ---------------------------------------------------------------------------- LC97A: jsr LCD54 ; C97A 20 54 CD T. jmp LC08F ; C97D 4C 8F C0 L.. ; ---------------------------------------------------------------------------- ; E steps - Execute mem in steps (plus options) eExec: lda #$36 ; C980 A9 36 .6 sta $0206 ; C982 8D 06 02 ... jsr LCF75 ; C985 20 75 CF u. bpl LC98E ; C988 10 04 .. lda #$01 ; C98A A9 01 .. sta L0094 ; C98C 85 94 .. LC98E: lda L0094 ; C98E A5 94 .. sta $0120 ; C990 8D 20 01 . . LC993: jsr LC6EE ; C993 20 EE C6 .. ldy #$00 ; C996 A0 00 .. lda ($96),y ; C998 B1 96 .. ldx #$00 ; C99A A2 00 .. LC99C: cmp LC9F3,x ; C99C DD F3 C9 ... beq LC9A8 ; C99F F0 07 .. inx ; C9A1 E8 . cpx #$0F ; C9A2 E0 0F .. LC9A5 := * + 1 bne LC99C ; C9A4 D0 F6 .. beq LC9C0 ; C9A6 F0 18 .. LC9A8: txa ; C9A8 8A . asl a ; C9A9 0A . tax ; C9AA AA . lda LCA02,x ; C9AB BD 02 CA ... sta L0092 ; C9AE 85 92 .. lda LCA03,x ; C9B0 BD 03 CA ... sta $93 ; C9B3 85 93 .. ldy #$04 ; C9B5 A0 04 .. lda (L0094),y ; C9B7 B1 94 .. ldy #$00 ; C9B9 A0 00 .. pha ; C9BB 48 H plp ; C9BC 28 ( jmp (L0092) ; C9BD 6C 92 00 l.. ; ---------------------------------------------------------------------------- LC9C0: jsr LCDE2 ; C9C0 20 E2 CD .. tay ; C9C3 A8 . lda LCE28,y ; C9C4 B9 28 CE .(. LC9C7: tay ; C9C7 A8 . clc ; C9C8 18 . adc $96 ; C9C9 65 96 e. sta $0121 ; C9CB 8D 21 01 .!. lda $97 ; C9CE A5 97 .. adc #$00 ; C9D0 69 00 i. sta $0122 ; C9D2 8D 22 01 .". lda #$00 ; C9D5 A9 00 .. sta $012A,y ; C9D7 99 2A 01 .*. LC9DA: dey ; C9DA 88 . bmi LC9E5 ; C9DB 30 08 0. lda ($96),y ; C9DD B1 96 .. sta $012A,y ; C9DF 99 2A 01 .*. jmp LC9DA ; C9E2 4C DA C9 L.. ; ---------------------------------------------------------------------------- LC9E5: ldy #$05 ; C9E5 A0 05 .. lda #$2A ; C9E7 A9 2A .* sta (L0094),y ; C9E9 91 94 .. iny ; C9EB C8 . lda #$01 ; C9EC A9 01 .. sta (L0094),y ; C9EE 91 94 .. jmp LC139 ; C9F0 4C 39 C1 L9. ; ---------------------------------------------------------------------------- LC9F3: bcc LC9A5 ; C9F3 90 B0 .. beq LC9C7 ; C9F5 F0 D0 .. bpl LCA29 ; C9F7 10 30 .0 bvs LCA4B ; C9F9 70 50 pP jmp L206C ; C9FB 4C 6C 20 Ll ; ---------------------------------------------------------------------------- rti ; C9FE 40 @ ; ---------------------------------------------------------------------------- rts ; C9FF 60 ` ; ---------------------------------------------------------------------------- brk ; CA00 00 . sei ; CA01 78 x LCA02: LCA03 := * + 1 jsr L24CA ; CA02 20 CA 24 .$ dex ; CA05 CA . plp ; CA06 28 ( dex ; CA07 CA . bit $30CA ; CA08 2C CA 30 ,.0 dex ; CA0B CA . .byte $34 ; CA0C 34 4 dex ; CA0D CA . sec ; CA0E 38 8 dex ; CA0F CA . .byte $3C ; CA10 3C < dex ; CA11 CA . adc $76CA ; CA12 6D CA 76 m.v dex ; CA15 CA . .byte $53 ; CA16 53 S dex ; CA17 CA . lda $93CA ; CA18 AD CA 93 ... dex ; CA1B CA . .byte $C3 ; CA1C C3 . dex ; CA1D CA . .byte $C3 ; CA1E C3 . dex ; CA1F CA . bcc LCA40 ; CA20 90 1E .. bcs LC9C0 ; CA22 B0 9C .. bcs LCA40 ; CA24 B0 1A .. bcc LC9C0 ; CA26 90 98 .. LCA29 := * + 1 beq LCA40 ; CA28 F0 16 .. bne LC9C0 ; CA2A D0 94 .. bne LCA40 ; CA2C D0 12 .. beq LC9C0 ; CA2E F0 90 .. bpl LCA40 ; CA30 10 0E .. bmi LC9C0 ; CA32 30 8C 0. bmi LCA40 ; CA34 30 0A 0. bpl LC9C0 ; CA36 10 88 .. bvs LCA40 ; CA38 70 06 p. bvc LC9C0 ; CA3A 50 84 P. bvc LCA40 ; CA3C 50 02 P. bvs LC9C0 ; CA3E 70 80 p. LCA40: jsr LC7C3 ; CA40 20 C3 C7 .. jsr LCEDE ; CA43 20 DE CE .. lda $96 ; CA46 A5 96 .. sta $0121 ; CA48 8D 21 01 .!. LCA4B: lda $97 ; CA4B A5 97 .. sta $0122 ; CA4D 8D 22 01 .". jmp LC046 ; CA50 4C 46 C0 LF. ; ---------------------------------------------------------------------------- jsr LCACA ; CA53 20 CA CA .. jsr LC7C3 ; CA56 20 C3 C7 .. lda $96 ; CA59 A5 96 .. sta $9B ; CA5B 85 9B .. lda $97 ; CA5D A5 97 .. jsr LCCF5 ; CA5F 20 F5 CC .. lda $9B ; CA62 A5 9B .. jsr LCCF5 ; CA64 20 F5 CC .. jsr LCAD9 ; CA67 20 D9 CA .. jmp LC046 ; CA6A 4C 46 C0 LF. ; ---------------------------------------------------------------------------- jsr LCACA ; CA6D 20 CA CA .. jsr LCAD9 ; CA70 20 D9 CA .. jmp LC046 ; CA73 4C 46 C0 LF. ; ---------------------------------------------------------------------------- jsr LC7C3 ; CA76 20 C3 C7 .. lda ($96),y ; CA79 B1 96 .. sta L0092 ; CA7B 85 92 .. iny ; CA7D C8 . lda ($96),y ; CA7E B1 96 .. sta $93 ; CA80 85 93 .. lda (L0092),y ; CA82 B1 92 .. sta $0122 ; CA84 8D 22 01 .". dey ; CA87 88 . lda (L0092),y ; CA88 B1 92 .. sta $0121 ; CA8A 8D 21 01 .!. jsr LCAD9 ; CA8D 20 D9 CA .. jmp LC046 ; CA90 4C 46 C0 LF. ; ---------------------------------------------------------------------------- jsr LCD1A ; CA93 20 1A CD .. sta $0121 ; CA96 8D 21 01 .!. jsr LCD1A ; CA99 20 1A CD .. sta $0122 ; CA9C 8D 22 01 .". inc $0121 ; CA9F EE 21 01 .!. bne LCAA7 ; CAA2 D0 03 .. inc $0122 ; CAA4 EE 22 01 .". LCAA7: jsr LCAD9 ; CAA7 20 D9 CA .. jmp LC046 ; CAAA 4C 46 C0 LF. ; ---------------------------------------------------------------------------- jsr LCD1A ; CAAD 20 1A CD .. ldy #$05 ; CAB0 A0 05 .. sta (L0094),y ; CAB2 91 94 .. jsr LCD1A ; CAB4 20 1A CD .. sta $0121 ; CAB7 8D 21 01 .!. jsr LCD1A ; CABA 20 1A CD .. sta $0122 ; CABD 8D 22 01 .". jmp LC046 ; CAC0 4C 46 C0 LF. ; ---------------------------------------------------------------------------- lda #$00 ; CAC3 A9 00 .. sta $0120 ; CAC5 8D 20 01 . . beq LCB13 ; CAC8 F0 49 .I LCACA: jsr LC7C3 ; CACA 20 C3 C7 .. lda ($96),y ; CACD B1 96 .. sta $0121 ; CACF 8D 21 01 .!. iny ; CAD2 C8 . lda ($96),y ; CAD3 B1 96 .. sta $0122 ; CAD5 8D 22 01 .". rts ; CAD8 60 ` ; ---------------------------------------------------------------------------- LCAD9: lda $0122 ; CAD9 AD 22 01 .". cmp #$C0 ; CADC C9 C0 .. bcc LCB16 ; CADE 90 36 .6 pla ; CAE0 68 h pla ; CAE1 68 h jsr LC6EE ; CAE2 20 EE C6 .. lda $0121 ; CAE5 AD 21 01 .!. sta (L0094),y ; CAE8 91 94 .. iny ; CAEA C8 . lda $0122 ; CAEB AD 22 01 .". sta (L0094),y ; CAEE 91 94 .. jsr LCD1A ; CAF0 20 1A CD .. sta $0121 ; CAF3 8D 21 01 .!. jsr LCD1A ; CAF6 20 1A CD .. sta $0122 ; CAF9 8D 22 01 .". inc $0121 ; CAFC EE 21 01 .!. bne LCB04 ; CAFF D0 03 .. inc $0122 ; CB01 EE 22 01 .". LCB04: lda #$00 ; CB04 A9 00 .. sta $012A ; CB06 8D 2A 01 .*. lda #$01 ; CB09 A9 01 .. jsr LCCF5 ; CB0B 20 F5 CC .. lda #$29 ; CB0E A9 29 .) jsr LCCF5 ; CB10 20 F5 CC .. LCB13: jmp LC139 ; CB13 4C 39 C1 L9. ; ---------------------------------------------------------------------------- LCB16: rts ; CB16 60 ` ; ---------------------------------------------------------------------------- ; cChange = $CB17 cChange:jsr LC6EE ; CB17 20 EE C6 .. jsr LC84A ; CB1A 20 4A C8 J. jsr LCF75 ; CB1D 20 75 CF u. bmi LCB3A ; CB20 30 18 0. ldy #$06 ; CB22 A0 06 .. lda $95 ; CB24 A5 95 .. sta ($96),y ; CB26 91 96 .. dey ; CB28 88 . lda L0094 ; CB29 A5 94 .. sta ($96),y ; CB2B 91 96 .. dey ; CB2D 88 . LCB2E: jsr LCF75 ; CB2E 20 75 CF u. bmi LCB3A ; CB31 30 07 0. lda L0094 ; CB33 A5 94 .. sta ($96),y ; CB35 91 96 .. dey ; CB37 88 . bne LCB2E ; CB38 D0 F4 .. LCB3A: jsr LCB40 ; CB3A 20 40 CB @. jmp LC08F ; CB3D 4C 8F C0 L.. ; ---------------------------------------------------------------------------- LCB40: jsr LC6F2 ; CB40 20 F2 C6 .. REGISTERS := * + 1 sta $2020,x ; CB43 9D 20 20 . .byte "PC NV-BDIZC AC X Y SP" ; CB46 50 43 20 4E 56 2D 42 44 PC NV-BD ; CB4E 49 5A 43 20 41 43 20 58 IZC AC X ; CB56 20 20 59 20 20 53 50 Y SP .byte $9B,$9D ; CB5D 9B 9D .. .byte "C" ; CB5F 43 C .byte $00 ; CB60 00 . ; ---------------------------------------------------------------------------- OmniRestE: jsr LC6D3 ; CB61 20 D3 C6 .. jsr LC80E ; CB64 20 0E C8 .. lda #$03 ; CB67 A9 03 .. jsr LC7F5 ; CB69 20 F5 C7 .. dey ; CB6C 88 . LCB6D: lda (L0094),y ; CB6D B1 94 .. jsr LCF69 ; CB6F 20 69 CF i. lda #$01 ; CB72 A9 01 .. cpy #$04 ; CB74 C0 04 .. bne LCB7A ; CB76 D0 02 .. lda #$04 ; CB78 A9 04 .. LCB7A: jsr LC7F5 ; CB7A 20 F5 C7 .. dey ; CB7D 88 . bne LCB6D ; CB7E D0 ED .. lda #$31 ; CB80 A9 31 .1 jsr LCF63 ; CB82 20 63 CF c. clc ; CB85 18 . lda #$06 ; CB86 A9 06 .. adc L0094 ; CB88 65 94 e. jsr LCF69 ; CB8A 20 69 CF i. jsr LC7ED ; CB8D 20 ED C7 .. rts ; CB90 60 ` ; ---------------------------------------------------------------------------- ; yAssemble = $CB91 yAssemble: ldy #$00 ; CB91 A0 00 .. beq LCBB9 ; CB93 F0 24 .$ LCB95: jsr LC6F2 ; CB95 20 F2 C6 .. sta $2059,x ; CB98 9D 59 20 .Y brk ; CB9B 00 . jsr LC80E ; CB9C 20 0E C8 .. jsr LC7F3 ; CB9F 20 F3 C7 .. jsr LC161 ; CBA2 20 61 C1 a. ldy #$00 ; CBA5 A0 00 .. ldx #$00 ; CBA7 A2 00 .. LCBA9: lda (L0092),y ; CBA9 B1 92 .. cmp #$3E ; CBAB C9 3E .> bne LCBB5 ; CBAD D0 06 .. jsr LC7BC ; CBAF 20 BC C7 .. jmp LCBA9 ; CBB2 4C A9 CB L.. ; ---------------------------------------------------------------------------- LCBB5: cmp #$59 ; CBB5 C9 59 .Y bne LCBC1 ; CBB7 D0 08 .. LCBB9: jsr LCF75 ; CBB9 20 75 CF u. bmi LCBC7 ; CBBC 30 09 0. jsr LC84A ; CBBE 20 4A C8 J. LCBC1: lda (L0092),y ; CBC1 B1 92 .. cmp #$9B ; CBC3 C9 9B .. bne LCBCA ; CBC5 D0 03 .. LCBC7: jmp LC08F ; CBC7 4C 8F C0 L.. ; ---------------------------------------------------------------------------- LCBCA: lda (L0092),y ; CBCA B1 92 .. cmp #$20 ; CBCC C9 20 . beq LCBE0 ; CBCE F0 10 .. cmp #$2C ; CBD0 C9 2C ., beq LCBE0 ; CBD2 F0 0C .. cmp #$29 ; CBD4 C9 29 .) beq LCBE0 ; CBD6 F0 08 .. sta $012A,x ; CBD8 9D 2A 01 .*. cmp #$9B ; CBDB C9 9B .. beq LCBE3 ; CBDD F0 04 .. inx ; CBDF E8 . LCBE0: iny ; CBE0 C8 . bne LCBCA ; CBE1 D0 E7 .. LCBE3: ldy #$FF ; CBE3 A0 FF .. ldx #$01 ; CBE5 A2 01 .. stx $9C ; CBE7 86 9C .. inx ; CBE9 E8 . lda #$2A ; CBEA A9 2A .* sta L0092 ; CBEC 85 92 .. lda #$01 ; CBEE A9 01 .. sta $93 ; CBF0 85 93 .. LCBF2: jsr LCC0F ; CBF2 20 0F CC .. bne LCC03 ; CBF5 D0 0C .. jsr LCC0F ; CBF7 20 0F CC .. bne LCC04 ; CBFA D0 08 .. jsr LCC0F ; CBFC 20 0F CC .. beq LCC42 ; CBFF F0 41 .A bne LCC05 ; CC01 D0 02 .. LCC03: inx ; CC03 E8 . LCC04: inx ; CC04 E8 . LCC05: inc $9C ; CC05 E6 9C .. cpx #$AA ; CC07 E0 AA .. beq LCC1D ; CC09 F0 12 .. ldy #$FF ; CC0B A0 FF .. bne LCBF2 ; CC0D D0 E3 .. LCC0F: inx ; CC0F E8 . iny ; CC10 C8 . lda (L0092),y ; CC11 B1 92 .. jsr PUTx ; CC13 20 AB CF .. cmp $5548,x ; CC16 DD 48 55 .HU jsr GETx ; CC19 20 B9 CF .. rts ; CC1C 60 ` ; ---------------------------------------------------------------------------- LCC1D: jsr LCC37 ; CC1D 20 37 CC 7. jsr LC6F2 ; CC20 20 F2 C6 .. cmp #$CC ; CC23 C9 CC .. cpy LC7C5 ; CC25 CC C5 C7 ... cmp ($CC,x) ; CC28 C1 CC .. sbc a:$9B,x ; CC2A FD 9B 00 ... jsr LC6F2 ; CC2D 20 F2 C6 .. .byte $9C ; CC30 9C . sta a:$9B,x ; CC31 9D 9B 00 ... jmp LCB95 ; CC34 4C 95 CB L.. ; ---------------------------------------------------------------------------- LCC37: jsr LC6F2 ; CC37 20 F2 C6 .. sta $A900,x ; CC3A 9D 00 A9 ... asl a ; CC3D 0A . jsr LC7F5 ; CC3E 20 F5 C7 .. rts ; CC41 60 ` ; ---------------------------------------------------------------------------- LCC42: jsr LC7BC ; CC42 20 BC C7 .. dey ; CC45 88 . bpl LCC42 ; CC46 10 FA .. iny ; CC48 C8 . lda (L0092),y ; CC49 B1 92 .. ldx #$00 ; CC4B A2 00 .. jsr LCF5D ; CC4D 20 5D CF ]. cpx #$04 ; CC50 E0 04 .. bcc LCC62 ; CC52 90 0E .. beq LCC69 ; CC54 F0 13 .. cpx #$10 ; CC56 E0 10 .. bcc LCC70 ; CC58 90 16 .. beq LCC78 ; CC5A F0 1C .. cpx #$16 ; CC5C E0 16 .. beq LCC83 ; CC5E F0 23 .# bne LCC1D ; CC60 D0 BB .. LCC62: jsr OmniRestG ; CC62 20 4B CF K. beq LCC1D ; CC65 F0 B6 .. bne LCC85 ; CC67 D0 1C .. LCC69: jsr LCF51 ; CC69 20 51 CF Q. beq LCC1D ; CC6C F0 AF .. bne LCC85 ; CC6E D0 15 .. LCC70: jsr LCF57 ; CC70 20 57 CF W. txa ; CC73 8A . beq LCC1D ; CC74 F0 A7 .. bne LCC85 ; CC76 D0 0D .. LCC78: iny ; CC78 C8 . lda (L0092),y ; CC79 B1 92 .. cmp #$9B ; CC7B C9 9B .. bne LCC1D ; CC7D D0 9E .. ldx #$04 ; CC7F A2 04 .. bne LCC85 ; CC81 D0 02 .. LCC83: ldx #$05 ; CC83 A2 05 .. LCC85: lda #$55 ; CC85 A9 55 .U sta $93 ; CC87 85 93 .. lda #$F3 ; CC89 A9 F3 .. sta L0092 ; CC8B 85 92 .. LCC8D: ldy #$00 ; CC8D A0 00 .. lda $9C ; CC8F A5 9C .. jsr PUTx ; CC91 20 AB CF .. cmp (L0092),y ; CC94 D1 92 .. jsr GETx ; CC96 20 B9 CF .. bne LCCA7 ; CC99 D0 0C .. txa ; CC9B 8A . iny ; CC9C C8 . jsr PUTx ; CC9D 20 AB CF .. cmp (L0092),y ; CCA0 D1 92 .. jsr GETx ; CCA2 20 B9 CF .. beq LCCBB ; CCA5 F0 14 .. LCCA7: jsr LC7BC ; CCA7 20 BC C7 .. jsr LC7BC ; CCAA 20 BC C7 .. sec ; CCAD 38 8 lda #$F2 ; CCAE A9 F2 .. sbc L0092 ; CCB0 E5 92 .. lda #$57 ; CCB2 A9 57 .W sbc $93 ; CCB4 E5 93 .. bcs LCC8D ; CCB6 B0 D5 .. jmp LCC1D ; CCB8 4C 1D CC L.. ; ---------------------------------------------------------------------------- LCCBB: ldy #$00 ; CCBB A0 00 .. sec ; CCBD 38 8 lda L0092 ; CCBE A5 92 .. sbc #$F3 ; CCC0 E9 F3 .. sta L0092 ; CCC2 85 92 .. lda $93 ; CCC4 A5 93 .. sbc #$55 ; CCC6 E9 55 .U lsr a ; CCC8 4A J ror L0092 ; CCC9 66 92 f. lda L0092 ; CCCB A5 92 .. sta ($96),y ; CCCD 91 96 .. ldy LCE28,x ; CCCF BC 28 CE .(. cpy #$03 ; CCD2 C0 03 .. bne LCCDB ; CCD4 D0 05 .. dey ; CCD6 88 . lda $95 ; CCD7 A5 95 .. sta ($96),y ; CCD9 91 96 .. LCCDB: cpy #$02 ; CCDB C0 02 .. bne LCCE4 ; CCDD D0 05 .. dey ; CCDF 88 . lda L0094 ; CCE0 A5 94 .. sta ($96),y ; CCE2 91 96 .. LCCE4: lda $98 ; CCE4 A5 98 .. and #$7F ; CCE6 29 7F ). sta $98 ; CCE8 85 98 .. jsr LC6F2 ; CCEA 20 F2 C6 .. sta $2000,x ; CCED 9D 00 20 .. .byte $64 ; CCF0 64 d cmp $2D4C ; CCF1 CD 4C 2D .L- LCCF5 := * + 1 cpy $9C85 ; CCF4 CC 85 9C ... jsr LC6D3 ; CCF7 20 D3 C6 .. clc ; CCFA 18 . lda #$07 ; CCFB A9 07 .. adc L0094 ; CCFD 65 94 e. sta $9A ; CCFF 85 9A .. tsx ; CD01 BA . dex ; CD02 CA . txs ; CD03 9A . inx ; CD04 E8 . inx ; CD05 E8 . LCD06: lda $0100,x ; CD06 BD 00 01 ... dex ; CD09 CA . sta $0100,x ; CD0A 9D 00 01 ... inx ; CD0D E8 . inx ; CD0E E8 . cpx $9A ; CD0F E4 9A .. bne LCD06 ; CD11 D0 F3 .. lda $9C ; CD13 A5 9C .. dex ; CD15 CA . sta $0100,x ; CD16 9D 00 01 ... rts ; CD19 60 ` ; ---------------------------------------------------------------------------- LCD1A: jsr LC6D3 ; CD1A 20 D3 C6 .. tsx ; CD1D BA . inx ; CD1E E8 . stx $9A ; CD1F 86 9A .. clc ; CD21 18 . lda #$07 ; CD22 A9 07 .. adc L0094 ; CD24 65 94 e. tax ; CD26 AA . lda $0100,x ; CD27 BD 00 01 ... sta $9C ; CD2A 85 9C .. LCD2C: dex ; CD2C CA . lda $0100,x ; CD2D BD 00 01 ... sta $0101,x ; CD30 9D 01 01 ... cpx $9A ; CD33 E4 9A .. bne LCD2C ; CD35 D0 F5 .. ldx $9A ; CD37 A6 9A .. txs ; CD39 9A . lda $9C ; CD3A A5 9C .. rts ; CD3C 60 ` ; ---------------------------------------------------------------------------- ; xDisassemble = $CD3D xDisassemble: jsr LCF99 ; CD3D 20 99 CF .. LCD40: jsr LCD54 ; CD40 20 54 CD T. lda #$07 ; CD43 A9 07 .. eor $D01F ; CD45 4D 1F D0 M.. bne LCD51 ; CD48 D0 07 .. jsr LC7CA ; CD4A 20 CA C7 .. bmi LCD51 ; CD4D 30 02 0. bpl LCD40 ; CD4F 10 EF .. LCD51: jmp LC08F ; CD51 4C 8F C0 L.. ; ---------------------------------------------------------------------------- LCD54: lda $98 ; CD54 A5 98 .. and #$7F ; CD56 29 7F ). sta $98 ; CD58 85 98 .. jsr LC6F2 ; CD5A 20 F2 C6 .. sta $2041,x ; CD5D 9D 41 20 .A brk ; CD60 00 . jsr LC80E ; CD61 20 0E C8 .. jsr LC7F3 ; CD64 20 F3 C7 .. jsr LCDE2 ; CD67 20 E2 CD .. pha ; CD6A 48 H tay ; CD6B A8 . lda LCE28,y ; CD6C B9 28 CE .(. tax ; CD6F AA . pha ; CD70 48 H stx $9B ; CD71 86 9B .. lda #$03 ; CD73 A9 03 .. sec ; CD75 38 8 sbc $9B ; CD76 E5 9B .. sta $9B ; CD78 85 9B .. asl a ; CD7A 0A . adc $9B ; CD7B 65 9B e. jsr LC7F5 ; CD7D 20 F5 C7 .. ldy #$00 ; CD80 A0 00 .. LCD82: lda ($96),y ; CD82 B1 96 .. jsr LC805 ; CD84 20 05 C8 .. jsr LC7C3 ; CD87 20 C3 C7 .. dex ; CD8A CA . bne LCD82 ; CD8B D0 F5 .. lda #$5E ; CD8D A9 5E .^ jsr LCF63 ; CD8F 20 63 CF c. jsr LC7F3 ; CD92 20 F3 C7 .. pla ; CD95 68 h sta $9B ; CD96 85 9B .. dec $9B ; CD98 C6 9B .. sec ; CD9A 38 8 lda $96 ; CD9B A5 96 .. sbc $9B ; CD9D E5 9B .. sta $96 ; CD9F 85 96 .. lda $97 ; CDA1 A5 97 .. sbc #$00 ; CDA3 E9 00 .. sta $97 ; CDA5 85 97 .. jsr PUTx ; CDA7 20 AB CF .. ldy #$00 ; CDAA A0 00 .. lda (L0092),y ; CDAC B1 92 .. sta $9B ; CDAE 85 9B .. asl a ; CDB0 0A . adc $9B ; CDB1 65 9B e. tay ; CDB3 A8 . lda $5548,y ; CDB4 B9 48 55 .HU jsr LCF63 ; CDB7 20 63 CF c. lda $5549,y ; CDBA B9 49 55 .IU jsr LCF63 ; CDBD 20 63 CF c. lda $554A,y ; CDC0 B9 4A 55 .JU jsr LCF63 ; CDC3 20 63 CF c. jsr GETx ; CDC6 20 B9 CF .. jsr LC7F3 ; CDC9 20 F3 C7 .. pla ; CDCC 68 h asl a ; CDCD 0A . tay ; CDCE A8 . lda LCE0D,y ; CDCF B9 0D CE ... sta $93 ; CDD2 85 93 .. lda LCE0C,y ; CDD4 B9 0C CE ... sta L0092 ; CDD7 85 92 .. ldy #$00 ; CDD9 A0 00 .. jsr LCE09 ; CDDB 20 09 CE .. jsr LC7ED ; CDDE 20 ED C7 .. rts ; CDE1 60 ` ; ---------------------------------------------------------------------------- LCDE2: ldy #$00 ; CDE2 A0 00 .. lda ($96),y ; CDE4 B1 96 .. sta L0092 ; CDE6 85 92 .. lda #$00 ; CDE8 A9 00 .. sta $93 ; CDEA 85 93 .. clc ; CDEC 18 . rol L0092 ; CDED 26 92 &. rol $93 ; CDEF 26 93 &. lda #$F3 ; CDF1 A9 F3 .. adc L0092 ; CDF3 65 92 e. sta L0092 ; CDF5 85 92 .. lda #$55 ; CDF7 A9 55 .U adc $93 ; CDF9 65 93 e. sta $93 ; CDFB 85 93 .. iny ; CDFD C8 . jsr PUTx ; CDFE 20 AB CF .. lda (L0092),y ; CE01 B1 92 .. pha ; CE03 48 H jsr GETx ; CE04 20 B9 CF .. pla ; CE07 68 h rts ; CE08 60 ` ; ---------------------------------------------------------------------------- LCE09: jmp (L0092) ; CE09 6C 92 00 l.. ; ---------------------------------------------------------------------------- LCE0C: pha ; CE0C 48 H LCE0D: dec LCE36 ; CE0D CE 36 CE .6. .byte $3F ; CE10 3F ? dec LCE3B ; CE11 CE 3B CE .;. .byte $43 ; CE14 43 C dec LCE48 ; CE15 CE 48 CE .H. eor #$CE ; CE18 49 CE I. .byte $5F ; CE1A 5F _ dec LCE7B ; CE1B CE 7B CE .{. adc $CE,x ; CE1E 75 CE u. sta $CE ; CE20 85 CE .. sta $CE,x ; CE22 95 CE .. .byte $B7 ; CE24 B7 . dec LCE8B ; CE25 CE 8B CE ... LCE28: ora ($02,x) ; CE28 01 02 .. .byte $03 ; CE2A 03 . .byte $02 ; CE2B 02 . ora ($01,x) ; CE2C 01 01 .. .byte $02 ; CE2E 02 . .byte $02 ; CE2F 02 . .byte $02 ; CE30 02 . .byte $03 ; CE31 03 . .byte $03 ; CE32 03 . .byte $02 ; CE33 02 . .byte $03 ; CE34 03 . .byte $02 ; CE35 02 . LCE36: lda #$23 ; CE36 A9 23 .# jsr LCF63 ; CE38 20 63 CF c. LCE3B: jsr LCEF4 ; CE3B 20 F4 CE .. rts ; CE3E 60 ` ; ---------------------------------------------------------------------------- jsr LCF08 ; CE3F 20 08 CF .. rts ; CE42 60 ` ; ---------------------------------------------------------------------------- lda #$41 ; CE43 A9 41 .A jsr LCF63 ; CE45 20 63 CF c. LCE48: rts ; CE48 60 ` ; ---------------------------------------------------------------------------- lda #$28 ; CE49 A9 28 .( jsr LCF63 ; CE4B 20 63 CF c. jsr LCEF4 ; CE4E 20 F4 CE .. jsr LC6F2 ; CE51 20 F2 C6 .. bit $2958 ; CE54 2C 58 29 ,X) jsr L245B ; CE57 20 5B 24 [$ brk ; CE5A 00 . jsr LCECB ; CE5B 20 CB CE .. rts ; CE5E 60 ` ; ---------------------------------------------------------------------------- lda #$28 ; CE5F A9 28 .( jsr LCF63 ; CE61 20 63 CF c. jsr LCEF4 ; CE64 20 F4 CE .. jsr LC6F2 ; CE67 20 F2 C6 .. and #$2C ; CE6A 29 2C ), eor $5B20,y ; CE6C 59 20 5B Y [ bit $00 ; CE6F 24 00 $. jsr LCECB ; CE71 20 CB CE .. rts ; CE74 60 ` ; ---------------------------------------------------------------------------- jsr LCF08 ; CE75 20 08 CF .. jmp LCE7E ; CE78 4C 7E CE L~. ; ---------------------------------------------------------------------------- LCE7B: jsr LCEF4 ; CE7B 20 F4 CE .. LCE7E: jsr LC6F2 ; CE7E 20 F2 C6 .. bit a:$58 ; CE81 2C 58 00 ,X. rts ; CE84 60 ` ; ---------------------------------------------------------------------------- jsr LCF08 ; CE85 20 08 CF .. jmp LCE8E ; CE88 4C 8E CE L.. ; ---------------------------------------------------------------------------- LCE8B: jsr LCEF4 ; CE8B 20 F4 CE .. LCE8E: jsr LC6F2 ; CE8E 20 F2 C6 .. bit a:$59 ; CE91 2C 59 00 ,Y. rts ; CE94 60 ` ; ---------------------------------------------------------------------------- lda #$24 ; CE95 A9 24 .$ jsr LCF63 ; CE97 20 63 CF c. lda $96 ; CE9A A5 96 .. pha ; CE9C 48 H lda $97 ; CE9D A5 97 .. pha ; CE9F 48 H jsr LCEDE ; CEA0 20 DE CE .. jsr LC80E ; CEA3 20 0E C8 .. pla ; CEA6 68 h sta $97 ; CEA7 85 97 .. pla ; CEA9 68 h sta $96 ; CEAA 85 96 .. jsr LC7C3 ; CEAC 20 C3 C7 .. jsr LC6F2 ; CEAF 20 F2 C6 .. .byte $9B ; CEB2 9B . .byte $9C ; CEB3 9C . sta $6000,x ; CEB4 9D 00 60 ..` lda #$28 ; CEB7 A9 28 .( jsr LCF63 ; CEB9 20 63 CF c. jsr LCF08 ; CEBC 20 08 CF .. jsr LC6F2 ; CEBF 20 F2 C6 .. and #$20 ; CEC2 29 20 ) .byte $5B ; CEC4 5B [ bit $00 ; CEC5 24 00 $. jsr LCECB ; CEC7 20 CB CE .. rts ; CECA 60 ` ; ---------------------------------------------------------------------------- LCECB: ldy #$01 ; CECB A0 01 .. lda ($9C),y ; CECD B1 9C .. jsr LCF69 ; CECF 20 69 CF i. dey ; CED2 88 . lda ($9C),y ; CED3 B1 9C .. jsr LCF69 ; CED5 20 69 CF i. lda #$5D ; CED8 A9 5D .] jsr LCF63 ; CEDA 20 63 CF c. rts ; CEDD 60 ` ; ---------------------------------------------------------------------------- LCEDE: lda ($96),y ; CEDE B1 96 .. pha ; CEE0 48 H bpl LCEE5 ; CEE1 10 02 .. ldy #$FF ; CEE3 A0 FF .. LCEE5: jsr LC7C3 ; CEE5 20 C3 C7 .. clc ; CEE8 18 . pla ; CEE9 68 h adc $96 ; CEEA 65 96 e. sta $96 ; CEEC 85 96 .. tya ; CEEE 98 . adc $97 ; CEEF 65 97 e. sta $97 ; CEF1 85 97 .. rts ; CEF3 60 ` ; ---------------------------------------------------------------------------- LCEF4: lda #$24 ; CEF4 A9 24 .$ jsr LCF63 ; CEF6 20 63 CF c. lda ($96),y ; CEF9 B1 96 .. sta $9C ; CEFB 85 9C .. jsr LCF69 ; CEFD 20 69 CF i. jsr LC7C3 ; CF00 20 C3 C7 .. lda #$00 ; CF03 A9 00 .. sta $9D ; CF05 85 9D .. rts ; CF07 60 ` ; ---------------------------------------------------------------------------- LCF08: lda #$24 ; CF08 A9 24 .$ jsr LCF63 ; CF0A 20 63 CF c. lda ($96),y ; CF0D B1 96 .. sta $9C ; CF0F 85 9C .. pha ; CF11 48 H jsr LC7C3 ; CF12 20 C3 C7 .. lda ($96),y ; CF15 B1 96 .. sta $9D ; CF17 85 9D .. jsr LCF69 ; CF19 20 69 CF i. pla ; CF1C 68 h jsr LCF69 ; CF1D 20 69 CF i. jsr LC7C3 ; CF20 20 C3 C7 .. rts ; CF23 60 ` ; ---------------------------------------------------------------------------- .byte $FB ; CF24 FB . .byte $F3 ; CF25 F3 . .byte $33 ; CF26 33 3 inc $2D,x ; CF27 F6 2D .- .byte $CF ; CF29 CF . .byte $A3 ; CF2A A3 . inc $33,x ; CF2B F6 33 .3 inc $A0,x ; CF2D F6 A0 .. brk ; CF2F 00 . lda ($9E),y ; CF30 B1 9E .. pha ; CF32 48 H jsr LC15A ; CF33 20 5A C1 Z. tya ; CF36 98 . cmp ($9E),y ; CF37 D1 9E .. bne LCF45 ; CF39 D0 0A .. sta $9F ; CF3B 85 9F .. sta $0321 ; CF3D 8D 21 03 .!. lda #$E4 ; CF40 A9 E4 .. sta $0322 ; CF42 8D 22 03 .". LCF45: pla ; CF45 68 h iny ; CF46 C8 . rts ; CF47 60 ` ; ---------------------------------------------------------------------------- PRT: .byte "P:" ; CF48 50 3A P: .byte $9B ; CF4A 9B . ; ---------------------------------------------------------------------------- OmniRestG: jsr PUTx ; CF4B 20 AB CF .. jmp L530D ; CF4E 4C 0D 53 L.S ; ---------------------------------------------------------------------------- LCF51: jsr PUTx ; CF51 20 AB CF .. jmp L536F ; CF54 4C 6F 53 LoS ; ---------------------------------------------------------------------------- LCF57: jsr PUTx ; CF57 20 AB CF .. jmp L539A ; CF5A 4C 9A 53 L.S ; ---------------------------------------------------------------------------- LCF5D: jsr PUTx ; CF5D 20 AB CF .. jmp L5437 ; CF60 4C 37 54 L7T ; ---------------------------------------------------------------------------- LCF63: jsr PUTx ; CF63 20 AB CF .. jmp L5035 ; CF66 4C 35 50 L5P ; ---------------------------------------------------------------------------- LCF69: jsr PUTx ; CF69 20 AB CF .. jmp L505F ; CF6C 4C 5F 50 L_P ; ---------------------------------------------------------------------------- LCF6F: jsr PUTx ; CF6F 20 AB CF .. jmp L50CF ; CF72 4C CF 50 L.P ; ---------------------------------------------------------------------------- LCF75: jsr PUTx ; CF75 20 AB CF .. jmp L5108 ; CF78 4C 08 51 L.Q ; ---------------------------------------------------------------------------- LCF7B: jsr PUTx ; CF7B 20 AB CF .. jmp L5152 ; CF7E 4C 52 51 LRQ ; ---------------------------------------------------------------------------- LCF81: jsr PUTx ; CF81 20 AB CF .. jmp L5184 ; CF84 4C 84 51 L.Q ; ---------------------------------------------------------------------------- LCF87: jsr PUTx ; CF87 20 AB CF .. jmp L51C2 ; CF8A 4C C2 51 L.Q ; ---------------------------------------------------------------------------- LCF8D: jsr PUTx ; CF8D 20 AB CF .. jmp L51D1 ; CF90 4C D1 51 L.Q ; ---------------------------------------------------------------------------- LCF93: jsr PUTx ; CF93 20 AB CF .. jmp L5208 ; CF96 4C 08 52 L.R ; ---------------------------------------------------------------------------- LCF99: jsr PUTx ; CF99 20 AB CF .. jmp L523C ; CF9C 4C 3C 52 L<R ; ---------------------------------------------------------------------------- LCF9F: jsr PUTx ; CF9F 20 AB CF .. jmp L5252 ; CFA2 4C 52 52 LRR ; ---------------------------------------------------------------------------- LCFA5: jsr PUTx ; CFA5 20 AB CF .. jmp L5262 ; CFA8 4C 62 52 LbR ; ---------------------------------------------------------------------------- PUTx: pha ; CFAB 48 H inc $0129 ; CFAC EE 29 01 .). lda $D301 ; CFAF AD 01 D3 ... and #$7F ; CFB2 29 7F ). sta $D301 ; CFB4 8D 01 D3 ... pla ; CFB7 68 h rts ; CFB8 60 ` ; ---------------------------------------------------------------------------- GETx: php ; CFB9 08 . pha ; CFBA 48 H dec $0129 ; CFBB CE 29 01 .). bne LCFC8 ; CFBE D0 08 .. lda $D301 ; CFC0 AD 01 D3 ... ora #$80 ; CFC3 09 80 .. sta $D301 ; CFC5 8D 01 D3 ... LCFC8: pla ; CFC8 68 h plp ; CFC9 28 ( rts ; CFCA 60 ` ; ---------------------------------------------------------------------------- ; jJump = $CFCB jJump: jsr PUTx ; CFCB 20 AB CF .. jmp L5000 ; CFCE 4C 00 50 L.P ; ---------------------------------------------------------------------------- ; pPush = $CFD1 pPush: jsr PUTx ; CFD1 20 AB CF .. jmp L5467 ; CFD4 4C 67 54 LgT ; ---------------------------------------------------------------------------- ; pPop = $CFD7 pPop: jsr PUTx ; CFD7 20 AB CF .. jmp L5477 ; CFDA 4C 77 54 LwT ; ---------------------------------------------------------------------------- ; hHex = $CFDD hHex: jsr PUTx ; CFDD 20 AB CF .. jmp L5483 ; CFE0 4C 83 54 L.T ; ---------------------------------------------------------------------------- ; pPrint = $CFE3 pPrint: jsr PUTx ; CFE3 20 AB CF .. jmp L5074 ; CFE6 4C 74 50 LtP ; ---------------------------------------------------------------------------- ; lLink = $CFE9 lLink: jsr PUTx ; CFE9 20 AB CF .. jmp L50A5 ; CFEC 4C A5 50 L.P ; ---------------------------------------------------------------------------- jsr GETx ; CFEF 20 B9 CF .. jmp LC08F ; CFF2 4C 8F C0 L.. ; ---------------------------------------------------------------------------- .byte $FF ; CFF5 FF . brk ; CFF6 00 . .byte $FF ; CFF7 FF . brk ; CFF8 00 . .byte $FF ; CFF9 FF . brk ; CFFA 00 . .byte $FF ; CFFB FF . brk ; CFFC 00 . .byte $FF ; CFFD FF . brk ; CFFE 00 .