CBM Basic V1 Disassembly
Suche
Index
FAQ
Kontakt
Zurück
rom-1.bin

Automatic Generated Disassembly of `rom-1.bin'



; *** text follows ***

 *=$C000





; Basic command table

 C000  BASADDR    .word END     -1, FOR     -1, NEXT    -1, DATA    -1
 C008             .word INPUTF  -1, INPUT   -1, DIM     -1, READ    -1
 C010             .word LET     -1, GOTO    -1, RUN     -1, IF      -1
 C018             .word RESTORE -1, GOSUB   -1, RETURN  -1, REM     -1
 C020             .word TSTSTOP -1, ON      -1, WAIT    -1, LOAD    -1
 C028             .word SAVE    -1, VERIFY  -1, DEF     -1, POKE    -1
 C030             .word PRINTF  -1, PRINT   -1, CONT    -1, LIST    -1
 C038             .word CLR     -1, CMD     -1, SYS     -1, OPEN    -1
 C040             .word CLOSE   -1, GET     -1, NEW     -1



; Function address table

 C046             .word SGN     , INT     , ABS     , USR     
 C04E             .word FRE     , POS     , SQR     , RND     
 C056             .word LOG     , EXP     , COS     , SIN     
 C05E             .word TAN     , ATN     , PEEK    , LEN     
 C066             .word STR     , VAL     , ASC     , CHR     
 C06E             .word LEFT    , RIGHT   , MID     



; Operator table with priority and address

 C074  OPTABLE    .byte $79, $3E, $D7, $79, $27, $D7, $7B, $FF  ;Y>WY'W{.
 C07C             .byte $D8, $7B, $E3, $D9, $7F, $2D, $DE, $50  ;X{.Y.-.p
 C084             .byte $D8, $CE, $46, $D5, $CE, $7D, $66, $DE  ;XNfUN}F.
 C08C             .byte $5A, $E7, $CD, $64, $05, $CF            ;z.MDeO


; BASIC keywords

 C092  KEYWORDS   .byte $45, $4E, $C4, $46, $4F, $D2, $4E, $45  ;enDfoRne
 C09A             .byte $58, $D4, $44, $41, $54, $C1, $49, $4E  ;xTdatAin
 C0A2             .byte $50, $55, $54, $A3, $49, $4E, $50, $55  ;put#inpu
 C0AA             .byte $D4, $44, $49, $CD, $52, $45, $41, $C4  ;TdiMreaD
 C0B2             .byte $4C, $45, $D4, $47, $4F, $54, $CF, $52  ;leTgotOr
 C0BA             .byte $55, $CE, $49, $C6, $52, $45, $53, $54  ;uNiFrest
 C0C2             .byte $4F, $52, $C5, $47, $4F, $53, $55, $C2  ;orEgosuB
 C0CA             .byte $52, $45, $54, $55, $52, $CE, $52, $45  ;returNre
 C0D2             .byte $CD, $53, $54, $4F, $D0, $4F, $CE, $57  ;MstoPoNw
 C0DA             .byte $41, $49, $D4, $4C, $4F, $41, $C4, $53  ;aiTloaDs
 C0E2             .byte $41, $56, $C5, $56, $45, $52, $49, $46  ;avEverif
 C0EA             .byte $D9, $44, $45, $C6, $50, $4F, $4B, $C5  ;YdeFpokE
 C0F2             .byte $50, $52, $49, $4E, $54, $A3, $50, $52  ;print#pr
 C0FA             .byte $49, $4E, $D4, $43, $4F, $4E, $D4, $4C  ;inTconTl
 C102             .byte $49, $53, $D4, $43, $4C, $D2, $43, $4D  ;isTclRcm
 C10A             .byte $C4, $53, $59, $D3, $4F, $50, $45, $CE  ;DsySopeN
 C112             .byte $43, $4C, $4F, $53, $C5, $47, $45, $D4  ;closEgeT
 C11A             .byte $4E, $45, $D7, $54, $41, $42, $A8, $54  ;neWtab(t
 C122             .byte $CF, $46, $CE, $53, $50, $43, $A8, $54  ;OfNspc(t
 C12A             .byte $48, $45, $CE, $4E, $4F, $D4, $53, $54  ;heNnoTst
 C132             .byte $45, $D0, $AB, $AD, $AA, $AF, $DE, $41  ;eP+-*/.a
 C13A             .byte $4E, $C4, $4F, $D2, $BE, $BD, $BC, $53  ;nDoR=s
 C142             .byte $47, $CE, $49, $4E, $D4, $41, $42, $D3  ;gNinTabS
 C14A             .byte $55, $53, $D2, $46, $52, $C5, $50, $4F  ;usRfrEpo
 C152             .byte $D3, $53, $51, $D2, $52, $4E, $C4, $4C  ;SsqRrnDl
 C15A             .byte $4F, $C7, $45, $58, $D0, $43, $4F, $D3  ;oGexPcoS
 C162             .byte $53, $49, $CE, $54, $41, $CE, $41, $54  ;siNtaNat
 C16A             .byte $CE, $50, $45, $45, $CB, $4C, $45, $CE  ;NpeeKleN
 C172             .byte $53, $54, $52, $A4, $56, $41, $CC, $41  ;str$vaLa
 C17A             .byte $53, $C3, $43, $48, $52, $A4, $4C, $45  ;sCchr$le
 C182             .byte $46, $54, $A4, $52, $49, $47, $48, $54  ;ft$right
 C18A             .byte $A4, $4D, $49, $44, $A4, $00            ;$mid$.


; System messages 
ERRTAB
 C190             .byte $4E, $45, $58, $54, $20, $57, $49, $54  ;next wit
 C198             .byte $48, $4F, $55, $54, $20, $46, $4F, $D2  ;hout foR
 C1A0             .byte $53, $59, $4E, $54, $41, $D8, $52, $45  ;syntaXre
 C1A8             .byte $54, $55, $52, $4E, $20, $57, $49, $54  ;turn wit
 C1B0             .byte $48, $4F, $55, $54, $20, $47, $4F, $53  ;hout gos
 C1B8             .byte $55, $C2, $4F, $55, $54, $20, $4F, $46  ;uBout of
 C1C0             .byte $20, $44, $41, $54, $C1, $49, $4C, $4C  ; datAill
 C1C8             .byte $45, $47, $41, $4C, $20, $51, $55, $41  ;egal qua
 C1D0             .byte $4E, $54, $49, $54, $D9, $00, $00, $00  ;ntitY...
 C1D8             .byte $00, $00, $4F, $56, $45, $52, $46, $4C  ;..overfl
 C1E0             .byte $4F, $D7, $4F, $55, $54, $20, $4F, $46  ;oWout of
 C1E8             .byte $20, $4D, $45, $4D, $4F, $52, $D9, $55  ; memorYu
 C1F0             .byte $4E, $44, $45, $46, $27, $44, $20, $53  ;ndef'd s
 C1F8             .byte $54, $41, $54, $45, $4D, $45, $4E, $D4  ;tatemenT
 C200             .byte $42, $41, $44, $20, $53, $55, $42, $53  ;bad subs
 C208             .byte $43, $52, $49, $50, $D4, $52, $45, $44  ;cripTred
 C210             .byte $49, $4D, $27, $44, $20, $41, $52, $52  ;im'd arr
 C218             .byte $41, $D9, $44, $49, $56, $49, $53, $49  ;aYdivisi
 C220             .byte $4F, $4E, $20, $42, $59, $20, $5A, $45  ;on by ze
 C228             .byte $52, $CF, $49, $4C, $4C, $45, $47, $41  ;rOillega
 C230             .byte $4C, $20, $44, $49, $52, $45, $43, $D4  ;l direcT
 C238             .byte $54, $59, $50, $45, $20, $4D, $49, $53  ;type mis
 C240             .byte $4D, $41, $54, $43, $C8, $53, $54, $52  ;matcHstr
 C248             .byte $49, $4E, $47, $20, $54, $4F, $4F, $20  ;ing too 
 C250             .byte $4C, $4F, $4E, $C7, $42, $41, $44, $20  ;lonGbad 
 C258             .byte $44, $41, $54, $C1, $46, $4F, $52, $4D  ;datAform
 C260             .byte $55, $4C, $41, $20, $54, $4F, $4F, $20  ;ula too 
 C268             .byte $43, $4F, $4D, $50, $4C, $45, $D8, $43  ;compleXc
 C270             .byte $41, $4E, $27, $54, $20, $43, $4F, $4E  ;an't con
 C278             .byte $54, $49, $4E, $55, $C5, $55, $4E, $44  ;tinuEund
 C280             .byte $45, $46, $27, $44, $20, $46, $55, $4E  ;ef'd fun
 C288             .byte $43, $54, $49, $4F, $CE, $20, $45, $52  ;ctioN er
 C290             .byte $52, $4F, $52, $00, $20, $49, $4E, $20  ;ror. in 
 C298             .byte $00, $0D, $0A, $52, $45, $41, $44, $59  ;.mjready
 C2A0             .byte $2E, $0D, $0A, $00, $0D, $0A, $42, $52  ;.mj.mjbr
 C2A8             .byte $45, $41, $4B, $00                      ;eak.

 C2AC  BA        iC2AC      TSX           
 C2AD  E8                   INX           
 C2AE  E8                   INX           
 C2AF  E8                   INX           
 C2B0  E8                   INX           
 C2B1  BD 01 01  iC2B1      LDA STACK+1,X 
 C2B4  C9 81                CMP #$81      
 C2B6  D0 21                BNE iC2D9     
 C2B8  A5 99                LDA x99       
 C2BA  D0 0A                BNE iC2C6     
 C2BC  BD 02 01             LDA STACK+2,X 
 C2BF  85 98                STA x98       
 C2C1  BD 03 01             LDA STACK+3,X 
 C2C4  85 99                STA x99       
 C2C6  DD 03 01  iC2C6      CMP STACK+3,X 
 C2C9  D0 07                BNE iC2D2     
 C2CB  A5 98                LDA x98       
 C2CD  DD 02 01             CMP STACK+2,X 
 C2D0  F0 07                BEQ iC2D9     
 C2D2  8A        iC2D2      TXA           
 C2D3  18                   CLC           
 C2D4  69 12                ADC #$12      
 C2D6  AA                   TAX           
 C2D7  D0 D8                BNE iC2B1     
 C2D9  60        iC2D9      RTS           

 C2DA  20 2A C3  iC2DA      JSR iC32A     
 C2DD  85 80                STA x80       
 C2DF  84 81                STY x81       
 C2E1  38        iC2E1      SEC           
 C2E2  A5 A9                LDA xA9       
 C2E4  E5 AE                SBC xAE       
 C2E6  85 71                STA x71       
 C2E8  A8                   TAY           
 C2E9  A5 AA                LDA xAA       
 C2EB  E5 AF                SBC xAF       
 C2ED  AA                   TAX           
 C2EE  E8                   INX           
 C2EF  98                   TYA           
 C2F0  F0 23                BEQ iC315     
 C2F2  A5 A9                LDA xA9       
 C2F4  38                   SEC           
 C2F5  E5 71                SBC x71       
 C2F7  85 A9                STA xA9       
 C2F9  B0 03                BCS iC2FE     
 C2FB  C6 AA                DEC xAA       
 C2FD  38                   SEC           
 C2FE  A5 A7     iC2FE      LDA xA7       
 C300  E5 71                SBC x71       
 C302  85 A7                STA xA7       
 C304  B0 08                BCS iC30E     
 C306  C6 A8                DEC xA8       
 C308  90 04                BCC iC30E     
 C30A  B1 A9     iC30A      LDA (xA9),Y   
 C30C  91 A7                STA (xA7),Y   
 C30E  88        iC30E      DEY           
 C30F  D0 F9                BNE iC30A     
 C311  B1 A9                LDA (xA9),Y   
 C313  91 A7                STA (xA7),Y   
 C315  C6 AA     iC315      DEC xAA       
 C317  C6 A8                DEC xA8       
 C319  CA                   DEX           
 C31A  D0 F2                BNE iC30E     
 C31C  60                   RTS           

 C31D  0A        iC31D      ASL           
 C31E  69 36                ADC #$36      
 C320  B0 35                BCS iC357     
 C322  85 71                STA x71       
 C324  BA                   TSX           
 C325  E4 71                CPX x71       
 C327  90 2E                BCC iC357     
 C329  60                   RTS           
 C32A  C4 83     iC32A      CPY x83       
 C32C  90 28                BCC iC356     
 C32E  D0 04                BNE iC334     
 C330  C5 82                CMP x82       
 C332  90 22                BCC iC356     
 C334  48        iC334      PHA           
 C335  A2 09                LDX #$09      
 C337  98                   TYA           
 C338  48        iC338      PHA           
 C339  B5 A6                LDA xA6,X     
 C33B  CA                   DEX           
 C33C  10 FA                BPL iC338     
 C33E  20 04 D4             JSR iD404     
 C341  A2 F7                LDX #$F7      
 C343  68        iC343      PLA           
 C344  95 B0                STA xB0,X     
 C346  E8                   INX           
 C347  30 FA                BMI iC343     
 C349  68                   PLA           
 C34A  A8                   TAY           
 C34B  68                   PLA           
 C34C  C4 83                CPY x83       
 C34E  90 06                BCC iC356     
 C350  D0 05                BNE iC357     
 C352  C5 82                CMP x82       
 C354  B0 01                BCS iC357     
 C356  60        iC356      RTS           
 C357  A2 52     iC357      LDX #$52      
 C359  46 64     iC359      LSR x64       
 C35B  A5 03                LDA x03       
 C35D  F0 07                BEQ iC366     
 C35F  20 CC FF             JSR CLRCH     
 C362  A9 00                LDA #$00      
 C364  85 03                STA x03       
 C366  20 D2 C9  iC366      JSR iC9D2     
 C369  20 47 CA             JSR iCA47     
 C36C  BD 90 C1  iC36C      LDA ERRTAB,X  
 C36F  48                   PHA           
 C370  29 7F                AND #$7F      
 C372  20 49 CA             JSR iCA49     
 C375  E8                   INX           
 C376  68                   PLA           
 C377  10 F3                BPL iC36C     
 C379  20 84 C5  iC379      JSR iC584     
 C37C  A9 8D                LDA #$8D      
 C37E  A0 C2                LDY #$C2      
 C380  20 27 CA  iC380      JSR iCA27     
 C383  A4 89                LDY x89       
 C385  C8                   INY           
 C386  F0 03                BEQ iC38B     
 C388  20 94 DC             JSR iDC94     
 C38B  46 64     iC38B      LSR x64       
 C38D  A9 99                LDA #$99      
 C38F  A0 C2                LDY #$C2      
 C391  20 27 CA             JSR iCA27     
 C394  20 68 C4  iC394      JSR iC468     
 C397  86 C9                STX xC9       
 C399  84 CA                STY xCA       
 C39B  20 C2 00             JSR iC2       
 C39E  F0 F4                BEQ iC394     
 C3A0  A2 FF                LDX #$FF      
 C3A2  86 89                STX x89       
 C3A4  90 06                BCC iC3AC     
 C3A6  20 8D C4             JSR iC48D     
 C3A9  4C E9 C6             JMP iC6E9     
 C3AC  20 63 C8  iC3AC      JSR iC863     
 C3AF  20 8D C4             JSR iC48D     
 C3B2  84 5C                STY x5C       
 C3B4  20 22 C5             JSR iC522     
 C3B7  90 44                BCC iC3FD     
 C3B9  A0 01                LDY #$01      
 C3BB  B1 AE                LDA (xAE),Y   
 C3BD  85 72                STA x72       
 C3BF  A5 7C                LDA x7C       
 C3C1  85 71                STA x71       
 C3C3  A5 AF                LDA xAF       
 C3C5  85 74                STA x74       
 C3C7  A5 AE                LDA xAE       
 C3C9  88                   DEY           
 C3CA  F1 AE                SBC (xAE),Y   
 C3CC  18                   CLC           
 C3CD  65 7C                ADC x7C       
 C3CF  85 7C                STA x7C       
 C3D1  85 73                STA x73       
 C3D3  A5 7D                LDA x7D       
 C3D5  69 FF                ADC #$FF      
 C3D7  85 7D                STA x7D       
 C3D9  E5 AF                SBC xAF       
 C3DB  AA                   TAX           
 C3DC  38                   SEC           
 C3DD  A5 AE                LDA xAE       
 C3DF  E5 7C                SBC x7C       
 C3E1  A8                   TAY           
 C3E2  B0 03                BCS iC3E7     
 C3E4  E8                   INX           
 C3E5  C6 74                DEC x74       
 C3E7  18        iC3E7      CLC           
 C3E8  65 71                ADC x71       
 C3EA  90 03                BCC iC3EF     
 C3EC  C6 72                DEC x72       
 C3EE  18                   CLC           
 C3EF  B1 71     iC3EF      LDA (x71),Y   
 C3F1  91 73                STA (x73),Y   
 C3F3  C8                   INY           
 C3F4  D0 F9                BNE iC3EF     
 C3F6  E6 72                INC x72       
 C3F8  E6 74                INC x74       
 C3FA  CA                   DEX           
 C3FB  D0 F2                BNE iC3EF     
 C3FD  A5 0A     iC3FD      LDA x0A       
 C3FF  F0 2F                BEQ iC430     
 C401  A5 86                LDA x86       
 C403  A4 87                LDY x87       
 C405  85 82                STA x82       
 C407  84 83                STY x83       
 C409  A5 7C                LDA x7C       
 C40B  85 A9                STA xA9       
 C40D  65 5C                ADC x5C       
 C40F  85 A7                STA xA7       
 C411  A4 7D                LDY x7D       
 C413  84 AA                STY xAA       
 C415  90 01                BCC iC418     
 C417  C8                   INY           
 C418  84 A8     iC418      STY xA8       
 C41A  20 DA C2             JSR iC2DA     
 C41D  A5 80                LDA x80       
 C41F  A4 81                LDY x81       
 C421  85 7C                STA x7C       
 C423  84 7D                STY x7D       
 C425  A4 5C                LDY x5C       
 C427  88                   DEY           
 C428  B9 06 00  iC428      LDA x06,Y     
 C42B  91 AE                STA (xAE),Y   
 C42D  88                   DEY           
 C42E  10 F8                BPL iC428     
 C430  20 67 C5  iC430      JSR iC567     
 C433  A5 7A                LDA x7A       
 C435  A4 7B                LDY x7B       
 C437  85 71                STA x71       
 C439  84 72                STY x72       
 C43B  18                   CLC           
 C43C  A0 01     iC43C      LDY #$01      
 C43E  B1 71                LDA (x71),Y   
 C440  D0 03                BNE iC445     
 C442  4C 94 C3             JMP iC394     
 C445  A0 04     iC445      LDY #$04      
 C447  C8        iC447      INY           
 C448  B1 71                LDA (x71),Y   
 C44A  D0 FB                BNE iC447     
 C44C  C8                   INY           
 C44D  98                   TYA           
 C44E  65 71                ADC x71       
 C450  AA                   TAX           
 C451  A0 00                LDY #$00      
 C453  91 71                STA (x71),Y   
 C455  A5 72                LDA x72       
 C457  69 00                ADC #$00      
 C459  C8                   INY           
 C45A  91 71                STA (x71),Y   
 C45C  86 71                STX x71       
 C45E  85 72                STA x72       
 C460  90 DA                BCC iC43C     
 C462  CA                   DEX           
 C463  10 05                BPL iC46A     
 C465  20 D2 C9             JSR iC9D2     
 C468  A2 00     iC468      LDX #$00      
 C46A  20 79 C4  iC46A      JSR iC479     
 C46D  C9 0D                CMP #$0D      
 C46F  F0 05                BEQ iC476     
 C471  95 0A                STA x0A,X     
 C473  E8                   INX           
 C474  D0 F4                BNE iC46A     
 C476  4C C8 C9  iC476      JMP iC9C8     

 C479  20 CF FF  iC479      JSR BASIN     
 C47C  A4 03                LDY x03       
 C47E  D0 0C                BNE iC48C     
 C480  C9 0F                CMP #$0F      
 C482  D0 08                BNE iC48C     
 C484  48                   PHA           
 C485  A5 64                LDA x64       
 C487  49 FF                EOR #$FF      
 C489  85 64                STA x64       
 C48B  68                   PLA           
 C48C  60        iC48C      RTS           

 C48D  A6 C9     iC48D      LDX xC9       
 C48F  A0 04                LDY #$04      
 C491  84 60                STY x60       
 C493  B5 00     iC493      LDA USR,X     
 C495  10 07                BPL iC49E     
 C497  C9 FF                CMP #$FF      
 C499  F0 41                BEQ iC4DC     
 C49B  E8                   INX           
 C49C  D0 F5                BNE iC493     
 C49E  C9 20     iC49E      CMP #$20      
 C4A0  F0 3A                BEQ iC4DC     
 C4A2  85 5B                STA x5B       
 C4A4  C9 22                CMP #$22      
 C4A6  F0 58                BEQ iC500     
 C4A8  24 60                BIT x60       
 C4AA  70 30                BVS iC4DC     
 C4AC  C9 3F                CMP #$3F      
 C4AE  D0 04                BNE iC4B4     
 C4B0  A9 99                LDA #$99      
 C4B2  D0 28                BNE iC4DC     
 C4B4  C9 30     iC4B4      CMP #$30      
 C4B6  90 04                BCC iC4BC     
 C4B8  C9 3C                CMP #$3C      
 C4BA  90 20                BCC iC4DC     
 C4BC  84 C0     iC4BC      STY xC0       
 C4BE  A0 00                LDY #$00      
 C4C0  84 5C                STY x5C       
 C4C2  88                   DEY           
 C4C3  86 C9                STX xC9       
 C4C5  CA                   DEX           
 C4C6  C8        iC4C6      INY           
 C4C7  E8        iC4C7      INX           
 C4C8  B5 00     iC4C8      LDA USR,X     
 C4CA  C9 20                CMP #$20      
 C4CC  F0 F9                BEQ iC4C7     
 C4CE  38                   SEC           
 C4CF  F9 92 C0             SBC KEYWORDS,Y
 C4D2  F0 F2                BEQ iC4C6     
 C4D4  C9 80                CMP #$80      
 C4D6  D0 2F                BNE iC507     
 C4D8  05 5C                ORA x5C       
 C4DA  A4 C0     iC4DA      LDY xC0       
 C4DC  E8        iC4DC      INX           
 C4DD  C8                   INY           
 C4DE  99 05 00             STA x05,Y     
 C4E1  B9 05 00             LDA x05,Y     
 C4E4  F0 34                BEQ iC51A     
 C4E6  38                   SEC           
 C4E7  E9 3A                SBC #$3A      
 C4E9  F0 04                BEQ iC4EF     
 C4EB  C9 49                CMP #$49      
 C4ED  D0 02                BNE iC4F1     
 C4EF  85 60     iC4EF      STA x60       
 C4F1  38        iC4F1      SEC           
 C4F2  E9 55                SBC #$55      
 C4F4  D0 9D                BNE iC493     
 C4F6  85 5B                STA x5B       
 C4F8  B5 00     iC4F8      LDA USR,X     
 C4FA  F0 E0                BEQ iC4DC     
 C4FC  C5 5B                CMP x5B       
 C4FE  F0 DC                BEQ iC4DC     
 C500  C8        iC500      INY           
 C501  99 05 00             STA x05,Y     
 C504  E8                   INX           
 C505  D0 F1                BNE iC4F8     
 C507  A6 C9     iC507      LDX xC9       
 C509  E6 5C                INC x5C       
 C50B  C8        iC50B      INY           
 C50C  B9 91 C0             LDA KEYWORDS-1,Y              
 C50F  10 FA                BPL iC50B     
 C511  B9 92 C0             LDA KEYWORDS,Y
 C514  D0 B2                BNE iC4C8     
 C516  B5 00                LDA USR,X     
 C518  10 C0                BPL iC4DA     
 C51A  99 07 00  iC51A      STA x07,Y     
 C51D  A9 09                LDA #$09      
 C51F  85 C9                STA xC9       
 C521  60                   RTS           

 C522  A5 7A     iC522      LDA x7A       
 C524  A6 7B                LDX x7B       
 C526  A0 01     iC526      LDY #$01      
 C528  85 AE                STA xAE       
 C52A  86 AF                STX xAF       
 C52C  B1 AE                LDA (xAE),Y   
 C52E  F0 1F                BEQ iC54F     
 C530  C8                   INY           
 C531  C8                   INY           
 C532  A5 09                LDA x09       
 C534  D1 AE                CMP (xAE),Y   
 C536  90 18                BCC iC550     
 C538  F0 03                BEQ iC53D     
 C53A  88                   DEY           
 C53B  D0 09                BNE iC546     
 C53D  A5 08     iC53D      LDA x08       
 C53F  88                   DEY           
 C540  D1 AE                CMP (xAE),Y   
 C542  90 0C                BCC iC550     
 C544  F0 0A                BEQ iC550     
 C546  88        iC546      DEY           
 C547  B1 AE                LDA (xAE),Y   
 C549  AA                   TAX           
 C54A  88                   DEY           
 C54B  B1 AE                LDA (xAE),Y   
 C54D  B0 D7                BCS iC526     
 C54F  18        iC54F      CLC           
 C550  60        iC550      RTS           

 C551  D0 FD     NEW        BNE iC550     
 C553  A9 00     iC553      LDA #$00      
 C555  A8                   TAY           
 C556  91 7A                STA (x7A),Y   
 C558  C8                   INY           
 C559  91 7A                STA (x7A),Y   
 C55B  A5 7A                LDA x7A       
 C55D  69 02                ADC #$02      
 C55F  85 7C                STA x7C       
 C561  A5 7B                LDA x7B       
 C563  69 00                ADC #$00      
 C565  85 7D                STA x7D       
 C567  20 9A C5  iC567      JSR iC59A     
 C56A  A5 86     iC56A      LDA x86       
 C56C  A4 87                LDY x87       
 C56E  85 82                STA x82       
 C570  84 83                STY x83       
 C572  20 E7 FF             JSR CLALL     
 C575  A5 7C                LDA x7C       
 C577  A4 7D                LDY x7D       
 C579  85 7E                STA x7E       
 C57B  84 7F                STY x7F       
 C57D  85 80                STA x80       
 C57F  84 81                STY x81       
 C581  20 0D C7  iC581      JSR RESTORE   
 C584  A2 68     iC584      LDX #$68      
 C586  86 65                STX x65       
 C588  68                   PLA           
 C589  A8                   TAY           
 C58A  68                   PLA           
 C58B  A2 FE                LDX #$FE      
 C58D  9A                   TXS           
 C58E  48                   PHA           
 C58F  98                   TYA           
 C590  48                   PHA           
 C591  A9 00                LDA #$00      
 C593  85 8D                STA x8D       
 C595  85 61                STA x61       
 C597  60                   RTS           

 C598  51                   .byte $51
 C599  60        iC599      RTS           

 C59A  18        iC59A      CLC           
 C59B  A5 7A                LDA x7A       
 C59D  69 FF                ADC #$FF      
 C59F  85 C9                STA xC9       
 C5A1  A5 7B                LDA x7B       
 C5A3  69 FF                ADC #$FF      
 C5A5  85 CA                STA xCA       
 C5A7  60                   RTS           

 C5A8  90 06     LIST       BCC iC5B0     
 C5AA  F0 04                BEQ iC5B0     
 C5AC  C9 AB                CMP #$AB      
 C5AE  D0 E9                BNE iC599     
 C5B0  20 63 C8  iC5B0      JSR iC863     
 C5B3  20 22 C5             JSR iC522     
 C5B6  20 C8 00             JSR iC8       
 C5B9  F0 0C                BEQ iC5C7     
 C5BB  C9 AB                CMP #$AB      
 C5BD  D0 91                BNE iC550     
 C5BF  20 C2 00             JSR iC2       
 C5C2  20 63 C8             JSR iC863     
 C5C5  D0 89                BNE iC550     
 C5C7  68        iC5C7      PLA           
 C5C8  68                   PLA           
 C5C9  A5 08                LDA x08       
 C5CB  05 09                ORA x09       
 C5CD  D0 06                BNE iC5D5     
 C5CF  A9 FF                LDA #$FF      
 C5D1  85 08                STA x08       
 C5D3  85 09                STA x09       
 C5D5  A0 01     iC5D5      LDY #$01      
 C5D7  84 60                STY x60       
 C5D9  B1 AE                LDA (xAE),Y   
 C5DB  F0 41                BEQ iC61E     
 C5DD  20 E1 FF             JSR GETSTP    
 C5E0  20 D2 C9             JSR iC9D2     
 C5E3  C8                   INY           
 C5E4  B1 AE                LDA (xAE),Y   
 C5E6  AA                   TAX           
 C5E7  C8                   INY           
 C5E8  B1 AE                LDA (xAE),Y   
 C5EA  C5 09                CMP x09       
 C5EC  D0 04                BNE iC5F2     
 C5EE  E4 08                CPX x08       
 C5F0  F0 02                BEQ iC5F4     
 C5F2  B0 2A     iC5F2      BCS iC61E     
 C5F4  84 98     iC5F4      STY x98       
 C5F6  20 9F DC             JSR iDC9F     
 C5F9  A9 20                LDA #$20      
 C5FB  A4 98     iC5FB      LDY x98       
 C5FD  29 7F                AND #$7F      
 C5FF  20 49 CA  iC5FF      JSR iCA49     
 C602  C9 22                CMP #$22      
 C604  D0 06                BNE iC60C     
 C606  A5 60                LDA x60       
 C608  49 FF                EOR #$FF      
 C60A  85 60                STA x60       
 C60C  C8        iC60C      INY           
 C60D  B1 AE                LDA (xAE),Y   
 C60F  D0 10                BNE iC621     
 C611  A8                   TAY           
 C612  B1 AE                LDA (xAE),Y   
 C614  AA                   TAX           
 C615  C8                   INY           
 C616  B1 AE                LDA (xAE),Y   
 C618  86 AE                STX xAE       
 C61A  85 AF                STA xAF       
 C61C  D0 B7                BNE iC5D5     
 C61E  4C 8B C3  iC61E      JMP iC38B     
 C621  10 DC     iC621      BPL iC5FF     
 C623  C9 FF                CMP #$FF      
 C625  F0 D8                BEQ iC5FF     
 C627  24 60                BIT x60       
 C629  30 D4                BMI iC5FF     
 C62B  38                   SEC           
 C62C  E9 7F                SBC #$7F      
 C62E  AA                   TAX           
 C62F  84 98                STY x98       
 C631  A0 FF                LDY #$FF      
 C633  CA        iC633      DEX           
 C634  F0 08                BEQ iC63E     
 C636  C8        iC636      INY           
 C637  B9 92 C0             LDA KEYWORDS,Y
 C63A  10 FA                BPL iC636     
 C63C  30 F5                BMI iC633     
 C63E  C8        iC63E      INY           
 C63F  B9 92 C0             LDA KEYWORDS,Y
 C642  30 B7                BMI iC5FB     
 C644  20 49 CA             JSR iCA49     
 C647  D0 F5                BNE iC63E     
 C649  A9 80     FOR        LDA #$80      
 C64B  85 61                STA x61       
 C64D  20 9D C8             JSR LET       
 C650  20 AC C2             JSR iC2AC     
 C653  D0 05                BNE iC65A     
 C655  8A                   TXA           
 C656  69 0F                ADC #$0F      
 C658  AA                   TAX           
 C659  9A                   TXS           
 C65A  68        iC65A      PLA           
 C65B  68                   PLA           
 C65C  A9 09                LDA #$09      
 C65E  20 1D C3             JSR iC31D     
 C661  20 FE C7             JSR iC7FE     
 C664  18                   CLC           
 C665  98                   TYA           
 C666  65 C9                ADC xC9       
 C668  48                   PHA           
 C669  A5 CA                LDA xCA       
 C66B  69 00                ADC #$00      
 C66D  48                   PHA           
 C66E  A5 89                LDA x89       
 C670  48                   PHA           
 C671  A5 88                LDA x88       
 C673  48                   PHA           
 C674  A9 A4                LDA #$A4      
 C676  20 13 CE             JSR iCE13     
 C679  20 A7 CC             JSR iCCA7     
 C67C  20 A4 CC             JSR iCCA4     
 C67F  A5 B5                LDA xB5       
 C681  09 7F                ORA #$7F      
 C683  25 B1                AND xB1       
 C685  85 B1                STA xB1       
 C687  A9 92                LDA #$92      
 C689  A0 C6                LDY #$C6      
 C68B  85 71                STA x71       
 C68D  84 72                STY x72       
 C68F  4C 5D CD             JMP iCD5D     

 C692  A9 91                LDA #$91      
 C694  A0 D8                LDY #$D8      
 C696  20 74 DA             JSR iDA74     
 C699  20 C8 00             JSR iC8       
 C69C  C9 A9                CMP #$A9      
 C69E  D0 06                BNE iC6A6     
 C6A0  20 C2 00             JSR iC2       
 C6A3  20 A4 CC             JSR iCCA4     
 C6A6  20 FD DA  iC6A6      JSR iDAFD     
 C6A9  20 52 CD             JSR iCD52     
 C6AC  A5 99                LDA x99       
 C6AE  48                   PHA           
 C6AF  A5 98                LDA x98       
 C6B1  48                   PHA           
 C6B2  A9 81                LDA #$81      
 C6B4  48                   PHA           
 C6B5  20 E1 FF  iC6B5      JSR GETSTP    
 C6B8  A5 C9                LDA xC9       
 C6BA  A4 CA                LDY xCA       
 C6BC  F0 06                BEQ iC6C4     
 C6BE  85 8C                STA x8C       
 C6C0  84 8D                STY x8D       
 C6C2  A0 00                LDY #$00      
 C6C4  B1 C9     iC6C4      LDA (xC9),Y   
 C6C6  F0 07                BEQ iC6CF     
 C6C8  C9 3A                CMP #$3A      
 C6CA  F0 1D                BEQ iC6E9     
 C6CC  4C 1C CE  iC6CC      JMP iCE1C     
 C6CF  A0 02     iC6CF      LDY #$02      
 C6D1  B1 C9                LDA (xC9),Y   
 C6D3  18                   CLC           
 C6D4  F0 5F                BEQ iC735     
 C6D6  C8                   INY           
 C6D7  B1 C9                LDA (xC9),Y   
 C6D9  85 88                STA x88       
 C6DB  C8                   INY           
 C6DC  B1 C9                LDA (xC9),Y   
 C6DE  85 89                STA x89       
 C6E0  98                   TYA           
 C6E1  65 C9                ADC xC9       
 C6E3  85 C9                STA xC9       
 C6E5  90 02                BCC iC6E9     
 C6E7  E6 CA                INC xCA       
 C6E9  20 C2 00  iC6E9      JSR iC2       
 C6EC  20 F2 C6             JSR iC6F2     
 C6EF  4C B5 C6             JMP iC6B5     
 C6F2  F0 6A     iC6F2      BEQ iC75E     
 C6F4  38                   SEC           
 C6F5  E9 80     iC6F5      SBC #$80      
 C6F7  B0 03                BCS iC6FC     
 C6F9  4C 9D C8             JMP LET       
 C6FC  C9 23     iC6FC      CMP #$23      
 C6FE  B0 CC                BCS iC6CC     
 C700  0A                   ASL           
 C701  A8                   TAY           
 C702  B9 01 C0             LDA BASADDR+1,Y               
 C705  48                   PHA           
 C706  B9 00 C0             LDA BASADDR,Y 
 C709  48                   PHA           
 C70A  4C C2 00             JMP iC2       
 C70D  38        RESTORE    SEC           
 C70E  A5 7A                LDA x7A       
 C710  E9 01                SBC #$01      
 C712  A4 7B                LDY x7B       
 C714  B0 01                BCS iC717     
 C716  88                   DEY           
 C717  85 90     iC717      STA x90       
 C719  84 91                STY x91       
 C71B  60                   RTS           
 C71C  B0 01     TSTSTOP    BCS iC71F     
 C71E  18        END        CLC           
 C71F  D0 3D     iC71F      BNE iC75E     
 C721  A5 C9                LDA xC9       
 C723  A4 CA                LDY xCA       
 C725  F0 0C                BEQ iC733     
 C727  85 8C                STA x8C       
 C729  84 8D                STY x8D       
 C72B  A5 88     iC72B      LDA x88       
 C72D  A4 89                LDY x89       
 C72F  85 8A                STA x8A       
 C731  84 8B                STY x8B       
 C733  68        iC733      PLA           
 C734  68                   PLA           
 C735  A9 A4     iC735      LDA #$A4      
 C737  A0 C2                LDY #$C2      
 C739  A2 00                LDX #$00      
 C73B  86 64                STX x64       
 C73D  90 03                BCC iC742     
 C73F  4C 80 C3             JMP iC380     
 C742  4C 8B C3  iC742      JMP iC38B     
 C745  D0 17     CONT       BNE iC75E     
 C747  A2 DF                LDX #$DF      
 C749  A4 8D                LDY x8D       
 C74B  D0 03                BNE iC750     
 C74D  4C 59 C3             JMP iC359     
 C750  A5 8C     iC750      LDA x8C       
 C752  85 C9                STA xC9       
 C754  84 CA                STY xCA       
 C756  A5 8A                LDA x8A       
 C758  A4 8B                LDY x8B       
 C75A  85 88                STA x88       
 C75C  84 89                STY x89       
 C75E  60        iC75E      RTS           

 C75F  20 76 D6             JSR iD676     
 C762  D0 FA                BNE iC75E     
 C764  E8                   INX           
 C765  E0 0A                CPX #$0A      
 C767  B0 04                BCS iC76D     
 C769  CA                   DEX           
 C76A  86 04                STX x04       
 C76C  60                   RTS           
 C76D  4C 30 D1  iC76D      JMP iD130     

 C770  D0 EC     CLR        BNE iC75E     
 C772  4C 6A C5             JMP iC56A     

 C775  D0 03     RUN        BNE iC77A     
 C777  4C 67 C5             JMP iC567     
 C77A  20 6A C5  iC77A      JSR iC56A     
 C77D  4C 94 C7             JMP iC794     

 C780  A9 03     GOSUB      LDA #$03      
 C782  20 1D C3             JSR iC31D     
 C785  A5 CA                LDA xCA       
 C787  48                   PHA           
 C788  A5 C9                LDA xC9       
 C78A  48                   PHA           
 C78B  A5 89                LDA x89       
 C78D  48                   PHA           
 C78E  A5 88                LDA x88       
 C790  48                   PHA           
 C791  A9 8D                LDA #$8D      
 C793  48                   PHA           
 C794  20 C8 00  iC794      JSR iC8       
 C797  20 9D C7             JSR GOTO      
 C79A  4C B5 C6             JMP iC6B5     

 C79D  20 63 C8  GOTO       JSR iC863     
 C7A0  20 01 C8             JSR iC801     
 C7A3  A5 89                LDA x89       
 C7A5  C5 09                CMP x09       
 C7A7  B0 0B                BCS iC7B4     
 C7A9  98                   TYA           
 C7AA  38                   SEC           
 C7AB  65 C9                ADC xC9       
 C7AD  A6 CA                LDX xCA       
 C7AF  90 07                BCC iC7B8     
 C7B1  E8                   INX           
 C7B2  B0 04                BCS iC7B8     
 C7B4  A5 7A     iC7B4      LDA x7A       
 C7B6  A6 7B                LDX x7B       
 C7B8  20 26 C5  iC7B8      JSR iC526     
 C7BB  90 1E                BCC iC7DB     
 C7BD  A5 AE                LDA xAE       
 C7BF  E9 01                SBC #$01      
 C7C1  85 C9                STA xC9       
 C7C3  A5 AF                LDA xAF       
 C7C5  E9 00                SBC #$00      
 C7C7  85 CA                STA xCA       
 C7C9  60        iC7C9      RTS           
 C7CA  D0 FD     RETURN     BNE iC7C9     
 C7CC  A9 FF                LDA #$FF      
 C7CE  85 98                STA x98       
 C7D0  20 AC C2             JSR iC2AC     
 C7D3  9A                   TXS           
 C7D4  C9 8D                CMP #$8D      
 C7D6  F0 0B                BEQ iC7E3     
 C7D8  A2 16                LDX #$16      
 C7DA  2C A2 5F             .byte $2C
 C7DB  A2 5F     iC7DB      LDX #$5F      
 C7DD  4C 59 C3             JMP iC359     
 C7E0  4C 1C CE  iC7E0      JMP iCE1C     
 C7E3  68        iC7E3      PLA           
 C7E4  68                   PLA           
 C7E5  85 88                STA x88       
 C7E7  68                   PLA           
 C7E8  85 89                STA x89       
 C7EA  68                   PLA           
 C7EB  85 C9                STA xC9       
 C7ED  68                   PLA           
 C7EE  85 CA                STA xCA       
 C7F0  20 FE C7  DATA       JSR iC7FE     
 C7F3  98        iC7F3      TYA           
 C7F4  18                   CLC           
 C7F5  65 C9                ADC xC9       
 C7F7  85 C9                STA xC9       
 C7F9  90 02                BCC iC7FD     
 C7FB  E6 CA                INC xCA       
 C7FD  60        iC7FD      RTS           

 C7FE  A2 3A     iC7FE      LDX #$3A      
 C800  2C A2 00             .byte $2C
 C801  A2 00     iC801      LDX #$00      
 C803  86 5A                STX x5A       
 C805  A0 00                LDY #$00      
 C807  84 5B                STY x5B       
 C809  A5 5B     iC809      LDA x5B       
 C80B  A6 5A                LDX x5A       
 C80D  85 5A                STA x5A       
 C80F  86 5B                STX x5B       
 C811  B1 C9     iC811      LDA (xC9),Y   
 C813  F0 E8                BEQ iC7FD     
 C815  C5 5B                CMP x5B       
 C817  F0 E4                BEQ iC7FD     
 C819  C8                   INY           
 C81A  C9 22                CMP #$22      
 C81C  F0 EB                BEQ iC809     
 C81E  D0 F1                BNE iC811     
 C820  20 B8 CC  IF         JSR iCCB8     
 C823  20 C8 00             JSR iC8       
 C826  C9 89                CMP #$89      
 C828  F0 05                BEQ iC82F     
 C82A  A9 A7                LDA #$A7      
 C82C  20 13 CE             JSR iCE13     
 C82F  A5 B0     iC82F      LDA xB0       
 C831  D0 05                BNE iC838     
 C833  20 01 C8  REM        JSR iC801     
 C836  F0 BB                BEQ iC7F3     
 C838  20 C8 00  iC838      JSR iC8       
 C83B  B0 03                BCS iC840     
 C83D  4C 9D C7             JMP GOTO      
 C840  4C F2 C6  iC840      JMP iC6F2     

 C843  20 76 D6  ON         JSR iD676     
 C846  48                   PHA           
 C847  C9 8D                CMP #$8D      
 C849  F0 04                BEQ iC84F     
 C84B  C9 89     iC84B      CMP #$89      
 C84D  D0 91                BNE iC7E0     
 C84F  C6 B4     iC84F      DEC xB4       
 C851  D0 04                BNE iC857     
 C853  68                   PLA           
 C854  4C F5 C6             JMP iC6F5     
 C857  20 C2 00  iC857      JSR iC2       
 C85A  20 63 C8             JSR iC863     
 C85D  C9 2C                CMP #$2C      
 C85F  F0 EE                BEQ iC84F     
 C861  68                   PLA           
 C862  60        iC862      RTS           

 C863  A2 00     iC863      LDX #$00      
 C865  86 08                STX x08       
 C867  86 09                STX x09       
 C869  B0 F7     iC869      BCS iC862     
 C86B  E9 2F                SBC #$2F      
 C86D  85 5A                STA x5A       
 C86F  A5 09                LDA x09       
 C871  85 71                STA x71       
 C873  C9 19                CMP #$19      
 C875  B0 D4                BCS iC84B     
 C877  A5 08                LDA x08       
 C879  0A                   ASL           
 C87A  26 71                ROL x71       
 C87C  0A                   ASL           
 C87D  26 71                ROL x71       
 C87F  65 08                ADC x08       
 C881  85 08                STA x08       
 C883  A5 71                LDA x71       
 C885  65 09                ADC x09       
 C887  85 09                STA x09       
 C889  06 08                ASL x08       
 C88B  26 09                ROL x09       
 C88D  A5 08                LDA x08       
 C88F  65 5A                ADC x5A       
 C891  85 08                STA x08       
 C893  90 02                BCC iC897     
 C895  E6 09                INC x09       
 C897  20 C2 00  iC897      JSR iC2       
 C89A  4C 69 C8             JMP iC869     

 C89D  20 7B CF  LET        JSR iCF7B     
 C8A0  85 98                STA x98       
 C8A2  84 99                STY x99       
 C8A4  A9 B2                LDA #$B2      
 C8A6  20 13 CE             JSR iCE13     
 C8A9  A5 5F                LDA x5F       
 C8AB  48                   PHA           
 C8AC  A5 5E                LDA x5E       
 C8AE  48                   PHA           
 C8AF  20 B8 CC             JSR iCCB8     
 C8B2  68                   PLA           
 C8B3  2A                   ROL           
 C8B4  20 AA CC             JSR iCCAA     
 C8B7  D0 18                BNE iC8D1     
 C8B9  68                   PLA           
 C8BA  10 12     iC8BA      BPL iC8CE     
 C8BC  20 ED DA             JSR iDAED     
 C8BF  20 A7 D0             JSR iD0A7     
 C8C2  A0 00                LDY #$00      
 C8C4  A5 B3                LDA xB3       
 C8C6  91 98                STA (x98),Y   
 C8C8  C8                   INY           
 C8C9  A5 B4                LDA xB4       
 C8CB  91 98                STA (x98),Y   
 C8CD  60                   RTS           
 C8CE  4C A2 DA  iC8CE      JMP iDAA2     
 C8D1  68        iC8D1      PLA           
 C8D2  A4 99     iC8D2      LDY x99       
 C8D4  C0 D0                CPY #$D0      
 C8D6  D0 53                BNE iC92B     
 C8D8  20 7E D5             JSR iD57E     
 C8DB  C9 06                CMP #$06      
 C8DD  F0 03                BEQ iC8E2     
 C8DF  4C 30 D1             JMP iD130     
 C8E2  A0 00     iC8E2      LDY #$00      
 C8E4  84 B0                STY xB0       
 C8E6  84 B5                STY xB5       
 C8E8  84 C0     iC8E8      STY xC0       
 C8EA  20 1C C9             JSR iC91C     
 C8ED  20 B4 D9             JSR iD9B4     
 C8F0  E6 C0                INC xC0       
 C8F2  A4 C0                LDY xC0       
 C8F4  20 1C C9             JSR iC91C     
 C8F7  20 DE DA             JSR iDADE     
 C8FA  AA                   TAX           
 C8FB  F0 05                BEQ iC902     
 C8FD  E8                   INX           
 C8FE  8A                   TXA           
 C8FF  20 BF D9             JSR iD9BF     
 C902  A4 C0     iC902      LDY xC0       
 C904  C8                   INY           
 C905  C0 06                CPY #$06      
 C907  D0 DF                BNE iC8E8     
 C909  20 B4 D9             JSR iD9B4     
 C90C  20 6D DB             JSR iDB6D     
 C90F  A2 02                LDX #$02      
 C911  78                   SEI           
 C912  B5 B2     iC912      LDA xB2,X     
 C914  9D 00 02             STA x0200,X   
 C917  CA                   DEX           
 C918  10 F8                BPL iC912     
 C91A  58                   CLI           
 C91B  60                   RTS           
 C91C  B1 71     iC91C      LDA (x71),Y   
 C91E  20 CF 00             JSR iCF       
 C921  90 03                BCC iC926     
 C923  4C 30 D1             JMP iD130     
 C926  E9 2F     iC926      SBC #$2F      
 C928  4C 50 DC             JMP iDC50     
 C92B  A0 02     iC92B      LDY #$02      
 C92D  B1 B3                LDA (xB3),Y   
 C92F  C5 83                CMP x83       
 C931  90 17                BCC iC94A     
 C933  D0 07                BNE iC93C     
 C935  88                   DEY           
 C936  B1 B3                LDA (xB3),Y   
 C938  C5 82                CMP x82       
 C93A  90 0E                BCC iC94A     
 C93C  A4 B4     iC93C      LDY xB4       
 C93E  C4 7D                CPY x7D       
 C940  90 08                BCC iC94A     
 C942  D0 0D                BNE iC951     
 C944  A5 B3                LDA xB3       
 C946  C5 7C                CMP x7C       
 C948  B0 07                BCS iC951     
 C94A  A5 B3     iC94A      LDA xB3       
 C94C  A4 B4                LDY xB4       
 C94E  4C 67 C9             JMP iC967     
 C951  A0 00     iC951      LDY #$00      
 C953  B1 B3                LDA (xB3),Y   
 C955  20 59 D3             JSR iD359     
 C958  A5 9F                LDA x9F       
 C95A  A4 A0                LDY xA0       
 C95C  85 BE                STA xBE       
 C95E  84 BF                STY xBF       
 C960  20 52 D5             JSR iD552     
 C963  A9 B0                LDA #$B0      
 C965  A0 00                LDY #$00      
 C967  85 9F     iC967      STA x9F       
 C969  84 A0                STY xA0       
 C96B  20 B3 D5             JSR iD5B3     
 C96E  A0 00                LDY #$00      
 C970  B1 9F                LDA (x9F),Y   
 C972  91 98                STA (x98),Y   
 C974  C8                   INY           
 C975  B1 9F                LDA (x9F),Y   
 C977  91 98                STA (x98),Y   
 C979  C8                   INY           
 C97A  B1 9F                LDA (x9F),Y   
 C97C  91 98                STA (x98),Y   
 C97E  60                   RTS           

 C97F  20 85 C9  PRINTF     JSR CMD       
 C982  4C D6 CA             JMP iCAD6     

 C985  20 76 D6  CMD        JSR iD676     
 C988  F0 05                BEQ iC98F     
 C98A  A9 2C                LDA #$2C      
 C98C  20 13 CE             JSR iCE13     
 C98F  08        iC98F      PHP           
 C990  20 C9 FF             JSR CKOUT     
 C993  86 03                STX x03       
 C995  28                   PLP           
 C996  4C 9F C9             JMP PRINT     

 C999  20 2A CA  iC999      JSR iCA2A     
 C99C  20 C8 00  iC99C      JSR iC8       
 C99F  F0 31     PRINT      BEQ iC9D2     
 C9A1  F0 55     iC9A1      BEQ iC9F8     
 C9A3  C9 A3                CMP #$A3      
 C9A5  F0 5F                BEQ iCA06     
 C9A7  C9 A6                CMP #$A6      
 C9A9  F0 5B                BEQ iCA06     
 C9AB  C9 2C                CMP #$2C      
 C9AD  F0 4A                BEQ iC9F9     
 C9AF  C9 3B                CMP #$3B      
 C9B1  F0 6E                BEQ iCA21     
 C9B3  20 B8 CC             JSR iCCB8     
 C9B6  24 5E                BIT x5E       
 C9B8  30 DF                BMI iC999     
 C9BA  20 AF DC             JSR iDCAF     
 C9BD  20 6B D3             JSR iD36B     
 C9C0  20 2A CA             JSR iCA2A     
 C9C3  20 44 CA             JSR iCA44     
 C9C6  D0 D4                BNE iC99C     
 C9C8  A0 00     iC9C8      LDY #$00      
 C9CA  94 0A                STY x0A,X     
 C9CC  A2 09                LDX #$09      
 C9CE  A5 03                LDA x03       
 C9D0  D0 26                BNE iC9F8     
 C9D2  A5 03     iC9D2      LDA x03       
 C9D4  D0 02                BNE iC9D8     
 C9D6  85 05                STA x05       
 C9D8  A9 0D     iC9D8      LDA #$0D      
 C9DA  20 49 CA             JSR iCA49     
 C9DD  A9 0A                LDA #$0A      
 C9DF  20 49 CA             JSR iCA49     
 C9E2  A5 03     iC9E2      LDA x03       
 C9E4  D0 12                BNE iC9F8     
 C9E6  8A                   TXA           
 C9E7  48                   PHA           
 C9E8  A6 04                LDX x04       
 C9EA  F0 08                BEQ iC9F4     
 C9EC  A9 00                LDA #$00      
 C9EE  20 49 CA  iC9EE      JSR iCA49     
 C9F1  CA                   DEX           
 C9F2  D0 FA                BNE iC9EE     
 C9F4  86 05     iC9F4      STX x05       
 C9F6  68                   PLA           
 C9F7  AA                   TAX           
 C9F8  60        iC9F8      RTS           
 C9F9  A5 05     iC9F9      LDA x05       
 C9FB  38                   SEC           
 C9FC  E9 0A     iC9FC      SBC #$0A      
 C9FE  B0 FC                BCS iC9FC     
 CA00  49 FF                EOR #$FF      
 CA02  69 01                ADC #$01      
 CA04  D0 14                BNE iCA1A     
 CA06  48        iCA06      PHA           
 CA07  20 73 D6             JSR iD673     
 CA0A  C9 29                CMP #$29      
 CA0C  D0 75                BNE iCA83     
 CA0E  68                   PLA           
 CA0F  C9 A3                CMP #$A3      
 CA11  D0 08                BNE iCA1B     
 CA13  8A                   TXA           
 CA14  E5 05                SBC x05       
 CA16  90 09                BCC iCA21     
 CA18  F0 07                BEQ iCA21     
 CA1A  AA        iCA1A      TAX           
 CA1B  20 44 CA  iCA1B      JSR iCA44     
 CA1E  CA                   DEX           
 CA1F  D0 FA                BNE iCA1B     
 CA21  20 C2 00  iCA21      JSR iC2       
 CA24  4C A1 C9             JMP iC9A1     
 CA27  20 6B D3  iCA27      JSR iD36B     
 CA2A  20 7E D5  iCA2A      JSR iD57E     
 CA2D  AA                   TAX           
 CA2E  A0 00                LDY #$00      
 CA30  E8                   INX           
 CA31  CA        iCA31      DEX           
 CA32  F0 C4                BEQ iC9F8     
 CA34  B1 71                LDA (x71),Y   
 CA36  20 49 CA             JSR iCA49     
 CA39  C8                   INY           
 CA3A  C9 0D                CMP #$0D      
 CA3C  D0 F3                BNE iCA31     
 CA3E  20 E2 C9             JSR iC9E2     
 CA41  4C 31 CA             JMP iCA31     
 CA44  A9 1D     iCA44      LDA #$1D      
 CA46  2C A9 3F             .byte $2C
 CA47  A9 3F     iCA47      LDA #$3F      
 CA49  24 64     iCA49      BIT x64       
 CA4B  30 27                BMI iCA74     
 CA4D  48                   PHA           
 CA4E  C9 1D                CMP #$1D      
 CA50  F0 18                BEQ iCA6A     
 CA52  C9 9D                CMP #$9D      
 CA54  F0 04                BEQ iCA5A     
 CA56  C9 14                CMP #$14      
 CA58  D0 0A                BNE iCA64     
 CA5A  A5 05     iCA5A      LDA x05       
 CA5C  F0 12                BEQ iCA70     
 CA5E  A5 03                LDA x03       
 CA60  D0 0E                BNE iCA70     
 CA62  C6 05                DEC x05       
 CA64  29 7F     iCA64      AND #$7F      
 CA66  C9 20                CMP #$20      
 CA68  90 06                BCC iCA70     
 CA6A  A5 03     iCA6A      LDA x03       
 CA6C  20 CC E1             JSR iE1CC     
 CA6F  EA                   NOP           
 CA70  68        iCA70      PLA           
 CA71  20 D2 FF             JSR BSOUT     
 CA74  29 FF     iCA74      AND #$FF      
 CA76  60                   RTS           
 CA77  A5 62     iCA77      LDA x62       
 CA79  F0 0B                BEQ iCA86     
 CA7B  20 C2 E1             JSR iE1C2     
 CA7E  EA                   NOP           
 CA7F  85 88                STA x88       
 CA81  84 89                STY x89       
 CA83  4C 1C CE  iCA83      JMP iCE1C     
 CA86  A5 03     iCA86      LDA x03       
 CA88  F0 05                BEQ iCA8F     
 CA8A  A2 C4                LDX #$C4      
 CA8C  4C 59 C3             JMP iC359     
 CA8F  A9 23     iCA8F      LDA #$23      
 CA91  A0 CC                LDY #$CC      
 CA93  20 27 CA             JSR iCA27     
 CA96  A5 8C                LDA x8C       
 CA98  A4 8D                LDY x8D       
 CA9A  85 C9                STA xC9       
 CA9C  84 CA                STY xCA       
 CA9E  60                   RTS           

 CA9F  20 8B D2  GET        JSR iD28B     
 CAA2  C9 23                CMP #$23      
 CAA4  D0 10                BNE iCAB6     
 CAA6  20 C2 00             JSR iC2       
 CAA9  20 76 D6             JSR iD676     
 CAAC  A9 2C                LDA #$2C      
 CAAE  20 13 CE             JSR iCE13     
 CAB1  20 C6 FF             JSR CHKIN     
 CAB4  86 03                STX x03       
 CAB6  A2 0B     iCAB6      LDX #$0B      
 CAB8  A0 00                LDY #$00      
 CABA  84 0B                STY x0B       
 CABC  A9 40                LDA #$40      
 CABE  20 2A CB             JSR iCB2A     
 CAC1  A6 03                LDX x03       
 CAC3  D0 13                BNE iCAD8     
 CAC5  60                   RTS           
 CAC6  20 76 D6  INPUTF     JSR iD676     
 CAC9  A9 2C                LDA #$2C      
 CACB  20 13 CE             JSR iCE13     
 CACE  20 C6 FF             JSR CHKIN     
 CAD1  86 03                STX x03       
 CAD3  20 F1 CA             JSR iCAF1     
 CAD6  A5 03     iCAD6      LDA x03       
 CAD8  20 CC FF  iCAD8      JSR CLRCH     
 CADB  A2 00                LDX #$00      
 CADD  86 03                STX x03       
 CADF  60                   RTS           

 CAE0  46 64     INPUT      LSR x64       
 CAE2  C9 22                CMP #$22      
 CAE4  D0 0B                BNE iCAF1     
 CAE6  20 D1 CD             JSR iCDD1     
 CAE9  A9 3B                LDA #$3B      
 CAEB  20 13 CE             JSR iCE13     
 CAEE  20 2A CA             JSR iCA2A     
 CAF1  20 8B D2  iCAF1      JSR iD28B     
 CAF4  A9 2C                LDA #$2C      
 CAF6  85 09                STA x09       
 CAF8  20 17 CB  iCAF8      JSR iCB17     
 CAFB  A5 03                LDA x03       
 CAFD  F0 0D                BEQ iCB0C     
 CAFF  AD 0C 02             LDA STATUS    
 CB02  29 02                AND #$02      
 CB04  F0 06                BEQ iCB0C     
 CB06  20 D6 CA             JSR iCAD6     
 CB09  4C F0 C7             JMP DATA      
 CB0C  A5 0A     iCB0C      LDA x0A       
 CB0E  D0 19                BNE iCB29      ; This branch goes to nirvana!
 CB10  A5 03                LDA x03       
 CB12  D0 E4                BNE iCAF8     
 CB14  4C 9B E1             JMP iE19B     
 CB17  A5 03     iCB17      LDA x03       
 CB19  D0 06                BNE iCB21     
 CB1B  20 47 CA             JSR iCA47     
 CB1E  20 44 CA             JSR iCA44     
 CB21  4C 68 C4  iCB21      JMP iC468     
 CB24  A6 90     READ       LDX x90       
 CB26  A4 91                LDY x91       
; *** CB28: CALL ADDRESS ALIGNMENT. This may indicate misassembly ***
iCB29     = * + 1 ;   referenced
 CB28  A9 98                LDA #$98      
 CB2A  85 62     iCB2A      STA x62       
 CB2C  86 92                STX x92       
 CB2E  84 93                STY x93       
 CB30  20 7B CF  iCB30      JSR iCF7B     
 CB33  85 98                STA x98       
 CB35  84 99                STY x99       
 CB37  A5 C9                LDA xC9       
 CB39  A4 CA                LDY xCA       
 CB3B  85 08                STA x08       
 CB3D  84 09                STY x09       
 CB3F  A6 92                LDX x92       
 CB41  A4 93                LDY x93       
 CB43  86 C9                STX xC9       
 CB45  84 CA                STY xCA       
 CB47  20 C8 00             JSR iC8       
 CB4A  D0 1F                BNE iCB6B     
 CB4C  24 62                BIT x62       
 CB4E  50 0B                BVC iCB5B     
 CB50  20 E4 FF             JSR GET       
 CB53  85 0A                STA x0A       
 CB55  A0 00                LDY #$00      
 CB57  A2 09                LDX #$09      
 CB59  D0 0C                BNE iCB67     
 CB5B  30 72     iCB5B      BMI iCBCF     
 CB5D  A5 03                LDA x03       
 CB5F  D0 03                BNE iCB64     
 CB61  20 47 CA             JSR iCA47     
 CB64  20 17 CB  iCB64      JSR iCB17     
 CB67  86 C9     iCB67      STX xC9       
 CB69  84 CA                STY xCA       
 CB6B  20 C2 00  iCB6B      JSR iC2       
 CB6E  24 5E                BIT x5E       
 CB70  10 2E                BPL iCBA0     
 CB72  24 62                BIT x62       
 CB74  50 06                BVC iCB7C     
 CB76  A9 00                LDA #$00      
 CB78  20 BC E1             JSR iE1BC     
 CB7B  EA                   NOP           
 CB7C  85 5A     iCB7C      STA x5A       
 CB7E  C9 22                CMP #$22      
 CB80  F0 07                BEQ iCB89     
 CB82  A9 3A                LDA #$3A      
 CB84  85 5A                STA x5A       
 CB86  A9 2C                LDA #$2C      
 CB88  18        iCB88      CLC           
 CB89  85 5B     iCB89      STA x5B       
 CB8B  A5 C9                LDA xC9       
 CB8D  A4 CA                LDY xCA       
 CB8F  69 00                ADC #$00      
 CB91  90 01                BCC iCB94     
 CB93  C8                   INY           
 CB94  20 71 D3  iCB94      JSR iD371     
 CB97  20 BB D6             JSR iD6BB     
 CB9A  20 D2 C8             JSR iC8D2     
 CB9D  4C A8 CB             JMP iCBA8     
 CBA0  20 C5 DB  iCBA0      JSR iDBC5     
 CBA3  A5 5F                LDA x5F       
 CBA5  20 BA C8             JSR iC8BA     
 CBA8  20 C8 00  iCBA8      JSR iC8       
 CBAB  F0 07                BEQ iCBB4     
 CBAD  C9 2C                CMP #$2C      
 CBAF  F0 03                BEQ iCBB4     
 CBB1  4C 77 CA             JMP iCA77     
 CBB4  A5 C9     iCBB4      LDA xC9       
 CBB6  A4 CA                LDY xCA       
 CBB8  85 92                STA x92       
 CBBA  84 93                STY x93       
 CBBC  A5 08                LDA x08       
 CBBE  A4 09                LDY x09       
 CBC0  85 C9                STA xC9       
 CBC2  84 CA                STY xCA       
 CBC4  20 C8 00             JSR iC8       
 CBC7  F0 2C                BEQ iCBF5     
 CBC9  20 11 CE             JSR iCE11     
 CBCC  4C 30 CB             JMP iCB30     
 CBCF  20 FE C7  iCBCF      JSR iC7FE     
 CBD2  C8                   INY           
 CBD3  AA                   TAX           
 CBD4  D0 12                BNE iCBE8     
 CBD6  A2 2A                LDX #$2A      
 CBD8  C8                   INY           
 CBD9  B1 C9                LDA (xC9),Y   
 CBDB  F0 6D                BEQ iCC4A     
 CBDD  C8                   INY           
 CBDE  B1 C9                LDA (xC9),Y   
 CBE0  85 8E                STA x8E       
 CBE2  C8                   INY           
 CBE3  B1 C9                LDA (xC9),Y   
 CBE5  C8                   INY           
 CBE6  85 8F                STA x8F       
 CBE8  B1 C9     iCBE8      LDA (xC9),Y   
 CBEA  AA                   TAX           
 CBEB  20 F3 C7             JSR iC7F3     
 CBEE  E0 83                CPX #$83      
 CBF0  D0 DD                BNE iCBCF     
 CBF2  4C 6B CB             JMP iCB6B     
 CBF5  A5 92     iCBF5      LDA x92       
 CBF7  A4 93                LDY x93       
 CBF9  A6 62                LDX x62       
 CBFB  10 03                BPL iCC00     
 CBFD  4C 17 C7             JMP iC717     
 CC00  A0 00     iCC00      LDY #$00      
 CC02  B1 92                LDA (x92),Y   
 CC04  F0 0B                BEQ iCC11     
 CC06  A5 03                LDA x03       
 CC08  D0 07                BNE iCC11     
 CC0A  A9 12                LDA #$12      
 CC0C  A0 CC                LDY #$CC      
 CC0E  4C 27 CA             JMP iCA27     
 CC11  60        iCC11      RTS           
 CC12             .byte $3F, $45, $58, $54, $52, $41, $20, $49  ;?extra i
 CC1A             .byte $47, $4E, $4F, $52, $45, $44, $0D, $0A  ;gnoredmj
 CC22             .byte $00, $3F, $52, $45, $44, $4F, $20, $46  ;.?redo f
 CC2A             .byte $52, $4F, $4D, $20, $53, $54, $41, $52  ;rom star
 CC32             .byte $54, $0D, $0A, $00                      ;tmj.

 CC36  D0 04     NEXT       BNE iCC3C     
 CC38  A0 00                LDY #$00      
 CC3A  F0 03                BEQ iCC3F     
 CC3C  20 7B CF  iCC3C      JSR iCF7B     
 CC3F  85 98     iCC3F      STA x98       
 CC41  84 99                STY x99       
 CC43  20 AC C2             JSR iC2AC     
 CC46  F0 04                BEQ iCC4C     
 CC48  A2 00                LDX #$00      
 CC4A  F0 69     iCC4A      BEQ iCCB5     
 CC4C  9A        iCC4C      TXS           
 CC4D  E8                   INX           
 CC4E  E8                   INX           
 CC4F  E8                   INX           
 CC50  E8                   INX           
 CC51  8A                   TXA           
 CC52  E8                   INX           
 CC53  E8                   INX           
 CC54  E8                   INX           
 CC55  E8                   INX           
 CC56  E8                   INX           
 CC57  E8                   INX           
 CC58  86 73                STX x73       
 CC5A  A0 01                LDY #$01      
 CC5C  20 74 DA             JSR iDA74     
 CC5F  BA                   TSX           
 CC60  BD 09 01             LDA STACK+9,X 
 CC63  85 B5                STA xB5       
 CC65  A5 98                LDA x98       
 CC67  A4 99                LDY x99       
 CC69  20 3C D7             JSR iD73C     
 CC6C  20 A2 DA             JSR iDAA2     
 CC6F  A0 01                LDY #$01      
 CC71  20 2F DB             JSR iDB2F     
 CC74  BA                   TSX           
 CC75  38                   SEC           
 CC76  FD 09 01             SBC STACK+9,X 
 CC79  F0 17                BEQ iCC92     
 CC7B  BD 0F 01             LDA STACK+15,X
 CC7E  85 88                STA x88       
 CC80  BD 10 01             LDA STACK+16,X
 CC83  85 89                STA x89       
 CC85  BD 12 01             LDA STACK+18,X
 CC88  85 C9                STA xC9       
 CC8A  BD 11 01             LDA STACK+17,X
 CC8D  85 CA                STA xCA       
 CC8F  4C B5 C6  iCC8F      JMP iC6B5     
 CC92  8A        iCC92      TXA           
 CC93  69 11                ADC #$11      
 CC95  AA                   TAX           
 CC96  9A                   TXS           
 CC97  20 C8 00             JSR iC8       
 CC9A  C9 2C                CMP #$2C      
 CC9C  D0 F1                BNE iCC8F     
 CC9E  20 C2 00             JSR iC2       
 CCA1  20 3C CC             JSR iCC3C     
 CCA4  20 B8 CC  iCCA4      JSR iCCB8     
 CCA7  18        iCCA7      CLC           
 CCA8  24 38                .byte $24
 CCA9  38        iCCA9      SEC           
 CCAA  24 5E     iCCAA      BIT x5E       
 CCAC  30 03                BMI iCCB1     
 CCAE  B0 03                BCS iCCB3     
 CCB0  60        iCCB0      RTS           
 CCB1  B0 FD     iCCB1      BCS iCCB0     
 CCB3  A2 A8     iCCB3      LDX #$A8      
 CCB5  4C 59 C3  iCCB5      JMP iC359     

 CCB8  A6 C9     iCCB8      LDX xC9       
 CCBA  D0 02                BNE iCCBE     
 CCBC  C6 CA                DEC xCA       
 CCBE  C6 C9     iCCBE      DEC xC9       
 CCC0  A2 00                LDX #$00      
 CCC2  24 48                .byte $24
 CCC3  48        iCCC3      PHA           
 CCC4  8A                   TXA           
 CCC5  48                   PHA           
 CCC6  A9 01                LDA #$01      
 CCC8  20 1D C3             JSR iC31D     
 CCCB  20 9D CD             JSR iCD9D     
 CCCE  A9 00                LDA #$00      
 CCD0  85 9C                STA x9C       
 CCD2  20 C8 00  iCCD2      JSR iC8       
 CCD5  38        iCCD5      SEC           
 CCD6  E9 B1                SBC #$B1      
 CCD8  90 17                BCC iCCF1     
 CCDA  C9 03                CMP #$03      
 CCDC  B0 13                BCS iCCF1     
 CCDE  C9 01                CMP #$01      
 CCE0  2A                   ROL           
 CCE1  49 01                EOR #$01      
 CCE3  45 9C                EOR x9C       
 CCE5  C5 9C                CMP x9C       
 CCE7  90 61                BCC iCD4A     
 CCE9  85 9C                STA x9C       
 CCEB  20 C2 00             JSR iC2       
 CCEE  4C D5 CC             JMP iCCD5     
 CCF1  A6 9C     iCCF1      LDX x9C       
 CCF3  D0 2C                BNE iCD21     
 CCF5  B0 7B                BCS iCD72     
 CCF7  69 07                ADC #$07      
 CCF9  90 77                BCC iCD72     
 CCFB  65 5E                ADC x5E       
 CCFD  D0 03                BNE iCD02     
 CCFF  4C 15 D5             JMP iD515     
 CD02  69 FF     iCD02      ADC #$FF      
 CD04  85 71                STA x71       
 CD06  0A                   ASL           
 CD07  65 71                ADC x71       
 CD09  A8                   TAY           
 CD0A  68        iCD0A      PLA           
 CD0B  D9 74 C0             CMP OPTABLE,Y 
 CD0E  B0 67                BCS iCD77     
 CD10  20 A7 CC             JSR iCCA7     
 CD13  48        iCD13      PHA           
 CD14  20 3A CD  iCD14      JSR iCD3A     
 CD17  68                   PLA           
 CD18  A4 9A                LDY x9A       
 CD1A  10 17                BPL iCD33     
 CD1C  AA                   TAX           
 CD1D  F0 56                BEQ iCD75     
 CD1F  D0 5F                BNE iCD80     
 CD21  46 5E     iCD21      LSR x5E       
 CD23  8A                   TXA           
 CD24  2A                   ROL           
 CD25  A6 C9                LDX xC9       
 CD27  D0 02                BNE iCD2B     
 CD29  C6 CA                DEC xCA       
 CD2B  C6 C9     iCD2B      DEC xC9       
 CD2D  A0 1B                LDY #$1B      
 CD2F  85 9C                STA x9C       
 CD31  D0 D7                BNE iCD0A     
 CD33  D9 74 C0  iCD33      CMP OPTABLE,Y 
 CD36  B0 48                BCS iCD80     
 CD38  90 D9                BCC iCD13     
 CD3A  B9 76 C0  iCD3A      LDA OPTABLE+2,Y               
 CD3D  48                   PHA           
 CD3E  B9 75 C0             LDA OPTABLE+1,Y               
 CD41  48                   PHA           
 CD42  20 4D CD             JSR iCD4D     
 CD45  A5 9C                LDA x9C       
 CD47  4C C3 CC             JMP iCCC3     
 CD4A  4C 1C CE  iCD4A      JMP iCE1C     
 CD4D  A5 B5     iCD4D      LDA xB5       
 CD4F  BE 74 C0             LDX OPTABLE,Y 
 CD52  A8        iCD52      TAY           
 CD53  68                   PLA           
 CD54  85 71                STA x71       
 CD56  E6 71                INC x71       
 CD58  68                   PLA           
 CD59  85 72                STA x72       
 CD5B  98                   TYA           
 CD5C  48                   PHA           
 CD5D  20 ED DA  iCD5D      JSR iDAED     
 CD60  A5 B4                LDA xB4       
 CD62  48                   PHA           
 CD63  A5 B3                LDA xB3       
 CD65  48                   PHA           
 CD66  A5 B2                LDA xB2       
 CD68  48                   PHA           
 CD69  A5 B1                LDA xB1       
 CD6B  48                   PHA           
 CD6C  A5 B0                LDA xB0       
 CD6E  48                   PHA           
 CD6F  6C 71 00             JMP (x71)     
 CD72  A0 FF     iCD72      LDY #$FF      
 CD74  68                   PLA           
 CD75  F0 23     iCD75      BEQ iCD9A     
 CD77  C9 64     iCD77      CMP #$64      
 CD79  F0 03                BEQ iCD7E     
 CD7B  20 A7 CC             JSR iCCA7     
 CD7E  84 9A     iCD7E      STY x9A       
 CD80  68        iCD80      PLA           
 CD81  4A                   LSR           
 CD82  85 63                STA x63       
 CD84  68                   PLA           
 CD85  85 B8                STA xB8       
 CD87  68                   PLA           
 CD88  85 B9                STA xB9       
 CD8A  68                   PLA           
 CD8B  85 BA                STA xBA       
 CD8D  68                   PLA           
 CD8E  85 BB                STA xBB       
 CD90  68                   PLA           
 CD91  85 BC                STA xBC       
 CD93  68                   PLA           
 CD94  85 BD                STA xBD       
 CD96  45 B5                EOR xB5       
 CD98  85 BE                STA xBE       
 CD9A  A5 B0     iCD9A      LDA xB0       
 CD9C  60                   RTS           

 CD9D  A9 00     iCD9D      LDA #$00      
 CD9F  85 5E                STA x5E       
 CDA1  20 C2 00  iCDA1      JSR iC2       
 CDA4  B0 03                BCS iCDA9     
 CDA6  4C C5 DB  iCDA6      JMP iDBC5     
 CDA9  20 05 D0  iCDA9      JSR iD005     
 CDAC  B0 7A                BCS iCE28     
 CDAE  C9 FF                CMP #$FF      
 CDB0  D0 0F                BNE iCDC1     
 CDB2  A9 BC                LDA #$BC      
 CDB4  A0 CD                LDY #$CD      
 CDB6  20 74 DA             JSR iDA74     
 CDB9  4C C2 00             JMP iC2       
 CDBC             .byte $82, $49, $0F, $DA, $A1                 ;.ioZ!

 CDC1  C9 2E     iCDC1      CMP #$2E      
 CDC3  F0 E1                BEQ iCDA6     
 CDC5  C9 AB                CMP #$AB      
 CDC7  F0 58                BEQ iCE21     
 CDC9  C9 AA                CMP #$AA      
 CDCB  F0 D4                BEQ iCDA1     
 CDCD  C9 22                CMP #$22      
 CDCF  D0 0F                BNE iCDE0     
 CDD1  A5 C9     iCDD1      LDA xC9       
 CDD3  A4 CA                LDY xCA       
 CDD5  69 00                ADC #$00      
 CDD7  90 01                BCC iCDDA     
 CDD9  C8                   INY           
 CDDA  20 6B D3  iCDDA      JSR iD36B     
 CDDD  4C BB D6             JMP iD6BB     
 CDE0  C9 A8     iCDE0      CMP #$A8      
 CDE2  D0 13                BNE iCDF7     
 CDE4  A0 18                LDY #$18      
 CDE6  D0 3B                BNE iCE23     
 CDE8  20 A7 D0             JSR iD0A7     
 CDEB  A5 B4                LDA xB4       
 CDED  49 FF                EOR #$FF      
 CDEF  A8                   TAY           
 CDF0  A5 B3                LDA xB3       
 CDF2  49 FF                EOR #$FF      
 CDF4  4C 78 D2             JMP iD278     
 CDF7  C9 A5     iCDF7      CMP #$A5      
 CDF9  D0 03                BNE iCDFE     
 CDFB  4C D6 D2             JMP iD2D6     
 CDFE  C9 B4     iCDFE      CMP #$B4      
 CE00  90 03                BCC iCE05     
 CE02  4C 97 CE             JMP iCE97     
 CE05  20 0E CE  iCE05      JSR iCE0E     
 CE08  20 B8 CC             JSR iCCB8     
 CE0B  A9 29     iCE0B      LDA #$29      
 CE0D  2C A9 28             .byte $2C
 CE0E  A9 28     iCE0E      LDA #$28      
 CE10  2C A9 2C             .byte $2C
 CE11  A9 2C     iCE11      LDA #$2C      
 CE13  A0 00     iCE13      LDY #$00      
 CE15  D1 C9                CMP (xC9),Y   
 CE17  D0 03                BNE iCE1C     
 CE19  4C C2 00             JMP iC2       
 CE1C  A2 10     iCE1C      LDX #$10      
 CE1E  4C 59 C3             JMP iC359     
 CE21  A0 15     iCE21      LDY #$15      
 CE23  68        iCE23      PLA           
 CE24  68                   PLA           
 CE25  4C 14 CD             JMP iCD14     
 CE28  20 7B CF  iCE28      JSR iCF7B     
 CE2B  85 B3                STA xB3       
 CE2D  84 B4                STY xB4       
 CE2F  A5 94                LDA x94       
 CE31  A4 95                LDY x95       
 CE33  A6 5E                LDX x5E       
 CE35  F0 1D                BEQ iCE54     
 CE37  4C 9F E1             JMP iE19F     
 CE3A  18                   CLC           
 CE3B  C0 C9     iCE3B      CPY #$C9      
 CE3D  D0 14                BNE iCE53     
 CE3F  20 76 CE             JSR iCE76     
 CE42  84 AD                STY xAD       
 CE44  88                   DEY           
 CE45  84 C0                STY xC0       
 CE47  A0 06                LDY #$06      
 CE49  84 AC                STY xAC       
 CE4B  A0 24                LDY #$24      
 CE4D  20 3A DD             JSR iDD3A     
 CE50  4C 53 D3             JMP iD353     
 CE53  60        iCE53      RTS           
 CE54  A6 5F     iCE54      LDX x5F       
 CE56  10 0D                BPL iCE65     
 CE58  A0 00                LDY #$00      
 CE5A  B1 B3                LDA (xB3),Y   
 CE5C  AA                   TAX           
 CE5D  C8                   INY           
 CE5E  B1 B3                LDA (xB3),Y   
 CE60  A8                   TAY           
 CE61  8A                   TXA           
 CE62  4C 78 D2             JMP iD278     
 CE65  4C AB E1  iCE65      JMP iE1AB     

 CE68  19                   .byte $19
 CE69  C0 49     iCE69      CPY #$49      
 CE6B  D0 15                BNE iCE82     
 CE6D  20 76 CE             JSR iCE76     
 CE70  98                   TYA           
 CE71  A2 A0                LDX #$A0      
 CE73  4C 21 DB             JMP iDB21     
 CE76  A9 FE     iCE76      LDA #$FE      
 CE78  A0 01                LDY #$01      
 CE7A  78                   SEI           
 CE7B  20 74 DA             JSR iDA74     
 CE7E  58                   CLI           
 CE7F  84 B1                STY xB1       
 CE81  60                   RTS           
 CE82  C9 53     iCE82      CMP #$53      
 CE84  D0 0A                BNE iCE90     
 CE86  C0 54                CPY #$54      
 CE88  D0 06                BNE iCE90     
 CE8A  AD 0C 02             LDA STATUS    
 CE8D  4C 0E DB             JMP iDB0E     
 CE90  A5 B3     iCE90      LDA xB3       
 CE92  A4 B4                LDY xB4       
 CE94  4C 74 DA             JMP iDA74     

 CE97  0A        iCE97      ASL           
 CE98  48                   PHA           
 CE99  AA                   TAX           
 CE9A  20 C2 00             JSR iC2       
 CE9D  E0 8F                CPX #$8F      
 CE9F  90 20                BCC iCEC1     
 CEA1  20 0E CE             JSR iCE0E     
 CEA4  20 B8 CC             JSR iCCB8     
 CEA7  20 11 CE             JSR iCE11     
 CEAA  20 A9 CC             JSR iCCA9     
 CEAD  68                   PLA           
 CEAE  AA                   TAX           
 CEAF  A5 B4                LDA xB4       
 CEB1  48                   PHA           
 CEB2  A5 B3                LDA xB3       
 CEB4  48                   PHA           
 CEB5  8A                   TXA           
 CEB6  48                   PHA           
 CEB7  20 76 D6             JSR iD676     
 CEBA  68                   PLA           
 CEBB  A8                   TAY           
 CEBC  8A                   TXA           
 CEBD  48                   PHA           
 CEBE  4C C6 CE             JMP iCEC6     
 CEC1  20 05 CE  iCEC1      JSR iCE05     
 CEC4  68                   PLA           
 CEC5  A8                   TAY           
 CEC6  B9 DE BF  iCEC6      LDA xBFDE,Y   
 CEC9  85 A4                STA xA4       
 CECB  B9 DF BF             LDA xBFDF,Y   
 CECE  85 A5                STA xA5       
 CED0  20 A3 00             JSR iA3       
 CED3  4C A7 CC             JMP iCCA7     

 CED6  A0 FF                LDY #$FF      
 CED8  2C A0 00             BIT xA0       
 CEDB  84 5C                STY x5C       
 CEDD  20 A7 D0             JSR iD0A7     
 CEE0  A5 B3                LDA xB3       
 CEE2  45 5C                EOR x5C       
 CEE4  85 5A                STA x5A       
 CEE6  A5 B4                LDA xB4       
 CEE8  45 5C                EOR x5C       
 CEEA  85 5B                STA x5B       
 CEEC  20 CE DA             JSR iDACE     
 CEEF  20 A7 D0             JSR iD0A7     
 CEF2  A5 B4                LDA xB4       
 CEF4  45 5C                EOR x5C       
 CEF6  25 5B                AND x5B       
 CEF8  45 5C                EOR x5C       
 CEFA  A8                   TAY           
 CEFB  A5 B3                LDA xB3       
 CEFD  45 5C                EOR x5C       
 CEFF  25 5A                AND x5A       
 CF01  45 5C                EOR x5C       
 CF03  4C 78 D2             JMP iD278     

 CF06  20 AA CC             JSR iCCAA     
 CF09  B0 13                BCS iCF1E     
 CF0B  A5 BD                LDA xBD       
 CF0D  09 7F                ORA #$7F      
 CF0F  25 B9                AND xB9       
 CF11  85 B9                STA xB9       
 CF13  A9 B8                LDA #$B8      
 CF15  A0 00                LDY #$00      
 CF17  20 2D DB             JSR iDB2D     
 CF1A  AA                   TAX           
 CF1B  4C 51 CF             JMP iCF51     
 CF1E  A9 00     iCF1E      LDA #$00      
 CF20  85 5E                STA x5E       
 CF22  C6 9C                DEC x9C       
 CF24  20 7E D5             JSR iD57E     
 CF27  85 B0                STA xB0       
 CF29  86 B1                STX xB1       
 CF2B  84 B2                STY xB2       
 CF2D  A5 BB                LDA xBB       
 CF2F  A4 BC                LDY xBC       
 CF31  20 82 D5             JSR iD582     
 CF34  86 BB                STX xBB       
 CF36  84 BC                STY xBC       
 CF38  AA                   TAX           
 CF39  38                   SEC           
 CF3A  E5 B0                SBC xB0       
 CF3C  F0 08                BEQ iCF46     
 CF3E  A9 01                LDA #$01      
 CF40  90 04                BCC iCF46     
 CF42  A6 B0                LDX xB0       
 CF44  A9 FF                LDA #$FF      
 CF46  85 B5     iCF46      STA xB5       
 CF48  A0 FF                LDY #$FF      
 CF4A  E8                   INX           
 CF4B  C8        iCF4B      INY           
 CF4C  CA                   DEX           
 CF4D  D0 07                BNE iCF56     
 CF4F  A6 B5                LDX xB5       
 CF51  30 0F     iCF51      BMI iCF62     
 CF53  18                   CLC           
 CF54  90 0C                BCC iCF62     
 CF56  B1 BB     iCF56      LDA (xBB),Y   
 CF58  D1 B1                CMP (xB1),Y   
 CF5A  F0 EF                BEQ iCF4B     
 CF5C  A2 FF                LDX #$FF      
 CF5E  B0 02                BCS iCF62     
 CF60  A2 01                LDX #$01      
 CF62  E8        iCF62      INX           
 CF63  8A                   TXA           
 CF64  2A                   ROL           
 CF65  25 63                AND x63       
 CF67  F0 02                BEQ iCF6B     
 CF69  A9 FF                LDA #$FF      
 CF6B  4C 0E DB  iCF6B      JMP iDB0E     

 CF6E  20 11 CE  iCF6E      JSR iCE11     
 CF71  AA        DIM        TAX           
 CF72  20 80 CF             JSR iCF80     
 CF75  20 C8 00             JSR iC8       
 CF78  D0 F4                BNE iCF6E     
 CF7A  60                   RTS           

 CF7B  A2 00     iCF7B      LDX #$00      
 CF7D  20 C8 00             JSR iC8       
 CF80  86 5D     iCF80      STX x5D       
 CF82  85 94     iCF82      STA x94       
 CF84  20 C8 00             JSR iC8       
 CF87  20 05 D0             JSR iD005     
 CF8A  B0 03                BCS iCF8F     
 CF8C  4C 1C CE  iCF8C      JMP iCE1C     
 CF8F  A2 00     iCF8F      LDX #$00      
 CF91  86 5E                STX x5E       
 CF93  86 5F                STX x5F       
 CF95  20 C2 00             JSR iC2       
 CF98  90 05                BCC iCF9F     
 CF9A  20 05 D0             JSR iD005     
 CF9D  90 0B                BCC iCFAA     
 CF9F  AA        iCF9F      TAX           
 CFA0  20 C2 00  iCFA0      JSR iC2       
 CFA3  90 FB                BCC iCFA0     
 CFA5  20 05 D0             JSR iD005     
 CFA8  B0 F6                BCS iCFA0     
 CFAA  C9 24     iCFAA      CMP #$24      
 CFAC  D0 06                BNE iCFB4     
 CFAE  A9 FF                LDA #$FF      
 CFB0  85 5E                STA x5E       
 CFB2  D0 10                BNE iCFC4     
 CFB4  C9 25     iCFB4      CMP #$25      
 CFB6  D0 13                BNE iCFCB     
 CFB8  A5 61                LDA x61       
 CFBA  D0 D0                BNE iCF8C     
 CFBC  A9 80                LDA #$80      
 CFBE  85 5F                STA x5F       
 CFC0  05 94                ORA x94       
 CFC2  85 94                STA x94       
 CFC4  8A        iCFC4      TXA           
 CFC5  09 80                ORA #$80      
 CFC7  AA                   TAX           
 CFC8  20 C2 00             JSR iC2       
 CFCB  86 95     iCFCB      STX x95       
 CFCD  38                   SEC           
 CFCE  05 61                ORA x61       
 CFD0  E9 28                SBC #$28      
 CFD2  D0 03                BNE iCFD7     
 CFD4  4C B9 D0             JMP iD0B9     
 CFD7  A9 00     iCFD7      LDA #$00      
 CFD9  85 61                STA x61       
 CFDB  A5 7C                LDA x7C       
 CFDD  A6 7D                LDX x7D       
 CFDF  A0 00                LDY #$00      
 CFE1  86 AF     iCFE1      STX xAF       
 CFE3  85 AE     iCFE3      STA xAE       
 CFE5  E4 7F                CPX x7F       
 CFE7  D0 04                BNE iCFED     
 CFE9  C5 7E                CMP x7E       
 CFEB  F0 22                BEQ iD00F     
 CFED  A5 94     iCFED      LDA x94       
 CFEF  D1 AE                CMP (xAE),Y   
 CFF1  D0 08                BNE iCFFB     
 CFF3  A5 95                LDA x95       
 CFF5  C8                   INY           
 CFF6  D1 AE                CMP (xAE),Y   
 CFF8  F0 7F                BEQ iD079     
 CFFA  88                   DEY           
 CFFB  18        iCFFB      CLC           
 CFFC  A5 AE                LDA xAE       
 CFFE  69 07                ADC #$07      
 D000  90 E1                BCC iCFE3     
 D002  E8                   INX           
 D003  D0 DC                BNE iCFE1     
 D005  C9 41     iD005      CMP #$41      
 D007  90 05                BCC iD00E     
 D009  E9 5B                SBC #$5B      
 D00B  38                   SEC           
 D00C  E9 A5                SBC #$A5      
 D00E  60        iD00E      RTS           
 D00F  68        iD00F      PLA           
 D010  48                   PHA           
 D011  C9 2A                CMP #$2A      
 D013  D0 07                BNE iD01C     
 D015  A9 1A     iD015      LDA #$1A      
 D017  A0 D0                LDY #$D0      
 D019  60                   RTS           
 D01A             .byte $00, $00                                ;..

 D01C  A5 94     iD01C      LDA x94       
 D01E  A4 95                LDY x95       
 D020  C9 54                CMP #$54      
 D022  D0 0B                BNE iD02F     
 D024  C0 C9                CPY #$C9      
 D026  F0 ED                BEQ iD015     
 D028  C0 49                CPY #$49      
 D02A  D0 03                BNE iD02F     
 D02C  4C 1C CE  iD02C      JMP iCE1C     
 D02F  C9 53     iD02F      CMP #$53      
 D031  D0 04                BNE iD037     
 D033  C0 54                CPY #$54      
 D035  F0 F5                BEQ iD02C     
 D037  A5 7E     iD037      LDA x7E       
 D039  A4 7F                LDY x7F       
 D03B  85 AE                STA xAE       
 D03D  84 AF                STY xAF       
 D03F  A5 80                LDA x80       
 D041  A4 81                LDY x81       
 D043  85 A9                STA xA9       
 D045  84 AA                STY xAA       
 D047  18                   CLC           
 D048  69 07                ADC #$07      
 D04A  90 01                BCC iD04D     
 D04C  C8                   INY           
 D04D  85 A7     iD04D      STA xA7       
 D04F  84 A8                STY xA8       
 D051  20 DA C2             JSR iC2DA     
 D054  A5 A7                LDA xA7       
 D056  A4 A8                LDY xA8       
 D058  C8                   INY           
 D059  85 7E                STA x7E       
 D05B  84 7F                STY x7F       
 D05D  A0 00                LDY #$00      
 D05F  A5 94                LDA x94       
 D061  91 AE                STA (xAE),Y   
 D063  C8                   INY           
 D064  A5 95                LDA x95       
 D066  91 AE                STA (xAE),Y   
 D068  A9 00                LDA #$00      
 D06A  C8                   INY           
 D06B  91 AE                STA (xAE),Y   
 D06D  C8                   INY           
 D06E  91 AE                STA (xAE),Y   
 D070  C8                   INY           
 D071  91 AE                STA (xAE),Y   
 D073  C8                   INY           
 D074  91 AE                STA (xAE),Y   
 D076  C8                   INY           
 D077  91 AE                STA (xAE),Y   
 D079  A5 AE     iD079      LDA xAE       
 D07B  18                   CLC           
 D07C  69 02                ADC #$02      
 D07E  A4 AF                LDY xAF       
 D080  90 01                BCC iD083     
 D082  C8                   INY           
 D083  85 96     iD083      STA x96       
 D085  84 97                STY x97       
 D087  60                   RTS           

 D088  A5 5C     iD088      LDA x5C       
 D08A  0A                   ASL           
 D08B  69 05                ADC #$05      
 D08D  65 AE                ADC xAE       
 D08F  A4 AF                LDY xAF       
 D091  90 01                BCC iD094     
 D093  C8                   INY           
 D094  85 A7     iD094      STA xA7       
 D096  84 A8                STY xA8       
 D098  60                   RTS           

 D099             .byte $90, $80, $00, $00                      ;....

 D09D  20 C2 00  iD09D      JSR iC2       
 D0A0  20 A4 CC             JSR iCCA4     
 D0A3  A5 B5     iD0A3      LDA xB5       
 D0A5  30 0D                BMI iD0B4     
 D0A7  A5 B0     iD0A7      LDA xB0       
 D0A9  C9 90                CMP #$90      
 D0AB  90 09                BCC iD0B6     
 D0AD  A9 99                LDA #$99      
 D0AF  A0 D0                LDY #$D0      
 D0B1  20 2D DB             JSR iDB2D     
 D0B4  D0 7A     iD0B4      BNE iD130     
 D0B6  4C 6D DB  iD0B6      JMP iDB6D     
 D0B9  A5 5D     iD0B9      LDA x5D       
 D0BB  05 5F                ORA x5F       
 D0BD  48                   PHA           
 D0BE  A5 5E                LDA x5E       
 D0C0  48                   PHA           
 D0C1  A0 00                LDY #$00      
 D0C3  98        iD0C3      TYA           
 D0C4  48                   PHA           
 D0C5  A5 95                LDA x95       
 D0C7  48                   PHA           
 D0C8  A5 94                LDA x94       
 D0CA  48                   PHA           
 D0CB  20 9D D0             JSR iD09D     
 D0CE  68                   PLA           
 D0CF  85 94                STA x94       
 D0D1  68                   PLA           
 D0D2  85 95                STA x95       
 D0D4  68                   PLA           
 D0D5  A8                   TAY           
 D0D6  BA                   TSX           
 D0D7  BD 02 01             LDA STACK+2,X 
 D0DA  48                   PHA           
 D0DB  BD 01 01             LDA STACK+1,X 
 D0DE  48                   PHA           
 D0DF  A5 B3                LDA xB3       
 D0E1  9D 02 01             STA STACK+2,X 
 D0E4  A5 B4                LDA xB4       
 D0E6  9D 01 01             STA STACK+1,X 
 D0E9  C8                   INY           
 D0EA  20 C8 00             JSR iC8       
 D0ED  C9 2C                CMP #$2C      
 D0EF  F0 D2                BEQ iD0C3     
 D0F1  84 5C                STY x5C       
 D0F3  20 0B CE             JSR iCE0B     
 D0F6  68                   PLA           
 D0F7  85 5E                STA x5E       
 D0F9  68                   PLA           
 D0FA  85 5F                STA x5F       
 D0FC  29 7F                AND #$7F      
 D0FE  85 5D                STA x5D       
 D100  A6 7E                LDX x7E       
 D102  A5 7F                LDA x7F       
 D104  86 AE     iD104      STX xAE       
 D106  85 AF                STA xAF       
 D108  C5 81                CMP x81       
 D10A  D0 04                BNE iD110     
 D10C  E4 80                CPX x80       
 D10E  F0 39                BEQ iD149     
 D110  A0 00     iD110      LDY #$00      
 D112  B1 AE                LDA (xAE),Y   
 D114  C8                   INY           
 D115  C5 94                CMP x94       
 D117  D0 06                BNE iD11F     
 D119  A5 95                LDA x95       
 D11B  D1 AE                CMP (xAE),Y   
 D11D  F0 16                BEQ iD135     
 D11F  C8        iD11F      INY           
 D120  B1 AE                LDA (xAE),Y   
 D122  18                   CLC           
 D123  65 AE                ADC xAE       
 D125  AA                   TAX           
 D126  C8                   INY           
 D127  B1 AE                LDA (xAE),Y   
 D129  65 AF                ADC xAF       
 D12B  90 D7                BCC iD104     
 D12D  A2 70     iD12D      LDX #$70      
 D12F  2C A2 35             .byte $2C
 D130  A2 35     iD130      LDX #$35      
 D132  4C 59 C3  iD132      JMP iC359     
 D135  A2 7D     iD135      LDX #$7D      
 D137  A5 5D                LDA x5D       
 D139  D0 F7                BNE iD132     
 D13B  20 88 D0             JSR iD088     
 D13E  A5 5C                LDA x5C       
 D140  A0 04                LDY #$04      
 D142  D1 AE                CMP (xAE),Y   
 D144  D0 E7                BNE iD12D     
 D146  4C D3 D1             JMP iD1D3     
 D149  20 88 D0  iD149      JSR iD088     
 D14C  20 2A C3             JSR iC32A     
 D14F  A9 00                LDA #$00      
 D151  A8                   TAY           
 D152  85 C1                STA xC1       
 D154  A2 05                LDX #$05      
 D156  A5 94                LDA x94       
 D158  91 AE                STA (xAE),Y   
 D15A  10 01                BPL iD15D     
 D15C  CA                   DEX           
 D15D  C8        iD15D      INY           
 D15E  A5 95                LDA x95       
 D160  91 AE                STA (xAE),Y   
 D162  10 02                BPL iD166     
 D164  CA                   DEX           
 D165  CA                   DEX           
 D166  86 C0     iD166      STX xC0       
 D168  A5 5C                LDA x5C       
 D16A  C8                   INY           
 D16B  C8                   INY           
 D16C  C8                   INY           
 D16D  91 AE                STA (xAE),Y   
 D16F  A2 0B     iD16F      LDX #$0B      
 D171  A9 00                LDA #$00      
 D173  24 5D                BIT x5D       
 D175  50 08                BVC iD17F     
 D177  68                   PLA           
 D178  18                   CLC           
 D179  69 01                ADC #$01      
 D17B  AA                   TAX           
 D17C  68                   PLA           
 D17D  69 00                ADC #$00      
 D17F  C8        iD17F      INY           
 D180  91 AE                STA (xAE),Y   
 D182  C8                   INY           
 D183  8A                   TXA           
 D184  91 AE                STA (xAE),Y   
 D186  20 33 D2             JSR iD233     
 D189  86 C0                STX xC0       
 D18B  85 C1                STA xC1       
 D18D  A4 71                LDY x71       
 D18F  C6 5C                DEC x5C       
 D191  D0 DC                BNE iD16F     
 D193  65 A8                ADC xA8       
 D195  B0 5D                BCS iD1F4     
 D197  85 A8                STA xA8       
 D199  A8                   TAY           
 D19A  8A                   TXA           
 D19B  65 A7                ADC xA7       
 D19D  90 03                BCC iD1A2     
 D19F  C8                   INY           
 D1A0  F0 52                BEQ iD1F4     
 D1A2  20 2A C3  iD1A2      JSR iC32A     
 D1A5  85 80                STA x80       
 D1A7  84 81                STY x81       
 D1A9  A9 00                LDA #$00      
 D1AB  E6 C1                INC xC1       
 D1AD  A4 C0                LDY xC0       
 D1AF  F0 05                BEQ iD1B6     
 D1B1  88        iD1B1      DEY           
 D1B2  91 A7                STA (xA7),Y   
 D1B4  D0 FB                BNE iD1B1     
 D1B6  C6 A8     iD1B6      DEC xA8       
 D1B8  C6 C1                DEC xC1       
 D1BA  D0 F5                BNE iD1B1     
 D1BC  E6 A8                INC xA8       
 D1BE  38                   SEC           
 D1BF  A5 80                LDA x80       
 D1C1  E5 AE                SBC xAE       
 D1C3  A0 02                LDY #$02      
 D1C5  91 AE                STA (xAE),Y   
 D1C7  A5 81                LDA x81       
 D1C9  C8                   INY           
 D1CA  E5 AF                SBC xAF       
 D1CC  91 AE                STA (xAE),Y   
 D1CE  A5 5D                LDA x5D       
 D1D0  D0 60                BNE iD232     
 D1D2  C8                   INY           
 D1D3  B1 AE     iD1D3      LDA (xAE),Y   
 D1D5  85 5C                STA x5C       
 D1D7  A9 00                LDA #$00      
 D1D9  85 C0                STA xC0       
 D1DB  85 C1     iD1DB      STA xC1       
 D1DD  C8                   INY           
 D1DE  68                   PLA           
 D1DF  AA                   TAX           
 D1E0  85 B3                STA xB3       
 D1E2  68                   PLA           
 D1E3  85 B4                STA xB4       
 D1E5  D1 AE                CMP (xAE),Y   
 D1E7  90 0E                BCC iD1F7     
 D1E9  D0 06                BNE iD1F1     
 D1EB  C8                   INY           
 D1EC  8A                   TXA           
 D1ED  D1 AE                CMP (xAE),Y   
 D1EF  90 07                BCC iD1F8     
 D1F1  4C 2D D1  iD1F1      JMP iD12D     
 D1F4  4C 57 C3  iD1F4      JMP iC357     
 D1F7  C8        iD1F7      INY           
 D1F8  A5 C1     iD1F8      LDA xC1       
 D1FA  05 C0                ORA xC0       
 D1FC  18                   CLC           
 D1FD  F0 0A                BEQ iD209     
 D1FF  20 33 D2             JSR iD233     
 D202  8A                   TXA           
 D203  65 B3                ADC xB3       
 D205  AA                   TAX           
 D206  98                   TYA           
 D207  A4 71                LDY x71       
 D209  65 B4     iD209      ADC xB4       
 D20B  86 C0                STX xC0       
 D20D  C6 5C                DEC x5C       
 D20F  D0 CA                BNE iD1DB     
 D211  A2 05                LDX #$05      
 D213  A5 94                LDA x94       
 D215  10 01                BPL iD218     
 D217  CA                   DEX           
 D218  A5 95     iD218      LDA x95       
 D21A  10 02                BPL iD21E     
 D21C  CA                   DEX           
 D21D  CA                   DEX           
 D21E  86 77     iD21E      STX x77       
 D220  A9 00                LDA #$00      
 D222  20 3C D2             JSR iD23C     
 D225  8A                   TXA           
 D226  65 A7                ADC xA7       
 D228  85 96                STA x96       
 D22A  98                   TYA           
 D22B  65 A8                ADC xA8       
 D22D  85 97                STA x97       
 D22F  A8                   TAY           
 D230  A5 96                LDA x96       
 D232  60        iD232      RTS           

 D233  84 71     iD233      STY x71       
 D235  B1 AE                LDA (xAE),Y   
 D237  85 77                STA x77       
 D239  88                   DEY           
 D23A  B1 AE                LDA (xAE),Y   
 D23C  85 78     iD23C      STA x78       
 D23E  A9 10                LDA #$10      
 D240  85 AC                STA xAC       
 D242  A2 00                LDX #$00      
 D244  A0 00                LDY #$00      
 D246  8A        iD246      TXA           
 D247  0A                   ASL           
 D248  AA                   TAX           
 D249  98                   TYA           
 D24A  2A                   ROL           
 D24B  A8                   TAY           
 D24C  B0 A6                BCS iD1F4     
 D24E  06 C0                ASL xC0       
 D250  26 C1                ROL xC1       
 D252  90 0B                BCC iD25F     
 D254  18                   CLC           
 D255  8A                   TXA           
 D256  65 77                ADC x77       
 D258  AA                   TAX           
 D259  98                   TYA           
 D25A  65 78                ADC x78       
 D25C  A8                   TAY           
 D25D  B0 95                BCS iD1F4     
 D25F  C6 AC     iD25F      DEC xAC       
 D261  D0 E3                BNE iD246     
 D263  60                   RTS           

 D264  A5 5E     FRE        LDA x5E       
 D266  F0 03                BEQ iD26B     
 D268  20 7E D5             JSR iD57E     
 D26B  20 04 D4  iD26B      JSR iD404     
 D26E  38                   SEC           
 D26F  A5 82                LDA x82       
 D271  E5 80                SBC x80       
 D273  A8                   TAY           
 D274  A5 83                LDA x83       
 D276  E5 81                SBC x81       
 D278  A2 00     iD278      LDX #$00      
 D27A  86 5E                STX x5E       
 D27C  85 B1                STA xB1       
 D27E  84 B2                STY xB2       
 D280  A2 90                LDX #$90      
 D282  4C 16 DB             JMP iDB16     

 D285  A4 05     POS        LDY x05       
 D287  A9 00     iD287      LDA #$00      
 D289  F0 ED                BEQ iD278     
 D28B  A6 89     iD28B      LDX x89       
 D28D  E8                   INX           
 D28E  D0 A2                BNE iD232     
 D290  A2 9A                LDX #$9A      
 D292  4C 59 C3  iD292      JMP iC359     

 D295  20 C3 D2  DEF        JSR iD2C3     
 D298  20 8B D2             JSR iD28B     
 D29B  20 0E CE             JSR iCE0E     
 D29E  A9 80                LDA #$80      
 D2A0  85 61                STA x61       
 D2A2  20 7B CF             JSR iCF7B     
 D2A5  20 A7 CC             JSR iCCA7     
 D2A8  20 0B CE             JSR iCE0B     
 D2AB  A9 B2                LDA #$B2      
 D2AD  20 13 CE             JSR iCE13     
 D2B0  48                   PHA           
 D2B1  A5 97                LDA x97       
 D2B3  48                   PHA           
 D2B4  A5 96                LDA x96       
 D2B6  48                   PHA           
 D2B7  A5 CA                LDA xCA       
 D2B9  48                   PHA           
 D2BA  A5 C9                LDA xC9       
 D2BC  48                   PHA           
 D2BD  20 F0 C7             JSR DATA      
 D2C0  4C 33 D3             JMP iD333     

 D2C3  A9 A5     iD2C3      LDA #$A5      
 D2C5  20 13 CE             JSR iCE13     
 D2C8  09 80                ORA #$80      
 D2CA  85 61                STA x61       
 D2CC  20 82 CF             JSR iCF82     
 D2CF  85 9D                STA x9D       
 D2D1  84 9E                STY x9E       
 D2D3  4C A7 CC             JMP iCCA7     

 D2D6  20 C3 D2  iD2D6      JSR iD2C3     
 D2D9  A5 9E                LDA x9E       
 D2DB  48                   PHA           
 D2DC  A5 9D                LDA x9D       
 D2DE  48                   PHA           
 D2DF  20 05 CE             JSR iCE05     
 D2E2  20 A7 CC             JSR iCCA7     
 D2E5  68                   PLA           
 D2E6  85 9D                STA x9D       
 D2E8  68                   PLA           
 D2E9  85 9E                STA x9E       
 D2EB  A0 02                LDY #$02      
 D2ED  A2 ED                LDX #$ED      
 D2EF  B1 9D                LDA (x9D),Y   
 D2F1  F0 9F                BEQ iD292     
 D2F3  85 96                STA x96       
 D2F5  AA                   TAX           
 D2F6  C8                   INY           
 D2F7  B1 9D                LDA (x9D),Y   
 D2F9  85 97                STA x97       
 D2FB  C8                   INY           
 D2FC  B1 96     iD2FC      LDA (x96),Y   
 D2FE  48                   PHA           
 D2FF  88                   DEY           
 D300  10 FA                BPL iD2FC     
 D302  A4 97                LDY x97       
 D304  20 A6 DA             JSR iDAA6     
 D307  A5 CA                LDA xCA       
 D309  48                   PHA           
 D30A  A5 C9                LDA xC9       
 D30C  48                   PHA           
 D30D  B1 9D                LDA (x9D),Y   
 D30F  85 C9                STA xC9       
 D311  C8                   INY           
 D312  B1 9D                LDA (x9D),Y   
 D314  85 CA                STA xCA       
 D316  A5 97                LDA x97       
 D318  48                   PHA           
 D319  A5 96                LDA x96       
 D31B  48                   PHA           
 D31C  20 A4 CC             JSR iCCA4     
 D31F  68                   PLA           
 D320  85 9D                STA x9D       
 D322  68                   PLA           
 D323  85 9E                STA x9E       
 D325  20 C8 00             JSR iC8       
 D328  F0 03                BEQ iD32D     
 D32A  4C 1C CE             JMP iCE1C     
 D32D  68        iD32D      PLA           
 D32E  85 C9                STA xC9       
 D330  68                   PLA           
 D331  85 CA                STA xCA       
 D333  A0 00     iD333      LDY #$00      
 D335  68                   PLA           
 D336  91 9D                STA (x9D),Y   
 D338  68                   PLA           
 D339  C8                   INY           
 D33A  91 9D                STA (x9D),Y   
 D33C  68                   PLA           
 D33D  C8                   INY           
 D33E  91 9D                STA (x9D),Y   
 D340  68                   PLA           
 D341  C8                   INY           
 D342  91 9D                STA (x9D),Y   
 D344  68                   PLA           
 D345  C8                   INY           
 D346  91 9D                STA (x9D),Y   
 D348  60                   RTS           

 D349  20 A7 CC  STR        JSR iCCA7     
 D34C  A0 00                LDY #$00      
 D34E  20 B1 DC             JSR iDCB1     
 D351  68                   PLA           
 D352  68                   PLA           
 D353  A9 FF     iD353      LDA #$FF      
 D355  A0 00                LDY #$00      
 D357  F0 12                BEQ iD36B     
 D359  A6 B3     iD359      LDX xB3       
 D35B  A4 B4                LDY xB4       
 D35D  86 9F                STX x9F       
 D35F  84 A0                STY xA0       
 D361  20 D2 D3  iD361      JSR iD3D2     
 D364  86 B1                STX xB1       
 D366  84 B2                STY xB2       
 D368  85 B0                STA xB0       
 D36A  60                   RTS           
 D36B  A2 22     iD36B      LDX #$22      
 D36D  86 5A                STX x5A       
 D36F  86 5B                STX x5B       
 D371  85 BE     iD371      STA xBE       
 D373  84 BF                STY xBF       
 D375  85 B1                STA xB1       
 D377  84 B2                STY xB2       
 D379  A0 FF                LDY #$FF      
 D37B  C8        iD37B      INY           
 D37C  B1 BE                LDA (xBE),Y   
 D37E  F0 0C                BEQ iD38C     
 D380  C5 5A                CMP x5A       
 D382  F0 04                BEQ iD388     
 D384  C5 5B                CMP x5B       
 D386  D0 F3                BNE iD37B     
 D388  C9 22     iD388      CMP #$22      
 D38A  F0 01                BEQ iD38D     
 D38C  18        iD38C      CLC           
 D38D  84 B0     iD38D      STY xB0       
 D38F  98                   TYA           
 D390  65 BE                ADC xBE       
 D392  85 C0                STA xC0       
 D394  A6 BF                LDX xBF       
 D396  90 01                BCC iD399     
 D398  E8                   INX           
 D399  86 C1     iD399      STX xC1       
 D39B  A5 BF                LDA xBF       
 D39D  D0 0B                BNE iD3AA     
 D39F  98                   TYA           
 D3A0  20 59 D3             JSR iD359     
 D3A3  A6 BE                LDX xBE       
 D3A5  A4 BF                LDY xBF       
 D3A7  20 60 D5             JSR iD560     
 D3AA  A6 65     iD3AA      LDX x65       
 D3AC  E0 71                CPX #$71      
 D3AE  D0 05                BNE iD3B5     
 D3B0  A2 CC                LDX #$CC      
 D3B2  4C 59 C3  iD3B2      JMP iC359     
 D3B5  A5 B0     iD3B5      LDA xB0       
 D3B7  95 00                STA USR,X     
 D3B9  A5 B1                LDA xB1       
 D3BB  95 01                STA x01,X     
 D3BD  A5 B2                LDA xB2       
 D3BF  95 02                STA x02,X     
 D3C1  A0 00                LDY #$00      
 D3C3  86 B3                STX xB3       
 D3C5  84 B4                STY xB4       
 D3C7  88                   DEY           
 D3C8  84 5E                STY x5E       
 D3CA  86 66                STX x66       
 D3CC  E8                   INX           
 D3CD  E8                   INX           
 D3CE  E8                   INX           
 D3CF  86 65                STX x65       
 D3D1  60                   RTS           

 D3D2  46 60     iD3D2      LSR x60       
 D3D4  48        iD3D4      PHA           
 D3D5  49 FF                EOR #$FF      
 D3D7  38                   SEC           
 D3D8  65 82                ADC x82       
 D3DA  A4 83                LDY x83       
 D3DC  B0 01                BCS iD3DF     
 D3DE  88                   DEY           
 D3DF  C4 81     iD3DF      CPY x81       
 D3E1  90 11                BCC iD3F4     
 D3E3  D0 04                BNE iD3E9     
 D3E5  C5 80                CMP x80       
 D3E7  90 0B                BCC iD3F4     
 D3E9  85 82     iD3E9      STA x82       
 D3EB  84 83                STY x83       
 D3ED  85 84                STA x84       
 D3EF  84 85                STY x85       
 D3F1  AA                   TAX           
 D3F2  68                   PLA           
 D3F3  60                   RTS           
 D3F4  A2 52     iD3F4      LDX #$52      
 D3F6  A5 60                LDA x60       
 D3F8  30 B8                BMI iD3B2     
 D3FA  20 04 D4             JSR iD404     
 D3FD  A9 80                LDA #$80      
 D3FF  85 60                STA x60       
 D401  68                   PLA           
 D402  D0 D0                BNE iD3D4     
 D404  A6 86     iD404      LDX x86       
 D406  A5 87                LDA x87       
 D408  86 82     iD408      STX x82       
 D40A  85 83                STA x83       
 D40C  A0 00                LDY #$00      
 D40E  84 9E                STY x9E       
 D410  A5 80                LDA x80       
 D412  A6 81                LDX x81       
 D414  85 AE                STA xAE       
 D416  86 AF                STX xAF       
 D418  A9 68                LDA #$68      
 D41A  A2 00                LDX #$00      
 D41C  85 71                STA x71       
 D41E  86 72                STX x72       
 D420  C5 65     iD420      CMP x65       
 D422  F0 05                BEQ iD429     
 D424  20 A1 D4             JSR iD4A1     
 D427  F0 F7                BEQ iD420     
 D429  A9 07     iD429      LDA #$07      
 D42B  85 A2                STA xA2       
 D42D  A5 7C                LDA x7C       
 D42F  A6 7D                LDX x7D       
 D431  85 71                STA x71       
 D433  86 72                STX x72       
 D435  E4 7F     iD435      CPX x7F       
 D437  D0 04                BNE iD43D     
 D439  C5 7E                CMP x7E       
 D43B  F0 05                BEQ iD442     
 D43D  20 97 D4  iD43D      JSR iD497     
 D440  F0 F3                BEQ iD435     
 D442  85 A7     iD442      STA xA7       
 D444  86 A8                STX xA8       
 D446  A9 03                LDA #$03      
 D448  85 A2                STA xA2       
 D44A  A5 A7     iD44A      LDA xA7       
 D44C  A6 A8                LDX xA8       
 D44E  E4 81     iD44E      CPX x81       
 D450  D0 07                BNE iD459     
 D452  C5 80                CMP x80       
 D454  D0 03                BNE iD459     
 D456  4C E0 D4             JMP iD4E0     
 D459  85 71     iD459      STA x71       
 D45B  86 72                STX x72       
 D45D  A0 00                LDY #$00      
 D45F  B1 71                LDA (x71),Y   
 D461  AA                   TAX           
 D462  C8                   INY           
 D463  B1 71                LDA (x71),Y   
 D465  08                   PHP           
 D466  C8                   INY           
 D467  B1 71                LDA (x71),Y   
 D469  65 A7                ADC xA7       
 D46B  85 A7                STA xA7       
 D46D  C8                   INY           
 D46E  B1 71                LDA (x71),Y   
 D470  65 A8                ADC xA8       
 D472  85 A8                STA xA8       
 D474  28                   PLP           
 D475  10 D3                BPL iD44A     
 D477  8A                   TXA           
 D478  30 D0                BMI iD44A     
 D47A  C8                   INY           
 D47B  B1 71                LDA (x71),Y   
 D47D  20 F3 E7             JSR iE7F3     
 D480  65 71                ADC x71       
 D482  85 71                STA x71       
 D484  90 02                BCC iD488     
 D486  E6 72                INC x72       
 D488  A6 72     iD488      LDX x72       
 D48A  E4 A8     iD48A      CPX xA8       
 D48C  D0 04                BNE iD492     
 D48E  C5 A7                CMP xA7       
 D490  F0 BC                BEQ iD44E     
 D492  20 A1 D4  iD492      JSR iD4A1     
 D495  F0 F3                BEQ iD48A     
 D497  B1 71     iD497      LDA (x71),Y   
 D499  30 35                BMI iD4D0     
 D49B  C8                   INY           
 D49C  B1 71                LDA (x71),Y   
 D49E  10 30                BPL iD4D0     
 D4A0  C8                   INY           
 D4A1  B1 71     iD4A1      LDA (x71),Y   
 D4A3  F0 2B                BEQ iD4D0     
 D4A5  C8                   INY           
 D4A6  B1 71                LDA (x71),Y   
 D4A8  AA                   TAX           
 D4A9  C8                   INY           
 D4AA  B1 71                LDA (x71),Y   
 D4AC  C5 83                CMP x83       
 D4AE  90 06                BCC iD4B6     
 D4B0  D0 1E                BNE iD4D0     
 D4B2  E4 82                CPX x82       
 D4B4  B0 1A                BCS iD4D0     
 D4B6  C5 AF     iD4B6      CMP xAF       
 D4B8  90 16                BCC iD4D0     
 D4BA  D0 04                BNE iD4C0     
 D4BC  E4 AE                CPX xAE       
 D4BE  90 10                BCC iD4D0     
 D4C0  86 AE     iD4C0      STX xAE       
 D4C2  85 AF                STA xAF       
 D4C4  A5 71                LDA x71       
 D4C6  A6 72                LDX x72       
 D4C8  85 9D                STA x9D       
 D4CA  86 9E                STX x9E       
 D4CC  A5 A2                LDA xA2       
 D4CE  85 A4                STA xA4       
 D4D0  A5 A2     iD4D0      LDA xA2       
 D4D2  18                   CLC           
 D4D3  65 71                ADC x71       
 D4D5  85 71                STA x71       
 D4D7  90 02                BCC iD4DB     
 D4D9  E6 72                INC x72       
 D4DB  A6 72     iD4DB      LDX x72       
 D4DD  A0 00                LDY #$00      
 D4DF  60                   RTS           

 D4E0  A6 9E     iD4E0      LDX x9E       
 D4E2  F0 F7                BEQ iD4DB     
 D4E4  A5 A4                LDA xA4       
 D4E6  E9 03                SBC #$03      
 D4E8  4A                   LSR           
 D4E9  A8                   TAY           
 D4EA  85 A4                STA xA4       
 D4EC  B1 9D                LDA (x9D),Y   
 D4EE  65 AE                ADC xAE       
 D4F0  85 A9                STA xA9       
 D4F2  A5 AF                LDA xAF       
 D4F4  69 00                ADC #$00      
 D4F6  85 AA                STA xAA       
 D4F8  A5 82                LDA x82       
 D4FA  A6 83                LDX x83       
 D4FC  85 A7                STA xA7       
 D4FE  86 A8                STX xA8       
 D500  20 E1 C2             JSR iC2E1     
 D503  A4 A4                LDY xA4       
 D505  C8                   INY           
 D506  A5 A7                LDA xA7       
 D508  91 9D                STA (x9D),Y   
 D50A  AA                   TAX           
 D50B  E6 A8                INC xA8       
 D50D  A5 A8                LDA xA8       
 D50F  C8                   INY           
 D510  91 9D                STA (x9D),Y   
 D512  4C 08 D4             JMP iD408     

 D515  A5 B4     iD515      LDA xB4       
 D517  48                   PHA           
 D518  A5 B3                LDA xB3       
 D51A  48                   PHA           
 D51B  20 9D CD             JSR iCD9D     
 D51E  20 A9 CC             JSR iCCA9     
 D521  68                   PLA           
 D522  85 BE                STA xBE       
 D524  68                   PLA           
 D525  85 BF                STA xBF       
 D527  A0 00                LDY #$00      
 D529  B1 BE                LDA (xBE),Y   
 D52B  18                   CLC           
 D52C  71 B3                ADC (xB3),Y   
 D52E  90 05                BCC iD535     
 D530  A2 B5                LDX #$B5      
 D532  4C 59 C3             JMP iC359     
 D535  20 59 D3  iD535      JSR iD359     
 D538  20 52 D5             JSR iD552     
 D53B  A5 9F                LDA x9F       
 D53D  A4 A0                LDY xA0       
 D53F  20 82 D5             JSR iD582     
 D542  20 64 D5             JSR iD564     
 D545  A5 BE                LDA xBE       
 D547  A4 BF                LDY xBF       
 D549  20 82 D5             JSR iD582     
 D54C  20 AA D3             JSR iD3AA     
 D54F  4C D2 CC             JMP iCCD2     

 D552  A0 00     iD552      LDY #$00      
 D554  B1 BE                LDA (xBE),Y   
 D556  48                   PHA           
 D557  C8                   INY           
 D558  B1 BE                LDA (xBE),Y   
 D55A  AA                   TAX           
 D55B  C8                   INY           
 D55C  B1 BE                LDA (xBE),Y   
 D55E  A8                   TAY           
 D55F  68                   PLA           
 D560  86 71     iD560      STX x71       
 D562  84 72                STY x72       
 D564  A8        iD564      TAY           
 D565  F0 0A                BEQ iD571     
 D567  48                   PHA           
 D568  88        iD568      DEY           
 D569  B1 71                LDA (x71),Y   
 D56B  91 84                STA (x84),Y   
 D56D  98                   TYA           
 D56E  D0 F8                BNE iD568     
 D570  68                   PLA           
 D571  18        iD571      CLC           
 D572  65 84                ADC x84       
 D574  85 84                STA x84       
 D576  90 02                BCC iD57A     
 D578  E6 85                INC x85       
 D57A  60        iD57A      RTS           

 D57B  20 A9 CC  iD57B      JSR iCCA9     
 D57E  A5 B3     iD57E      LDA xB3       
 D580  A4 B4                LDY xB4       
 D582  85 71     iD582      STA x71       
 D584  84 72                STY x72       
 D586  20 B3 D5             JSR iD5B3     
 D589  08                   PHP           
 D58A  A0 00                LDY #$00      
 D58C  B1 71                LDA (x71),Y   
 D58E  48                   PHA           
 D58F  C8                   INY           
 D590  B1 71                LDA (x71),Y   
 D592  AA                   TAX           
 D593  C8                   INY           
 D594  B1 71                LDA (x71),Y   
 D596  A8                   TAY           
 D597  68                   PLA           
 D598  28                   PLP           
 D599  D0 13                BNE iD5AE     
 D59B  C4 83                CPY x83       
 D59D  D0 0F                BNE iD5AE     
 D59F  E4 82                CPX x82       
 D5A1  D0 0B                BNE iD5AE     
 D5A3  48                   PHA           
 D5A4  18                   CLC           
 D5A5  65 82                ADC x82       
 D5A7  85 82                STA x82       
 D5A9  90 02                BCC iD5AD     
 D5AB  E6 83                INC x83       
 D5AD  68        iD5AD      PLA           
 D5AE  86 71     iD5AE      STX x71       
 D5B0  84 72                STY x72       
 D5B2  60                   RTS           

 D5B3  C4 67     iD5B3      CPY x67       
 D5B5  D0 0C                BNE iD5C3     
 D5B7  C5 66                CMP x66       
 D5B9  D0 08                BNE iD5C3     
 D5BB  85 65                STA x65       
 D5BD  E9 03                SBC #$03      
 D5BF  85 66                STA x66       
 D5C1  A0 00                LDY #$00      
 D5C3  60        iD5C3      RTS           

 D5C4  20 79 D6  CHR        JSR iD679     
 D5C7  8A                   TXA           
 D5C8  48                   PHA           
 D5C9  A9 01                LDA #$01      
 D5CB  20 61 D3             JSR iD361     
 D5CE  68                   PLA           
 D5CF  A0 00                LDY #$00      
 D5D1  91 B1                STA (xB1),Y   
 D5D3  68                   PLA           
 D5D4  68                   PLA           
 D5D5  4C AA D3             JMP iD3AA     

 D5D8  20 37 D6  LEFT       JSR iD637     
 D5DB  D1 9F                CMP (x9F),Y   
 D5DD  98                   TYA           
 D5DE  90 04     iD5DE      BCC iD5E4     
 D5E0  B1 9F                LDA (x9F),Y   
 D5E2  AA                   TAX           
 D5E3  98                   TYA           
 D5E4  48        iD5E4      PHA           
 D5E5  8A        iD5E5      TXA           
 D5E6  48        iD5E6      PHA           
 D5E7  20 61 D3             JSR iD361     
 D5EA  A5 9F                LDA x9F       
 D5EC  A4 A0                LDY xA0       
 D5EE  20 82 D5             JSR iD582     
 D5F1  68                   PLA           
 D5F2  A8                   TAY           
 D5F3  68                   PLA           
 D5F4  18                   CLC           
 D5F5  65 71                ADC x71       
 D5F7  85 71                STA x71       
 D5F9  90 02                BCC iD5FD     
 D5FB  E6 72                INC x72       
 D5FD  98        iD5FD      TYA           
 D5FE  20 64 D5             JSR iD564     
 D601  4C AA D3             JMP iD3AA     

 D604  20 37 D6  RIGHT      JSR iD637     
 D607  18                   CLC           
 D608  F1 9F                SBC (x9F),Y   
 D60A  49 FF                EOR #$FF      
 D60C  4C DE D5             JMP iD5DE     

 D60F  A9 FF     MID        LDA #$FF      
 D611  85 B4                STA xB4       
 D613  20 C8 00             JSR iC8       
 D616  C9 29                CMP #$29      
 D618  F0 06                BEQ iD620     
 D61A  20 11 CE             JSR iCE11     
 D61D  20 76 D6             JSR iD676     
 D620  20 37 D6  iD620      JSR iD637     
 D623  CA                   DEX           
 D624  8A                   TXA           
 D625  48                   PHA           
 D626  18                   CLC           
 D627  A2 00                LDX #$00      
 D629  F1 9F                SBC (x9F),Y   
 D62B  B0 B8                BCS iD5E5     
 D62D  49 FF                EOR #$FF      
 D62F  C5 B4                CMP xB4       
 D631  90 B3                BCC iD5E6     
 D633  A5 B4                LDA xB4       
 D635  B0 AF                BCS iD5E6     
 D637  20 0B CE  iD637      JSR iCE0B     
 D63A  68                   PLA           
 D63B  85 A4                STA xA4       
 D63D  68                   PLA           
 D63E  85 A5                STA xA5       
 D640  68                   PLA           
 D641  68                   PLA           
 D642  68                   PLA           
 D643  AA                   TAX           
 D644  68                   PLA           
 D645  85 9F                STA x9F       
 D647  68                   PLA           
 D648  85 A0                STA xA0       
 D64A  A0 00                LDY #$00      
 D64C  8A                   TXA           
 D64D  F0 21                BEQ iD670     
 D64F  E6 A4                INC xA4       
 D651  6C A4 00             JMP (xA4)     
 D654  20 5A D6  LEN        JSR iD65A     
 D657  4C 87 D2  iD657      JMP iD287     
 D65A  20 7B D5  iD65A      JSR iD57B     
 D65D  A2 00                LDX #$00      
 D65F  86 5E                STX x5E       
 D661  A8                   TAY           
 D662  60                   RTS           
 D663  20 5A D6  ASC        JSR iD65A     
 D666  F0 08                BEQ iD670     
 D668  A0 00                LDY #$00      
 D66A  B1 71                LDA (x71),Y   
 D66C  A8                   TAY           
 D66D  4C 57 D6             JMP iD657     
 D670  4C 30 D1  iD670      JMP iD130     

 D673  20 C2 00  iD673      JSR iC2       
 D676  20 A4 CC  iD676      JSR iCCA4     
 D679  20 A3 D0  iD679      JSR iD0A3     
 D67C  A6 B3                LDX xB3       
 D67E  D0 F0                BNE iD670     
 D680  A6 B4                LDX xB4       
 D682  4C C8 00             JMP iC8       

 D685  20 5A D6  VAL        JSR iD65A     
 D688  D0 03                BNE iD68D     
 D68A  4C CC D7             JMP iD7CC     
 D68D  A6 C9     iD68D      LDX xC9       
 D68F  A4 CA                LDY xCA       
 D691  86 C0                STX xC0       
 D693  84 C1                STY xC1       
 D695  A6 71                LDX x71       
 D697  86 C9                STX xC9       
 D699  18                   CLC           
 D69A  65 71                ADC x71       
 D69C  85 73                STA x73       
 D69E  A6 72                LDX x72       
 D6A0  86 CA                STX xCA       
 D6A2  90 01                BCC iD6A5     
 D6A4  E8                   INX           
 D6A5  86 74     iD6A5      STX x74       
 D6A7  A0 00                LDY #$00      
 D6A9  B1 73                LDA (x73),Y   
 D6AB  48                   PHA           
 D6AC  A9 00                LDA #$00      
 D6AE  91 73                STA (x73),Y   
 D6B0  20 C8 00             JSR iC8       
 D6B3  20 C5 DB             JSR iDBC5     
 D6B6  68                   PLA           
 D6B7  A0 00                LDY #$00      
 D6B9  91 73                STA (x73),Y   
 D6BB  A6 C0     iD6BB      LDX xC0       
 D6BD  A4 C1                LDY xC1       
 D6BF  86 C9                STX xC9       
 D6C1  84 CA                STY xCA       
 D6C3  60                   RTS           

 D6C4  20 A4 CC  iD6C4      JSR iCCA4     
 D6C7  20 D0 D6             JSR iD6D0     
 D6CA  20 11 CE  iD6CA      JSR iCE11     
 D6CD  4C 76 D6             JMP iD676     

 D6D0  A5 B5     iD6D0      LDA xB5       
 D6D2  30 9C                BMI iD670     
 D6D4  A5 B0                LDA xB0       
 D6D6  C9 91                CMP #$91      
 D6D8  B0 96                BCS iD670     
 D6DA  20 6D DB             JSR iDB6D     
 D6DD  A5 B3                LDA xB3       
 D6DF  A4 B4                LDY xB4       
 D6E1  84 08                STY x08       
 D6E3  85 09                STA x09       
 D6E5  60                   RTS           

 D6E6  20 D0 D6  PEEK       JSR iD6D0     
 D6E9  A0 00                LDY #$00      
 D6EB  C9 C0                CMP #$C0      
 D6ED  90 04                BCC iD6F3     
 D6EF  C9 E1                CMP #$E1      
 D6F1  90 03                BCC iD6F6     
 D6F3  B1 08     iD6F3      LDA (x08),Y   
 D6F5  A8                   TAY           
 D6F6  4C 87 D2  iD6F6      JMP iD287     

 D6F9  20 C4 D6  POKE       JSR iD6C4     
 D6FC  8A                   TXA           
 D6FD  A0 00                LDY #$00      
 D6FF  91 08                STA (x08),Y   
 D701  60                   RTS           

 D702  20 C4 D6  WAIT       JSR iD6C4     
 D705  86 98                STX x98       
 D707  A2 00                LDX #$00      
 D709  20 C8 00             JSR iC8       
 D70C  F0 03                BEQ iD711     
 D70E  20 CA D6             JSR iD6CA     
 D711  86 99     iD711      STX x99       
 D713  A0 00                LDY #$00      
 D715  B1 08     iD715      LDA (x08),Y   
 D717  45 99                EOR x99       
 D719  25 98                AND x98       
 D71B  F0 F8                BEQ iD715     
 D71D  60        iD71D      RTS           

 D71E  A9 E3     iD71E      LDA #$E3      
 D720  A0 DD                LDY #$DD      
 D722  4C 3C D7             JMP iD73C     

 D725  20 5E D9  iD725      JSR iD95E     
 D728  A5 B5     iD728      LDA xB5       
 D72A  49 FF                EOR #$FF      
 D72C  85 B5                STA xB5       
 D72E  45 BD                EOR xBD       
 D730  85 BE                STA xBE       
 D732  A5 B0                LDA xB0       
 D734  4C 3F D7             JMP iD73F     

 D737  20 6E D8  iD737      JSR iD86E     
 D73A  90 3C                BCC iD778     
 D73C  20 5E D9  iD73C      JSR iD95E     
 D73F  D0 03     iD73F      BNE iD744     
 D741  4C CE DA             JMP iDACE     
 D744  A6 BF     iD744      LDX xBF       
 D746  86 A5                STX xA5       
 D748  A2 B8                LDX #$B8      
 D74A  A5 B8                LDA xB8       
 D74C  A8        iD74C      TAY           
 D74D  F0 CE                BEQ iD71D     
 D74F  38                   SEC           
 D750  E5 B0                SBC xB0       
 D752  F0 24                BEQ iD778     
 D754  90 12                BCC iD768     
 D756  84 B0                STY xB0       
 D758  A4 BD                LDY xBD       
 D75A  84 B5                STY xB5       
 D75C  49 FF                EOR #$FF      
 D75E  69 00                ADC #$00      
 D760  A0 00                LDY #$00      
 D762  84 A5                STY xA5       
 D764  A2 B0                LDX #$B0      
 D766  D0 04                BNE iD76C     
 D768  A0 00     iD768      LDY #$00      
 D76A  84 BF                STY xBF       
 D76C  C9 F9     iD76C      CMP #$F9      
 D76E  30 C7                BMI iD737     
 D770  A8                   TAY           
 D771  A5 BF                LDA xBF       
 D773  56 01                LSR x01,X     
 D775  20 85 D8             JSR iD885     
 D778  24 BE     iD778      BIT xBE       
 D77A  10 57                BPL iD7D3     
 D77C  A0 B0                LDY #$B0      
 D77E  E0 B8                CPX #$B8      
 D780  F0 02                BEQ iD784     
 D782  A0 B8                LDY #$B8      
 D784  38        iD784      SEC           
 D785  49 FF                EOR #$FF      
 D787  65 A5                ADC xA5       
 D789  85 BF                STA xBF       
 D78B  B9 04 00             LDA x04,Y     
 D78E  F5 04                SBC x04,X     
 D790  85 B4                STA xB4       
 D792  B9 03 00             LDA x03,Y     
 D795  F5 03                SBC x03,X     
 D797  85 B3                STA xB3       
 D799  B9 02 00             LDA x02,Y     
 D79C  F5 02                SBC x02,X     
 D79E  85 B2                STA xB2       
 D7A0  B9 01 00             LDA x01,Y     
 D7A3  F5 01                SBC x01,X     
 D7A5  85 B1                STA xB1       
 D7A7  B0 03     iD7A7      BCS iD7AC     
 D7A9  20 1C D8             JSR iD81C     
 D7AC  A0 00     iD7AC      LDY #$00      
 D7AE  98                   TYA           
 D7AF  18                   CLC           
 D7B0  A6 B1     iD7B0      LDX xB1       
 D7B2  D0 4A                BNE iD7FE     
 D7B4  A6 B2                LDX xB2       
 D7B6  86 B1                STX xB1       
 D7B8  A6 B3                LDX xB3       
 D7BA  86 B2                STX xB2       
 D7BC  A6 B4                LDX xB4       
 D7BE  86 B3                STX xB3       
 D7C0  A6 BF                LDX xBF       
 D7C2  86 B4                STX xB4       
 D7C4  84 BF                STY xBF       
 D7C6  69 08                ADC #$08      
 D7C8  C9 20                CMP #$20      
 D7CA  D0 E4                BNE iD7B0     
 D7CC  A9 00     iD7CC      LDA #$00      
 D7CE  85 B0     iD7CE      STA xB0       
 D7D0  85 B5     iD7D0      STA xB5       
 D7D2  60                   RTS           
 D7D3  65 A5     iD7D3      ADC xA5       
 D7D5  85 BF                STA xBF       
 D7D7  A5 B4                LDA xB4       
 D7D9  65 BC                ADC xBC       
 D7DB  85 B4                STA xB4       
 D7DD  A5 B3                LDA xB3       
 D7DF  65 BB                ADC xBB       
 D7E1  85 B3                STA xB3       
 D7E3  A5 B2                LDA xB2       
 D7E5  65 BA                ADC xBA       
 D7E7  85 B2                STA xB2       
 D7E9  A5 B1                LDA xB1       
 D7EB  65 B9                ADC xB9       
 D7ED  85 B1                STA xB1       
 D7EF  4C 0B D8             JMP iD80B     
 D7F2  69 01     iD7F2      ADC #$01      
 D7F4  06 BF                ASL xBF       
 D7F6  26 B4                ROL xB4       
 D7F8  26 B3                ROL xB3       
 D7FA  26 B2                ROL xB2       
 D7FC  26 B1                ROL xB1       
 D7FE  10 F2     iD7FE      BPL iD7F2     
 D800  38                   SEC           
 D801  E5 B0                SBC xB0       
 D803  B0 C7                BCS iD7CC     
 D805  49 FF                EOR #$FF      
 D807  69 01                ADC #$01      
 D809  85 B0                STA xB0       
 D80B  90 0E     iD80B      BCC iD81B     
 D80D  E6 B0     iD80D      INC xB0       
 D80F  F0 42                BEQ iD853     
 D811  66 B1                ROR xB1       
 D813  66 B2                ROR xB2       
 D815  66 B3                ROR xB3       
 D817  66 B4                ROR xB4       
 D819  66 BF                ROR xBF       
 D81B  60        iD81B      RTS           
 D81C  A5 B5     iD81C      LDA xB5       
 D81E  49 FF                EOR #$FF      
 D820  85 B5                STA xB5       
 D822  A5 B1     iD822      LDA xB1       
 D824  49 FF                EOR #$FF      
 D826  85 B1                STA xB1       
 D828  A5 B2                LDA xB2       
 D82A  49 FF                EOR #$FF      
 D82C  85 B2                STA xB2       
 D82E  A5 B3                LDA xB3       
 D830  49 FF                EOR #$FF      
 D832  85 B3                STA xB3       
 D834  A5 B4                LDA xB4       
 D836  49 FF                EOR #$FF      
 D838  85 B4                STA xB4       
 D83A  A5 BF                LDA xBF       
 D83C  49 FF                EOR #$FF      
 D83E  85 BF                STA xBF       
 D840  E6 BF                INC xBF       
 D842  D0 0E                BNE iD852     
 D844  E6 B4     iD844      INC xB4       
 D846  D0 0A                BNE iD852     
 D848  E6 B3                INC xB3       
 D84A  D0 06                BNE iD852     
 D84C  E6 B2                INC xB2       
 D84E  D0 02                BNE iD852     
 D850  E6 B1                INC xB1       
 D852  60        iD852      RTS           
 D853  A2 4A     iD853      LDX #$4A      
 D855  4C 59 C3             JMP iC359     

 D858  A2 74     iD858      LDX #$74      
 D85A  B4 04     iD85A      LDY x04,X     
 D85C  84 BF                STY xBF       
 D85E  B4 03                LDY x03,X     
 D860  94 04                STY x04,X     
 D862  B4 02                LDY x02,X     
 D864  94 03                STY x03,X     
 D866  B4 01                LDY x01,X     
 D868  94 02                STY x02,X     
 D86A  A4 B7                LDY xB7       
 D86C  94 01                STY x01,X     
 D86E  69 08     iD86E      ADC #$08      
 D870  30 E8                BMI iD85A     
 D872  F0 E6                BEQ iD85A     
 D874  E9 08                SBC #$08      
 D876  A8                   TAY           
 D877  A5 BF                LDA xBF       
 D879  B0 14                BCS iD88F     
 D87B  16 01     iD87B      ASL x01,X     
 D87D  90 02                BCC iD881     
 D87F  F6 01                INC x01,X     
 D881  76 01     iD881      ROR x01,X     
 D883  76 01                ROR x01,X     
 D885  76 02     iD885      ROR x02,X     
 D887  76 03                ROR x03,X     
 D889  76 04                ROR x04,X     
 D88B  6A                   ROR           
 D88C  C8                   INY           
 D88D  D0 EC                BNE iD87B     
 D88F  18        iD88F      CLC           
 D890  60                   RTS           

 D891             .byte $81, $00, $00, $00, $00, $03, $7F, $5E  ;.....c.^
 D899             .byte $56, $CB, $79, $80, $13, $9B, $0B, $64  ;vKY.s.kD
 D8A1             .byte $80, $76, $38, $93, $16, $82, $38, $AA  ;.V8.v.8*
 D8A9             .byte $3B, $20, $80, $35, $04, $F3, $34, $81  ;; .5d.4.
 D8B1             .byte $35, $04, $F3, $34, $80, $80, $00, $00  ;5d.4....
 D8B9             .byte $00, $80, $31, $72, $17, $F8            ;..1Rw.

 D8BF  20 FD DA  LOG        JSR iDAFD     
 D8C2  F0 02                BEQ iD8C6     
 D8C4  10 03                BPL iD8C9     
 D8C6  4C 30 D1  iD8C6      JMP iD130     
 D8C9  A5 B0     iD8C9      LDA xB0       
 D8CB  E9 7F                SBC #$7F      
 D8CD  48                   PHA           
 D8CE  A9 80                LDA #$80      
 D8D0  85 B0                STA xB0       
 D8D2  A9 AB                LDA #$AB      
 D8D4  A0 D8                LDY #$D8      
 D8D6  20 3C D7             JSR iD73C     
 D8D9  A9 B0                LDA #$B0      
 D8DB  A0 D8                LDY #$D8      
 D8DD  20 E1 D9             JSR iD9E1     
 D8E0  A9 91                LDA #$91      
 D8E2  A0 D8                LDY #$D8      
 D8E4  20 25 D7             JSR iD725     
 D8E7  A9 96                LDA #$96      
 D8E9  A0 D8                LDY #$D8      
 D8EB  20 F3 DE             JSR iDEF3     
 D8EE  A9 B5                LDA #$B5      
 D8F0  A0 D8                LDY #$D8      
 D8F2  20 3C D7             JSR iD73C     
 D8F5  68                   PLA           
 D8F6  20 50 DC             JSR iDC50     
 D8F9  A9 BA                LDA #$BA      
 D8FB  A0 D8                LDY #$D8      
 D8FD  20 5E D9  iD8FD      JSR iD95E     
 D900  F0 5B                BEQ iD95D     
 D902  20 89 D9             JSR iD989     
 D905  A9 00                LDA #$00      
 D907  85 75                STA x75       
 D909  85 76                STA x76       
 D90B  85 77                STA x77       
 D90D  85 78                STA x78       
 D90F  A5 BF                LDA xBF       
 D911  20 2B D9             JSR iD92B     
 D914  A5 B4                LDA xB4       
 D916  20 2B D9             JSR iD92B     
 D919  A5 B3                LDA xB3       
 D91B  20 2B D9             JSR iD92B     
 D91E  A5 B2                LDA xB2       
 D920  20 2B D9             JSR iD92B     
 D923  A5 B1                LDA xB1       
 D925  20 30 D9             JSR iD930     
 D928  4C 61 DA             JMP iDA61     
 D92B  D0 03     iD92B      BNE iD930     
 D92D  4C 58 D8             JMP iD858     
 D930  4A        iD930      LSR           
 D931  09 80                ORA #$80      
 D933  A8        iD933      TAY           
 D934  90 19                BCC iD94F     
 D936  18                   CLC           
 D937  A5 78                LDA x78       
 D939  65 BC                ADC xBC       
 D93B  85 78                STA x78       
 D93D  A5 77                LDA x77       
 D93F  65 BB                ADC xBB       
 D941  85 77                STA x77       
 D943  A5 76                LDA x76       
 D945  65 BA                ADC xBA       
 D947  85 76                STA x76       
 D949  A5 75                LDA x75       
 D94B  65 B9                ADC xB9       
 D94D  85 75                STA x75       
 D94F  66 75     iD94F      ROR x75       
 D951  66 76                ROR x76       
 D953  66 77                ROR x77       
 D955  66 78                ROR x78       
 D957  66 BF                ROR xBF       
 D959  98                   TYA           
 D95A  4A                   LSR           
 D95B  D0 D6                BNE iD933     
 D95D  60        iD95D      RTS           

 D95E  85 71     iD95E      STA x71       
 D960  84 72                STY x72       
 D962  A0 04                LDY #$04      
 D964  B1 71                LDA (x71),Y   
 D966  85 BC                STA xBC       
 D968  88                   DEY           
 D969  B1 71                LDA (x71),Y   
 D96B  85 BB                STA xBB       
 D96D  88                   DEY           
 D96E  B1 71                LDA (x71),Y   
 D970  85 BA                STA xBA       
 D972  88                   DEY           
 D973  B1 71                LDA (x71),Y   
 D975  85 BD                STA xBD       
 D977  45 B5                EOR xB5       
 D979  85 BE                STA xBE       
 D97B  A5 BD                LDA xBD       
 D97D  09 80                ORA #$80      
 D97F  85 B9                STA xB9       
 D981  88                   DEY           
 D982  B1 71                LDA (x71),Y   
 D984  85 B8                STA xB8       
 D986  A5 B0                LDA xB0       
 D988  60                   RTS           

 D989  A5 B8     iD989      LDA xB8       
 D98B  F0 1F     iD98B      BEQ iD9AC     
 D98D  18                   CLC           
 D98E  65 B0                ADC xB0       
 D990  90 04                BCC iD996     
 D992  30 1D                BMI iD9B1     
 D994  18                   CLC           
 D995  2C 10 14             .byte $2C
 D996  10 14     iD996      BPL iD9AC     
 D998  69 80                ADC #$80      
 D99A  85 B0                STA xB0       
 D99C  D0 03                BNE iD9A1     
 D99E  4C D0 D7             JMP iD7D0     
 D9A1  A5 BE     iD9A1      LDA xBE       
 D9A3  85 B5                STA xB5       
 D9A5  60                   RTS           
 D9A6  A5 B5     iD9A6      LDA xB5       
 D9A8  49 FF                EOR #$FF      
 D9AA  30 05                BMI iD9B1     
 D9AC  68        iD9AC      PLA           
 D9AD  68                   PLA           
 D9AE  4C CC D7             JMP iD7CC     
 D9B1  4C 53 D8  iD9B1      JMP iD853     

 D9B4  20 DE DA  iD9B4      JSR iDADE     
 D9B7  AA                   TAX           
 D9B8  F0 10                BEQ iD9CA     
 D9BA  18                   CLC           
 D9BB  69 02                ADC #$02      
 D9BD  B0 F2                BCS iD9B1     
 D9BF  A2 00     iD9BF      LDX #$00      
 D9C1  86 BE                STX xBE       
 D9C3  20 4C D7             JSR iD74C     
 D9C6  E6 B0                INC xB0       
 D9C8  F0 E7                BEQ iD9B1     
 D9CA  60        iD9CA      RTS           

 D9CB             .byte $84, $20, $00, $00, $00                 ;. ...

 D9D0  20 DE DA  iD9D0      JSR iDADE     
 D9D3  A9 CB                LDA #$CB      
 D9D5  A0 D9                LDY #$D9      
 D9D7  A2 00                LDX #$00      
 D9D9  86 BE     iD9D9      STX xBE       
 D9DB  20 74 DA             JSR iDA74     
 D9DE  4C E4 D9             JMP iD9E4     

 D9E1  20 5E D9  iD9E1      JSR iD95E     
 D9E4  F0 76     iD9E4      BEQ iDA5C     
 D9E6  20 ED DA             JSR iDAED     
 D9E9  A9 00                LDA #$00      
 D9EB  38                   SEC           
 D9EC  E5 B0                SBC xB0       
 D9EE  85 B0                STA xB0       
 D9F0  20 89 D9             JSR iD989     
 D9F3  E6 B0                INC xB0       
 D9F5  F0 BA                BEQ iD9B1     
 D9F7  A2 FC                LDX #$FC      
 D9F9  A9 01                LDA #$01      
 D9FB  A4 B9     iD9FB      LDY xB9       
 D9FD  C4 B1                CPY xB1       
 D9FF  D0 10                BNE iDA11     
 DA01  A4 BA                LDY xBA       
 DA03  C4 B2                CPY xB2       
 DA05  D0 0A                BNE iDA11     
 DA07  A4 BB                LDY xBB       
 DA09  C4 B3                CPY xB3       
 DA0B  D0 04                BNE iDA11     
 DA0D  A4 BC                LDY xBC       
 DA0F  C4 B4                CPY xB4       
 DA11  08        iDA11      PHP           
 DA12  2A                   ROL           
 DA13  90 09                BCC iDA1E     
 DA15  E8                   INX           
 DA16  95 78                STA x78,X     
 DA18  F0 32                BEQ iDA4C     
 DA1A  10 34                BPL iDA50     
 DA1C  A9 01                LDA #$01      
 DA1E  28        iDA1E      PLP           
 DA1F  B0 0E                BCS iDA2F     
 DA21  06 BC     iDA21      ASL xBC       
 DA23  26 BB                ROL xBB       
 DA25  26 BA                ROL xBA       
 DA27  26 B9                ROL xB9       
 DA29  B0 E6                BCS iDA11     
 DA2B  30 CE                BMI iD9FB     
 DA2D  10 E2                BPL iDA11     
 DA2F  A8        iDA2F      TAY           
 DA30  A5 BC                LDA xBC       
 DA32  E5 B4                SBC xB4       
 DA34  85 BC                STA xBC       
 DA36  A5 BB                LDA xBB       
 DA38  E5 B3                SBC xB3       
 DA3A  85 BB                STA xBB       
 DA3C  A5 BA                LDA xBA       
 DA3E  E5 B2                SBC xB2       
 DA40  85 BA                STA xBA       
 DA42  A5 B9                LDA xB9       
 DA44  E5 B1                SBC xB1       
 DA46  85 B9                STA xB9       
 DA48  98                   TYA           
 DA49  4C 21 DA             JMP iDA21     
 DA4C  A9 40     iDA4C      LDA #$40      
 DA4E  D0 CE                BNE iDA1E     
 DA50  0A        iDA50      ASL           
 DA51  0A                   ASL           
 DA52  0A                   ASL           
 DA53  0A                   ASL           
 DA54  0A                   ASL           
 DA55  0A                   ASL           
 DA56  85 BF                STA xBF       
 DA58  28                   PLP           
 DA59  4C 61 DA             JMP iDA61     
 DA5C  A2 8A     iDA5C      LDX #$8A      
 DA5E  4C 59 C3             JMP iC359     

 DA61  A5 75     iDA61      LDA x75       
 DA63  85 B1                STA xB1       
 DA65  A5 76                LDA x76       
 DA67  85 B2                STA xB2       
 DA69  A5 77                LDA x77       
 DA6B  85 B3                STA xB3       
 DA6D  A5 78                LDA x78       
 DA6F  85 B4                STA xB4       
 DA71  4C AC D7             JMP iD7AC     

 DA74  85 71     iDA74      STA x71       
 DA76  84 72                STY x72       
 DA78  A0 04                LDY #$04      
 DA7A  B1 71                LDA (x71),Y   
 DA7C  85 B4                STA xB4       
 DA7E  88                   DEY           
 DA7F  B1 71                LDA (x71),Y   
 DA81  85 B3                STA xB3       
 DA83  88                   DEY           
 DA84  B1 71                LDA (x71),Y   
 DA86  85 B2                STA xB2       
 DA88  88                   DEY           
 DA89  B1 71                LDA (x71),Y   
 DA8B  85 B5                STA xB5       
 DA8D  09 80                ORA #$80      
 DA8F  85 B1                STA xB1       
 DA91  88                   DEY           
 DA92  B1 71                LDA (x71),Y   
 DA94  85 B0                STA xB0       
 DA96  84 BF                STY xBF       
 DA98  60                   RTS           

 DA99  A2 AB     iDA99      LDX #$AB      
 DA9B  2C A2 A6             .byte $2C
 DA9C  A2 A6     iDA9C      LDX #$A6      
 DA9E  A0 00                LDY #$00      
 DAA0  F0 04                BEQ iDAA6     
 DAA2  A6 98     iDAA2      LDX x98       
 DAA4  A4 99                LDY x99       
 DAA6  20 ED DA  iDAA6      JSR iDAED     
 DAA9  86 71                STX x71       
 DAAB  84 72                STY x72       
 DAAD  A0 04                LDY #$04      
 DAAF  A5 B4                LDA xB4       
 DAB1  91 71                STA (x71),Y   
 DAB3  88                   DEY           
 DAB4  A5 B3                LDA xB3       
 DAB6  91 71                STA (x71),Y   
 DAB8  88                   DEY           
 DAB9  A5 B2                LDA xB2       
 DABB  91 71                STA (x71),Y   
 DABD  88                   DEY           
 DABE  A5 B5                LDA xB5       
 DAC0  09 7F                ORA #$7F      
 DAC2  25 B1                AND xB1       
 DAC4  91 71                STA (x71),Y   
 DAC6  88                   DEY           
 DAC7  A5 B0                LDA xB0       
 DAC9  91 71                STA (x71),Y   
 DACB  84 BF                STY xBF       
 DACD  60                   RTS           

 DACE  A5 BD     iDACE      LDA xBD       
 DAD0  85 B5     iDAD0      STA xB5       
 DAD2  A2 05                LDX #$05      
 DAD4  B5 B7     iDAD4      LDA xB7,X     
 DAD6  95 AF                STA xAF,X     
 DAD8  CA                   DEX           
 DAD9  D0 F9                BNE iDAD4     
 DADB  86 BF                STX xBF       
 DADD  60                   RTS           

 DADE  20 ED DA  iDADE      JSR iDAED     
 DAE1  A2 06     iDAE1      LDX #$06      
 DAE3  B5 AF     iDAE3      LDA xAF,X     
 DAE5  95 B7                STA xB7,X     
 DAE7  CA                   DEX           
 DAE8  D0 F9                BNE iDAE3     
 DAEA  86 BF                STX xBF       
 DAEC  60        iDAEC      RTS           

 DAED  A5 B0     iDAED      LDA xB0       
 DAEF  F0 FB                BEQ iDAEC     
 DAF1  06 BF                ASL xBF       
 DAF3  90 F7                BCC iDAEC     
 DAF5  20 44 D8  iDAF5      JSR iD844     
 DAF8  D0 F2                BNE iDAEC     
 DAFA  4C 0D D8             JMP iD80D     

 DAFD  A5 B0     iDAFD      LDA xB0       
 DAFF  F0 09                BEQ iDB0A     
 DB01  A5 B5     iDB01      LDA xB5       
 DB03  2A        iDB03      ROL           
 DB04  A9 FF                LDA #$FF      
 DB06  B0 02                BCS iDB0A     
 DB08  A9 01                LDA #$01      
 DB0A  60        iDB0A      RTS           

 DB0B  20 FD DA  SGN        JSR iDAFD     
 DB0E  85 B1     iDB0E      STA xB1       
 DB10  A9 00                LDA #$00      
 DB12  85 B2                STA xB2       
 DB14  A2 88                LDX #$88      
 DB16  A5 B1     iDB16      LDA xB1       
 DB18  49 FF                EOR #$FF      
 DB1A  2A                   ROL           
 DB1B  A9 00     iDB1B      LDA #$00      
 DB1D  85 B4                STA xB4       
 DB1F  85 B3                STA xB3       
 DB21  86 B0     iDB21      STX xB0       
 DB23  85 BF                STA xBF       
 DB25  85 B5                STA xB5       
 DB27  4C A7 D7             JMP iD7A7     

 DB2A  46 B5     ABS        LSR xB5       
 DB2C  60                   RTS           

 DB2D  85 73     iDB2D      STA x73       
 DB2F  84 74     iDB2F      STY x74       
 DB31  A0 00                LDY #$00      
 DB33  B1 73                LDA (x73),Y   
 DB35  C8                   INY           
 DB36  AA                   TAX           
 DB37  F0 C4                BEQ iDAFD     
 DB39  B1 73                LDA (x73),Y   
 DB3B  45 B5                EOR xB5       
 DB3D  30 C2                BMI iDB01     
 DB3F  E4 B0                CPX xB0       
 DB41  D0 21                BNE iDB64     
 DB43  B1 73                LDA (x73),Y   
 DB45  09 80                ORA #$80      
 DB47  C5 B1                CMP xB1       
 DB49  D0 19                BNE iDB64     
 DB4B  C8                   INY           
 DB4C  B1 73                LDA (x73),Y   
 DB4E  C5 B2                CMP xB2       
 DB50  D0 12                BNE iDB64     
 DB52  C8                   INY           
 DB53  B1 73                LDA (x73),Y   
 DB55  C5 B3                CMP xB3       
 DB57  D0 0B                BNE iDB64     
 DB59  C8                   INY           
 DB5A  A9 7F                LDA #$7F      
 DB5C  C5 BF                CMP xBF       
 DB5E  B1 73                LDA (x73),Y   
 DB60  E5 B4                SBC xB4       
 DB62  F0 28                BEQ iDB8C     
 DB64  A5 B5     iDB64      LDA xB5       
 DB66  90 02                BCC iDB6A     
 DB68  49 FF                EOR #$FF      
 DB6A  4C 03 DB  iDB6A      JMP iDB03     
 DB6D  A5 B0     iDB6D      LDA xB0       
 DB6F  F0 4A                BEQ iDBBB     
 DB71  38                   SEC           
 DB72  E9 A0                SBC #$A0      
 DB74  24 B5                BIT xB5       
 DB76  10 09                BPL iDB81     
 DB78  AA                   TAX           
 DB79  A9 FF                LDA #$FF      
 DB7B  85 B7                STA xB7       
 DB7D  20 22 D8             JSR iD822     
 DB80  8A                   TXA           
 DB81  A2 B0     iDB81      LDX #$B0      
 DB83  C9 F9                CMP #$F9      
 DB85  10 06                BPL iDB8D     
 DB87  20 6E D8             JSR iD86E     
 DB8A  84 B7                STY xB7       
 DB8C  60        iDB8C      RTS           
 DB8D  A8        iDB8D      TAY           
 DB8E  A5 B5                LDA xB5       
 DB90  29 80                AND #$80      
 DB92  46 B1                LSR xB1       
 DB94  05 B1                ORA xB1       
 DB96  85 B1                STA xB1       
 DB98  20 85 D8             JSR iD885     
 DB9B  84 B7                STY xB7       
 DB9D  60                   RTS           
 DB9E  A5 B0     INT        LDA xB0       
 DBA0  C9 A0                CMP #$A0      
 DBA2  B0 20                BCS iDBC4     
 DBA4  20 6D DB             JSR iDB6D     
 DBA7  84 BF                STY xBF       
 DBA9  A5 B5                LDA xB5       
 DBAB  84 B5                STY xB5       
 DBAD  49 80                EOR #$80      
 DBAF  2A                   ROL           
 DBB0  A9 A0                LDA #$A0      
 DBB2  85 B0                STA xB0       
 DBB4  A5 B4                LDA xB4       
 DBB6  85 5A                STA x5A       
 DBB8  4C A7 D7             JMP iD7A7     
 DBBB  85 B1     iDBBB      STA xB1       
 DBBD  85 B2                STA xB2       
 DBBF  85 B3                STA xB3       
 DBC1  85 B4                STA xB4       
 DBC3  A8                   TAY           
 DBC4  60        iDBC4      RTS           

 DBC5  A0 00     iDBC5      LDY #$00      
 DBC7  A2 0A                LDX #$0A      
 DBC9  94 AC     iDBC9      STY xAC,X     
 DBCB  CA                   DEX           
 DBCC  10 FB                BPL iDBC9     
 DBCE  90 0F                BCC iDBDF     
 DBD0  C9 2D                CMP #$2D      
 DBD2  D0 04                BNE iDBD8     
 DBD4  86 B6                STX xB6       
 DBD6  F0 04                BEQ iDBDC     
 DBD8  C9 2B     iDBD8      CMP #$2B      
 DBDA  D0 05                BNE iDBE1     
 DBDC  20 C2 00  iDBDC      JSR iC2       
 DBDF  90 5B     iDBDF      BCC iDC3C     
 DBE1  C9 2E     iDBE1      CMP #$2E      
 DBE3  F0 2E                BEQ iDC13     
 DBE5  C9 45                CMP #$45      
 DBE7  D0 30                BNE iDC19     
 DBE9  20 C2 00             JSR iC2       
 DBEC  90 17                BCC iDC05     
 DBEE  C9 AB                CMP #$AB      
 DBF0  F0 0E                BEQ iDC00     
 DBF2  C9 2D                CMP #$2D      
 DBF4  F0 0A                BEQ iDC00     
 DBF6  C9 AA                CMP #$AA      
 DBF8  F0 08                BEQ iDC02     
 DBFA  C9 2B                CMP #$2B      
 DBFC  F0 04                BEQ iDC02     
 DBFE  D0 07                BNE iDC07     
 DC00  66 AF     iDC00      ROR xAF       
 DC02  20 C2 00  iDC02      JSR iC2       
 DC05  90 5C     iDC05      BCC iDC63     
 DC07  24 AF     iDC07      BIT xAF       
 DC09  10 0E                BPL iDC19     
 DC0B  A9 00                LDA #$00      
 DC0D  38                   SEC           
 DC0E  E5 AD                SBC xAD       
 DC10  4C 1B DC             JMP iDC1B     
 DC13  66 AE     iDC13      ROR xAE       
 DC15  24 AE                BIT xAE       
 DC17  50 C3                BVC iDBDC     
 DC19  A5 AD     iDC19      LDA xAD       
 DC1B  38        iDC1B      SEC           
 DC1C  E5 AC                SBC xAC       
 DC1E  85 AD                STA xAD       
 DC20  F0 12                BEQ iDC34     
 DC22  10 09                BPL iDC2D     
 DC24  20 D0 D9  iDC24      JSR iD9D0     
 DC27  E6 AD                INC xAD       
 DC29  D0 F9                BNE iDC24     
 DC2B  F0 07                BEQ iDC34     
 DC2D  20 B4 D9  iDC2D      JSR iD9B4     
 DC30  C6 AD                DEC xAD       
 DC32  D0 F9                BNE iDC2D     
 DC34  A5 B6     iDC34      LDA xB6       
 DC36  30 01                BMI iDC39     
 DC38  60                   RTS           
 DC39  4C 67 DE  iDC39      JMP iDE67     
 DC3C  48        iDC3C      PHA           
 DC3D  24 AE                BIT xAE       
 DC3F  10 02                BPL iDC43     
 DC41  E6 AC                INC xAC       
 DC43  20 B4 D9  iDC43      JSR iD9B4     
 DC46  68                   PLA           
 DC47  38                   SEC           
 DC48  E9 30                SBC #$30      
 DC4A  20 50 DC             JSR iDC50     
 DC4D  4C DC DB             JMP iDBDC     
 DC50  48        iDC50      PHA           
 DC51  20 DE DA             JSR iDADE     
 DC54  68                   PLA           
 DC55  20 0E DB             JSR iDB0E     
 DC58  A5 BD                LDA xBD       
 DC5A  45 B5                EOR xB5       
 DC5C  85 BE                STA xBE       
 DC5E  A6 B0                LDX xB0       
 DC60  4C 3F D7             JMP iD73F     
 DC63  A5 AD     iDC63      LDA xAD       
 DC65  C9 0C                CMP #$0C      
 DC67  90 09                BCC iDC72     
 DC69  24 AF                BIT xAF       
 DC6B  30 03                BMI iDC70     
 DC6D  4C 53 D8             JMP iD853     
 DC70  A9 0B     iDC70      LDA #$0B      
 DC72  0A        iDC72      ASL           
 DC73  0A                   ASL           
 DC74  18                   CLC           
 DC75  65 AD                ADC xAD       
 DC77  0A                   ASL           
 DC78  18                   CLC           
 DC79  A0 00                LDY #$00      
 DC7B  71 C9                ADC (xC9),Y   
 DC7D  38                   SEC           
 DC7E  E9 30                SBC #$30      
 DC80  85 AD                STA xAD       
 DC82  4C 02 DC             JMP iDC02     

 DC85             .byte $9B, $3E, $BC, $1F, $FD, $9E, $6E, $6B  ;.><_..NK
 DC8D             .byte $27, $FE, $9E, $6E, $6B, $28, $00       ;'..NK(.

 DC94  A9 94     iDC94      LDA #$94      
 DC96  A0 C2                LDY #$C2      
 DC98  20 AC DC             JSR iDCAC     
 DC9B  A5 89                LDA x89       
 DC9D  A6 88                LDX x88       
 DC9F  85 B1     iDC9F      STA xB1       
 DCA1  86 B2                STX xB2       
 DCA3  A2 90                LDX #$90      
 DCA5  38                   SEC           
 DCA6  20 1B DB             JSR iDB1B     
 DCA9  20 AF DC             JSR iDCAF     
 DCAC  4C 27 CA  iDCAC      JMP iCA27     

 DCAF  A0 01     iDCAF      LDY #$01      
 DCB1  A9 20     iDCB1      LDA #$20      
 DCB3  24 B5                BIT xB5       
 DCB5  10 02                BPL iDCB9     
 DCB7  A9 2D                LDA #$2D      
 DCB9  99 FF 00  iDCB9      STA STACK-1,Y 
 DCBC  85 B5                STA xB5       
 DCBE  84 C0                STY xC0       
 DCC0  C8                   INY           
 DCC1  A9 30                LDA #$30      
 DCC3  A6 B0                LDX xB0       
 DCC5  D0 03                BNE iDCCA     
 DCC7  4C D6 DD             JMP iDDD6     
 DCCA  A9 00     iDCCA      LDA #$00      
 DCCC  E0 80                CPX #$80      
 DCCE  F0 02                BEQ iDCD2     
 DCD0  B0 09                BCS iDCDB     
 DCD2  A9 8F     iDCD2      LDA #$8F      
 DCD4  A0 DC                LDY #$DC      
 DCD6  20 FD D8             JSR iD8FD     
 DCD9  A9 F7                LDA #$F7      
 DCDB  85 AC     iDCDB      STA xAC       
 DCDD  A9 8A     iDCDD      LDA #$8A      
 DCDF  A0 DC                LDY #$DC      
 DCE1  20 2D DB             JSR iDB2D     
 DCE4  F0 1E                BEQ iDD04     
 DCE6  10 12                BPL iDCFA     
 DCE8  A9 85     iDCE8      LDA #$85      
 DCEA  A0 DC                LDY #$DC      
 DCEC  20 2D DB             JSR iDB2D     
 DCEF  F0 02                BEQ iDCF3     
 DCF1  10 0E                BPL iDD01     
 DCF3  20 B4 D9  iDCF3      JSR iD9B4     
 DCF6  C6 AC                DEC xAC       
 DCF8  D0 EE                BNE iDCE8     
 DCFA  20 D0 D9  iDCFA      JSR iD9D0     
 DCFD  E6 AC                INC xAC       
 DCFF  D0 DC                BNE iDCDD     
 DD01  20 1E D7  iDD01      JSR iD71E     
 DD04  20 6D DB  iDD04      JSR iDB6D     
 DD07  A2 01                LDX #$01      
 DD09  A5 AC                LDA xAC       
 DD0B  18                   CLC           
 DD0C  69 0A                ADC #$0A      
 DD0E  30 09                BMI iDD19     
 DD10  C9 0B                CMP #$0B      
 DD12  B0 06                BCS iDD1A     
 DD14  69 FF                ADC #$FF      
 DD16  AA                   TAX           
 DD17  A9 02                LDA #$02      
 DD19  38        iDD19      SEC           
 DD1A  E9 02     iDD1A      SBC #$02      
 DD1C  85 AD                STA xAD       
 DD1E  86 AC                STX xAC       
 DD20  8A                   TXA           
 DD21  F0 02                BEQ iDD25     
 DD23  10 13                BPL iDD38     
 DD25  A4 C0     iDD25      LDY xC0       
 DD27  A9 2E                LDA #$2E      
 DD29  C8                   INY           
 DD2A  99 FF 00             STA STACK-1,Y 
 DD2D  8A                   TXA           
 DD2E  F0 06                BEQ iDD36     
 DD30  A9 30                LDA #$30      
 DD32  C8                   INY           
 DD33  99 FF 00             STA STACK-1,Y 
 DD36  84 C0     iDD36      STY xC0       
 DD38  A0 00     iDD38      LDY #$00      
 DD3A  A2 80     iDD3A      LDX #$80      
 DD3C  A5 B4     iDD3C      LDA xB4       
 DD3E  18                   CLC           
 DD3F  79 EB DD             ADC xDDEB,Y   
 DD42  85 B4                STA xB4       
 DD44  A5 B3                LDA xB3       
 DD46  79 EA DD             ADC xDDEA,Y   
 DD49  85 B3                STA xB3       
 DD4B  A5 B2                LDA xB2       
 DD4D  79 E9 DD             ADC xDDE9,Y   
 DD50  85 B2                STA xB2       
 DD52  A5 B1                LDA xB1       
 DD54  79 E8 DD             ADC xDDE8,Y   
 DD57  85 B1                STA xB1       
 DD59  E8                   INX           
 DD5A  B0 04                BCS iDD60     
 DD5C  10 DE                BPL iDD3C     
 DD5E  30 02                BMI iDD62     
 DD60  30 DA     iDD60      BMI iDD3C     
 DD62  8A        iDD62      TXA           
 DD63  90 04                BCC iDD69     
 DD65  49 FF                EOR #$FF      
 DD67  69 0A                ADC #$0A      
 DD69  69 2F     iDD69      ADC #$2F      
 DD6B  C8                   INY           
 DD6C  C8                   INY           
 DD6D  C8                   INY           
 DD6E  C8                   INY           
 DD6F  84 96                STY x96       
 DD71  A4 C0                LDY xC0       
 DD73  C8                   INY           
 DD74  AA                   TAX           
 DD75  29 7F                AND #$7F      
 DD77  99 FF 00             STA STACK-1,Y 
 DD7A  C6 AC                DEC xAC       
 DD7C  D0 06                BNE iDD84     
 DD7E  A9 2E                LDA #$2E      
 DD80  C8                   INY           
 DD81  99 FF 00             STA STACK-1,Y 
 DD84  84 C0     iDD84      STY xC0       
 DD86  A4 96                LDY x96       
 DD88  8A                   TXA           
 DD89  49 FF                EOR #$FF      
 DD8B  29 80                AND #$80      
 DD8D  AA                   TAX           
 DD8E  C0 24                CPY #$24      
 DD90  F0 04                BEQ iDD96     
 DD92  C0 3C                CPY #$3C      
 DD94  D0 A6                BNE iDD3C     
 DD96  A4 C0     iDD96      LDY xC0       
 DD98  B9 FF 00  iDD98      LDA STACK-1,Y 
 DD9B  88                   DEY           
 DD9C  C9 30                CMP #$30      
 DD9E  F0 F8                BEQ iDD98     
 DDA0  C9 2E                CMP #$2E      
 DDA2  F0 01                BEQ iDDA5     
 DDA4  C8                   INY           
 DDA5  A9 2B     iDDA5      LDA #$2B      
 DDA7  A6 AD                LDX xAD       
 DDA9  F0 2E                BEQ iDDD9     
 DDAB  10 08                BPL iDDB5     
 DDAD  A9 00                LDA #$00      
 DDAF  38                   SEC           
 DDB0  E5 AD                SBC xAD       
 DDB2  AA                   TAX           
 DDB3  A9 2D                LDA #$2D      
 DDB5  99 01 01  iDDB5      STA STACK+1,Y 
 DDB8  A9 45                LDA #$45      
 DDBA  99 00 01             STA STACK,Y   
 DDBD  8A                   TXA           
 DDBE  A2 2F                LDX #$2F      
 DDC0  38                   SEC           
 DDC1  E8        iDDC1      INX           
 DDC2  E9 0A                SBC #$0A      
 DDC4  B0 FB                BCS iDDC1     
 DDC6  69 3A                ADC #$3A      
 DDC8  99 03 01             STA STACK+3,Y 
 DDCB  8A                   TXA           
 DDCC  99 02 01             STA STACK+2,Y 
 DDCF  A9 00                LDA #$00      
 DDD1  99 04 01             STA STACK+4,Y 
 DDD4  F0 08                BEQ iDDDE     
 DDD6  99 FF 00  iDDD6      STA STACK-1,Y 
 DDD9  A9 00     iDDD9      LDA #$00      
 DDDB  99 00 01             STA STACK,Y   
 DDDE  A9 00     iDDDE      LDA #$00      
 DDE0  A0 01                LDY #$01      
 DDE2  60                   RTS           

 DDE3             .byte $80, $00, $00, $00, $00                 ;.....
 DDE8  xDDE8      .byte $FA                                     ;.
 DDE9  xDDE9      .byte $0A                                     ;j
 DDEA  xDDEA      .byte $1F                                     ;_
 DDEB  xDDEB      .byte $00, $00, $98, $96, $80, $FF, $F0, $BD  ;.......=
 DDF3             .byte $C0, $00, $01, $86, $A0, $FF, $FF, $D8  ;..a. ..X
 DDFB             .byte $F0, $00, $00, $03, $E8, $FF, $FF, $FF  ;...c....
 DE03             .byte $9C, $00, $00, $00, $0A, $FF, $FF, $FF  ;....j...
 DE0B             .byte $FF, $FF, $DF, $0A, $80, $00, $03, $4B  ;...j..ck
 DE13             .byte $C0, $FF, $FF, $73, $60, $00, $00, $0E  ;...S`..n
 DE1B             .byte $10, $FF, $FF, $FD, $A8, $00, $00, $00  ;p...(...
 DE23             .byte $3C                                     ;<

 DE24  20 DE DA  SQR        JSR iDADE     
 DE27  A9 E3                LDA #$E3      
 DE29  A0 DD                LDY #$DD      
 DE2B  20 74 DA             JSR iDA74     
 DE2E  F0 70                BEQ EXP       
 DE30  A5 B8                LDA xB8       
 DE32  D0 03                BNE iDE37     
 DE34  4C CE D7             JMP iD7CE     
 DE37  A2 9D     iDE37      LDX #$9D      
 DE39  A0 00                LDY #$00      
 DE3B  20 A6 DA             JSR iDAA6     
 DE3E  A5 BD                LDA xBD       
 DE40  10 0F                BPL iDE51     
 DE42  20 9E DB             JSR INT       
 DE45  A9 9D                LDA #$9D      
 DE47  A0 00                LDY #$00      
 DE49  20 2D DB             JSR iDB2D     
 DE4C  D0 03                BNE iDE51     
 DE4E  98                   TYA           
 DE4F  A4 5A                LDY x5A       
 DE51  20 D0 DA  iDE51      JSR iDAD0     
 DE54  98                   TYA           
 DE55  48                   PHA           
 DE56  20 BF D8             JSR LOG       
 DE59  A9 9D                LDA #$9D      
 DE5B  A0 00                LDY #$00      
 DE5D  20 FD D8             JSR iD8FD     
 DE60  20 A0 DE             JSR EXP       
 DE63  68                   PLA           
 DE64  4A                   LSR           
 DE65  90 0A                BCC iDE71     
 DE67  A5 B0     iDE67      LDA xB0       
 DE69  F0 06                BEQ iDE71     
 DE6B  A5 B5                LDA xB5       
 DE6D  49 FF                EOR #$FF      
 DE6F  85 B5                STA xB5       
 DE71  60        iDE71      RTS           
 DE72             .byte $81, $38, $AA, $3B, $29, $07, $71, $34  ;.8*;)gQ4
 DE7A             .byte $58, $3E, $56, $74, $16, $7E, $B3, $1B  ;x>vTv~3[
 DE82             .byte $77, $2F, $EE, $E3, $85, $7A, $1D, $84  ;W/...Z].
 DE8A             .byte $1C, $2A, $7C, $63, $59, $58, $0A, $7E  ;*|Cyxj~
 DE92             .byte $75, $FD, $E7, $C6, $80, $31, $72, $18  ;U..F.1Rx
 DE9A             .byte $10, $81, $00, $00, $00, $00            ;p.....

 DEA0  A9 72     EXP        LDA #$72      
 DEA2  A0 DE                LDY #$DE      
 DEA4  20 FD D8             JSR iD8FD     
 DEA7  A5 BF                LDA xBF       
 DEA9  69 50                ADC #$50      
 DEAB  90 03                BCC iDEB0     
 DEAD  20 F5 DA             JSR iDAF5     
 DEB0  85 A5     iDEB0      STA xA5       
 DEB2  20 E1 DA             JSR iDAE1     
 DEB5  A5 B0                LDA xB0       
 DEB7  C9 88                CMP #$88      
 DEB9  90 03                BCC iDEBE     
 DEBB  20 A6 D9  iDEBB      JSR iD9A6     
 DEBE  20 9E DB  iDEBE      JSR INT       
 DEC1  A5 5A                LDA x5A       
 DEC3  18                   CLC           
 DEC4  69 81                ADC #$81      
 DEC6  F0 F3                BEQ iDEBB     
 DEC8  38                   SEC           
 DEC9  E9 01                SBC #$01      
 DECB  48                   PHA           
 DECC  A2 05                LDX #$05      
 DECE  B5 B8     iDECE      LDA xB8,X     
 DED0  B4 B0                LDY xB0,X     
 DED2  95 B0                STA xB0,X     
 DED4  94 B8                STY xB8,X     
 DED6  CA                   DEX           
 DED7  10 F5                BPL iDECE     
 DED9  A5 A5                LDA xA5       
 DEDB  85 BF                STA xBF       
 DEDD  20 28 D7             JSR iD728     
 DEE0  20 67 DE             JSR iDE67     
 DEE3  A9 77                LDA #$77      
 DEE5  A0 DE                LDY #$DE      
 DEE7  20 09 DF             JSR iDF09     
 DEEA  A9 00                LDA #$00      
 DEEC  85 BE                STA xBE       
 DEEE  68                   PLA           
 DEEF  20 8B D9             JSR iD98B     
 DEF2  60                   RTS           

 DEF3  85 C0     iDEF3      STA xC0       
 DEF5  84 C1                STY xC1       
 DEF7  20 9C DA             JSR iDA9C     
 DEFA  A9 A6                LDA #$A6      
 DEFC  20 FD D8             JSR iD8FD     
 DEFF  20 0D DF             JSR iDF0D     
 DF02  A9 A6                LDA #$A6      
 DF04  A0 00                LDY #$00      
 DF06  4C FD D8             JMP iD8FD     

 DF09  85 C0     iDF09      STA xC0       
 DF0B  84 C1                STY xC1       
 DF0D  20 99 DA  iDF0D      JSR iDA99     
 DF10  B1 C0                LDA (xC0),Y   
 DF12  85 B6                STA xB6       
 DF14  A4 C0                LDY xC0       
 DF16  C8                   INY           
 DF17  98                   TYA           
 DF18  D0 02                BNE iDF1C     
 DF1A  E6 C1                INC xC1       
 DF1C  85 C0     iDF1C      STA xC0       
 DF1E  A4 C1                LDY xC1       
 DF20  20 FD D8  iDF20      JSR iD8FD     
 DF23  A5 C0                LDA xC0       
 DF25  A4 C1                LDY xC1       
 DF27  18                   CLC           
 DF28  69 05                ADC #$05      
 DF2A  90 01                BCC iDF2D     
 DF2C  C8                   INY           
 DF2D  85 C0     iDF2D      STA xC0       
 DF2F  84 C1                STY xC1       
 DF31  20 3C D7             JSR iD73C     
 DF34  A9 AB                LDA #$AB      
 DF36  A0 00                LDY #$00      
 DF38  C6 B6                DEC xB6       
 DF3A  D0 E4                BNE iDF20     
 DF3C  60                   RTS           

 DF3D             .byte $98, $35, $44, $7A, $68, $28, $B1, $46  ;.5dZH(1f

 DF45  20 FD DA  RND        JSR iDAFD     
 DF48  30 2E                BMI iDF78     
 DF4A  D0 17                BNE iDF63     
 DF4C  AD 44 90             LDA x9044     
 DF4F  85 B1                STA xB1       
 DF51  AD 48 90             LDA x9048     
 DF54  85 B2                STA xB2       
 DF56  AD 45 90             LDA x9045     
 DF59  85 B3                STA xB3       
 DF5B  AD 49 90             LDA x9049     
 DF5E  85 B4                STA xB4       
 DF60  4C 88 DF             JMP iDF88     
 DF63  A9 DA     iDF63      LDA #$DA      
 DF65  A0 00                LDY #$00      
 DF67  20 74 DA             JSR iDA74     
 DF6A  A9 3D                LDA #$3D      
 DF6C  A0 DF                LDY #$DF      
 DF6E  20 FD D8             JSR iD8FD     
 DF71  A9 41                LDA #$41      
 DF73  A0 DF                LDY #$DF      
 DF75  20 3C D7             JSR iD73C     
 DF78  A6 B4     iDF78      LDX xB4       
 DF7A  A5 B1                LDA xB1       
 DF7C  85 B4                STA xB4       
 DF7E  86 B1                STX xB1       
 DF80  A6 B2                LDX xB2       
 DF82  A5 B3                LDA xB3       
 DF84  85 B2                STA xB2       
 DF86  86 B3                STX xB3       
 DF88  A9 00     iDF88      LDA #$00      
 DF8A  85 B5                STA xB5       
 DF8C  A5 B0                LDA xB0       
 DF8E  85 BF                STA xBF       
 DF90  A9 80                LDA #$80      
 DF92  85 B0                STA xB0       
 DF94  20 AC D7             JSR iD7AC     
 DF97  A2 DA                LDX #$DA      
 DF99  A0 00                LDY #$00      
 DF9B  4C A6 DA  iDF9B      JMP iDAA6     

 DF9E  A9 1A     COS        LDA #$1A      
 DFA0  A0 E0                LDY #$E0      
 DFA2  20 3C D7             JSR iD73C     
 DFA5  20 DE DA  SIN        JSR iDADE     
 DFA8  A9 1F                LDA #$1F      
 DFAA  A0 E0                LDY #$E0      
 DFAC  A6 BD                LDX xBD       
 DFAE  20 D9 D9             JSR iD9D9     
 DFB1  20 DE DA             JSR iDADE     
 DFB4  20 9E DB             JSR INT       
 DFB7  A9 00                LDA #$00      
 DFB9  85 BE                STA xBE       
 DFBB  20 28 D7             JSR iD728     
 DFBE  A9 24                LDA #$24      
 DFC0  A0 E0                LDY #$E0      
 DFC2  20 25 D7             JSR iD725     
 DFC5  A5 B5                LDA xB5       
 DFC7  48                   PHA           
 DFC8  10 0D                BPL iDFD7     
 DFCA  20 1E D7             JSR iD71E     
 DFCD  A5 B5                LDA xB5       
 DFCF  30 09                BMI iDFDA     
 DFD1  A5 63                LDA x63       
 DFD3  49 FF                EOR #$FF      
 DFD5  85 63                STA x63       
 DFD7  20 67 DE  iDFD7      JSR iDE67     
 DFDA  A9 24     iDFDA      LDA #$24      
 DFDC  A0 E0                LDY #$E0      
 DFDE  20 3C D7             JSR iD73C     
 DFE1  68                   PLA           
 DFE2  10 03                BPL iDFE7     
 DFE4  20 67 DE             JSR iDE67     
 DFE7  A9 29     iDFE7      LDA #$29      
 DFE9  A0 E0                LDY #$E0      
 DFEB  4C F3 DE             JMP iDEF3     

 DFEE  20 9C DA  TAN        JSR iDA9C     
 DFF1  A9 00                LDA #$00      
 DFF3  85 63                STA x63       
 DFF5  20 A5 DF             JSR SIN       
 DFF8  A2 9D                LDX #$9D      
 DFFA  A0 00                LDY #$00      
 DFFC  20 9B DF             JSR iDF9B     
 DFFF  A9 A6                LDA #$A6      
 E001  A0 00                LDY #$00      
 E003  20 74 DA             JSR iDA74     
 E006  A9 00                LDA #$00      
 E008  85 B5                STA xB5       
 E00A  A5 63                LDA x63       
 E00C  20 16 E0             JSR iE016     
 E00F  A9 9D                LDA #$9D      
 E011  A0 00                LDY #$00      
 E013  4C E1 D9             JMP iD9E1     

 E016  48        iE016      PHA           
 E017  4C D7 DF             JMP iDFD7     

 E01A             .byte $81, $49, $0F, $DA, $A2, $83, $49, $0F  ;.ioZ".io
 E022             .byte $DA, $A2, $7F, $00, $00, $00, $00, $05  ;Z".....e
 E02A             .byte $84, $E6, $1A, $2D, $1B, $86, $28, $07  ;..z-[.(g
 E032             .byte $FB, $F8, $87, $99, $68, $89, $01, $87  ;....H.a.
 E03A             .byte $23, $35, $DF, $E1, $86, $A5, $5D, $E7  ;#5...%].
 E042             .byte $28, $83, $49, $0F, $DA, $A2            ;(.ioZ"

 E048  A5 B5     ATN        LDA xB5       
 E04A  48                   PHA           
 E04B  10 03                BPL iE050     
 E04D  20 67 DE             JSR iDE67     
 E050  A5 B0     iE050      LDA xB0       
 E052  48                   PHA           
 E053  C9 81                CMP #$81      
 E055  90 07                BCC iE05E     
 E057  A9 91                LDA #$91      
 E059  A0 D8                LDY #$D8      
 E05B  20 E1 D9             JSR iD9E1     
 E05E  A9 78     iE05E      LDA #$78      
 E060  A0 E0                LDY #$E0      
 E062  20 F3 DE             JSR iDEF3     
 E065  68                   PLA           
 E066  C9 81                CMP #$81      
 E068  90 07                BCC iE071     
 E06A  A9 1A                LDA #$1A      
 E06C  A0 E0                LDY #$E0      
 E06E  20 25 D7             JSR iD725     
 E071  68        iE071      PLA           
 E072  10 03                BPL iE077     
 E074  4C 67 DE             JMP iDE67     
 E077  60        iE077      RTS           

 E078             .byte $0B, $76, $B3, $83, $BD, $D3, $79, $1E  ;kV3.=SY^
 E080             .byte $F4, $A6, $F5, $7B, $83, $FC, $B0, $10  ;.&.{..0p
 E088             .byte $7C, $0C, $1F, $67, $CA, $7C, $DE, $53  ;|l_GJ|.s
 E090             .byte $CB, $C1, $7D, $14, $64, $70, $4C, $7D  ;KA}tDPl}
 E098             .byte $B7, $EA, $51, $7A, $7D, $63, $30, $88  ;7.qZ}C0.
 E0A0             .byte $7E, $7E, $92, $44, $99, $3A, $7E, $4C  ;~~.d.:~l
 E0A8             .byte $CC, $91, $C7, $7F, $AA, $AA, $AA, $13  ;L.G.***s
 E0B0             .byte $81, $00, $00, $00                      ;....
 E0B4  xE0B4      .byte $00, $E6, $C9, $D0, $02, $E6, $CA, $AD  ;..IPb.J-
 E0BC             .byte $60, $EA, $C9, $3A, $B0, $0A, $C9, $20  ;`.I:0jI 
 E0C4             .byte $F0, $EF, $38, $E9, $30, $38, $E9, $D0  ;..8.08.P
 E0CC             .byte $60, $80, $4F, $C7, $52, $59            ;`.oGry

 E0D2  A2 FF     iE0D2      LDX #$FF      
 E0D4  86 89                STX x89       
 E0D6  9A                   TXS           
 E0D7  A9 4C                LDA #$4C      
 E0D9  85 A3                STA iA3       
 E0DB  85 00                STA USR       
 E0DD  A9 30                LDA #$30      
 E0DF  A0 D1                LDY #$D1      
 E0E1  85 01                STA x01       
 E0E3  84 02                STY x02       
 E0E5  A2 1C                LDX #$1C      
 E0E7  BD B4 E0  iE0E7      LDA xE0B4,X   
 E0EA  95 C1                STA xC1,X     
 E0EC  CA                   DEX           
 E0ED  D0 F8                BNE iE0E7     
 E0EF  8A                   TXA           
 E0F0  85 B7                STA xB7       
 E0F2  85 03                STA x03       
 E0F4  85 67                STA x67       
 E0F6  85 04                STA x04       
 E0F8  85 05                STA x05       
 E0FA  48                   PHA           
 E0FB  85 64                STA x64       
 E0FD  A9 03                LDA #$03      
 E0FF  85 A2                STA xA2       
 E101  A9 2C                LDA #$2C      
 E103  85 09                STA x09       
 E105  20 D2 C9             JSR iC9D2     
 E108  A2 68                LDX #$68      
 E10A  86 65                STX x65       
 E10C  A9 00                LDA #$00      
 E10E  A0 04                LDY #$04      
 E110  85 08                STA x08       
 E112  84 09                STY x09       
 E114  A0 00                LDY #$00      
 E116  E6 08     iE116      INC x08       
 E118  D0 08                BNE iE122     
 E11A  E6 09                INC x09       
 E11C  A5 09                LDA x09       
 E11E  C9 80                CMP #$80      
 E120  F0 0F                BEQ iE131     
 E122  A9 92     iE122      LDA #$92      
 E124  91 08                STA (x08),Y   
 E126  D1 08                CMP (x08),Y   
 E128  D0 07                BNE iE131     
 E12A  0A                   ASL           
 E12B  91 08                STA (x08),Y   
 E12D  D1 08                CMP (x08),Y   
 E12F  F0 E5                BEQ iE116     
 E131  A5 08     iE131      LDA x08       
 E133  A4 09                LDY x09       
 E135  85 86                STA x86       
 E137  84 87                STY x87       
 E139  85 82                STA x82       
 E13B  84 83                STY x83       
 E13D  A2 00                LDX #$00      
 E13F  A0 04                LDY #$04      
 E141  86 7A                STX x7A       
 E143  84 7B                STY x7B       
 E145  A0 00                LDY #$00      
 E147  98                   TYA           
 E148  91 7A                STA (x7A),Y   
 E14A  E6 7A                INC x7A       
 E14C  D0 02                BNE iE150     
 E14E  E6 7B                INC x7B       
 E150  A5 7A     iE150      LDA x7A       
 E152  A4 7B                LDY x7B       
 E154  20 2A C3             JSR iC32A     
 E157  20 D2 C9             JSR iC9D2     
 E15A  A5 86                LDA x86       
 E15C  38                   SEC           
 E15D  E5 7A                SBC x7A       
 E15F  AA                   TAX           
 E160  A5 87                LDA x87       
 E162  E5 7B                SBC x7B       
 E164  20 9F DC             JSR iDC9F     
 E167  A9 74                LDA #$74      
 E169  A0 E1                LDY #$E1      
 E16B  20 27 CA             JSR iCA27     
 E16E  20 53 C5             JSR iC553     
 E171  4C 8B C3             JMP iC38B     

 E174             .byte $20, $42, $59, $54, $45, $53, $20, $46  ; bytes f
 E17C             .byte $52, $45, $45, $13, $2A, $2A, $2A, $20  ;rees*** 
 E184             .byte $43, $4F, $4D, $4D, $4F, $44, $4F, $52  ;commodor
 E18C             .byte $45, $20, $42, $41, $53, $49, $43, $20  ;e basic 
 E194             .byte $2A, $2A, $2A, $11, $11, $11, $00       ;***qqq.

 E19B  18        iE19B      CLC           
 E19C  4C 2B C7             JMP iC72B     

 E19F  24 B4     iE19F      BIT xB4       
 E1A1  10 07                BPL iE1AA     
 E1A3  C9 54                CMP #$54      
 E1A5  D0 03                BNE iE1AA     
 E1A7  4C 3B CE             JMP iCE3B     
 E1AA  60        iE1AA      RTS           

 E1AB  24 B4     iE1AB      BIT xB4       
 E1AD  30 03                BMI iE1B2     
 E1AF  4C 90 CE             JMP iCE90     
 E1B2  C9 54     iE1B2      CMP #$54      
 E1B4  F0 03                BEQ iE1B9     
 E1B6  4C 82 CE             JMP iCE82     
 E1B9  4C 69 CE  iE1B9      JMP iCE69     

 E1BC  85 5A     iE1BC      STA x5A       
 E1BE  E8                   INX           
 E1BF  4C D9 E1             JMP iE1D9     

 E1C2  10 05     iE1C2      BPL iE1C9     
 E1C4  A5 8E                LDA x8E       
 E1C6  A4 8F                LDY x8F       
 E1C8  60                   RTS           
 E1C9  A0 FF     iE1C9      LDY #$FF      
 E1CB  60                   RTS           

 E1CC  D0 0A     iE1CC      BNE iE1D8     
 E1CE  E6 05     iE1CE      INC x05       
 E1D0  D0 06                BNE iE1D8     
 E1D2  A5 E2                LDA xE2       
 E1D4  85 05                STA x05       
 E1D6  D0 F6                BNE iE1CE     
 E1D8  60        iE1D8      RTS           

 E1D9  86 C9     iE1D9      STX xC9       
 E1DB  68                   PLA           
 E1DC  68                   PLA           
 E1DD  98                   TYA           
 E1DE  4C 88 CB             JMP iCB88     

 E1E1  A9 7F     iE1E1      LDA #$7F      
 E1E3  8D 4E E8             STA VIA_IER   
 E1E6  85 06                STA x06       
 E1E8  85 07                STA x07       
 E1EA  A2 00                LDX #$00      
 E1EC  8A                   TXA           
 E1ED  9D 00 02  iE1ED      STA x0200,X   
 E1F0  CA        iE1F0      DEX           
 E1F1  D0 FA                BNE iE1ED     
 E1F3  CA                   DEX           
 E1F4  A9 85                LDA #$85      
 E1F6  8D 19 02             STA IRQV      
 E1F9  A9 E6                LDA #$E6      
 E1FB  8D 1A 02             STA IRQV+1    
 E1FE  A9 03                LDA #$03      
 E200  8D 64 02             STA CURODEV   
 E203  A9 0F                LDA #$0F      
 E205  8D 10 E8             STA PIA1_PA   
 E208  0A                   ASL           
 E209  8D 40 E8             STA VIA_DRB   
 E20C  8D 42 E8             STA VIA_DDRB  
 E20F  8E 22 E8             STX PIA2_PB   
 E212  8E 45 E8             STX VIA_T1CH  
 E215  A9 3D                LDA #$3D      
 E217  8D 13 E8             STA PIA1_CRB  
 E21A  2C 12 E8             BIT PIA1_PB   
 E21D  A9 3C                LDA #$3C      
 E21F  8D 21 E8             STA PIA2_CRA  
 E222  8D 23 E8             STA PIA2_CRB  
 E225  8D 11 E8             STA PIA1_CRA  
 E228  8E 22 E8             STX PIA2_PB   
 E22B  A9 0C                LDA #$0C      
 E22D  8D 4C E8             STA VIA_PCR   
 E230  8D 25 02             STA x0225     
 E233  8D 24 02             STA x0224     
 E236  A0 00     iE236      LDY #$00      
 E238  8C 0E 02             STY x020E     
 E23B  84 E0                STY xE0       
 E23D  A9 84                LDA #$84      
 E23F  85 E1                STA xE1       
 E241  A9 20     iE241      LDA #$20      
 E243  C6 E1                DEC xE1       
 E245  91 E0     iE245      STA (xE0),Y   
 E247  88                   DEY           
 E248  D0 FB                BNE iE245     
 E24A  A5 E1                LDA xE1       
 E24C  C9 80                CMP #$80      
 E24E  D0 F1                BNE iE241     
 E250  A9 80                LDA #$80      
 E252  A2 19                LDX #$19      
 E254  9D 28 02  iE254      STA x0228,X   
 E257  CA                   DEX           
 E258  D0 FA                BNE iE254     
 E25A  A0 12                LDY #$12      
 E25C  20 73 E2             JSR iE273     
 E25F  A0 0C                LDY #$0C      
 E261  20 73 E2             JSR iE273     
 E264  A0 05                LDY #$05      
 E266  20 73 E2             JSR iE273     
 E269  A0 00     iE269      LDY #$00      
 E26B  84 E2                STY xE2       
 E26D  84 F5                STY xF5       
 E26F  20 DB E5             JSR iE5DB     
 E272  60                   RTS           

 E273  A2 18     iE273      LDX #$18      
 E275  FE 29 02  iE275      INC x0229,X   
 E278  CA                   DEX           
 E279  88                   DEY           
 E27A  D0 F9                BNE iE275     
 E27C  60                   RTS           

 E27D  AC 0F 02  iE27D      LDY x020F     
 E280  A2 00                LDX #$00      
 E282  BD 10 02  iE282      LDA x0210,X   
 E285  9D 0F 02             STA x020F,X   
 E288  E8                   INX           
 E289  EC 0D 02             CPX NKEYS     
 E28C  D0 F4                BNE iE282     
 E28E  CE 0D 02             DEC NKEYS     
 E291  98                   TYA           
 E292  58                   CLI           
 E293  60                   RTS           

 E294  20 EA E3  iE294      JSR KPRCHAR   
 E297  AD 0D 02  iE297      LDA NKEYS     
 E29A  8D 24 02             STA x0224     
 E29D  F0 F8                BEQ iE297     
 E29F  78                   SEI           
 E2A0  AD 27 02             LDA x0227     
 E2A3  F0 0B                BEQ iE2B0     
 E2A5  AD 26 02             LDA x0226     
 E2A8  A0 00                LDY #$00      
 E2AA  8C 27 02             STY x0227     
 E2AD  20 AC E7             JSR iE7AC     
 E2B0  20 7D E2  iE2B0      JSR iE27D     
 E2B3  C9 83                CMP #$83      
 E2B5  D0 11                BNE iE2C8     
 E2B7  78                   SEI           
 E2B8  A2 09                LDX #$09      
 E2BA  8E 0D 02             STX NKEYS     
 E2BD  BD D4 E7  iE2BD      LDA xE7D4,X   
 E2C0  9D 0E 02             STA x020E,X   
 E2C3  CA                   DEX           
 E2C4  D0 F7                BNE iE2BD     
 E2C6  F0 CF                BEQ iE297     
 E2C8  C9 0D     iE2C8      CMP #$0D      
 E2CA  D0 C8                BNE iE294     
 E2CC  A4 F2                LDY xF2       
 E2CE  8C 60 02             STY x0260     
 E2D1  B1 E0     iE2D1      LDA (xE0),Y   
 E2D3  C9 20                CMP #$20      
 E2D5  D0 03                BNE iE2DA     
 E2D7  88                   DEY           
 E2D8  D0 F7                BNE iE2D1     
 E2DA  C8        iE2DA      INY           
 E2DB  8C 1E 02             STY x021E     
 E2DE  A0 00                LDY #$00      
 E2E0  84 E2                STY xE2       
 E2E2  84 EA                STY xEA       
 E2E4  AD 20 02             LDA x0220     
 E2E7  30 1A                BMI iE303     
 E2E9  C5 F5                CMP xF5       
 E2EB  D0 16                BNE iE303     
 E2ED  AD 21 02             LDA x0221     
 E2F0  85 E2                STA xE2       
 E2F2  CD 1E 02             CMP x021E     
 E2F5  90 0C                BCC iE303     
 E2F7  4C 27 E3             JMP iE327     
 E2FA  98        iE2FA      TYA           
 E2FB  48                   PHA           
 E2FC  8A                   TXA           
 E2FD  48                   PHA           
 E2FE  AD 60 02             LDA x0260     
 E301  F0 94                BEQ iE297     
 E303  A4 E2     iE303      LDY xE2       
 E305  B1 E0                LDA (xE0),Y   
 E307  85 F6                STA xF6       
 E309  29 3F                AND #$3F      
 E30B  06 F6                ASL xF6       
 E30D  24 F6                BIT xF6       
 E30F  10 02                BPL iE313     
 E311  09 80                ORA #$80      
 E313  90 04     iE313      BCC iE319     
 E315  A6 EA                LDX xEA       
 E317  D0 04                BNE iE31D     
 E319  70 02     iE319      BVS iE31D     
 E31B  09 40                ORA #$40      
 E31D  E6 E2     iE31D      INC xE2       
 E31F  20 49 E3             JSR iE349     
 E322  CC 1E 02             CPY x021E     
 E325  D0 13                BNE iE33A     
 E327  A9 00     iE327      LDA #$00      
 E329  8D 60 02             STA x0260     
 E32C  A9 0D                LDA #$0D      
 E32E  AE 64 02             LDX CURODEV   
 E331  E0 03                CPX #$03      
 E333  F0 03                BEQ iE338     
 E335  20 EA E3             JSR KPRCHAR   
 E338  A9 0D     iE338      LDA #$0D      
 E33A  85 F6     iE33A      STA xF6       
 E33C  68                   PLA           
 E33D  AA                   TAX           
 E33E  68                   PLA           
 E33F  A8                   TAY           
 E340  A5 F6                LDA xF6       
 E342  C9 DE                CMP #$DE      
 E344  D0 02                BNE iE348     
 E346  A9 FF                LDA #$FF      
 E348  60        iE348      RTS           

 E349  C9 22     iE349      CMP #$22      
 E34B  D0 08                BNE iE355     
 E34D  A5 EA                LDA xEA       
 E34F  49 01                EOR #$01      
 E351  85 EA                STA xEA       
 E353  A9 22                LDA #$22      
 E355  60        iE355      RTS           

 E356  09 40     iE356      ORA #$40      
 E358  AE 0E 02  iE358      LDX x020E     
 E35B  F0 02                BEQ iE35F     
 E35D  09 80     iE35D      ORA #$80      
 E35F  A6 FB     iE35F      LDX xFB       
 E361  F0 02                BEQ iE365     
 E363  C6 FB                DEC xFB       
 E365  20 AC E7  iE365      JSR iE7AC     
 E368  E6 E2                INC xE2       
 E36A  A4 F2                LDY xF2       
 E36C  C4 E2                CPY xE2       
 E36E  B0 1A                BCS iE38A     
 E370  A6 F5                LDX xF5       
 E372  C0 4F                CPY #$4F      
 E374  D0 0D                BNE iE383     
 E376  20 97 E3             JSR iE397     
 E379  20 30 E5             JSR iE530     
 E37C  A9 00                LDA #$00      
 E37E  85 E2                STA xE2       
 E380  4C 8A E3             JMP iE38A     
 E383  E0 18     iE383      CPX #$18      
 E385  D0 1D                BNE iE3A4     
 E387  20 AA E3             JSR iE3AA     
 E38A  68        iE38A      PLA           
 E38B  A8                   TAY           
 E38C  A5 FB                LDA xFB       
 E38E  F0 02                BEQ iE392     
 E390  46 EA                LSR xEA       
 E392  68        iE392      PLA           
 E393  AA                   TAX           
 E394  68                   PLA           
 E395  58                   CLI           
 E396  60                   RTS           
 E397  E0 17     iE397      CPX #$17      
 E399  B0 08                BCS iE3A3     
 E39B  BD 2B 02             LDA x022B,X   
 E39E  09 80                ORA #$80      
 E3A0  9D 2B 02             STA x022B,X   
 E3A3  60        iE3A3      RTS           
 E3A4  20 B1 E3  iE3A4      JSR iE3B1     
 E3A7  4C 8A E3             JMP iE38A     

 E3AA  20 59 E5  iE3AA      JSR iE559     
 E3AD  C6 F5                DEC xF5       
 E3AF  A6 F5                LDX xF5       
 E3B1  1E 2A 02  iE3B1      ASL x022A,X   
 E3B4  5E 2A 02             LSR x022A,X   
 E3B7  20 97 E3             JSR iE397     
 E3BA  A5 E2                LDA xE2       
 E3BC  48                   PHA           
 E3BD  20 DB E5             JSR iE5DB     
 E3C0  68                   PLA           
 E3C1  85 E2                STA xE2       
 E3C3  60                   RTS           

 E3C4  A0 27     iE3C4      LDY #$27      
 E3C6  A6 F5                LDX xF5       
 E3C8  D0 06                BNE iE3D0     
 E3CA  86 E2                STX xE2       
 E3CC  68                   PLA           
 E3CD  68                   PLA           
 E3CE  D0 BA                BNE iE38A     
 E3D0  BD 28 02  iE3D0      LDA x0228,X   
 E3D3  30 06                BMI iE3DB     
 E3D5  CA                   DEX           
 E3D6  BD 28 02             LDA x0228,X   
 E3D9  A0 4F                LDY #$4F      
 E3DB  CA        iE3DB      DEX           
 E3DC  86 F5                STX xF5       
 E3DE  85 E1                STA xE1       
 E3E0  BD BC E7             LDA xE7BC,X   
 E3E3  85 E0                STA xE0       
 E3E5  84 E2                STY xE2       
 E3E7  84 F2                STY xF2       
 E3E9  60                   RTS           

 E3EA  48        KPRCHAR    PHA           
 E3EB  85 F6                STA xF6       
 E3ED  8A                   TXA           
 E3EE  48                   PHA           
 E3EF  98                   TYA           
 E3F0  48                   PHA           
 E3F1  A9 00                LDA #$00      
 E3F3  8D 60 02             STA x0260     
 E3F6  A4 E2                LDY xE2       
 E3F8  A5 F6                LDA xF6       
 E3FA  10 03                BPL iE3FF     
 E3FC  4C 8F E4             JMP iE48F     
 E3FF  C9 0D     iE3FF      CMP #$0D      
 E401  D0 03                BNE iE406     
 E403  4C 48 E5             JMP iE548     
 E406  C9 20     iE406      CMP #$20      
 E408  90 08                BCC iE412     
 E40A  29 3F                AND #$3F      
 E40C  20 49 E3             JSR iE349     
 E40F  4C 58 E3             JMP iE358     
 E412  A6 FB     iE412      LDX xFB       
 E414  F0 03                BEQ iE419     
 E416  4C 5D E3             JMP iE35D     
 E419  C9 14     iE419      CMP #$14      
 E41B  D0 1C                BNE iE439     
 E41D  88                   DEY           
 E41E  84 E2                STY xE2       
 E420  10 06                BPL iE428     
 E422  20 C4 E3             JSR iE3C4     
 E425  4C 33 E4             JMP iE433     
 E428  C8        iE428      INY           
 E429  B1 E0                LDA (xE0),Y   
 E42B  88                   DEY           
 E42C  91 E0                STA (xE0),Y   
 E42E  C8                   INY           
 E42F  C4 F2                CPY xF2       
 E431  D0 F5                BNE iE428     
 E433  A9 20     iE433      LDA #$20      
 E435  91 E0                STA (xE0),Y   
 E437  D0 3D                BNE iE476     
 E439  A6 EA     iE439      LDX xEA       
 E43B  F0 03                BEQ iE440     
 E43D  4C 5D E3             JMP iE35D     
 E440  C9 12     iE440      CMP #$12      
 E442  D0 03                BNE iE447     
 E444  8D 0E 02             STA x020E     
 E447  C9 13     iE447      CMP #$13      
 E449  D0 03                BNE iE44E     
 E44B  20 69 E2             JSR iE269     
 E44E  C9 1D     iE44E      CMP #$1D      
 E450  D0 12                BNE iE464     
 E452  C8                   INY           
 E453  84 E2                STY xE2       
 E455  88                   DEY           
 E456  C4 F2                CPY xF2       
 E458  90 07                BCC iE461     
 E45A  20 30 E5             JSR iE530     
 E45D  A0 00                LDY #$00      
 E45F  84 E2     iE45F      STY xE2       
 E461  4C 8A E3  iE461      JMP iE38A     
 E464  C9 11     iE464      CMP #$11      
 E466  D0 0E                BNE iE476     
 E468  18                   CLC           
 E469  98                   TYA           
 E46A  69 28                ADC #$28      
 E46C  A8                   TAY           
 E46D  C5 F2                CMP xF2       
 E46F  90 EE                BCC iE45F     
 E471  F0 EC                BEQ iE45F     
 E473  20 30 E5             JSR iE530     
 E476  4C 8A E3  iE476      JMP iE38A     

 E479  E8                   INX           
 E47A  85 F5                STA xF5       
 E47C  98                   TYA           
 E47D  E9 28                SBC #$28      
 E47F  85 E2                STA xE2       
 E481  E6 F5                INC xF5       
 E483  AD BC E7             LDA xE7BC     
 E486  85 E0                STA xE0       
 E488  AD 29 02             LDA x0229     
 E48B  85 E1                STA xE1       
 E48D  D0 E7                BNE iE476     
 E48F  29 7F     iE48F      AND #$7F      
 E491  C9 7F                CMP #$7F      
 E493  D0 02                BNE iE497     
 E495  A9 5E                LDA #$5E      
 E497  C9 20     iE497      CMP #$20      
 E499  90 03                BCC iE49E     
 E49B  4C 56 E3             JMP iE356     
 E49E  C9 0D     iE49E      CMP #$0D      
 E4A0  D0 03                BNE iE4A5     
 E4A2  4C 48 E5             JMP iE548     
 E4A5  A6 EA     iE4A5      LDX xEA       
 E4A7  D0 30                BNE iE4D9     
 E4A9  C9 14                CMP #$14      
 E4AB  D0 28                BNE iE4D5     
 E4AD  A4 F2                LDY xF2       
 E4AF  B1 E0                LDA (xE0),Y   
 E4B1  C9 20                CMP #$20      
 E4B3  D0 04                BNE iE4B9     
 E4B5  C4 E2                CPY xE2       
 E4B7  D0 07                BNE iE4C0     
 E4B9  C0 4F     iE4B9      CPY #$4F      
 E4BB  F0 B9                BEQ iE476     
 E4BD  20 05 E6             JSR iE605     
 E4C0  A4 F2     iE4C0      LDY xF2       
 E4C2  88        iE4C2      DEY           
 E4C3  B1 E0                LDA (xE0),Y   
 E4C5  C8                   INY           
 E4C6  91 E0                STA (xE0),Y   
 E4C8  88                   DEY           
 E4C9  C4 E2                CPY xE2       
 E4CB  D0 F5                BNE iE4C2     
 E4CD  A9 20                LDA #$20      
 E4CF  91 E0                STA (xE0),Y   
 E4D1  E6 FB                INC xFB       
 E4D3  D0 58                BNE iE52D     
 E4D5  A6 FB     iE4D5      LDX xFB       
 E4D7  F0 05                BEQ iE4DE     
 E4D9  09 40     iE4D9      ORA #$40      
 E4DB  4C 5D E3             JMP iE35D     
 E4DE  C9 11     iE4DE      CMP #$11      
 E4E0  D0 2C                BNE iE50E     
 E4E2  A5 E2                LDA xE2       
 E4E4  C9 28                CMP #$28      
 E4E6  90 06                BCC iE4EE     
 E4E8  E9 28                SBC #$28      
 E4EA  85 E2                STA xE2       
 E4EC  B0 3F                BCS iE52D     
 E4EE  A6 F5     iE4EE      LDX xF5       
 E4F0  F0 3B                BEQ iE52D     
 E4F2  BD 28 02             LDA x0228,X   
 E4F5  10 07                BPL iE4FE     
 E4F7  C6 F5                DEC xF5       
 E4F9  20 DB E5             JSR iE5DB     
 E4FC  90 2F                BCC iE52D     
 E4FE  CA        iE4FE      DEX           
 E4FF  CA                   DEX           
 E500  86 F5                STX xF5       
 E502  20 DB E5             JSR iE5DB     
 E505  A5 E2                LDA xE2       
 E507  18                   CLC           
 E508  69 28                ADC #$28      
 E50A  85 E2                STA xE2       
 E50C  D0 1F                BNE iE52D     
 E50E  C9 12     iE50E      CMP #$12      
 E510  D0 05                BNE iE517     
 E512  A9 00                LDA #$00      
 E514  8D 0E 02             STA x020E     
 E517  C9 1D     iE517      CMP #$1D      
 E519  D0 0B                BNE iE526     
 E51B  88                   DEY           
 E51C  84 E2                STY xE2       
 E51E  10 0D                BPL iE52D     
 E520  20 C4 E3             JSR iE3C4     
 E523  4C 8A E3             JMP iE38A     
 E526  C9 13     iE526      CMP #$13      
 E528  D0 03                BNE iE52D     
 E52A  20 36 E2             JSR iE236     
 E52D  4C 8A E3  iE52D      JMP iE38A     

 E530  38        iE530      SEC           
 E531  4E 20 02             LSR x0220     
 E534  A6 F5                LDX xF5       
 E536  E8        iE536      INX           
 E537  E0 19                CPX #$19      
 E539  D0 03                BNE iE53E     
 E53B  20 59 E5             JSR iE559     
 E53E  BD 29 02  iE53E      LDA x0229,X   
 E541  10 F3                BPL iE536     
 E543  86 F5                STX xF5       
 E545  4C DB E5             JMP iE5DB     

 E548  A9 00     iE548      LDA #$00      
 E54A  85 FB                STA xFB       
 E54C  8D 0E 02             STA x020E     
 E54F  85 EA                STA xEA       
 E551  85 E2                STA xE2       
 E553  20 30 E5             JSR iE530     
 E556  4C 8A E3             JMP iE38A     

 E559  78        iE559      SEI           
 E55A  A0 00                LDY #$00      
 E55C  84 E0                STY xE0       
 E55E  A9 80                LDA #$80      
 E560  85 E4                STA SADDR+1   
 E562  85 E1                STA xE1       
 E564  A9 28                LDA #$28      
 E566  2C 2A 02             BIT x022A     
 E569  30 02                BMI iE56D     
 E56B  A9 50                LDA #$50      
 E56D  85 E3     iE56D      STA SADDR     
 E56F  A9 34                LDA #$34      
 E571  8D 11 E8             STA PIA1_CRA  
 E574  B1 E3     iE574      LDA (SADDR),Y 
 E576  91 E0                STA (xE0),Y   
 E578  C8                   INY           
 E579  D0 F9                BNE iE574     
 E57B  E6 E4                INC SADDR+1   
 E57D  E6 E1                INC xE1       
 E57F  A9 84                LDA #$84      
 E581  C5 E4                CMP SADDR+1   
 E583  D0 EF                BNE iE574     
 E585  A9 E8                LDA #$E8      
 E587  85 E0                STA xE0       
 E589  C6 E1                DEC xE1       
 E58B  A9 20                LDA #$20      
 E58D  C6 E0     iE58D      DEC xE0       
 E58F  C6 E3                DEC SADDR     
 E591  91 E0                STA (xE0),Y   
 E593  D0 F8                BNE iE58D     
 E595  A2 19                LDX #$19      
 E597  86 F5                STX xF5       
 E599  A2 00     iE599      LDX #$00      
 E59B  C6 F5                DEC xF5       
 E59D  BD 29 02  iE59D      LDA x0229,X   
 E5A0  29 7F                AND #$7F      
 E5A2  BC 2A 02             LDY x022A,X   
 E5A5  10 02                BPL iE5A9     
 E5A7  09 80                ORA #$80      
 E5A9  9D 29 02  iE5A9      STA x0229,X   
 E5AC  E8                   INX           
 E5AD  E0 19                CPX #$19      
 E5AF  D0 EC                BNE iE59D     
 E5B1  A9 83                LDA #$83      
 E5B3  8D 41 02             STA x0241     
 E5B6  AD 29 02             LDA x0229     
 E5B9  10 DE                BPL iE599     
 E5BB  A9 3C                LDA #$3C      
 E5BD  8D 11 E8             STA PIA1_CRA  
 E5C0  58                   CLI           
 E5C1  A9 FE                LDA #$FE      
 E5C3  CD 12 E8             CMP PIA1_PB   
 E5C6  D0 10                BNE iE5D8     
 E5C8  A0 08                LDY #$08      
 E5CA  8D 45 E8  iE5CA      STA VIA_T1CH  
 E5CD  2C 4D E8  iE5CD      BIT VIA_IFR   
 E5D0  50 FB                BVC iE5CD     
 E5D2  88                   DEY           
 E5D3  D0 F5                BNE iE5CA     
 E5D5  8C 0D 02             STY NKEYS     
 E5D8  A6 F5     iE5D8      LDX xF5       
 E5DA  60                   RTS           

 E5DB  A6 F5     iE5DB      LDX xF5       
 E5DD  BD 29 02             LDA x0229,X   
 E5E0  09 80                ORA #$80      
 E5E2  85 E1                STA xE1       
 E5E4  BD BC E7             LDA xE7BC,X   
 E5E7  85 E0                STA xE0       
 E5E9  A9 27                LDA #$27      
 E5EB  85 F2                STA xF2       
 E5ED  E0 18                CPX #$18      
 E5EF  F0 09                BEQ iE5FA     
 E5F1  BD 2A 02             LDA x022A,X   
 E5F4  30 04                BMI iE5FA     
 E5F6  A9 4F                LDA #$4F      
 E5F8  85 F2                STA xF2       
 E5FA  A5 E2     iE5FA      LDA xE2       
 E5FC  C9 28                CMP #$28      
 E5FE  90 04                BCC iE604     
 E600  E9 28                SBC #$28      
 E602  85 E2                STA xE2       
 E604  60        iE604      RTS           

 E605  A6 F5     iE605      LDX xF5       
 E607  E8                   INX           
 E608  78                   SEI           
 E609  A9 34                LDA #$34      
 E60B  8D 11 E8             STA PIA1_CRA  
 E60E  E0 17                CPX #$17      
 E610  F0 36                BEQ iE648     
 E612  90 03                BCC iE617     
 E614  4C AA E3             JMP iE3AA     
 E617  A2 17     iE617      LDX #$17      
 E619  BD 2A 02  iE619      LDA x022A,X   
 E61C  09 80                ORA #$80      
 E61E  85 E4                STA SADDR+1   
 E620  BC 29 02             LDY x0229,X   
 E623  30 02                BMI iE627     
 E625  29 7F                AND #$7F      
 E627  9D 2A 02  iE627      STA x022A,X   
 E62A  98                   TYA           
 E62B  09 80                ORA #$80      
 E62D  85 E1                STA xE1       
 E62F  A0 27                LDY #$27      
 E631  BD BD E7             LDA xE7BD,X   
 E634  85 E3                STA SADDR     
 E636  BD BC E7             LDA xE7BC,X   
 E639  85 E0                STA xE0       
 E63B  B1 E0     iE63B      LDA (xE0),Y   
 E63D  91 E3                STA (SADDR),Y 
 E63F  88                   DEY           
 E640  10 F9                BPL iE63B     
 E642  CA                   DEX           
 E643  E4 F5                CPX xF5       
 E645  D0 D2                BNE iE619     
 E647  E8                   INX           
 E648  BD 29 02  iE648      LDA x0229,X   
 E64B  09 80                ORA #$80      
 E64D  85 E1                STA xE1       
 E64F  29 7F                AND #$7F      
 E651  9D 29 02             STA x0229,X   
 E654  BD BC E7             LDA xE7BC,X   
 E657  85 E0                STA xE0       
 E659  A0 27                LDY #$27      
 E65B  A9 20                LDA #$20      
 E65D  91 E0     iE65D      STA (xE0),Y   
 E65F  88                   DEY           
 E660  10 FB                BPL iE65D     
 E662  A9 3C                LDA #$3C      
 E664  8D 11 E8             STA PIA1_CRA  
 E667  58                   CLI           
 E668  4C DB E5             JMP iE5DB     

 E66B  48        IRQ        PHA           
 E66C  8A                   TXA           
 E66D  48                   PHA           
 E66E  98                   TYA           
 E66F  48                   PHA           
 E670  BA                   TSX           
 E671  BD 04 01             LDA STACK+4,X 
 E674  29 10                AND #$10      
 E676  F0 03                BEQ iE67B     
 E678  6C 1B 02             JMP (BRKV)    
 E67B  6C 19 02  iE67B      JMP (IRQV)    

 E67E  68        iE67E      PLA           
 E67F  A8                   TAY           
 E680  68                   PLA           
 E681  AA                   TAX           
 E682  68                   PLA           
 E683  40                   RTI           

 E684  60                   RTS           

 E685  20 EA FF             JSR INCTIME   
 E688  AD 24 02             LDA x0224     
 E68B  D0 23                BNE iE6B0     
 E68D  CE 25 02             DEC x0225     
 E690  D0 1E                BNE iE6B0     
 E692  A9 14                LDA #$14      
 E694  8D 25 02             STA x0225     
 E697  A4 E2                LDY xE2       
 E699  4E 27 02             LSR x0227     
 E69C  B1 E0                LDA (xE0),Y   
 E69E  B0 06                BCS iE6A6     
 E6A0  EE 27 02             INC x0227     
 E6A3  8D 26 02             STA x0226     
 E6A6  0A        iE6A6      ASL           
 E6A7  B0 03                BCS iE6AC     
 E6A9  38                   SEC           
 E6AA  B0 01                BCS iE6AD     
 E6AC  18        iE6AC      CLC           
 E6AD  6A        iE6AD      ROR           
 E6AE  91 E0                STA (xE0),Y   
 E6B0  A2 FF     iE6B0      LDX #$FF      
 E6B2  8E 23 02             STX x0223     
 E6B5  E8                   INX           
 E6B6  8E 04 02             STX x0204     
 E6B9  A2 50                LDX #$50      
 E6BB  AD 10 E8             LDA PIA1_PA   
 E6BE  29 F0                AND #$F0      
 E6C0  8D 10 E8             STA PIA1_PA   
 E6C3  A0 00                LDY #$00      
 E6C5  AD 10 E8             LDA PIA1_PA   
 E6C8  0A                   ASL           
 E6C9  0A                   ASL           
 E6CA  0A                   ASL           
 E6CB  10 07                BPL iE6D4     
 E6CD  8C 07 02             STY x0207     
 E6D0  A9 3D                LDA #$3D      
 E6D2  D0 07                BNE iE6DB     
 E6D4  AD 07 02  iE6D4      LDA x0207     
 E6D7  D0 05                BNE iE6DE     
 E6D9  A9 35                LDA #$35      
 E6DB  8D 13 E8  iE6DB      STA PIA1_CRB  
 E6DE  90 0A     iE6DE      BCC iE6EA     
 E6E0  8C 08 02             STY x0208     
 E6E3  AD 40 E8             LDA VIA_DRB   
 E6E6  09 10                ORA #$10      
 E6E8  D0 0A                BNE iE6F4     
 E6EA  AD 08 02  iE6EA      LDA x0208     
 E6ED  D0 08                BNE iE6F7     
 E6EF  AD 40 E8             LDA VIA_DRB   
 E6F2  29 EF                AND #$EF      
 E6F4  8D 40 E8  iE6F4      STA VIA_DRB   
 E6F7  A0 08     iE6F7      LDY #$08      
 E6F9  AD 12 E8             LDA PIA1_PB   
 E6FC  CD 12 E8             CMP PIA1_PB   
 E6FF  D0 F6                BNE iE6F7     
 E701  4A        iE701      LSR           
 E702  B0 05                BCS iE709     
 E704  48                   PHA           
 E705  20 3F E7             JSR iE73F     
 E708  68                   PLA           
 E709  CA        iE709      DEX           
 E70A  F0 08                BEQ iE714     
 E70C  88                   DEY           
 E70D  D0 F2                BNE iE701     
 E70F  EE 10 E8             INC PIA1_PA   
 E712  D0 E3                BNE iE6F7     
 E714  AD 23 02  iE714      LDA x0223     
 E717  CD 03 02             CMP x0203     
 E71A  F0 20                BEQ iE73C     
 E71C  8D 03 02             STA x0203     
 E71F  AA                   TAX           
 E720  30 1A                BMI iE73C     
 E722  BD 5B E7             LDA iE75B,X   
 E725  4E 04 02             LSR x0204     
 E728  90 02                BCC iE72C     
 E72A  09 80                ORA #$80      
 E72C  AE 0D 02  iE72C      LDX NKEYS     
 E72F  9D 0F 02             STA x020F,X   
 E732  E8                   INX           
 E733  E0 0A                CPX #$0A      
 E735  D0 02                BNE iE739     
 E737  A2 00                LDX #$00      
 E739  8E 0D 02  iE739      STX NKEYS     
 E73C  4C 7E E6  iE73C      JMP iE67E     

 E73F  BD 5B E7  iE73F      LDA iE75B,X   
 E742  D0 07                BNE iE74B     
 E744  A9 01                LDA #$01      
 E746  8D 04 02             STA x0204     
 E749  D0 10                BNE iE75B     
 E74B  C9 FF     iE74B      CMP #$FF      
 E74D  F0 0C                BEQ iE75B     
 E74F  C9 3C                CMP #$3C      
 E751  D0 05                BNE iE758     
 E753  2C 11 E8             BIT PIA1_CRA  
 E756  30 03                BMI iE75B     
 E758  8E 23 02  iE758      STX x0223     
 E75B  60        iE75B     
 E75B  60        xE75B      RTS           

 E75C             .byte $3D, $2E, $FF, $03, $3C, $20, $5B, $12  ;=..c< [r
 E764             .byte $2D, $30, $00, $3E, $FF, $5D, $40, $00  ;-0.>.]@.
 E76C             .byte $2B, $32, $FF, $3F, $2C, $4E, $56, $58  ;+2.?,nvx
 E774             .byte $33, $31, $0D, $3B, $4D, $42, $43, $5A  ;31m;mbcz
 E77C             .byte $2A, $35, $FF, $3A, $4B, $48, $46, $53  ;*5.:khfs
 E784             .byte $36, $34, $FF, $4C, $4A, $47, $44, $41  ;64.ljgda
 E78C             .byte $2F, $38, $FF, $50, $49, $59, $52, $57  ;/8.piyrw
 E794             .byte $39, $37, $5E, $4F, $55, $54, $45, $51  ;97^outeq
 E79C             .byte $14, $11, $FF, $29, $5C, $27, $24, $22  ;tq.)'$"
 E7A4             .byte $1D, $13, $5F, $28, $26, $25, $23, $21  ;]s_(&%#!

 E7AC  A8        iE7AC      TAY           
 E7AD  AD 40 E8  iE7AD      LDA VIA_DRB   
 E7B0  29 20                AND #$20      
 E7B2  D0 F9                BNE iE7AD     
 E7B4  98                   TYA           
 E7B5  A4 E2                LDY xE2       
 E7B7  91 E0                STA (xE0),Y   
 E7B9  60                   RTS           

 E7BA  68                   PLA           
 E7BB  60                   RTS           

 E7BC  xE7BC      .byte $00                                     ;.
 E7BD  xE7BD      .byte $28, $50, $78, $A0, $C8, $F0, $18, $40  ;(pX H.x@
 E7C5             .byte $68, $90, $B8, $E0, $08, $30, $58, $80  ;H.8.h0x.
 E7CD             .byte $A8, $D0, $F8, $20, $48, $70, $98       ;(P. hP.
 E7D4  xE7D4      .byte $C0, $4C, $4F, $41, $44, $0D, $52, $55  ;.loadmru
 E7DC             .byte $4E, $0D                                ;nm


; print kernal messages


 E7DE  B9 00 F0  KPRYMSG    LDA KERNAL,Y   ; print kernal messages
 E7E1  08                   PHP           
 E7E2  29 7F                AND #$7F      
 E7E4  20 EA E3             JSR KPRCHAR   
 E7E7  C8                   INY           
 E7E8  28                   PLP           
 E7E9  10 F3                BPL KPRYMSG   
 E7EB  60                   RTS           

 E7EC             .byte $00, $00, $00, $00, $00, $00, $00       ;.......

 E7F3  0A        iE7F3      ASL           
 E7F4  69 05                ADC #$05      
 E7F6  A0 00                LDY #$00      
 E7F8  60                   RTS           

 E7F9             .byte $00, $00, $00, $00, $00, $00, $00       ;.......
 E800             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E808             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E810  PIA1_PA    .byte $00                                     ;.
 E811  PIA1_CRA   .byte $00                                     ;.
 E812  PIA1_PB    .byte $00                                     ;.
 E813  PIA1_CRB   .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E81B             .byte $00, $00, $00, $00, $00                 ;.....
 E820  PIA2_PA    .byte $00                                     ;.
 E821  PIA2_CRA   .byte $00                                     ;.
 E822  PIA2_PB    .byte $00                                     ;.
 E823  PIA2_CRB   .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E82B             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E833             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E83B             .byte $00, $00, $00, $00, $00                 ;.....
 E840  VIA_DRB    .byte $00                                     ;.
 E841  VIA_DRA    .byte $00                                     ;.
 E842  VIA_DDRB   .byte $00                                     ;.
 E843  VIA_DDRA   .byte $00                                     ;.
 E844  VIA_T1CL   .byte $00                                     ;.
 E845  VIA_T1CH   .byte $00                                     ;.
 E846  VIA_T1LL   .byte $00                                     ;.
 E847  VIA_T1LH   .byte $00                                     ;.
 E848  VIA_T2CL   .byte $00                                     ;.
 E849  VIA_T2CH   .byte $00                                     ;.
 E84A  VIA_SR     .byte $00                                     ;.
 E84B  VIA_ACR    .byte $00                                     ;.
 E84C  VIA_PCR    .byte $00                                     ;.
 E84D  VIA_IFR    .byte $00                                     ;.
 E84E  VIA_IER    .byte $00                                     ;.
 E84F  VIA_ANH    .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E857             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E85F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E867             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E86F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E877             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E87F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E887             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E88F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E897             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E89F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E8A7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E8AF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E8B7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E8BF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E8C7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E8CF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E8D7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E8DF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E8E7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E8EF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E8F7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E8FF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E907             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E90F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E917             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E91F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E927             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E92F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E937             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E93F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E947             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E94F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E957             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E95F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E967             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E96F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E977             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E97F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E987             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E98F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E997             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E99F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E9A7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E9AF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E9B7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E9BF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E9C7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E9CF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E9D7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E9DF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E9E7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E9EF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E9F7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 E9FF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EA07             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EA0F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EA17             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EA1F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EA27             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EA2F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EA37             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EA3F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EA47             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EA4F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EA57             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EA5F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EA67             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EA6F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EA77             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EA7F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EA87             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EA8F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EA97             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EA9F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EAA7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EAAF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EAB7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EABF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EAC7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EACF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EAD7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EADF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EAE7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EAEF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EAF7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EAFF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EB07             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EB0F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EB17             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EB1F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EB27             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EB2F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EB37             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EB3F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EB47             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EB4F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EB57             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EB5F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EB67             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EB6F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EB77             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EB7F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EB87             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EB8F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EB97             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EB9F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EBA7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EBAF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EBB7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EBBF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EBC7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EBCF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EBD7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EBDF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EBE7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EBEF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EBF7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EBFF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EC07             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EC0F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EC17             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EC1F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EC27             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EC2F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EC37             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EC3F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EC47             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EC4F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EC57             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EC5F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EC67             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EC6F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EC77             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EC7F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EC87             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EC8F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EC97             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EC9F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ECA7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ECAF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ECB7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ECBF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ECC7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ECCF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ECD7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ECDF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ECE7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ECEF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ECF7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ECFF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ED07             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ED0F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ED17             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ED1F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ED27             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ED2F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ED37             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ED3F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ED47             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ED4F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ED57             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ED5F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ED67             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ED6F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ED77             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ED7F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ED87             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ED8F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ED97             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 ED9F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EDA7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EDAF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EDB7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EDBF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EDC7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EDCF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EDD7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EDDF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EDE7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EDEF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EDF7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EDFF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EE07             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EE0F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EE17             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EE1F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EE27             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EE2F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EE37             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EE3F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EE47             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EE4F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EE57             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EE5F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EE67             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EE6F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EE77             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EE7F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EE87             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EE8F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EE97             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EE9F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EEA7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EEAF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EEB7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EEBF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EEC7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EECF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EED7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EEDF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EEE7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EEEF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EEF7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EEFF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EF07             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EF0F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EF17             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EF1F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EF27             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EF2F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EF37             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EF3F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EF47             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EF4F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EF57             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EF5F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EF67             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EF6F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EF77             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EF7F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EF87             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EF8F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EF97             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EF9F             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EFA7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EFAF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EFB7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EFBF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EFC7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EFCF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EFD7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EFDF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EFE7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EFEF             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EFF7             .byte $00, $00, $00, $00, $00, $00, $00, $00  ;........
 EFFF             .byte $0A                                     ;j

 F000  KERNAL     .byte $54, $4F, $4F, $20, $4D, $41, $4E, $59  ;too many
 F008             .byte $20, $46, $49, $4C, $45, $D3, $46, $49  ; fileSfi
 F010             .byte $4C, $45, $20, $4F, $50, $45, $CE, $46  ;le opeNf
 F018             .byte $49, $4C, $45, $20, $4E, $4F, $54, $20  ;ile not 
 F020             .byte $4F, $50, $45, $CE, $46, $49, $4C, $45  ;opeNfile
 F028             .byte $20, $4E, $4F, $54, $20, $46, $4F, $55  ; not fou
 F030             .byte $4E, $C4, $0D, $53, $45, $41, $52, $43  ;nDmsearc
 F038             .byte $48, $49, $4E, $47, $A0, $46, $4F, $52  ;hing for
 F040             .byte $A0, $0D, $50, $52, $45, $53, $53, $20  ; mpress 
 F048             .byte $50, $4C, $41, $59, $A0, $26, $20, $52  ;play & r
 F050             .byte $45, $43, $4F, $52, $44, $A0, $4F, $4E  ;ecord on
 F058             .byte $20, $54, $41, $50, $45, $20, $A3, $0D  ; tape #m
 F060             .byte $4C, $4F, $41, $C4, $0D, $57, $52, $49  ;loaDmwri
 F068             .byte $54, $49, $4E, $47, $A0, $0D, $56, $45  ;ting mve
 F070             .byte $52, $49, $46, $D9, $44, $45, $56, $49  ;rifYdevi
 F078             .byte $43, $45, $20, $4E, $4F, $54, $20, $50  ;ce not p
 F080             .byte $52, $45, $53, $45, $4E, $D4, $4E, $4F  ;resenTno
 F088             .byte $54, $20, $49, $4E, $50, $55, $54, $20  ;t input 
 F090             .byte $46, $49, $4C, $C5, $4E, $4F, $54, $20  ;filEnot 
 F098             .byte $4F, $55, $54, $50, $55, $54, $20, $46  ;output f
 F0A0             .byte $49, $4C, $C5, $0D, $46, $4F, $55, $4E  ;ilEmfoun
 F0A8             .byte $44, $A0, $0D, $4F, $4B, $8D, $0D, $52  ;d mok.mr
 F0B0             .byte $45, $41, $44, $59, $2E, $8D            ;eady..

 F0B6  A9 40     TALK       LDA #$40      
 F0B8  D0 02                BNE ATNOUT    
 F0BA  A9 20     LISTEN     LDA #$20      
 F0BC  48        ATNOUT     PHA           
 F0BD  AD 40 E8             LDA VIA_DRB    ; NRFD hi
 F0C0  09 02                ORA #$02      
 F0C2  8D 40 E8             STA VIA_DRB    ; store
 F0C5  A9 3C                LDA #$3C      
 F0C7  8D 21 E8             STA PIA2_CRA   ; NDAC hi
 F0CA  2C 1D 02             BIT OUTFL     
 F0CD  F0 12                BEQ iF0E1      ; if byte not saved, skip
 F0CF  A9 34                LDA #$34      
 F0D1  8D 11 E8             STA PIA1_CRA   ; set EOI
 F0D4  20 F1 F0             JSR RIECOUT    ; send last byte with EOI
 F0D7  A9 00                LDA #$00      
 F0D9  8D 1D 02             STA OUTFL      ; clear buffer flag
 F0DC  A9 3C                LDA #$3C      
 F0DE  8D 11 E8             STA PIA1_CRA   ; clear EOI
 F0E1  68        iF0E1      PLA           
 F0E2  05 F1                ORA FA        
 F0E4  8D 22 02             STA OUTBUF    
 F0E7  AD 40 E8  iF0E7      LDA VIA_DRB    ; wait DAV hi
 F0EA  10 FB                BPL iF0E7     
 F0EC  29 FB                AND #$FB      
 F0EE  8D 40 E8             STA VIA_DRB    ; ATN lo
 F0F1  A9 3C     RIECOUT    LDA #$3C      
 F0F3  8D 23 E8             STA PIA2_CRB   ; DAV hi
 F0F6  AD 40 E8             LDA VIA_DRB   
 F0F9  29 41                AND #$41       ; NRFD and NDAC
 F0FB  C9 41                CMP #$41      
 F0FD  F0 43                BEQ iF142      ; device not present
 F0FF  AD 22 02             LDA OUTBUF    
 F102  49 FF                EOR #$FF      
 F104  8D 22 E8             STA PIA2_PB    ; send data to bus
 F107  2C 40 E8  iF107      BIT VIA_DRB   
 F10A  50 FB                BVC iF107      ; wait NRFD hi
 F10C  A9 34                LDA #$34      
 F10E  8D 23 E8             STA PIA2_CRB   ; DAV lo
 F111  A9 FF                LDA #$FF      
 F113  8D 45 E8             STA VIA_T1CH   ; set timer for 65ms
 F116  AD 40 E8  iF116      LDA VIA_DRB   
 F119  2C 4D E8             BIT VIA_IFR   
 F11C  70 1D                BVS iF13B      ; timer end -> error
 F11E  4A                   LSR           
 F11F  90 F5                BCC iF116      ; wait NDAC hi
 F121  A9 3C     iF121      LDA #$3C      
 F123  8D 23 E8             STA PIA2_CRB   ; DAV hi
 F126  A9 FF                LDA #$FF      
 F128  8D 22 E8             STA PIA2_PB    ; clear bus data lines
 F12B  60                   RTS           
 F12C  8D 22 02  SECOUT     STA OUTBUF     ; send secondary address
 F12F  20 F1 F0             JSR RIECOUT   
 F132  AD 40 E8  iF132      LDA VIA_DRB   
 F135  09 04                ORA #$04      
 F137  8D 40 E8             STA VIA_DRB    ; ATN hi
 F13A  60                   RTS           
 F13B  A9 01     iF13B      LDA #$01       ; time-out error (out)
 F13D  20 E5 FB  iF13D      JSR SETST     
 F140  D0 DF                BNE iF121      ; always
 F142  A9 80     iF142      LDA #$80       ; device not present error
 F144  30 F7                BMI iF13D      ; always
 F146  A9 02     iF146      LDA #$02       ; time-out error (in)
 F148  20 E5 FB             JSR SETST      ; set status
 F14B  AD 40 E8  iF14B      LDA VIA_DRB   
 F14E  29 FD                AND #$FD      
 F150  8D 40 E8             STA VIA_DRB    ; NRFD lo
 F153  A9 34                LDA #$34      
 F155  8D 21 E8             STA PIA2_CRA   ; NDAC lo
 F158  A9 0D                LDA #$0D      
 F15A  60                   RTS           

 F15B  8D 22 02  SECTALK    STA OUTBUF     ; send secondary talk
 F15E  20 F1 F0             JSR RIECOUT   
 F161  20 4B F1  iF161      JSR iF14B      ; NRFD, NDAC lo
 F164  4C 32 F1             JMP iF132      ; ATN hi

 F167  2C 1D 02  IECOUT     BIT OUTFL     
 F16A  30 05                BMI iF171      ; no byte buffered -> skip
 F16C  CE 1D 02             DEC OUTFL      ; set buffer flag
 F16F  D0 05                BNE iF176     
 F171  48        iF171      PHA           
 F172  20 F1 F0             JSR RIECOUT   
 F175  68                   PLA           
 F176  8D 22 02  iF176      STA OUTBUF     ; save byte in buffer
 F179  60                   RTS           

 F17A  A9 5F     UNTALK     LDA #$5F      
 F17C  D0 02                BNE iF180     
 F17E  A9 3F     UNLISTEN   LDA #$3F      
 F180  85 F1     iF180      STA FA        
 F182  20 BC F0             JSR ATNOUT    
 F185  D0 AB                BNE iF132      ; always (?) -> ATN hi 
 F187  A9 34     IECIN      LDA #$34      
 F189  8D 21 E8             STA PIA2_CRA   ; NDAC lo
 F18C  AD 40 E8             LDA VIA_DRB   
 F18F  09 02                ORA #$02      
 F191  8D 40 E8             STA VIA_DRB    ; NRFD hi
 F194  A9 FF                LDA #$FF      
 F196  8D 45 E8             STA VIA_T1CH   ; timer for 65ms
 F199  2C 4D E8  iF199      BIT VIA_IFR   
 F19C  70 A8                BVS iF146      ; timer end -> error
 F19E  2C 40 E8             BIT VIA_DRB   
 F1A1  30 F6                BMI iF199      ; wait DAV lo
 F1A3  AD 40 E8             LDA VIA_DRB   
 F1A6  29 FD                AND #$FD      
 F1A8  8D 40 E8             STA VIA_DRB    ; NRFD lo
 F1AB  2C 10 E8             BIT PIA1_PA   
 F1AE  70 05                BVS iF1B5      ; EOI set?
 F1B0  A9 40                LDA #$40       ; yes
 F1B2  20 E5 FB             JSR SETST      ; set status
 F1B5  AD 20 E8  iF1B5      LDA PIA2_PA    ; load bus data
 F1B8  49 FF                EOR #$FF      
 F1BA  48                   PHA           
 F1BB  A9 3C                LDA #$3C      
 F1BD  8D 21 E8             STA PIA2_CRA   ; NDAC hi
 F1C0  2C 40 E8  iF1C0      BIT VIA_DRB   
 F1C3  10 FB                BPL iF1C0      ; wait DAV hi
 F1C5  A9 34                LDA #$34      
 F1C7  8D 21 E8             STA PIA2_CRA   ; NDAC lo
 F1CA  68                   PLA           
 F1CB  60                   RTS           

 F1CC  A9 00     KGET       LDA #$00       ; GET call
 F1CE  8D 0C 02             STA STATUS     ; clear status
 F1D1  AD 63 02             LDA CURIDEV   
 F1D4  D0 1B                BNE iF1F1     
 F1D6  AD 0D 02             LDA NKEYS      ; get from keyboard
 F1D9  F0 51                BEQ iF22C      ; number of keys in buffer zero ->RTS
 F1DB  78                   SEI           
 F1DC  4C 7D E2             JMP iE27D     
 F1DF  AD 63 02  KBASIN     LDA CURIDEV    ; BASIN call
 F1E2  D0 0D                BNE iF1F1      ; not keyboard then as GET
 F1E4  A5 E2                LDA xE2       
 F1E6  8D 21 02             STA x0221     
 F1E9  A5 F5                LDA xF5       
 F1EB  8D 20 02             STA x0220     
 F1EE  4C FA E2             JMP iE2FA     
 F1F1  C9 03     iF1F1      CMP #$03       ; get from screen?
 F1F3  D0 0B                BNE iF200     
 F1F5  8D 60 02             STA x0260     
 F1F8  A5 F2                LDA xF2       
 F1FA  8D 1E 02             STA x021E     
 F1FD  4C FA E2             JMP iE2FA     
 F200  B0 25     iF200      BCS iF227      ; dev > 3 (IEEE) -> f227
 F202  8E 61 02             STX x0261      ; get from tape
 F205  20 2D F8  iF205      JSR iF82D     
 F208  D0 0E                BNE iF218     
 F20A  20 7F F8             JSR iF87F     
 F20D  A0 00                LDY #$00      
 F20F  98                   TYA           
 F210  A6 F1                LDX FA        
 F212  9D 70 02             STA x0270,X   
 F215  4C 05 F2             JMP iF205     
 F218  B1 F3     iF218      LDA (xF3),Y   
 F21A  D0 07                BNE iF223     
 F21C  A9 40                LDA #$40      
 F21E  20 E5 FB             JSR SETST     
 F221  D0 E2                BNE iF205     
 F223  AE 61 02  iF223      LDX x0261     
 F226  60                   RTS           
 F227  AD 0C 02  iF227      LDA STATUS     ; get from IEEE488
 F22A  F0 01                BEQ iF22D     
 F22C  60        iF22C      RTS           
 F22D  4C 87 F1  iF22D      JMP IECIN     

 F230  48        KBSOUT     PHA           
 F231  AD 64 02             LDA CURODEV   
 F234  D0 03                BNE iF239     
 F236  4C 79 C3             JMP iC379      ; keyboard -> error
 F239  C9 03     iF239      CMP #$03      
 F23B  D0 04                BNE iF241      ; not screen ->
 F23D  68                   PLA           
 F23E  4C EA E3             JMP KPRCHAR   
 F241  30 04     iF241      BMI iF247      ; tape ->
 F243  68                   PLA           
 F244  4C 67 F1             JMP IECOUT     ; send to IEEE488
 F247  68        iF247      PLA           
 F248  85 E9     iF248      STA xE9       
 F24A  C9 1D                CMP #$1D      
 F24C  D0 05                BNE iF253     
 F24E  EE 6A 02             INC x026A     
 F251  F0 D9                BEQ iF22C     
 F253  C9 0A     iF253      CMP #$0A      
 F255  F0 D5                BEQ iF22C     
 F257  48                   PHA           
 F258  8A                   TXA           
 F259  48                   PHA           
 F25A  98                   TYA           
 F25B  48                   PHA           
 F25C  20 2D F8             JSR iF82D     
 F25F  D0 12                BNE iF273     
 F261  20 B9 F8             JSR iF8B9     
 F264  A6 F1                LDX FA        
 F266  A9 01                LDA #$01      
 F268  9D 70 02             STA x0270,X   
 F26B  20 E3 F5             JSR iF5E3     
 F26E  A9 02                LDA #$02      
 F270  91 F3                STA (xF3),Y   
 F272  C8                   INY           
 F273  A5 E9     iF273      LDA xE9       
 F275  91 F3                STA (xF3),Y   
 F277  68        iF277      PLA           
 F278  A8                   TAY           
 F279  68                   PLA           
 F27A  AA                   TAX           
 F27B  68                   PLA           
 F27C  60                   RTS           

 F27D  AD 64 02  KCLRCH     LDA CURODEV    ; CLRCH, clear I/O 
 F280  F0 09                BEQ iF28B     
 F282  C9 03                CMP #$03      
 F284  F0 05                BEQ iF28B     
 F286  30 03                BMI iF28B     
 F288  20 7E F1             JSR UNLISTEN  
 F28B  AD 63 02  iF28B      LDA CURIDEV   
 F28E  F0 09                BEQ iF299     
 F290  C9 03                CMP #$03      
 F292  F0 05                BEQ iF299     
 F294  30 03                BMI iF299     
 F296  20 7A F1             JSR UNTALK    
 F299  A9 00     iF299      LDA #$00      
 F29B  8D 63 02             STA CURIDEV   
 F29E  A9 03                LDA #$03      
 F2A0  8D 64 02             STA CURODEV   
 F2A3  60                   RTS           

 F2A4  A9 00     KCLALL     LDA #$00      
 F2A6  8D 62 02             STA NFILES    
 F2A9  F0 D2                BEQ KCLRCH    
 F2AB  AE 62 02  SLOGFN     LDX NFILES     ; set file parameter of log. fn in AC
 F2AE  CA        iF2AE      DEX           
 F2AF  30 16                BMI iF2C7     
 F2B1  DD 42 02             CMP LFTAB,X   
 F2B4  F0 11                BEQ iF2C7     
 F2B6  D0 F6                BNE iF2AE     
 F2B8  BD 42 02  SETFPAR    LDA LFTAB,X   
 F2BB  85 EF                STA LFN       
 F2BD  BD 4C 02             LDA FATAB,X   
 F2C0  85 F1                STA FA        
 F2C2  BD 56 02             LDA SATAB,X   
 F2C5  85 F0                STA SA        
 F2C7  60        iF2C7      RTS           

 F2C8  20 D4 F4  KCLOSE     JSR OPENPAR    ; Close 
 F2CB  A5 EF                LDA LFN       
 F2CD  20 AB F2             JSR SLOGFN    
 F2D0  D0 57                BNE iF329     
 F2D2  20 B8 F2             JSR SETFPAR   
 F2D5  8A                   TXA           
 F2D6  48                   PHA           
 F2D7  A5 F1                LDA FA         ; device number
 F2D9  F0 2F                BEQ iF30A      ; keyboard ->
 F2DB  C9 03                CMP #$03      
 F2DD  F0 2B                BEQ iF30A      ; screen ->
 F2DF  B0 26                BCS iF307      ; IEEE488 ->
 F2E1  A5 F0                LDA SA         ; Tape
 F2E3  F0 25                BEQ iF30A     
 F2E5  20 67 F6             JSR iF667     
 F2E8  A2 02                LDX #$02      
 F2EA  BD 04 F3  iF2EA      LDA xF304,X   
 F2ED  20 48 F2             JSR iF248     
 F2F0  CA                   DEX           
 F2F1  10 F7                BPL iF2EA     
 F2F3  20 B9 F8             JSR iF8B9     
 F2F6  A5 F0                LDA SA        
 F2F8  C9 02                CMP #$02      
 F2FA  D0 0E                BNE iF30A     
 F2FC  A9 05                LDA #$05      
 F2FE  20 ED F5             JSR iF5ED     
 F301  4C 0A F3             JMP iF30A     
 F304  xF304      .byte $0D, $31, $00                           ;m1.


; close IEEE488


 F307  20 E6 F6  iF307      JSR CLSIEC     ; close IEEE488
 F30A  68        iF30A      PLA           
 F30B  AA                   TAX           
 F30C  CE 62 02             DEC NFILES    
 F30F  EC 62 02             CPX NFILES    
 F312  F0 15                BEQ iF329     
 F314  AC 62 02             LDY NFILES    
 F317  B9 42 02             LDA LFTAB,Y   
 F31A  9D 42 02             STA LFTAB,X   
 F31D  B9 4C 02             LDA FATAB,Y   
 F320  9D 4C 02             STA FATAB,X   
 F323  B9 56 02             LDA SATAB,Y   
 F326  9D 56 02             STA SATAB,X   
 F329  60        iF329      RTS           

 F32A  AD 09 02  CHKSTP     LDA KEYMSK    
 F32D  C9 EF                CMP #$EF      
 F32F  D0 07                BNE iF338     
 F331  08                   PHP           
 F332  A9 00                LDA #$00      
 F334  8D 0D 02             STA NKEYS     
 F337  28                   PLP           
 F338  60        iF338      RTS           

 F339  20 2A F3  IECABORT   JSR CHKSTP    
 F33C  4C 1C C7             JMP TSTSTOP   

 F33F  A5 CA     KPRDMODE   LDA xCA        ; print kmsg in direct mode only
 F341  D0 F5                BNE iF338     
 F343  4C DE E7             JMP KPRYMSG   

 F346  A9 00     KLOAD      LDA #$00      
 F348  8D 0B 02             STA VERFL     
 F34B  20 33 F4  IECLOAD    JSR GETFPAR   
 F34E  A9 FF                LDA #$FF       ; wait till no key pressed
 F350  CD 09 02  iF350      CMP KEYMSK    
 F353  D0 FB                BNE iF350     
 F355  CD 09 02             CMP KEYMSK    
 F358  D0 F6                BNE iF350     
 F35A  A9 04                LDA #$04       ; default load address to $0400
 F35C  85 F8                STA LADDR+1   
 F35E  A9 00                LDA #$00      
 F360  85 F7                STA LADDR     
 F362  A5 F1                LDA FA         ; check device address
 F364  D0 03                BNE iF369     
 F366  4C 1C CE  iF366      JMP iCE1C      ; Syntax error (keyboard, dev. 0)
 F369  C9 03     iF369      CMP #$03      
 F36B  F0 F9                BEQ iF366      ; Syntax error (screen, dev. 3)
 F36D  90 36                BCC iF3A5      ; load from tape (device 1,2)
 F36F  20 1C F7             JSR iF71C      ; look for unused sec. address
 F372  20 FF F3             JSR PRSRCH     ; print "searching for ..."
 F375  20 62 F4             JSR IECOPEN   
 F378  20 B6 F0             JSR TALK      
 F37B  20 22 F4             JSR iF422      ; print "loading/verifying" 
 F37E  20 39 F3  iF37E      JSR IECABORT   ; check stop key
 F381  20 87 F1             JSR IECIN     
 F384  AE 0C 02             LDX STATUS    
 F387  30 43                BMI LDEND      ; status EOI then end
 F389  AC 0B 02             LDY VERFL     
 F38C  F0 0C                BEQ iF39A     
 F38E  88                   DEY           
 F38F  D1 F7                CMP (LADDR),Y  ; compare when verifying
 F391  F0 09                BEQ iF39C     
 F393  A2 02                LDX #$02      
 F395  8E 0C 02             STX STATUS    
 F398  D0 02                BNE iF39C     
 F39A  91 F7     iF39A      STA (LADDR),Y  ; store when loading
 F39C  E6 F7     iF39C      INC LADDR     
 F39E  D0 DE                BNE iF37E     
 F3A0  E6 F8                INC LADDR+1   
 F3A2  4C 7E F3             JMP iF37E     
 F3A5  20 67 F6  iF3A5      JSR iF667      ; load from tape
 F3A8  20 3B F8             JSR iF83B     
 F3AB  20 FF F3             JSR PRSRCH    
 F3AE  A5 EE     iF3AE      LDA FNLEN     
 F3B0  F0 08                BEQ iF3BA     
 F3B2  20 95 F4             JSR iF495     
 F3B5  D0 08                BNE iF3BF     
 F3B7  4C 79 F5  iF3B7      JMP iF579     
 F3BA  20 AE F5  iF3BA      JSR iF5AE     
 F3BD  F0 F8                BEQ iF3B7     
 F3BF  E0 01     iF3BF      CPX #$01      
 F3C1  D0 EB                BNE iF3AE     
 F3C3  20 4D F6             JSR iF64D     
 F3C6  20 22 F4             JSR iF422     
 F3C9  20 8A F8             JSR iF88A     
 F3CC  AD 0B 02  LDEND      LDA VERFL     
 F3CF  D0 50                BNE iF421      ; verify -> rts
 F3D1  20 13 F9             JSR iF913      ; check break status
 F3D4  AD 0C 02             LDA STATUS    
 F3D7  29 10                AND #$10      
 F3D9  F0 0A                BEQ iF3E5      ; ok -> 
 F3DB  A0 00                LDY #$00      
 F3DD  8C 0D 02             STY NKEYS     
 F3E0  A0 60                LDY #$60       ; "Load error"
 F3E2  4C 7B F5             JMP YERROUT   
 F3E5  A0 AE     iF3E5      LDY #$AE       ; print "READY."
 F3E7  20 3F F3             JSR KPRDMODE  
 F3EA  A5 CA                LDA xCA       
 F3EC  D0 0B                BNE iF3F9     
 F3EE  A5 E6                LDA EADDR+1   
 F3F0  85 7D                STA x7D       
 F3F2  A5 E5                LDA EADDR     
 F3F4  85 7C                STA x7C       
 F3F6  4C 30 C4             JMP iC430     
 F3F9  20 9A C5  iF3F9      JSR iC59A      ; (c9) = (7a)-1
 F3FC  4C 81 C5             JMP iC581      ; clear stack, restore BASIC, return
 F3FF  A5 CA     PRSRCH     LDA xCA        ; print "searching for ..."
 F401  D0 1E                BNE iF421      ; test direct mode?
 F403  A0 32                LDY #$32      
 F405  20 DE E7             JSR KPRYMSG    ; print "searching"
 F408  A5 EE                LDA FNLEN     
 F40A  F0 15                BEQ iF421      ; filename length 0 ->RTS
 F40C  A0 3D                LDY #$3D      
 F40E  20 DE E7             JSR KPRYMSG    ; print "for"
 F411  A4 EE     iF411      LDY FNLEN      ; print filename
 F413  F0 0C                BEQ iF421     
 F415  A0 00                LDY #$00      
 F417  B1 F9     iF417      LDA (xF9),Y   
 F419  20 EA E3             JSR KPRCHAR   
 F41C  C8                   INY           
 F41D  C4 EE                CPY FNLEN     
 F41F  D0 F6                BNE iF417     
 F421  60        iF421      RTS           

 F422  A0 5F     iF422      LDY #$5F       ; print loading/verifying 
 F424  AD 0B 02             LDA VERFL     
 F427  F0 02                BEQ iF42B     
 F429  A0 6D                LDY #$6D      
 F42B  20 3F F3  iF42B      JSR KPRDMODE  
 F42E  A0 39                LDY #$39      
 F430  4C 3F F3             JMP KPRDMODE  

 F433  A2 00     GETFPAR    LDX #$00       ; Get LOAD parameter
 F435  8E 0C 02             STX STATUS    
 F438  86 E5                STX EADDR     
 F43A  86 EE                STX FNLEN     
 F43C  86 F0                STX SA        
 F43E  E8                   INX           
 F43F  86 F1                STX FA         ; default to tape (FA=1)
 F441  A9 04                LDA #$04      
 F443  86 E6                STX EADDR+1   
 F445  20 15 F5             JSR ENDCMD    
 F448  20 04 F5             JSR iF504      ; get filename
 F44B  20 15 F5             JSR ENDCMD    
 F44E  20 5C F4             JSR CHKCOMMA  
 F451  86 F1                STX FA        
 F453  20 15 F5             JSR ENDCMD    
 F456  20 5C F4             JSR CHKCOMMA  
 F459  86 F0                STX SA         ; secondary address
 F45B  60        iF45B      RTS           

 F45C  20 1D F5  CHKCOMMA   JSR iF51D     
 F45F  4C 76 D6             JMP iD676     

 F462  A5 F0     IECOPEN    LDA SA         ; open IEC file
 F464  30 F5                BMI iF45B     
 F466  A4 EE                LDY FNLEN     
 F468  F0 F1                BEQ iF45B     
 F46A  20 BA F0             JSR LISTEN    
 F46D  A5 F0                LDA SA        
 F46F  09 40                ORA #$40      
 F471  85 F0                STA SA        
 F473  09 F0                ORA #$F0      
 F475  20 2C F1             JSR SECOUT    
 F478  AD 0C 02             LDA STATUS    
 F47B  10 05                BPL iF482     
 F47D  A0 74     iF47D      LDY #$74       ; device not present error
 F47F  4C 7B F5             JMP YERROUT   
 F482  A5 EE     iF482      LDA FNLEN     
 F484  F0 0C                BEQ iF492     
 F486  A0 00                LDY #$00      
 F488  B1 F9     iF488      LDA (xF9),Y   
 F48A  20 67 F1             JSR IECOUT    
 F48D  C8                   INY           
 F48E  C4 EE                CPY FNLEN     
 F490  D0 F6                BNE iF488     
 F492  4C 7E F1  iF492      JMP UNLISTEN  

 F495  20 AE F5  iF495      JSR iF5AE      ; Tape stuff
 F498  F0 20                BEQ iF4BA     
 F49A  A0 05                LDY #$05      
 F49C  8C 68 02             STY x0268     
 F49F  A0 00                LDY #$00      
 F4A1  84 E9                STY xE9       
 F4A3  C4 EE     iF4A3      CPY FNLEN     
 F4A5  F0 12                BEQ iF4B9     
 F4A7  B1 F9                LDA (xF9),Y   
 F4A9  AC 68 02             LDY x0268     
 F4AC  D1 F3                CMP (xF3),Y   
 F4AE  D0 E5                BNE iF495     
 F4B0  E6 E9                INC xE9       
 F4B2  EE 68 02             INC x0268     
 F4B5  A4 E9                LDY xE9       
 F4B7  D0 EA                BNE iF4A3     
 F4B9  98        iF4B9      TYA           
 F4BA  60        iF4BA      RTS           

 F4BB  A9 01     KVERIFY    LDA #$01      
 F4BD  8D 0B 02             STA VERFL     
 F4C0  20 4B F3             JSR IECLOAD   
 F4C3  AD 0C 02             LDA STATUS    
 F4C6  29 10                AND #$10      
 F4C8  F0 05                BEQ iF4CF     
 F4CA  A0 6E                LDY #$6E      
 F4CC  4C 7B F5             JMP YERROUT   
 F4CF  A0 AA     iF4CF      LDY #$AA      
 F4D1  4C DE E7             JMP KPRYMSG   

 F4D4  A2 00     OPENPAR    LDX #$00      
 F4D6  86 F0                STX SA        
 F4D8  8E 0C 02             STX STATUS    
 F4DB  86 EE                STX FNLEN     
 F4DD  E8                   INX           
 F4DE  86 F1                STX FA        
 F4E0  20 22 F5             JSR iF522     
 F4E3  20 76 D6             JSR iD676     
 F4E6  86 EF                STX LFN       
 F4E8  20 15 F5             JSR ENDCMD    
 F4EB  20 5C F4             JSR CHKCOMMA  
 F4EE  86 F1                STX FA        
 F4F0  E0 03                CPX #$03      
 F4F2  90 02                BCC iF4F6     
 F4F4  C6 F0                DEC SA        
 F4F6  20 15 F5  iF4F6      JSR ENDCMD    
 F4F9  20 5C F4             JSR CHKCOMMA  
 F4FC  86 F0                STX SA        
 F4FE  20 15 F5             JSR ENDCMD    
 F501  20 1D F5             JSR iF51D     
 F504  20 B8 CC  iF504      JSR iCCB8     
 F507  20 7B D5             JSR iD57B     
 F50A  85 EE                STA FNLEN     
 F50C  A5 71                LDA x71       
 F50E  85 F9                STA xF9       
 F510  A5 72                LDA x72       
 F512  85 FA                STA xFA       
 F514  60                   RTS           

 F515  20 C8 00  ENDCMD     JSR iC8       
 F518  D0 02                BNE iF51C     
 F51A  68                   PLA           
 F51B  68                   PLA           
 F51C  60        iF51C      RTS           

 F51D  A9 2C     iF51D      LDA #$2C      
 F51F  20 13 CE             JSR iCE13     
 F522  20 C8 00  iF522      JSR iC8       
 F525  D0 F5                BNE iF51C     
 F527  4C 1C CE             JMP iCE1C     

 F52A  20 D4 F4  KOPEN      JSR OPENPAR    ; Kernal Open
 F52D  A5 EF                LDA LFN       
 F52F  D0 03                BNE iF534     
 F531  4C 1C CE             JMP iCE1C     
 F534  20 AB F2  iF534      JSR SLOGFN    
 F537  D0 04                BNE iF53D     
 F539  A0 0E                LDY #$0E      
 F53B  D0 3E     iF53B      BNE YERROUT   
 F53D  AE 62 02  iF53D      LDX NFILES     ; file not in use already
 F540  A0 00                LDY #$00      
 F542  8C 0C 02             STY STATUS    
 F545  E0 0A                CPX #$0A      
 F547  F0 F2                BEQ iF53B      ; file table full -> lock!
 F549  EE 62 02             INC NFILES    
 F54C  A5 EF                LDA LFN        ; save file parameter
 F54E  9D 42 02             STA LFTAB,X   
 F551  A5 F0                LDA SA        
 F553  9D 56 02             STA SATAB,X   
 F556  A5 F1                LDA FA        
 F558  9D 4C 02             STA FATAB,X   
 F55B  F0 50                BEQ iF5AD      ; check devices
 F55D  C9 03                CMP #$03      
 F55F  F0 4C                BEQ iF5AD     
 F561  90 03                BCC iF566     
 F563  4C 62 F4             JMP IECOPEN    ; iecopen
 F566  A5 F0     iF566      LDA SA         ; Tape
 F568  D0 28                BNE iF592     
 F56A  20 3B F8             JSR iF83B     
 F56D  20 FF F3             JSR PRSRCH    
 F570  A5 EE                LDA FNLEN     
 F572  F0 17                BEQ iF58B     
 F574  20 95 F4             JSR iF495     
 F577  D0 21                BNE iF59A     
 F579  A0 24     iF579      LDY #$24      
 F57B  A9 0D     YERROUT    LDA #$0D      
 F57D  20 EA E3             JSR KPRCHAR   
 F580  A9 3F                LDA #$3F      
 F582  20 EA E3             JSR KPRCHAR   
 F585  20 DE E7             JSR KPRYMSG   
 F588  4C 79 C3             JMP iC379     
 F58B  20 AE F5  iF58B      JSR iF5AE     
 F58E  F0 E9                BEQ iF579     
 F590  D0 08                BNE iF59A     
 F592  20 71 F8  iF592      JSR iF871     
 F595  A9 04                LDA #$04      
 F597  20 ED F5             JSR iF5ED     
 F59A  A6 F1     iF59A      LDX FA        
 F59C  A9 BF                LDA #$BF      
 F59E  A4 F0                LDY SA        
 F5A0  F0 08                BEQ iF5AA     
 F5A2  20 E3 F5             JSR iF5E3     
 F5A5  A9 02                LDA #$02      
 F5A7  91 F3                STA (xF3),Y   
 F5A9  98                   TYA           
 F5AA  9D 70 02  iF5AA      STA x0270,X   
 F5AD  60        iF5AD      RTS           

 F5AE  AD 0B 02  iF5AE      LDA VERFL     
 F5B1  48                   PHA           
 F5B2  20 7F F8  iF5B2      JSR iF87F     
 F5B5  A0 00                LDY #$00      
 F5B7  B1 F3                LDA (xF3),Y   
 F5B9  C9 05                CMP #$05      
 F5BB  F0 20                BEQ iF5DD     
 F5BD  C9 01                CMP #$01      
 F5BF  F0 04                BEQ iF5C5     
 F5C1  C9 04                CMP #$04      
 F5C3  D0 ED                BNE iF5B2     
 F5C5  AA        iF5C5      TAX           
 F5C6  A5 CA                LDA xCA       
 F5C8  D0 11                BNE iF5DB     
 F5CA  A0 A3                LDY #$A3       ; "found"
 F5CC  20 DE E7             JSR KPRYMSG   
 F5CF  A0 05                LDY #$05      
 F5D1  B1 F3     iF5D1      LDA (xF3),Y   
 F5D3  20 EA E3             JSR KPRCHAR   
 F5D6  C8                   INY           
 F5D7  C0 15                CPY #$15      
 F5D9  D0 F6                BNE iF5D1     
 F5DB  A0 01     iF5DB      LDY #$01      
 F5DD  68        iF5DD      PLA           
 F5DE  8D 0B 02             STA VERFL     
 F5E1  98                   TYA           
 F5E2  60                   RTS           

 F5E3  A0 BF     iF5E3      LDY #$BF      
 F5E5  A9 20                LDA #$20      
 F5E7  91 F3     iF5E7      STA (xF3),Y   
 F5E9  88                   DEY           
 F5EA  D0 FB                BNE iF5E7     
 F5EC  60                   RTS           

 F5ED  85 E9     iF5ED      STA xE9       
 F5EF  A5 F8                LDA LADDR+1   
 F5F1  48                   PHA           
 F5F2  A5 F7                LDA LADDR     
 F5F4  48                   PHA           
 F5F5  A5 E6                LDA EADDR+1   
 F5F7  48                   PHA           
 F5F8  A5 E5                LDA EADDR     
 F5FA  48                   PHA           
 F5FB  20 E3 F5             JSR iF5E3     
 F5FE  A5 E9                LDA xE9       
 F600  91 F3                STA (xF3),Y   
 F602  C8                   INY           
 F603  A5 F7                LDA LADDR     
 F605  91 F3                STA (xF3),Y   
 F607  C8                   INY           
 F608  A5 F8                LDA LADDR+1   
 F60A  91 F3                STA (xF3),Y   
 F60C  C8                   INY           
 F60D  A5 E5                LDA EADDR     
 F60F  91 F3                STA (xF3),Y   
 F611  C8                   INY           
 F612  A5 E6                LDA EADDR+1   
 F614  91 F3                STA (xF3),Y   
 F616  C8                   INY           
 F617  8C 68 02             STY x0268     
 F61A  A0 00                LDY #$00      
 F61C  84 E9                STY xE9       
 F61E  A4 E9     iF61E      LDY xE9       
 F620  C4 EE                CPY FNLEN     
 F622  F0 0E                BEQ iF632     
 F624  B1 F9                LDA (xF9),Y   
 F626  AC 68 02             LDY x0268     
 F629  91 F3                STA (xF3),Y   
 F62B  E6 E9                INC xE9       
 F62D  EE 68 02             INC x0268     
 F630  D0 EC                BNE iF61E     
 F632  20 7D F6  iF632      JSR iF67D     
 F635  20 13 F9             JSR iF913     
 F638  A9 69                LDA #$69      
 F63A  8D 79 02             STA x0279     
 F63D  20 C4 F8             JSR iF8C4     
 F640  68                   PLA           
 F641  85 E5                STA EADDR     
 F643  68                   PLA           
 F644  85 E6                STA EADDR+1   
 F646  68                   PLA           
 F647  85 F7                STA LADDR     
 F649  68                   PLA           
 F64A  85 F8                STA LADDR+1   
 F64C  60                   RTS           

 F64D  20 13 F9  iF64D      JSR iF913     
 F650  A2 00                LDX #$00      
 F652  A0 01                LDY #$01      
 F654  B1 F3     iF654      LDA (xF3),Y   
 F656  95 E3                STA SADDR,X   
 F658  E8                   INX           
 F659  C8                   INY           
 F65A  E0 04                CPX #$04      
 F65C  D0 F6                BNE iF654     
 F65E  A5 E3                LDA SADDR     
 F660  85 F7                STA LADDR     
 F662  A5 E4                LDA SADDR+1   
 F664  85 F8                STA LADDR+1   
 F666  60                   RTS           

 F667  A9 7A     iF667      LDA #$7A      
 F669  85 F3                STA xF3       
 F66B  A9 02                LDA #$02      
 F66D  85 F4                STA xF4       
 F66F  A5 F1                LDA FA        
 F671  4A                   LSR           
 F672  B0 08                BCS iF67C     
 F674  A9 3A                LDA #$3A      
 F676  85 F3                STA xF3       
 F678  A9 03                LDA #$03      
 F67A  85 F4                STA xF4       
 F67C  60        iF67C      RTS           

 F67D  20 13 F9  iF67D      JSR iF913     
 F680  20 67 F6             JSR iF667     
 F683  A5 F3                LDA xF3       
 F685  85 F7                STA LADDR     
 F687  18                   CLC           
 F688  69 C0                ADC #$C0      
 F68A  85 E5                STA EADDR     
 F68C  A5 F4                LDA xF4       
 F68E  85 F8                STA LADDR+1   
 F690  69 00                ADC #$00      
 F692  85 E6                STA EADDR+1   
 F694  60                   RTS           

 F695  20 A4 CC  KSYS       JSR iCCA4     
 F698  20 D0 D6             JSR iD6D0     
 F69B  6C 08 00             JMP (x08)     

 F69E  20 33 F4  KSAVE      JSR GETFPAR   
 F6A1  A5 7C                LDA x7C       
 F6A3  85 E5                STA EADDR     
 F6A5  A5 7D                LDA x7D       
 F6A7  85 E6                STA EADDR+1   
 F6A9  A9 04                LDA #$04       ; default save from $0400
 F6AB  85 F8                STA LADDR+1   
 F6AD  A9 00                LDA #$00      
 F6AF  85 F7                STA LADDR     
 F6B1  A5 F1                LDA FA        
 F6B3  D0 05                BNE iF6BA     
 F6B5  A0 74     iF6B5      LDY #$74       ; keyboard -> device not present
 F6B7  4C 7B F5             JMP YERROUT   
 F6BA  C9 03     iF6BA      CMP #$03      
 F6BC  F0 F7                BEQ iF6B5      ; screen -> device not present
 F6BE  90 36                BCC iF6F6      ; tape -> 
 F6C0  20 1C F7             JSR iF71C      ; get free secaddr
 F6C3  20 62 F4             JSR IECOPEN   
 F6C6  20 BA F0             JSR LISTEN    
 F6C9  A0 00                LDY #$00      
 F6CB  20 DC FB             JSR iFBDC      ; LADR -> SADR
 F6CE  20 90 FD  iF6CE      JSR iFD90      ; compare with end address
 F6D1  F0 10                BEQ iF6E3     
 F6D3  B1 E3                LDA (SADDR),Y 
 F6D5  20 67 F1             JSR IECOUT    
 F6D8  20 39 F3             JSR IECABORT  
 F6DB  E6 E3                INC SADDR     
 F6DD  D0 EF                BNE iF6CE     
 F6DF  E6 E4                INC SADDR+1   
 F6E1  D0 EB                BNE iF6CE     
 F6E3  20 7E F1  iF6E3      JSR UNLISTEN  
 F6E6  24 F0     CLSIEC     BIT SA        
 F6E8  30 4B                BMI iF735     
 F6EA  20 BA F0             JSR LISTEN    
 F6ED  A5 F0                LDA SA        
 F6EF  29 EF                AND #$EF      
 F6F1  09 E0                ORA #$E0      
 F6F3  4C 2C F1             JMP SECOUT    
 F6F6  20 67 F6  iF6F6      JSR iF667      ; Tape
 F6F9  20 71 F8             JSR iF871     
 F6FC  A5 CA                LDA xCA       
 F6FE  D0 08                BNE iF708     
 F700  A0 64                LDY #$64      
 F702  20 DE E7             JSR KPRYMSG   
 F705  20 11 F4             JSR iF411     
 F708  A9 01     iF708      LDA #$01      
 F70A  20 ED F5             JSR iF5ED     
 F70D  20 BC F8             JSR iF8BC     
 F710  A6 F0                LDX SA        
 F712  F0 21                BEQ iF735     
 F714  CA                   DEX           
 F715  F0 1E                BEQ iF735     
 F717  A9 05                LDA #$05      
 F719  4C ED F5             JMP iF5ED     
 F71C  A2 00     iF71C      LDX #$00       ; look for free sec. address
 F71E  86 F0                STX SA        
 F720  A2 00     iF720      LDX #$00      
 F722  E6 F0                INC SA        
 F724  EC 62 02  iF724      CPX NFILES    
 F727  F0 5E                BEQ iF787      ; -> RTS
 F729  BD 56 02             LDA SATAB,X   
 F72C  29 1F                AND #$1F      
 F72E  C5 F0                CMP SA        
 F730  F0 EE                BEQ iF720     
 F732  E8                   INX           
 F733  D0 EF                BNE iF724     
 F735  60        iF735      RTS           
 F736  AD 05 02  iF736      LDA TIMER1    
 F739  69 01                ADC #$01      
 F73B  8D 05 02             STA TIMER1    
 F73E  90 03                BCC iF743     
 F740  EE 06 02             INC TIMER1+1  
 F743  C9 6F     iF743      CMP #$6F      
 F745  D0 07                BNE iF74E     
 F747  AD 06 02             LDA TIMER1+1  
 F74A  C9 02                CMP #$02      
 F74C  F0 26                BEQ iF774     
 F74E  EE 02 02  iF74E      INC x0202     
 F751  D0 08                BNE iF75B     
 F753  EE 01 02             INC x0201     
 F756  D0 03                BNE iF75B     
 F758  EE 00 02             INC x0200     
 F75B  A2 00     iF75B      LDX #$00      
 F75D  BD 00 02  iF75D      LDA x0200,X   
 F760  DD 88 F7             CMP xF788,X   
 F763  90 17                BCC iF77C     
 F765  E8                   INX           
 F766  E0 03                CPX #$03      
 F768  D0 F3                BNE iF75D     
 F76A  A9 00                LDA #$00      
 F76C  9D FF 01  iF76C      STA STACK+255,X
 F76F  CA                   DEX           
 F770  D0 FA                BNE iF76C     
 F772  F0 08                BEQ iF77C     
 F774  A9 00     iF774      LDA #$00      
 F776  8D 05 02             STA TIMER1    
 F779  8D 06 02             STA TIMER1+1  
 F77C  AD 12 E8  iF77C      LDA PIA1_PB   
 F77F  CD 12 E8             CMP PIA1_PB   
 F782  D0 F8                BNE iF77C     
 F784  8D 09 02             STA KEYMSK    
 F787  60        iF787      RTS           

 F788  xF788      .byte $4F, $1A, $01                           ;oza

 F78B  48        KCHKIN     PHA           
 F78C  8A                   TXA           
 F78D  48                   PHA           
 F78E  98                   TYA           
 F78F  48                   PHA           
 F790  A9 00                LDA #$00      
 F792  8D 0C 02             STA STATUS     ; clear status
 F795  8A                   TXA           
 F796  20 AB F2             JSR SLOGFN    
 F799  F0 05                BEQ iF7A0     
 F79B  A0 17     iF79B      LDY #$17       ; "file not open"
 F79D  4C 7B F5  iF79D      JMP YERROUT   
 F7A0  20 B8 F2  iF7A0      JSR SETFPAR   
 F7A3  A5 F1                LDA FA        
 F7A5  F0 0E                BEQ iF7B5     
 F7A7  C9 03                CMP #$03      
 F7A9  F0 0A                BEQ iF7B5     
 F7AB  B0 0E                BCS iF7BB      ; IEEE488 ->
 F7AD  A6 F0                LDX SA         ; Tape
 F7AF  F0 04                BEQ iF7B5     
 F7B1  A0 86                LDY #$86      
 F7B3  D0 E8                BNE iF79D     
 F7B5  8D 63 02  iF7B5      STA CURIDEV    ; keyboard -> almost finished
 F7B8  4C 77 F2             JMP iF277      ; restore registers, return
 F7BB  48        iF7BB      PHA           
 F7BC  20 B6 F0             JSR TALK      
 F7BF  A5 F0                LDA SA        
 F7C1  10 06                BPL iF7C9     
 F7C3  20 61 F1             JSR iF161      ; NRFD, NDAC lo, ATN hi
 F7C6  4C D0 F7             JMP iF7D0     
 F7C9  29 1F     iF7C9      AND #$1F      
 F7CB  09 60                ORA #$60      
 F7CD  20 5B F1             JSR SECTALK   
 F7D0  AD 0C 02  iF7D0      LDA STATUS    
 F7D3  10 03                BPL iF7D8     
 F7D5  4C 7D F4             JMP iF47D      ; "device not present"
 F7D8  68        iF7D8      PLA           
 F7D9  4C B5 F7             JMP iF7B5     

 F7DC  48        KCKOUT     PHA           
 F7DD  8A                   TXA           
 F7DE  48                   PHA           
 F7DF  98                   TYA           
 F7E0  48                   PHA           
 F7E1  A9 00                LDA #$00      
 F7E3  8D 0C 02             STA STATUS    
 F7E6  A9 FF                LDA #$FF      
 F7E8  8D 6A 02             STA x026A     
 F7EB  8A                   TXA           
 F7EC  20 AB F2             JSR SLOGFN    
 F7EF  D0 AA                BNE iF79B     
 F7F1  20 B8 F2             JSR SETFPAR   
 F7F4  A5 F1                LDA FA         ; check device
 F7F6  F0 A3                BEQ iF79B      ; keyboard -> file not open
 F7F8  C9 03                CMP #$03      
 F7FA  F0 0A                BEQ iF806      ; screen -> almost finished
 F7FC  10 0E                BPL iF80C      ; IEEE488 ->
 F7FE  A6 F0                LDX SA         ; Tape
 F800  D0 04                BNE iF806     
 F802  A0 94                LDY #$94      
 F804  D0 97                BNE iF79D     
 F806  8D 64 02  iF806      STA CURODEV   
 F809  4C 77 F2             JMP iF277      ; restore registers, return 
 F80C  48        iF80C      PHA           
 F80D  20 BA F0             JSR LISTEN    
 F810  A5 F0                LDA SA        
 F812  10 06                BPL iF81A     
 F814  20 32 F1             JSR iF132      ; ATN hi
 F817  4C 21 F8             JMP iF821     
 F81A  29 1F     iF81A      AND #$1F      
 F81C  09 60                ORA #$60      
 F81E  20 2C F1             JSR SECOUT    
 F821  AD 0C 02  iF821      LDA STATUS    
 F824  10 03                BPL iF829     
 F826  4C 7D F4             JMP iF47D      ; device not present
 F829  68        iF829      PLA           
 F82A  4C 06 F8             JMP iF806     

 F82D  20 67 F6  iF82D      JSR iF667      ; Tape
 F830  A6 F1                LDX FA        
 F832  FE 70 02             INC x0270,X   
 F835  BC 70 02             LDY x0270,X   
 F838  C0 C0                CPY #$C0      
 F83A  60                   RTS           

 F83B  20 5E F8  iF83B      JSR iF85E     
 F83E  F0 30                BEQ iF870     
 F840  A0 41                LDY #$41       ; "press play & record"
 F842  20 DE E7  iF842      JSR KPRYMSG   
 F845  A0 56                LDY #$56       ; "on tape #"
 F847  20 DE E7             JSR KPRYMSG   
 F84A  A5 F1                LDA FA        
 F84C  09 30                ORA #$30      
 F84E  20 EA E3             JSR KPRCHAR   
 F851  20 39 F3  iF851      JSR IECABORT  
 F854  20 5E F8             JSR iF85E     
 F857  D0 F8                BNE iF851     
 F859  A0 AA                LDY #$AA      
 F85B  4C DE E7             JMP KPRYMSG   
 F85E  A9 10     iF85E      LDA #$10      
 F860  A6 F1                LDX FA        
 F862  E0 01                CPX #$01      
 F864  F0 02                BEQ iF868     
 F866  A9 20                LDA #$20      
 F868  2C 10 E8  iF868      BIT PIA1_PA   
 F86B  D0 03                BNE iF870     
 F86D  2C 10 E8             BIT PIA1_PA   
 F870  60        iF870      RTS           

 F871  20 5E F8  iF871      JSR iF85E     
 F874  F0 FA                BEQ iF870     
 F876  A0 41                LDY #$41      
 F878  20 DE E7             JSR KPRYMSG   
 F87B  A0 4D                LDY #$4D      
 F87D  D0 C3                BNE iF842     
 F87F  A9 00     iF87F      LDA #$00      
 F881  8D 0C 02             STA STATUS    
 F884  8D 0B 02             STA VERFL     
 F887  20 7D F6             JSR iF67D     
 F88A  20 13 F9  iF88A      JSR iF913     
 F88D  20 3B F8             JSR iF83B     
 F890  78                   SEI           
 F891  A9 00                LDA #$00      
 F893  8D 78 02             STA x0278     
 F896  85 EB                STA xEB       
 F898  85 E7                STA xE7       
 F89A  8D 76 02             STA x0276     
 F89D  8D 77 02             STA x0277     
 F8A0  8D 66 02             STA x0266     
 F8A3  A2 0E                LDX #$0E      
 F8A5  20 1B FD             JSR SETIRQV   
 F8A8  A6 F1                LDX FA        
 F8AA  CA                   DEX           
 F8AB  F0 07                BEQ iF8B4     
 F8AD  A9 90                LDA #$90      
 F8AF  8D 4E E8             STA VIA_IER   
 F8B2  D0 1E                BNE iF8D2     
 F8B4  EE 11 E8  iF8B4      INC PIA1_CRA  
 F8B7  D0 19                BNE iF8D2     
 F8B9  20 7D F6  iF8B9      JSR iF67D     
 F8BC  20 13 F9  iF8BC      JSR iF913     
 F8BF  A9 14                LDA #$14      
 F8C1  8D 79 02             STA x0279     
 F8C4  20 71 F8  iF8C4      JSR iF871     
 F8C7  78                   SEI           
 F8C8  A9 A0                LDA #$A0      
 F8CA  8D 4E E8             STA VIA_IER   
 F8CD  A2 08                LDX #$08      
 F8CF  20 1B FD             JSR SETIRQV   
 F8D2  A9 02     iF8D2      LDA #$02      
 F8D4  85 FD                STA xFD       
 F8D6  20 EC FB             JSR iFBEC     
 F8D9  CE 13 E8             DEC PIA1_CRB  
 F8DC  A6 F1                LDX FA        
 F8DE  CA                   DEX           
 F8DF  D0 0A                BNE iF8EB     
 F8E1  A9 34                LDA #$34      
 F8E3  8D 13 E8             STA PIA1_CRB  
 F8E6  8D 07 02             STA x0207     
 F8E9  D0 0B                BNE iF8F6     
 F8EB  AD 40 E8  iF8EB      LDA VIA_DRB   
 F8EE  8E 08 02             STX x0208     
 F8F1  29 EF                AND #$EF      
 F8F3  8D 40 E8             STA VIA_DRB   
 F8F6  8D 49 E8  iF8F6      STA VIA_T2CH  
 F8F9  58                   CLI           
 F8FA  A9 E6     iF8FA      LDA #$E6      
 F8FC  CD 1A 02             CMP IRQV+1    
 F8FF  F0 11                BEQ iF912     
 F901  20 1E F9             JSR iF91E     
 F904  2C 13 E8             BIT PIA1_CRB  
 F907  10 F1                BPL iF8FA     
 F909  2C 12 E8             BIT PIA1_PB   
 F90C  20 36 F7             JSR iF736     
 F90F  4C FA F8             JMP iF8FA     
 F912  60        iF912      RTS           

 F913  20 1E F9  iF913      JSR iF91E      ; check break status
 F916  A9 E6                LDA #$E6      
 F918  CD 1A 02             CMP IRQV+1    
 F91B  D0 F6                BNE iF913     
 F91D  60                   RTS           

 F91E  20 2A F3  iF91E      JSR CHKSTP     ; returns z=1 if break
 F921  D0 08                BNE iF92B     
 F923  08                   PHP           
 F924  20 FB FC             JSR CLEARIO   
 F927  20 99 F2             JSR iF299      ; set keyb/screen as I/O
 F92A  28                   PLP           
 F92B  4C 1C C7  iF92B      JMP TSTSTOP    ; Does a "BNE -> RTS, otherwise STOP"

 F92E  86 E8     iF92E      STX xE8       
 F930  A5 E7                LDA xE7       
 F932  0A                   ASL           
 F933  0A                   ASL           
 F934  18                   CLC           
 F935  65 E7                ADC xE7       
 F937  18                   CLC           
 F938  65 E8                ADC xE8       
 F93A  85 E8                STA xE8       
 F93C  A9 00                LDA #$00      
 F93E  24 E7                BIT xE7       
 F940  30 01                BMI iF943     
 F942  2A                   ROL           
 F943  06 E8     iF943      ASL xE8       
 F945  2A                   ROL           
 F946  06 E8                ASL xE8       
 F948  2A                   ROL           
 F949  AA                   TAX           
 F94A  AD 48 E8  iF94A      LDA VIA_T2CL  
 F94D  C9 15                CMP #$15      
 F94F  90 F9                BCC iF94A     
 F951  65 E8                ADC xE8       
 F953  8D 44 E8             STA VIA_T1CL  
 F956  8A                   TXA           
 F957  6D 49 E8             ADC VIA_T2CH  
 F95A  8D 45 E8             STA VIA_T1CH  
 F95D  58                   CLI           
 F95E  60                   RTS           

 F95F  AE 49 E8  iF95F      LDX VIA_T2CH  
 F962  A0 FF                LDY #$FF      
 F964  98                   TYA           
 F965  ED 48 E8             SBC VIA_T2CL  
 F968  EC 49 E8             CPX VIA_T2CH  
 F96B  D0 F2                BNE iF95F     
 F96D  86 E8                STX xE8       
 F96F  AA                   TAX           
 F970  8C 48 E8             STY VIA_T2CL  
 F973  8C 49 E8             STY VIA_T2CH  
 F976  98                   TYA           
 F977  E5 E8                SBC xE8       
 F979  86 E8                STX xE8       
 F97B  4A                   LSR           
 F97C  66 E8                ROR xE8       
 F97E  4A                   LSR           
 F97F  66 E8                ROR xE8       
 F981  A5 E7                LDA xE7       
 F983  18                   CLC           
 F984  69 3C                ADC #$3C      
 F986  2C 40 E8             BIT VIA_DRB   
 F989  2C 10 E8             BIT PIA1_PA   
 F98C  C5 E8                CMP xE8       
 F98E  B0 55                BCS iF9E5     
 F990  AE 66 02             LDX x0266     
 F993  F0 03                BEQ iF998     
 F995  4C A3 FA             JMP iFAA3     
 F998  AE 6C 02  iF998      LDX x026C     
 F99B  30 1B                BMI iF9B8     
 F99D  A2 00                LDX #$00      
 F99F  69 30                ADC #$30      
 F9A1  65 E7                ADC xE7       
 F9A3  C5 E8                CMP xE8       
 F9A5  B0 1E                BCS iF9C5     
 F9A7  E8                   INX           
 F9A8  69 26                ADC #$26      
 F9AA  65 E7                ADC xE7       
 F9AC  C5 E8                CMP xE8       
 F9AE  B0 1B                BCS iF9CB     
 F9B0  69 2C                ADC #$2C      
 F9B2  65 E7                ADC xE7       
 F9B4  C5 E8                CMP xE8       
 F9B6  90 03                BCC iF9BB     
 F9B8  4C 4A FA  iF9B8      JMP iFA4A     
 F9BB  EA        iF9BB      NOP           
 F9BC  A5 EB     iF9BC      LDA xEB       
 F9BE  F0 25                BEQ iF9E5     
 F9C0  8D 74 02             STA x0274     
 F9C3  D0 20                BNE iF9E5     
 F9C5  EE 75 02  iF9C5      INC x0275     
 F9C8  B0 04                BCS iF9CE     
 F9CA  EA        iF9CA      NOP           
 F9CB  CE 75 02  iF9CB      DEC x0275     
 F9CE  38        iF9CE      SEC           
 F9CF  E9 13                SBC #$13      
 F9D1  E5 E8                SBC xE8       
 F9D3  6D 0A 02             ADC x020A     
 F9D6  8D 0A 02             STA x020A     
 F9D9  AD 6F 02             LDA x026F     
 F9DC  49 01                EOR #$01      
 F9DE  8D 6F 02             STA x026F     
 F9E1  F0 24                BEQ iFA07     
 F9E3  86 F6                STX xF6       
 F9E5  A5 EB     iF9E5      LDA xEB       
 F9E7  F0 1B                BEQ iFA04     
 F9E9  2C 4D E8             BIT VIA_IFR   
 F9EC  50 16                BVC iFA04     
 F9EE  A9 00                LDA #$00      
 F9F0  8D 6F 02             STA x026F     
 F9F3  AD 6C 02             LDA x026C     
 F9F6  10 36                BPL iFA2E     
 F9F8  30 BE                BMI iF9B8     
 F9FA  A2 A6     iF9FA      LDX #$A6      
 F9FC  20 2E F9             JSR iF92E     
 F9FF  AD 65 02             LDA x0265     
 FA02  D0 B8                BNE iF9BC     
 FA04  4C 7E E6  iFA04      JMP iE67E     
 FA07  AD 0A 02  iFA07      LDA x020A     
 FA0A  F0 08                BEQ iFA14     
 FA0C  30 04                BMI iFA12     
 FA0E  C6 E7                DEC xE7       
 FA10  C6 E7                DEC xE7       
 FA12  E6 E7     iFA12      INC xE7       
 FA14  A9 00     iFA14      LDA #$00      
 FA16  8D 0A 02             STA x020A     
 FA19  E4 F6                CPX xF6       
 FA1B  D0 11                BNE iFA2E     
 FA1D  8A                   TXA           
 FA1E  D0 9C                BNE iF9BC     
 FA20  AD 75 02             LDA x0275     
 FA23  30 C0                BMI iF9E5     
 FA25  C9 10                CMP #$10      
 FA27  90 BC                BCC iF9E5     
 FA29  8D 28 02             STA x0228     
 FA2C  B0 B7                BCS iF9E5     
 FA2E  8A        iFA2E      TXA           
 FA2F  4D 65 02             EOR x0265     
 FA32  8D 65 02             STA x0265     
 FA35  A5 EB                LDA xEB       
 FA37  F0 CB                BEQ iFA04     
 FA39  CE 6C 02             DEC x026C     
 FA3C  30 BC                BMI iF9FA     
 FA3E  46 F6                LSR xF6       
 FA40  66 FE                ROR xFE       
 FA42  A2 DA                LDX #$DA      
 FA44  20 2E F9             JSR iF92E     
 FA47  4C 7E E6             JMP iE67E     

 FA4A  AD 28 02  iFA4A      LDA x0228     
 FA4D  F0 04                BEQ iFA53     
 FA4F  A5 EB                LDA xEB       
 FA51  F0 08                BEQ iFA5B     
 FA53  AD 6C 02  iFA53      LDA x026C     
 FA56  30 03                BMI iFA5B     
 FA58  4C CA F9             JMP iF9CA     
 FA5B  46 E8     iFA5B      LSR xE8       
 FA5D  A9 93                LDA #$93      
 FA5F  38                   SEC           
 FA60  E5 E8                SBC xE8       
 FA62  65 E7                ADC xE7       
 FA64  0A                   ASL           
 FA65  AA                   TAX           
 FA66  20 2E F9             JSR iF92E     
 FA69  EE 66 02             INC x0266     
 FA6C  A5 EB                LDA xEB       
 FA6E  D0 14                BNE iFA84     
 FA70  AD 28 02             LDA x0228     
 FA73  F0 2B                BEQ iFAA0     
 FA75  8D 74 02             STA x0274     
 FA78  A9 00                LDA #$00      
 FA7A  8D 28 02             STA x0228     
 FA7D  A9 C0                LDA #$C0      
 FA7F  8D 4E E8             STA VIA_IER   
 FA82  85 EB                STA xEB       
 FA84  AD 28 02  iFA84      LDA x0228     
 FA87  85 EC                STA xEC       
 FA89  F0 09                BEQ iFA94     
 FA8B  A9 00                LDA #$00      
 FA8D  85 EB                STA xEB       
 FA8F  A9 40                LDA #$40      
 FA91  8D 4E E8             STA VIA_IER   
 FA94  A5 FE     iFA94      LDA xFE       
 FA96  85 FC                STA xFC       
 FA98  AD 74 02             LDA x0274     
 FA9B  0D 75 02             ORA x0275     
 FA9E  85 ED                STA xED       
 FAA0  4C 7E E6  iFAA0      JMP iE67E     

 FAA3  20 EC FB  iFAA3      JSR iFBEC     
 FAA6  8D 66 02             STA x0266     
 FAA9  A2 DA                LDX #$DA      
 FAAB  20 2E F9             JSR iF92E     
 FAAE  A5 FD                LDA xFD       
 FAB0  F0 03                BEQ iFAB5     
 FAB2  8D 73 02             STA x0273     
 FAB5  A9 0F     iFAB5      LDA #$0F      
 FAB7  2C 78 02             BIT x0278     
 FABA  10 18                BPL iFAD4     
 FABC  A5 EC                LDA xEC       
 FABE  D0 0C                BNE iFACC     
 FAC0  A6 FD                LDX xFD       
 FAC2  CA                   DEX           
 FAC3  D0 0C                BNE iFAD1     
 FAC5  A9 08                LDA #$08      
 FAC7  20 E5 FB             JSR SETST     
 FACA  D0 05                BNE iFAD1     
 FACC  A9 00     iFACC      LDA #$00      
 FACE  8D 78 02             STA x0278     
 FAD1  4C 7E E6  iFAD1      JMP iE67E     
 FAD4  70 37     iFAD4      BVS iFB0D     
 FAD6  D0 1A                BNE iFAF2     
 FAD8  A5 EC                LDA xEC       
 FADA  D0 F5                BNE iFAD1     
 FADC  A5 ED                LDA xED       
 FADE  D0 F1                BNE iFAD1     
 FAE0  AD 73 02             LDA x0273     
 FAE3  4A                   LSR           
 FAE4  A5 FC                LDA xFC       
 FAE6  30 03                BMI iFAEB     
 FAE8  90 1C                BCC iFB06     
 FAEA  18                   CLC           
 FAEB  B0 19     iFAEB      BCS iFB06     
 FAED  29 0F                AND #$0F      
 FAEF  8D 78 02             STA x0278     
 FAF2  CE 78 02  iFAF2      DEC x0278     
 FAF5  D0 DA                BNE iFAD1     
 FAF7  A9 40                LDA #$40      
 FAF9  8D 78 02             STA x0278     
 FAFC  20 DC FB             JSR iFBDC     
 FAFF  A9 00                LDA #$00      
 FB01  8D 79 02             STA x0279     
 FB04  F0 CB                BEQ iFAD1     
 FB06  A9 80     iFB06      LDA #$80      
 FB08  8D 78 02             STA x0278     
 FB0B  D0 C4                BNE iFAD1     
 FB0D  A5 EC     iFB0D      LDA xEC       
 FB0F  F0 0A                BEQ iFB1B     
 FB11  A9 04                LDA #$04      
 FB13  20 E5 FB             JSR SETST     
 FB16  A9 00                LDA #$00      
 FB18  4C A7 FB             JMP iFBA7     
 FB1B  20 90 FD  iFB1B      JSR iFD90     
 FB1E  D0 03                BNE iFB23     
 FB20  4C A5 FB             JMP iFBA5     
 FB23  AE 73 02  iFB23      LDX x0273     
 FB26  CA                   DEX           
 FB27  F0 31                BEQ iFB5A     
 FB29  AD 0B 02             LDA VERFL     
 FB2C  F0 0C                BEQ iFB3A     
 FB2E  A0 00                LDY #$00      
 FB30  A5 FC                LDA xFC       
 FB32  D1 E3                CMP (SADDR),Y 
 FB34  F0 04                BEQ iFB3A     
 FB36  A9 01                LDA #$01      
 FB38  85 ED                STA xED       
 FB3A  A5 ED     iFB3A      LDA xED       
 FB3C  F0 54                BEQ iFB92     
 FB3E  A2 3D                LDX #$3D      
 FB40  EC 76 02             CPX x0276     
 FB43  90 46                BCC iFB8B     
 FB45  AE 76 02             LDX x0276     
 FB48  A5 E4                LDA SADDR+1   
 FB4A  9D 01 01             STA STACK+1,X 
 FB4D  A5 E3                LDA SADDR     
 FB4F  9D 00 01             STA STACK,X   
 FB52  E8                   INX           
 FB53  E8                   INX           
 FB54  8E 76 02             STX x0276     
 FB57  4C 92 FB             JMP iFB92     
 FB5A  AE 77 02  iFB5A      LDX x0277     
 FB5D  EC 76 02             CPX x0276     
 FB60  F0 3B                BEQ iFB9D     
 FB62  A5 E3                LDA SADDR     
 FB64  DD 00 01             CMP STACK,X   
 FB67  D0 34                BNE iFB9D     
 FB69  A5 E4                LDA SADDR+1   
 FB6B  DD 01 01             CMP STACK+1,X 
 FB6E  D0 2D                BNE iFB9D     
 FB70  EE 77 02             INC x0277     
 FB73  EE 77 02             INC x0277     
 FB76  AD 0B 02             LDA VERFL     
 FB79  F0 0C                BEQ iFB87     
 FB7B  A5 FC                LDA xFC       
 FB7D  A0 00                LDY #$00      
 FB7F  D1 E3                CMP (SADDR),Y 
 FB81  F0 1A                BEQ iFB9D     
 FB83  A9 01                LDA #$01      
 FB85  85 ED                STA xED       
 FB87  A5 ED     iFB87      LDA xED       
 FB89  F0 07                BEQ iFB92     
 FB8B  A9 10     iFB8B      LDA #$10      
 FB8D  20 E5 FB             JSR SETST     
 FB90  D0 0B                BNE iFB9D     
 FB92  AD 0B 02  iFB92      LDA VERFL     
 FB95  D0 06                BNE iFB9D     
 FB97  A5 FC                LDA xFC       
 FB99  A0 00                LDY #$00      
 FB9B  91 E3                STA (SADDR),Y 
 FB9D  E6 E3     iFB9D      INC SADDR     
 FB9F  D0 38                BNE iFBD9     
 FBA1  E6 E4                INC SADDR+1   
 FBA3  D0 34                BNE iFBD9     
 FBA5  A9 80     iFBA5      LDA #$80      
 FBA7  8D 78 02  iFBA7      STA x0278     
 FBAA  A6 FD                LDX xFD       
 FBAC  CA                   DEX           
 FBAD  30 02                BMI iFBB1     
 FBAF  86 FD                STX xFD       
 FBB1  CE 73 02  iFBB1      DEC x0273     
 FBB4  F0 09                BEQ iFBBF     
 FBB6  AD 76 02             LDA x0276     
 FBB9  D0 1E                BNE iFBD9     
 FBBB  85 FD                STA xFD       
 FBBD  F0 1A                BEQ iFBD9     
 FBBF  20 FB FC  iFBBF      JSR CLEARIO   
 FBC2  20 DC FB             JSR iFBDC     
 FBC5  A0 00                LDY #$00      
 FBC7  8C 79 02             STY x0279     
 FBCA  20 7C FD             JSR iFD7C     
 FBCD  AD 79 02             LDA x0279     
 FBD0  45 FC                EOR xFC       
 FBD2  F0 05                BEQ iFBD9     
 FBD4  A9 20                LDA #$20      
 FBD6  20 E5 FB             JSR SETST     
 FBD9  4C 7E E6  iFBD9      JMP iE67E     

 FBDC  A5 F8     iFBDC      LDA LADDR+1   
 FBDE  85 E4                STA SADDR+1   
 FBE0  A5 F7                LDA LADDR     
 FBE2  85 E3                STA SADDR     
 FBE4  60                   RTS           

 FBE5  0D 0C 02  SETST      ORA STATUS    
 FBE8  8D 0C 02             STA STATUS    
 FBEB  60                   RTS           

 FBEC  A9 08     iFBEC      LDA #$08      
 FBEE  8D 6C 02             STA x026C     
 FBF1  A9 00                LDA #$00      
 FBF3  8D 6F 02             STA x026F     
 FBF6  8D 74 02             STA x0274     
 FBF9  8D 65 02             STA x0265     
 FBFC  8D 75 02             STA x0275     
 FBFF  60                   RTS           

 FC00  A5 FC     iFC00      LDA xFC       
 FC02  4A                   LSR           
 FC03  A9 60                LDA #$60      
 FC05  90 02                BCC iFC09     
 FC07  A9 B0     iFC07      LDA #$B0      
 FC09  A2 00     iFC09      LDX #$00      
 FC0B  8D 48 E8  iFC0B      STA VIA_T2CL  
 FC0E  8E 49 E8             STX VIA_T2CH  
 FC11  AD 40 E8             LDA VIA_DRB   
 FC14  49 08                EOR #$08      
 FC16  8D 40 E8             STA VIA_DRB   
 FC19  29 08                AND #$08      
 FC1B  60                   RTS           

 FC1C  38        iFC1C      SEC           
 FC1D  66 E4                ROR SADDR+1   
 FC1F  30 44                BMI iFC65     
 FC21  AD 74 02             LDA x0274     
 FC24  D0 13                BNE iFC39     
 FC26  A9 10                LDA #$10      
 FC28  A2 01                LDX #$01      
 FC2A  20 0B FC             JSR iFC0B     
 FC2D  D0 36                BNE iFC65     
 FC2F  EE 74 02             INC x0274     
 FC32  A5 E4                LDA SADDR+1   
 FC34  10 2F                BPL iFC65     
 FC36  4C BB FC             JMP iFCBB     
 FC39  AD 75 02  iFC39      LDA x0275     
 FC3C  D0 0A                BNE iFC48     
 FC3E  20 07 FC             JSR iFC07     
 FC41  D0 22                BNE iFC65     
 FC43  EE 75 02             INC x0275     
 FC46  D0 1D                BNE iFC65     
 FC48  20 00 FC  iFC48      JSR iFC00     
 FC4B  D0 18                BNE iFC65     
 FC4D  AD 6F 02             LDA x026F     
 FC50  49 01                EOR #$01      
 FC52  8D 6F 02             STA x026F     
 FC55  F0 11                BEQ iFC68     
 FC57  A5 FC                LDA xFC       
 FC59  49 01                EOR #$01      
 FC5B  85 FC                STA xFC       
 FC5D  29 01                AND #$01      
 FC5F  4D 65 02             EOR x0265     
 FC62  8D 65 02             STA x0265     
 FC65  4C 7E E6  iFC65      JMP iE67E     
 FC68  46 FC     iFC68      LSR xFC       
 FC6A  CE 6C 02             DEC x026C     
 FC6D  AD 6C 02             LDA x026C     
 FC70  F0 3F                BEQ iFCB1     
 FC72  10 F1                BPL iFC65     
 FC74  20 EC FB  iFC74      JSR iFBEC     
 FC77  58                   CLI           
 FC78  AD 70 02             LDA x0270     
 FC7B  F0 13                BEQ iFC90     
 FC7D  A2 00                LDX #$00      
 FC7F  86 F6                STX xF6       
 FC81  CE 70 02             DEC x0270     
 FC84  A6 FD                LDX xFD       
 FC86  E0 02                CPX #$02      
 FC88  D0 02                BNE iFC8C     
 FC8A  09 80                ORA #$80      
 FC8C  85 FC     iFC8C      STA xFC       
 FC8E  D0 D5                BNE iFC65     
 FC90  20 90 FD  iFC90      JSR iFD90     
 FC93  90 0A                BCC iFC9F     
 FC95  D0 85                BNE iFC1C     
 FC97  E6 E4                INC SADDR+1   
 FC99  A5 F6                LDA xF6       
 FC9B  85 FC                STA xFC       
 FC9D  B0 C6                BCS iFC65     
 FC9F  A0 00     iFC9F      LDY #$00      
 FCA1  B1 E3                LDA (SADDR),Y 
 FCA3  85 FC                STA xFC       
 FCA5  45 F6                EOR xF6       
 FCA7  85 F6                STA xF6       
 FCA9  E6 E3                INC SADDR     
 FCAB  D0 B8                BNE iFC65     
 FCAD  E6 E4                INC SADDR+1   
 FCAF  D0 B4                BNE iFC65     
 FCB1  AD 65 02  iFCB1      LDA x0265     
 FCB4  49 01                EOR #$01      
 FCB6  85 FC                STA xFC       
 FCB8  4C 7E E6  iFCB8      JMP iE67E     

 FCBB  C6 FD     iFCBB      DEC xFD       
 FCBD  D0 03                BNE iFCC2     
 FCBF  20 ED FF             JSR iFFED     
 FCC2  A9 50     iFCC2      LDA #$50      
 FCC4  8D 73 02             STA x0273     
 FCC7  A2 08                LDX #$08      
 FCC9  78                   SEI           
 FCCA  20 1B FD             JSR SETIRQV   
 FCCD  D0 E9                BNE iFCB8     
 FCCF  A9 78                LDA #$78      
 FCD1  20 09 FC             JSR iFC09     
 FCD4  D0 E2                BNE iFCB8     
 FCD6  CE 73 02             DEC x0273     
 FCD9  D0 DD                BNE iFCB8     
 FCDB  20 EC FB             JSR iFBEC     
 FCDE  CE 79 02             DEC x0279     
 FCE1  10 D5                BPL iFCB8     
 FCE3  A2 0A                LDX #$0A      
 FCE5  20 1B FD             JSR SETIRQV   
 FCE8  58                   CLI           
 FCE9  EE 79 02             INC x0279     
 FCEC  A5 FD                LDA xFD       
 FCEE  F0 26                BEQ iFD16     
 FCF0  20 DC FB             JSR iFBDC     
 FCF3  A2 09                LDX #$09      
 FCF5  8E 70 02             STX x0270     
 FCF8  4C 74 FC             JMP iFC74     
 FCFB  08        CLEARIO    PHP           
 FCFC  78                   SEI           
 FCFD  20 ED FF             JSR iFFED      ; Cassette #1/2 Motor ?
 FD00  A9 7F                LDA #$7F      
 FD02  8D 4E E8             STA VIA_IER    ; clear all interrupts
 FD05  A9 3C                LDA #$3C      
 FD07  8D 11 E8             STA PIA1_CRA   ; EOI off (unblank screen on old models!)
 FD0A  A9 3D                LDA #$3D      
 FD0C  8D 13 E8             STA PIA1_CRB   ; enable PIA1 CA1 IRQ (screen retrace)
 FD0F  A2 0C                LDX #$0C      
 FD11  20 1B FD             JSR SETIRQV    ; set std IRQV
 FD14  28                   PLP           
 FD15  60                   RTS           
 FD16  20 FB FC  iFD16      JSR CLEARIO   
 FD19  F0 9D                BEQ iFCB8     
 FD1B  BD 28 FD  SETIRQV    LDA xFD28,X   
 FD1E  8D 19 02             STA IRQV      
 FD21  BD 29 FD             LDA xFD29,X   
 FD24  8D 1A 02             STA IRQV+1    
 FD27  60                   RTS           

 FD28  xFD28      .byte $C2                                     ;B
 FD29  xFD29      .byte $FD, $80, $FE, $00, $00, $9E, $FE, $CF  ;.......O
 FD31             .byte $FC, $21, $FC, $85, $E6, $5F, $F9       ;.!..._.

 FD38  A2 FF     RESET      LDX #$FF      
 FD3A  9A                   TXS           
 FD3B  D8                   CLD           
 FD3C  20 E1 E1             JSR iE1E1     
 FD3F  AD 10 E8             LDA PIA1_PA   
 FD42  10 57                BPL iFD9B     
 FD44  58                   CLI           
 FD45  4C D2 E0             JMP iE0D2     
 FD48  84 00     iFD48      STY USR       
 FD4A  84 01                STY x01       
 FD4C  A0 03                LDY #$03      
 FD4E  98        iFD4E      TYA           
 FD4F  18                   CLC           
 FD50  65 01                ADC x01       
 FD52  45 02                EOR x02       
 FD54  91 00                STA (USR),Y   
 FD56  C8                   INY           
 FD57  D0 F5                BNE iFD4E     
 FD59  E6 01                INC x01       
 FD5B  E4 01                CPX x01       
 FD5D  D0 EF                BNE iFD4E     
 FD5F  84 00                STY USR       
 FD61  84 01                STY x01       
 FD63  A0 03                LDY #$03      
 FD65  98        iFD65      TYA           
 FD66  18                   CLC           
 FD67  65 01                ADC x01       
 FD69  45 02                EOR x02       
 FD6B  D1 00                CMP (USR),Y   
; fd6d: Endless loop.
 FD6D  D0 FE     iFD6D      BNE iFD6D     
 FD6F  C8                   INY           
 FD70  D0 F3                BNE iFD65     
 FD72  E6 01                INC x01       
 FD74  E4 01                CPX x01       
 FD76  D0 ED                BNE iFD65     
 FD78  4C 2D FE             JMP iFE2D     
 FD7B             .byte $00                                     ;.

 FD7C  B1 E3     iFD7C      LDA (SADDR),Y 
 FD7E  4D 79 02             EOR x0279     
 FD81  8D 79 02             STA x0279     
 FD84  E6 E3                INC SADDR     
 FD86  D0 02                BNE iFD8A     
 FD88  E6 E4                INC SADDR+1   
 FD8A  20 90 FD  iFD8A      JSR iFD90     
 FD8D  D0 ED                BNE iFD7C     
 FD8F  60                   RTS           
 FD90  A5 E4     iFD90      LDA SADDR+1   
 FD92  C5 E6                CMP EADDR+1   
 FD94  D0 04                BNE iFD9A     
 FD96  A5 E3                LDA SADDR     
 FD98  C5 E5                CMP EADDR     
 FD9A  60        iFD9A      RTS           
 FD9B  8E 11 E8  iFD9B      STX PIA1_CRA  
 FD9E  8E 10 E8             STX PIA1_PA   
 FDA1  A9 04                LDA #$04      
 FDA3  8D 11 E8             STA PIA1_CRA  
 FDA6  8D 10 E8             STA PIA1_PA   
 FDA9  20 1B FD             JSR SETIRQV   
 FDAC  CA                   DEX           
 FDAD  8E 44 E8             STX VIA_T1CL  
 FDB0  2C 12 E8             BIT PIA1_PB   
 FDB3  2C 13 E8  iFDB3      BIT PIA1_CRB  
 FDB6  10 FB                BPL iFDB3     
 FDB8  8E 45 E8             STX VIA_T1CH  
 FDBB  2C 12 E8             BIT PIA1_PB   
 FDBE  58                   CLI           
 FDBF  4C BF FD  iFDBF      JMP iFDBF     

 FDC2  AD 44 E8             LDA VIA_T1CL  
 FDC5  AC 45 E8             LDY VIA_T1CH  
 FDC8  2C 13 E8             BIT PIA1_CRB  
; fdcb: Endless loop.
 FDCB  10 FE     iFDCB      BPL iFDCB     
 FDCD  29 C0                AND #$C0      
 FDCF  C9 C0                CMP #$C0      
; fdd1: Endless loop.
 FDD1  D0 FE     iFDD1      BNE iFDD1     
 FDD3  C0 BE                CPY #$BE      
; fdd5: Endless loop.
 FDD5  D0 FE     iFDD5      BNE iFDD5     
 FDD7  CE 13 E8             DEC PIA1_CRB  
 FDDA  2C 12 E8             BIT PIA1_PB   
 FDDD  A9 00                LDA #$00      
 FDDF  8D 79 02             STA x0279     
 FDE2  85 E3                STA SADDR     
 FDE4  85 E5                STA EADDR     
 FDE6  A8                   TAY           
 FDE7  A2 C0                LDX #$C0      
 FDE9  86 E4                STX SADDR+1   
 FDEB  A2 E8                LDX #$E8      
 FDED  86 E6                STX EADDR+1   
 FDEF  20 7C FD             JSR iFD7C     
 FDF2  A2 F0                LDX #$F0      
 FDF4  86 E4                STX SADDR+1   
 FDF6  84 E6                STY EADDR+1   
 FDF8  20 7C FD             JSR iFD7C     
 FDFB  CC 79 02             CPY x0279     
; fdfe: Endless loop.
 FDFE  D0 FE     iFDFE      BNE iFDFE     
 FE00  A0 FF                LDY #$FF      
 FE02  84 02                STY x02       
 FE04  C8                   INY           
 FE05  84 00                STY USR       
 FE07  A9 10                LDA #$10      
 FE09  85 01                STA x01       
 FE0B  A2 20                LDX #$20      
 FE0D  B1 00     iFE0D      LDA (USR),Y   
 FE0F  45 02                EOR x02       
 FE11  91 00                STA (USR),Y   
 FE13  D1 00                CMP (USR),Y   
 FE15  F0 01                BEQ iFE18     
 FE17  C8                   INY           
 FE18  E6 01     iFE18      INC x01       
 FE1A  E4 01                CPX x01       
 FE1C  D0 EF                BNE iFE0D     
 FE1E  C0 00                CPY #$00      
 FE20  F0 08                BEQ iFE2A     
 FE22  C0 10                CPY #$10      
; fe24: Endless loop.
 FE24  D0 FE     iFE24      BNE iFE24     
 FE26  A2 10                LDX #$10      
 FE28  A0 00                LDY #$00      
 FE2A  4C 48 FD  iFE2A      JMP iFD48     

 FE2D  E6 02     iFE2D      INC x02       
 FE2F  C4 02                CPY x02       
 FE31  F0 F7                BEQ iFE2A     
 FE33  8C 11 E8             STY PIA1_CRA  
 FE36  A9 0F                LDA #$0F      
 FE38  8D 10 E8             STA PIA1_PA   
 FE3B  A9 3C                LDA #$3C      
 FE3D  8D 11 E8             STA PIA1_CRA  
 FE40  A9 FD                LDA #$FD      
 FE42  A2 09                LDX #$09      
 FE44  8E 10 E8  iFE44      STX PIA1_PA   
 FE47  CD 12 E8             CMP PIA1_PB   
; fe4a: Endless loop.
 FE4A  D0 FE     iFE4A      BNE iFE4A     
 FE4C  4A                   LSR           
 FE4D  90 02                BCC iFE51     
 FE4F  09 80                ORA #$80      
 FE51  CA        iFE51      DEX           
 FE52  10 F0                BPL iFE44     
 FE54  8E 10 E8             STX PIA1_PA   
 FE57  EC 12 E8             CPX PIA1_PB   
; fe5a: Endless loop.
 FE5A  D0 FE     iFE5A      BNE iFE5A     
 FE5C  8C 11 E8             STY PIA1_CRA  
 FE5F  8C 10 E8             STY PIA1_PA   
 FE62  A9 3C                LDA #$3C      
 FE64  8D 11 E8             STA PIA1_CRA  
 FE67  A2 02                LDX #$02      
 FE69  20 1B FD             JSR SETIRQV   
 FE6C  A2 F7                LDX #$F7      
 FE6E  8E 40 E8             STX VIA_DRB   
 FE71  EE 11 E8             INC PIA1_CRA  
 FE74  2C 10 E8             BIT PIA1_PA   
 FE77  58                   CLI           
 FE78  0E 40 E8             ASL VIA_DRB   
 FE7B  4E 40 E8             LSR VIA_DRB   
; fe7e: Endless loop.
 FE7E  D0 FE     iFE7E      BNE iFE7E     
 FE80  CE 11 E8             DEC PIA1_CRA  
; fe83: Endless loop.
 FE83  10 FE     iFE83      BPL iFE83     
 FE85  2C 10 E8             BIT PIA1_PA   
 FE88  A2 06                LDX #$06      
 FE8A  20 1B FD             JSR SETIRQV   
 FE8D  2C 40 E8             BIT VIA_DRB   
 FE90  A9 90                LDA #$90      
 FE92  8D 4E E8             STA VIA_IER   
 FE95  58                   CLI           
 FE96  0E 40 E8             ASL VIA_DRB   
 FE99  4E 40 E8             LSR VIA_DRB   
; fe9c: Endless loop.
 FE9C  D0 FE     iFE9C      BNE iFE9C     
 FE9E  2C 4D E8             BIT VIA_IFR   
; fea1: Endless loop.
 FEA1  10 FE     iFEA1      BPL iFEA1     
 FEA3  A9 7F                LDA #$7F      
 FEA5  8D 4E E8             STA VIA_IER   
 FEA8  2C 40 E8             BIT VIA_DRB   
 FEAB  4C C3 FE             JMP iFEC3     

 FEAE  2C 41 E8  iFEAE      BIT VIA_DRA   
 FEB1  70 FB                BVS iFEAE     
 FEB3  2C 4F E8  iFEB3      BIT VIA_ANH   
 FEB6  50 FB                BVC iFEB3     
 FEB8  2C 4F E8  iFEB8      BIT VIA_ANH   
 FEBB  70 FB                BVS iFEB8     
 FEBD  AD 4D E8             LDA VIA_IFR   
 FEC0  29 02                AND #$02      
 FEC2  60                   RTS           

 FEC3  A2 0A     iFEC3      LDX #$0A      
 FEC5  2C 41 E8  iFEC5      BIT VIA_DRA   
 FEC8  10 FB                BPL iFEC5     
 FECA  2C 41 E8  iFECA      BIT VIA_DRA   
 FECD  30 FB                BMI iFECA     
 FECF  CA        iFECF      DEX           
 FED0  D0 FD                BNE iFECF     
 FED2  2C 41 E8             BIT VIA_DRA   
 FED5  30 02                BMI iFED9     
; fed7: Endless loop.
 FED7  10 FE     iFED7      BPL iFED7     
 FED9  EE FF FF  iFED9      INC CPUIRQV+1 
 FEDC  2C 41 E8             BIT VIA_DRA   
; fedf: Endless loop.
 FEDF  30 FE     iFEDF      BMI iFEDF     
 FEE1  2C 41 E8  iFEE1      BIT VIA_DRA   
 FEE4  50 FB                BVC iFEE1     
 FEE6  2C 41 E8  iFEE6      BIT VIA_DRA   
 FEE9  70 FB                BVS iFEE6     
 FEEB  2C 41 E8  iFEEB      BIT VIA_DRA   
 FEEE  50 FB                BVC iFEEB     
 FEF0  2C 41 E8  iFEF0      BIT VIA_DRA   
 FEF3  70 FB                BVS iFEF0     
 FEF5  20 F0 E1             JSR iE1F0     
 FEF8  20 AE FE             JSR iFEAE     
; fefb: Endless loop.
 FEFB  D0 FE     iFEFB      BNE iFEFB     
 FEFD  A0 00                LDY #$00      
 FEFF  A9 A0     iFEFF      LDA #$A0      
 FF01  91 E0                STA (xE0),Y   
 FF03  20 AE FE             JSR iFEAE     
; ff06: Endless loop.
 FF06  F0 FE     iFF06      BEQ iFF06     
 FF08  A9 20                LDA #$20      
 FF0A  91 E0                STA (xE0),Y   
 FF0C  20 AE FE             JSR iFEAE     
; ff0f: Endless loop.
 FF0F  D0 FE     iFF0F      BNE iFF0F     
 FF11  C0 E7                CPY #$E7      
 FF13  D0 06                BNE iFF1B     
 FF15  A9 83                LDA #$83      
 FF17  C5 E1                CMP xE1       
 FF19  F0 09                BEQ iFF24     
 FF1B  C8        iFF1B      INY           
 FF1C  D0 E1                BNE iFEFF     
 FF1E  E6 E1                INC xE1       
 FF20  D0 DD                BNE iFEFF     
; ff22: Endless loop.
 FF22  F0 FE     iFF22      BEQ iFF22     
 FF24  98        iFF24      TYA           
 FF25  91 E0                STA (xE0),Y   
 FF27  88                   DEY           
 FF28  C0 FF                CPY #$FF      
 FF2A  D0 F8                BNE iFF24     
 FF2C  C6 E1                DEC xE1       
 FF2E  A9 7F                LDA #$7F      
 FF30  C5 E1                CMP xE1       
 FF32  D0 F0                BNE iFF24     
 FF34  A9 34                LDA #$34      
 FF36  8D 11 E8  KINCTIME   STA PIA1_CRA  
 FF39  20 AE FE             JSR iFEAE     
; ff3c: Endless loop.
 FF3C  D0 FE     iFF3C      BNE iFF3C     
 FF3E  A9 3C                LDA #$3C      
 FF40  8D 11 E8             STA PIA1_CRA  
 FF43  A6 00                LDX USR       
 FF45  8E 22 E8  iFF45      STX PIA2_PB   
 FF48  EC 20 E8             CPX PIA2_PA   
; ff4b: Endless loop.
 FF4B  D0 FE     iFF4B      BNE iFF4B     
 FF4D  E8                   INX           
 FF4E  D0 F5                BNE iFF45     
 FF50  2C 20 E8             BIT PIA2_PA   
 FF53  A9 FB                LDA #$FB      
 FF55  8D 40 E8             STA VIA_DRB   
 FF58  2C 21 E8             BIT PIA2_CRA  
; ff5b: Endless loop.
 FF5B  10 FE     iFF5B      BPL iFF5B     
 FF5D  2C 40 E8             BIT VIA_DRB   
; ff60: Endless loop.
 FF60  50 FE     iFF60      BVC iFF60     
 FF62  4A                   LSR           
 FF63  8D 40 E8             STA VIA_DRB   
 FF66  2C 40 E8             BIT VIA_DRB   
; ff69: Endless loop.
 FF69  70 FE     iFF69      BVS iFF69     
; ff6b: Endless loop.
 FF6B  10 FE     iFF6B      BPL iFF6B     
 FF6D  A9 34                LDA #$34      
 FF6F  8D 23 E8             STA PIA2_CRB  
 FF72  AD 40 E8             LDA VIA_DRB   
; ff75: Endless loop.
 FF75  30 FE     iFF75      BMI iFF75     
 FF77  4A                   LSR           
; ff78: Endless loop.
 FF78  90 FE     iFF78      BCC iFF78     
 FF7A  A9 34                LDA #$34      
 FF7C  8D 21 E8             STA PIA2_CRA  
 FF7F  4E 40 E8             LSR VIA_DRB   
; ff82: Endless loop.
 FF82  B0 FE     iFF82      BCS iFF82     
 FF84  A9 02                LDA #$02      
 FF86  8D 43 E8             STA VIA_DDRA  
 FF89  8D 41 E8             STA VIA_DRA   
 FF8C  2C 10 E8             BIT PIA1_PA   
; ff8f: Endless loop.
 FF8F  50 FE     iFF8F      BVC iFF8F     
 FF91  8E 41 E8             STX VIA_DRA   
 FF94  2C 10 E8             BIT PIA1_PA   
 FF97  50 05                BVC iFF9E     
 FF99  EA                   NOP           
 FF9A  EA                   NOP           
 FF9B  4C 9B FF  iFF9B      JMP iFF9B     
 FF9E  8E 11 E8  iFF9E      STX PIA1_CRA  
 FFA1  A0 0F                LDY #$0F      
 FFA3  8C 10 E8             STY PIA1_PA   
 FFA6  0A                   ASL           
 FFA7  8D 11 E8             STA PIA1_CRA  
 FFAA  49 FF                EOR #$FF      
 FFAC  8D 10 E8             STA PIA1_PA   
 FFAF  4C AF FF  iFFAF      JMP iFFAF     

 FFB2             .byte $61, $00, $00, $00, $00, $00, $00, $00  ;A.......
 FFBA             .byte $00, $00, $00, $00, $00, $00            ;......

 FFC0  4C 2A F5  OPEN       JMP KOPEN      ; Do Kernal Open

 FFC3  4C C8 F2  CLOSE      JMP KCLOSE     ; Do Close 

 FFC6  4C 8B F7  CHKIN      JMP KCHKIN    

 FFC9  4C DC F7  CKOUT      JMP KCKOUT    

 FFCC  4C 7D F2  CLRCH      JMP KCLRCH     ; Do CLRCH, clear I/O 

 FFCF  4C DF F1  BASIN      JMP KBASIN     ; Do BASIN call

 FFD2  4C 30 F2  BSOUT      JMP KBSOUT     ; Do kernel output

 FFD5  4C 46 F3  LOAD       JMP KLOAD     

 FFD8  4C 9E F6  SAVE       JMP KSAVE     

 FFDB  4C BB F4  VERIFY     JMP KVERIFY   

 FFDE  4C 95 F6  SYS        JMP KSYS      

 FFE1  4C 39 F3  GETSTP     JMP IECABORT  

 FFE4  4C CC F1  GET        JMP KGET       ; Do GET call

 FFE7  4C A4 F2  CLALL      JMP KCLALL    

 FFEA  4C 36 F7  INCTIME    JMP iF736     

 FFED  A9 3C     iFFED      LDA #$3C       ; Cassette #1 Motor ?
 FFEF  8D 13 E8             STA PIA1_CRB  
 FFF2  AD 40 E8             LDA VIA_DRB    ; Cassette #2 Motor ?
 FFF5  09 10                ORA #$10      
 FFF7  8D 40 E8             STA VIA_DRB   
 FFFA  60        CPUNMIV    RTS           

 FFFB  CA                   DEX           

 FFFC  CPURESV    .word RESET   
 FFFE  CPUIRQV    .word IRQ     
xFFFF      = * - 1 ;   referenced;



; Misassembly source 4.07a 21 Feb 1998   Generated  Sun Feb 22 17:16:33 MET 1998



Formatted to HTML by recomment 4.07a 21 Feb 1998 reassembler.

Misassembled from rom-1.bin by fachat@physik.tu-chemnitz.de using header file petrom-1.hdr in a 4-pass run at Sun Feb 22 17:16:33 MET 1998 .

 

Letzte Änderung: 2019-01-04 10:01:57
  Rubrik:  CBM PET
Rubriken-Übersicht
 5 Besucher online 

Valid XHTML 1.0 Transitional Valid CSS!