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="