I have been using KIM for a number of years and wish to share programs which I have developed or modified with the readers of Compute II.

The first item is a modification to the KIM tape verify program from Issue #13 of 6502 User's Notes. This program has a small bug which affects TTY use. The TTY delay characters (CNTL30/CNTH30) are stored in $17F2 and $17F3 and are overwritten by a section (VEB) of the original verify program. Instead of the comforting KIM message on completion of the program, all I got was a meaningless chugging. The following program (origin $300) circumvents the problem by shortening the VEB section so the delay characters remain intact. I now include this in KIM Microsoft BASIC, as the User program, so I can check tapes after a SAVE.

Item 2 is a modification to KIM Microsoft BASIC (serial number 9011) which allows one to append programs on tape to the current one (if any) in memory. Line numbers must be higher in the appended program and cannot overlap. Otherwise the only noticeable change is that one must remember to NEW before LOAD when appending is not desired. I have found this very helpful in conjunction with a renumbering program, written in BASIC (see 6502 User's Notes no. 13, p. 12).

I hope these programs will be found useful and plan to share other tidbits with Compute II readers in the future.

                0100 ;
                0110 ; KIM TAPE VERIFY PROGRAM
                0120 ;
                0130 ; HARVEY B. HERMAN
                0140 ;
                0150            .BA $300
                0160            .OS
                0170 CHKL       .DE $17E7
                0180 CHKH       .DE $17E8
                0190 VEB        .DE $17EC
                0200 LOAD12     .DE $190F
                0210 LOADT9     .DE 1929
0300- D8        0220 VERIFY     CLD
0301- A9 00     0230            LDA #$00
0303- 8D E7 17  0240            STA CHKL
0306- 8D E8 17  0250            STA CHKH
0309- A2 06     0260            LDX #$06
030B- BD 16 03  0270 LOADP      LDA PROG-1,X
030E- 9D EB 17  0280            STA VEB-1,X
0311- CA        0290            DEX
0312- D0 F7     0300            BNE LOADP
0314- 4C BC 18  0310            JMP $188C
0317- CD 00 00  0320 PROG       .BY $CD $00 $00
031A- 4C 1D 03  0330            .BY $4C $1D $03
031D- D0 03     0340 PATCH      BNE FAILED
031F- 4C 0F 19  0350            JMP LOAD12
0322- 4C 29 19  0360 FAILED     JMP LOADT9
                0370            .EN


                0100 ;
                0110 ; APPEND MODIFICATIONS TO
                0120 ; KIM MICROSOFT BASIC
                0130 ; SERIAL NUMBER 9011
                0140 ;
                0150 ; HARVEY B. HERMAN
                0160 ;
                0170            .BA $2785
                0180 ; ADJUST TAPE LOAD POINTERS
2785- 38        0190 NEWLOAD    SEC
2786- A5 7A     0200            LDA *$7A
2788- E9 03     0210            SBC #$03
278A- 8D F5 17  0220            STA $17F5
278D- A5 7B     0230            LDA *$7B
 	 	 	 	0240 ; NAIVE HARVEY
278F- B0 02     0250            BCS SKIP
2791- E9 00     0260            SBC #$00
2793- 8D F6 17  0270 SKIP       STA $17F6
                0280 ; ORIGINAL CODE CONTINUES
                0290            .BA $2744
                0300 ; ASSIGN ID 01 TO TAPES
2744- A9 01     0310            LDA #$01
                0320            .BA $2026
                0330 ; POINTER TO NEWLOAD
2026- 84 27     0340            .SI NEWLOAD-1
                0350            .EN