100 OPEN2,9,1,"0:BUGSC.52300"
110 SYS700
120 ;
130 *=52300
140 ;
150 .OPT O2
160 ;
170 PTR    = $22
180 CHANNL = $13
190 CURLIN = $39
200 LINNUM = $14
210 TXTPTR = $7A
220 TEMP   = $02
230 TEMP1  = $49
240 ERR    = $02A7
250 ROW    = $02A8
260 COL    = $02A9
270 PRINT  = $AB47
280 ERRTAB = $A326
290 LINKPRG = $A533
300 CLEAR  = $A659
310 INIT   = $A67A
320 ERROR  = $A36A
330 STROUT = $AB1E
340 FNDLIN = $A613
350 STOP   = $A82C
360 LINPRT = $BDCD
370 RESLST = $A09E
380 WARM1  = $E38B
390 LIST   = $A6C9
400 READY1 = $A47B
410 NRMERR = $A43A
420 IERROR = $0300
430 CLRCHN = $FFCC
440 PLOT   = $FFF0
450 ;
460 JSR LINKPRG ;RE-SET PROGRAM PNTRS
470 CLC         ; SO USER DOESN'T HAVE
480 LDA PTR     ; TO TYPE NEW
490 ADC #2
500 STA $2D
510 LDA PTR+1
520 ADC #0
530 STA $2E
540 JSR CLEAR
550 LDA #12    ;SET BORDER COLOR
560 STA $D020  ;
570 LDA #0     ;SET BACKGROUND COLOR
580 STA $D021  ;
590 ;
600 LDA 646 ;
610 PHA ;
620 ;
630 JSR TITLE    ;DISPLAY TITLE
640 LDA IERROR+1 ;SET/RESET
650 CMP #$E3     ; DEBUG WEDGE
660 BEQ E1
670 ;
680 LDX #7
690 .BYTE $2C
700 E1 LDX #3
710 LDA MTAB,X
720 STA IERROR+1
730 DEX
740 LDA MTAB,X
750 STA MTAB,X
760 STA IERROR
770 STX $02
780 LDA #<MS6
790 LDY #>MS6
800 JSR STROUT
810 LDX $02
820 DEX
830 LDY MTAB,X
840 DEX
850 LDA MTAB,X
860 JSR STROUT
870 ;
880 PLA ;
890 STA 646 ;
900 ;
910 JMP $A474
920 ;
930 START CPX #$30 ;ERROR CODE?
940 BCC ENTRY      ;YES, CONTINUE
950 JMP WARM1      ;NO, EXIT
960 ;
970 ENTRY LDA CURLIN+1
980 CMP #$FF            ;"DIRECT MODE?
990 BNE ENTRY1          ;NO, [154]INUE
1000 JMP NRMERR         ;YES, EXIT
1010 ;
1020 ENTRY1 STX ERR      ;[148] ERR[176]
1030 LDA #0              ;RESET BASIC
1040 STA CHANNL
1050 JSR INIT
1060 ;
1070 LDA 646 ;[148] CHAR COL[176]
1080 PHA     ;
1090 ;
1100 LDA #[179]MS1    ;DISPLAY ERR[176]
1110 LDY #[177]MS1    ; MESSAGE
1120 JSR STROUT
1130 LDA ERR
1140 ASL A
1150 TAX
1160 LDA ERRTAB,X
1170 STA PTR
1180 LDA ERRTAB[170]1,X
1190 STA PTR[170]1
1200 LDY #0
1210 ELOOP LDA (PTR),Y
1220 PHA
1230 [175] #$7F
1240 JSR [153]
1250 INY
1260 PLA
1270 BPL ELOOP
1280 LDA #[179]MS2
1290 LDY #[177]MS2
1300 JSR STROUT
1310 ;
1320 LDA $D021 ;
1330 [175] #15   ;
1340 CMP #1    ;
1350 BEQ FLOYD ;
1360 LDA #5    ;
1370 .BYTE $2C
1380 FLOYD LDA #144
1390 JSR $FFD2 ;
1400 ;
1410 LDA CURLIN    ;[161] BASIC
1420 LDX CURLIN[170]1  ; LINE NUMBER.
1430 STA LINNUM    ;FIND ADDRESS
1440 STX LINNUM[170]1  ; OF BASIC LINE
1450 JSR [165]DLIN
1460 SEC           ;CALCULATE [185]ITI[145]
1470 LDA TXTPTR    ; OF ERR[176] IN
1480 SBC $5F       ; BASIC LINE
1490 STA TEMP
1500 JSR L1    ;[155] [164] CRT.
1510 ;
1520 PLA       ;[140] CHAR COL[176]
1530 STA 646   ;
1540 ;
1550 LDX ROW   ;SET CURS[176]
1560 LDY COL   ; [185]ITI[145] [145]
1570 CLC       ; BASIC LINE
1580 JSR PLOT
1590 LDX #3         ;RESET SCREEN
1600 L0 LDA BTAB,X  ; EDI[164]R PO[181]ERS
1610 STA $0277,X
1620 DEX
1630 BPL L0
1640 LDA #4
1650 STA $C6
1660 JMP [135]Y1 ;EXIT [164] BASIC
1670 ;
1680 L1 LDY #1 ;LIST ROUTINE
1690 STY $0F
1700 LDA ($5F),Y
1710 BEQ L7
1720 INY
1730 LDA ($5F),Y
1740 TAX
1750 INY
1760 LDA ($5F),Y
1770 L3 STY TEMP1
1780 JSR LINPRT
1790 LDA #$20
1800 L4 LDY TEMP1
1810 [175] #$7F
1820 L5 JSR [153]
1830 CMP #34
1840 BNE L6
1850 LDA $0F
1860 E[176] #$FF
1870 STA $0F
1880 L6 INY
1890 BEQ L7
1900 CPY TEMP
1910 BNE L12
1920 TYA
1930 PHA
1940 SEC
1950 JSR PLOT ;SAVE SCREEN
1960 STX ROW  ;[185]ITI[145] AT
1970 STY COL  ;ERR[176] LOCATI[145]
1980 PLA
1990 TAY
2000 L12 LDA ($5F),Y
2010 BNE L8
2020 L7 RTS
2030 L8 BPL L5
2040 CMP #$FF
2050 BEQ L5
2060 BIT $0F
2070 BMI L5
2080 SEC
2090 SBC #$7F
2100 TAX
2110 STY TEMP1
2120 LDY #$FF
2130 L9 DEX
2140 BEQ L11
2150 L10 INY
2160 LDA RESLST,Y
2170 BPL L10
2180 BMI L9
2190 L11 INY
2200 LDA RESLST,Y
2210 BMI L4
2220 JSR [153]
2230 BNE L11
2240 FIL LDA #13
2250 JSR $FFD2
2260 LDY #7
2270 FIL2 LDA #$20
2280 JSR $FFD2
2290 DEY
2300 BNE FIL2
2310 LDA #$12
2320 JSR $FFD2
2330 LDA #$1F
2340 JMP $FFD2
2350 ;
2360 TITLE LDA #0
2370 STA $2
2380 LP1 LDY $2
2390 LDA MS3,Y
2400 BNE LP4
2410 JSR FIL
2420 JMP LP8
2430 LP4 CMP #255
2440 BNE LP6
2450 RTS
2460 LP6 JSR $FFD2
2470 LP8 INC $2
2480 JMP LP1
2490 ;
2500 ;
2510 ;
2520 MS1 .BYTE $93,$1C,$5B,0
2530 MS2 .[198] " ERROR]"
2540 .BYTE 13,13,0
2550 MS3 .BYTE $93,9,142,0
2560 .[198] "STEP"
2570 .BYTE $9A
2580 .[198] "                         "
2590 .BYTE 0,$20,$9A
2600 .[198] "    LOADSTAR PRESENTS    "
2610 .BYTE 0,$20,$9A
2620 .[198] "        BUG SCOUT        "
2630 .BYTE 0,$20,$9A
2640 .[198] "      BY RICK NASH       "
2650 .BYTE 0,$20,$9A
2660 .[198] " (C) SOFTDISK PUBLISHING "
2670 .BYTE 0,$20,$9A
2680 .[198] "                         "
2690 .BYTE 0
2700 .[198] "                         "
2710 .BYTE 146
2720 .[198] "STEP"
2730 .BYTE 13,13,13,255
2740 MS4 .[198] "INSTALLED"
2750 .BYTE 13,13,0
2760 MS5 .[198] "REMOVED"
2770 .BYTE 13,13,0
2780 MS6 .BYTE 159
2790 .[198] "       BUG SCOUT IS NOW "
2800 .BYTE 0
2810 MTAB .W[176]D MS4,START,MS5,$E38B
2820 BTAB .BYTE $11,$11,$91,$91