Apple II Benutzerhandbuch

1162   E732 65 EA              ADC LENGTH

1163   E734 8D 25 A4           STA SAVPC
1164   E737 90 03              BCC JD3

1165   E739 EE 26 A4           INC SAVPC+1
1166   E73C 20 24 EA    JD3    JSR CRCK        ;<CR>

1167   E73F 4C 23 E7           JMP JD1
1168   E742 60          JD4    RTS

1169   E743
1170   E743             ;INITIALIZATION TABLE FOR 6522

1171   E743 340037FF25FFINTAB1 .DB $34,$00,$37,$FF,$25,$FF,$25,$FF
1171   E749 25FF

1172   E74B FF FF 00 00        .DB $FF,$FF,$00,T1I+T2I
1173   E74F E1 FF 7F           .DB MOFF+PRST+SP12,$FF,$7F

1174   E752             ;INITIALIZATION TABLE FOR 6532
1175   E752 FF FF 00 00 INTAB2 .DB $FF,$FF,$00,$00

1176   E756             ;INITIALIZATION TABLE FOR MONITOR RAM
1177   E756 7BE054E105EFINTAB3 .DW NMIV3,IRQV3,OUTDIS

1178   E75C C70802CA0380       .DB $C7,$08,$02,$CA,$03,$80,$00,$00
1178   E762 0000

1179   E764 00800D0D0000       .DB $00,$80,$0D,$0D,$00,$00,$00
1179   E76A 00

1180   E76B             ;SEE IF WE HIT A SOFT BREAKPOINT (PART OF NMV3)
1181   E76B A2 07       CKB    LDX #7          ;COMPARE BRKPT LIST TO TRAP ADDR

1182   E76D BD 00 01    CKB2   LDA BKS,X       ;GET ADDRESS OF NEXT BREAKPOINT
1183   E770 CA                 DEX

1184   E771 CD 26 A4           CMP SAVPC+1     ;COMPARE TO SAVED PROGRAM COUNTER
1185   E774 D0 0A              BNE CKB1

1186   E776 BD 00 01           LDA BKS,X
1187   E779 CD 25 A4           CMP SAVPC

1188   E77C D0 02              BNE CKB1        ;NO MATCH SO TRY NEXT BREAKPOINT
1189   E77E 38                 SEC             ;MATCH-SET MATCH FLAG

1190   E77F 60                 RTS
1191   E780 CA          CKB1   DEX

1192   E781 10 EA              BPL CKB2        ;MORE TO GO
1193   E783 18                 CLC             ;NO MATCH -RESET MATCH FLAG

1194   E784 60                 RTS
1195   E785

1196   E785             ;GET # OF LINES COUNT FOR GO-COMMAND,LIST-COMM
1197   E785 20 5D EA    GCNT   JSR RD2

1198   E788 90 02              BCC GCN1
1199   E78A 49 0C              EOR #$0C        ;<SPACE>---> $2C ,<CR>---> $01

1200   E78C 8D 19 A4    GCN1   STA COUNT
1201   E78F 60                 RTS

1202   E790
1203   E790             ;CHECK IF COUNT HAS REACHED ZERO

1204   E790             ;COUNT=$2C MEANS FOREVER
1205   E790 AD 19 A4    DONE   LDA COUNT       ;IF COUNT=0 WE ARE DONE

1206   E793 C9 2C              CMP #$2C        ;THIS MEANS FOR EVER
1207   E795 F0 09              BEQ DON1        ;SET ACC DIFF FROM ZERO

1208   E797 F8                 SED             ;DECREMENT COUNT IN DECIMAL
1209   E798 38                 SEC

1210   E799 E9 01              SBC #1
1211   E79B D8                 CLD

1212   E79C 8D 19 A4           STA COUNT
1213   E79F 60                 RTS

1214   E7A0 A9 2C       DON1   LDA #$2C
1215   E7A2 60                 RTS

1216   E7A3
1217   E7A3 A0 00       FROM   LDY #0          ;PRINT "FR="

1218   E7A5 F0 02              BEQ TO1
1219   E7A7

1220   E7A7 A0 05       TO     LDY #M3-M1      ;PRINT "TO="