@@@@@@@@ KEY BOARD ROUTINE AND CHARACTER FONT @@@@@@@@ '**** KEYFNT **** $F590: 71 F708 AIM EXT M<=IM&M $F593: CC 1000 LDD IMM A:B<=M:M+1 $F596: BD E32F JSR EXT Jump to Subr=>Address $E32F $F599: 0E CLI IMP I<=0 $F59A: BD F716 JSR EXT Jump to Subr=>Address $F716 $F59D: CE 0145 LDX IMM IX<=M:M+1 $F5A0: C6 09 LDAB IMM B<=M $F5A2: A6 00 LDAA IND A<=M $F5A4: 27 08 BEQ REL Branch=> $F5AE if Z=1 $F5A6: 7D 016A TST EXT M-0 $F5A9: 2A 03 BPL REL Branch=> $F5AE if N=0 $F5AB: 7F 016A CLR EXT M<=0 $F5AE: A4 14 ANDA IND A<=A&M $F5B0: 26 28 BNE REL Branch=> $F5DA if Z=0 $F5B2: 08 INX IMP IX<=IX+1 $F5B3: 5A DECB IMP M<=M-1 $F5B4: 26 EC BNE REL Branch=> $F5A2 if Z=0 $F5B6: B6 016A LDAA EXT A<=M $F5B9: 2B 0B BMI REL Branch=> $F5C6 if N=1 $F5BB: BD F779 JSR EXT Jump to Subr=>Address $F779 $F5BE: 86 FF LDAA IMM A<=M $F5C0: B7 016A STAA EXT M<=A $F5C3: 7E F67B JMP EXT Jump=>Address $F67B $F5C6: BD F77D JSR EXT Jump to Subr=>Address $F77D $F5C9: 0F SEI IMP I<=1 $F5CA: CE 0169 LDX IMM IX<=M:M+1 $F5CD: 61 7F00 AIM IND M<=IM&M $F5D0: BD F7BD JSR EXT Jump to Subr=>Address $F7BD $F5D3: CC 1010 LDD IMM A:B<=M:M+1 $F5D6: BD E32F JSR EXT Jump to Subr=>Address $E32F $F5D9: 3B RTI IMP Return from Interrupt $F5DA: BD F77D JSR EXT Jump to Subr=>Address $F77D $F5DD: 27 E4 BEQ REL Branch=> $F5C3 if Z=1 $F5DF: CE 014E LDX IMM IX<=M:M+1 $F5E2: 86 F7 LDAA IMM A<=M $F5E4: 08 INX IMP IX<=IX+1 $F5E5: 8B 08 ADDA IMM A<=A+M $F5E7: 81 47 CMPA IMM A-M $F5E9: 2A 4E BPL REL Branch=> $F639 if N=0 $F5EB: E6 00 LDAB IND B<=M $F5ED: 27 F5 BEQ REL Branch=> $F5E4 if Z=1 $F5EF: 4C INCA IMP M<=M+1 $F5F0: 54 LSRB IMP 0=>########=>C $F5F1: 24 FC BCC REL Branch=> $F5EF if C=0 $F5F3: B7 016C STAA EXT M<=A $F5F6: 36 PSHA IMP =>A;SP<=SP-1 $F5F7: BD F7CB JSR EXT Jump to Subr=>Address $F7CB $F5FA: 32 PULA IMP SP<=SP+1;<=A $F5FB: BD F803 JSR EXT Jump to Subr=>Address $F803 $F5FE: 24 2C BCC REL Branch=> $F62C if C=0 $F600: CE 0140 LDX IMM IX<=M:M+1 $F603: 81 45 CMPA IMM A-M $F605: 27 47 BEQ REL Branch=> $F64E if Z=1 $F607: 62 8029 OIM IND M<=IM|M $F60A: 6F 2A CLR IND M<=0 $F60C: 81 FF CMPA IMM A-M $F60E: 27 6B BEQ REL Branch=> $F67B if Z=1 $F610: 81 40 CMPA IMM A-M $F612: 25 78 BCS REL Branch=> $F68C if C=1 $F614: 81 45 CMPA IMM A-M $F616: 24 74 BCC REL Branch=> $F68C if C=0 $F618: 8B B1 ADDA IMM A<=A+M $F61A: F6 0169 LDAB EXT B<=M $F61D: C4 60 ANDB IMM B<=B&M $F61F: 27 06 BEQ REL Branch=> $F627 if Z=1 $F621: C5 20 BITB IMM B&M $F623: 27 67 BEQ REL Branch=> $F68C if Z=1 $F625: 8B 05 ADDA IMM A<=A+M $F627: B7 016E STAA EXT M<=A $F62A: 86 FE LDAA IMM A<=M $F62C: B7 016D STAA EXT M<=A $F62F: B6 0141 LDAA EXT A<=M $F632: C6 01 LDAB IMM B<=M $F634: F7 016A STAB EXT M<=B $F637: 20 39 BRA REL Branch=> $F672 if (Always) $F639: CE 0140 LDX IMM IX<=M:M+1 $F63C: 6D 29 TST IND M-0 $F63E: 2B 3B BMI REL Branch=> $F67B if N=1 $F640: 6D 2A TST IND M-0 $F642: 2F 3A BLE REL Branch=> $F67E if Z|(N^V)=1 $F644: 6A 2B DEC IND M<=M-1 $F646: 26 33 BNE REL Branch=> $F67B if Z=0 $F648: A6 2C LDAA IND A<=M $F64A: 81 45 CMPA IMM A-M $F64C: 26 21 BNE REL Branch=> $F66F if Z=0 $F64E: B6 014E LDAA EXT A<=M $F651: 2A 12 BPL REL Branch=> $F665 if N=0 $F653: 7B B77D TIM EXT IM&M $F656: 26 0D BNE REL Branch=> $F665 if Z=0 $F658: 7B 977C TIM EXT IM&M $F65B: 26 08 BNE REL Branch=> $F665 if Z=0 $F65D: 86 12 LDAA IMM A<=M $F65F: BD E418 JSR EXT Jump to Subr=>Address $E418 $F662: BD E4BF JSR EXT Jump to Subr=>Address $E4BF $F665: 86 02 LDAA IMM A<=M $F667: A7 2B STAA IND M<=A $F669: 86 01 LDAA IMM A<=M $F66B: A7 2A STAA IND M<=A $F66D: 20 0C BRA REL Branch=> $F67B if (Always) $F66F: B6 0142 LDAA EXT A<=M $F672: B7 016B STAA EXT M<=A $F675: FC 016D LDD EXT A:B<=M:M+1 $F678: BD FA60 JSR EXT Jump to Subr=>Address $FA60 $F67B: BD F7BD JSR EXT Jump to Subr=>Address $F7BD $F67E: 0F SEI IMP I<=1 $F67F: 96 08 LDAA DIR A<=M $F681: DC 09 LDD DIR A:B<=M:M+1 $F683: F3 0143 ADDD EXT A:B<=A:B+M:M+1 $F686: DD 0B STD DIR M:M+1<=A:B $F688: 72 0808 OIM EXT M<=IM|M $F68B: 3B RTI IMP Return from Interrupt $F68C: 81 3A CMPA IMM A-M $F68E: 27 4E BEQ REL Branch=> $F6DE if Z=1 $F690: 81 3D CMPA IMM A-M $F692: 27 34 BEQ REL Branch=> $F6C8 if Z=1 $F694: 81 3B CMPA IMM A-M $F696: 27 1E BEQ REL Branch=> $F6B6 if Z=1 $F698: CE EBED LDX IMM IX<=M:M+1 $F69B: 81 F1 CMPA IMM A-M $F69D: 27 24 BEQ REL Branch=> $F6C3 if Z=1 $F69F: 81 F6 CMPA IMM A-M $F6A1: 24 D8 BCC REL Branch=> $F67B if C=0 $F6A3: CE E34D LDX IMM IX<=M:M+1 $F6A6: 80 F2 SUBA IMM A<=A-M $F6A8: 27 19 BEQ REL Branch=> $F6C3 if Z=1 $F6AA: 25 CF BCS REL Branch=> $F67B if C=1 $F6AC: 16 TAB IMP B<=A $F6AD: 58 ASLB IMP C<=########<=0 $F6AE: CE 0124 LDX IMM IX<=M:M+1 $F6B1: 3A ABX IMP IX<=IX+B $F6B2: EE 00 LDX IND IX<=M:M+1 $F6B4: 20 4A BRA REL Branch=> $F700 if (Always) $F6B6: 72 407D OIM EXT M<=IM|M $F6B9: 7F 0168 CLR EXT M<=0 $F6BC: FE 0124 LDX EXT IX<=M:M+1 $F6BF: D6 7B LDAB DIR B<=M $F6C1: 2B B8 BMI REL Branch=> $F67B if N=1 $F6C3: CC B7F7 LDD IMM A:B<=M:M+1 $F6C6: 20 0C BRA REL Branch=> $F6D4 if (Always) $F6C8: 86 FC LDAA IMM A<=M $F6CA: D6 7B LDAB DIR B<=M $F6CC: 2B AA BMI REL Branch=> $F678 if N=1 $F6CE: FE 0122 LDX EXT IX<=M:M+1 $F6D1: CC 3737 LDD IMM A:B<=M:M+1 $F6D4: 95 7D BITA DIR A&M $F6D6: 26 A3 BNE REL Branch=> $F67B if Z=0 $F6D8: D5 7C BITB DIR B&M $F6DA: 27 24 BEQ REL Branch=> $F700 if Z=1 $F6DC: 20 9D BRA REL Branch=> $F67B if (Always) $F6DE: CE 0140 LDX IMM IX<=M:M+1 $F6E1: 61 FE25 AIM IND M<=IM&M $F6E4: 7B B07D TIM EXT IM&M $F6E7: 26 0A BNE REL Branch=> $F6F3 if Z=0 $F6E9: 7B 047D TIM EXT IM&M $F6EC: 27 05 BEQ REL Branch=> $F6F3 if Z=1 $F6EE: 61 FB0C AIM IND M<=IM&M $F6F1: 20 88 BRA REL Branch=> $F67B if (Always) $F6F3: BD E0EB JSR EXT Jump to Subr=>Address $E0EB $F6F6: FE 0120 LDX EXT IX<=M:M+1 $F6F9: 7F 0168 CLR EXT M<=0 $F6FC: 96 7B LDAA DIR A<=M $F6FE: 2B DC BMI REL Branch=> $F6DC if N=1 $F700: 3C PSHX IMP =>IX;SP<=SP-2 $F701: BD F7BD JSR EXT Jump to Subr=>Address $F7BD $F704: 0F SEI IMP I<=1 $F705: 96 08 LDAA DIR A<=M $F707: DC 09 LDD DIR A:B<=M:M+1 $F709: F3 0143 ADDD EXT A:B<=A:B+M:M+1 $F70C: DD 0B STD DIR M:M+1<=A:B $F70E: 72 0808 OIM EXT M<=IM|M $F711: 38 PULX IMP SP<=SP-2;<=IX $F712: 0E CLI IMP I<=0 $F713: AD 00 JSR IND Jump to Subr=>Address $F715: 3B RTI IMP Return from Interrupt $F716: C6 FE LDAB IMM B<=M $F718: D7 20 STAB DIR M<=B $F71A: DE 72 LDX DIR IX<=M:M+1 $F71C: 3C PSHX IMP =>IX;SP<=SP-2 $F71D: 96 70 LDAA DIR A<=M $F71F: 36 PSHA IMP =>A;SP<=SP-1 $F720: D7 70 STAB DIR M<=B $F722: CE 0145 LDX IMM IX<=M:M+1 $F725: 96 22 LDAA DIR A<=M $F727: 43 COMA IMP M<= ~M $F728: A1 00 CMPA IND A-M $F72A: 27 03 BEQ REL Branch=> $F72F if Z=1 $F72C: 7A 0070 DEC EXT M<=M-1 $F72F: A7 00 STAA IND M<=A $F731: 96 28 LDAA DIR A<=M $F733: 37 PSHB IMP =>B;SP<=SP-1 $F734: 58 ASLB IMP C<=########<=0 $F735: 33 PULB IMP SP<=SP+1;<=B $F736: 59 ROLB IMP C<=########<=C $F737: D7 20 STAB DIR M<=B $F739: 43 COMA IMP M<= ~M $F73A: 47 ASRA IMP %=>########=>C $F73B: 76 0072 ROR EXT C=>########=>C $F73E: 47 ASRA IMP %=>########=>C $F73F: 76 0073 ROR EXT C=>########=>C $F742: 08 INX IMP IX<=IX+1 $F743: C1 FE CMPB IMM B-M $F745: 26 DE BNE REL Branch=> $F725 if Z=0 $F747: 96 70 LDAA DIR A<=M $F749: DE 72 LDX DIR IX<=M:M+1 $F74B: BC 014D CPX EXT IX-M:M+1 $F74E: 27 01 BEQ REL Branch=> $F751 if Z=1 $F750: 4A DECA IMP M<=M-1 $F751: FF 014D STX EXT M:M+1<=IX $F754: 7F 0070 CLR EXT M<=0 $F757: 4D TSTA IMP M-0 $F758: 26 C8 BNE REL Branch=> $F722 if Z=0 $F75A: 97 20 STAA DIR M<=A $F75C: 18 XGDX IMP A:B<==>IX $F75D: 17 TBA IMP A<=B $F75E: D6 7F LDAB DIR B<=M $F760: C5 20 BITB IMM B&M $F762: 27 04 BEQ REL Branch=> $F768 if Z=1 $F764: 48 ASLA IMP C<=########<=0 $F765: 58 ASLB IMP C<=########<=0 $F766: 46 RORA IMP C=>########=>C $F767: 57 ASRB IMP %=>########=>C $F768: C5 10 BITB IMM B&M $F76A: 27 05 BEQ REL Branch=> $F771 if Z=1 $F76C: C4 0F ANDB IMM B<=B&M $F76E: 84 F0 ANDA IMM A<=A&M $F770: 1B ABA IMP A<=A+B $F771: B7 014E STAA EXT M<=A $F774: 32 PULA IMP SP<=SP+1;<=A $F775: 97 70 STAA DIR M<=A $F777: 20 3F BRA REL Branch=> $F7B8 if (Always) $F779: C6 8A LDAB IMM B<=M $F77B: 20 02 BRA REL Branch=> $F77F if (Always) $F77D: C6 0A LDAB IMM B<=M $F77F: DE 72 LDX DIR IX<=M:M+1 $F781: 3C PSHX IMP =>IX;SP<=SP-2 $F782: 7F 0073 CLR EXT M<=0 $F785: CE 0145 LDX IMM IX<=M:M+1 $F788: A6 14 LDAA IND A<=M $F78A: A4 00 ANDA IND A<=A&M $F78C: 97 72 STAA DIR M<=A $F78E: C1 01 CMPB IMM B-M $F790: 27 04 BEQ REL Branch=> $F796 if Z=1 $F792: 9A 73 ORAA DIR A<=A|M $F794: 97 73 STAA DIR M<=A $F796: A6 0A LDAA IND A<=M $F798: A8 00 EORA IND A<=A^M $F79A: A4 0A ANDA IND A<=A&M $F79C: 43 COMA IMP M<= ~M $F79D: A7 14 STAA IND M<=A $F79F: 5D TSTB IMP M-0 $F7A0: 2B 08 BMI REL Branch=> $F7AA if N=1 $F7A2: 96 72 LDAA DIR A<=M $F7A4: A8 0A EORA IND A<=A^M $F7A6: 94 72 ANDA DIR A<=A&M $F7A8: A7 0A STAA IND M<=A $F7AA: 08 INX IMP IX<=IX+1 $F7AB: 5A DECB IMP M<=M-1 $F7AC: C5 7F BITB IMM B&M $F7AE: 26 D8 BNE REL Branch=> $F788 if Z=0 $F7B0: CE 015F LDX IMM IX<=M:M+1 $F7B3: 61 BF00 AIM IND M<=IM&M $F7B6: 96 73 LDAA DIR A<=M $F7B8: 38 PULX IMP SP<=SP-2;<=IX $F7B9: DF 72 STX DIR M:M+1<=IX $F7BB: 4D TSTA IMP M-0 $F7BC: 39 RTS IMP Return from Subroutine $F7BD: C6 0A LDAB IMM B<=M $F7BF: CE 0145 LDX IMM IX<=M:M+1 $F7C2: A6 00 LDAA IND A<=M $F7C4: A7 0A STAA IND M<=A $F7C6: 08 INX IMP IX<=IX+1 $F7C7: 5A DECB IMP M<=M-1 $F7C8: 26 F8 BNE REL Branch=> $F7C2 if Z=0 $F7CA: 39 RTS IMP Return from Subroutine $F7CB: CE F7F4 LDX IMM IX<=M:M+1 $F7CE: 36 PSHA IMP =>A;SP<=SP-1 $F7CF: B6 0169 LDAA EXT A<=M $F7D2: 84 8F ANDA IMM A<=A&M $F7D4: F6 014E LDAB EXT B<=M $F7D7: C4 60 ANDB IMM B<=B&M $F7D9: 1B ABA IMP A<=A+B $F7DA: 84 FE ANDA IMM A<=A&M $F7DC: F6 014B LDAB EXT B<=M $F7DF: C5 40 BITB IMM B&M $F7E1: 27 02 BEQ REL Branch=> $F7E5 if Z=1 $F7E3: 8A 10 ORAA IMM A<=A|M $F7E5: 16 TAB IMP B<=A $F7E6: 32 PULA IMP SP<=SP+1;<=A $F7E7: 81 35 CMPA IMM A-M $F7E9: 27 10 BEQ REL Branch=> $F7FB if Z=1 $F7EB: 81 37 CMPA IMM A-M $F7ED: 26 10 BNE REL Branch=> $F7FF if Z=0 $F7EF: C4 FD ANDB IMM B<=B&M $F7F1: C8 04 EORB IMM B<=B^M $F7F3: 20 0A BRA REL Branch=> $F7FF if (Always) $F7F5--$F7F5: NUL DATA 37 'CAPS MATRIX POS $F7F6--$F7F6: NUL DATA 35 'NUM MATRIX POS $F7F7--$F7F7: NUL DATA 00 'END TABLE MARK $F7F8--$F7F8: NUL DATA 04 'CAPS KEYMOD POS $F7F9--$F7F9: NUL DATA 02 'NUM KEYMOD POS $F7FA--$F7FA: NUL DATA 10 'GRPH KEYMOD POS $F7FB: C4 F3 ANDB IMM B<=B&M $F7FD: C8 02 EORB IMM B<=B^M $F7FF: F7 0169 STAB EXT M<=B $F802: 39 RTS IMP Return from Subroutine $F803: 97 70 STAA DIR M<=A $F805: 81 2E CMPA IMM A-M $F807: 25 23 BCS REL Branch=> $F82C if C=1 $F809: CE F868 LDX IMM IX<=M:M+1 $F80C: F6 0169 LDAB EXT B<=M $F80F: C4 60 ANDB IMM B<=B&M $F811: 27 0A BEQ REL Branch=> $F81D if Z=1 $F813: CE F85C LDX IMM IX<=M:M+1 $F816: C5 40 BITB IMM B&M $F818: 27 03 BEQ REL Branch=> $F81D if Z=1 $F81A: CE F857 LDX IMM IX<=M:M+1 $F81D: 08 INX IMP IX<=IX+1 $F81E: 08 INX IMP IX<=IX+1 $F81F: E6 00 LDAB IND B<=M $F821: C1 FF CMPB IMM B-M $F823: 0D SEC IMP C<=1 $F824: 27 05 BEQ REL Branch=> $F82B if Z=1 $F826: 11 CBA IMP A-B $F827: 26 F4 BNE REL Branch=> $F81D if Z=0 $F829: A6 01 LDAA IND A<=M $F82B: 39 RTS IMP Return from Subroutine $F82C: CE F878 LDX IMM IX<=M:M+1 $F82F: B6 0169 LDAA EXT A<=M $F832: 85 40 BITA IMM A&M $F834: 27 02 BEQ REL Branch=> $F838 if Z=1 $F836: 84 A0 ANDA IMM A<=A&M $F838: C6 03 LDAB IMM B<=M $F83A: 3A ABX IMP IX<=IX+B $F83B: 6D 00 TST IND M-0 $F83D: 0D SEC IMP C<=1 $F83E: 2B EB BMI REL Branch=> $F82B if N=1 $F840: A1 00 CMPA IND A-M $F842: 26 F6 BNE REL Branch=> $F83A if Z=0 $F844: 4F CLRA IMP M<=0 $F845: E6 02 LDAB IND B<=M $F847: C3 F87B ADDD IMM A:B<=A:B+M:M+1 $F84A: 37 PSHB IMP =>B;SP<=SP-1 $F84B: 36 PSHA IMP =>A;SP<=SP-1 $F84C: E6 01 LDAB IND B<=M $F84E: CE F91D LDX IMM IX<=M:M+1 $F851: DB 70 ADDB DIR B<=B+M $F853: 3A ABX IMP IX<=IX+B $F854: A6 00 LDAA IND A<=M $F856: 38 PULX IMP SP<=SP-2;<=IX $F857: 6E 00 JMP IND Jump=>Address '**** MATRIX CODE TABLE **** $F859--$F85A: NUL DATA 2E 04 'RIGHT SCROLL $F85B--$F85C: NUL DATA 2F 13 'LEFT SCROLL $F85D--$F85D: NUL DATA FF 'TABLE END MARK $F85E--$F85F: NUL DATA 2E 1F 'CURSOR DOWN $F860--$F861: NUL DATA 2F 1E 'CURSOR UP $F862--$F863: NUL DATA 38 0B 'HOME $F864--$F865: NUL DATA 39 11 'SCREEN DOWN $F866--$F867: NUL DATA 3B 1B 'ESCAPE $F868--$F869: NUL DATA 3C 12 'INSERT $F86A--$F86B: NUL DATA 2E 1C 'CURSOR RIGHT $F86C--$F86D: NUL DATA 2F 1D 'CURSOR LEFT $F86E--$F86F: NUL DATA 38 0C 'CLEAR $F870--$F871: NUL DATA 39 10 'SCREEN UP $F872--$F873: NUL DATA 3C 08 'DELETE $F874--$F875: NUL DATA 30 0D 'CARRIAGE RETURN $F876--$F877: NUL DATA 31 20 'SPACE BAR $F878--$F879: NUL DATA 32 09 'HORZ TAB $F87A--$F87A: NUL DATA FF 'TABLE END MARK $F87B--$F87D: NUL DATA 00 00 5D 'NORMAL MODE $F87E--$F880: NUL DATA 20 00 26 'SHIFT CODE $F881--$F883: NUL DATA 04 00 38 'CAPS SHIFT LOCK $F884--$F886: NUL DATA 24 00 26 'CAPS AND SHIFT $F887--$F889: NUL DATA 02 00 13 'NUMERIC CODE $F88A--$F88C: NUL DATA 10 2E 5D 'GRAPH KEY $F88D--$F88D: NUL DATA FF 'END MARK '**** KEYFNT (CONTINUED) **** $F88E: 81 3A CMPA IMM A-M $F890: 24 04 BCC REL Branch=> $F896 if C=0 $F892: 81 30 CMPA IMM A-M $F894: 24 51 BCC REL Branch=> $F8E7 if C=0 $F896: CE F8EB LDX IMM IX<=M:M+1 $F899: BD F81D JSR EXT Jump to Subr=>Address $F81D $F89C: 24 02 BCC REL Branch=> $F8A0 if C=0 $F89E: 86 FF LDAA IMM A<=M $F8A0: 39 RTS IMP Return from Subroutine $F8A1: CE F8E9 LDX IMM IX<=M:M+1 $F8A4: F6 0169 LDAB EXT B<=M $F8A7: A1 00 CMPA IND A-M $F8A9: 25 23 BCS REL Branch=> $F8CE if C=1 $F8AB: A1 01 CMPA IND A-M $F8AD: 24 0A BCC REL Branch=> $F8B9 if C=0 $F8AF: 88 10 EORA IMM A<=A^M $F8B1: 20 25 BRA REL Branch=> $F8D8 if (Always) $F8B3: CE F8E9 LDX IMM IX<=M:M+1 $F8B6: F6 0169 LDAB EXT B<=M $F8B9: A1 02 CMPA IND A-M $F8BB: 25 11 BCS REL Branch=> $F8CE if C=1 $F8BD: A1 03 CMPA IND A-M $F8BF: 24 0D BCC REL Branch=> $F8CE if C=0 $F8C1: C5 40 BITB IMM B&M $F8C3: 26 05 BNE REL Branch=> $F8CA if Z=0 $F8C5: 53 COMB IMP M<= ~M $F8C6: C4 24 ANDB IMM B<=B&M $F8C8: 27 1D BEQ REL Branch=> $F8E7 if Z=1 $F8CA: 88 20 EORA IMM A<=A^M $F8CC: 20 0A BRA REL Branch=> $F8D8 if (Always) $F8CE: C5 20 BITB IMM B&M $F8D0: 27 06 BEQ REL Branch=> $F8D8 if Z=1 $F8D2: CE F908 LDX IMM IX<=M:M+1 $F8D5: BD F81D JSR EXT Jump to Subr=>Address $F81D $F8D8: F6 0169 LDAB EXT B<=M $F8DB: C5 40 BITB IMM B&M $F8DD: 27 08 BEQ REL Branch=> $F8E7 if Z=1 $F8DF: 81 60 CMPA IMM A-M $F8E1: 2B 02 BMI REL Branch=> $F8E5 if N=1 $F8E3: 84 DF ANDA IMM A<=A&M $F8E5: 80 40 SUBA IMM A<=A-M $F8E7: 0C CLC IMP C<=0 $F8E8: 39 RTS IMP Return from Subroutine '**** ALPHABET / NUMERIC CODE CONVERSION TABLE **** $F8E9--$F8EC: NUL DATA 31 3C 41 5B 'CAPS/SHFT CHK $F8ED--$F8EE: NUL DATA 55 34 'U = '4 $F8EF--$F8F0: NUL DATA 49 35 'I = '5 $F8F1--$F8F2: NUL DATA 4F 36 'O = '6 $F8F3--$F8F4: NUL DATA 4A 31 'J = '1 $F8F5--$F8F6: NUL DATA 4B 32 'K = '2 $F8F7--$F8F8: NUL DATA 4C 33 'L = '3 $F8F9--$F8FA: NUL DATA 4D 30 'M = '0 $F8FB--$F8FC: NUL DATA 3A 2A ': = '* $F8FD--$F8FE: NUL DATA 3B 2B '; = '+ $F8FF--$F900: NUL DATA 2E 2E '. = '. $F901--$F902: NUL DATA 2C 2C ', = ', $F903--$F904: NUL DATA 2D 2D '- = '- $F905--$F906: NUL DATA 2F 2F '/ = '/ $F907--$F908: NUL DATA 5C 3F '\ = '? $F909--$F909: NUL DATA FF 'END MARK '**** ALPHABET / SHIFT CODE CONVERSION TABLE **** $F90A--$F90B: NUL DATA 30 5F '0 = '_ $F90C--$F90D: NUL DATA 40 5E '@ = '^ $F90E--$F90F: NUL DATA 5C 7C '\ = '| $F910--$F911: NUL DATA 5B 7B '[ = '{ $F912--$F913: NUL DATA 5D 7D '] = '} $F914--$F915: NUL DATA 2C 3C ', = '< $F916--$F917: NUL DATA 2D 3D '- = '= $F918--$F919: NUL DATA 2E 3E '. = '> $F91A--$F91B: NUL DATA 2F 3F '/ = '? $F91C--$F91C: NUL DATA FF 'END MARK '**** KEY CODE TABLE **** $F91D--$F920: NUL DATA 30 31 32 33 '0 '1 '2 '3 $F921--$F924: NUL DATA 34 35 36 37 '4 '5 '6 '7 $F925--$F928: NUL DATA 38 39 3A 3B '8 '9 ': '; $F929--$F92C: NUL DATA 2C 2D 2E 2F ', '- '. '/ $F92D--$F930: NUL DATA 40 41 42 43 '@ 'A 'B 'C $F931--$F934: NUL DATA 44 45 46 47 'D 'E 'F 'G $F935--$F938: NUL DATA 48 49 4A 4B 'H 'I 'J 'K $F939--$F93C: NUL DATA 4C 4D 4E 4F 'L 'M 'N 'O $F93D--$F940: NUL DATA 50 51 52 53 'P 'Q 'R 'S $F941--$F944: NUL DATA 54 55 56 57 'T 'U 'V 'W $F945--$F948: NUL DATA 58 59 5A 5B 'X 'Y 'Z '[ $F949--$F94A: NUL DATA 5D 5C '] '\ $F94B--$F94C: NUL DATA E0 E1 'GRPH_0 'GRPH_1 $F94D--$F94E: NUL DATA E2 E3 'GRPH_2 'GRPH_3 $F94F--$F950: NUL DATA E4 E5 'GRPH_4 'GRPH_5 $F951--$F952: NUL DATA E6 E7 'GRPH_6 'GRPH_7 $F953--$F954: NUL DATA E8 E9 'GRPH_8 'GRPH_9 $F955--$F956: NUL DATA 9D 9B 'GRPH_: 'GRPH_; $F957--$F958: NUL DATA 97 A0 'GRPH_, 'GRPH_= $F959--$F95A: NUL DATA 9C 9E 'GRPH_. 'GRPH_/ $F95B--$F95C: NUL DATA 94 84 'GRPH_@ 'GRPH_A $F95D--$F95E: NUL DATA 9A 8A 'GRPH_B 'GRPH_C $F95F--$F960: NUL DATA 83 88 'GRPH_D 'GRPH_E $F961--$F962: NUL DATA 8C 8D 'GRPH_F 'GRPH_G $F963--$F964: NUL DATA 8E 91 'GRPH_H 'GRPH_I $F965--$F966: NUL DATA 8B 95 'GRPH_J 'GRPH_K $F967--$F968: NUL DATA 9F 98 'GRPH_L 'GRPH_M $F969--$F96A: NUL DATA 99 92 'GRPH_N 'GRPH_O $F96B--$F96C: NUL DATA 93 87 'GRPH_P 'GRPH_Q $F96D--$F96E: NUL DATA 86 80 'GRPH_R 'GRPH_S $F96F--$F970: NUL DATA 85 90 'GRPH_T 'GRPH_U $F971--$F972: NUL DATA 96 82 'GRPH_V 'GRPH_W $F973--$F974: NUL DATA 81 8F 'GRPH_X 'GRPH_Y $F975--$F976: NUL DATA 89 60 'GRPH_Z 'GRPH_[ $F977--$F978: NUL DATA 7F 7E 'GRPH_\ 'GRPH_] '**** KEYFNT (CONTINUED) **** $F979: CE 0120 LDX IMM IX<=M:M+1 $F97C: CC FFB2 LDD IMM A:B<=M:M+1 $F97F: ED 00 STD IND M:M+1<=A:B $F981: CC FF25 LDD IMM A:B<=M:M+1 $F984: ED 02 STD IND M:M+1<=A:B $F986: CC F9CA LDD IMM A:B<=M:M+1 $F989: ED 04 STD IND M:M+1<=A:B $F98B: ED 06 STD IND M:M+1<=A:B $F98D: ED 08 STD IND M:M+1<=A:B $F98F: ED 0A STD IND M:M+1<=A:B $F991: 6F 4A CLR IND M<=0 $F993: 6F 48 CLR IND M<=0 $F995: 6F 47 CLR IND M<=0 $F997: CC 016F LDD IMM A:B<=M:M+1 $F99A: ED 43 STD IND M:M+1<=A:B $F99C: 6F 49 CLR IND M<=0 $F99E: 62 0145 OIM IND M<=IM|M $F9A1: CC 2806 LDD IMM A:B<=M:M+1 $F9A4: ED 21 STD IND M:M+1<=A:B $F9A6: CC 3000 LDD IMM A:B<=M:M+1 $F9A9: ED 23 STD IND M:M+1<=A:B $F9AB: 86 08 LDAA IMM A<=M $F9AD: A7 20 STAA IND M<=A $F9AF: 6F 4E CLR IND M<=0 $F9B1: BD F716 JSR EXT Jump to Subr=>Address $F716 $F9B4: BD F7BD JSR EXT Jump to Subr=>Address $F7BD $F9B7: BD F779 JSR EXT Jump to Subr=>Address $F779 $F9BA: CC 1010 LDD IMM A:B<=M:M+1 $F9BD: 7E E32F JMP EXT Jump=>Address $E32F $F9C0: B6 0168 LDAA EXT A<=M $F9C3: 0D SEC IMP C<=1 $F9C4: 7B B07D TIM EXT IM&M $F9C7: 26 01 BNE REL Branch=> $F9CA if Z=0 $F9C9: 4D TSTA IMP M-0 $F9CA: 39 RTS IMP Return from Subroutine $F9CB: 3C PSHX IMP =>IX;SP<=SP-2 $F9CC: 7B B07D TIM EXT IM&M $F9CF: 0D SEC IMP C<=1 $F9D0: 26 19 BNE REL Branch=> $F9EB if Z=0 $F9D2: 8D 1E BSR REL Branch to Subr=> $F9F2 $F9D4: 25 0C BCS REL Branch=> $F9E2 if C=1 $F9D6: 81 FE CMPA IMM A-M $F9D8: 0C CLC IMP C<=0 $F9D9: 26 10 BNE REL Branch=> $F9EB if Z=0 $F9DB: 8D 15 BSR REL Branch to Subr=> $F9F2 $F9DD: 16 TAB IMP B<=A $F9DE: 86 FE LDAA IMM A<=M $F9E0: 20 07 BRA REL Branch=> $F9E9 if (Always) $F9E2: B6 0168 LDAA EXT A<=M $F9E5: 27 06 BEQ REL Branch=> $F9ED if Z=1 $F9E7: 8D 4D BSR REL Branch to Subr=> $FA36 $F9E9: 25 E1 BCS REL Branch=> $F9CC if C=1 $F9EB: 38 PULX IMP SP<=SP-2;<=IX $F9EC: 39 RTS IMP Return from Subroutine $F9ED: BD E164 JSR EXT Jump to Subr=>Address $E164 $F9F0: 20 DA BRA REL Branch=> $F9CC if (Always) $F9F2: CE 0140 LDX IMM IX<=M:M+1 $F9F5: A6 25 LDAA IND A<=M $F9F7: 81 0B CMPA IMM A-M $F9F9: 26 12 BNE REL Branch=> $FA0D if Z=0 $F9FB: E6 27 LDAB IND B<=M $F9FD: E1 26 CMPB IND B-M $F9FF: 24 09 BCC REL Branch=> $FA0A if C=0 $FA01: 6C 27 INC IND M<=M+1 $FA03: EE 23 LDX IND IX<=M:M+1 $FA05: 3A ABX IMP IX<=IX+B $FA06: A6 00 LDAA IND A<=M $FA08: 0C CLC IMP C<=0 $FA09: 39 RTS IMP Return from Subroutine $FA0A: 61 FE25 AIM IND M<=IM&M $FA0D: 0D SEC IMP C<=1 $FA0E: 39 RTS IMP Return from Subroutine $FA0F: 7F 0167 CLR EXT M<=0 $FA12: 5D TSTB IMP M-0 $FA13: 27 1D BEQ REL Branch=> $FA32 if Z=1 $FA15: 86 12 LDAA IMM A<=M $FA17: 11 CBA IMP A-B $FA18: 25 01 BCS REL Branch=> $FA1B if C=1 $FA1A: 17 TBA IMP A<=B $FA1B: B7 0166 STAA EXT M<=A $FA1E: 5F CLRB IMP M<=0 $FA1F: 3C PSHX IMP =>IX;SP<=SP-2 $FA20: 3A ABX IMP IX<=IX+B $FA21: A6 00 LDAA IND A<=M $FA23: CE 016F LDX IMM IX<=M:M+1 $FA26: 3A ABX IMP IX<=IX+B $FA27: A7 00 STAA IND M<=A $FA29: 38 PULX IMP SP<=SP-2;<=IX $FA2A: 5C INCB IMP M<=M+1 $FA2B: F1 0166 CMPB EXT B-M $FA2E: 26 EF BNE REL Branch=> $FA1F if Z=0 $FA30: C6 0A LDAB IMM B<=M $FA32: F7 0165 STAB EXT M<=B $FA35: 39 RTS IMP Return from Subroutine $FA36: 8D 0C BSR REL Branch to Subr=> $FA44 $FA38: 25 09 BCS REL Branch=> $FA43 if C=1 $FA3A: 81 FE CMPA IMM A-M $FA3C: 26 1F BNE REL Branch=> $FA5D if Z=0 $FA3E: 8D 04 BSR REL Branch to Subr=> $FA44 $FA40: 16 TAB IMP B<=A $FA41: 86 FE LDAA IMM A<=M $FA43: 39 RTS IMP Return from Subroutine $FA44: 0F SEI IMP I<=1 $FA45: F6 0168 LDAB EXT B<=M $FA48: 0D SEC IMP C<=1 $FA49: 27 13 BEQ REL Branch=> $FA5E if Z=1 $FA4B: CE 0181 LDX IMM IX<=M:M+1 $FA4E: A6 00 LDAA IND A<=M $FA50: 36 PSHA IMP =>A;SP<=SP-1 $FA51: A6 01 LDAA IND A<=M $FA53: A7 00 STAA IND M<=A $FA55: 08 INX IMP IX<=IX+1 $FA56: 5A DECB IMP M<=M-1 $FA57: 26 F8 BNE REL Branch=> $FA51 if Z=0 $FA59: 32 PULA IMP SP<=SP+1;<=A $FA5A: 7A 0168 DEC EXT M<=M-1 $FA5D: 0C CLC IMP C<=0 $FA5E: 0E CLI IMP I<=0 $FA5F: 39 RTS IMP Return from Subroutine $FA60: 37 PSHB IMP =>B;SP<=SP-1 $FA61: F6 0168 LDAB EXT B<=M $FA64: 81 FE CMPA IMM A-M $FA66: 26 01 BNE REL Branch=> $FA69 if Z=0 $FA68: 5C INCB IMP M<=M+1 $FA69: F1 0140 CMPB EXT B-M $FA6C: 33 PULB IMP SP<=SP+1;<=B $FA6D: 2A 9E BPL REL Branch=> $FA0D if N=0 $FA6F: 81 FE CMPA IMM A-M $FA71: 26 04 BNE REL Branch=> $FA77 if Z=0 $FA73: 37 PSHB IMP =>B;SP<=SP-1 $FA74: 8D 01 BSR REL Branch to Subr=> $FA77 $FA76: 32 PULA IMP SP<=SP+1;<=A $FA77: F6 0168 LDAB EXT B<=M $FA7A: CE 0181 LDX IMM IX<=M:M+1 $FA7D: 3A ABX IMP IX<=IX+B $FA7E: 7C 0168 INC EXT M<=M+1 $FA81: A7 00 STAA IND M<=A $FA83: 0C CLC IMP C<=0 $FA84: 39 RTS IMP Return from Subroutine ' KEYFNT C'D...