@@@@@@@@ CASSETTE ROUTINE @@@@@@@@ $E6B0: DF 58 STX DIR M:M+1<=IX $E6B2: CC 0324 LDD IMM A:B<=M:M+1 $E6B5: DD 5A STD DIR M:M+1<=A:B $E6B7: BD EB7C JSR EXT Jump to Subr=>Address $EB7C $E6BA: 26 23 BNE REL Branch=> $E6DF if Z=0 $E6BC: CC 6404 LDD IMM A:B<=M:M+1 $E6BF: CE 01EC LDX IMM IX<=M:M+1 $E6C2: 20 0D BRA REL Branch=> $E6D1 if (Always) $E6C4: DF 58 STX DIR M:M+1<=IX $E6C6: CC 02D0 LDD IMM A:B<=M:M+1 $E6C9: DD 5A STD DIR M:M+1<=A:B $E6CB: CC 2402 LDD IMM A:B<=M:M+1 $E6CE: CE 01D5 LDX IMM IX<=M:M+1 $E6D1: 97 53 STAA DIR M<=A $E6D3: D7 57 STAB DIR M<=B $E6D5: DF 54 STX DIR M:M+1<=IX $E6D7: 6B 0F00 TIM IND IM&M $E6DA: 27 04 BEQ REL Branch=> $E6E0 if Z=1 $E6DC: 86 88 LDAA IMM A<=M $E6DE: 0C CLC IMP C<=0 $E6DF: 39 RTS IMP Return from Subroutine $E6E0: 6F 08 CLR IND M<=0 $E6E2: 4F CLRA IMP M<=0 $E6E3: 5F CLRB IMP M<=0 $E6E4: ED 01 STD IND M:M+1<=A:B $E6E6: DE 5A LDX DIR IX<=M:M+1 $E6E8: CC 2054 LDD IMM A:B<=M:M+1 $E6EB: BD F2B3 JSR EXT Jump to Subr=>Address $F2B3 $E6EE: DE 5A LDX DIR IX<=M:M+1 $E6F0: CC 4844 LDD IMM A:B<=M:M+1 $E6F3: ED 04 STD IND M:M+1<=A:B $E6F5: A7 00 STAA IND M<=A $E6F7: CC 5231 LDD IMM A:B<=M:M+1 $E6FA: ED 06 STD IND M:M+1<=A:B $E6FC: CC 4858 LDD IMM A:B<=M:M+1 $E6FF: ED 38 STD IND M:M+1<=A:B $E701: CC 2D32 LDD IMM A:B<=M:M+1 $E704: ED 3A STD IND M:M+1<=A:B $E706: E7 18 STAB IND M<=B $E708: 62 303C OIM IND M<=IM|M $E70B: CC 3235 LDD IMM A:B<=M:M+1 $E70E: ED 1C STD IND M:M+1<=A:B $E710: 62 361E OIM IND M<=IM|M $E713: C6 2A LDAB IMM B<=M $E715: 3A ABX IMP IX<=IX+B $E716: BD E1FA JSR EXT Jump to Subr=>Address $E1FA $E719: 5F CLRB IMP M<=0 $E71A: DE 5A LDX DIR IX<=M:M+1 $E71C: 3A ABX IMP IX<=IX+B $E71D: A6 2A LDAA IND A<=M $E71F: 36 PSHA IMP =>A;SP<=SP-1 $E720: 0D SEC IMP C<=1 $E721: 46 RORA IMP C=>########=>C $E722: 47 ASRA IMP %=>########=>C $E723: 44 LSRA IMP 0=>########=>C $E724: 44 LSRA IMP 0=>########=>C $E725: 58 ASLB IMP C<=########<=0 $E726: DE 5A LDX DIR IX<=M:M+1 $E728: 3A ABX IMP IX<=IX+B $E729: A7 24 STAA IND M<=A $E72B: 32 PULA IMP SP<=SP+1;<=A $E72C: 84 0F ANDA IMM A<=A&M $E72E: 8A 30 ORAA IMM A<=A|M $E730: A7 25 STAA IND M<=A $E732: 54 LSRB IMP 0=>########=>C $E733: 5C INCB IMP M<=M+1 $E734: C1 06 CMPB IMM B-M $E736: 26 E2 BNE REL Branch=> $E71A if Z=0 $E738: DE 58 LDX DIR IX<=M:M+1 $E73A: E6 00 LDAB IND B<=M $E73C: DE 5A LDX DIR IX<=M:M+1 $E73E: 5D TSTB IMP M-0 $E73F: 27 04 BEQ REL Branch=> $E745 if Z=1 $E741: 86 53 LDAA IMM A<=M $E743: A7 19 STAA IND M<=A $E745: 86 32 LDAA IMM A<=M $E747: A7 18 STAA IND M<=A $E749: DE 54 LDX DIR IX<=M:M+1 $E74B: E7 07 STAB IND M<=B $E74D: 5F CLRB IMP M<=0 $E74E: DE 58 LDX DIR IX<=M:M+1 $E750: 3A ABX IMP IX<=IX+B $E751: A6 03 LDAA IND A<=M $E753: DE 5A LDX DIR IX<=M:M+1 $E755: 3A ABX IMP IX<=IX+B $E756: A7 08 STAA IND M<=A $E758: 5C INCB IMP M<=M+1 $E759: C1 10 CMPB IMM B-M $E75B: 26 F1 BNE REL Branch=> $E74E if Z=0 $E75D: 4F CLRA IMP M<=0 $E75E: 8D 23 BSR REL Branch to Subr=> $E783 $E760: 26 20 BNE REL Branch=> $E782 if Z=0 $E762: DE 58 LDX DIR IX<=M:M+1 $E764: EC 01 LDD IND A:B<=M:M+1 $E766: DE 54 LDX DIR IX<=M:M+1 $E768: ED 09 STD IND M:M+1<=A:B $E76A: C3 0004 ADDD IMM A:B<=A:B+M:M+1 $E76D: ED 0F STD IND M:M+1<=A:B $E76F: 4C INCA IMP M<=M+1 $E770: ED 0B STD IND M:M+1<=A:B $E772: CC 0104 LDD IMM A:B<=M:M+1 $E775: ED 0D STD IND M:M+1<=A:B $E777: 86 08 LDAA IMM A<=M $E779: A7 00 STAA IND M<=A $E77B: EE 09 LDX IND IX<=M:M+1 $E77D: 86 44 LDAA IMM A<=M $E77F: A7 00 STAA IND M<=A $E781: 4F CLRA IMP M<=0 $E782: 39 RTS IMP Return from Subroutine $E783: 36 PSHA IMP =>A;SP<=SP-1 $E784: DC 5A LDD DIR A:B<=M:M+1 $E786: DE 54 LDX DIR IX<=M:M+1 $E788: ED 09 STD IND M:M+1<=A:B $E78A: ED 0F STD IND M:M+1<=A:B $E78C: ED 11 STD IND M:M+1<=A:B $E78E: C3 0054 ADDD IMM A:B<=A:B+M:M+1 $E791: ED 0B STD IND M:M+1<=A:B $E793: CC 0054 LDD IMM A:B<=M:M+1 $E796: ED 0D STD IND M:M+1<=A:B $E798: 86 FF LDAA IMM A<=M $E79A: 33 PULB IMP SP<=SP+1;<=B $E79B: 5D TSTB IMP M-0 $E79C: 27 02 BEQ REL Branch=> $E7A0 if Z=1 $E79E: 16 TAB IMP B<=A $E79F: 4F CLRA IMP M<=0 $E7A0: 3C PSHX IMP =>IX;SP<=SP-2 $E7A1: DD 50 STD DIR M:M+1<=A:B $E7A3: DE 54 LDX DIR IX<=M:M+1 $E7A5: 6F 08 CLR IND M<=0 $E7A7: EC 01 LDD IND A:B<=M:M+1 $E7A9: EE 09 LDX IND IX<=M:M+1 $E7AB: ED 01 STD IND M:M+1<=A:B $E7AD: 6F 03 CLR IND M<=0 $E7AF: 96 57 LDAA DIR A<=M $E7B1: 9A 7C ORAA DIR A<=A|M $E7B3: 97 7C STAA DIR M<=A $E7B5: DE 54 LDX DIR IX<=M:M+1 $E7B7: EE 09 LDX IND IX<=M:M+1 $E7B9: 96 53 LDAA DIR A<=M $E7BB: BD E418 JSR EXT Jump to Subr=>Address $E418 $E7BE: 4A DECA IMP M<=M-1 $E7BF: 26 76 BNE REL Branch=> $E837 if Z=0 $E7C1: D6 51 LDAB DIR B<=M $E7C3: A6 03 LDAA IND A<=M $E7C5: 26 04 BNE REL Branch=> $E7CB if Z=0 $E7C7: C6 01 LDAB IMM B<=M $E7C9: 96 50 LDAA DIR A<=M $E7CB: BD E40D JSR EXT Jump to Subr=>Address $E40D $E7CE: DE 54 LDX DIR IX<=M:M+1 $E7D0: EC 0D LDD IND A:B<=M:M+1 $E7D2: BD E40D JSR EXT Jump to Subr=>Address $E40D $E7D5: 25 60 BCS REL Branch=> $E837 if C=1 $E7D7: 96 7C LDAA DIR A<=M $E7D9: B7 021B STAA EXT M<=A $E7DC: 0F SEI IMP I<=1 $E7DD: 72 804F OIM EXT M<=IM|M $E7E0: 96 4F LDAA DIR A<=M $E7E2: 97 26 STAA DIR M<=A $E7E4: 0E CLI IMP I<=0 $E7E5: EC 09 LDD IND A:B<=M:M+1 $E7E7: ED 11 STD IND M:M+1<=A:B $E7E9: 18 XGDX IMP A:B<==>IX $E7EA: A6 00 LDAA IND A<=M $E7EC: BD E47B JSR EXT Jump to Subr=>Address $E47B $E7EF: 71 1F7A AIM EXT M<=IM&M $E7F2: 72 807A OIM EXT M<=IM|M $E7F5: 7B 0257 TIM EXT IM&M $E7F8: 26 09 BNE REL Branch=> $E803 if Z=0 $E7FA: 72 207A OIM EXT M<=IM|M $E7FD: BD EB32 JSR EXT Jump to Subr=>Address $EB32 $E800: 72 0408 OIM EXT M<=IM|M $E803: 72 1011 OIM EXT M<=IM|M $E806: 7B 1011 TIM EXT IM&M $E809: 26 FB BNE REL Branch=> $E806 if Z=0 $E80B: 7B B07D TIM EXT IM&M $E80E: 0D SEC IMP C<=1 $E80F: 26 26 BNE REL Branch=> $E837 if Z=0 $E811: DE 54 LDX DIR IX<=M:M+1 $E813: 6B F008 TIM IND IM&M $E816: 26 1E BNE REL Branch=> $E836 if Z=0 $E818: EE 09 LDX IND IX<=M:M+1 $E81A: 6C 03 INC IND M<=M+1 $E81C: 6B 0203 TIM IND IM&M $E81F: 27 94 BEQ REL Branch=> $E7B5 if Z=1 $E821: 18 XGDX IMP A:B<==>IX $E822: C3 0004 ADDD IMM A:B<=A:B+M:M+1 $E825: DE 54 LDX DIR IX<=M:M+1 $E827: ED 0F STD IND M:M+1<=A:B $E829: EC 01 LDD IND A:B<=M:M+1 $E82B: C3 0001 ADDD IMM A:B<=A:B+M:M+1 $E82E: ED 01 STD IND M:M+1<=A:B $E830: 4F CLRA IMP M<=0 $E831: 5F CLRB IMP M<=0 $E832: ED 13 STD IND M:M+1<=A:B $E834: 20 03 BRA REL Branch=> $E839 if (Always) $E836: 0C CLC IMP C<=0 $E837: 86 91 LDAA IMM A<=M $E839: 7E EAE1 JMP EXT Jump=>Address $EAE1 $E83C: 3C PSHX IMP =>IX;SP<=SP-2 $E83D: CE 01EC LDX IMM IX<=M:M+1 $E840: 36 PSHA IMP =>A;SP<=SP-1 $E841: CC 6404 LDD IMM A:B<=M:M+1 $E844: 20 08 BRA REL Branch=> $E84E if (Always) $E846: 3C PSHX IMP =>IX;SP<=SP-2 $E847: CE 01D5 LDX IMM IX<=M:M+1 $E84A: 36 PSHA IMP =>A;SP<=SP-1 $E84B: CC 2402 LDD IMM A:B<=M:M+1 $E84E: D7 57 STAB DIR M<=B $E850: 97 53 STAA DIR M<=A $E852: DF 54 STX DIR M:M+1<=IX $E854: C6 94 LDAB IMM B<=M $E856: A6 00 LDAA IND A<=M $E858: 84 0F ANDA IMM A<=A&M $E85A: 81 08 CMPA IMM A-M $E85C: 0C CLC IMP C<=0 $E85D: 26 26 BNE REL Branch=> $E885 if Z=0 $E85F: EC 13 LDD IND A:B<=M:M+1 $E861: C3 0001 ADDD IMM A:B<=A:B+M:M+1 $E864: ED 13 STD IND M:M+1<=A:B $E866: EE 0F LDX IND IX<=M:M+1 $E868: 32 PULA IMP SP<=SP+1;<=A $E869: 36 PSHA IMP =>A;SP<=SP-1 $E86A: A7 00 STAA IND M<=A $E86C: 08 INX IMP IX<=IX+1 $E86D: 18 XGDX IMP A:B<==>IX $E86E: DE 54 LDX DIR IX<=M:M+1 $E870: ED 0F STD IND M:M+1<=A:B $E872: A3 0B SUBD IND A:B<=A:B-M:M+1 $E874: 32 PULA IMP SP<=SP+1;<=A $E875: 38 PULX IMP SP<=SP-2;<=IX $E876: 27 02 BEQ REL Branch=> $E87A if Z=1 $E878: 5F CLRB IMP M<=0 $E879: 39 RTS IMP Return from Subroutine $E87A: 3C PSHX IMP =>IX;SP<=SP-2 $E87B: 36 PSHA IMP =>A;SP<=SP-1 $E87C: DE 54 LDX DIR IX<=M:M+1 $E87E: A6 07 LDAA IND A<=M $E880: 16 TAB IMP B<=A $E881: BD E7A0 JSR EXT Jump to Subr=>Address $E7A0 $E884: 16 TAB IMP B<=A $E885: 32 PULA IMP SP<=SP+1;<=A $E886: 38 PULX IMP SP<=SP-2;<=IX $E887: 39 RTS IMP Return from Subroutine $E888: CE 0324 LDX IMM IX<=M:M+1 $E88B: DF 5A STX DIR M:M+1<=IX $E88D: CE 01EC LDX IMM IX<=M:M+1 $E890: CC 6404 LDD IMM A:B<=M:M+1 $E893: 20 0B BRA REL Branch=> $E8A0 if (Always) $E895: CE 02D0 LDX IMM IX<=M:M+1 $E898: DF 5A STX DIR M:M+1<=IX $E89A: CE 01D5 LDX IMM IX<=M:M+1 $E89D: CC 2402 LDD IMM A:B<=M:M+1 $E8A0: DF 54 STX DIR M:M+1<=IX $E8A2: 97 53 STAA DIR M<=A $E8A4: D7 57 STAB DIR M<=B $E8A6: 6B 0800 TIM IND IM&M $E8A9: 27 2B BEQ REL Branch=> $E8D6 if Z=1 $E8AB: EC 13 LDD IND A:B<=M:M+1 $E8AD: 27 04 BEQ REL Branch=> $E8B3 if Z=1 $E8AF: 8D C9 BSR REL Branch to Subr=> $E87A $E8B1: 26 42 BNE REL Branch=> $E8F5 if Z=0 $E8B3: DE 5A LDX DIR IX<=M:M+1 $E8B5: EC 01 LDD IND A:B<=M:M+1 $E8B7: C3 0001 ADDD IMM A:B<=A:B+M:M+1 $E8BA: ED 01 STD IND M:M+1<=A:B $E8BC: CC 454F LDD IMM A:B<=M:M+1 $E8BF: ED 04 STD IND M:M+1<=A:B $E8C1: A7 00 STAA IND M<=A $E8C3: CC 4620 LDD IMM A:B<=M:M+1 $E8C6: ED 06 STD IND M:M+1<=A:B $E8C8: 86 01 LDAA IMM A<=M $E8CA: BD E783 JSR EXT Jump to Subr=>Address $E783 $E8CD: 26 26 BNE REL Branch=> $E8F5 if Z=0 $E8CF: DE 54 LDX DIR IX<=M:M+1 $E8D1: 61 F700 AIM IND M<=IM&M $E8D4: 20 08 BRA REL Branch=> $E8DE if (Always) $E8D6: 6B 0400 TIM IND IM&M $E8D9: 27 17 BEQ REL Branch=> $E8F2 if Z=1 $E8DB: 61 FB00 AIM IND M<=IM&M $E8DE: 7B 0257 TIM EXT IM&M $E8E1: 26 13 BNE REL Branch=> $E8F6 if Z=0 $E8E3: CC 7B77 LDD IMM A:B<=M:M+1 $E8E6: BD E40D JSR EXT Jump to Subr=>Address $E40D $E8E9: 96 08 LDAA DIR A<=M $E8EB: 84 04 ANDA IMM A<=A&M $E8ED: 26 FA BNE REL Branch=> $E8E9 if Z=0 $E8EF: 7E EC76 JMP EXT Jump=>Address $EC76 $E8F2: 86 87 LDAA IMM A<=M $E8F4: 0C CLC IMP C<=0 $E8F5: 39 RTS IMP Return from Subroutine $E8F6: 4F CLRA IMP M<=0 $E8F7: 43 COMA IMP M<= ~M $E8F8: 84 01 ANDA IMM A<=A&M $E8FA: 8B 22 ADDA IMM A<=A+M $E8FC: 72 027C OIM EXT M<=IM|M $E8FF: BD E418 JSR EXT Jump to Subr=>Address $E418 $E902: 71 FD7C AIM EXT M<=IM&M $E905: 86 00 LDAA IMM A<=M $E907: 7E E4BF JMP EXT Jump=>Address $E4BF $E90A: CC 0324 LDD IMM A:B<=M:M+1 $E90D: DD 5A STD DIR M:M+1<=A:B $E90F: CC 6804 LDD IMM A:B<=M:M+1 $E912: 3C PSHX IMP =>IX;SP<=SP-2 $E913: CE 01EC LDX IMM IX<=M:M+1 $E916: 20 0C BRA REL Branch=> $E924 if (Always) $E918: CC 02D0 LDD IMM A:B<=M:M+1 $E91B: DD 5A STD DIR M:M+1<=A:B $E91D: CC 2802 LDD IMM A:B<=M:M+1 $E920: 3C PSHX IMP =>IX;SP<=SP-2 $E921: CE 01D5 LDX IMM IX<=M:M+1 $E924: 97 52 STAA DIR M<=A $E926: D7 57 STAB DIR M<=B $E928: DF 54 STX DIR M:M+1<=IX $E92A: A6 00 LDAA IND A<=M $E92C: 84 0F ANDA IMM A<=A&M $E92E: 81 04 CMPA IMM A-M $E930: 26 33 BNE REL Branch=> $E965 if Z=0 $E932: EC 13 LDD IND A:B<=M:M+1 $E934: 26 1B BNE REL Branch=> $E951 if Z=0 $E936: EC 01 LDD IND A:B<=M:M+1 $E938: C3 0001 ADDD IMM A:B<=A:B+M:M+1 $E93B: ED 01 STD IND M:M+1<=A:B $E93D: A6 07 LDAA IND A<=M $E93F: 16 TAB IMP B<=A $E940: 8C 01D5 CPX IMM IX-M:M+1 $E943: 26 05 BNE REL Branch=> $E94A if Z=0 $E945: BD EA6E JSR EXT Jump to Subr=>Address $EA6E $E948: 20 03 BRA REL Branch=> $E94D if (Always) $E94A: BD EA53 JSR EXT Jump to Subr=>Address $EA53 $E94D: 26 19 BNE REL Branch=> $E968 if Z=0 $E94F: EC 13 LDD IND A:B<=M:M+1 $E951: 83 0001 SUBD IMM A:B<=A:B-M:M+1 $E954: ED 13 STD IND M:M+1<=A:B $E956: EE 11 LDX IND IX<=M:M+1 $E958: A6 00 LDAA IND A<=M $E95A: 36 PSHA IMP =>A;SP<=SP-1 $E95B: 08 INX IMP IX<=IX+1 $E95C: 18 XGDX IMP A:B<==>IX $E95D: DE 54 LDX DIR IX<=M:M+1 $E95F: ED 11 STD IND M:M+1<=A:B $E961: 32 PULA IMP SP<=SP+1;<=A $E962: 38 PULX IMP SP<=SP-2;<=IX $E963: 5F CLRB IMP M<=0 $E964: 39 RTS IMP Return from Subroutine $E965: 86 84 LDAA IMM A<=M $E967: 0C CLC IMP C<=0 $E968: 16 TAB IMP B<=A $E969: 38 PULX IMP SP<=SP-2;<=IX $E96A: 39 RTS IMP Return from Subroutine $E96B: 86 01 LDAA IMM A<=M $E96D: 20 01 BRA REL Branch=> $E970 if (Always) $E96F: 4F CLRA IMP M<=0 $E970: 97 53 STAA DIR M<=A $E972: DF 58 STX DIR M:M+1<=IX $E974: BD EB7C JSR EXT Jump to Subr=>Address $EB7C $E977: 26 F1 BNE REL Branch=> $E96A if Z=0 $E979: CC 0324 LDD IMM A:B<=M:M+1 $E97C: CE 01EC LDX IMM IX<=M:M+1 $E97F: 20 0F BRA REL Branch=> $E990 if (Always) $E981: 86 01 LDAA IMM A<=M $E983: 20 01 BRA REL Branch=> $E986 if (Always) $E985: 4F CLRA IMP M<=0 $E986: 97 53 STAA DIR M<=A $E988: DF 58 STX DIR M:M+1<=IX $E98A: CC 02D0 LDD IMM A:B<=M:M+1 $E98D: CE 01D5 LDX IMM IX<=M:M+1 $E990: DD 5A STD DIR M:M+1<=A:B $E992: DF 54 STX DIR M:M+1<=IX $E994: D6 7E LDAB DIR B<=M $E996: C4 0F ANDB IMM B<=B&M $E998: 86 2B LDAA IMM A<=M $E99A: BD E40D JSR EXT Jump to Subr=>Address $E40D $E99D: 4F CLRA IMP M<=0 $E99E: 5F CLRB IMP M<=0 $E99F: ED 01 STD IND M:M+1<=A:B $E9A1: ED 07 STD IND M:M+1<=A:B $E9A3: DC 5A LDD DIR A:B<=M:M+1 $E9A5: ED 09 STD IND M:M+1<=A:B $E9A7: C3 0054 ADDD IMM A:B<=A:B+M:M+1 $E9AA: ED 0B STD IND M:M+1<=A:B $E9AC: CC 0054 LDD IMM A:B<=M:M+1 $E9AF: ED 0D STD IND M:M+1<=A:B $E9B1: 4F CLRA IMP M<=0 $E9B2: 5F CLRB IMP M<=0 $E9B3: 8C 01D5 CPX IMM IX-M:M+1 $E9B6: 26 05 BNE REL Branch=> $E9BD if Z=0 $E9B8: BD EA64 JSR EXT Jump to Subr=>Address $EA64 $E9BB: 20 03 BRA REL Branch=> $E9C0 if (Always) $E9BD: BD EA49 JSR EXT Jump to Subr=>Address $EA49 $E9C0: 26 4E BNE REL Branch=> $EA10 if Z=0 $E9C2: 96 53 LDAA DIR A<=M $E9C4: 26 10 BNE REL Branch=> $E9D6 if Z=0 $E9C6: 5F CLRB IMP M<=0 $E9C7: DE 5A LDX DIR IX<=M:M+1 $E9C9: 3A ABX IMP IX<=IX+B $E9CA: A6 08 LDAA IND A<=M $E9CC: DE 58 LDX DIR IX<=M:M+1 $E9CE: 3A ABX IMP IX<=IX+B $E9CF: A7 13 STAA IND M<=A $E9D1: 5C INCB IMP M<=M+1 $E9D2: C1 10 CMPB IMM B-M $E9D4: 26 F1 BNE REL Branch=> $E9C7 if Z=0 $E9D6: 5F CLRB IMP M<=0 $E9D7: DE 58 LDX DIR IX<=M:M+1 $E9D9: 3A ABX IMP IX<=IX+B $E9DA: A6 03 LDAA IND A<=M $E9DC: 81 2A CMPA IMM A-M $E9DE: 27 0E BEQ REL Branch=> $E9EE if Z=1 $E9E0: DE 5A LDX DIR IX<=M:M+1 $E9E2: 3A ABX IMP IX<=IX+B $E9E3: A1 08 CMPA IND A-M $E9E5: 26 0F BNE REL Branch=> $E9F6 if Z=0 $E9E7: 5C INCB IMP M<=M+1 $E9E8: C1 10 CMPB IMM B-M $E9EA: 26 EB BNE REL Branch=> $E9D7 if Z=0 $E9EC: 20 26 BRA REL Branch=> $EA14 if (Always) $E9EE: C1 08 CMPB IMM B-M $E9F0: 24 22 BCC REL Branch=> $EA14 if C=0 $E9F2: C6 08 LDAB IMM B<=M $E9F4: 20 E1 BRA REL Branch=> $E9D7 if (Always) $E9F6: 4F CLRA IMP M<=0 $E9F7: 5F CLRB IMP M<=0 $E9F8: DE 54 LDX DIR IX<=M:M+1 $E9FA: 8C 01D5 CPX IMM IX-M:M+1 $E9FD: 26 04 BNE REL Branch=> $EA03 if Z=0 $E9FF: 8D 68 BSR REL Branch to Subr=> $EA69 $EA01: 20 02 BRA REL Branch=> $EA05 if (Always) $EA03: 8D 49 BSR REL Branch to Subr=> $EA4E $EA05: 25 41 BCS REL Branch=> $EA48 if C=1 $EA07: 4A DECA IMP M<=M-1 $EA08: 26 07 BNE REL Branch=> $EA11 if Z=0 $EA0A: D6 53 LDAB DIR B<=M $EA0C: 26 8F BNE REL Branch=> $E99D if Z=0 $EA0E: 86 8B LDAA IMM A<=M $EA10: 39 RTS IMP Return from Subroutine $EA11: 86 85 LDAA IMM A<=M $EA13: 39 RTS IMP Return from Subroutine $EA14: DE 54 LDX DIR IX<=M:M+1 $EA16: 62 0400 OIM IND M<=IM|M $EA19: DE 58 LDX DIR IX<=M:M+1 $EA1B: A6 00 LDAA IND A<=M $EA1D: 2A 0A BPL REL Branch=> $EA29 if N=0 $EA1F: DE 5A LDX DIR IX<=M:M+1 $EA21: A6 19 LDAA IND A<=M $EA23: 80 20 SUBA IMM A<=A-M $EA25: 27 02 BEQ REL Branch=> $EA29 if Z=1 $EA27: 86 01 LDAA IMM A<=M $EA29: DE 54 LDX DIR IX<=M:M+1 $EA2B: A7 07 STAA IND M<=A $EA2D: DE 58 LDX DIR IX<=M:M+1 $EA2F: EC 01 LDD IND A:B<=M:M+1 $EA31: DE 54 LDX DIR IX<=M:M+1 $EA33: ED 09 STD IND M:M+1<=A:B $EA35: ED 0F STD IND M:M+1<=A:B $EA37: C3 0004 ADDD IMM A:B<=A:B+M:M+1 $EA3A: ED 11 STD IND M:M+1<=A:B $EA3C: 4C INCA IMP M<=M+1 $EA3D: ED 0B STD IND M:M+1<=A:B $EA3F: CC 0104 LDD IMM A:B<=M:M+1 $EA42: ED 0D STD IND M:M+1<=A:B $EA44: 4F CLRA IMP M<=0 $EA45: 5F CLRB IMP M<=0 $EA46: ED 13 STD IND M:M+1<=A:B $EA48: 39 RTS IMP Return from Subroutine $EA49: 36 PSHA IMP =>A;SP<=SP-1 $EA4A: 86 66 LDAA IMM A<=M $EA4C: 20 08 BRA REL Branch=> $EA56 if (Always) $EA4E: 36 PSHA IMP =>A;SP<=SP-1 $EA4F: 86 67 LDAA IMM A<=M $EA51: 20 03 BRA REL Branch=> $EA56 if (Always) $EA53: 36 PSHA IMP =>A;SP<=SP-1 $EA54: 86 68 LDAA IMM A<=M $EA56: 97 52 STAA DIR M<=A $EA58: 32 PULA IMP SP<=SP+1;<=A $EA59: DD 50 STD DIR M:M+1<=A:B $EA5B: 86 04 LDAA IMM A<=M $EA5D: 97 57 STAA DIR M<=A $EA5F: CC 01EC LDD IMM A:B<=M:M+1 $EA62: 20 19 BRA REL Branch=> $EA7D if (Always) $EA64: 36 PSHA IMP =>A;SP<=SP-1 $EA65: 86 26 LDAA IMM A<=M $EA67: 20 08 BRA REL Branch=> $EA71 if (Always) $EA69: 36 PSHA IMP =>A;SP<=SP-1 $EA6A: 86 27 LDAA IMM A<=M $EA6C: 20 03 BRA REL Branch=> $EA71 if (Always) $EA6E: 36 PSHA IMP =>A;SP<=SP-1 $EA6F: 86 28 LDAA IMM A<=M $EA71: 97 52 STAA DIR M<=A $EA73: 32 PULA IMP SP<=SP+1;<=A $EA74: DD 50 STD DIR M:M+1<=A:B $EA76: 86 02 LDAA IMM A<=M $EA78: 97 57 STAA DIR M<=A $EA7A: CC 01D5 LDD IMM A:B<=M:M+1 $EA7D: DD 54 STD DIR M:M+1<=A:B $EA7F: 3C PSHX IMP =>IX;SP<=SP-2 $EA80: DE 54 LDX DIR IX<=M:M+1 $EA82: 86 05 LDAA IMM A<=M $EA84: A7 15 STAA IND M<=A $EA86: 6F 08 CLR IND M<=0 $EA88: 6F 16 CLR IND M<=0 $EA8A: EC 09 LDD IND A:B<=M:M+1 $EA8C: ED 0F STD IND M:M+1<=A:B $EA8E: 96 7C LDAA DIR A<=M $EA90: 9A 57 ORAA DIR A<=A|M $EA92: 97 7C STAA DIR M<=A $EA94: 8D 62 BSR REL Branch to Subr=> $EAF8 $EA96: 25 47 BCS REL Branch=> $EADF if C=1 $EA98: 96 7C LDAA DIR A<=M $EA9A: B7 021B STAA EXT M<=A $EA9D: 7B 0402 TIM EXT IM&M $EAA0: 26 23 BNE REL Branch=> $EAC5 if Z=0 $EAA2: 7B 1011 TIM EXT IM&M $EAA5: 26 F6 BNE REL Branch=> $EA9D if Z=0 $EAA7: 7B B07D TIM EXT IM&M $EAAA: 0D SEC IMP C<=1 $EAAB: 26 32 BNE REL Branch=> $EADF if Z=0 $EAAD: EC 09 LDD IND A:B<=M:M+1 $EAAF: C3 0004 ADDD IMM A:B<=A:B+M:M+1 $EAB2: ED 11 STD IND M:M+1<=A:B $EAB4: EC 0D LDD IND A:B<=M:M+1 $EAB6: 83 0004 SUBD IMM A:B<=A:B-M:M+1 $EAB9: ED 13 STD IND M:M+1<=A:B $EABB: A6 08 LDAA IND A<=M $EABD: 85 F0 BITA IMM A&M $EABF: 26 1E BNE REL Branch=> $EADF if Z=0 $EAC1: 84 01 ANDA IMM A<=A&M $EAC3: 20 1C BRA REL Branch=> $EAE1 if (Always) $EAC5: 86 00 LDAA IMM A<=M $EAC7: BD E418 JSR EXT Jump to Subr=>Address $E418 $EACA: 25 13 BCS REL Branch=> $EADF if C=1 $EACC: 81 01 CMPA IMM A-M $EACE: 26 F5 BNE REL Branch=> $EAC5 if Z=0 $EAD0: 4C INCA IMP M<=M+1 $EAD1: 26 FD BNE REL Branch=> $EAD0 if Z=0 $EAD3: DC 11 LDD DIR A:B<=M:M+1 $EAD5: DE 54 LDX DIR IX<=M:M+1 $EAD7: 6C 16 INC IND M<=M+1 $EAD9: A6 16 LDAA IND A<=M $EADB: A1 15 CMPA IND A-M $EADD: 26 AB BNE REL Branch=> $EA8A if Z=0 $EADF: 86 81 LDAA IMM A<=M $EAE1: 36 PSHA IMP =>A;SP<=SP-1 $EAE2: 07 TPA IMP A<=CCR $EAE3: D6 51 LDAB DIR B<=M $EAE5: F7 0205 STAB EXT M<=B $EAE8: D6 57 LDAB DIR B<=M $EAEA: 53 COMB IMP M<= ~M $EAEB: D4 7C ANDB DIR B<=B&M $EAED: D7 7C STAB DIR M<=B $EAEF: F7 021B STAB EXT M<=B $EAF2: 06 TAP IMP CCR<=A $EAF3: 32 PULA IMP SP<=SP+1;<=A $EAF4: 38 PULX IMP SP<=SP-2;<=IX $EAF5: 7E E4BF JMP EXT Jump=>Address $E4BF $EAF8: 71 EF11 AIM EXT M<=IM&M $EAFB: 4F CLRA IMP M<=0 $EAFC: 5F CLRB IMP M<=0 $EAFD: ED 13 STD IND M:M+1<=A:B $EAFF: EC 09 LDD IND A:B<=M:M+1 $EB01: ED 0F STD IND M:M+1<=A:B $EB03: ED 11 STD IND M:M+1<=A:B $EB05: 96 52 LDAA DIR A<=M $EB07: BD E418 JSR EXT Jump to Subr=>Address $E418 $EB0A: 4A DECA IMP M<=M-1 $EB0B: 26 21 BNE REL Branch=> $EB2E if Z=0 $EB0D: CC 0101 LDD IMM A:B<=M:M+1 $EB10: BD E40D JSR EXT Jump to Subr=>Address $E40D $EB13: EC 0D LDD IND A:B<=M:M+1 $EB15: BD E40D JSR EXT Jump to Subr=>Address $E40D $EB18: 25 13 BCS REL Branch=> $EB2D if C=1 $EB1A: 71 1F7A AIM EXT M<=IM&M $EB1D: 8C 01D5 CPX IMM IX-M:M+1 $EB20: 27 08 BEQ REL Branch=> $EB2A if Z=1 $EB22: 72 207A OIM EXT M<=IM|M $EB25: 8D 0B BSR REL Branch to Subr=> $EB32 $EB27: 72 0408 OIM EXT M<=IM|M $EB2A: 72 1011 OIM EXT M<=IM|M $EB2D: 39 RTS IMP Return from Subroutine $EB2E: 62 4008 OIM IND M<=IM|M $EB31: 39 RTS IMP Return from Subroutine $EB32: CC EF9F LDD IMM A:B<=M:M+1 $EB35: FD 010D STD EXT M:M+1<=A:B $EB38: 86 09 LDAA IMM A<=M $EB3A: B7 0206 STAA EXT M<=A $EB3D: 39 RTS IMP Return from Subroutine $EB3E: 86 50 LDAA IMM A<=M $EB40: BD E418 JSR EXT Jump to Subr=>Address $E418 $EB43: 25 27 BCS REL Branch=> $EB6C if C=1 $EB45: 3C PSHX IMP =>IX;SP<=SP-2 $EB46: CE 0208 LDX IMM IX<=M:M+1 $EB49: 61 7F00 AIM IND M<=IM&M $EB4C: 71 DF7C AIM EXT M<=IM&M $EB4F: CE 4268 LDX IMM IX<=M:M+1 $EB52: 09 DEX IMP IX<=IX-1 $EB53: 26 FD BNE REL Branch=> $EB52 if Z=0 $EB55: 38 PULX IMP SP<=SP-2;<=IX $EB56: 37 PSHB IMP =>B;SP<=SP-1 $EB57: D6 02 LDAB DIR B<=M $EB59: D1 02 CMPB DIR B-M $EB5B: 26 FA BNE REL Branch=> $EB57 if Z=0 $EB5D: 5D TSTB IMP M-0 $EB5E: 2A 02 BPL REL Branch=> $EB62 if N=0 $EB60: 8A 04 ORAA IMM A<=A|M $EB62: 16 TAB IMP B<=A $EB63: 96 79 LDAA DIR A<=M $EB65: 84 F8 ANDA IMM A<=A&M $EB67: 1B ABA IMP A<=A+B $EB68: 97 79 STAA DIR M<=A $EB6A: 17 TBA IMP A<=B $EB6B: 33 PULB IMP SP<=SP+1;<=B $EB6C: 7E E4BF JMP EXT Jump=>Address $E4BF $EB6F: 8D CD BSR REL Branch to Subr=> $EB3E $EB71: 25 06 BCS REL Branch=> $EB79 if C=1 $EB73: 84 04 ANDA IMM A<=A&M $EB75: 88 04 EORA IMM A<=A^M $EB77: 27 02 BEQ REL Branch=> $EB7B if Z=1 $EB79: 86 80 LDAA IMM A<=M $EB7B: 39 RTS IMP Return from Subroutine $EB7C: 86 01 LDAA IMM A<=M $EB7E: B7 0207 STAA EXT M<=A $EB81: 8D EC BSR REL Branch to Subr=> $EB6F $EB83: 39 RTS IMP Return from Subroutine $EB84: 4D TSTA IMP M-0 $EB85: 27 04 BEQ REL Branch=> $EB8B if Z=1 $EB87: FF 0203 STX EXT M:M+1<=IX $EB8A: 39 RTS IMP Return from Subroutine $EB8B: FE 0203 LDX EXT IX<=M:M+1 $EB8E: 39 RTS IMP Return from Subroutine $EB8F: 86 72 LDAA IMM A<=M $EB91: 18 XGDX IMP A:B<==>IX $EB92: B3 0203 SUBD EXT A:B<=A:B-M:M+1 $EB95: 2A 08 BPL REL Branch=> $EB9F if N=0 $EB97: 43 COMA IMP M<= ~M $EB98: 53 COMB IMP M<= ~M $EB99: C3 0001 ADDD IMM A:B<=A:B+M:M+1 $EB9C: CE 7100 LDX IMM IX<=M:M+1 $EB9F: 18 XGDX IMP A:B<==>IX $EBA0: 20 02 BRA REL Branch=> $EBA4 if (Always) $EBA2: 86 73 LDAA IMM A<=M $EBA4: 97 50 STAA DIR M<=A $EBA6: 8D C7 BSR REL Branch to Subr=> $EB6F $EBA8: 26 D1 BNE REL Branch=> $EB7B if Z=0 $EBAA: 72 047C OIM EXT M<=IM|M $EBAD: 8D 1B BSR REL Branch to Subr=> $EBCA $EBAF: 96 50 LDAA DIR A<=M $EBB1: BD E418 JSR EXT Jump to Subr=>Address $E418 $EBB4: 25 11 BCS REL Branch=> $EBC7 if C=1 $EBB6: 75 7350 EIM EXT M<=IM^M $EBB9: 27 06 BEQ REL Branch=> $EBC1 if Z=1 $EBBB: 18 XGDX IMP A:B<==>IX $EBBC: BD E40D JSR EXT Jump to Subr=>Address $E40D $EBBF: 25 06 BCS REL Branch=> $EBC7 if C=1 $EBC1: 8D 12 BSR REL Branch to Subr=> $EBD5 $EBC3: 18 XGDX IMP A:B<==>IX $EBC4: 25 01 BCS REL Branch=> $EBC7 if C=1 $EBC6: 4F CLRA IMP M<=0 $EBC7: 7E EC76 JMP EXT Jump=>Address $EC76 $EBCA: 86 6D LDAA IMM A<=M $EBCC: BD E418 JSR EXT Jump to Subr=>Address $E418 $EBCF: FC 0203 LDD EXT A:B<=M:M+1 $EBD2: 7E E40D JMP EXT Jump=>Address $E40D $EBD5: CC 6E6F LDD IMM A:B<=M:M+1 $EBD8: BD E40D JSR EXT Jump to Subr=>Address $E40D $EBDB: 25 0F BCS REL Branch=> $EBEC if C=1 $EBDD: FD 0203 STD EXT M:M+1<=A:B $EBE0: 86 6E LDAA IMM A<=M $EBE2: BD E418 JSR EXT Jump to Subr=>Address $E418 $EBE5: 25 05 BCS REL Branch=> $EBEC if C=1 $EBE7: B1 0203 CMPA EXT A-M $EBEA: 26 E9 BNE REL Branch=> $EBD5 if Z=0 $EBEC: 39 RTS IMP Return from Subroutine ' END @@@@@@@@ MICROCASSETTE MANUAL OPERATION @@@@@@@@ $EBED: BD EB6F JSR EXT Jump to Subr=>Address $EB6F $EBF0: 26 FA BNE REL Branch=> $EBEC if Z=0 $EBF2: 5F CLRB IMP M<=0 $EBF3: BD F56A JSR EXT Jump to Subr=>Address $F56A $EBF6: 72 047C OIM EXT M<=IM|M $EBF9: 8D CF BSR REL Branch to Subr=> $EBCA $EBFB: 86 7B LDAA IMM A<=M $EBFD: B7 0205 STAA EXT M<=A $EC00: BD E418 JSR EXT Jump to Subr=>Address $E418 $EC03: 8D D0 BSR REL Branch to Subr=> $EBD5 $EC05: 25 6F BCS REL Branch=> $EC76 if C=1 $EC07: 09 DEX IMP IX<=IX-1 $EC08: 27 60 BEQ REL Branch=> $EC6A if Z=1 $EC0A: FE FFDA LDX EXT IX<=M:M+1 $EC0D: CC 0E00 LDD IMM A:B<=M:M+1 $EC10: ED 00 STD IND M:M+1<=A:B $EC12: 86 20 LDAA IMM A<=M $EC14: A7 02 STAA IND M<=A $EC16: FC 0203 LDD EXT A:B<=M:M+1 $EC19: 2A 08 BPL REL Branch=> $EC23 if N=0 $EC1B: 62 2D02 OIM IND M<=IM|M $EC1E: 43 COMA IMP M<= ~M $EC1F: 53 COMB IMP M<= ~M $EC20: C3 0001 ADDD IMM A:B<=A:B+M:M+1 $EC23: 3C PSHX IMP =>IX;SP<=SP-2 $EC24: 08 INX IMP IX<=IX+1 $EC25: 08 INX IMP IX<=IX+1 $EC26: 08 INX IMP IX<=IX+1 $EC27: BD EC7E JSR EXT Jump to Subr=>Address $EC7E $EC2A: 38 PULX IMP SP<=SP-2;<=IX $EC2B: C6 06 LDAB IMM B<=M $EC2D: BD F56A JSR EXT Jump to Subr=>Address $F56A $EC30: CE 0002 LDX IMM IX<=M:M+1 $EC33: B6 0205 LDAA EXT A<=M $EC36: 81 7B CMPA IMM A-M $EC38: 27 05 BEQ REL Branch=> $EC3F if Z=1 $EC3A: BD F9C0 JSR EXT Jump to Subr=>Address $F9C0 $EC3D: 27 C4 BEQ REL Branch=> $EC03 if Z=1 $EC3F: BD F9CB JSR EXT Jump to Subr=>Address $F9CB $EC42: 25 32 BCS REL Branch=> $EC76 if C=1 $EC44: 80 FE SUBA IMM A<=A-M $EC46: 26 BB BNE REL Branch=> $EC03 if Z=0 $EC48: C0 F6 SUBB IMM B<=B-M $EC4A: 27 19 BEQ REL Branch=> $EC65 if Z=1 $EC4C: 09 DEX IMP IX<=IX-1 $EC4D: 5C INCB IMP M<=M+1 $EC4E: 27 AB BEQ REL Branch=> $EBFB if Z=1 $EC50: 08 INX IMP IX<=IX+1 $EC51: 86 78 LDAA IMM A<=M $EC53: 5C INCB IMP M<=M+1 $EC54: 27 0D BEQ REL Branch=> $EC63 if Z=1 $EC56: 5C INCB IMP M<=M+1 $EC57: 27 A2 BEQ REL Branch=> $EBFB if Z=1 $EC59: 86 7A LDAA IMM A<=M $EC5B: 5C INCB IMP M<=M+1 $EC5C: 27 05 BEQ REL Branch=> $EC63 if Z=1 $EC5E: 86 79 LDAA IMM A<=M $EC60: 5C INCB IMP M<=M+1 $EC61: 26 A0 BNE REL Branch=> $EC03 if Z=0 $EC63: 20 98 BRA REL Branch=> $EBFD if (Always) $EC65: FD 0203 STD EXT M:M+1<=A:B $EC68: 20 8F BRA REL Branch=> $EBF9 if (Always) $EC6A: 5F CLRB IMP M<=0 $EC6B: BD F56A JSR EXT Jump to Subr=>Address $F56A $EC6E: 7B 407B TIM EXT IM&M $EC71: 26 03 BNE REL Branch=> $EC76 if Z=0 $EC73: BD FF61 JSR EXT Jump to Subr=>Address $FF61 $EC76: 71 FB7C AIM EXT M<=IM&M $EC79: 8A 00 ORAA IMM A<=A|M $EC7B: 7E E4BF JMP EXT Jump=>Address $E4BF $EC7E: 3C PSHX IMP =>IX;SP<=SP-2 $EC7F: CE ECAA LDX IMM IX<=M:M+1 $EC82: 3C PSHX IMP =>IX;SP<=SP-2 $EC83: 30 TSX IMP IX<=SP+1 ' END @@@@@@@@ BINARY DUMP/LOAD ROUTINE @@@@@@@@ $EC84: EE 02 LDX IND IX<=M:M+1 $EC86: 6F 00 CLR IND M<=0 $EC88: 62 2F00 OIM IND M<=IM|M $EC8B: 30 TSX IMP IX<=SP+1 $EC8C: EE 02 LDX IND IX<=M:M+1 $EC8E: 6C 00 INC IND M<=M+1 $EC90: 30 TSX IMP IX<=SP+1 $EC91: EE 00 LDX IND IX<=M:M+1 $EC93: A3 00 SUBD IND A:B<=A:B-M:M+1 $EC95: 24 F4 BCC REL Branch=> $EC8B if C=0 $EC97: E3 00 ADDD IND A:B<=A:B+M:M+1 $EC99: 30 TSX IMP IX<=SP+1 $EC9A: 6C 03 INC IND M<=M+1 $EC9C: 26 02 BNE REL Branch=> $ECA0 if Z=0 $EC9E: 6C 02 INC IND M<=M+1 $ECA0: 38 PULX IMP SP<=SP-2;<=IX $ECA1: 08 INX IMP IX<=IX+1 $ECA2: 08 INX IMP IX<=IX+1 $ECA3: 8C ECB4 CPX IMM IX-M:M+1 $ECA6: 26 DA BNE REL Branch=> $EC82 if Z=0 $ECA8: 38 PULX IMP SP<=SP-2;<=IX $ECA9: 39 RTS IMP Return from Subroutine $ECAA--$ECAF: NUL DATA 27 10 03 E8 00 64 $ECB0--$ECB3: NUL DATA 00 0A 00 01 $ECB4: 97 5E STAA DIR M<=A $ECB6: 27 0A BEQ REL Branch=> $ECC2 if Z=1 $ECB8: 86 02 LDAA IMM A<=M $ECBA: 20 06 BRA REL Branch=> $ECC2 if (Always) $ECBC: 86 08 LDAA IMM A<=M $ECBE: C1 50 CMPB IMM B-M $ECC0: 27 4A BEQ REL Branch=> $ED0C if Z=1 $ECC2: DF 5C STX DIR M:M+1<=IX $ECC4: 97 5F STAA DIR M<=A $ECC6: 17 TBA IMP A<=B $ECC7: B7 0217 STAA EXT M<=A $ECCA: C6 0E LDAB IMM B<=M $ECCC: CE ED10 LDX IMM IX<=M:M+1 $ECCF: 81 4D CMPA IMM A-M $ECD1: 27 15 BEQ REL Branch=> $ECE8 if Z=1 $ECD3: 3A ABX IMP IX<=IX+B $ECD4: 81 43 CMPA IMM A-M $ECD6: 27 10 BEQ REL Branch=> $ECE8 if Z=1 $ECD8: 3A ABX IMP IX<=IX+B $ECD9: 81 50 CMPA IMM A-M $ECDB: 27 0B BEQ REL Branch=> $ECE8 if Z=1 $ECDD: CE ED36 LDX IMM IX<=M:M+1 $ECE0: 81 30 CMPA IMM A-M $ECE2: 25 28 BCS REL Branch=> $ED0C if C=1 $ECE4: 81 38 CMPA IMM A-M $ECE6: 24 24 BCC REL Branch=> $ED0C if C=0 $ECE8: FF 0219 STX EXT M:M+1<=IX $ECEB: 3C PSHX IMP =>IX;SP<=SP-2 $ECEC: C6 07 LDAB IMM B<=M $ECEE: DE 5C LDX DIR IX<=M:M+1 $ECF0: 3A ABX IMP IX<=IX+B $ECF1: A6 13 LDAA IND A<=M $ECF3: CE 020F LDX IMM IX<=M:M+1 $ECF6: 3A ABX IMP IX<=IX+B $ECF7: A7 00 STAA IND M<=A $ECF9: 5A DECB IMP M<=M-1 $ECFA: 2A F2 BPL REL Branch=> $ECEE if N=0 $ECFC: 38 PULX IMP SP<=SP-2;<=IX $ECFD: 3C PSHX IMP =>IX;SP<=SP-2 $ECFE: EE 00 LDX IND IX<=M:M+1 $ED00: 6F 00 CLR IND M<=0 $ED02: 38 PULX IMP SP<=SP-2;<=IX $ED03: DC 5E LDD DIR A:B<=M:M+1 $ED05: 3A ABX IMP IX<=IX+B $ED06: EE 02 LDX IND IX<=M:M+1 $ED08: 3C PSHX IMP =>IX;SP<=SP-2 $ED09: DE 5C LDX DIR IX<=M:M+1 $ED0B: 39 RTS IMP Return from Subroutine $ED0C: 86 99 LDAA IMM A<=M $ED0E: 0C CLC IMP C<=0 $ED0F: 39 RTS IMP Return from Subroutine $ED10--$ED17: NUL DATA 01 EC E9 6B E9 6F E9 0A $ED18--$ED1F: NUL DATA E8 88 E6 B0 E8 3C 01 D5 $ED20--$ED27: NUL DATA E9 81 E9 85 E9 18 E8 95 $ED28--$ED2F: NUL DATA E6 C4 E8 46 02 08 EE 18 $ED20--$ED37: NUL DATA EE 18 F3 4C F3 F0 02 18 $ED28--$ED3F: NUL DATA EE 1E EE 1E E5 9C EE 3B $ED40--$ED43: NUL DATA EE 1E E5 F5 $ED44: FE 0211 LDX EXT IX<=M:M+1 $ED47: 08 INX IMP IX<=IX+1 $ED48: 18 XGDX IMP A:B<==>IX $ED49: B3 020F SUBD EXT A:B<=A:B-M:M+1 $ED4C: 26 06 BNE REL Branch=> $ED54 if Z=0 $ED4E: FE 0215 LDX EXT IX<=M:M+1 $ED51: FF 020F STX EXT M:M+1<=IX $ED54: 4D TSTA IMP M-0 $ED55: 26 04 BNE REL Branch=> $ED5B if Z=0 $ED57: C5 C0 BITB IMM B&M $ED59: 27 02 BEQ REL Branch=> $ED5D if Z=1 $ED5B: C6 40 LDAB IMM B<=M $ED5D: D7 5E STAB DIR M<=B $ED5F: 17 TBA IMP A<=B $ED60: 5F CLRB IMP M<=0 $ED61: D7 5F STAB DIR M<=B $ED63: 8D 30 BSR REL Branch to Subr=> $ED95 $ED65: FC 020F LDD EXT A:B<=M:M+1 $ED68: F3 0213 ADDD EXT A:B<=A:B+M:M+1 $ED6B: D7 5D STAB DIR M<=B $ED6D: 8D 26 BSR REL Branch to Subr=> $ED95 $ED6F: 96 5D LDAA DIR A<=M $ED71: 8D 22 BSR REL Branch to Subr=> $ED95 $ED73: 96 5E LDAA DIR A<=M $ED75: 27 17 BEQ REL Branch=> $ED8E if Z=1 $ED77: FE 020F LDX EXT IX<=M:M+1 $ED7A: A6 00 LDAA IND A<=M $ED7C: 8D 17 BSR REL Branch to Subr=> $ED95 $ED7E: 08 INX IMP IX<=IX+1 $ED7F: 7A 005E DEC EXT M<=M-1 $ED82: 26 F6 BNE REL Branch=> $ED7A if Z=0 $ED84: FF 020F STX EXT M:M+1<=IX $ED87: 96 5F LDAA DIR A<=M $ED89: 40 NEGA IMP M<= -M $ED8A: 8D 09 BSR REL Branch to Subr=> $ED95 $ED8C: 20 B6 BRA REL Branch=> $ED44 if (Always) $ED8E: 96 5F LDAA DIR A<=M $ED90: 40 NEGA IMP M<= -M $ED91: 8D 02 BSR REL Branch to Subr=> $ED95 $ED93: 20 57 BRA REL Branch=> $EDEC if (Always) $ED95: 16 TAB IMP B<=A $ED96: DB 5F ADDB DIR B<=B+M $ED98: D7 5F STAB DIR M<=B $ED9A: 3C PSHX IMP =>IX;SP<=SP-2 $ED9B: FE 0219 LDX EXT IX<=M:M+1 $ED9E: EE 0C LDX IND IX<=M:M+1 $EDA0: AD 00 JSR IND Jump to Subr=>Address $EDA2: 25 08 BCS REL Branch=> $EDAC if C=1 $EDA4: 27 07 BEQ REL Branch=> $EDAD if Z=1 $EDA6: 37 PSHB IMP =>B;SP<=SP-1 $EDA7: 8D 43 BSR REL Branch to Subr=> $EDEC $EDA9: 32 PULA IMP SP<=SP+1;<=A $EDAA: 8A 00 ORAA IMM A<=A|M $EDAC: 38 PULX IMP SP<=SP-2;<=IX $EDAD: 38 PULX IMP SP<=SP-2;<=IX $EDAE: 39 RTS IMP Return from Subroutine $EDAF: 97 5C STAA DIR M<=A $EDB1: 5F CLRB IMP M<=0 $EDB2: D7 5F STAB DIR M<=B $EDB4: 8D 44 BSR REL Branch to Subr=> $EDFA $EDB6: 97 5E STAA DIR M<=A $EDB8: 8D 40 BSR REL Branch to Subr=> $EDFA $EDBA: 97 5D STAA DIR M<=A $EDBC: 8D 3C BSR REL Branch to Subr=> $EDFA $EDBE: 16 TAB IMP B<=A $EDBF: 96 5D LDAA DIR A<=M $EDC1: F3 0213 ADDD EXT A:B<=A:B+M:M+1 $EDC4: 18 XGDX IMP A:B<==>IX $EDC5: 96 5E LDAA DIR A<=M $EDC7: 27 23 BEQ REL Branch=> $EDEC if Z=1 $EDC9: 8D 2F BSR REL Branch to Subr=> $EDFA $EDCB: D6 5C LDAB DIR B<=M $EDCD: 26 0E BNE REL Branch=> $EDDD if Z=0 $EDCF: BC 020F CPX EXT IX-M:M+1 $EDD2: 25 22 BCS REL Branch=> $EDF6 if C=1 $EDD4: BC 0211 CPX EXT IX-M:M+1 $EDD7: 27 02 BEQ REL Branch=> $EDDB if Z=1 $EDD9: 24 1B BCC REL Branch=> $EDF6 if C=0 $EDDB: A7 00 STAA IND M<=A $EDDD: 08 INX IMP IX<=IX+1 $EDDE: 7A 005E DEC EXT M<=M-1 $EDE1: 26 E6 BNE REL Branch=> $EDC9 if Z=0 $EDE3: 8D 15 BSR REL Branch to Subr=> $EDFA $EDE5: 96 5F LDAA DIR A<=M $EDE7: 27 C8 BEQ REL Branch=> $EDB1 if Z=1 $EDE9: 86 86 LDAA IMM A<=M $EDEB: 39 RTS IMP Return from Subroutine $EDEC: 3C PSHX IMP =>IX;SP<=SP-2 $EDED: FE 0219 LDX EXT IX<=M:M+1 $EDF0: EE 08 LDX IND IX<=M:M+1 $EDF2: AD 00 JSR IND Jump to Subr=>Address $EDF4: 38 PULX IMP SP<=SP-2;<=IX $EDF5: 39 RTS IMP Return from Subroutine $EDF6: 86 8C LDAA IMM A<=M $EDF8: 0C CLC IMP C<=0 $EDF9: 39 RTS IMP Return from Subroutine $EDFA: 3C PSHX IMP =>IX;SP<=SP-2 $EDFB: FE 0219 LDX EXT IX<=M:M+1 $EDFE: EE 06 LDX IND IX<=M:M+1 $EE00: AD 00 JSR IND Jump to Subr=>Address $EE02: 25 A2 BCS REL Branch=> $EDA6 if C=1 $EE04: 27 0B BEQ REL Branch=> $EE11 if Z=1 $EE06: BC ED3C CPX EXT IX-M:M+1 $EE09: 26 9B BNE REL Branch=> $EDA6 if Z=0 $EE0B: C1 01 CMPB IMM B-M $EE0D: 27 F1 BEQ REL Branch=> $EE00 if Z=1 $EE0F: 20 95 BRA REL Branch=> $EDA6 if (Always) $EE11: 38 PULX IMP SP<=SP-2;<=IX $EE12: 16 TAB IMP B<=A $EE13: DB 5F ADDB DIR B<=B+M $EE15: D7 5F STAB DIR M<=B $EE17: 39 RTS IMP Return from Subroutine $EE18: 08 INX IMP IX<=IX+1 $EE19: 08 INX IMP IX<=IX+1 $EE1A: 08 INX IMP IX<=IX+1 $EE1B: 7E F2BA JMP EXT Jump=>Address $F2BA $EE1E: 96 7A LDAA DIR A<=M $EE20: 97 5B STAA DIR M<=A $EE22: 86 F9 LDAA IMM A<=M $EE24: F6 0217 LDAB EXT B<=M $EE27: 0D SEC IMP C<=1 $EE28: 59 ROLB IMP C<=########<=C $EE29: 58 ASLB IMP C<=########<=0 $EE2A: 58 ASLB IMP C<=########<=0 $EE2B: 58 ASLB IMP C<=########<=0 $EE2C: BD E48A JSR EXT Jump to Subr=>Address $E48A $EE2F: 86 01 LDAA IMM A<=M $EE31: 8D 11 BSR REL Branch to Subr=> $EE44 $EE33: EE 01 LDX IND IX<=M:M+1 $EE35: CC 0100 LDD IMM A:B<=M:M+1 $EE38: 7E E4D1 JMP EXT Jump=>Address $E4D1 $EE3B: BD E56F JSR EXT Jump to Subr=>Address $E56F $EE3E: 7B 085B TIM EXT IM&M $EE41: 26 04 BNE REL Branch=> $EE47 if Z=0 $EE43: 4F CLRA IMP M<=0 $EE44: 7E E515 JMP EXT Jump=>Address $E515 $EE47: 8A 00 ORAA IMM A<=A|M $EE49: 39 RTS IMP Return from Subroutine ' END @@@@@@@@ INTERRUPT ROUTINE @@@@@@@@ $EE4A: 96 11 LDAA DIR A<=M $EE4C: 96 12 LDAA DIR A<=M $EE4E: D6 7A LDAB DIR B<=M $EE50: C4 E0 ANDB IMM B<=B&M $EE52: C1 40 CMPB IMM B-M $EE54: 26 25 BNE REL Branch=> $EE7B if Z=0 $EE56: FE 01C2 LDX EXT IX<=M:M+1 $EE59: BC 01BC CPX EXT IX-M:M+1 $EE5C: 27 16 BEQ REL Branch=> $EE74 if Z=1 $EE5E: 08 INX IMP IX<=IX+1 $EE5F: FF 01C2 STX EXT M:M+1<=IX $EE62: FE 01BE LDX EXT IX<=M:M+1 $EE65: A7 00 STAA IND M<=A $EE67: 08 INX IMP IX<=IX+1 $EE68: BC 01BA CPX EXT IX-M:M+1 $EE6B: 26 03 BNE REL Branch=> $EE70 if Z=0 $EE6D: FE 01B8 LDX EXT IX<=M:M+1 $EE70: FF 01BE STX EXT M:M+1<=IX $EE73: 3B RTI IMP Return from Interrupt $EE74: CE 01B7 LDX IMM IX<=M:M+1 $EE77: 62 8000 OIM IND M<=IM|M $EE7A: 3B RTI IMP Return from Interrupt $EE7B: CE 01D5 LDX IMM IX<=M:M+1 $EE7E: 86 21 LDAA IMM A<=M $EE80: C5 20 BITB IMM B&M $EE82: 27 05 BEQ REL Branch=> $EE89 if Z=1 $EE84: 86 61 LDAA IMM A<=M $EE86: CE 01EC LDX IMM IX<=M:M+1 $EE89: 5D TSTB IMP M-0 $EE8A: 2A 24 BPL REL Branch=> $EEB0 if N=0 $EE8C: 91 12 CMPA DIR A-M $EE8E: 26 12 BNE REL Branch=> $EEA2 if Z=0 $EE90: EC 11 LDD IND A:B<=M:M+1 $EE92: C3 0001 ADDD IMM A:B<=A:B+M:M+1 $EE95: ED 11 STD IND M:M+1<=A:B $EE97: A3 0B SUBD IND A:B<=A:B-M:M+1 $EE99: 27 0A BEQ REL Branch=> $EEA5 if Z=1 $EE9B: EE 11 LDX IND IX<=M:M+1 $EE9D: A6 00 LDAA IND A<=M $EE9F: 97 13 STAA DIR M<=A $EEA1: 3B RTI IMP Return from Interrupt $EEA2: 62 4008 OIM IND M<=IM|M $EEA5: 71 7F4F AIM EXT M<=IM&M $EEA8: 96 4F LDAA DIR A<=M $EEAA: 97 26 STAA DIR M<=A $EEAC: 71 EF11 AIM EXT M<=IM&M $EEAF: 3B RTI IMP Return from Interrupt $EEB0: DF 74 STX DIR M:M+1<=IX $EEB2: EC 13 LDD IND A:B<=M:M+1 $EEB4: DD 76 STD DIR M:M+1<=A:B $EEB6: D6 12 LDAB DIR B<=M $EEB8: EE 09 LDX IND IX<=M:M+1 $EEBA: A6 00 LDAA IND A<=M $EEBC: DE 74 LDX DIR IX<=M:M+1 $EEBE: EE 0D LDX IND IX<=M:M+1 $EEC0: 81 48 CMPA IMM A-M $EEC2: 27 04 BEQ REL Branch=> $EEC8 if Z=1 $EEC4: 81 45 CMPA IMM A-M $EEC6: 26 03 BNE REL Branch=> $EECB if Z=0 $EEC8: CE 0054 LDX IMM IX<=M:M+1 $EECB: 9C 76 CPX DIR IX-M:M+1 $EECD: 27 14 BEQ REL Branch=> $EEE3 if Z=1 $EECF: DE 74 LDX DIR IX<=M:M+1 $EED1: EE 0F LDX IND IX<=M:M+1 $EED3: E7 00 STAB IND M<=B $EED5: 08 INX IMP IX<=IX+1 $EED6: 18 XGDX IMP A:B<==>IX $EED7: DE 74 LDX DIR IX<=M:M+1 $EED9: ED 0F STD IND M:M+1<=A:B $EEDB: DC 76 LDD DIR A:B<=M:M+1 $EEDD: C3 0001 ADDD IMM A:B<=A:B+M:M+1 $EEE0: ED 13 STD IND M:M+1<=A:B $EEE2: 3B RTI IMP Return from Interrupt $EEE3: 97 76 STAA DIR M<=A $EEE5: DE 74 LDX DIR IX<=M:M+1 $EEE7: 71 EF11 AIM EXT M<=IM&M $EEEA: 86 22 LDAA IMM A<=M $EEEC: 8C 01D5 CPX IMM IX-M:M+1 $EEEF: 27 02 BEQ REL Branch=> $EEF3 if Z=1 $EEF1: 86 62 LDAA IMM A<=M $EEF3: 11 CBA IMP A-B $EEF4: 26 45 BNE REL Branch=> $EF3B if Z=0 $EEF6: CC 4A4B LDD IMM A:B<=M:M+1 $EEF9: BD E40D JSR EXT Jump to Subr=>Address $E40D $EEFC: 25 35 BCS REL Branch=> $EF33 if C=1 $EEFE: ED 03 STD IND M:M+1<=A:B $EF00: 26 39 BNE REL Branch=> $EF3B if Z=0 $EF02: 96 76 LDAA DIR A<=M $EF04: 81 45 CMPA IMM A-M $EF06: 26 03 BNE REL Branch=> $EF0B if Z=0 $EF08: 62 0108 OIM IND M<=IM|M $EF0B: 96 52 LDAA DIR A<=M $EF0D: 84 0F ANDA IMM A<=A&M $EF0F: 81 08 CMPA IMM A-M $EF11: 26 0E BNE REL Branch=> $EF21 if Z=0 $EF13: EC 01 LDD IND A:B<=M:M+1 $EF15: EE 09 LDX IND IX<=M:M+1 $EF17: A3 01 SUBD IND A:B<=A:B-M:M+1 $EF19: 25 19 BCS REL Branch=> $EF34 if C=1 $EF1B: 26 26 BNE REL Branch=> $EF43 if Z=0 $EF1D: EC 01 LDD IND A:B<=M:M+1 $EF1F: 27 13 BEQ REL Branch=> $EF34 if Z=1 $EF21: DE 74 LDX DIR IX<=M:M+1 $EF23: A6 07 LDAA IND A<=M $EF25: 26 0C BNE REL Branch=> $EF33 if Z=0 $EF27: 86 23 LDAA IMM A<=M $EF29: 8C 01D5 CPX IMM IX-M:M+1 $EF2C: 27 02 BEQ REL Branch=> $EF30 if Z=1 $EF2E: 86 7B LDAA IMM A<=M $EF30: BD E418 JSR EXT Jump to Subr=>Address $E418 $EF33: 3B RTI IMP Return from Interrupt $EF34: DE 74 LDX DIR IX<=M:M+1 $EF36: 62 4008 OIM IND M<=IM|M $EF39: 20 EC BRA REL Branch=> $EF27 if (Always) $EF3B: 6C 16 INC IND M<=M+1 $EF3D: A6 16 LDAA IND A<=M $EF3F: A1 15 CMPA IND A-M $EF41: 27 F1 BEQ REL Branch=> $EF34 if Z=1 $EF43: DE 74 LDX DIR IX<=M:M+1 $EF45: BD EAF8 JSR EXT Jump to Subr=>Address $EAF8 $EF48: 3B RTI IMP Return from Interrupt $EF49: 7B 4028 TIM EXT IM&M $EF4C: 27 1B BEQ REL Branch=> $EF69 if Z=1 $EF4E: 96 02 LDAA DIR A<=M $EF50: 85 10 BITA IMM A&M $EF52: 27 31 BEQ REL Branch=> $EF85 if Z=1 $EF54: 85 08 BITA IMM A&M $EF56: 27 0E BEQ REL Branch=> $EF66 if Z=1 $EF58: 96 4C LDAA DIR A<=M $EF5A: 2B 3C BMI REL Branch=> $EF98 if N=1 $EF5C: 96 08 LDAA DIR A<=M $EF5E: 43 COMA IMP M<= ~M $EF5F: 84 24 ANDA IMM A<=A&M $EF61: 27 3C BEQ REL Branch=> $EF9F if Z=1 $EF63: 7E F590 JMP EXT Jump=>Address $F590 $EF66: 7E 0103 JMP EXT Jump=>Address $0103 $EF69: BD E0EB JSR EXT Jump to Subr=>Address $E0EB $EF6C: 72 207D OIM EXT M<=IM|M $EF6F: 96 4E LDAA DIR A<=M $EF71: 84 F0 ANDA IMM A<=A&M $EF73: 27 09 BEQ REL Branch=> $EF7E if Z=1 $EF75: 81 30 CMPA IMM A-M $EF77: 24 05 BCC REL Branch=> $EF7E if C=0 $EF79: FE 0132 LDX EXT IX<=M:M+1 $EF7C: AD 00 JSR IND Jump to Subr=>Address $EF7E: 96 7B LDAA DIR A<=M $EF80: 2B 10 BMI REL Branch=> $EF92 if N=1 $EF82: 7E E0D7 JMP EXT Jump=>Address $E0D7 $EF85: BD E0EB JSR EXT Jump to Subr=>Address $E0EB $EF88: 72 107D OIM EXT M<=IM|M $EF8B: 96 7B LDAA DIR A<=M $EF8D: 2A 0D BPL REL Branch=> $EF9C if N=0 $EF8F: 71 7F7D AIM EXT M<=IM&M $EF92: 32 PULA IMP SP<=SP+1;<=A $EF93: 06 TAP IMP CCR<=A $EF94: 0F SEI IMP I<=1 $EF95: 07 TPA IMP A<=CCR $EF96: 36 PSHA IMP =>A;SP<=SP-1 $EF97: 3B RTI IMP Return from Interrupt $EF98: 72 087D OIM EXT M<=IM|M $EF9B: 3B RTI IMP Return from Interrupt $EF9C: 8D 5D BSR REL Branch to Subr=> $EFFB $EF9E: 3B RTI IMP Return from Interrupt $EF9F: 71 FB08 AIM EXT M<=IM&M $EFA2: DC 09 LDD DIR A:B<=M:M+1 $EFA4: 0E CLI IMP I<=0 $EFA5: 86 FF LDAA IMM A<=M $EFA7: 16 TAB IMP B<=A $EFA8: CE 0005 LDX IMM IX<=M:M+1 $EFAB: 96 02 LDAA DIR A<=M $EFAD: 91 02 CMPA DIR A-M $EFAF: 26 FA BNE REL Branch=> $EFAB if Z=0 $EFB1: 84 80 ANDA IMM A<=A&M $EFB3: 11 CBA IMP A-B $EFB4: 26 F1 BNE REL Branch=> $EFA7 if Z=0 $EFB6: 09 DEX IMP IX<=IX-1 $EFB7: 27 07 BEQ REL Branch=> $EFC0 if Z=1 $EFB9: 86 96 LDAA IMM A<=M $EFBB: 4A DECA IMP M<=M-1 $EFBC: 26 FD BNE REL Branch=> $EFBB if Z=0 $EFBE: 20 EB BRA REL Branch=> $EFAB if (Always) $EFC0: CE 01EC LDX IMM IX<=M:M+1 $EFC3: A1 1B CMPA IND A-M $EFC5: 26 1E BNE REL Branch=> $EFE5 if Z=0 $EFC7: 6A 1A DEC IND M<=M-1 $EFC9: 26 2C BNE REL Branch=> $EFF7 if Z=0 $EFCB: 6D 19 TST IND M-0 $EFCD: 2E 05 BGT REL Branch=> $EFD4 if Z|(N^V)=0 $EFCF: 6B 042F TIM IND IM&M $EFD2: 27 10 BEQ REL Branch=> $EFE4 if Z=1 $EFD4: 62 1008 OIM IND M<=IM|M $EFD7: 6C 1A INC IND M<=M+1 $EFD9: 7B 027D TIM EXT IM&M $EFDC: 26 19 BNE REL Branch=> $EFF7 if Z=0 $EFDE: CC 7D77 LDD IMM A:B<=M:M+1 $EFE1: BD E40D JSR EXT Jump to Subr=>Address $E40D $EFE4: 3B RTI IMP Return from Interrupt $EFE5: 0F SEI IMP I<=1 $EFE6: E6 1B LDAB IND B<=M $EFE8: A7 1B STAA IND M<=A $EFEA: 86 09 LDAA IMM A<=M $EFEC: A7 1A STAA IND M<=A $EFEE: 57 ASRB IMP %=>########=>C $EFEF: 25 06 BCS REL Branch=> $EFF7 if C=1 $EFF1: EE 17 LDX IND IX<=M:M+1 $EFF3: 08 INX IMP IX<=IX+1 $EFF4: FF 0203 STX EXT M:M+1<=IX $EFF7: 72 0408 OIM EXT M<=IM|M $EFFA: 3B RTI IMP Return from Interrupt $EFFB: CE 003C LDX IMM IX<=M:M+1 $EFFE: 3C PSHX IMP =>IX;SP<=SP-2 $EFFF: 5F CLRB IMP M<=0 $F000: BD F56A JSR EXT Jump to Subr=>Address $F56A $F003: C6 0F LDAB IMM B<=M $F005: CE F029 LDX IMM IX<=M:M+1 $F008: BD F56A JSR EXT Jump to Subr=>Address $F56A $F00B: 38 PULX IMP SP<=SP-2;<=IX $F00C: C6 05 LDAB IMM B<=M $F00E: 96 08 LDAA DIR A<=M $F010: 96 09 LDAA DIR A<=M $F012: 7B 2008 TIM EXT IM&M $F015: 27 FB BEQ REL Branch=> $F012 if Z=1 $F017: 5A DECB IMP M<=M-1 $F018: 26 F4 BNE REL Branch=> $F00E if Z=0 $F01A: 7B 1002 TIM EXT IM&M $F01D: 26 06 BNE REL Branch=> $F025 if Z=0 $F01F: 09 DEX IMP IX<=IX-1 $F020: 26 DC BNE REL Branch=> $EFFE if Z=0 $F022: 7E E0D7 JMP EXT Jump=>Address $E0D7 $F025: 71 EF7D AIM EXT M<=IM&M $F028: 39 RTS IMP Return from Subroutine $F029--$F02F NUL DATA 02 01 43 48 41 52 47 $F030--$F037 NUL DATA 45 20 42 41 54 54 45 52 $F038--$F03F NUL DATA 59 21 FF FF FF FF FF FF ' END