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.
