Back to the index of Compute II

COMPUTE II ISSUE 3 / AUGUST/SEPTEMBER 1980 / PAGE 55

CAPUTE!
Our Bug-Box

Robert Lock Here, at long last, are the corrections to Read Pet Tapes With Your Aim that appeared in the March/April issue (#3) of COMPUTE.


LINE # LOC  CODE      LINE

0041   0212 D0 F6            BNE NEXT

0043   0214 20 89 03         JSR OFFON      ;TURN OFF TAPE
0044   0217 A2 00            LDX #00        ;OUTPUT NAME OF FILE
0045   0219 BD 6F 04  NAME   LDA FILE,X
0046   021C C9 20            CMP #'         ;LOOK FOR BLANK AT END
0047   021E F0 06            BEQ LEN
0048   0220 20 7A E9         JSR OUTPUT
0049   0223 E8               INX
0050   0224 D0 F3            BNE NAME       ;GET NEXT LETTER
0051   0226 20 3E E8  LEN    JSR BLANK

0053   0229 18               CLC            ;OUTPUT NECESSARY MEMORY
0054   022A AD 6D 04         LDA END        ;FOR PROGRAM
0055   022D 69 62            ADC #$62       ;ADD TO END
0056   022F 8D 6D 04         STA END        ;THE DIFFRENCE BETWEEN PET AND
0057   0232 AD 6E 04         LDA END+1      ;AIM BASIC START LOCATIONS
0058   0235 69 00            ADC #00
0059   0237 20 46 EA         JSR NUMA       ;OUTPUT IT
0060   023A AD 6D 04         LDA END
0061   023D 20 46 EA         JSR NUMA
0062   0240 20 3E E8         JSR BLANK

0064   0243 20 73 E9         JSR REDOUT     ;GET A CHARACTER
0065   0246 20 89 03         JSR OFFON      ;TURN ON TAPE
0066   0249 C9 59            CMP #'Y        ;Y MEANS READ THIS FILE
0067   024B F0 0B            BEQ GO
0068   024D 8D 6A 04         STA FLAG       ;CHANGE FLAG'S VALUE
0069   0250 20 13 EA         JSR CRLOW
0070   0253 4C 0A 02         JMP NEXT       ;READ NEXT FILE ON TAPE

0072   0256 EA               NOP            ;REMOVE IF USING
0073   0257 EA               NOP            ;AN ASSEMBLER

ERRORS = 0000 <0000>
END OF ASSEMBLY

Note to you PET Owners who read COMPUTE. Don't use the Disk ID Changer program in Issue 5 until you see the important update in Issue 6. RCL


Oops!

And here's an important correction for Marvin L. DeJong's compute II, Issue 2 schematic. (Page 6, Some A/D And D/A Conversion Techniques. Note that pins 10 and 12 (circled) are now (correctly) reversed.