ASMB,R,L,C HED R$PN$ MTM RESPONSE *9-10 NAM R$PN$,2,1 PRE-REL 8-2-76 (DLB) *10-5 NAM R$PN$,2,1 PRE-REL 9-10-76 (DLB) *10-12 NAM R$PN$,2,1 PRE-REL 10-5-76 (DLB) * NAM R$PN$,2,1 PRE-REL 10-18-76 (DLB) * NAM R$PN$,2,1 09570-16662 REV. A 761013 * NAM R$PN$,2,1 09570-16662 REV. A 761110 * NAM R$PN$,2,1 09570-16662 REV. B 761129 NAM R$PN$,1,1 09570-16662 REV.1830 780821 * *-------------------------------------------------------- * * RELOC. 09570-16662 * SOURCE 09570-18662 * * D. L. BASKINS 13 OCT 76 REV. A * *-------------------------------------------------------- EXT MESSS,EXEC,IDSGA,CLAS#,CLAS% EXT $LIBR,$LIBX,ICLRW,IGTSM EXT .XLA,.XLB,.XSA,.XSB,$OPSY SPC 1 A EQU 0 B EQU 1 DRT EQU 1652B LUMAX EQU 1653B FENCE EQU 1775B SPC 1 R$PN$ NOP ENTRY JSB EXEC SWAP ONLY ME DEF *+3 DEF D22 DEF O2 JSB DIRCT CHECK IF EXITS AND MAKE DIRECT CLSAD DEF CLAS#+0 ADDRESS OF CLASS NUMBER IN SYSTEM MAP JSB IDSGA FIND THE PROGRAM "LOADR" DEF *+2 DEF ASCLO STA LOADR JSB IDSGA FIND PROGRAM "BASIC" DEF *+2 DEF ASCBA STA BASIC SPC 1 WAIT1 CCE SETUP FOR NO WAIT FOR CLASS GET WAIT2 JSB .XLA GET CLASS NUMBER DEF CLSAD,I SZA,RSS CHECK IF ALREADY ALLOCATED? JMP EXIT NO, IGNORE THE REQUEST AND O17KK MASK OFF 13,14,15 RAL,ERA SET OR CLEAR WAIT BIT (15) STA RQCLS & SAVE IT IOR O20K SET FOR SAVE CLASS STA CLASS SAVE CLASS WITH NO DEALLOCATE SPC 1 JSB EXEC CLASS I/O GET DEF *+8 DEF D21 DEF CLASS SOURB DEF BUFF+1 DEF DM52 DEF SESTB ADDRESS OF SESSION TABLE ENTRY DEF LU TERMINAL LU DEF RCLAS INA,SZA,RSS CHECK IF ANY PENDING CLASS BUFFERS? JMP EXIT NO, TERMINATE CLE,SSA DID WE OBTAIN ANY DATA? JMP WAIT2 WAIT FOR CLASS TO MATURE SPC 1 LDA RCLAS RAR,SLA WAS THIS A READ RETURN? JMP WAIT1 NO WRITE, IGNORE IT & GET ANY MORE STB IB YES, SAVE XFER LOG CHARS CMB,INB,SZB,RSS IF ZERO-LENGTH JMP ENABL SKIP PROCESSING CODE. STB TEMP3 SAVE NEG CHAR COUNT SPC 1 * STRIP OUT ALL SPACES & COUNT COMMAS IN BUFFER SPC 1 LDB SOURB GET COMMAND BUFFER ADDRESS RBL FORM CHARACTOR COUNT STB TEMP2 SAVE CHAR ADDRESS OF SOURCE BUFFER ADB OM2 CALCULATE DEST BUFF ADDRESS STB TEMP1 SAVE THE DEST BUFF ADDRESS CLA PRESET THE COMMA COUNTER STA CMCNT TO ZERO STA BUFF AND PRESET BUFF TO ILLEGAL COMMAND MOREA LDB TEMP2 GET CURRENT SOURCE CHAR ADDRESS ISZ TEMP2 BUMP CLE,ERB FROM WORD ADDRESS LDA B,I GET THE WORD SEZ,RSS CHECK IF NEED POSITION? ALF,ALF YES AND O177 MASK DOWN TO ONE CHAR CPA COMMA CHECK IF COMMA? ISZ CMCNT YES, BUMP THE COMMA COUNTER CPA O40 CHECK IF SPACE? JMP MOREB YES, DO NOT STORE IN OUTPUT BUFFER LDB TEMP1 GET CURRENT DESTINATION BUFFER CHAR ADDRESS ISZ TEMP1 BUMP DEST BUFFER CLE,ERB FORM WORD COUNT SEZ,RSS CHECK IF CHARACTER NEED POSITIONING? ALF,SLA,ALF YES, AND SKIP NEXT INSTRUCTION XOR B,I NO, MIRGE IN WITH PREVIOUS CHARACTOR IN WORD XOR O40 PUT IN/TAKE OUT SPACE CHARACTOR STA B,I AND PUT IN DESTINATION BUFFER MOREB ISZ TEMP3 CHECK IF MORE CHARACTERS IN SOURCE BUFFER? JMP MOREA YES, KEEP ON TRUCKING SPC 1 * NOW FIND IDSEG ADDRESS OF PROGENITOR SPC 1 LDA SESTB CHECK IF THERE IS A SESSION TABLE SZA,RSS ENTRY? JMP PROCS NO, DO THE STOCK MTM THING JSB .XLA GET THE 1ST WORD OF SESSION DEF A,I 1ST WORD IN SESSION TABLE CLE,SZA,RSS CHECK IF LOGGED ON? JMP WAIT1 NO, IGNORE JSB SCFLG MABY, CLEAR INHIBIT FLAG LDB SESTB GET SESSION TABLE ENTRY LDA DFNAM GET TO BUFFER ADDRESS JSB TMOVE MOVE IT LOCALLY JSB IDSGA FIND PROGENITOR'S IDSEG ADDRESS DEF *+2 DFNAM DEF PNAME STA TEMP1 SAVE HIS IDSEGMENT ADDRESS SZA,RSS CHECK IF THERE IS ONE? JMP PROCS NO, DO THE STOCK MTM THING SPC 1 * NOW GO GET THE AUTHORIZATION CODE BITS FROM TABLE SPC 1 LDA PNAME+2 3RD WORD OF TABLE ENTRY LSR 6 POSITION TO LO BITS AND O3 AND MASK OFF REST STA AUTCD SAVE THE AUTHORIZATION CODE LDB BUFF CHECK IF WHZAT IS REQUESTED? CPB WHZAT JMP WHZ YES, GO PROCESS LDB CMCNT GET THE COMMA COUNT SZB,RSS CHECK IF ANY COMMAS JMP SPCMD NO, DO SPECIAL SESSION COMMANDS CPA O3 CHECK IF HIGHEST AUTHORIZATION ? JMP PROCS YES, GO DOIT. WITH COMMAS CPA O2 CHECK IF AUTHORIZED TO USE ONE COMMA? RSS YES, DONT BOUNCE HIM YET STA BUFF BOUNCE HIM WITH OP CODE ERR LDA BUFF GET COMMAND IN A-REG CPB O1 CHECK IF COMMA COUNT = 1 CPA ASCOF YES,MADE IT,CHECK IF ONE COMMA "OF"? STB BUFF FORCE "OP CODE ERR" JMP PROCS NOW GO PROCESS THE BUFF SPC 1 * NO COMMA, CHECK FOR SPECIAL COMMANDS SPC 1 SPCMD LDB BUFF CHECK CHARS 1 & 2 OF MESSAGE CPB ASCLO CHECK IF "LOGOF" RSS YES ON THE "LO" JMP CONT1 NO, CONTINUE LDB BUFF+1 CHECK CHARS 3 & 4 CPB ASCGO CHECK IF "GOF" JMP LOGOF YES, DO LOGOF THING JMP PROCS NONE, DO THE MTM THING SPC 1 CONT1 ADB M0SPA ADD IN -"0 " BLF,BLF SWAP THE TWO BYTES STB TEMP3 SAVE THE TRAP NUMBER 0 TO 7 LSR 3 AND STRIP LEAST 3 BITS SZB,RSS AND CHECK IF IN RANGE? JMP TRAP YES, GO EXECUTE LDB BUFF NO, CONTINUE CPB ASCUP CHECK IF UP COMMAND? JMP UPIT YES, GO PROCESS CLA CPB ASCAB DONOT ALLOW "AB" WITHOUT COMMAS STA BUFF CLEAR BUFFER TO MAKE "OP CODE ERR" CPB ASCFL CHECK IF FLUSH? JMP FL YES CPB ASCUN *3-1 CHECK IF UNBREAK? RSS CPB ASCBR CHECK IF BREAK? RSS CPB ASCSS CHECK IF "SS" RSS CPB ASCST CHECK IF STATUS? RSS GO CALCULATE MESSAGE LENGTH CPB ASCGO CHECK IF "GO" CCA,RSS YES, MAKE A-REG = -1 CPB ASCOF CHECK IF "OFF" RSS A-REG = 0 JMP PROCS NO, DO THE MTM THING SPC 1 ADA O6 PRESET MESSAGE LENGTHS STA IA FOR PRINTING OUT ALS TURN IN TO CHARACTOR LENGTH STA IB FOR THE MESSS ROUTINE LDA TEMP1 GET IDSEGMENT ADDRESS OF PROGENITOR CONT2 STA TEMP2 SAVE AS SON IF NONE CLE LDB BUFF CHECK IF "BR" OR "UN" COMMAND CPB ASCBR *3-1 BREAK COMMAND? CCE,RSS YES CPB ASCUN *3-1 UNBREAK COMMAND? JSB PBRUN CLEAR OR SET THE BREAK BIT JSB FNDSN FIND SON IF ANY SZA ANY FOUND? JMP CONT2 YES, FIND NEXT ONE SPC 1 LDB TEMP2 GET SON'S IDSEG ADDRESS JSB SETNA SET UP THE NAME IN BUFF LDA COMON GET ",1" STA BUFF+5 AND SET INTO BUFFER LDB BUFF GET COMMAND CHARS IN B-REG CPB ASCST CHECK IF STATUS COMMAND? JMP PRNT YES, SKIP COMMAND EXECUTION CPB ASCUN CHECK IF UNBREAK COMMAND JMP ENABL YES, SKIP FUTHER PROCESSING CPB ASCSS IF "SS" OR "OF" AND PERMANENT PROG RSS CPB ASCOF JUST PRINT THE COMMAND RSS YES, CHECK IF AUTHORIZED? JMP PROCS NO, GO PROCESS THE COMMAND LDA AUTCD GET THE AUTHORIZATION CODE SZA IF = 0, THEN OF & SS ILLEGAL JMP CONT3 OK, CHECK IF ALLOWED? STA BUFF SET UP ILLEGAL MESSAGE JMP PROCS AND OUTPUT OP CODE ERR CONT3 SEZ,RSS CHECK IF PERMANENT PROG? JMP PRNT YES, JUST PRINT THE MESSAGE LDA TEMP2 NO, CHECK IF DEADLY EMBRACE CPB ASCOF CHECK IF "OF" RSS JMP PROCS NO, GO PROCESS THE COMMAND CPA TEMP1 CHECK IF ANY SON'S INA,RSS NO, CHECK IF DEADLY EMBRACE JMP PROCS NO, PROCESS "OF" JSB .XLA GET XTEMP(1) DEF A,I CPA TEMP1 EQUAL TO DAD? JMP PROCS YES, PROCESS "OF" CPA O4 EQUAL TO SUSPEND TO DOWN I/O? JMP PROCS YES, PROCESS "OF" LDA ASCBR NO, CHANGE "OF" TO "BR" STA BUFF COMMAND SPC 1 PROCS JSB MESS GIVE REQUEST SZA,RSS ANY MESSAGES ? JMP ENABL NO,WAIT FOR NEXT INPUT STA IA SAVE TLOG SPC 1 PRNT JSB ICLRW DO CLASS WRITE OF ERROR MESSAGE DEF *+7 DEF O2 WRITE DEF CLSAD ADDRESS OF CLASS NUMBER IN SYSTEM MAP DEF LU LOGICAL UNIT NUMBER DEF SESTB DUMMY? DEF BUFF BUFFER DEF IA MESSAGE LENGTH JMP ENABL NOW WAIT SPC 1 WHZ JSB EXEC SCHEDULE WHZAT DEF *+5 DEF NA10 NO ABORT CALL EXEC (10 DEF WHZAT DEF LU DEF CMCNT *3-1 JMP PROCS NON-EXISTANT, FORCE ERROR JMP ENABL SPC 1 TRAP JSB IGTSM GET ENTRY POINT "TRPNT"'S ADDRESS DEF *+3 DEF TRPNT DEF DFPNT ADDRESS OF ENTRY CMA,CLE,INA CHECK IF ONE FOUND? LDB $OPSY CHECK IF RTE-IV? CPB DM9 RTE-IV ? ADA FENCE YES, ADD IN THE FENCE VALUE LDA TEMP3 GET TRAP NUMBER LDB LU AND TERMINAL LU SEZ,RSS CHECK IF LEGAL TO CALL? JSB DFPNT,I YES, CALL TRPNT JMP PROCS ERROR RETURN JMP ENABL NORMAL RETURN SPC 1 LOGOF JSB DIRCT GET CLASS NUMBER ADDRESS FOR LOGOF CLASP DEF CLAS%+0 JSB FLUSH FLUSH ANY REMAINING BUFFER LDA D12 SET NUMBER OF CHARS FOR MESS STA IB 12 CHARS FOR THE MESSS ROUTINE LOGO1 LDB TEMP1 NOW '*OF,PROG,8' OF PROGENITOR SZB,RSS CHECK IF ANY? JMP LOG02 NO, FINISH UP JSB SETNA PUT NAME INTO BUFFER LDA TEMP1 FIND NEXT SON JSB FNDSN AND LEAVE E= TEMP/PERM DAD FLAG STA TEMP1 PUT SON IDSEGMENT ADDRESS IN DAD SEZ,RSS ONLY OFF TEMPORARY PROGMS JMP LOGO1 SKIP OFFING LDA ASCOF PUT 'OF' COMMAND IN BUFFER STA BUFF+0 LDA COMC8 PUT ',8' IN COMMAND BUFFER STA BUFF+5 JSB MESS OFF,PROG,8 TWICE INCASE OF I/O SUSPEND JSB MESS JMP LOGO1 TRY NEXT SON SPC 1 * PASS LOGOF FLAG TO "LSPNS" & DISABLE TERMINAL SPC 1 LOG02 JSB LOG03 TELL LSPNS TO DO LOGOF JSB EXEC NOW SCHEDULE "LSPNS# DEF *+3 DEF D10 DEF LSPNS JMP WAIT1 LET LSPNS ENABLE TERMINAL SPC 1 UPIT LDA TEMP1 FIND GRANDSON OF THIS SESSION UPIT1 STA UPITA SAVE ID ADDRESS OF LAST SON JSB FNDSN FIND NEXT SON SZA DONE? JMP UPIT1 NO, GO AFTER NEXT SON LDA UPITA GET ID(1) ADDRESS ISZ UPITA BUMP TO ID(2) JSB .XLB GET THE WORD UPITA DEF * SET ABOVE ISZ UPITA BUMP TO ID(3), XTEMP(2) ADDRESS ADA D15 BUMP TO THE STATUS WORD JSB .XLA AND GET THE PROGRAM'S STATUS DEF A,I AND O7 MASK OF OTHER BITS INA CHECK IF IN WAIT LIST FOR DOWN LU? CPA B FOUR? RSS YES, CONTINUE JMP PROCS NO, OUTPUT INPUT ERROR MESSAGE LDA LUMAX GET MAX LU'S IN SYSTEM CMA,CLE NEGATE TO MAX+1 JSB .XLB GET ID(3) - XTEMP(2) WORD DEF UPITA,I ADA B NOW CHECK IF LEGAL LU NUMBER? LDA $OPSY GET SYSTEM TYPE CODE CPA DM9 CHECK IF RTE-IV? SEZ IF LEGAL & RTE-IV, ASSUME = DOWN LU LDB LU IF NOT RTE-IV, ASSUME THAT IT IS THIS TERMINAL EQT ADB OM1 DECREMENT FOR INDEX INTO DRT ADB DRT ADDRESS OF LU ENTRY INTO TABLE LDA B,I GET VALUE AND O77 AND MASK OFF SUBCHANNEL BITS STA TEMP3 SAVE FOR LATER TESTS CLB INITIALIZE LOOP UPLOP LDA B GET CURRENT LU-1 IN A-REG CPA LUMAX CHECK IF AT THE END OF LU TABLE? JMP UPIT3 YES, GO PROCESS ADA DRT NOW CHECK IF IT IS DOWN ADA LUMAX BY LOOKING AT THE SIGN BIT IN DOWN LU LIST LDA A,I GET THE DOWN BIT SSA,RSS DOWN? JMP UPIT2 NO, CONTINUE LDA B YES, GO GET THE EQT NUMBER ADA DRT INDEX INTO THE LU TABLE LDA A,I GET VALUE AND O77 MASK OFF THE SUBCHANNEL BITS STA TEMP1 SAVE DOWN EQT NUMBER CPA TEMP3 SAME AS MINE? JMP UPIT3 YES, GO *UP, IT!! UPIT2 INB NO, BUMP THE LU NUMBER JMP UPLOP GO TRY THE NEXT ONE SPC 1 UPIT3 LDA TEMP1 CALCULATE THE ASCII EQT NUMBER CLB DIV D10 CONVERT TO ASCII ALF,ALF POSITION MOST SIGF. CHAR TO HIGH BYTE ADA B MIRGE IN LOW BYTE ADA ASC00 AND CONVERT TO ASCII STA BUFF+2 SAVE IN BUFFER LDA COMSP GET A COMMA SPACE STA BUFF+1 AND SET UP THE MESSAGE LDA O6 AND SET UP THE MESSAGE LENGTH STA IB SAVE FOR MESSS JMP PROCS AND GO EXECUTE IT SPC 1 PBRUN NOP ENTRY TO SET OR CLEAR BREAK BIT STA FLUSH SAVE A-REG ADA D20 BUMP TO ID(21) JSB $LIBR O0 NOP TURN OFF INTERRUPT SYSTEM JSB .XLB GET WORD THAT HAS BREAK BIT DEF A,I BLF,ERB EXCHANGE BREAK BIT WITH E-REG RBR,RBR AND POSITION THE WORD RBR BACK TO ITS ORIGIONAL POSITION JSB .XSB AND PUT BACK INTO THE ID DEF A,I LDA FLUSH RESTORE A-REG JSB $LIBX DEF PBRUN AND RETURN SPC 1 DIRCT NOP ENTRY TO PRODUCE DIRECT ADDRESS LDA DIRCT GET THE ADDRESS LDA A,I GET NEXT LEVEL RAL,CLE,SLA,ERA TEST IF ALREADY DIRECT? JMP *-2 NO, GET NEXT LEVEL STA DIRCT,I YES, STORE BACK SZA,RSS CHECK IF FOUND? HLT 0 SORRY ABOUT THAT ISZ DIRCT EXIT P+2 JMP DIRCT,I AND EXIT SPC 1 FLUSH NOP EXECUTE FLUSH COMMAND LDA B2300 GET FLUSH COMMAND IOR LU TO FLUSH STA TEMP3 JSB ICLRW PERFORM DEF *+4 I/O DEF O3 CONTROL DEF CLSAD DEF TEMP3 JMP FLUSH,I RETURN SPC 1 FL JSB FLUSH GO FLUSH THE BUFFER SPC 1 ENABL CLE CLEAR THE TERMINAL INHIBIT FLAG JSB SCFLG JMP WAIT1 CHECK IF ANY PENDING CLASSES SPC 1 SCFLG NOP E-REG = INHIBIT FLAG BIT (15 1ST WORD OF SESSION) JSB $LIBR TURN OFF INTERRUPTS NOP JSB .XLA GET THE DISABLE FLAG WORD SESTB DEF 0 RAL,ERA PUT E-REG IN BIT 15 JSB .XSA PUT BACK DEF SESTB,I JSB $LIBX DEF SCFLG SPC 1 PRINT NOP ENTRY A=LEN, B=ADDRESS STA PRNT1 SAVE MESSAGE LENGTH STB PRNT2 AND MESSAGE BUFFER ADDRESS JSB ICLRW NOW DO CLASS WRITE OF MESSAGE DEF *+7 DEF O2 DEF CLSAD ADDRESS OF CLASS NUMBER IN SYSTEM MAP DEF LU DEF SESTB SESSION TABLE ADDRESS PRNT2 DEF * MESSAGE BUFFER ADDRESS DEF PRNT1 MESSAGE LENGTH JMP PRINT,I RETURN DONE SPC 1 PRNT1 NOP TEMP FOR MESSAGE LENGTH SPC 1 MESS NOP ENTRY TO EXECUTE MESSAGE IN BUFF JSB MESSS USE SYSTEM ROUTINE DEF *+4 DEF BUFF DEF IB CHARACTOR +LENGTH OF MESSAGE DEF LU LOGICAL UNIT OF POSSIBLE RETURNED MESSAGE JMP MESS,I RETURN A-REG = RETURNED MESSAGE LEN SPC 1 * FIND SON'S IDSEGMENT ADDRESS, E=1 IF DAD IS TEMPORARY PROGRAM SPC 1 FNDSN NOP ENTRY TO FIND SON'S IDSEGMENT ADDRESS CPA LOADR CHECK IF DAD = LOADR RSS CPA BASIC CHECK IF DAD = BASIC CCE,INA,RSS SET THE E-REG CLE,INA BUMP TO XTEMP(2) STA FNDSA SAVE ID(2) ADDRESS ADA D13 BUMP TO ID(15) JSB .XLB GET PROGRAM TYPE WORD & STATUS WORD DEF A,I INA BUMP TO STATUS WORD JSB .XLA GET THE STATUS WORD DEF A,I BLF,BLF POSITION SEZ,RSS IF BASIC OR LOADR, TREAT AS TEMP ELB PUT TYPE BIT IN E-REG ALF,SLA SEE IF WAITING FOR SON? JMP FNDS1 YES, GET HIS ID ADDRESS CLA NO, RETURN A=0 JMP FNDSN,I NO, EXIT A=0 FNDS1 JSB .XLA GET SON'S ADDRESS FNDSA DEF * JMP FNDSN,I RETURN A=0 OR IDSEG OF SON SPC 1 * SET PROGRAM NAME IN BUFF GIVEN IDSEGMENT ADDRESS IN B-REG. SPC 1 SETNA NOP B-REG = IDSEG OF PROGRAM ADB D12 BUMP TO PROGRAMS NAME LDA SOURB GET BUFF+1 ADDRESS INA BUMP TO BUFF+2 ADDRESS JSB TMOVE AND MOVE THE WORDS LDA BUFF+4 GET 6TH CHARACTER AND OM400 EXTRACT LAST CHAR IOR O40 AND PUT IN TRAILING SPACE STA BUFF+4 AND SAVE IN BUFFER LDA COMSP GET COMMA & SPACE STA BUFF+1 NOW BUFFER = "XX, PROGM ,1" JMP SETNA,I RETURN B=IDSEG(15) SPC 1 TOADR NOP TO ADDRESS IN CURRENT USER MAP TMOVE NOP ENTRY TO MOVE 3 WORDS FROM SYSTEM MAP TO USER STA TOADR STB FROMA LDB OM3 GET COUNTER TMOV1 JSB .XLA FROMA DEF * STA TOADR,I AND SAVE ISZ FROMA ISZ TOADR ISZ B CHECK IF DONE? JMP TMOV1 NO, CONTINUE JMP TMOVE,I AND EXIT DONE SPC 1 EXIT JSB EXEC NORMAL TERMINATE DEF *+4 DEF O6 MAKING IT SERIAL REUSEABLE DEF O0 DEF OM1 SPC 1 LOG03 NOP ENTRY TO PASS LOGOF FLAG TO LSPNS CCA DISABLE TERMINAL & PROGENITOR JSB $LIBR TURN OFF INTERRUPTS NOP JSB .XSA "LSPNS" MUST RE-ENABLE TERMINAL DEF SESTB,I JSB $LIBX DEF *+1 DEF *+1 JSB ICLRW DO CORE WRITE TO LSPNS DEF *+5 DEF O0 DEF CLASP CLASS ADDRESS OF CLAS% DEF LU LOGICAL UNIT OF SESSION DEF O1 LOGOF FLAG MUST BE > 0 JMP LOG03,I AND RETURN SPC 1 TEMP3 NOP NEG CHAR COUNT IA NOP IB NOP LU NOP LOADR NOP IDSEGMENT ADDRESS OF LOADR BASIC NOP IDSEGMENT ADDRESS OF BASIC D21 DEC 21 NA10 ABS 10+100000B D10 DEC 10 D12 DEC 12 D13 DEC 13 D15 DEC 15 O1 OCT 1 O2 OCT 2 O3 OCT 3 O4 OCT 4 O6 OCT 6 O7 OCT 7 O20K OCT 20000 OM1 OCT -1 OM2 OCT -2 OM3 OCT -3 DM9 DEC -9 DM52 DEC -52 BUFF BSS 27 D20 DEC 20 D22 DEC 22 RCLAS NOP ASCUP ASC 1,UP ASCFL ASC 1,FLUSH ASCBR ASC 1,BREAK ASCUN ASC 1,UNBREAK ASCOF ASC 1,OFF ASCST ASC 1,STATUS ASCSS ASC 1,SSSUSPEND ASCGO ASC 1,GO AFTER A SS ASCAB ASC 1,ABORT M0SPA OCT -30040 NEG ASC 1,0 TEMP1 NOP TEMP2 NOP CMCNT NOP COMMA COUNTER AUTCD NOP *3-1 AUTHORIZATION CODE O77 OCT 77 O177 OCT 177 O40 OCT 40 OM400 OCT -400 O17KK OCT 17777 COMMA OCT 54 COMON ASC 1,,1 COMSP ASC 1,, COMC8 ASC 1,,8 ASC00 ASC 1,00 B2300 OCT 2300 RQCLS NOP CLASS NOP CLASS NUMBER WHZAT ASC 3,WHZAT ASCLO ASC 3,LOADR ASCBA ASC 3,BASIC LSPNS ASC 3,LSPNS DFPNT ABS 0 HOLDS ADDRESS OF FOLLOWING ENTRY POINT TRPNT ASC 3,TRPNT PNAME BSS 3 ORR END R$PN$