SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 1 LEARNS.MAC THAT ARE USED OFTEN TITLE SUBROUTINES SUBTTL THAT ARE USED OFTEN ; THE CODE ON THIS FILE WILL BE OF VERY GENERAL, OFTEN USED ; SUBROUTINES. THIS FILE WILL BE USED WITH "ACCUMU" AND OTHER ; FILES THAT MIGHT REQUIRE THESE SUBROUTINES. MAYBE AT A LATER ; DATE THIS CAN BE CODED WITH SWITCHES SO THAT ANY UN-NEEDED ; SUBROUTINES CAN BE SPECIALIZED OUT. ; #1 ; GENERAL SUBROUTINE TO INPUT ONE CHARACTER, (SEE P. 415) 000000' 000000 000000 GETCHR: 0 ;JSR HERE AND STORE PC 000001' 377000 000023' GETCNT: SOSG IBUF+2 ;DECREMENT BYTE COUNT 000002' 254000 000006' JRST GETBUF ;BUFFER IS EMPTY 000003' 134100 000022' GETNXT: ILDB 2,IBUF+1 ;GET NEXT CHARACTER FROM BUFFER 000004' 326120 000000' JUMPN 2,@GETCHR ;RETURN TO CALLER 000005' 254000 000003' JRST GETNXT ;IGNORE NULL AND GET NEXT CHAR. 000006' 056100 000000 GETBUF: IN 2, ;CALL MONITOR TO REFILL BUFFER 000007' 254000 000003' JRST GETNXT ;RETURN HERE WHEN NEXT BUFFER FULL 000010' 254000 000011' JRST ENDTS7 ;RETURN ONLY IF ERROR OR EOF 000011' 063140 740000 ENDTS7: STATZ 3,740000 ;CHECK FOUR ERROR BITS FIRST 000012' 254000 000014' JRST INERR ;WHERE TO GO WITH AN ERROR 000013' 254000 000016' JRST ENDFIL ;WHERE TO GO WITH END OF FILE 000014' 254200 000000 INERR: HALT 000015' 254020 000000' JRST @GETCHR 000016' 201100 000032 ENDFIL: MOVEI 2,32 000017' 254020 000000' JRST @GETCHR ;WAS A HALT HERE 000020' 254020 000000' JRST @GETCHR 000021' IBUF: BLOCK 3 ;INPUT BUFFER RING HEADER PAGE SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 2 LEARNS.MAC THAT ARE USED OFTEN ; #2 ; GENERAL SUBROUTINE TO OUT PUT ONE CHARACTER 000024' 000000 000000 PUTCHR: 0 ;JSR HERE AND STORE PC 000025' 377000 000040' SOSG OBUF+2 ;INCREMENT BYTE COUNT 000026' 254000 000031' JRST PUTBUF ;NO MORE ROOM, OR 1ST ONE 000027' 136140 000037' PUTNXT: IDPB 3,OBUF+1 ;STORE THIS CHARACTER 000030' 254020 000024' JRST @PUTCHR ;AND RETURN TO CALLER 000031' 057140 000000 PUTBUF: OUT 3, ;CALLMONITOR TO EMPTY THIS BUFFER 000032' 254000 000027' JRST PUTNXT ;RETURN HERE WHEN BUFFER IS EMPTY 000033' 254000 000034' JRST OUTERR ;RETURN HERE ONLY IF ERROR 000034' 254200 000000 OUTERR: HALT ;AND HALT, BUT YOU CAN CONTINUE 000035' 254020 000024' JRST @PUTCHR ;IF YOU REALLY WANT TO 000036' OBUF: BLOCK 3 PAGE ;LISTING SKIPS TO HEAD OF FORM SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 3 LEARNS.MAC THAT ARE USED OFTEN ; THIS USES THE BUFFERED I/O TO PUT OUT A STRING OF ;CHARACTERS THAT TERMINATE WITH A NULL. 000041' 000000 000000 PUTOUT: 0 000042' 134140 000016 ILDB 3,16 ;AC 16 HAS POINTER TO THE STRING 000043' 322140 000003 JUMPE 3,+3 ;JUMP TO CLOSE WHEN NULL COMES 000044' 264000 000024' JSR PUTCHR 000045' 254000 000042' JRST .-3 000046' 070140 000000 CLOSE 3, 000047' 254020 000041' JRST @PUTOUT PAGE SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 4 LEARNS.MAC THAT ARE USED OFTEN ; THIS IS FOR USING BUFFERED I/O TO GET OUT A CARRIAGE ;RETURN AND A LINE FEED. 000050' 000000 000000 RETFEE: 0 000051' 201140 000015 MOVEI 3,15 000052' 264000 000024' JSR PUTCHR 000053' 201140 000012 MOVEI 3,12 000054' 264000 000024' JSR PUTCHR 000055' 070140 000000 CLOSE 3, 000056' 254020 000050' JRST @RETFEE PAGE SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 5 LEARNS.MAC THAT ARE USED OFTEN 000057' 000000 000000 STARTS: 0 000060' 047000 000000 CALLI 000061' 041100 000000 INIT 2, 000062' 646471 000000 SIXBIT /TTY/ 000063' 000000 000021' XWD 0,IBUF 000064' 254000 000061' JRST .-3 000065' 041140 000000 INIT 3, 000066' 646471 000000 SIXBIT /TTY/ 000067' 000036' 000000 XWD OBUF, 000070' 254000 000065' JRST .-3 000071' 254020 000057' JRST @STARTS PAGE SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 6 LEARNS.MAC THAT ARE USED OFTEN ; THIS PROGRAM WILL ACCEPT AN OPCODE, ACCUMULATOR CONTENTS, AND ; EFFECTIVE ADDRESS CONTENTS FROM THE TELETYPE. THEY WILL BE PUT ; TOGETHER AND EXECUTED. THE RESULTANT CONTENTS OF THE ACCUMULATOR ; AND EFFECTIVE ADDRESS WILL THEN BE TYPE OUT ON TO THE TELETYPE. ; A TYPED RUBOUT WILL ELIMINATE THAT LINE OF INPUT, AND THE WHOLE ; LINE MUST BE RETYPED. 000072' 047000 000000 STARTI: CALLI 000073' 041100 000000 INIT 2, 000074' 646471 000000 SIXBIT /TTY/ 000075' 000000 000021' XWD 0,IBUF 000076' 254000 000073' JRST .-3 000077' 041140 000000 INIT 3, 000100' 646471 000000 SIXBIT /TTY/ 000101' 000036' 000000 XWD OBUF, 000102' 254000 000077' JRST .-3 000103' 601000 000000 CHANGI: TLN ;THIS GETS CHANGED TO A JRST 000104' 200000 002574' MOVE [JRST .+4] 000105' 202000 000103' MOVEM CHANGI 000106' 051140 000366' TTCALL 3,MESS1I ;INSTRUCTIONS 000107' 051140 000512' TTCALL 3,MESS2I ;MORE INSTRUCTIONS PAGE SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 7 LEARNS.MAC THAT ARE USED OFTEN ; THE OPCODE WILL BE DONE FIRST. AFTER ACCEPTING IT, A TABLE ; LOOK UP IS PERFORMED TO SEE IF IT IS ACCETABLE, AND TO GET THE ; MACHINE CODE. 000110' 200740 002575' OPCODI: MOVE 17,[MOVE 13,16] 000111' 051140 000645' TTCALL 3,MESS3I ; "OPCODE" 000112' 070100 000000 CLOSE 2, 000113' 201200 000000 MOVEI 4,0 ;0 OUT COUNTER 000114' 202200 000756' MOVEM 4,UPCODI ;AND OPCODE WORD 000115' 202200 000757' MOVEM 4,UPCODI+1 000116' 200000 000754' MOVE PTR1 ;SET UP POINTER FOR OPCODE 000117' 202000 000755' MOVEM POINT1 000120' 264000 000000' MORE: JSR GETCHR 000121' 302100 000015 CAIE 2,15 ;IS IT A CARRIAGE RETURN 000122' 254000 000134' JRST COMEIN ;GO TO "COMEIN" IF NOT 000123' 200240 000756' MOVE 5,UPCODI 000124' 362200 000144' SOJE 4,ONECHR ;JUMP TO ONE OF THESE WHEN 4 = 0 000125' 362200 000147' SOJE 4,TWOCHR 000126' 362200 000155' SOJE 4,TRECHR 000127' 362200 000167' SOJE 4,FORCHR 000130' 362200 000177' SOJE 4,FIVCHR 000131' 362200 000207' SOJE 4,SIXCHR 000132' 051140 000664' TTCALL 3,ERROR1 ;SHOULD NEVER FALL THROUGH 000133' 254000 000110' JRST OPCODI 000134' 302100 000077 COMEIN: CAIE 2,77 ;IS IT A RUBOUT 000135' 254000 000137' JRST .+2 000136' 254000 000110' JRST OPCODI ;RUBOUT WANTS LINE REPEATED 000137' 136100 000755' IDPB 2,POINT1 ;MOVE CHARACTER TO "UPCODI" 000140' 271200 000001 ADDI 4,1 ;INCREMENT COUNTER 000141' 302200 000007 CAIE 4,7 ;AN ERROR IF IT IS 7 000142' 254000 000120' JRST MORE ;GET ANOTHER CHARACTER 000143' 254000 000132' JRST COMEIN-2 ;ERROR MESSAGE TIME ; OPCODE LIST SCANNING IS DONE HERE, AND THE LIST USED DEPENDS ; ON THE NUMBER OF CHARACTERS IN THE OPCODE. 000144' 051140 000701' ONECHR: TTCALL 3,ERROR2 ;NO 1 CHARACTER OPCODES 000145' 254000 000110' JRST OPCODI 000146' 476440 000000 ORCDE: ASCII "OR" 000147' 312240 000146' TWOCHR: CAME 5,ORCDE ;ONLY ONE OPCODE WITH TWO CHRS. 000150' 254000 000153' JRST .+3 ;THIS IS NOT IT SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 7-1 LEARNS.MAC THAT ARE USED OFTEN 000151' 201300 000434 MOVEI 6,434 ;OCTAL CODE FOR THE OR 000152' 254000 000362' JRST MACHCD ;PUT CODE INTO INSTRUCTION 000153' 051140 000710' TTCALL 3,ERROR3 000154' 254000 000110' JRST OPCODI 000155' 200344 001237' TRECHR: MOVE 7,TABL3(4) ;BRING CODE FROM THE LIST 000156' 312340 000756' CAME 7,UPCODI ;COMPARE WITH INPUTED CODE 000157' 254000 000162' JRST NOTEQ3 000160' 200304 001577' MOVE 6,TABL32(4) ;MOVE MACHINE CODE TO 6 000161' 254000 000362' JRST MACHCD ;PUT IT INTO INSTRUCTION 000162' 271200 000001 NOTEQ3: ADDI 4,1 ;INCREMENT THE INDEX 000163' 326340 000155' JUMPN 7,TRECHR ;RETURN IF NOT OF TABLE 000164' 264000 000252' JSR PDP10 000165' 051140 000721' TTCALL 3,ERROR4 ;SEND OUT ERROR MESSAGE 000166' 254000 000110' JRST OPCODI 000167' 200344 001331' FORCHR: MOVE 7,TABL4(4) ;BRING OPCODE FROMLIST 000170' 312340 000756' CAME 7,UPCODI ;COMPARE WITH INPUTED CODE 000171' 254000 000174' JRST NOTEQ4 000172' 200304 001671' MOVE 6,TABL42(4) ;MOVE MACHINE CODE TO 6 000173' 254000 000362' JRST MACHCD ;PUT IT INTO THE INSTRUCTION 000174' 271200 000001 NOTEQ4: ADDI 4,1 ;INCREMENT THE INDEX 000175' 326340 000167' JUMPN 7,FORCHR ;CHECK FOR END OF TABLE 000176' 254000 000164' JRST NOTEQ3+2 ;SEND OUT ERROR MESSAGE 000177' 200344 002140' FIVCHR: MOVE 7,TABL5(4) ; SAME AS 4 000200' 312340 000756' CAME 7,UPCODI 000201' 254000 000204' JRST NOTEQ5 000202' 200304 002326' MOVE 6,TABL52(4) 000203' 254000 000362' JRST MACHCD 000204' 271200 000001 NOTEQ5: ADDI 4,1 000205' 326340 000177' JUMPN 7,FIVCHR 000206' 254000 000164' JRST NOTEQ3+2 000207' 200344 000332' SIXCHR: MOVE 7,TABL6(4) ;BRING OPCODE FROM LIST 000210' 312340 000756' CAME 7,UPCODI ;COMPARE WITH INPUTED CODE 000211' 254000 000214' JRST NOTEQ6 ;FIRST 5 CHARS. NOT EQUAL 000212' 200304 000346' MOVE 6,TABL62(4) ;GET BASIC MACHINE CODE 000213' 254000 000234' JRST CHECK6 ;GO LOOK AT 6TH CHARACTER 000214' 271200 000001 NOTEQ6: ADDI 4,1 ;INCREMENT THE INDEX 000215' 326340 000207' JUMPN 7,SIXCHR ;END OF TABLE CHECK 000216' 271200 000000 ADDI 4,0 ;NOW TRY JUMPG/L AND SKIPG/L 000217' 200344 000332' MOVE 7,TABL6(4) 000220' 312340 000756' CAME 7,UPCODI 000221' 254000 000224' JRST NOTE62 ;NOT EQUAL 000222' 200304 000346' MOVE 6,TABL62(4) ;YES, GET MACHINE CODE 000223' 254000 000227' JRST CHEK62 ;LOOK FOR E ON END 000224' 271200 000001 NOTE62: ADDI 4,1 ;INCREMENT THE INDEX 000225' 326340 000217' JUMPN 7,NOTE62-5 ;CHECK END OF TABLE 000226' 254000 000164' JRST NOTEQ3+2 ;ERROR TIME 000227' 200340 000757' CHEK62: MOVE 7,UPCODI+1 ;MOVE THE 6TH CHARACTER 000230' 242340 777743 LSH 7,-^D29 ;ROTATE TO LOW ORDER 000231' 302340 000105 CAIE 7,"E" ;IS IT AN E SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 7-2 LEARNS.MAC THAT ARE USED OFTEN 000232' 254000 000164' JRST NOTEQ3+2 ;NO, SO THATS AN ERROR 000233' 254000 000362' JRST MACHCD 000234' 200340 000757' CHECK6: MOVE 7,UPCODI+1 ;NOW MOVE DOWN THE 6TH CHAR. 000235' 242340 777743 LSH 7,-^D29 ;ROTATE TO LOW ORDER BITS 000236' 302340 000111 CAIE 7,"I" ;IS IT AN I 000237' 254000 000242' JRST .+3 ;NO 000240' 270300 000327' ADD 6,ONEFRI ;YES, ADD 1 TO MACHINE CODE 000241' 254000 000362' JRST MACHCD 000242' 302340 000115 CAIE 7,"M" ;IS IT AN M 000243' 254000 000246' JRST .+3 ;NO 000244' 270300 000330' ADD 6,TWOFRM ;YES, ADD 2 000245' 254000 000362' JRST MACHCD 000246' 302340 000102 CAIE 7,"B" ;IS IT A B 000247' 254000 000164' JRST NOTEQ3+2 ;NO SO AN ERROR 000250' 270300 000331' ADD 6,THREEB ;YES ADD 3 000251' 254000 000362' JRST MACHCD 000252' 000000 000000 PDP10: 0 000253' 403200 000006 SETZB 4,6 000254' 200240 000271' MOVE 5,IOXWD 000255' 137240 002576' DPB 5,[POINT 18,MESSSW,35] 000256' 200244 002514' MOVE 5,PDPIO(4) 000257' 312240 000756' CAME 5,UPCODI 000260' 254000 000263' JRST NOPDP 000261' 051140 000276' MESSSW: TTCALL 3,IOMESS 000262' 254020 000252' JRST @PDP10 000263' 271200 000001 NOPDP: ADDI 4,1 000264' 326240 000256' JUMPN 5,MESSSW-3 000265' 271300 000001 ADDI 6,1 000266' 200246 000271' MOVE 5,IOXWD(6) 000267' 322260 000252' JUMPE 5,@PDP10 000270' 254000 000255' JRST PDP10+3 000271' 000000 000276' IOXWD: XWD 0,IOMESS 000272' 000000 000304' XWD 0,UUOMES 000273' 000000 000310' XWD 0,BYTEME 000274' 000000 000317' XWD 0,PUSHME 000275' 000000 000000 0 000276' IOMESS: ASCIZ / 000276' 064252 042240 PDP-10 IO INSTRUCTION,BUT/ 000277' 265426 020222 000300' 475011 147246 000301' 522452 541650 000302' 446371 626204 000303' 526500 000000 000304' UUOMES: ASCIZ / 000304' 064252 042240 PDP-10 UUO, BUT/ 000305' 265426 020252 000306' 526365 420204 000307' 526500 000000 000310' BYTEME: ASCIZ / SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 7-3 LEARNS.MAC THAT ARE USED OFTEN 000310' 064252 042240 PDP-10 BYTE INSTRUCTION, BUT/ 000311' 265426 020204 000312' 546510 520222 000313' 472472 451252 000314' 416511 147634 000315' 261010 252650 000316' 000000 000000 000317' PUSHME: ASCIZ / 000317' 064252 042240 PDP-10 PUSHDOWN LIST INSTRUCTION, BUT/ 000320' 265426 020240 000321' 526471 042236 000322' 536344 046222 000323' 516504 044634 000324' 516512 252606 000325' 522231 747130 000326' 202052 552000 000327' 000000 000001 ONEFRI: 1 000330' 000000 000002 TWOFRM: 2 000331' 000000 000003 THREEB: 3 000332' 406350 441602 TABL6: ASCII "ANDCA" 000333' 406350 441604 ASCII "ANDCB" 000334' 406350 441632 ASCII "ANDCM" 000335' 416310 540644 ASCII "CLEAR" 000336' 516132 441602 ASCII "SETCA" 000337' 516132 441632 ASCII "SETCM" 000340' 000000 000000 0 000341' 452531 550216 ASCII "JUMPG" 000342' 452531 550230 ASCII "JUMPL" 000343' 516271 150216 ASCII "SKIPG" 000344' 516271 150230 ASCII "SKIPL" 000345' 000000 000000 0 000346' 000000 000410 TABL62: 410 000347' 000000 000440 440 000350' 000000 000420 420 000351' 000000 000400 400 000352' 000000 000450 450 000353' 000000 000460 460 000354' 000000 000000 0 000355' 000000 000325 325 000356' 000000 000323 323 000357' 000000 000335 335 000360' 000000 000333 333 000361' 000000 000000 0 000362' 200340 002577' MACHCD: MOVE 7,[POINT 9,17,8] 000363' 137300 000007 DPB 6,7 ;DEPOSIT MACHINE CODE INTO INSTR. 000364' 202740 001110' MOVEM 17,THIS ;MOVE IT TO EXECUTABLE POSITION 000365' 254000 000773' JRST ACCUME ;GO GET ACCUMULATOR CONTENTS SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 7-4 LEARNS.MAC THAT ARE USED OFTEN PAGE SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8 LEARNS.MAC THAT ARE USED OFTEN ; C O N S T A N T S 000366' MESS1I: ASCIZ / 000366' 064241 505100 YOU ARE NOW RUNNING A LEARNING PROGRAM THAT WILL ALLOW YOU 000367' 201004 054636 000370' 525010 151212 000371' 202351 753500 000372' 512531 647222 000373' 472164 040500 000374' 462130 151234 000375' 446350 720240 000376' 512370 751202 000377' 465012 444202 000400' 521012 744630 000401' 461010 146230 000402' 476564 054636 000403' 524321 220250 TO SELECT AN OPCODE, ACCUMULATOR CONTENTS, AND THE EFFECTIVE 000404' 475012 342630 000405' 426072 420202 000406' 471011 750206 000407' 476110 526100 000410' 406070 352632 000411' 526310 152236 000412' 511010 347634 000413' 522131 652246 000414' 261010 147210 000415' 202511 042500 000416' 426150 642606 000417' 522232 642432 000420' 051010 142210 ADDRESS CONTENTS. THIS OPCODE WILL THEN BE EXECUTED, USING THE 000421' 512132 351500 000422' 416371 652212 000423' 472512 327100 000424' 522211 151500 000425' 476410 347610 000426' 425012 744630 000427' 461012 444212 000430' 471010 242500 000431' 426610 541652 000432' 522130 426100 000433' 526471 147216 000434' 202511 042432 000435' 051010 347634 CONTENTS THAT YOU SELECTED, AND THE RESULTING CONTENTS OF THE 000436' 522131 652246 000437' 202511 040650 000440' 202631 752500 000441' 516131 442606 000442' 522130 426100 000443' 406350 420250 000444' 442124 051212 SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8-1 LEARNS.MAC THAT ARE USED OFTEN 000445' 516531 452222 000446' 472164 041636 000447' 472510 547250 000450' 515011 743100 000451' 522210 506424 ACCUMULATOR AND EFFECTIVE ADDRESS WILL BE TYPED ONTO YOUR 000452' 202030 341652 000453' 466531 440650 000454' 476444 040634 000455' 421010 543214 000456' 426072 444654 000457' 425010 142210 000460' 512132 351500 000461' 536231 446100 000462' 412124 052262 000463' 502130 420236 000464' 472511 720262 000465' 476532 220032 000466' 051012 442630 TELETYPE SO YOU CAN SEE EXACTLY HOW THE CONTENTS ARE AFFECTED 000467' 426513 150212 000470' 202471 720262 000471' 476524 041602 000472' 471012 342612 000473' 202133 040606 000474' 522313 120220 000475' 476564 052220 000476' 425010 347634 000477' 522131 652246 000500' 202032 242500 000501' 406150 642606 000502' 522130 406424 BY THAT PARTICULAR OPCODE. 000503' 202053 120250 000504' 442032 420240 000505' 406452 444606 000506' 526310 151100 000507' 476410 347610 000510' 425341 505032 000511' 050000 000000 / 000512' 201004 020100 MESS2I: ASCIZ / THERE ARE SOME RULES AND LIMITATIONS THOUGH: 000513' 202511 042644 000514' 425010 151212 000515' 202471 746612 000516' 202452 546212 000517' 515010 147210 000520' 202311 146622 000521' 522032 444636 000522' 472464 052220 000523' 476530 744164 000524' 064244 020022 1. CONTENTS MUST BE OCTAL NUMBERS 000525' 045425 620100 000526' 416371 652212 000527' 472512 320232 000530' 526472 420204 000531' 425011 741650 SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8-2 LEARNS.MAC THAT ARE USED OFTEN 000532' 406304 047252 000533' 466050 551246 000534' 064244 020022 2. THEY ARE RIGHT JUSTIFIED IF < 12 000535' 045445 620100 000536' 522210 554500 000537' 406450 520244 000540' 446171 052100 000541' 452532 352222 000542' 432230 542100 000543' 446144 036100 000544' 305441 505100 3. ALL 12 OCTAL CHARACTERS ARE TYPED OUT 000545' 200221 131534 000546' 201010 146230 000547' 201426 220236 000550' 416510 146100 000551' 416210 151202 000552' 416510 551246 000553' 202032 242500 000554' 522632 042610 000555' 202372 552032 000556' 051004 004422 4. THE AC USED IS 13, AND THE E IS 16 000557' 321344 020250 000560' 442124 040606 000561' 202532 342610 000562' 202232 320142 000563' 315304 040634 000564' 421012 444212 000565' 202124 044646 000566' 201426 606424 5. THESE INSTRUCTIONS ARE UNAVAILABLE: 000567' 201001 104552 000570' 271004 052220 000571' 426470 520222 000572' 472472 451252 000573' 416511 147634 000574' 515010 151212 000575' 202531 640654 000576' 406231 440604 000577' 462127 206424 BYTE MANIPULATION , 000600' 044221 141262 000601' 522124 046602 000602' 472232 052630 000603' 406511 147634 000604' 201301 505022 INPUT-OUTPUT , 000605' 044231 147240 000606' 526505 547652 000607' 522412 552100 000610' 260321 204422 PUSHDOWN LIST , 000611' 046412 551620 000612' 422372 747100 000613' 462232 352100 000614' 260321 204422 UUO MNEMONICS , 000615' 046532 547500 000616' 466350 546636 SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8-3 LEARNS.MAC THAT ARE USED OFTEN 000617' 472230 351500 000620' 260321 204422 EXECUTE,JRA, AND BLT , AND 000621' 046133 042606 000622' 526510 526224 000623' 512025 420202 000624' 472104 041230 000625' 521005 420202 000626' 472101 505022 DOUBLE PRECISION FLOATING POINT 000627' 044230 447652 000630' 412310 520240 000631' 512130 344646 000632' 446371 620214 000633' 462370 152222 000634' 472164 050236 000635' 446352 406424 DOESN'T GIVE BOTH WORDS . 000636' 044221 142236 000637' 426471 623650 000640' 202171 153212 000641' 202051 752220 000642' 202571 751210 000643' 515005 606424 000644' 064240 000000 / 000645' MESS3I: ASCIZ / 000645' 064241 505022 OPCODE: / 000646' 476410 347610 000647' 425644 000000 000650' MESS6I: ASCIZ / 000650' 064241 505250 THE INSTRUCTION DID SKIP. 000651' 442124 044634 000652' 516512 252606 000653' 522231 747100 000654' 422230 420246 000655' 456232 027032 000656' 050321 200000 / 000657' MESS4I: ASCIZ / 000657' 064241 120100 AC: / 000660' 201010 141564 000661' 200000 000000 000662' 045004 020100 MESS5I: ASCIZ / E: / 000663' 202127 220000 000664' ERROR1: ASCIZ / 000664' 064241 505256 WE DO NOT SUPPORT OPCODES WITH MORE THAN 6 CHARACTERS. 000665' 425010 447500 000666' 472372 420246 000667' 526412 047644 000670' 521011 750206 000671' 476110 551500 000672' 536232 444100 000673' 466372 242500 SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8-4 LEARNS.MAC THAT ARE USED OFTEN 000674' 522210 147100 000675' 331010 344202 000676' 512030 352212 000677' 512465 606424 000700' 064241 505000 / 000701' ERROR2: ASCIZ / 000701' 064241 505234 NO 1 CHARACTER OPCODES. 000702' 475006 120206 000703' 442032 240606 000704' 522132 220236 000705' 502071 742212 000706' 515341 505032 000707' 050000 000000 / 000710' ERROR3: ASCIZ / 000710' 064241 505236 OR IS THE ONLY 2 CHARACTER OPCODE. 000711' 511004 020222 000712' 515012 444212 000713' 202371 646262 000714' 201444 041620 000715' 406450 141650 000716' 426444 047640 000717' 416370 442534 000720' 064241 505000 / 000721' ERROR4: ASCIZ / 000721' 064252 444202 THAT OPCODE IS INVALID FOR THIS PROGRAM. 000722' 521011 750206 000723' 476110 520222 000724' 515011 147254 000725' 406311 142100 000726' 432372 220250 000727' 442232 320240 000730' 512370 751202 000731' 465341 505032 000732' 050000 000000 / 000733' ERROR5: ASCIZ / 000733' 064241 505250 THAT IS TOO MANY CHARACTERS. 000734' 442032 420222 000735' 515012 447636 000736' 202330 147262 000737' 202071 040644 000740' 406072 442644 000741' 515341 505032 000742' 050000 000000 / 000743' ERROR6: ASCIZ / 000743' 064241 505240 PLEASE SUBMIT ONLY OCTAL CHARACTERS. 000744' 462130 151612 000745' 202472 541232 SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8-5 LEARNS.MAC THAT ARE USED OFTEN 000746' 446504 047634 000747' 462624 047606 000750' 522031 420206 000751' 442032 240606 000752' 522132 251534 000753' 064241 505000 / 000754' 440700 000756' PTR1: POINT 7,UPCODI 000755' 440700 000756' POINT1: POINT 7,UPCODI 000756' UPCODI: BLOCK 2 000760' 440300 000014 PTR2: POINT 3,14 000761' 440300 000014 POINT2: POINT 3,14 000762' 440300 000013 PTR3: POINT 3,13 000763' 440300 000016 PTR4: POINT 3,16 000764' 440300 000013 POINT3: POINT 3,13 000765' FORNOW: ASCIZ / 000765' 064241 505222 IT WORKED........... 000766' 521012 747644 000767' 456130 427134 000770' 271345 627134 000771' 271345 627032 000772' 050321 200000 / 000773' 051140 000657' ACCUME: TTCALL 3,MESS4I 000774' 264000 001050' JSR GODOIT 000775' 200540 000014 MOVE 13,14 000776' 264000 001150' JSR ISJUMP ;GO LOOK AT JUMP INSTRUCTIONS 000777' 051140 000662' TTCALL 3,MESS5I 001000' 264000 001050' JSR GODOIT 001001' 200700 000014 MOVE 16,14 001002' 400200 000000 SETZ 4, ;ZERO OUT COUNTER 001003' 200240 000756' LOOKIT: MOVE 5,UPCODI ;GET THE OPCODE 001004' 404240 001031' AND 5,MASK ;JUST LOOK AT 1ST 3 CHARS. 001005' 312244 001032' CAME 5,IMMEDI(4) 001006' 254000 001011' JRST .+3 ;NOT EQUAL 001007' 137700 002600' DROPIT: DPB 16,[POINT 18,THIS,35] 001010' 254000 001110' JRST THIS ;GO DO IT NOW 001011' 200244 001032' MOVE 5,IMMEDI(4) ;TO CHECK OF LIST 001012' 271200 000001 ADDI 4,1 ;INCREMENT COUNTER 001013' 326240 001003' JUMPN 5,LOOKIT ;RETURN IF IT WAS NOT A 0 SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8-6 LEARNS.MAC THAT ARE USED OFTEN 001014' 200240 000756' MOVE 5,UPCODI 001015' 405240 077400 ANDI 5,077400 ;GET 4TH CHARACTER 001016' 306240 044400 CAIN 5,044400 ;IS IT AN I FOR IMMEDIATE 001017' 254000 001007' JRST DROPIT ;YES IT IS AN I 001020' 200240 000756' MOVE 5,UPCODI 001021' 405240 000376 ANDI 5,376 ;GET THE 5TH CHARACTER 001022' 306240 000222 CAIN 5,222 ;IS THAT AN I 001023' 254000 001007' JRST DROPIT ;YES IT IS AN I 001024' 200240 000757' MOVE 5,UPCODI+1 001025' 242240 777743 LSH 5,-^D29 001026' 302240 000111 CAIE 5,"I" 001027' 254000 001110' JRST THIS 001030' 254000 001007' JRST DROPIT 001031' 777777 700000 MASK: 777777700000 ;FOR THE 3 CHARS. 001032' 462471 000000 IMMEDI: ASCII "LSH" 001033' 522451 600000 ASCII "TRN" 001034' 522453 200000 ASCII "TRZ" 001035' 522450 300000 ASCII "TRC" 001036' 522451 700000 ASCII "TRO" 001037' 522311 600000 ASCII "TLN" 001040' 522313 200000 ASCII "TLZ" 001041' 522310 300000 ASCII "TLC" 001042' 522311 700000 ASCII "TLO" 001043' 512372 400000 ASCII "ROT" 001044' 406471 000000 ASCII "ASH" 001045' 476451 100000 ASCII "ORI" 001046' 416031 100000 ASCII "CAI" 001047' 000000 000000 0 001050' 000000 000000 GODOIT: 0 001051' 070100 000000 CLOSE 2, 001052' 200000 000760' MOVE PTR2 001053' 202000 000761' MOVEM POINT2 001054' 201200 000000 MOVEI 4,0 001055' 201600 000000 MOVEI 14,0 001056' 264000 000000' CHRLUP: JSR GETCHR 001057' 302100 000015 CAIE 2,15 ;CARRIAGE RETRN 001060' 254000 001067' JRST STILL 001061' 302200 000014 GOT12: CAIE 4,14 ;12 CHARACTERS ? 001062' 254000 001064' JRST .+2 001063' 254020 001050' JRST @GODOIT ;RETURN WITH 12 001064' 242600 777775 LSH 14,-3 ;SHIFT 1 TO THE RIGHT 001065' 271200 000001 ADDI 4,1 ;INCREMENT COUNTER 001066' 254000 001061' JRST GOT12 ;RE-CHECK 001067' 302100 000077 STILL: CAIE 2,77 ;RUBOUT ? 001070' 254000 001074' JRST .+4 ; NO 001071' 200600 001050' MOVE 14,GODOIT ; YES IT IS 001072' 275600 000002 SUBI 14,2 001073' 254020 000014 JRST @14 ;RETURN TO THE TTCALL 001074' 301100 000060 CAIL 2,60 ;SKIP IF LESS THAN DECIMAL 0 SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8-7 LEARNS.MAC THAT ARE USED OFTEN 001075' 303100 000067 CAILE 2,67 ;SKIP IF LESS OR EQUAL 001076' 254000 001106' JRST BOBOO ;ITS NON OCTAL 001077' 275100 000060 SUBI 2,60 ;DE-ASCII-IZE 001100' 136100 000761' IDPB 2,POINT2 ;PUT TO AC14 001101' 271200 000001 ADDI 4,1 001102' 302200 000015 CAIE 4,15 ;IS THAT 13 ? 001103' 254000 001056' JRST CHRLUP ;NO, GET SOME MORE 001104' 051140 000733' TTCALL 3,ERROR5 001105' 254000 001071' JRST STILL+2 001106' 051140 000743' BOBOO: TTCALL 3,ERROR6 001107' 254000 001071' JRST STILL+2 ; HERE IS WHERE IT GETS EXECUTED. 001110' 200540 000016 THIS: MOVE 13,16 ;THIS IS THE INSTRUCTION 001111' 254000 001113' JRST .+2 001112' 051140 000650' TTCALL 3,MESS6I ;IF IT SKIPS PRINT MESSAGE 001113' 051140 000657' TTCALL 3,MESS4I ;JUST SENDING OUT RESULTS 001114' 200000 000762' MOVE PTR3 001115' 202000 000764' MOVEM POINT3 ;BRING OUT THE AC 001116' 264000 001131' JSR ACANDE 001117' 200200 001222' MOVE 4,FLAG 001120' 342200 001122' AOJE 4,.+2 ;JUMPS IF =0 ,WAS -1 001121' 254000 001124' JRST .+3 001122' 402000 001222' SETZM FLAG ;SET FLAG BACK TO 0 001123' 254000 000110' JRST OPCODI ;EXIT WITHOUT PRINTING OUT E CONTENTS 001124' 051140 000662' TTCALL 3,MESS5I 001125' 200000 000763' MOVE PTR4 001126' 202000 000764' MOVEM POINT3 ;BRING OUT THE E 001127' 264000 001131' JSR ACANDE 001130' 254000 000110' JRST OPCODI 001131' 000000 000000 ACANDE: 0 001132' 400200 000000 SETZ 4, 001133' 400140 000000 SETZ 3, 001134' 134140 000764' ILDB 3,POINT3 001135' 271140 000060 ADDI 3,60 001136' 264000 000024' JSR PUTCHR 001137' 271200 000001 ADDI 4,1 001140' 302200 000014 CAIE 4,14 ;IS THAT ALL 12 001141' 254000 001133' JRST ACANDE+2 001142' 201140 000015 MOVEI 3,15 001143' 264000 000024' JSR PUTCHR 001144' 201140 000012 MOVEI 3,12 001145' 264000 000024' JSR PUTCHR ;THAT FINISHES OFF WITH RETURN FEED 001146' 070140 000000 CLOSE 3, 001147' 254020 001131' JRST @ACANDE SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8-8 LEARNS.MAC THAT ARE USED OFTEN 001150' 000000 000000 ISJUMP: 0 ;FOR A JSR 001151' 400200 000000 SETZ 4, ;ZERO OUT COUNTER 001152' 200240 000756' MOVE 5,UPCODI ;MOVE IN THE OPCODE 001153' 404240 001031' AND 5,MASK ;GET 1ST 3 CHARACTERS 001154' 312244 001225' CAME 5,JUMPIS(4) ;COMPARE WITH LIST 001155' 254000 001162' JRST NOTYET 001156' 200200 002601' MOVE 4,[XWD 0,JUMPED] ;SET 001157' 137200 002600' DPB 4,[POINT 18,THIS,35] ;OPERAND TO ADDR 001160' 476000 001222' SETOM FLAG ;SET FLAG FOR E SUPPRESSION 001161' 254000 001110' JRST THIS 001162' 271200 000001 NOTYET: ADDI 4,1 ;INCREMENT THE COUNTER 001163' 200244 001225' MOVE 5,JUMPIS(4) 001164' 326240 001152' JUMPN 5,ISJUMP+2 ;CHECK OF LIST 001165' 200240 000756' MOVE 5,UPCODI 001166' 312240 001224' CAME 5,JSRCDE ;IS IT A JSR 001167' 254000 001172' JRST .+3 ;NO IT ISNT 001170' 200740 002602' SETJMP: MOVE 17,[JRST JUMPE1] ;JSR JUMPS TO E+1 001171' 254000 001160' JRST NOTYET-2 ;GO SET THE FLAG 001172' 312240 001223' CAME 5,JSACDE ;IS IT A JSA 001173' 254020 001150' JRST @ISJUMP ;NO, SO RETURN 001174' 254000 001170' JRST SETJMP ;YES, SO EXIT AS JSR 001175' 051140 001202' JUMPED: TTCALL 3,MESSJP ;DID JUMP MESSAGE 001176' 254000 001113' JRST THIS+3 001177' 051140 001211' JUMPE1: TTCALL 3,MESSE1 ;JUMPED TO E+1 MESSAGE 001200' 402000 001222' SETZM FLAG ;CLEAR FLAG SO E IS PRINTED 001201' 254000 001113' JRST THIS+3 001202' MESSJP: ASCIZ / 001202' 064241 505250 THAT INSTRUCTION DID JUMP. 001203' 442032 420222 001204' 472472 451252 001205' 416511 147634 001206' 202111 142100 001207' 452531 550134 001210' 064241 505000 / 001211' MESSE1: ASCIZ / 001211' 064241 505250 THAT INSTRUCTION JUMPED TO E+1 . 001212' 442032 420222 001213' 472472 451252 001214' 416511 147634 001215' 202252 546640 001216' 426104 052236 001217' 202125 330500 001220' 270321 206424 / 001221' 000000 000000 001222' 000000 000000 FLAG: 0 SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8-9 LEARNS.MAC THAT ARE USED OFTEN 001223' 452470 100000 JSACDE: ASCII "JSA" 001224' 452472 200000 JSRCDE: ASCII "JSR" 001225' 406370 200000 JUMPIS: ASCII "AOB" ;AOBJP AND AOBJN 001226' 452150 600000 ASCII "JFF" ;JFFO 001227' 452150 300000 ASCII "JFC" ;JFCL 001230' 452472 000000 ASCII "JSP" 001231' 452452 300000 ASCII "JRS" 001232' 452450 100000 ASCII "JRA" 001233' 406371 200000 ASCII "AOJ" 001234' 516371 200000 ASCII "SOJ" 001235' 452531 500000 ASCII "JUM" ;JUMP S 001236' 000000 000000 0 ; TABLES OF OPCODES AND THEIR OCTAL CONFIGURATIONS. 001237' 406110 400000 TABL3: ASCII "ADD" 001240' 406350 400000 ASCII "AND" 001241' 406371 200000 ASCII "AOJ" 001242' 406372 300000 ASCII "AOS" 001243' 406471 000000 ASCII "ASH" 001244' 412050 200000 ASCII "BBB" ;BLT 001245' 416031 100000 ASCII "CAI" 001246' 416031 500000 ASCII "CAM" 001247' 422151 600000 ASCII "DFN" 001250' 422232 600000 ASCII "DIV" 001251' 422110 400000 ASCII "DDD" ;DPB 001252' 426432 600000 ASCII "EQV" 001253' 432030 400000 ASCII "FAD" 001254' 432112 600000 ASCII "FDV" 001255' 432332 000000 ASCII "FMP" 001256' 432470 200000 ASCII "FSB" 001257' 432470 300000 ASCII "FSC" 001260' 442311 400000 ASCII "HLL" 001261' 442312 200000 ASCII "HLR" 001262' 442451 400000 ASCII "HRL" 001263' 442452 200000 ASCII "HRR" 001264' 446231 100000 ASCII "III" ;IBP 001265' 446372 200000 ASCII "IOR" 001266' 452251 200000 ASCII "JJJ" ;JRA 001267' 452470 100000 ASCII "JSA" 001270' 452472 000000 ASCII "JSP" 001271' 452472 200000 ASCII "JSR" 001272' 462311 400000 ASCII "LLL" ;LDB 001273' 462471 000000 ASCII "LSH" 001274' 466531 400000 ASCII "MUL" 001275' 476450 200000 ASCII "ORB" 001276' 476451 100000 ASCII "ORI" 001277' 476451 500000 ASCII "ORM" 001300' 502412 000000 ASCII "PPP" ;POP 001301' 512372 400000 ASCII "ROT" 001302' 516371 200000 ASCII "SOJ" 001303' 516372 300000 ASCII "SOS" SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8-10 LEARNS.MAC THAT ARE USED OFTEN 001304' 516530 200000 ASCII "SUB" 001305' 522110 300000 ASCII "TDC" 001306' 522111 600000 ASCII "TDN" 001307' 522111 700000 ASCII "TDO" 001310' 522113 200000 ASCII "TDZ" 001311' 522310 300000 ASCII "TLC" 001312' 522311 600000 ASCII "TLN" 001313' 522311 700000 ASCII "TLO" 001314' 522313 200000 ASCII "TLZ" 001315' 522450 300000 ASCII "TRC" 001316' 522451 600000 ASCII "TRN" 001317' 522451 700000 ASCII "TRO" 001320' 522453 200000 ASCII "TRZ" 001321' 522470 300000 ASCII "TSC" 001322' 522471 600000 ASCII "TSN" 001323' 522471 700000 ASCII "TSO" 001324' 522473 200000 ASCII "TSZ" 001325' 526150 100000 ASCII "UFA" 001326' 542072 400000 ASCII "XCT" 001327' 542372 200000 ASCII "XOR" 001330' 000000 000000 0 001331' 406110 441000 TABL4: ASCII "ADDB" 001332' 406110 444400 ASCII "ADDI" 001333' 406110 446400 ASCII "ADDM" 001334' 406350 441000 ASCII "ANDB" 001335' 406350 444400 ASCII "ANDI" 001336' 406350 446400 ASCII "ANDM" 001337' 406371 240400 ASCII "AOJA" 001340' 406371 242400 ASCII "AOJE" 001341' 406371 243400 ASCII "AOJG" 001342' 406371 246000 ASCII "AOJL" 001343' 406371 247000 ASCII "AOJN" 001344' 406372 340400 ASCII "AOSA" 001345' 406372 342400 ASCII "AOSE" 001346' 406372 343400 ASCII "AOSG" 001347' 406372 346000 ASCII "AOSL" 001350' 406372 347000 ASCII "AOSN" 001351' 406471 041400 ASCII "ASHC" 001352' 416031 140400 ASCII "CAIA" 001353' 416031 142400 ASCII "CAIE" 001354' 416031 143400 ASCII "CAIG" 001355' 416031 146000 ASCII "CAIL" 001356' 416031 147000 ASCII "CAIN" 001357' 416031 540400 ASCII "CAMA" 001360' 416031 542400 ASCII "CAME" 001361' 416031 543400 ASCII "CAMG" 001362' 416031 546000 ASCII "CAML" 001363' 416031 547000 ASCII "CAMN" 001364' 422232 641000 ASCII "DIVB" 001365' 422232 644400 ASCII "DIVI" 001366' 422232 646400 ASCII "DIVM" 001367' 426432 641000 ASCII "EQVB" SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8-11 LEARNS.MAC THAT ARE USED OFTEN 001370' 426432 644400 ASCII "EQVI" 001371' 426432 646400 ASCII "EQVM" 001372' 426610 344000 ASCII "EXCH" 001373' 432030 441000 ASCII "FADB" 001374' 432030 446000 ASCII "FADL" 001375' 432030 446400 ASCII "FADM" 001376' 432030 451000 ASCII "FADR" 001377' 432112 641000 ASCII "FDVB" 001400' 432112 646000 ASCII "FDVL" 001401' 432112 646400 ASCII "FDVM" 001402' 432112 651000 ASCII "FDVR" 001403' 432332 041000 ASCII "FMPB" 001404' 432332 046000 ASCII "FMPL" 001405' 432332 046400 ASCII "FMPM" 001406' 432332 051000 ASCII "FMPR" 001407' 432470 241000 ASCII "FSBB" 001410' 432470 246000 ASCII "FSBL" 001411' 432470 246400 ASCII "FSBM" 001412' 432470 251000 ASCII "FSBR" 001413' 442311 442400 ASCII "HLLE" 001414' 442311 444400 ASCII "HLLI" 001415' 442311 446400 ASCII "HLLM" 001416' 442311 447400 ASCII "HLLO" 001417' 442311 451400 ASCII "HLLS" 001420' 442311 455000 ASCII "HLLZ" 001421' 442312 242400 ASCII "HLRE" 001422' 442312 244400 ASCII "HLRI" 001423' 442312 246400 ASCII "HLRM" 001424' 442312 247400 ASCII "HLRO" 001425' 442312 251400 ASCII "HLRS" 001426' 442312 255000 ASCII "HLRZ" 001427' 442451 442400 ASCII "HRLE" 001430' 442451 444400 ASCII "HRLI" 001431' 442451 446400 ASCII "HRLM" 001432' 442451 447400 ASCII "HRLO" 001433' 442451 451400 ASCII "HRLS" 001434' 442451 455000 ASCII "HRLZ" 001435' 442452 242400 ASCII "HRRE" 001436' 442452 244400 ASCII "HRRI" 001437' 442452 246400 ASCII "HRRM" 001440' 442452 247400 ASCII "HRRO" 001441' 442452 251400 ASCII "HRRS" 001442' 442452 255000 ASCII "HRRZ" 001443' 446111 153000 ASCII "IDIV" 001444' 446231 144400 ASCII "IIII" ;IDPB 001445' 446231 144400 ASCII "IIII" ;ILDB 001446' 446332 546000 ASCII "IMUL" 001447' 446372 241000 ASCII "IORB" 001450' 446372 244400 ASCII "IORI" 001451' 446372 246400 ASCII "IORM" 001452' 452150 346000 ASCII "JFCL" 001453' 452150 647400 ASCII "JFFO" 001454' 452531 550000 ASCII "JUMP" SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8-12 LEARNS.MAC THAT ARE USED OFTEN 001455' 462471 041400 ASCII "LSHC" 001456' 466372 642400 ASCII "MOVE" 001457' 466372 646400 ASCII "MOVM" 001460' 466372 647000 ASCII "MOVN" 001461' 466372 651400 ASCII "MOVS" 001462' 466531 441000 ASCII "MULB" 001463' 466531 444400 ASCII "MULI" 001464' 466531 446400 ASCII "MULM" 001465' 476450 340400 ASCII "ORCA" 001466' 476450 341000 ASCII "ORCB" 001467' 476450 346400 ASCII "ORCM" 001470' 502412 050000 ASCII "PPPP" ;PUSH 001471' 512372 441400 ASCII "ROTC" 001472' 516132 440400 ASCII "SETA" 001473' 516132 446400 ASCII "SETM" 001474' 516132 447400 ASCII "SETO" 001475' 516132 455000 ASCII "SETZ" 001476' 516271 150000 ASCII "SKIP" 001477' 516371 240400 ASCII "SOJA" 001500' 516371 242400 ASCII "SOJE" 001501' 516371 243400 ASCII "SOJG" 001502' 516371 246000 ASCII "SOJL" 001503' 516371 247000 ASCII "SOJN" 001504' 516372 340400 ASCII "SOSA" 001505' 516372 342400 ASCII "SOSE" 001506' 516372 343400 ASCII "SOSG" 001507' 516372 346000 ASCII "SOSL" 001510' 516372 347000 ASCII "SOSN" 001511' 516530 241000 ASCII "SUBB" 001512' 516530 244400 ASCII "SUBI" 001513' 516530 246400 ASCII "SUBM" 001514' 522110 340400 ASCII "TDCA" 001515' 522110 342400 ASCII "TDCE" 001516' 522110 347000 ASCII "TDCN" 001517' 522111 640400 ASCII "TDNA" 001520' 522111 642400 ASCII "TDNE" 001521' 522111 647000 ASCII "TDNN" 001522' 522111 740400 ASCII "TDOA" 001523' 522111 742400 ASCII "TDOE" 001524' 522111 747000 ASCII "TDON" 001525' 522113 240400 ASCII "TDZA" 001526' 522113 242400 ASCII "TDZE" 001527' 522113 247000 ASCII "TDZN" 001530' 522310 340400 ASCII "TLCA" 001531' 522310 342400 ASCII "TLCE" 001532' 522310 347000 ASCII "TLCN" 001533' 522311 640400 ASCII "TLNA" 001534' 522311 642400 ASCII "TLNE" 001535' 522311 647000 ASCII "TLNN" 001536' 522311 740400 ASCII "TLOA" 001537' 522311 742400 ASCII "TLOE" 001540' 522311 747000 ASCII "TLON" 001541' 522313 240400 ASCII "TLZA" SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8-13 LEARNS.MAC THAT ARE USED OFTEN 001542' 522313 242400 ASCII "TLZE" 001543' 522313 247000 ASCII "TLZN" 001544' 522450 340400 ASCII "TRCA" 001545' 522450 342400 ASCII "TRCE" 001546' 522450 347000 ASCII "TRCN" 001547' 522451 640400 ASCII "TRNA" 001550' 522451 642400 ASCII "TRNE" 001551' 522451 647000 ASCII "TRNN" 001552' 522451 740400 ASCII "TROA" 001553' 522451 742400 ASCII "TROE" 001554' 522451 747000 ASCII "TRON" 001555' 522453 240400 ASCII "TRZA" 001556' 522453 242400 ASCII "TRZE" 001557' 522453 247000 ASCII "TRZN" 001560' 522470 340400 ASCII "TSCA" 001561' 522470 342400 ASCII "TSCE" 001562' 522470 347000 ASCII "TSCN" 001563' 522471 640400 ASCII "TSNA" 001564' 522471 642400 ASCII "TSNE" 001565' 522471 647000 ASCII "TSNN" 001566' 522471 740400 ASCII "TSOA" 001567' 522471 742400 ASCII "TSOE" 001570' 522471 747000 ASCII "TSON" 001571' 522473 240400 ASCII "TSZA" 001572' 522473 242400 ASCII "TSZE" 001573' 522473 247000 ASCII "TSZN" 001574' 542372 241000 ASCII "XORB" 001575' 542372 244400 ASCII "XORI" 001576' 542372 246400 ASCII "XORM" 001577' 000000 000270 TABL32: 270 001600' 000000 000404 404 001601' 000000 000340 340 001602' 000000 000350 350 001603' 000000 000240 240 001604' 000000 000251 251 001605' 000000 000300 300 001606' 000000 000310 310 001607' 000000 000131 131 001610' 000000 000234 234 001611' 000000 000137 137 001612' 000000 000444 444 001613' 000000 000140 140 001614' 000000 000170 170 001615' 000000 000160 160 001616' 000000 000150 150 001617' 000000 000132 132 001620' 000000 000500 500 001621' 000000 000544 544 001622' 000000 000504 504 SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8-14 LEARNS.MAC THAT ARE USED OFTEN 001623' 000000 000540 540 001624' 000000 000133 133 001625' 000000 000435 435 001626' 000000 000267 267 001627' 000000 000266 266 001630' 000000 000265 265 001631' 000000 000264 264 001632' 000000 000135 135 001633' 000000 000242 242 001634' 000000 000224 224 001635' 000000 000437 437 001636' 000000 000434 434 001637' 000000 000436 436 001640' 000000 000262 262 001641' 000000 000241 241 001642' 000000 000360 360 001643' 000000 000370 370 001644' 000000 000274 274 001645' 000000 000650 650 001646' 000000 000610 610 001647' 000000 000670 670 001650' 000000 000630 630 001651' 000000 000641 641 001652' 000000 000601 601 001653' 000000 000661 661 001654' 000000 000621 621 001655' 000000 000640 640 001656' 000000 000600 600 001657' 000000 000660 660 001660' 000000 000620 620 001661' 000000 000651 651 001662' 000000 000611 611 001663' 000000 000671 671 001664' 000000 000631 631 001665' 000000 000130 130 001666' 000000 000256 256 001667' 000000 000430 430 001670' 000000 000000 0 001671' 000000 000273 TABL42: 273 001672' 000000 000271 271 001673' 000000 000272 272 001674' 000000 000407 407 001675' 000000 000405 405 001676' 000000 000406 406 001677' 000000 000344 344 001700' 000000 000342 342 001701' 000000 000347 347 001702' 000000 000341 341 001703' 000000 000346 346 001704' 000000 000354 354 001705' 000000 000352 352 001706' 000000 000357 357 SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8-15 LEARNS.MAC THAT ARE USED OFTEN 001707' 000000 000351 351 001710' 000000 000356 356 001711' 000000 000244 244 001712' 000000 000304 304 001713' 000000 000302 302 001714' 000000 000307 307 001715' 000000 000301 301 001716' 000000 000306 306 001717' 000000 000314 314 001720' 000000 000312 312 001721' 000000 000317 317 001722' 000000 000311 311 001723' 000000 000316 316 001724' 000000 000237 237 001725' 000000 000235 235 001726' 000000 000236 236 001727' 000000 000447 447 001730' 000000 000445 445 001731' 000000 000446 446 001732' 000000 000250 250 001733' 000000 000143 143 001734' 000000 000141 141 001735' 000000 000142 142 001736' 000000 000144 144 001737' 000000 000173 173 001740' 000000 000171 171 001741' 000000 000172 172 001742' 000000 000174 174 001743' 000000 000163 163 001744' 000000 000161 161 001745' 000000 000162 162 001746' 000000 000164 164 001747' 000000 000153 153 001750' 000000 000151 151 001751' 000000 000152 152 001752' 000000 000154 154 001753' 000000 000530 530 001754' 000000 000501 501 001755' 000000 000502 502 001756' 000000 000520 520 001757' 000000 000503 503 001760' 000000 000510 510 001761' 000000 000574 574 001762' 000000 000545 545 001763' 000000 000546 546 001764' 000000 000564 564 001765' 000000 000547 547 001766' 000000 000554 554 001767' 000000 000534 534 001770' 000000 000505 505 001771' 000000 000506 506 001772' 000000 000524 524 001773' 000000 000507 507 SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8-16 LEARNS.MAC THAT ARE USED OFTEN 001774' 000000 000514 514 001775' 000000 000570 570 001776' 000000 000541 541 001777' 000000 000542 542 002000' 000000 000560 560 002001' 000000 000543 543 002002' 000000 000550 550 002003' 000000 000230 230 002004' 000000 000136 136 002005' 000000 000134 134 002006' 000000 000220 220 002007' 000000 000437 437 002010' 000000 000435 435 002011' 000000 000436 436 002012' 000000 000255 255 002013' 000000 000243 243 002014' 000000 000320 320 002015' 000000 000246 246 002016' 000000 000200 200 002017' 000000 000214 214 002020' 000000 000210 210 002021' 000000 000204 204 002022' 000000 000227 227 002023' 000000 000225 225 002024' 000000 000226 226 002025' 000000 000454 454 002026' 000000 000470 470 002027' 000000 000464 464 002030' 000000 000261 261 002031' 000000 000245 245 002032' 000000 000424 424 002033' 000000 000414 414 002034' 000000 000474 474 002035' 000000 000400 400 002036' 000000 000330 330 002037' 000000 000364 364 002040' 000000 000362 362 002041' 000000 000367 367 002042' 000000 000361 361 002043' 000000 000366 366 002044' 000000 000374 374 002045' 000000 000372 372 002046' 000000 000377 377 002047' 000000 000371 371 002050' 000000 000376 376 002051' 000000 000277 277 002052' 000000 000275 275 002053' 000000 000276 276 002054' 000000 000654 654 002055' 000000 000652 652 002056' 000000 000656 656 002057' 000000 000614 614 002060' 000000 000612 612 SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8-17 LEARNS.MAC THAT ARE USED OFTEN 002061' 000000 000616 616 002062' 000000 000674 674 002063' 000000 000672 672 002064' 000000 000676 676 002065' 000000 000634 634 002066' 000000 000632 632 002067' 000000 000636 636 002070' 000000 000645 645 002071' 000000 000643 643 002072' 000000 000647 647 002073' 000000 000605 605 002074' 000000 000603 603 002075' 000000 000607 607 002076' 000000 000665 665 002077' 000000 000663 663 002100' 000000 000667 667 002101' 000000 000625 625 002102' 000000 000623 623 002103' 000000 000627 627 002104' 000000 000644 644 002105' 000000 000642 642 002106' 000000 000646 646 002107' 000000 000604 604 002110' 000000 000602 602 002111' 000000 000606 606 002112' 000000 000664 664 002113' 000000 000662 662 002114' 000000 000666 666 002115' 000000 000624 624 002116' 000000 000622 622 002117' 000000 000626 626 002120' 000000 000655 655 002121' 000000 000653 653 002122' 000000 000657 657 002123' 000000 000615 615 002124' 000000 000613 613 002125' 000000 000617 617 002126' 000000 000675 675 002127' 000000 000673 673 002130' 000000 000677 677 002131' 000000 000635 635 002132' 000000 000633 633 002133' 000000 000637 637 002134' 000000 000433 433 002135' 000000 000431 431 002136' 000000 000432 432 002137' 000000 000000 0 SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8-18 LEARNS.MAC THAT ARE USED OFTEN 002140' 406350 441602 TABL5: ASCII "ANDCA" 002141' 406350 441604 ASCII "ANDCB" 002142' 406350 441632 ASCII "ANDCM" 002143' 406370 245234 ASCII "AOBJN" 002144' 406370 245240 ASCII "AOBJP" 002145' 406371 243612 ASCII "AOJGE" 002146' 406371 246212 ASCII "AOJLE" 002147' 406372 343612 ASCII "AOSGE" 002150' 406372 346212 ASCII "AOSLE" 002151' 416031 143612 ASCII "CAIGE" 002152' 416031 146212 ASCII "CAILE" 002153' 416031 543612 ASCII "CAMGE" 002154' 416031 546212 ASCII "CAMLE" 002155' 432030 451204 ASCII "FADRB" 002156' 432030 451222 ASCII "FADRI" 002157' 432030 451232 ASCII "FADRM" 002160' 432112 651204 ASCII "FDVRB" 002161' 432112 651222 ASCII "FDVRI" 002162' 432112 651232 ASCII "FDVRM" 002163' 432332 051204 ASCII "FMPRB" 002164' 432332 051222 ASCII "FMPRI" 002165' 432332 051232 ASCII "FMPRM" 002166' 432470 251204 ASCII "FSBRB" 002167' 432470 251222 ASCII "FSBRI" 002170' 432470 251232 ASCII "FSBRM" 002171' 442311 442622 ASCII "HLLEI" 002172' 442311 442632 ASCII "HLLEM" 002173' 442311 442646 ASCII "HLLES" 002174' 442311 447622 ASCII "HLLOI" 002175' 442311 447632 ASCII "HLLOM" 002176' 442311 447646 ASCII "HLLOS" 002177' 442311 455222 ASCII "HLLZI" 002200' 442311 455232 ASCII "HLLZM" 002201' 442311 455246 ASCII "HLLZS" 002202' 442312 242622 ASCII "HLREI" 002203' 442312 242632 ASCII "HLREM" 002204' 442312 242646 ASCII "HLRES" 002205' 442312 247622 ASCII "HLROI" 002206' 442312 247632 ASCII "HLROM" 002207' 442312 247646 ASCII "HLROS" 002210' 442312 255222 ASCII "HLRZI" 002211' 442312 255232 ASCII "HLRZM" 002212' 442312 255246 ASCII "HLRZS" 002213' 442451 442622 ASCII "HRLEI" 002214' 442451 442632 ASCII "HRLEM" 002215' 442451 442646 ASCII "HRLES" 002216' 442451 447622 ASCII "HRLOI" 002217' 442451 447632 ASCII "HRLOM" SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8-19 LEARNS.MAC THAT ARE USED OFTEN 002220' 442451 447646 ASCII "HRLOS" 002221' 442451 455222 ASCII "HRLZI" 002222' 442451 455232 ASCII "HRLZM" 002223' 442451 455246 ASCII "HRLZS" 002224' 442452 242622 ASCII "HRREI" 002225' 442452 242632 ASCII "HRREM" 002226' 442452 242646 ASCII "HRRES" 002227' 442452 247622 ASCII "HRROI" 002230' 442452 247632 ASCII "HRROM" 002231' 442452 247646 ASCII "HRROS" 002232' 442452 255222 ASCII "HRRZI" 002233' 442452 255232 ASCII "HRRZM" 002234' 442452 255246 ASCII "HRRZS" 002235' 446111 153204 ASCII "IDIVB" 002236' 446111 153222 ASCII "IDIVI" 002237' 446111 153232 ASCII "IDIVM" 002240' 446332 546204 ASCII "IMULB" 002241' 446332 546222 ASCII "IMULI" 002242' 446332 546232 ASCII "IMULM" 002243' 452531 550202 ASCII "JUMPA" 002244' 452531 550212 ASCII "JUMPE" 002245' 452531 550216 ASCII "JUMPG" 002246' 452531 550230 ASCII "JUMPL" 002247' 452531 550234 ASCII "JUMPN" 002250' 466372 642622 ASCII "MOVEI" 002251' 466372 642632 ASCII "MOVEM" 002252' 466372 642646 ASCII "MOVES" 002253' 466372 646622 ASCII "MOVMI" 002254' 466372 646632 ASCII "MOVMM" 002255' 466372 646646 ASCII "MOVMS" 002256' 466372 647222 ASCII "MOVNI" 002257' 466372 647232 ASCII "MOVNM" 002260' 466372 647246 ASCII "MOVNS" 002261' 466372 651622 ASCII "MOVSI" 002262' 466372 651632 ASCII "MOVSM" 002263' 466372 651646 ASCII "MOVSS" 002264' 476450 340604 ASCII "ORCAB" 002265' 476450 340622 ASCII "ORCAI" 002266' 476450 340632 ASCII "ORCAM" 002267' 476450 341204 ASCII "ORCBB" 002270' 476450 341222 ASCII "ORCBI" 002271' 476450 341232 ASCII "ORCBM" 002272' 476450 346604 ASCII "ORCMB" 002273' 476450 346622 ASCII "ORCMI" 002274' 476450 346632 ASCII "ORCMM" 002275' 502412 050240 ASCII "PPPPP" ;PUSHJ 002276' 516132 440604 ASCII "SETAB" 002277' 516132 440622 ASCII "SETAI" 002300' 516132 440632 ASCII "SETAM" 002301' 516132 441602 ASCII "SETCA" 002302' 516132 441632 ASCII "SETCM" 002303' 516132 446604 ASCII "SETMB" 002304' 516132 446622 ASCII "SETMI" SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8-20 LEARNS.MAC THAT ARE USED OFTEN 002305' 516132 446632 ASCII "SETMM" 002306' 516132 447604 ASCII "SETOB" 002307' 516132 447622 ASCII "SETOI" 002310' 516132 447632 ASCII "SETOM" 002311' 516132 455204 ASCII "SETZB" 002312' 516132 455222 ASCII "SETZI" 002313' 516132 455232 ASCII "SETZM" 002314' 516271 150202 ASCII "SKIPA" 002315' 516271 150212 ASCII "SKIPE" 002316' 516271 150216 ASCII "SKIPG" 002317' 516271 150230 ASCII "SKIPL" 002320' 516271 150234 ASCII "SKIPN" 002321' 516371 243612 ASCII "SOJGE" 002322' 516371 246212 ASCII "SOJLE" 002323' 516372 343612 ASCII "SOSGE" 002324' 516372 346212 ASCII "SOSLE" 002325' 000000 000000 0 002326' 000000 000410 TABL52: 410 002327' 000000 000440 440 002330' 000000 000420 420 002331' 000000 000253 253 002332' 000000 000252 252 002333' 000000 000345 345 002334' 000000 000343 343 002335' 000000 000355 355 002336' 000000 000353 353 002337' 000000 000315 315 002340' 000000 000313 313 002341' 000000 000315 315 002342' 000000 000313 313 002343' 000000 000147 147 002344' 000000 000145 145 002345' 000000 000146 146 002346' 000000 000177 177 002347' 000000 000175 175 002350' 000000 000176 176 002351' 000000 000167 167 002352' 000000 000165 165 002353' 000000 000166 166 002354' 000000 000157 157 002355' 000000 000155 155 002356' 000000 000156 156 002357' 000000 000531 531 002360' 000000 000532 532 002361' 000000 000533 533 002362' 000000 000521 521 002363' 000000 000522 522 002364' 000000 000523 523 002365' 000000 000511 511 002366' 000000 000512 512 002367' 000000 000513 513 SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8-21 LEARNS.MAC THAT ARE USED OFTEN 002370' 000000 000575 575 002371' 000000 000576 576 002372' 000000 000577 577 002373' 000000 000565 565 002374' 000000 000566 566 002375' 000000 000567 567 002376' 000000 000555 555 002377' 000000 000556 556 002400' 000000 000557 557 002401' 000000 000535 535 002402' 000000 000536 536 002403' 000000 000537 537 002404' 000000 000525 525 002405' 000000 000526 526 002406' 000000 000527 527 002407' 000000 000515 515 002410' 000000 000516 516 002411' 000000 000517 517 002412' 000000 000571 571 002413' 000000 000572 572 002414' 000000 000573 573 002415' 000000 000561 561 002416' 000000 000562 562 002417' 000000 000563 563 002420' 000000 000551 551 002421' 000000 000552 552 002422' 000000 000553 553 002423' 000000 000233 233 002424' 000000 000231 231 002425' 000000 000232 232 002426' 000000 000223 223 002427' 000000 000221 221 002430' 000000 000222 222 002431' 000000 000324 324 002432' 000000 000322 322 002433' 000000 000327 327 002434' 000000 000321 321 002435' 000000 000326 326 002436' 000000 000201 201 002437' 000000 000202 202 002440' 000000 000203 203 002441' 000000 000215 215 002442' 000000 000216 216 002443' 000000 000217 217 002444' 000000 000211 211 002445' 000000 000212 212 002446' 000000 000213 213 002447' 000000 000205 205 002450' 000000 000206 206 002451' 000000 000207 207 002452' 000000 000457 457 002453' 000000 000455 455 002454' 000000 000456 456 SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8-22 LEARNS.MAC THAT ARE USED OFTEN 002455' 000000 000473 473 002456' 000000 000471 471 002457' 000000 000472 472 002460' 000000 000467 467 002461' 000000 000465 465 002462' 000000 000466 466 002463' 000000 000260 260 002464' 000000 000427 427 002465' 000000 000425 425 002466' 000000 000426 426 002467' 000000 000450 450 002470' 000000 000460 460 002471' 000000 000417 417 002472' 000000 000415 415 002473' 000000 000416 416 002474' 000000 000477 477 002475' 000000 000475 475 002476' 000000 000476 476 002477' 000000 000403 403 002500' 000000 000401 401 002501' 000000 000402 402 002502' 000000 000334 334 002503' 000000 000332 332 002504' 000000 000337 337 002505' 000000 000331 331 002506' 000000 000336 336 002507' 000000 000365 365 002510' 000000 000363 363 002511' 000000 000375 375 002512' 000000 000373 373 002513' 000000 000000 0 002514' 416371 651636 PDPIO: ASCII "CONSO" 002515' 416371 651664 ASCII "CONSZ" 002516' 416371 647400 ASCII "CONO" 002517' 416371 644400 ASCII "CONI" 002520' 422032 440622 ASCII "DATAI" 002521' 422032 440636 ASCII "DATAO" 002522' 412311 347400 ASCII "BLKO" 002523' 412311 344400 ASCII "BLKI" 002524' 000000 000000 0 002525' 416031 446000 ASCII "CALL" 002526' 416031 446222 ASCII "CALLI" 002527' 476410 547000 ASCII "OPEN" 002530' 522510 340630 ASCII "TTCAL" 002531' 512131 640632 ASCII "RENAM" 002532' 446340 000000 ASCII "IN" 002533' 476532 400000 ASCII "OUT" 002534' 516132 451650 ASCII "SETST" 002535' 516510 152236 ASCII "STATO" 002536' 516510 152252 ASCII "STATU" 002537' 436132 451650 ASCII "GETST" 002540' 516510 152264 ASCII "STATZ" 002541' 446350 252614 ASCII "INBUF" SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 8-23 LEARNS.MAC THAT ARE USED OFTEN 002542' 446351 152000 ASCII "INIT" SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 9 LEARNS.MAC THAT ARE USED OFTEN 002543' 476532 441252 ASCII "OUTBU" 002544' 446352 052650 ASCII "INPUT" 002545' 476532 450252 ASCII "OUTPU" 002546' 416311 751612 ASCII "CLOSE" 002547' 512131 442602 ASCII "RELEA" 002550' 466510 150212 ASCII "MTAPE" 002551' 526170 552214 ASCII "UGETF" 002552' 526470 552222 ASCII "USETI" 002553' 526470 552236 ASCII "USETO" 002554' 462371 745652 ASCII "LOOKU" 002555' 426352 442644 ASCII "ENTER" 002556' 000000 000000 0 002557' 462110 200000 ASCII "LDB" 002560' 422410 200000 ASCII "DPB" 002561' 446052 000000 ASCII "IBP" 002562' 446310 441000 ASCII "ILDB" 002563' 446112 041000 ASCII "IDPB" 002564' 000000 000000 0 002565' 502532 344224 ASCII "PUSHJ" 002566' 502532 344000 ASCII "PUSH" 002567' 502372 000000 ASCII "POP" 002570' 502372 045000 ASCII "POPJ" 002571' 000000 000000 0 002572' 000000 000000 0 ; THE LAST LIST (PDPIO) IS OF CODES THAT ARE UNEXECUTABLE HERE. 002573' 254000 000072' GOGOGO: JRST STARTI END GOGOGO 002574' 254000 000110' 002575' 200540 000016 002576' 002200 000261' 002577' 331100 000017 002600' 002200 001110' 002601' 000000 001175' 002602' 254000 001177' NO ERRORS DETECTED PROGRAM BREAK IS 002603 SUBROUTINES MACRO.V43 09:57 28-APR-70 PAGE 10 LEARNS.MAC SYMBOL TABLE ACANDE 001131' ACCUME 000773' BOBOO 001106' BYTEME 000310' CHANGI 000103' CHECK6 000234' CHEK62 000227' CHRLUP 001056' COMEIN 000134' DROPIT 001007' ENDFIL 000016' ENDTS7 000011' ERROR1 000664' ERROR2 000701' ERROR3 000710' ERROR4 000721' ERROR5 000733' ERROR6 000743' FIVCHR 000177' FLAG 001222' FORCHR 000167' FORNOW 000765' GETBUF 000006' GETCHR 000000' GETCNT 000001' GETNXT 000003' GODOIT 001050' GOGOGO 002573' GOT12 001061' IBUF 000021' IMMEDI 001032' INERR 000014' IOMESS 000276' IOXWD 000271' ISJUMP 001150' JSACDE 001223' JSRCDE 001224' JUMPE1 001177' JUMPED 001175' JUMPIS 001225' LOOKIT 001003' MACHCD 000362' MASK 001031' MESS1I 000366' MESS2I 000512' MESS3I 000645' MESS4I 000657' MESS5I 000662' MESS6I 000650' MESSE1 001211' MESSJP 001202' MESSSW 000261' MORE 000120' NOPDP 000263' NOTE62 000224' NOTEQ3 000162' NOTEQ4 000174' NOTEQ5 000204' NOTEQ6 000214' NOTYET 001162' OBUF 000036' ONECHR 000144' ONEFRI 000327' OPCODI 000110' ORCDE 000146' OUTERR 000034' PDP10 000252' PDPIO 002514' POINT1 000755' POINT2 000761' POINT3 000764' PTR1 000754' PTR2 000760' PTR3 000762' PTR4 000763' PUSHME 000317' PUTBUF 000031' PUTCHR 000024' PUTNXT 000027' PUTOUT 000041' RETFEE 000050' SETJMP 001170' SIXCHR 000207' STARTI 000072' STARTS 000057' STILL 001067' TABL3 001237' TABL32 001577' TABL4 001331' TABL42 001671' TABL5 002140' TABL52 002326' TABL6 000332' TABL62 000346' THIS 001110' THREEB 000331' TRECHR 000155' TWOCHR 000147' TWOFRM 000330' UPCODI 000756' UUOMES 000304' 2K CORE USED