Classic Computer Magazine Archive COMPUTE! ISSUE 21 / FEBRUARY 1982 / PAGE 181

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