@@@@@@@@ I/O MAIN (POWER ON PROCESS) @@@@@@@@ $E000: 0F SEI IMP I<=1 $E001: 8E 04AF LDS IMM SP<=M:M+1 $E004: 86 00 LDAA IMM A<=M $E006: 97 00 STAA DIR M<=A $E008: 86 04 LDAA IMM A<=M $E00A: 97 03 STAA DIR M<=A $E00C: 86 16 LDAA IMM A<=M $E00E: 97 01 STAA DIR M<=A $E010: 86 04 LDAA IMM A<=M $E012: 97 10 STAA DIR M<=A $E014: 86 0A LDAA IMM A<=M $E016: 97 11 STAA DIR M<=A $E018: 86 02 LDAA IMM A<=M $E01A: 97 4B STAA DIR M<=A $E01C: 72 804D OIM EXT M<=IM|M $E01F: 4F CLRA IMP M<=0 $E020: 97 14 STAA DIR M<=A $E022: 4C INCA IMP M<=M+1 $E023: 97 08 STAA DIR M<=A $E025: 8D 5E BSR REL Branch to Subr=> $E085 $E027: C6 17 LDAB IMM B<=M $E029: CE FFB5 LDX IMM IX<=M:M+1 $E02C: 3A ABX IMP IX<=IX+B $E02D: A6 00 LDAA IND A<=M $E02F: CE 0100 LDX IMM IX<=M:M+1 $E032: 3A ABX IMP IX<=IX+B $E033: A7 00 STAA IND M<=A $E035: 5A DECB IMP M<=M-1 $E036: 2A F1 BPL REL Branch=> $E029 if N=0 $E038: 71 CF7F AIM EXT M<=IM&M $E03B: 71 7F7E AIM EXT M<=IM&M $E03E: CE ED10 LDX IMM IX<=M:M+1 $E041: FF 0219 STX EXT M:M+1<=IX $E044: 4F CLRA IMP M<=0 $E045: BD F298 JSR EXT Jump to Subr=>Address $F298 $E048: CC FE28 LDD IMM A:B<=M:M+1 $E04B: BD E48A JSR EXT Jump to Subr=>Address $E48A $E04E: 8D 57 BSR REL Branch to Subr=> $E0A7 $E050: 4F CLRA IMP M<=0 $E051: 5F CLRB IMP M<=0 $E052: DD 7A STD DIR M:M+1<=A:B $E054: 7B 4028 TIM EXT IM&M $E057: 26 13 BNE REL Branch=> $E06C if Z=0 $E059: 96 4C LDAA DIR A<=M $E05B: 2A 7A BPL REL Branch=> $E0D7 if N=0 $E05D: D6 4E LDAB DIR B<=M $E05F: C4 0F ANDB IMM B<=B&M $E061: 27 74 BEQ REL Branch=> $E0D7 if Z=1 $E063: C1 03 CMPB IMM B-M $E065: 2A 70 BPL REL Branch=> $E0D7 if N=0 $E067: FE 0130 LDX EXT IX<=M:M+1 $E06A: AD 00 JSR IND Jump to Subr=>Address $E06C: 7F 004E CLR EXT M<=0 $E06F: CE E0D7 LDX IMM IX<=M:M+1 $E072: FF 0130 STX EXT M:M+1<=IX $E075: FF 0132 STX EXT M:M+1<=IX $E078: 20 03 BRA REL Branch=> $E07D if (Always) $E07A: 8E 04AF LDS IMM SP<=M:M+1 $E07D: 4F CLRA IMP M<=0 $E07E: 97 7B STAA DIR M<=A $E080: 8D 21 BSR REL Branch to Subr=> $E0A3 $E082: 7E DFFD JMP EXT Jump=>Address $DFFD $E085: 7B 2011 TIM EXT IM&M $E088: 27 FB BEQ REL Branch=> $E085 if Z=1 $E08A: 86 00 LDAA IMM A<=M $E08C: 97 13 STAA DIR M<=A $E08E: CE 01F4 LDX IMM IX<=M:M+1 $E091: 09 DEX IMP IX<=IX-1 $E092: 26 FD BNE REL Branch=> $E091 if Z=0 $E094: 96 11 LDAA DIR A<=M $E096: 2A ED BPL REL Branch=> $E085 if N=0 $E098: 96 12 LDAA DIR A<=M $E09A: 81 01 CMPA IMM A-M $E09C: 26 E7 BNE REL Branch=> $E085 if Z=0 $E09E: 39 RTS IMP Return from Subroutine $E09F: 8D 06 BSR REL Branch to Subr=> $E0A7 $E0A1: 0E CLI IMP I<=0 $E0A2: 39 RTS IMP Return from Subroutine $E0A3: 8D 14 BSR REL Branch to Subr=> $E0B9 $E0A5: 0E CLI IMP I<=0 $E0A6: 39 RTS IMP Return from Subroutine $E0A7: 0F SEI IMP I<=1 $E0A8: BD F979 JSR EXT Jump to Subr=>Address $F979 $E0AB: BD F534 JSR EXT Jump to Subr=>Address $F534 $E0AE: 71 F07A AIM EXT M<=IM&M $E0B1: 86 02 LDAA IMM A<=M $E0B3: BD E418 JSR EXT Jump to Subr=>Address $E418 $E0B6: BD EB3E JSR EXT Jump to Subr=>Address $EB3E $E0B9: 4F CLRA IMP M<=0 $E0BA: 5F CLRB IMP M<=0 $E0BB: DD 7C STD DIR M:M+1<=A:B $E0BD: F7 01D5 STAB EXT M<=B $E0C0: F7 01EC STAB EXT M<=B $E0C3: F7 0208 STAB EXT M<=B $E0C6: 71 F87A AIM EXT M<=IM&M $E0C9: 7E E2EA JMP EXT Jump=>Address $E2EA $E0CC: 71 7F7C AIM EXT M<=IM&M $E0CF: 71 7F7D AIM EXT M<=IM&M $E0D2: BD E4BF JSR EXT Jump to Subr=>Address $E4BF $E0D5: 0E CLI IMP I<=0 $E0D6: 39 RTS IMP Return from Subroutine $E0D7: 0F SEI IMP I<=1 $E0D8: 8D DF BSR REL Branch to Subr=> $E0B9 $E0DA: 86 0D LDAA IMM A<=M $E0DC: BD E407 JSR EXT Jump to Subr=>Address $E407 $E0DF: 25 F7 BCS REL Branch=> $E0D8 if C=1 $E0E1: 4A DECA IMP M<=M-1 $E0E2: 26 F4 BNE REL Branch=> $E0D8 if Z=0 $E0E4: 86 AA LDAA IMM A<=M $E0E6: BD E418 JSR EXT Jump to Subr=>Address $E418 $E0E9: 20 FE BRA REL Branch=> $E0E9 if (Always) $E0EB: 0F SEI IMP I<=1 $E0EC: 72 1011 OIM EXT M<=IM|M $E0EF: 72 0403 OIM EXT M<=IM|M $E0F2: CC 8000 LDD IMM A:B<=M:M+1 $E0F5: BD E32F JSR EXT Jump to Subr=>Address $E32F $E0F8: 7B 2011 TIM EXT IM&M $E0FB: 27 FB BEQ REL Branch=> $E0F8 if Z=1 $E0FD: 86 0C LDAA IMM A<=M $E0FF: 97 13 STAA DIR M<=A $E101: 8D 5A BSR REL Branch to Subr=> $E15D $E103: 96 11 LDAA DIR A<=M $E105: 2A 06 BPL REL Branch=> $E10D if N=0 $E107: 96 12 LDAA DIR A<=M $E109: 81 02 CMPA IMM A-M $E10B: 27 19 BEQ REL Branch=> $E126 if Z=1 $E10D: CC 0C02 LDD IMM A:B<=M:M+1 $E110: 7B 2011 TIM EXT IM&M $E113: 27 FB BEQ REL Branch=> $E110 if Z=1 $E115: 97 13 STAA DIR M<=A $E117: 5A DECB IMP M<=M-1 $E118: 26 F6 BNE REL Branch=> $E110 if Z=0 $E11A: 8D 41 BSR REL Branch to Subr=> $E15D $E11C: 96 11 LDAA DIR A<=M $E11E: 2A D8 BPL REL Branch=> $E0F8 if N=0 $E120: 96 12 LDAA DIR A<=M $E122: 81 02 CMPA IMM A-M $E124: 26 D2 BNE REL Branch=> $E0F8 if Z=0 $E126: 8D 35 BSR REL Branch to Subr=> $E15D $E128: 71 7F7C AIM EXT M<=IM&M $E12B: 71 7F7C AIM EXT M<=IM&M $E12E: DC 11 LDD DIR A:B<=M:M+1 $E130: 4F CLRA IMP M<=0 $E131: BD E418 JSR EXT Jump to Subr=>Address $E418 $E134: 96 79 LDAA DIR A<=M $E136: 2A 04 BPL REL Branch=> $E13C if N=0 $E138: 4F CLRA IMP M<=0 $E139: BD E515 JSR EXT Jump to Subr=>Address $E515 $E13C: 7B 0479 TIM EXT IM&M $E13F: 27 0F BEQ REL Branch=> $E150 if Z=1 $E141: 7B 047C TIM EXT IM&M $E144: 27 05 BEQ REL Branch=> $E14B if Z=1 $E146: 86 7B LDAA IMM A<=M $E148: BD E418 JSR EXT Jump to Subr=>Address $E418 $E14B: 86 77 LDAA IMM A<=M $E14D: BD E418 JSR EXT Jump to Subr=>Address $E418 $E150: 72 807C OIM EXT M<=IM|M $E153: 72 807D OIM EXT M<=IM|M $E156: 71 C87C AIM EXT M<=IM&M $E159: 7F 01C5 CLR EXT M<=0 $E15C: 39 RTS IMP Return from Subroutine $E15D: CE 01F4 LDX IMM IX<=M:M+1 $E160: 09 DEX IMP IX<=IX-1 $E161: 26 FD BNE REL Branch=> $E160 if Z=0 $E163: 39 RTS IMP Return from Subroutine $E164: 0F SEI IMP I<=1 $E165: 36 PSHA IMP =>A;SP<=SP-1 $E166: 96 4F LDAA DIR A<=M $E168: 8A 10 ORAA IMM A<=A|M $E16A: 97 26 STAA DIR M<=A $E16C: 7D 002C TST EXT M-0 $E16F: 1A SLP IMP Sleep $E170: 84 EF ANDA IMM A<=A&M $E172: 97 26 STAA DIR M<=A $E174: 96 4F LDAA DIR A<=M $E176: 97 26 STAA DIR M<=A $E178: 32 PULA IMP SP<=SP+1;<=A $E179: 0E CLI IMP I<=0 $E17A: 39 RTS IMP Return from Subroutine ' END @@@@@@@@ I/O UTILITY ROUTINE @@@@@@@@ $E17B: 86 40 LDAA IMM A<=M $E17D: 97 7B STAA DIR M<=A $E17F: 5F CLRB IMP M<=0 $E180: BD F56A JSR EXT Jump to Subr=>Address $F56A $E183: C6 36 LDAB IMM B<=M $E185: CE E222 LDX IMM IX<=M:M+1 $E188: BD F56A JSR EXT Jump to Subr=>Address $F56A $E18B: CE 0002 LDX IMM IX<=M:M+1 $E18E: 86 3D LDAA IMM A<=M $E190: BD F470 JSR EXT Jump to Subr=>Address $F470 $E193: BD F9CB JSR EXT Jump to Subr=>Address $F9CB $E196: 81 08 CMPA IMM A-M $E198: 27 E1 BEQ REL Branch=> $E17B if Z=1 $E19A: 81 0D CMPA IMM A-M $E19C: 26 F2 BNE REL Branch=> $E190 if Z=0 $E19E: 5F CLRB IMP M<=0 $E19F: FE FFDA LDX EXT IX<=M:M+1 $E1A2: 37 PSHB IMP =>B;SP<=SP-1 $E1A3: 3C PSHX IMP =>IX;SP<=SP-2 $E1A4: 58 ASLB IMP C<=########<=0 $E1A5: 3A ABX IMP IX<=IX+B $E1A6: EC 29 LDD IND A:B<=M:M+1 $E1A8: BD F425 JSR EXT Jump to Subr=>Address $F425 $E1AB: 38 PULX IMP SP<=SP-2;<=IX $E1AC: 33 PULB IMP SP<=SP+1;<=B $E1AD: 26 CC BNE REL Branch=> $E17B if Z=0 $E1AF: 3A ABX IMP IX<=IX+B $E1B0: A7 05 STAA IND M<=A $E1B2: 5C INCB IMP M<=M+1 $E1B3: C1 06 CMPB IMM B-M $E1B5: 26 E8 BNE REL Branch=> $E19F if Z=0 $E1B7: 0F SEI IMP I<=1 $E1B8: 86 2F LDAA IMM A<=M $E1BA: 97 4A STAA DIR M<=A $E1BC: 86 FF LDAA IMM A<=M $E1BE: 97 41 STAA DIR M<=A $E1C0: 97 43 STAA DIR M<=A $E1C2: 97 45 STAA DIR M<=A $E1C4: 8D 1D BSR REL Branch to Subr=> $E1E3 $E1C6: CE 004D LDX IMM IX<=M:M+1 $E1C9: 08 INX IMP IX<=IX+1 $E1CA: CC FF00 LDD IMM A:B<=M:M+1 $E1CD: ED 00 STD IND M:M+1<=A:B $E1CF: A8 00 EORA IND A<=A^M $E1D1: 6F 00 CLR IND M<=0 $E1D3: 5A DECB IMP M<=M-1 $E1D4: E7 01 STAB IND M<=B $E1D6: AA 00 ORAA IND A<=A|M $E1D8: 27 EF BEQ REL Branch=> $E1C9 if Z=1 $E1DA: FF 012C STX EXT M:M+1<=IX $E1DD: FF 0134 STX EXT M:M+1<=IX $E1E0: 7E E000 JMP EXT Jump=>Address $E000 $E1E3: 86 82 LDAA IMM A<=M $E1E5: 97 4B STAA DIR M<=A $E1E7: 5F CLRB IMP M<=0 $E1E8: 3C PSHX IMP =>IX;SP<=SP-2 $E1E9: 3A ABX IMP IX<=IX+B $E1EA: A6 00 LDAA IND A<=M $E1EC: 8D 24 BSR REL Branch to Subr=> $E212 $E1EE: A7 00 STAA IND M<=A $E1F0: 38 PULX IMP SP<=SP-2;<=IX $E1F1: 5C INCB IMP M<=M+1 $E1F2: C1 06 CMPB IMM B-M $E1F4: 26 F2 BNE REL Branch=> $E1E8 if Z=0 $E1F6: 71 7F4B AIM EXT M<=IM&M $E1F9: 39 RTS IMP Return from Subroutine $E1FA: 0F SEI IMP I<=1 $E1FB: 96 4A LDAA DIR A<=M $E1FD: 2B FC BMI REL Branch=> $E1FB if N=1 $E1FF: 5F CLRB IMP M<=0 $E200: 3C PSHX IMP =>IX;SP<=SP-2 $E201: 8D 0F BSR REL Branch to Subr=> $E212 $E203: A6 00 LDAA IND A<=M $E205: 38 PULX IMP SP<=SP-2;<=IX $E206: 3C PSHX IMP =>IX;SP<=SP-2 $E207: 3A ABX IMP IX<=IX+B $E208: A7 00 STAA IND M<=A $E20A: 38 PULX IMP SP<=SP-2;<=IX $E20B: 5C INCB IMP M<=M+1 $E20C: C1 06 CMPB IMM B-M $E20E: 26 F0 BNE REL Branch=> $E200 if Z=0 $E210: 0E CLI IMP I<=0 $E211: 39 RTS IMP Return from Subroutine $E212: CE E21B LDX IMM IX<=M:M+1 $E215: 3A ABX IMP IX<=IX+B $E216: EE 00 LDX IND IX<=M:M+1 $E218: 18 XGDX IMP A:B<==>IX $E219: 4F CLRA IMP M<=0 $E21A: 18 XGDX IMP A:B<==>IX $E21B: 39 RTS IMP Return from Subroutine $E12C--$E12F: NUL DATA 48 47 49 44 $E220--$E227: NUL DATA 42 40 00 03 50 72 65 73 $E228--$E22F: NUL DATA 73 20 42 52 45 41 4B 20 $E230--$E237: NUL DATA 74 6F 20 61 62 6F 72 74 $E238--$E23F: NUL DATA 45 6E 74 65 72 20 44 41 $E240--$E247: NUL DATA 54 45 20 61 6E 64 20 54 $E248--$E24F: NUL DATA 49 4D 45 20 20 4D 4D 44 $E250--$E257: NUL DATA 44 59 59 48 48 4D 4D 53 $E258--$E259: NUL DATA 53 0D ' END @@@@@@@@ MICROPRINTER ROUTINE @@@@@@@@ $E25A: 8D 72 BSR REL Branch to Subr=> $E2CE $E25C: DF 52 STX DIR M:M+1<=IX $E25E: 7F 0051 CLR EXT M<=0 $E261: 86 18 LDAA IMM A<=M $E263: 97 50 STAA DIR M<=A $E265: DE 52 LDX DIR IX<=M:M+1 $E267: C6 18 LDAB IMM B<=M $E269: D0 50 SUBB DIR B<=B-M $E26B: 3A ABX IMP IX<=IX+B $E26C: A6 00 LDAA IND A<=M $E26E: CE 0190 LDX IMM IX<=M:M+1 $E271: BD FA85 JSR EXT Jump to Subr=>Address $FA85 $E274: 96 51 LDAA DIR A<=M $E276: CE 0190 LDX IMM IX<=M:M+1 $E279: 5F CLRB IMP M<=0 $E27A: 64 05 LSR IND 0=>########=>C $E27C: 59 ROLB IMP C<=########<=C $E27D: 64 04 LSR IND 0=>########=>C $E27F: 59 ROLB IMP C<=########<=C $E280: 64 03 LSR IND 0=>########=>C $E282: 59 ROLB IMP C<=########<=C $E283: 64 02 LSR IND 0=>########=>C $E285: 59 ROLB IMP C<=########<=C $E286: 64 01 LSR IND 0=>########=>C $E288: 59 ROLB IMP C<=########<=C $E289: 64 00 LSR IND 0=>########=>C $E28B: 59 ROLB IMP C<=########<=C $E28C: 4A DECA IMP M<=M-1 $E28D: 2A E7 BPL REL Branch=> $E276 if N=0 $E28F: 86 10 LDAA IMM A<=M $E291: BD E40D JSR EXT Jump to Subr=>Address $E40D $E294: 7A 0050 DEC EXT M<=M-1 $E297: 26 CC BNE REL Branch=> $E265 if Z=0 $E299: 7C 0051 INC EXT M<=M+1 $E29C: 7B 0851 TIM EXT IM&M $E29F: 27 C0 BEQ REL Branch=> $E261 if Z=1 $E2A1: 86 02 LDAA IMM A<=M $E2A3: 20 02 BRA REL Branch=> $E2A7 if (Always) $E2A5: 8D 27 BSR REL Branch to Subr=> $E2CE $E2A7: 16 TAB IMP B<=A $E2A8: 86 11 LDAA IMM A<=M $E2AA: BD E40D JSR EXT Jump to Subr=>Address $E40D $E2AD: 71 FE7C AIM EXT M<=IM&M $E2B0: BD E4BF JSR EXT Jump to Subr=>Address $E4BF $E2B3: 38 PULX IMP SP<=SP-2;<=IX $E2B4: 32 PULA IMP SP<=SP+1;<=A $E2B5: 33 PULB IMP SP<=SP+1;<=B $E2B6: 39 RTS IMP Return from Subroutine $E2B7: 8D 15 BSR REL Branch to Subr=> $E2CE $E2B9: 86 18 LDAA IMM A<=M $E2BB: 97 50 STAA DIR M<=A $E2BD: 86 10 LDAA IMM A<=M $E2BF: E6 00 LDAB IND B<=M $E2C1: BD E40D JSR EXT Jump to Subr=>Address $E40D $E2C4: 25 06 BCS REL Branch=> $E2CC if C=1 $E2C6: 08 INX IMP IX<=IX+1 $E2C7: 7A 0050 DEC EXT M<=M-1 $E2CA: 26 F1 BNE REL Branch=> $E2BD if Z=0 $E2CC: 20 DF BRA REL Branch=> $E2AD if (Always) $E2CE: 3C PSHX IMP =>IX;SP<=SP-2 $E2CF: 30 TSX IMP IX<=SP+1 $E2D0: EE 02 LDX IND IX<=M:M+1 $E2D2: 3C PSHX IMP =>IX;SP<=SP-2 $E2D3: 30 TSX IMP IX<=SP+1 $E2D4: ED 04 STD IND M:M+1<=A:B $E2D6: BD F716 JSR EXT Jump to Subr=>Address $F716 $E2D9: 30 TSX IMP IX<=SP+1 $E2DA: EC 04 LDD IND A:B<=M:M+1 $E2DC: EE 02 LDX IND IX<=M:M+1 $E2DE: 7D 014E TST EXT M-0 $E2E1: 2B 03 BMI REL Branch=> $E2E6 if N=1 $E2E3: 38 PULX IMP SP<=SP-2;<=IX $E2E4: 20 CD BRA REL Branch=> $E2B3 if (Always) $E2E6: 72 017C OIM EXT M<=IM|M $E2E9: 39 RTS IMP Return from Subroutine $E2EA: 3C PSHX IMP =>IX;SP<=SP-2 $E2EB: 37 PSHB IMP =>B;SP<=SP-1 $E2EC: 4F CLRA IMP M<=0 $E2ED: 20 1F BRA REL Branch=> $E30E if (Always) $E2EF: 3C PSHX IMP =>IX;SP<=SP-2 $E2F0: 37 PSHB IMP =>B;SP<=SP-1 $E2F1: 81 20 CMPA IMM A-M $E2F3: 24 0A BCC REL Branch=> $E2FF if C=0 $E2F5: 81 0A CMPA IMM A-M $E2F7: 27 0D BEQ REL Branch=> $E306 if Z=1 $E2F9: 81 0D CMPA IMM A-M $E2FB: 27 1C BEQ REL Branch=> $E319 if Z=1 $E2FD: 20 29 BRA REL Branch=> $E328 if (Always) $E2FF: F6 0196 LDAB EXT B<=M $E302: C1 18 CMPB IMM B-M $E304: 25 14 BCS REL Branch=> $E31A if C=1 $E306: CE 0197 LDX IMM IX<=M:M+1 $E309: BD E25A JSR EXT Jump to Subr=>Address $E25A $E30C: 25 1B BCS REL Branch=> $E329 if C=1 $E30E: 36 PSHA IMP =>A;SP<=SP-1 $E30F: CE 0197 LDX IMM IX<=M:M+1 $E312: CC 2018 LDD IMM A:B<=M:M+1 $E315: BD F2B3 JSR EXT Jump to Subr=>Address $F2B3 $E318: 32 PULA IMP SP<=SP+1;<=A $E319: 5F CLRB IMP M<=0 $E31A: CE 0197 LDX IMM IX<=M:M+1 $E31D: 3A ABX IMP IX<=IX+B $E31E: 81 20 CMPA IMM A-M $E320: 25 03 BCS REL Branch=> $E325 if C=1 $E322: A7 00 STAA IND M<=A $E324: 5C INCB IMP M<=M+1 $E325: F7 0196 STAB EXT M<=B $E328: 0C CLC IMP C<=0 $E329: 33 PULB IMP SP<=SP+1;<=B $E32A: 38 PULX IMP SP<=SP-2;<=IX $E32B: 39 RTS IMP Return from Subroutine $E32C: CC 0808 LDD IMM A:B<=M:M+1 $E32F: 3C PSHX IMP =>IX;SP<=SP-2 $E330: 18 XGDX IMP A:B<==>IX $E331: 07 TPA IMP A<=CCR $E332: D6 50 LDAB DIR B<=M $E334: 0F SEI IMP I<=1 $E335: 18 XGDX IMP A:B<==>IX $E336: 37 PSHB IMP =>B;SP<=SP-1 $E337: 97 50 STAA DIR M<=A $E339: 43 COMA IMP M<= ~M $E33A: 94 4F ANDA DIR A<=A&M $E33C: D4 50 ANDB DIR B<=B&M $E33E: 1B ABA IMP A<=A+B $E33F: 97 4F STAA DIR M<=A $E341: 97 26 STAA DIR M<=A $E343: 96 50 LDAA DIR A<=M $E345: 33 PULB IMP SP<=SP+1;<=B $E346: 18 XGDX IMP A:B<==>IX $E347: D7 50 STAB DIR M<=B $E349: 06 TAP IMP CCR<=A $E34A: 18 XGDX IMP A:B<==>IX $E34B: 38 PULX IMP SP<=SP-2;<=IX $E34C: 39 RTS IMP Return from Subroutine $E34D: BD E2CE JSR EXT Jump to Subr=>Address $E2CE $E350: CE 0001 LDX IMM IX<=M:M+1 $E353: 3C PSHX IMP =>IX;SP<=SP-2 $E354: 3C PSHX IMP =>IX;SP<=SP-2 $E355: 30 TSX IMP IX<=SP+1 $E356: 72 037D OIM EXT M<=IM|M $E359: CC 0140 LDD IMM A:B<=M:M+1 $E35C: ED 00 STD IND M:M+1<=A:B $E35E: 0F SEI IMP I<=1 $E35F: CC 0F08 LDD IMM A:B<=M:M+1 $E362: EA 03 ORAB IND B<=B|M $E364: 8D C9 BSR REL Branch to Subr=> $E32F $E366: 86 60 LDAA IMM A<=M $E368: BD F515 JSR EXT Jump to Subr=>Address $F515 $E36B: A6 02 LDAA IND A<=M $E36D: 8A 80 ORAA IMM A<=A|M $E36F: BD F515 JSR EXT Jump to Subr=>Address $F515 $E372: 8D B8 BSR REL Branch to Subr=> $E32C $E374: D6 28 LDAB DIR B<=M $E376: 2A FC BPL REL Branch=> $E374 if N=0 $E378: 5F CLRB IMP M<=0 $E379: 8D B4 BSR REL Branch to Subr=> $E32F $E37B: C6 80 LDAB IMM B<=M $E37D: 96 2A LDAA DIR A<=M $E37F: E1 00 CMPB IND B-M $E381: 26 05 BNE REL Branch=> $E388 if Z=0 $E383: 96 28 LDAA DIR A<=M $E385: 48 ASLA IMP C<=########<=0 $E386: 66 01 ROR IND C=>########=>C $E388: 54 LSRB IMP 0=>########=>C $E389: 26 F2 BNE REL Branch=> $E37D if Z=0 $E38B: E6 01 LDAB IND B<=M $E38D: 54 LSRB IMP 0=>########=>C $E38E: 24 09 BCC REL Branch=> $E399 if C=0 $E390: 54 LSRB IMP 0=>########=>C $E391: 86 10 LDAA IMM A<=M $E393: 8D 78 BSR REL Branch to Subr=> $E40D $E395: 86 40 LDAA IMM A<=M $E397: A7 01 STAA IND M<=A $E399: 6C 02 INC IND M<=M+1 $E39B: A6 02 LDAA IND A<=M $E39D: 84 3F ANDA IMM A<=A&M $E39F: 81 28 CMPA IMM A-M $E3A1: 26 CF BNE REL Branch=> $E372 if Z=0 $E3A3: 61 4002 AIM IND M<=IM&M $E3A6: 8D 84 BSR REL Branch to Subr=> $E32C $E3A8: 86 67 LDAA IMM A<=M $E3AA: BD F515 JSR EXT Jump to Subr=>Address $F515 $E3AD: 6C 03 INC IND M<=M+1 $E3AF: A6 03 LDAA IND A<=M $E3B1: 81 04 CMPA IMM A-M $E3B3: 27 04 BEQ REL Branch=> $E3B9 if Z=1 $E3B5: 81 07 CMPA IMM A-M $E3B7: 26 A5 BNE REL Branch=> $E35E if Z=0 $E3B9: C6 04 LDAB IMM B<=M $E3BB: 37 PSHB IMP =>B;SP<=SP-1 $E3BC: 86 10 LDAA IMM A<=M $E3BE: 5F CLRB IMP M<=0 $E3BF: 8D 4C BSR REL Branch to Subr=> $E40D $E3C1: 33 PULB IMP SP<=SP+1;<=B $E3C2: 25 1D BCS REL Branch=> $E3E1 if C=1 $E3C4: 5A DECB IMP M<=M-1 $E3C5: 26 F4 BNE REL Branch=> $E3BB if Z=0 $E3C7: 0E CLI IMP I<=0 $E3C8: A6 03 LDAA IND A<=M $E3CA: 80 03 SUBA IMM A<=A-M $E3CC: A7 03 STAA IND M<=A $E3CE: 68 00 ASL IND C<=########<=0 $E3D0: 26 E5 BNE REL Branch=> $E3B7 if Z=0 $E3D2: 65 4002 EIM IND M<=IM^M $E3D5: 26 82 BNE REL Branch=> $E359 if Z=0 $E3D7: A6 03 LDAA IND A<=M $E3D9: 8B 03 ADDA IMM A<=A+M $E3DB: A7 03 STAA IND M<=A $E3DD: 81 07 CMPA IMM A-M $E3DF: 26 F4 BNE REL Branch=> $E3D5 if Z=0 $E3E1: CC 0F80 LDD IMM A:B<=M:M+1 $E3E4: BD E32F JSR EXT Jump to Subr=>Address $E32F $E3E7: 38 PULX IMP SP<=SP-2;<=IX $E3E8: 38 PULX IMP SP<=SP-2;<=IX $E3E9: 71 FC7D AIM EXT M<=IM&M $E3EC: 71 FE7C AIM EXT M<=IM&M $E3EF: 38 PULX IMP SP<=SP-2;<=IX $E3F0: 20 10 BRA REL Branch=> $E402 if (Always) $E3F2: 37 PSHB IMP =>B;SP<=SP-1 $E3F3: 36 PSHA IMP =>A;SP<=SP-1 $E3F4: 72 107C OIM EXT M<=IM|M $E3F7: 86 30 LDAA IMM A<=M $E3F9: 8D 1D BSR REL Branch to Subr=> $E418 $E3FB: 32 PULA IMP SP<=SP+1;<=A $E3FC: 36 PSHA IMP =>A;SP<=SP-1 $E3FD: 8D 0E BSR REL Branch to Subr=> $E40D $E3FF: 71 EF7C AIM EXT M<=IM&M $E402: 32 PULA IMP SP<=SP+1;<=A $E403: 33 PULB IMP SP<=SP+1;<=B $E404: 7E E4BF JMP EXT Jump=>Address $E4BF $E407: 36 PSHA IMP =>A;SP<=SP-1 $E408: 71 EF11 AIM EXT M<=IM&M $E40B: 20 45 BRA REL Branch=> $E452 if (Always) $E40D: 8D 09 BSR REL Branch to Subr=> $E418 $E40F: 25 06 BCS REL Branch=> $E417 if C=1 $E411: 36 PSHA IMP =>A;SP<=SP-1 $E412: 17 TBA IMP A<=B $E413: 8D 03 BSR REL Branch to Subr=> $E418 $E415: 16 TAB IMP B<=A $E416: 32 PULA IMP SP<=SP+1;<=A $E417: 39 RTS IMP Return from Subroutine $E418: 36 PSHA IMP =>A;SP<=SP-1 $E419: 72 0403 OIM EXT M<=IM|M $E41C: 96 11 LDAA DIR A<=M $E41E: 96 12 LDAA DIR A<=M $E420: 72 027D OIM EXT M<=IM|M $E423: 71 EF11 AIM EXT M<=IM&M $E426: 8D 47 BSR REL Branch to Subr=> $E46F $E428: 25 42 BCS REL Branch=> $E46C if C=1 $E42A: 96 7A LDAA DIR A<=M $E42C: 85 03 BITA IMM A&M $E42E: 27 22 BEQ REL Branch=> $E452 if Z=1 $E430: 85 04 BITA IMM A&M $E432: 26 1E BNE REL Branch=> $E452 if Z=0 $E434: 7B 2011 TIM EXT IM&M $E437: 27 FB BEQ REL Branch=> $E434 if Z=1 $E439: 72 047A OIM EXT M<=IM|M $E43C: 86 46 LDAA IMM A<=M $E43E: 97 13 STAA DIR M<=A $E440: 86 64 LDAA IMM A<=M $E442: 4A DECA IMP M<=M-1 $E443: 26 FD BNE REL Branch=> $E442 if Z=0 $E445: 8D 28 BSR REL Branch to Subr=> $E46F $E447: 25 23 BCS REL Branch=> $E46C if C=1 $E449: 96 11 LDAA DIR A<=M $E44B: 2A F8 BPL REL Branch=> $E445 if N=0 $E44D: 96 12 LDAA DIR A<=M $E44F: 4A DECA IMP M<=M-1 $E450: 26 E2 BNE REL Branch=> $E434 if Z=0 $E452: 8D 1B BSR REL Branch to Subr=> $E46F $E454: 25 16 BCS REL Branch=> $E46C if C=1 $E456: 7B 2011 TIM EXT IM&M $E459: 27 F7 BEQ REL Branch=> $E452 if Z=1 $E45B: 32 PULA IMP SP<=SP+1;<=A $E45C: 97 13 STAA DIR M<=A $E45E: 8D 0F BSR REL Branch to Subr=> $E46F $E460: 25 06 BCS REL Branch=> $E468 if C=1 $E462: 96 11 LDAA DIR A<=M $E464: 2A F8 BPL REL Branch=> $E45E if N=0 $E466: 96 12 LDAA DIR A<=M $E468: 71 FD7D AIM EXT M<=IM&M $E46B: 39 RTS IMP Return from Subroutine $E46C: 32 PULA IMP SP<=SP+1;<=A $E46D: 20 F9 BRA REL Branch=> $E468 if (Always) $E46F: 7D 007C TST EXT M-0 $E472: 2B 05 BMI REL Branch=> $E479 if N=1 $E474: 7B B07D TIM EXT IM&M $E477: 27 01 BEQ REL Branch=> $E47A if Z=1 $E479: 0D SEC IMP C<=1 $E47A: 39 RTS IMP Return from Subroutine $E47B: 72 0403 OIM EXT M<=IM|M $E47E: 8D EF BSR REL Branch to Subr=> $E46F $E480: 25 07 BCS REL Branch=> $E489 if C=1 $E482: 7B 2011 TIM EXT IM&M $E485: 27 F7 BEQ REL Branch=> $E47E if Z=1 $E487: 97 13 STAA DIR M<=A $E489: 39 RTS IMP Return from Subroutine ' END @@@@@@@@ RS232 ROUTINE @@@@@@@@ $E48A: 37 PSHB IMP =>B;SP<=SP-1 $E48B: 3C PSHX IMP =>IX;SP<=SP-2 $E48C: B7 01B6 STAA EXT M<=A $E48F: 37 PSHB IMP =>B;SP<=SP-1 $E490: C4 0F ANDB IMM B<=B&M $E492: F7 01B5 STAB EXT M<=B $E495: 33 PULB IMP SP<=SP+1;<=B $E496: C4 F0 ANDB IMM B<=B&M $E498: 54 LSRB IMP 0=>########=>C $E499: 54 LSRB IMP 0=>########=>C $E49A: 54 LSRB IMP 0=>########=>C $E49B: CE E4A7 LDX IMM IX<=M:M+1 $E49E: 3A ABX IMP IX<=IX+B $E49F: EE 00 LDX IND IX<=M:M+1 $E4A1: FF 01AF STX EXT M:M+1<=IX $E4A4: 38 PULX IMP SP<=SP-2;<=IX $E4A5: 33 PULB IMP SP<=SP+1;<=B $E4A6: 39 RTS IMP Return from Subroutine $E4A7--$E4A7: NUL DATA 15 $E4A8--$E4AF: NUL DATA D1 10 00 08 00 04 00 02 $E4B0--$E4B6: NUL DATA 00 01 00 00 80 00 40 $E4B7: F6 01B7 LDAB EXT B<=M $E4BA: 86 43 LDAA IMM A<=M $E4BC: BD E418 JSR EXT Jump to Subr=>Address $E418 $E4BF: 36 PSHA IMP =>A;SP<=SP-1 $E4C0: 07 TPA IMP A<=CCR $E4C1: 36 PSHA IMP =>A;SP<=SP-1 $E4C2: 96 7D LDAA DIR A<=M $E4C4: 2B 07 BMI REL Branch=> $E4CD if N=1 $E4C6: 7B 047A TIM EXT IM&M $E4C9: 27 02 BEQ REL Branch=> $E4CD if Z=1 $E4CB: 8D 31 BSR REL Branch to Subr=> $E4FE $E4CD: 32 PULA IMP SP<=SP+1;<=A $E4CE: 06 TAP IMP CCR<=A $E4CF: 32 PULA IMP SP<=SP+1;<=A $E4D0: 39 RTS IMP Return from Subroutine $E4D1: FD 01BC STD EXT M:M+1<=A:B $E4D4: 18 XGDX IMP A:B<==>IX $E4D5: CE 01AF LDX IMM IX<=M:M+1 $E4D8: ED 0F STD IND M:M+1<=A:B $E4DA: ED 11 STD IND M:M+1<=A:B $E4DC: ED 09 STD IND M:M+1<=A:B $E4DE: E3 0D ADDD IND A:B<=A:B+M:M+1 $E4E0: ED 0B STD IND M:M+1<=A:B $E4E2: 4F CLRA IMP M<=0 $E4E3: 5F CLRB IMP M<=0 $E4E4: ED 13 STD IND M:M+1<=A:B $E4E6: 71 F87A AIM EXT M<=IM&M $E4E9: 4C INCA IMP M<=M+1 $E4EA: 7B 087A TIM EXT IM&M $E4ED: 27 20 BEQ REL Branch=> $E50F if Z=1 $E4EF: 86 42 LDAA IMM A<=M $E4F1: BD E418 JSR EXT Jump to Subr=>Address $E418 $E4F4: EC 00 LDD IND A:B<=M:M+1 $E4F6: BD E40D JSR EXT Jump to Subr=>Address $E40D $E4F9: EC 06 LDD IND A:B<=M:M+1 $E4FB: BD E40D JSR EXT Jump to Subr=>Address $E40D $E4FE: 71 1B7A AIM EXT M<=IM&M $E501: 72 417A OIM EXT M<=IM|M $E504: 86 45 LDAA IMM A<=M $E506: BD E407 JSR EXT Jump to Subr=>Address $E407 $E509: 25 04 BCS REL Branch=> $E50F if C=1 $E50B: 72 1011 OIM EXT M<=IM|M $E50E: 4F CLRA IMP M<=0 $E50F: 39 RTS IMP Return from Subroutine $E510: 37 PSHB IMP =>B;SP<=SP-1 $E511: C6 10 LDAB IMM B<=M $E513: 20 03 BRA REL Branch=> $E518 if (Always) $E515: 37 PSHB IMP =>B;SP<=SP-1 $E516: C6 08 LDAB IMM B<=M $E518: 0D SEC IMP C<=1 $E519: 7B B07D TIM EXT IM&M $E51C: 26 3B BNE REL Branch=> $E559 if Z=0 $E51E: 72 0108 OIM EXT M<=IM|M $E521: 4D TSTA IMP M-0 $E522: 27 38 BEQ REL Branch=> $E55C if Z=1 $E524: 37 PSHB IMP =>B;SP<=SP-1 $E525: 96 08 LDAA DIR A<=M $E527: DC 09 LDD DIR A:B<=M:M+1 $E529: C3 0014 ADDD IMM A:B<=A:B+M:M+1 $E52C: DD 0B STD DIR M:M+1<=A:B $E52E: 33 PULB IMP SP<=SP+1;<=B $E52F: 7B 187A TIM EXT IM&M $E532: 26 05 BNE REL Branch=> $E539 if Z=0 $E534: 86 40 LDAA IMM A<=M $E536: BD E418 JSR EXT Jump to Subr=>Address $E418 $E539: 17 TBA IMP A<=B $E53A: 9A 7A ORAA DIR A<=A|M $E53C: 97 7A STAA DIR M<=A $E53E: C1 08 CMPB IMM B-M $E540: 26 16 BNE REL Branch=> $E558 if Z=0 $E542: 71 F87A AIM EXT M<=IM&M $E545: C6 0A LDAB IMM B<=M $E547: 37 PSHB IMP =>B;SP<=SP-1 $E548: DC 0B LDD DIR A:B<=M:M+1 $E54A: F3 01AF ADDD EXT A:B<=A:B+M:M+1 $E54D: DD 0B STD DIR M:M+1<=A:B $E54F: 7B 4008 TIM EXT IM&M $E552: 27 FB BEQ REL Branch=> $E54F if Z=1 $E554: 33 PULB IMP SP<=SP+1;<=B $E555: 5A DECB IMP M<=M-1 $E556: 26 EF BNE REL Branch=> $E547 if Z=0 $E558: 0C CLC IMP C<=0 $E559: 33 PULB IMP SP<=SP+1;<=B $E55A: 20 18 BRA REL Branch=> $E574 if (Always) $E55C: 17 TBA IMP A<=B $E55D: 98 7A EORA DIR A<=A^M $E55F: 84 18 ANDA IMM A<=A&M $E561: 26 05 BNE REL Branch=> $E568 if Z=0 $E563: 86 41 LDAA IMM A<=M $E565: BD E418 JSR EXT Jump to Subr=>Address $E418 $E568: 53 COMB IMP M<= ~M $E569: D4 7A ANDB DIR B<=B&M $E56B: D7 7A STAB DIR M<=B $E56D: 20 E9 BRA REL Branch=> $E558 if (Always) $E56F: 8D 06 BSR REL Branch to Subr=> $E577 $E571: 71 F87A AIM EXT M<=IM&M $E574: 86 00 LDAA IMM A<=M $E576: 39 RTS IMP Return from Subroutine $E577: 71 EF11 AIM EXT M<=IM&M $E57A: 72 0403 OIM EXT M<=IM|M $E57D: 7B 2011 TIM EXT IM&M $E580: 27 FB BEQ REL Branch=> $E57D if Z=1 $E582: 86 46 LDAA IMM A<=M $E584: 97 13 STAA DIR M<=A $E586: 4F CLRA IMP M<=0 $E587: 4A DECA IMP M<=M-1 $E588: 26 FD BNE REL Branch=> $E587 if Z=0 $E58A: 0D SEC IMP C<=1 $E58B: 96 7C LDAA DIR A<=M $E58D: 2B 0C BMI REL Branch=> $E59B if N=1 $E58F: 7B B07D TIM EXT IM&M $E592: 26 07 BNE REL Branch=> $E59B if Z=0 $E594: 96 11 LDAA DIR A<=M $E596: 2A F3 BPL REL Branch=> $E58B if N=0 $E598: 96 12 LDAA DIR A<=M $E59A: 0C CLC IMP C<=0 $E59B: 39 RTS IMP Return from Subroutine $E59C: C6 01 LDAB IMM B<=M $E59E: 0D SEC IMP C<=1 $E59F: 7B B07D TIM EXT IM&M $E5A2: 26 42 BNE REL Branch=> $E5E6 if Z=0 $E5A4: 3C PSHX IMP =>IX;SP<=SP-2 $E5A5: FE 01C2 LDX EXT IX<=M:M+1 $E5A8: 27 3D BEQ REL Branch=> $E5E7 if Z=1 $E5AA: FC 01B5 LDD EXT A:B<=M:M+1 $E5AD: 7F 0050 CLR EXT M<=0 $E5B0: 0D SEC IMP C<=1 $E5B1: 79 0050 ROL EXT C<=########<=C $E5B4: 4A DECA IMP M<=M-1 $E5B5: 26 F9 BNE REL Branch=> $E5B0 if Z=0 $E5B7: 0F SEI IMP I<=1 $E5B8: FE 01C0 LDX EXT IX<=M:M+1 $E5BB: A6 00 LDAA IND A<=M $E5BD: 08 INX IMP IX<=IX+1 $E5BE: BC 01BA CPX EXT IX-M:M+1 $E5C1: 26 03 BNE REL Branch=> $E5C6 if Z=0 $E5C3: FE 01B8 LDX EXT IX<=M:M+1 $E5C6: FF 01C0 STX EXT M:M+1<=IX $E5C9: FE 01C2 LDX EXT IX<=M:M+1 $E5CC: 09 DEX IMP IX<=IX-1 $E5CD: FF 01C2 STX EXT M:M+1<=IX $E5D0: 0E CLI IMP I<=0 $E5D1: 58 ASLB IMP C<=########<=0 $E5D2: 25 0F BCS REL Branch=> $E5E3 if C=1 $E5D4: 58 ASLB IMP C<=########<=0 $E5D5: 16 TAB IMP B<=A $E5D6: 94 50 ANDA DIR A<=A&M $E5D8: 24 02 BCC REL Branch=> $E5DC if C=0 $E5DA: C8 80 EORB IMM B<=B^M $E5DC: 58 ASLB IMP C<=########<=0 $E5DD: 26 F9 BNE REL Branch=> $E5D8 if Z=0 $E5DF: 56 RORB IMP C=>########=>C $E5E0: 57 ASRB IMP %=>########=>C $E5E1: 20 01 BRA REL Branch=> $E5E4 if (Always) $E5E3: 5F CLRB IMP M<=0 $E5E4: 5D TSTB IMP M-0 $E5E5: 38 PULX IMP SP<=SP-2;<=IX $E5E6: 39 RTS IMP Return from Subroutine $E5E7: 7B 047A TIM EXT IM&M $E5EA: 26 F8 BNE REL Branch=> $E5E4 if Z=0 $E5EC: 7B 0402 TIM EXT IM&M $E5EF: 27 F3 BEQ REL Branch=> $E5E4 if Z=1 $E5F1: C6 C1 LDAB IMM B<=M $E5F3: 20 EF BRA REL Branch=> $E5E4 if (Always) $E5F5: 0D SEC IMP C<=1 $E5F6: 7B B07D TIM EXT IM&M $E5F9: 26 0F BNE REL Branch=> $E60A if Z=0 $E5FB: F6 01B6 LDAB EXT B<=M $E5FE: 57 ASRB IMP %=>########=>C $E5FF: 57 ASRB IMP %=>########=>C $E600: 57 ASRB IMP %=>########=>C $E601: 57 ASRB IMP %=>########=>C $E602: 53 COMB IMP M<= ~M $E603: D4 02 ANDB DIR B<=B&M $E605: C4 03 ANDB IMM B<=B&M $E607: 27 02 BEQ REL Branch=> $E60B if Z=1 $E609: 0C CLC IMP C<=0 $E60A: 39 RTS IMP Return from Subroutine $E60B: 36 PSHA IMP =>A;SP<=SP-1 $E60C: 97 52 STAA DIR M<=A $E60E: 3C PSHX IMP =>IX;SP<=SP-2 $E60F: CE 01AF LDX IMM IX<=M:M+1 $E612: 0F SEI IMP I<=1 $E613: A6 06 LDAA IND A<=M $E615: 97 53 STAA DIR M<=A $E617: 4F CLRA IMP M<=0 $E618: E6 07 LDAB IND B<=M $E61A: 05 ASLD IMP C<=################<=0 $E61B: 97 51 STAA DIR M<=A $E61D: 4F CLRA IMP M<=0 $E61E: 05 ASLD IMP C<=################<=0 $E61F: 97 50 STAA DIR M<=A $E621: 7B 4008 TIM EXT IM&M $E624: 26 0B BNE REL Branch=> $E631 if Z=0 $E626: DC 0B LDD DIR A:B<=M:M+1 $E628: 93 09 SUBD DIR A:B<=A:B-M:M+1 $E62A: 83 0020 SUBD IMM A:B<=A:B-M:M+1 $E62D: 2B F2 BMI REL Branch=> $E621 if N=1 $E62F: 20 07 BRA REL Branch=> $E638 if (Always) $E631: DC 09 LDD DIR A:B<=M:M+1 $E633: C3 0020 ADDD IMM A:B<=A:B+M:M+1 $E636: DD 0B STD DIR M:M+1<=A:B $E638: 71 FE08 AIM EXT M<=IM&M $E63B: 7B 4008 TIM EXT IM&M $E63E: 27 FB BEQ REL Branch=> $E63B if Z=1 $E640: 5F CLRB IMP M<=0 $E641: 77 0052 ASR EXT %=>########=>C $E644: 59 ROLB IMP C<=########<=C $E645: 26 05 BNE REL Branch=> $E64C if Z=0 $E647: 71 FE08 AIM EXT M<=IM&M $E64A: 20 06 BRA REL Branch=> $E652 if (Always) $E64C: 72 0108 OIM EXT M<=IM|M $E64F: 75 0150 EIM EXT M<=IM^M $E652: E8 05 EORB IND B<=B^M $E654: A6 04 LDAA IND A<=M $E656: 04 LSRD IMP 0=>################=>C $E657: 24 04 BCC REL Branch=> $E65D if C=0 $E659: A8 02 EORA IND A<=A^M $E65B: E8 03 EORB IND B<=B^M $E65D: ED 04 STD IND M:M+1<=A:B $E65F: DC 0B LDD DIR A:B<=M:M+1 $E661: E3 00 ADDD IND A:B<=A:B+M:M+1 $E663: DD 0B STD DIR M:M+1<=A:B $E665: 7A 0053 DEC EXT M<=M-1 $E668: 26 D1 BNE REL Branch=> $E63B if Z=0 $E66A: 96 51 LDAA DIR A<=M $E66C: 26 0A BNE REL Branch=> $E678 if Z=0 $E66E: D6 50 LDAB DIR B<=M $E670: 4C INCA IMP M<=M+1 $E671: DD 51 STD DIR M:M+1<=A:B $E673: 7C 0053 INC EXT M<=M+1 $E676: 20 C3 BRA REL Branch=> $E63B if (Always) $E678: 7B 4008 TIM EXT IM&M $E67B: 27 FB BEQ REL Branch=> $E678 if Z=1 $E67D: DC 0B LDD DIR A:B<=M:M+1 $E67F: E3 00 ADDD IND A:B<=A:B+M:M+1 $E681: DD 0B STD DIR M:M+1<=A:B $E683: 72 0108 OIM EXT M<=IM|M $E686: 7B 4008 TIM EXT IM&M $E689: 27 FB BEQ REL Branch=> $E686 if Z=1 $E68B: EE 06 LDX IND IX<=M:M+1 $E68D: 18 XGDX IMP A:B<==>IX $E68E: C4 03 ANDB IMM B<=B&M $E690: 26 01 BNE REL Branch=> $E693 if Z=0 $E692: 5C INCB IMP M<=M+1 $E693: 4F CLRA IMP M<=0 $E694: 18 XGDX IMP A:B<==>IX $E695: F3 01AF ADDD EXT A:B<=A:B+M:M+1 $E698: 09 DEX IMP IX<=IX-1 $E699: 26 FA BNE REL Branch=> $E695 if Z=0 $E69B: DD 0B STD DIR M:M+1<=A:B $E69D: 38 PULX IMP SP<=SP-2;<=IX $E69E: 32 PULA IMP SP<=SP+1;<=A $E69F: 0E CLI IMP I<=0 $E6A0: 5F CLRB IMP M<=0 $E6A1: 39 RTS IMP Return from Subroutine $E6A2--$E6A7: NUL DATA FF FF FF FF FF FF $E6A8--$E6AF: NUL DATA FF FF FF FF FF FF FF FF ' END