CAPUTE:
Corrections and Amplifications
—Issue #16, pg. 107, "The Unwedge": in line 116, the final datum should read H259, not H25.
—Issue #18, pg. 60, "Bits, Bytes and Basic Boole" the following lines should be changed in the program listing:
1060 FOR A1 = 0 TO 3 1070 A2 = 2 ↑ A1 1090 SC(0,A3,A1) = SA(A3 OR A2)
—Issue # 18, pg. 118, "Assembler Update" was missing the following program and was inadvertently in the Atari Gazette. Mr. Brandon's Assembler for the PET (which originally appeared in Issue # 13, pg. 120) can be upgraded with the following modifications to permit LOAD/SAVEs of source code to disk:
Program 2.
300 PRINT"{DOWN}{REV}I{OFF}NPUT REV}D{OFF}ELETE I{REV}N{OF OFF}SERT {REV}L{OFF}IST {RREV}S{OFF}AVE L{REV}O{OFF} AD" 305 PRINT"{REV}A{OFF}SSEMBLE {REV}Q{OFF}UIT" 360 IF CM$="0"THEN11000 370 IF CM$="S"THEN12000 11000 INPUT"FILENAME ";FL$ 11010 OPEN8,8,2, "0:"+FL$+",S,R" 11020 FORT=1TOMEM 11030 GET#8,IO$:IFIO$=CHR$(13)THEN11050 11040 A$(T)=A$(T)+IO$:GOTO11030 11050 NEXTT 11060 CLOSE8 11070 GOTO300 12000 INPUT"FILENAME ";FL$ 12010 OPEN8,8,2,"0:"+FL $+",S,W" 12020 FORT=1TOMEM 12030 PRINT#8,A$(T);CHR$(13); 12040 NEXTT 12050 CLOSE8 12060 GOTO300
Issue #18, pg. 148, "Inversion Partitioning" will run on the Original ROM PET with the following lines changed (our thanks to Lou Sander):
Program 3.
033A A2 00 E0 00 D0 1D A5 87 0362 A5 02 48 A5 66 48 A5 67 0372 02 A9 FE 85 66 A9 3F 85 037A 67 A1 01 48 A1 66 81 01 0382 68 81 66 E6 01 C6 66 E4 038A 01 D0 EE E6 02 C6 67 A5 0392 67 C9 21 D0 E4 68 85 67 039A 68 85 66 68 85 02 68 85 03A2 01 38 A9 FF E5 7C 48 A9 03AA 43 E5 7D 48 A9 FF E5 86 03B2 85 7C A9 43 E5 87 85 7D 03BA 68 85 87 68 85 86 EC 3D 03CA 8E 01 04 8E 02 04 85 6F 03D2 85 7D A9 01 85 6E A9 03 03DA 85 7C A5 7C 85 7E 85 80 03E2 A5 7D 85 7F 85 81 A5 86 03EA 85 82 A5 87 85 83 60 00