1 FIELD 00 2 *56 /EDIT-PAL T 16570 16 JUNE 1970 3 000056 1630 1630 /PERMANENT BEGINNING OF BUFFER 4 *114 5 000114 1630 1630 /NEXT LOCATION IN BUFFER 6 *1104 7 001104 5705 JMP I .+1 /INSERT IN OUTTAB RTNE 8 001105 1566 TEST7 9 001106 7640 SZA CLA 10 *1141 11 001141 5742 JMP I .+1 /INSERT IN KEYBOARD RTNE 12 001142 1600 READIN 13 *1013 14 001013 7000 7000 /OCTAL CONSTANTS 15 001014 7700 7700 16 001015 7770 7770 17 *363 18 000363 5367 5367 /JMP .+4 FOR OCTAL RADIX 19 *172 20 000172 1471 ATYPNUM,TYPNUM /ADDR LINE # TYPING SUBR 21 000173 1527 APUNCL, PUNCL 22 000174 1532 ALINST, LINST 23 000175 0000 COUNT, 0 24 *671 25 000671 4572 JMS I ATYPNUM /TYPE LINE # 26 *702 27 000702 5574 JMP I ALINST /FROM LIST ROUTINE 28 *1217 29 001217 5573 JMP I APUNCL /FROM PUNCH ROUTINE 30 *1240 31 001240 5641 JMP I .+1 /INSERT IN TSTOUT RTNE 32 001241 1537 TSTPAL 33 001242 7700 SMA CLA 34 *1443 35 001443 1126 SPACES, TAD Z ECHOSW /SPACE READIN 36 001444 7650 SNA CLA /TEST READ MODE 37 001445 7404 OSR /BIT6 UP TO COMPRESS SPACES TO TABS 38 001446 0270 AND CON40 /MASK BIT 6 39 001447 7650 SNA CLA 40 001450 5506 JMP I SPCNO /PACK - (MOR+4) 41 001451 7040 CMA /SET 1 SPACE 42 001452 3124 SP2, DCA CNT 43 001453 4452 JMS I Z READ1 /(CHIN) 44 001454 1045 TAD M240 45 001455 7650 SNA CLA 46 001456 5252 JMP SP2 /IGNORE EXTRA SPACES. 47 001457 1122 TAD CHAR 48 001460 3127 DCA SAVE /SAVE NON-SPACE 49 001461 2124 ISZ CNT 50 001462 1027 TAD M27 /TAB 51 001463 1021 TAD C240 /SPACE 52 001464 3122 DCA CHAR 53 001465 4477 JMS I Z PACK1 /(PACBUF) 54 001466 1127 TAD SAVE 55 001467 5507 JMP I SPCGO /SORT - (MOR+1) 56 001470 0040 CON40, 0040 /MASK FOR BIT 6 57 001471 0000 TYPNUM, 0 /TYPE LINE NUMBERS ON LIST 58 001472 2117 ISZ Z 0117 /ARG0 59 001473 7604 LAS /CHECK SR BIT 5 (TYPE IF SET) 60 001474 7006 RTL 61 001475 0373 AND CN4400 /ALSO TEST BIT 2 62 001476 7750 SNA SPA CLA /TYPING LINE #? 63 001477 5671 JMP I TYPNUM /NO 64 001500 1374 TAD MIN3 /YES, SET DIGIT COUNTER (-3) 65 001501 3175 DCA COUNT 66 / 67 / 68 001502 1112 TAD Z 0112 /GET LINE # (THSN) 69 001503 7006 RTL /TAKE CARE OF LINK 70 001504 7006 RTL /AND THOUSANDS DIGIT 71 001505 4307 JMS TYPO /TYPE 3 DIGIT OCTAL # 72 001506 5671 JMP I TYPNUM 73 001507 0000 TYPO, 0 74 001510 7006 AGAIN, RTL /POSITION 3 BITS 75 001511 7004 RAL 76 001512 3335 DCA STONUM 77 001513 1335 TAD STONUM 78 001514 0336 AND CON7 /MASK 3 BITS 79 001515 1016 TAD Z 0016 /ASCII BASE 260 80 001516 4532 JMS I 132 /TYPE IT 81 001517 1335 TAD STONUM 82 001520 2175 ISZ COUNT /THROUGH? 83 001521 5310 JMP AGAIN /NO 84 001522 7300 CLEAR, CLA CLL /YES 85 001523 1021 TAD 21 /C240 (ASCII SPACE) 86 001524 4532 JMS I 132 /TYPE IT 87 001525 5707 JMP I TYPO 88 001526 7750 SNA SPA CLA 89 001527 1322 PUNCL, TAD CLEAR /ENTER FROM PUNCH ROUTINE 90 001530 3276 DCA TYPNUM+5 /OMIT LINE # FROM TAPE 91 001531 5466 JMP I 66 92 001532 1326 LINST, TAD .-4 93 001533 3276 DCA TYPNUM+5 /RESTORE LINE # OPTION 94 001534 5420 JMP I 20 /RETURN TO START 95 001535 0000 STONUM, 0 /TEMP STORE LINE # 96 001536 0007 CON7, 7 /MASK 97 001537 7604 TSTPAL, LAS /ENTER FROM TSTOUT RTNE 98 001540 7010 RAR /TEST BIT 9 FOR PALIII 99 001541 7012 RTR 100 001542 7420 SNL /WORKING PALIII? 101 001543 5764 JMP I TST10 /NO, GO TEST BIT 10 102 001544 7200 CLA /YES, SET RETURN ADDR 103 001545 1356 TAD RETURN-2 104 001546 3360 DCA RETURN 105 001547 1365 TAD PALIII /SET OUTPUT ADDR 106 001550 3132 DCA Z 132 /OUTDEV 107 001551 6213 CIF CDF 10 /PALIII IS IN FIELD 1 108 001552 5420 JMP I Z 20 /GO START PALIII 109 001553 0000 GETCHR, 0 /OUTPUT SUBR TO SERVE PALIII 110 001554 6213 CIF CDF 10 111 001555 5212 JMP 1412 /TAKE CHAR TO PALIII 112 001556 1357 TAD .+1 /INSTR FOR 1ST RETURN FROM PALIII 113 001557 5753 JMP I GETCHR /USED IN SUBSEQUENT RETURNS 114 001560 0000 RETURN, 0 /PALIII JUMPS HERE FOR CHAR 115 001561 3360 DCA .-1 /SET ADDR FOR SUBSEQUENT RETURNS 116 001562 5763 JMP I .+1 /RETURN TO TSTOUT RTNE AFTER 117 001563 1251 1251 /STARTING PALIII 118 001564 1242 TST10, 1242 /ADDR IN TSTOUT RTNE 119 001565 1553 PALIII, GETCHR 120 001566 7604 TEST7, LAS /TEST SR BIT 7 (OUTPUT) 121 001567 0372 AND .+3 /IF SET COMPRESS SPACES TO TABS 122 001570 5771 JMP I .+1 /RETURN TO OUTTAB RTNE 123 001571 1106 1106 124 001572 0020 0020 /MASK FOR BIT 7 125 001573 4400 CN4400, 4400 /MASK 126 001574 7775 MIN3, -3 127 *1600 128 001600 6031 READIN, KSF 129 001601 5204 JMP .+3 /IF KBRD NOT READY, TEST SR 130 001602 5603 JMP I .+1 /RETURN TO KBRD RTNE 131 001603 1143 1143 132 / 133 / 134 001604 7604 LAS /TEST FOR BIT 3 (REQ BUFF BALANCE) 135 001605 0225 AND CN400 136 001606 7650 SNA CLA /BIT 3 SET? 137 001607 5200 JMP READIN /NO, CONTINUE IN LOOP 138 001610 1014 TAD Z 14 /YES SET CNTR TO -4 139 001611 3175 DCA Z COUNT 140 001612 1114 TAD Z 114 /NEXT LOC IN BUFFER 141 001613 7041 CIA 142 001614 1224 TAD LIMIT 143 001615 7004 RAL /SHOVE LINK 144 001616 4626 JMS I ATYPO /TYPE OCTAL # 145 001617 1024 TAD Z 24 /CR 146 001620 4532 JMS I Z 132 /TYPE IT 147 001621 1025 TAD Z 25 /LF 148 001622 4532 JMS I Z 132 149 001623 5200 JMP READIN /RETURN TO KBRD LOOP 150 001624 7777 LIMIT, 7777 /ASSUMED BUFFER LIMIT 151 001625 0400 CN400, 0400 /MASK FOR BIT 3 152 001626 1507 ATYPO, TYPO 153 CHAR=0122 154 CNT=0124 155 C240=0021 156 ECHOSW=0126 157 M240=0045 158 M27=0027 159 PACK1=0077 160 READ1=0052 161 SAVE=0127 162 SPCGO=0107 163 SPCNO=0106 164 $ AGAIN 1510 ALINST 0174 APUNCL 0173 ATYPNU 0172 ATYPO 1626 C240 0021 CHAR 0122 CLEAR 1522 CN400 1625 CN4400 1573 CNT 0124 CON40 1470 CON7 1536 COUNT 0175 ECHOSW 0126 GETCHR 1553 LIMIT 1624 LINST 1532 M240 0045 M27 0027 MIN3 1574 PACK1 0077 PALIII 1565 PUNCL 1527 READ1 0052 READIN 1600 RETURN 1560 SAVE 0127 SP2 1452 SPACES 1443 unreferenced SPCGO 0107 SPCNO 0106 STONUM 1535 TEST7 1566 TST10 1564 TSTPAL 1537 TYPNUM 1471 TYPO 1507