+$/ [LISTONG [TRANSFERS LAP6 [MANUSCRIPTS TO G [TRANSLATES MS TO [G 6-BIT BCD CODE [AND PACKS IN H.W. [ [TO USE, AM DESIRED [MS INTO LAP6, CV [IF BINARY DESIRED, [LO LISTONG [ [1:MS POINTER [2:OUTPUT POINTER [3:BINARY POINTER [4:BINARY FLAG [5:TEXT FLAG [10:JMP RETURN [6,7:MISC. [MS AREA: 1400-1777 [BINARY AREA: UMB 3 [OUTPUT: 1300-1357 [ PDP: 5300-5357 [ [FORMAT: SNS 3 [ DOWN: 86 COLUMNS [ [ [FORMAT: ., 1-2 [ BINARY, 4-5 [ MS, 7-41 <7-55> [ LINE #, 42-43 <56-57> [SNS 5 ON, NO BINARY [SNS 1 ON, PAGE-EJECT FIRST [ [ [AUTO-START $1 JMP 20 $20 [SNS 1 ON, PAGE-EJECT SNS 1 JMP .+10 [PAGE-EJECT ON G LDA I 2077 STC 1300 LDA I 5000 NOP PDP [INITIALIZE RUN [READ BINARY IN UMBS UMB 3 RDC 4\240 RDC 5\241 RDC 6\242 RDC 7\243 UMB 1 RCG 3\244 UMB 3 [SET BINARY POINTER SET I3 2020 [SET MS LINE COUNTER CLR STC 1M [CLEAR TX FLAG STC 2F [SET MS COLUMN [SNS 3 UP--120 COLUMNS [SNS 3 DOWN--86 COLUMNS SNS I 3 JMP 1S LDA I 5341 STA 2M STC 3M [READ FIRST MS BLOCK #1S RDC 3\250 SET I1 5401 SET I5 1777 #1A SET I2 5310 SET I4 1777 JMP 1I [TEXT FLAG XSK 5 #1F JMP 2X LDH I1 [IGNORE SPACES SHD I 1400 JMP .-3 [COMMENT SHD I 6600 JMP 1C [TAG SHD I 2200 JMP 1T [ORIGIN SHD I 6500 JMP 1B JMP .+2 #2A LDH I 1 [TEXT SHD I 7000 JMP 1X+1 [PARAMETER SHD I 6100 JMP 1E [EOL SHD I 1200 JMP 1L [DONE SHD I 7700 JMP 1Q [TO G PRINTER CODE JMP 1G [TO OUTPUT AREA STH I2 [DONE WITH BLOCK XSK 1 JMP .+2 JMP 1R [NEXT CHARACTER JMP 2A [ [ [TRANSLATE TO G #1G ADA I 1P STC .+2 LDA JMP 0 #1P 12 [0 01 [1 02 [2 03 [3 04 [4 05 [5 06 [6 07 [7 10 [8 11 [9 20 [EOL 20 [DEL 20 [SPACE 37 [I, BIT 7 73 [., CUR. LCN. 40 [- 60 [+ 21 [\ 36 [#, TAG 20 [CASE 61 [A 62 [B 63 [C 64 [D 65 [E 66 [F 67 [G 70 [H 71 [I 41 [J 42 [K 43 [L 44 [M 45 [N 46 [O 47 [P 50 [Q 51 [R 22 [S 23 [T 24 [U 25 [V 26 [W 27 [X 30 [Y 31 [Z 20 [META 20 [NO CODE 16 [, Q-MARK 13 [= 52 [U, BIT 8 33 [, 73 [. 35 [$, ORIGIN 17 [[ 20 [_ 55 [" 56 [" 72 [< 57 [> 32 [] 54 [* 00 [: 77 [77, NO CODE [END OF CODING [ [INITIALIZE OUTPUT [AREA TO SPACES #1I SET 10 0 SET I6 1277 SET I7 -60 LDA I 2020 STA I6 XSK I7 JMP .-2 JMP 10 [ [FOUND SOME TEXT #1X LDH I1 XSK I5 XSK I5 XSK I4 JMP 1G STH I2 [MORE MS XSK 1 JMP .+2 JMP 1R [NEXT CHARACTER LDH I1 [", END TX SHD I 7100 JMP 3X [EOL SHD I 1200 JMP 3L [LOOP UNTIL EOL JMP 1X+4 [ [FORM TEXT COUNT #2L SET 10 0 SET I6 5310 LDA 2 COM ADA 6 ADM I #2F COUNT JMP 10 [ [OUTPUT TX MS #3L SET I6 #3M 5355 LDA I 1 ADM 1M JMP 1D [DONE WITH TX LDA 5 APO I JMP .+6 [YES LDA I JMP 2X STC 1F STC 2F JMP 1L [NO LDA I 20 [G CODE: EOL STH I2 LDA I JMP 1X STC 1F JMP 2L JMP 1L [ [END OF TX #3X JMP 2L ADA I -1 BSE I 4000 STC 5 LDA I 71 JMP 1X+4 [ [FINISH TX BINARY #2X XSK I5 JMP 1L JMP 1A [ [FOUND A TAG #1T SET I2 5306 JMP 0 [ [FOUND A PARAMETER #1E SET 10 0 [CHECK IF COMMENT SET I6 5310 LDA 2 COM ADA 6 ROL 1 STC .+2 SET I7 COUNT LDH I6 SHD I 1700 [G CODE:[ JMP .+4 XSK I7 JMP .-5 XSK I4 LDA I 61 JMP 10 [ [FOUND A COMMENT #1C SET I2 5306 XSK I4 JMP 0 [ [FOUND AN ORIGIN #1B SET I7 -4 JMP 1G STH I2 SET 6 1 CLR STC 2B LDH I6 [SHORT NUMBER SHD I 1200 JMP .+7 ADA I #2B ROL 3 STC 2B XSK I7 JMP .-11 LDA 2B ROR 3 ADA I 2000 STC 3 XSK I4 JMP 2A [ [READ ANOTHER MS [BLOCK #1R SRO I 2525 JMP 0 LDA I 1 ADM .+2 RDC 3\250 SET I1 5377 JMP 0 [ [FOUND EOL [OUTPUT TO G AND [RE-INTITIALIZE #1L XSK 4 JMP 1N [SUPRESS BINARY SNS I5 JMP 1N LDA 3 ADA I -4000 [CHECK UMB APO I [IN UMB JMP .+2 AZE I JMP 1U ADA I 2000 SET I6 5300 JMP 1D LDA 3 SET I6 5303 JMP 1D XSK I3 NOP #1N XSK 5 JMP .+10 LDA I 1 ADM I #1M LINE SET I6 #2M 5355 JMP 1D LDA I 5000 NOP PDP [READ MORE MS XSK 1 JMP .+2 JMP 1R JMP 1A [BIN IN UMB #1U UMB 1 ADA I 2000 STA 2U SET I6 5300 JMP 1D LDA #2U UMB 3 JMP 1N-5 [DECODE BINARY, STORE #1D SET 10 0 SET I7 -4 STC .+2 LDA I ROL 3 STA .-3 BCL I 7770 JMP 1G STH I6 XSK I7 JMP .-12 JMP 10 [ [FOUND 77-DONE #1Q LDA I 5000 NOP PDP LDA I 2077 STC 1300 LDA I 5000 NOP PDP [RETURN TO LAP6 SET I15 701 SET I16 7200 JMP 15 [ [PDP-TO-G TRANSFER $1000 #2G 0000 [<5000> 6002 [IOF 7300 [CLA CLJ 1220 [TAD FWA 6414 [ACLC 7300 [CLA CLL 1221 [TAD WC 6424 [ACWC 6404 [DB, INT 6402 [SKIP DB 0 5211 [JMP .-1 7300 [CLA CLL 6422 [SKIP OFL 5214 [JMP .-1 6421 [CLEAR OFL 5600 [JMP I 2G 5300 [FWA 0060 [WC [ [ [CDC 160G ROUTINE [FOR PRINTER [ [00, LCF 5 [01, STF 1 [02, [O3, CIL [O4, JPI 33 [O5, 7677 <-10100> [06, JPI 42 <00> [07, EXF 30 [10, EXF 25 [SL PDP> [11, INA [12, EXF 24 [13, INP 44 <100> [14, 160 [15, EXF 20 [16, LDI 57 <100> [17, SBC [20, 2020 [22, SBN 57 <2077> [23, ZJF 20 [24, JPI 33 <03> [25, 0 [26, 0 [27, 0 [30, 0 [31, JPI 34 <07> [32, 0 [33, 03 [34, 07 [35, 2700 [36, 2701 [37, 2702 [40, 0 [41, ERR [42, 0 [43, EXF 10 [44, JPI 33 [45, EXF 10 [46, EXF 10 <12-BIT> [47, OUT 10 <100> [50, 160 [51, EXF 03 [52, JMP 33 <03> [53, 604 [54, 605 [55, 627 [56, 630 <12-BIT> [57, 100 [ [ONE-CARD ROUTINE [STARTS AT 06 [ [B SCHOR 5\15\69