Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50101/learns.lst
There are 2 other files named learns.lst in the archive. Click here to see a list.
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