; [6510 Dasm v2.1b ©2004-05 Luigi Di Fraia] ; Disassembled text of file: c:\documents and settings\brian\desktop\term.c1 v2.prg *=$C000 C000 A9 00 LDA #$00 C002 2C A9 03 BIT $03A9 C005 2C A9 06 BIT $06A9 C008 2C A9 09 BIT $09A9 C00B 2C A9 0C BIT $0CA9 C00E 2C A9 0F BIT $0FA9 C011 EA NOP C012 4C 1B C0 JMP $C01B C015 4C A1 C5 JMP $C5A1 C018 4C 95 C6 JMP $C695 C01B 85 62 STA $62 C01D BA TSX C01E 8E 1C C8 STX $C81C C021 A9 33 LDA #$33 C023 18 CLC C024 65 62 ADC $62 C026 8D 31 C0 STA $C031 C029 A9 C0 LDA #$C0 C02B 69 00 ADC #$00 C02D 8D 32 C0 STA $C032 C030 4C 33 C0 JMP $C033 C033 4C 57 C0 JMP $C057 C036 4C 0E C4 JMP $C40E C039 4C D6 C3 JMP $C3D6 C03C 4C D4 C4 JMP $C4D4 C03F 4C 1D C5 JMP $C51D C042 4C B0 C5 JMP $C5B0 C045 4C 95 C6 JMP $C695 C048 47 C049 4F C04A 4F C04B 42 C04C 41 44 EOR ($44,X) C04E 41 43 EOR ($43,X) C050 4B C051 53 C052 2F C053 42 C054 53 C055 59 4E 8D EOR $8D4E,Y C058 05 C8 ORA $C8 C05A A9 00 LDA #$00 C05C 8D 00 C8 STA $C800 C05F 8D 01 C8 STA $C801 C062 8D 02 C8 STA $C802 C065 A9 00 LDA #$00 C067 8D 06 C8 STA $C806 C06A 8D 07 C8 STA $C807 C06D 20 81 C6 JSR $C681 C070 20 F8 C0 JSR $C0F8 C073 A5 96 LDA $96 C075 D0 58 BNE $C0CF C077 AD 01 C8 LDA $C801 C07A 8D 00 C8 STA $C800 C07D AD 02 C8 LDA $C802 C080 8D 01 C8 STA $C801 C083 AD 00 02 LDA $0200 C086 8D 02 C8 STA $C802 C089 A9 00 LDA #$00 C08B 8D 04 C8 STA $C804 C08E A9 01 LDA #$01 C090 8D 03 C8 STA $C803 C093 AD 05 C8 LDA $C805 C096 2C 03 C8 BIT $C803 C099 F0 16 BEQ $C0B1 C09B AC 04 C8 LDY $C804 C09E A2 00 LDX #$00 C0A0 BD 00 C8 LDA $C800,X C0A3 D9 48 C0 CMP $C048,Y C0A6 D0 09 BNE $C0B1 C0A8 C8 INY C0A9 E8 INX C0AA E0 03 CPX #$03 C0AC D0 F2 BNE $C0A0 C0AE 4C C4 C0 JMP $C0C4 C0B1 0E 03 C8 ASL $C803 C0B4 AD 04 C8 LDA $C804 C0B7 18 CLC C0B8 69 03 ADC #$03 C0BA 8D 04 C8 STA $C804 C0BD C9 0F CMP #$0F C0BF D0 D2 BNE $C093 C0C1 4C 65 C0 JMP $C065 C0C4 A9 FF LDA #$FF C0C6 8D 06 C8 STA $C806 C0C9 8D 07 C8 STA $C807 C0CC 4C 6D C0 JMP $C06D C0CF EE 06 C8 INC $C806 C0D2 D0 03 BNE $C0D7 C0D4 EE 07 C8 INC $C807 C0D7 AD 07 C8 LDA $C807 C0DA 0D 06 C8 ORA $C806 C0DD F0 13 BEQ $C0F2 C0DF AD 06 C8 LDA $C806 C0E2 C9 07 CMP #$07 C0E4 AD 07 C8 LDA $C807 C0E7 C9 14 CMP #$14 C0E9 90 82 BCC $C06D C0EB A9 01 LDA #$01 C0ED 85 96 STA $96 C0EF 4C 64 C5 JMP $C564 C0F2 A9 00 LDA #$00 C0F4 85 96 STA $96 C0F6 60 RTS C0F7 EA NOP C0F8 98 TYA C0F9 48 PHA C0FA AD 9B 02 LDA $029B C0FD CD 9C 02 CMP $029C C100 F0 16 BEQ $C118 C102 AC 9C 02 LDY $029C C105 B1 F7 LDA ($F7),Y C107 48 PHA C108 EE 9C 02 INC $029C C10B A9 00 LDA #$00 C10D 85 96 STA $96 C10F 68 PLA C110 8D 00 02 STA $0200 C113 68 PLA C114 A8 TAY C115 4C 23 C1 JMP $C123 C118 A9 02 LDA #$02 C11A 85 96 STA $96 C11C A9 00 LDA #$00 C11E 8D 00 02 STA $0200 C121 68 PLA C122 A8 TAY C123 48 PHA C124 A9 03 LDA #$03 C126 85 BA STA $BA C128 68 PLA C129 60 RTS C12A A2 05 LDX #$05 C12C 20 C9 FF JSR $FFC9 ; CHKOUT: define an output channel C12F A2 00 LDX #$00 C131 B9 48 C0 LDA $C048,Y C134 20 D2 FF JSR $FFD2 ; CHROUT: output a character C137 C8 INY C138 E8 INX C139 E0 03 CPX #$03 C13B D0 F4 BNE $C131 C13D 4C CC FF JMP $FFCC ; CLRCHN: restore default devices C140 8D 08 C8 STA $C808 C143 A9 00 LDA #$00 C145 8D 0B C8 STA $C80B C148 A9 02 LDA #$02 C14A 85 62 STA $62 C14C AC 08 C8 LDY $C808 C14F 20 2A C1 JSR $C12A C152 A9 04 LDA #$04 C154 20 57 C0 JSR $C057 C157 A5 96 LDA $96 C159 F0 07 BEQ $C162 C15B C6 62 DEC $62 C15D D0 F3 BNE $C152 C15F 4C 48 C1 JMP $C148 C162 A0 09 LDY #$09 C164 20 2A C1 JSR $C12A C167 AD 0D C8 LDA $C80D C16A F0 05 BEQ $C171 C16C AD 08 C8 LDA $C808 C16F F0 1F BEQ $C190 C171 AD 04 C9 LDA $C904 C174 8D 09 C8 STA $C809 C177 8D 17 C8 STA $C817 C17A 20 85 C2 JSR $C285 C17D A5 96 LDA $96 C17F C9 01 CMP #$01 C181 F0 0C BEQ $C18F C183 C9 02 CMP #$02 C185 F0 DB BEQ $C162 C187 C9 04 CMP #$04 C189 F0 04 BEQ $C18F C18B C9 08 CMP #$08 C18D F0 D3 BEQ $C162 C18F 60 RTS C190 A9 10 LDA #$10 C192 20 57 C0 JSR $C057 C195 A5 96 LDA $96 C197 D0 C9 BNE $C162 C199 A9 0A LDA #$0A C19B 8D 09 C8 STA $C809 C19E A0 0C LDY #$0C C1A0 20 2A C1 JSR $C12A C1A3 A9 08 LDA #$08 C1A5 20 57 C0 JSR $C057 C1A8 A5 96 LDA $96 C1AA F0 05 BEQ $C1B1 C1AC CE 09 C8 DEC $C809 C1AF D0 ED BNE $C19E C1B1 60 RTS C1B2 A9 01 LDA #$01 C1B4 8D 0B C8 STA $C80B C1B7 AD 1E C8 LDA $C81E C1BA F0 05 BEQ $C1C1 C1BC A0 00 LDY #$00 C1BE 20 2A C1 JSR $C12A C1C1 A9 0B LDA #$0B C1C3 20 57 C0 JSR $C057 C1C6 A5 96 LDA $96 C1C8 D0 ED BNE $C1B7 C1CA A9 00 LDA #$00 C1CC 8D 1E C8 STA $C81E C1CF AD 04 C8 LDA $C804 C1D2 C9 00 CMP #$00 C1D4 D0 35 BNE $C20B C1D6 AD 0D C8 LDA $C80D C1D9 D0 68 BNE $C243 C1DB EE 19 C8 INC $C819 C1DE D0 03 BNE $C1E3 C1E0 EE 1A C8 INC $C81A C1E3 20 6A C3 JSR $C36A C1E6 A0 05 LDY #$05 C1E8 C8 INY C1E9 B1 64 LDA ($64),Y C1EB C9 FF CMP #$FF C1ED D0 16 BNE $C205 C1EF A9 01 LDA #$01 C1F1 8D 0D C8 STA $C80D C1F4 AD 16 C8 LDA $C816 C1F7 49 01 EOR #$01 C1F9 8D 16 C8 STA $C816 C1FC 20 6A C3 JSR $C36A C1FF 20 4A C3 JSR $C34A C202 4C 08 C2 JMP $C208 C205 20 05 C3 JSR $C305 C208 A9 2D LDA #$2D C20A 2C A9 3A BIT $3AA9 C20D 20 8C C5 JSR $C58C C210 A0 06 LDY #$06 C212 20 2A C1 JSR $C12A C215 A9 08 LDA #$08 C217 20 57 C0 JSR $C057 C21A A5 96 LDA $96 C21C D0 EA BNE $C208 C21E 20 6A C3 JSR $C36A C221 A0 04 LDY #$04 C223 B1 64 LDA ($64),Y C225 8D 09 C8 STA $C809 C228 20 77 C3 JSR $C377 C22B A2 05 LDX #$05 C22D 20 C9 FF JSR $FFC9 ; CHKOUT: define an output channel C230 A0 00 LDY #$00 C232 B1 64 LDA ($64),Y C234 20 D2 FF JSR $FFD2 ; CHROUT: output a character C237 C8 INY C238 CC 09 C8 CPY $C809 C23B D0 F5 BNE $C232 C23D 20 CC FF JSR $FFCC ; CLRCHN: restore default devices C240 A9 00 LDA #$00 C242 60 RTS C243 A9 2A LDA #$2A C245 20 8C C5 JSR $C58C C248 A0 06 LDY #$06 C24A 20 2A C1 JSR $C12A C24D A9 08 LDA #$08 C24F 20 57 C0 JSR $C057 C252 A5 96 LDA $96 C254 D0 ED BNE $C243 C256 A9 0A LDA #$0A C258 8D 09 C8 STA $C809 C25B A0 0C LDY #$0C C25D 20 2A C1 JSR $C12A C260 A9 10 LDA #$10 C262 20 57 C0 JSR $C057 C265 A5 96 LDA $96 C267 F0 05 BEQ $C26E C269 CE 09 C8 DEC $C809 C26C D0 ED BNE $C25B C26E A9 03 LDA #$03 C270 8D 09 C8 STA $C809 C273 A0 09 LDY #$09 C275 20 2A C1 JSR $C12A C278 A9 00 LDA #$00 C27A 20 57 C0 JSR $C057 C27D CE 09 C8 DEC $C809 C280 D0 F1 BNE $C273 C282 A9 01 LDA #$01 C284 60 RTS C285 A0 00 LDY #$00 C287 A9 00 LDA #$00 C289 8D 06 C8 STA $C806 C28C 8D 07 C8 STA $C807 C28F 20 81 C6 JSR $C681 C292 20 F8 C0 JSR $C0F8 C295 A5 96 LDA $96 C297 D0 3C BNE $C2D5 C299 AD 00 02 LDA $0200 C29C 99 00 C9 STA $C900,Y C29F C0 03 CPY #$03 C2A1 B0 1C BCS $C2BF C2A3 99 00 C8 STA $C800,Y C2A6 C0 02 CPY #$02 C2A8 D0 15 BNE $C2BF C2AA AD 00 C8 LDA $C800 C2AD C9 41 CMP #$41 C2AF D0 0E BNE $C2BF C2B1 AD 01 C8 LDA $C801 C2B4 C9 43 CMP #$43 C2B6 D0 07 BNE $C2BF C2B8 AD 02 C8 LDA $C802 C2BB C9 4B CMP #$4B C2BD F0 0B BEQ $C2CA C2BF C8 INY C2C0 CC 09 C8 CPY $C809 C2C3 D0 C2 BNE $C287 C2C5 A9 01 LDA #$01 C2C7 85 96 STA $96 C2C9 60 RTS C2CA A9 FF LDA #$FF C2CC 8D 06 C8 STA $C806 C2CF 8D 07 C8 STA $C807 C2D2 4C 8F C2 JMP $C28F C2D5 EE 06 C8 INC $C806 C2D8 D0 03 BNE $C2DD C2DA EE 07 C8 INC $C807 C2DD AD 06 C8 LDA $C806 C2E0 0D 07 C8 ORA $C807 C2E3 F0 1B BEQ $C300 C2E5 AD 06 C8 LDA $C806 C2E8 C9 06 CMP #$06 C2EA AD 07 C8 LDA $C807 C2ED C9 10 CMP #$10 C2EF D0 9E BNE $C28F C2F1 A9 02 LDA #$02 C2F3 85 96 STA $96 C2F5 C0 00 CPY #$00 C2F7 F0 04 BEQ $C2FD C2F9 A9 04 LDA #$04 C2FB 85 96 STA $96 C2FD 4C 64 C5 JMP $C564 C300 A9 08 LDA #$08 C302 85 96 STA $96 C304 60 RTS C305 AD 16 C8 LDA $C816 C308 49 01 EOR #$01 C30A 8D 16 C8 STA $C816 C30D 20 6A C3 JSR $C36A C310 A0 05 LDY #$05 C312 AD 19 C8 LDA $C819 C315 18 CLC C316 69 01 ADC #$01 C318 91 64 STA ($64),Y C31A C8 INY C31B AD 1A C8 LDA $C81A C31E 69 00 ADC #$00 C320 91 64 STA ($64),Y C322 A2 02 LDX #$02 C324 20 C6 FF JSR $FFC6 ; CHKIN : define an input channel C327 A0 07 LDY #$07 C329 20 CF FF JSR $FFCF ; CHRIN : input a character C32C 91 64 STA ($64),Y C32E C8 INY C32F 20 B7 FF JSR $FFB7 ; READST: read I/O status word C332 D0 0A BNE $C33E C334 CC 18 C8 CPY $C818 C337 D0 F0 BNE $C329 C339 98 TYA C33A 48 PHA C33B 4C 4B C3 JMP $C34B C33E 98 TYA C33F 48 PHA C340 A0 05 LDY #$05 C342 C8 INY C343 A9 FF LDA #$FF C345 91 64 STA ($64),Y C347 4C 4B C3 JMP $C34B C34A 48 PHA C34B 20 CC FF JSR $FFCC ; CLRCHN: restore default devices C34E 20 A1 C5 JSR $C5A1 C351 20 7F C5 JSR $C57F C354 20 A1 C5 JSR $C5A1 C357 A0 04 LDY #$04 C359 B1 64 LDA ($64),Y C35B 8D 09 C8 STA $C809 C35E 20 77 C3 JSR $C377 C361 68 PLA C362 A0 04 LDY #$04 C364 91 64 STA ($64),Y C366 20 86 C3 JSR $C386 C369 60 RTS C36A A9 00 LDA #$00 C36C 85 64 STA $64 C36E AD 16 C8 LDA $C816 C371 18 CLC C372 69 C9 ADC #$C9 C374 85 65 STA $65 C376 60 RTS C377 A9 00 LDA #$00 C379 85 64 STA $64 C37B AD 16 C8 LDA $C816 C37E 49 01 EOR #$01 C380 18 CLC C381 69 C9 ADC #$C9 C383 85 65 STA $65 C385 60 RTS C386 A9 00 LDA #$00 C388 8D 12 C8 STA $C812 C38B 8D 13 C8 STA $C813 C38E 8D 14 C8 STA $C814 C391 8D 15 C8 STA $C815 C394 A0 04 LDY #$04 C396 AD 12 C8 LDA $C812 C399 18 CLC C39A 71 64 ADC ($64),Y C39C 8D 12 C8 STA $C812 C39F 90 03 BCC $C3A4 C3A1 EE 13 C8 INC $C813 C3A4 AD 14 C8 LDA $C814 C3A7 51 64 EOR ($64),Y C3A9 8D 14 C8 STA $C814 C3AC AD 15 C8 LDA $C815 C3AF 2A ROL C3B0 2E 14 C8 ROL $C814 C3B3 2E 15 C8 ROL $C815 C3B6 C8 INY C3B7 CC 09 C8 CPY $C809 C3BA D0 DA BNE $C396 C3BC A0 00 LDY #$00 C3BE AD 12 C8 LDA $C812 C3C1 91 64 STA ($64),Y C3C3 C8 INY C3C4 AD 13 C8 LDA $C813 C3C7 91 64 STA ($64),Y C3C9 C8 INY C3CA AD 14 C8 LDA $C814 C3CD 91 64 STA ($64),Y C3CF C8 INY C3D0 AD 15 C8 LDA $C815 C3D3 91 64 STA ($64),Y C3D5 60 RTS C3D6 A9 00 LDA #$00 C3D8 8D 0D C8 STA $C80D C3DB 8D 0C C8 STA $C80C C3DE 8D 1D C8 STA $C81D C3E1 A9 01 LDA #$01 C3E3 8D 16 C8 STA $C816 C3E6 A9 FF LDA #$FF C3E8 8D 19 C8 STA $C819 C3EB 8D 1A C8 STA $C81A C3EE 20 77 C3 JSR $C377 C3F1 A0 04 LDY #$04 C3F3 A9 07 LDA #$07 C3F5 91 64 STA ($64),Y C3F7 20 6A C3 JSR $C36A C3FA A0 05 LDY #$05 C3FC A9 00 LDA #$00 C3FE 91 64 STA ($64),Y C400 C8 INY C401 91 64 STA ($64),Y C403 20 B2 C1 JSR $C1B2 C406 F0 FB BEQ $C403 C408 A9 00 LDA #$00 C40A 8D 00 02 STA $0200 C40D 60 RTS C40E A9 01 LDA #$01 C410 8D 19 C8 STA $C819 C413 A9 00 LDA #$00 C415 8D 1A C8 STA $C81A C418 8D 0D C8 STA $C80D C41B 8D 16 C8 STA $C816 C41E 8D 05 C9 STA $C905 C421 8D 06 C9 STA $C906 C424 8D 0C C8 STA $C80C C427 A9 07 LDA #$07 C429 8D 04 C9 STA $C904 C42C A9 00 LDA #$00 C42E 20 40 C1 JSR $C140 C431 AD 0D C8 LDA $C80D C434 D0 D2 BNE $C408 C436 20 8A C4 JSR $C48A C439 D0 3C BNE $C477 C43B 20 CC FF JSR $FFCC ; CLRCHN: restore default devices C43E AD 09 C8 LDA $C809 C441 C9 07 CMP #$07 C443 F0 16 BEQ $C45B C445 A2 02 LDX #$02 C447 20 C9 FF JSR $FFC9 ; CHKOUT: define an output channel C44A A0 07 LDY #$07 C44C B9 00 C9 LDA $C900,Y C44F 20 D2 FF JSR $FFD2 ; CHROUT: output a character C452 C8 INY C453 CC 09 C8 CPY $C809 C456 D0 F4 BNE $C44C C458 20 CC FF JSR $FFCC ; CLRCHN: restore default devices C45B AD 06 C9 LDA $C906 C45E C9 FF CMP #$FF C460 D0 08 BNE $C46A C462 A9 01 LDA #$01 C464 8D 0D C8 STA $C80D C467 A9 2A LDA #$2A C469 2C A9 2D BIT $2DA9 C46C 20 D2 FF JSR $FFD2 ; CHROUT: output a character C46F 20 A1 C5 JSR $C5A1 C472 A9 00 LDA #$00 C474 4C 2E C4 JMP $C42E C477 20 CC FF JSR $FFCC ; CLRCHN: restore default devices C47A A9 3A LDA #$3A C47C 20 D2 FF JSR $FFD2 ; CHROUT: output a character C47F AD 17 C8 LDA $C817 C482 8D 04 C9 STA $C904 C485 A9 03 LDA #$03 C487 4C 2E C4 JMP $C42E C48A AD 00 C9 LDA $C900 C48D 8D 0E C8 STA $C80E C490 AD 01 C9 LDA $C901 C493 8D 0F C8 STA $C80F C496 AD 02 C9 LDA $C902 C499 8D 10 C8 STA $C810 C49C AD 03 C9 LDA $C903 C49F 8D 11 C8 STA $C811 C4A2 20 6A C3 JSR $C36A C4A5 AD 17 C8 LDA $C817 C4A8 8D 09 C8 STA $C809 C4AB 20 86 C3 JSR $C386 C4AE AD 00 C9 LDA $C900 C4B1 CD 0E C8 CMP $C80E C4B4 D0 1B BNE $C4D1 C4B6 AD 01 C9 LDA $C901 C4B9 CD 0F C8 CMP $C80F C4BC D0 13 BNE $C4D1 C4BE AD 02 C9 LDA $C902 C4C1 CD 10 C8 CMP $C810 C4C4 D0 0B BNE $C4D1 C4C6 AD 03 C9 LDA $C903 C4C9 CD 11 C8 CMP $C811 C4CC D0 03 BNE $C4D1 C4CE A9 00 LDA #$00 C4D0 60 RTS C4D1 A9 01 LDA #$01 C4D3 60 RTS C4D4 A9 00 LDA #$00 C4D6 8D 19 C8 STA $C819 C4D9 8D 1A C8 STA $C81A C4DC 8D 0D C8 STA $C80D C4DF 8D 16 C8 STA $C816 C4E2 8D 0C C8 STA $C80C C4E5 A9 07 LDA #$07 C4E7 18 CLC C4E8 69 01 ADC #$01 C4EA 8D 04 C9 STA $C904 C4ED A9 00 LDA #$00 C4EF 20 40 C1 JSR $C140 C4F2 AD 0D C8 LDA $C80D C4F5 D0 20 BNE $C517 C4F7 20 8A C4 JSR $C48A C4FA D0 10 BNE $C50C C4FC AD 07 C9 LDA $C907 C4FF 8D 1B C8 STA $C81B C502 A9 01 LDA #$01 C504 8D 0D C8 STA $C80D C507 A9 00 LDA #$00 C509 4C EF C4 JMP $C4EF C50C AD 17 C8 LDA $C817 C50F 8D 04 C9 STA $C904 C512 A9 03 LDA #$03 C514 4C EF C4 JMP $C4EF C517 A9 00 LDA #$00 C519 8D 00 02 STA $0200 C51C 60 RTS C51D A9 00 LDA #$00 C51F 8D 0D C8 STA $C80D C522 8D 0C C8 STA $C80C C525 A9 01 LDA #$01 C527 8D 16 C8 STA $C816 C52A 8D 1D C8 STA $C81D C52D A9 FF LDA #$FF C52F 8D 19 C8 STA $C819 C532 8D 1A C8 STA $C81A C535 20 77 C3 JSR $C377 C538 A0 04 LDY #$04 C53A A9 07 LDA #$07 C53C 18 CLC C53D 69 01 ADC #$01 C53F 91 64 STA ($64),Y C541 20 6A C3 JSR $C36A C544 A0 05 LDY #$05 C546 A9 FF LDA #$FF C548 91 64 STA ($64),Y C54A C8 INY C54B 91 64 STA ($64),Y C54D A0 07 LDY #$07 C54F AD 1B C8 LDA $C81B C552 91 64 STA ($64),Y C554 A9 01 LDA #$01 C556 8D 1E C8 STA $C81E C559 20 B2 C1 JSR $C1B2 C55C F0 FB BEQ $C559 C55E A9 00 LDA #$00 C560 8D 00 02 STA $0200 C563 60 RTS C564 EE 0C C8 INC $C80C C567 AD 0C C8 LDA $C80C C56A C9 03 CMP #$03 C56C 90 0C BCC $C57A C56E A9 00 LDA #$00 C570 8D 0C C8 STA $C80C C573 AD 0B C8 LDA $C80B C576 F0 07 BEQ $C57F C578 D0 11 BNE $C58B C57A AD 0B C8 LDA $C80B C57D F0 0C BEQ $C58B C57F A2 00 LDX #$00 C581 A0 00 LDY #$00 C583 C8 INY C584 D0 FD BNE $C583 C586 E8 INX C587 E0 78 CPX #$78 C589 D0 F6 BNE $C581 C58B 60 RTS C58C 48 PHA C58D AD 19 C8 LDA $C819 C590 0D 1A C8 ORA $C81A C593 F0 0A BEQ $C59F C595 AD 1D C8 LDA $C81D C598 D0 05 BNE $C59F C59A 68 PLA C59B 20 D2 FF JSR $FFD2 ; CHROUT: output a character C59E 48 PHA C59F 68 PLA C5A0 60 RTS C5A1 20 7E EF JSR $EF7E C5A4 AD A1 02 LDA $02A1 C5A7 C9 80 CMP #$80 C5A9 F0 F6 BEQ $C5A1 C5AB C9 92 CMP #$92 C5AD F0 F2 BEQ $C5A1 C5AF 60 RTS C5B0 20 6D C6 JSR $C66D C5B3 20 F7 C0 JSR $C0F7 C5B6 A5 96 LDA $96 C5B8 D0 14 BNE $C5CE C5BA AD 00 02 LDA $0200 C5BD 29 7F AND #$7F C5BF 8D 00 02 STA $0200 C5C2 C9 08 CMP #$08 C5C4 F0 0B BEQ $C5D1 C5C6 C9 0D CMP #$0D C5C8 F0 07 BEQ $C5D1 C5CA C9 20 CMP #$20 C5CC 10 03 BPL $C5D1 C5CE 4C 1B C6 JMP $C61B C5D1 C9 61 CMP #$61 C5D3 90 0D BCC $C5E2 C5D5 C9 7B CMP #$7B C5D7 B0 09 BCS $C5E2 C5D9 38 SEC C5DA E9 20 SBC #$20 C5DC 8D 00 02 STA $0200 C5DF 4C F0 C5 JMP $C5F0 C5E2 C9 41 CMP #$41 C5E4 90 0A BCC $C5F0 C5E6 C9 5B CMP #$5B C5E8 B0 06 BCS $C5F0 C5EA 18 CLC C5EB 69 80 ADC #$80 C5ED 8D 00 02 STA $0200 C5F0 C9 08 CMP #$08 C5F2 D0 05 BNE $C5F9 C5F4 A9 14 LDA #$14 C5F6 8D 00 02 STA $0200 C5F9 C9 22 CMP #$22 C5FB D0 0A BNE $C607 C5FD 20 D2 FF JSR $FFD2 ; CHROUT: output a character C600 A9 14 LDA #$14 C602 20 D2 FF JSR $FFD2 ; CHROUT: output a character C605 A9 22 LDA #$22 C607 AD 00 02 LDA $0200 C60A C9 0D CMP #$0D C60C D0 07 BNE $C615 C60E A9 20 LDA #$20 C610 20 D2 FF JSR $FFD2 ; CHROUT: output a character C613 A9 0D LDA #$0D C615 20 D2 FF JSR $FFD2 ; CHROUT: output a character C618 20 6D C6 JSR $C66D C61B 20 E4 FF JSR $FFE4 ; GETIN : get a character C61E F0 93 BEQ $C5B3 C620 8D 00 02 STA $0200 C623 C9 13 CMP #$13 C625 F0 45 BEQ $C66C C627 C9 41 CMP #$41 C629 90 0D BCC $C638 C62B C9 5B CMP #$5B C62D B0 09 BCS $C638 C62F 18 CLC C630 69 20 ADC #$20 C632 8D 00 02 STA $0200 C635 4C 49 C6 JMP $C649 C638 AD 00 02 LDA $0200 C63B C9 C1 CMP #$C1 C63D 90 0A BCC $C649 C63F C9 DB CMP #$DB C641 B0 06 BCS $C649 C643 38 SEC C644 E9 80 SBC #$80 C646 8D 00 02 STA $0200 C649 C9 14 CMP #$14 C64B D0 05 BNE $C652 C64D A9 08 LDA #$08 C64F 8D 00 02 STA $0200 C652 C9 83 CMP #$83 C654 D0 05 BNE $C65B C656 A9 10 LDA #$10 C658 8D 00 02 STA $0200 C65B A2 05 LDX #$05 C65D 20 C9 FF JSR $FFC9 ; CHKOUT: define an output channel C660 AD 00 02 LDA $0200 C663 20 D2 FF JSR $FFD2 ; CHROUT: output a character C666 20 CC FF JSR $FFCC ; CLRCHN: restore default devices C669 4C B0 C5 JMP $C5B0 C66C 60 RTS C66D A9 12 LDA #$12 C66F 20 D2 FF JSR $FFD2 ; CHROUT: output a character C672 A9 20 LDA #$20 C674 20 D2 FF JSR $FFD2 ; CHROUT: output a character C677 A9 9D LDA #$9D C679 20 D2 FF JSR $FFD2 ; CHROUT: output a character C67C A9 92 LDA #$92 C67E 20 D2 FF JSR $FFD2 ; CHROUT: output a character C681 AD 8D 02 LDA $028D C684 C9 02 CMP #$02 C686 D0 07 BNE $C68F C688 68 PLA C689 BA TSX C68A EC 1C C8 CPX $C81C C68D D0 F9 BNE $C688 C68F A9 01 LDA #$01 C691 8D 00 02 STA $0200 C694 60 RTS C695 AD 26 03 LDA $0326 C698 C9 BA CMP #$BA C69A D0 07 BNE $C6A3 C69C AD 27 03 LDA $0327 C69F C9 C6 CMP #$C6 C6A1 F0 16 BEQ $C6B9 C6A3 AD 26 03 LDA $0326 C6A6 8D 02 CB STA $CB02 C6A9 AD 27 03 LDA $0327 C6AC 8D 03 CB STA $CB03 C6AF A9 BA LDA #$BA C6B1 8D 26 03 STA $0326 C6B4 A9 C6 LDA #$C6 C6B6 8D 27 03 STA $0327 C6B9 60 RTS C6BA 48 PHA C6BB A5 9A LDA $9A C6BD C9 03 CMP #$03 C6BF D0 04 BNE $C6C5 C6C1 68 PLA C6C2 6C 02 CB JMP ($CB02) C6C5 90 04 BCC $C6CB C6C7 68 PLA C6C8 6C 02 CB JMP ($CB02) C6CB 4A LSR C6CC 68 PLA C6CD 85 9E STA $9E C6CF 8A TXA C6D0 48 PHA C6D1 98 TYA C6D2 48 PHA C6D3 90 23 BCC $C6F8 C6D5 20 0D F8 JSR $F80D C6D8 D0 0E BNE $C6E8 C6DA 20 64 F8 JSR $F864 C6DD B0 0E BCS $C6ED C6DF A9 02 LDA #$02 C6E1 A0 00 LDY #$00 C6E3 91 B2 STA ($B2),Y C6E5 C8 INY C6E6 84 A6 STY $A6 C6E8 A5 9E LDA $9E C6EA 91 B2 STA ($B2),Y C6EC 18 CLC C6ED 68 PLA C6EE A8 TAY C6EF 68 PLA C6F0 AA TAX C6F1 A5 9E LDA $9E C6F3 90 02 BCC $C6F7 C6F5 A9 00 LDA #$00 C6F7 60 RTS C6F8 20 01 C7 JSR $C701 C6FB 4C EC C6 JMP $C6EC C6FE 20 12 C7 JSR $C712 C701 AC 9E 02 LDY $029E C704 C8 INY C705 CC 9D 02 CPY $029D C708 F0 F4 BEQ $C6FE C70A 8C 9E 02 STY $029E C70D 88 DEY C70E A5 9E LDA $9E C710 91 F9 STA ($F9),Y C712 AD A1 02 LDA $02A1 C715 4A LSR C716 B0 1E BCS $C736 C718 A9 10 LDA #$10 C71A 8D 0E DD STA $DD0E ; CIA #2 Control Register A C71D AD 00 CB LDA $CB00 C720 8D 04 DD STA $DD04 ; CIA #2 Timer A (LSB) C723 AD 01 CB LDA $CB01 C726 8D 05 DD STA $DD05 ; CIA #2 Timer A (MSB) C729 A9 81 LDA #$81 C72B 20 3B EF JSR $EF3B C72E 20 06 EF JSR $EF06 C731 A9 11 LDA #$11 C733 8D 0E DD STA $DD0E ; CIA #2 Control Register A C736 60 RTS End of file.