6 STRONAProgram ten służy do śledzenia wykonywania programów w Basicu i umożliwia łatwe wykrycie błędu. W górnej części ekranu po daje numer wiersza, który jest aktualnie wykonywany przez interpreter Basica. Program po przepisaniu należy nagrać na taśmę lub dyskietkę instrukcją LIST "C:" lub LIST "D:TRACKER.LST." Teraz możemy doczy tać TRACKER'a do dowolnego programu instrukcją ENTER "C:" lub ENTER "D:TRACKER.LST" i uruchomić instrukcją GOTO 38000. Program wyłącza się klawiszem RESET. 32000 RESTORE 32010:FOR ADDR=1536 TO 1 697:READ DTA:POKE ADDR,DTA:NEXT ADDR:D TA=USR(1536) 32010 DATA 104,173,48,2,56,233,2,133,0 ,173,49,2,233,0,133,1,160,3,185,138,6, 145,0,136,16,248,165,20 32020 DATA 197,20,240,252,165,0,141,48 ,2,165,1,141,49,2,169,7,160,51,162,6,7 6,92,228,160,43,185,211,0 32030 DATA 153,161,6,136,208,247,160,1 1,177,243,153,206,6,136,16,248,165,160 ,133,212,165,161,133,213,32,170,217,32 32040 DATA 230,216,160,255,200,177,243 ,41,247,56,233,32,153,152,6,177,243,16 ,241,200,169,0,153,152,6,200,192,6 32050 DATA 208,248,160,43,185,161,6,15 3,211,0,136,208,247,160,11,185,206,6,1 45,243,136,16,248,76,98,228,112,70 32060 DATA 142,6,0,0,0,0,44,41,46,41,3 3,13,0,0,0,0,0,0,0,0,0,0
* Basic Tracker
ADR equ 0
FASC equ $D8E6
IFP equ $D9AA
FLDOR equ $DD89
FSTOR equ $DDA7
INBUFF equ $F3
FRO equ $D4
CLNN equ $A0
opt %100101
org $0600
*- pobierz parametr
PLA
*- ustal dowy DL
LDA 560
SEC
SBC <2
STA ADR
LDA 561
SBC >2
STA ADR+1
LDY #3
LDA MDLIS,Y
STA (ADR),Y
DEY
BPL *-6
*- poczekaj na
*- przerwanie
LDA 20
CMP 20
BEQ *-2
LDA ADR
STA 560
LDA ADR+1
STA 561
*- ustaw przerwanie
LDA #7
LDY
|