PMINT DCK/ I,H PPMIPRC DCK/ I,H PPD8431S DCK/ I,H PP DEL/ 1 PP NAM D8431S DECK-ID L03 COMM-18 SUMMARY-127 PP INS/ 204 PP* NOTE- IF THE PRIORITY FOR THE SCHEDULE OF THE 127*5064 PP* USER'S ADDRESS DURING CHANNEL INITIALIZATION IS 127*5064 PP* ZERO, THE USER'S PROGRAM IS ENTERED BY A JUMP AT 127*5064 PP* DRIVER PRIORITY INSTEAD OF THE SCHEDULE. IT IS 127*5064 PP* ESSENTIAL THAT THE USER'S PGM GIVE UP CONTROL 127*5064 PP* (JUMP TO THE DISPATCHER) AS QUICKLY AS POSSIBLE OR 127*5064 PP* LOST DATA CONDITIONS WILL OCCUR 127*5064 PP DEL/ 298 PP* SET UP THE MASK TABLE FOR PRIORITY LEVEL 14 127*5063 PP DEL/ 328 PP*ADTO0X VFD N5/$D,X4/EQ431X,N7/0 8 CH 0 OUTPUT 127*5063 PP DEL/ 334 PP*ADTO1X VFD N5/$D,X4/EQ431X,N7/0 16 CH 1 OUTPUT 127*5063 PP DEL/ 351 PP*P431S0 ADC $520E 00 SCHEDULER CALL 127*5063 PP DEL/ 446 PP* 1 CARD DELETED 127*5064 PP INS/ 687 PP CLR A CLEAR HARWARE STATUS WORD 127*5064 PP STA- HSTAT,I 127*5064 PP DEL/ 727 PP JMP* TOSETS SYNCH MATCH ERROR RESYNCH 127*5064 PP DEL/ 767,769 PP* 3 CARDS DELETED 127*5064 PP INS/ 786 PP SAZ JMPUSR IF PRIO = 0 JUMP TO USER'S PROGRAM 127*5064 PP INS/ 793 PPJMPUSR JMP* (SCHADD) JUMP TO USER'S PGM AT DRIVER PRIORITY 127*5064 PPD843CC DCK/ I,H PPQMINTX DCK/ I,H PPSIMRSV DCK/ I,H PPSMBFST DCK/ I,H PPU2INIT DCK/ I,H PP DEL/ 1 PP NAM U2INIT DECK-ID L08 COMM-18 SUMMARY-127 PP DEL/ 117,118 PP EQU PLI(0) PRIOR. OF CHAR INPUT IN UT200 127*5064 PP EQU LVL1(10) PRIOR. OF DATA COMM. PART OF U\200 127*5064 PPUT200 DCK/ I,H PP DEL/ 1 PP NAM UT200 DECK-ID L09 COMM-18 SUMMARY-128 PP DEL/ 180,181 PP EQU LVL1(10) TRANSMIT PRIORITY 127*5064 PP EQU LVL2(6) I/O HANDLER PRIORITY 127*5064 PP EQU LVL3(5) COMMAND HANDLER PRIORITY 127*5064 PP DEL/ 367,369 PPRECEVE ENA 0 SET UP FOR RECEIPT OF CHARS. 127*5064 PP IIN 0 127*5064 PP STA- PARITY,I 127*5064 PP RTJ* INPUTR GET A CHARACTER 127*5064 PPU2RECV INA -SOM TEST FOR START OF MESSAGE 127*5064 PP INS/ 460 PP STQ- I RESTORE TST IN I-REG 127*5064 PP INS/ 482 PP EIN 0 127*5064 PP DEL/ 508,509 PP* 2 CARDS DELETED 127*5064 PP DEL/ 514,523 PPRDE3 SEF- PARITY,14,1,I EXT-SET BIT 14 TO GET SYNC 127*5064 PP RTJ* INPUTR READ MESSAGE PARITY (MPC) 127*5064 PP DEL/ 529,530 PP LDA- SAVE1,I SAVE RETURN ADDRESS IN SCHED CALL 127*5064 PP STA* RTNADR 127*5064 PPSCHRTN LDQ- I TST ADDRESS IN I-REG 127*5064 PP RTJ- (AMONI) SCHEDULE CONTINUATION 127*5064 PP VFD N2/1,N5/9,N1/0,N4/0,X4/LVL1 127*5064 PPRTNADR NUM 0 127*5064 PP* 127*5064 PP JMP- (ADISP) 127*5064 PP DEL/ 533 PP LDA U2STRA 127*5064 PP ADD =XERRPLY-S 127*5064 PP STA* RTNADR SCHEDULE ERROR REPLY PROCESSOR 127*5064 PP JMP* SCHRTN 127*5064 PP INS/ 537 PP ENA -1 IGNORE INPUT OF ALL 127*5064 PP STA- PARITY,I CHARS. 127*5064 PP DEL/ 539 PP LDA- CHTMRQ+THR,I IS REQUEST BUSY 127*5064 PP SAZ RDE6 NO, GO ISSUE ONE 127*5064 PP JMP- (ADISP) YES,IGMORE REQUEST 127*5064 PPRDE6 LDA =N$5000 SET CHANNEL FUNCTION 127*5064 PP DEL/ 554 PPU2CHIN STQ* SAVINP SAVE Q-REG 127*5064 PP DEL/ 561 PP LDA* SAVINP GET INPUT AGAIN 127*5064 PP DEL/ 563,566 PP LDQ- PARITY,I DO WE IGNORE CHAR. INPUT 127*5064 PP SQM IGNCHR IF NEG,IGNORE ALL INPUT CHARS. 127*5064 PPTSTPAR SPA* CK CHECK PARITY 127*5064 PP INS/ 572 PP SFZ- PARITY,14,1,I IF MPC BEING READ,PASS ALL CHARS. 127*5064 PP JMP* UPAR 127*5064 PP DEL/ 575 PPIGNCHR JMP- (ADISP) IS SYNCH,IGNORE INPUT 127*5064 PP INS/ 586 PPSAVINP NUM 0 TEMP STORAGE 127*5064 PP* 127*5064 PP* 127*5064 PP INS/ 615 PP STQ- I RESTORE TST ADDRESS IN I-REG 127*5064 PP DEL/ 644,645 PP LDA- CHWRT+THR,I IS REQUEST BUSY 127*5064 PP SAZ RPLY1 NO,SKIP 127*5064 PP JMP- (ADISP) YES,IGNORE PROCESS 127*5064 PPRPLY1 STA- CHOUTC,I RESET OUTPUT CHAR COUNTER 127*5064 PP DEL/ 681 PPERRPLY STQ- I RESTORE TST ADDRESS IN REG 127*5064 PPERPLY RTJ* REPLY ERROR REPLY EXIT 127*5064 PP INS/ 689 PP STQ- I RESTORE TST ADDRESS IN I-REG 127*5064 PP INS/ 699 PP STQ- I RESTORE TST ADDRESS IN I-REG 127*5064 PP DEL/ 726 PPMSEND2 LDA- FREE,I IS IS MM BUFFER FOR PRINTER AVAILABLE 127*5064 PP SAZ MSEND3 YES,CONTINUE 127*5064 PP JMP* REJECT NO,REJECT THE POLL 127*5064 PPMSEND3 ENA ESCAPE 127*5064 PP DEL/ 745 PP* 1 CARD DELETED 127*5064 PP DEL/ 750 PP JMP RECEVE SET UP FOR RECEPTION OF DATA 127*5064 PP DEL/ 766 PP JMP* MSEND3 ECODE AND TRANSMIT BUFFER 127*5064 PP DEL/ 789,800 PP* 12 CARDS DELETED 127*5064 PP DEL/ 812 PP JMP- (ADISP) 127*5064 PP DEL/ 884,891 PPWRE2 LDQ- LISTLU,I 128*5209 PP DEL/ 905 PP JMP ERPLY ERROR REPLY IF NOT 127*5064 PP DEL/ 938 PP SAZ PNB 128*5209 PP DEL/ 941,947 PPPNB EQU PNB(*) 128*5209 PP* 7 CARDS DELETED 128*5209 PP DEL/ 1129 PP SQP IOFINE NO I/O ERROR 128*5209 PP ADD- ONEBIT+15 SET FLAG TO MINUS 128*5209 PP STA- FLAG,I 128*5209 PP JMP ERR15 THEN TO DISP 128*5209 PPIOFINE ENQ 0 128*5209 PP DEL/ 1404 PPWRE1A JMP ERPLY DISPLAY BUSY-SEND ERROR REPLY 127*5064 PP DEL/ 2113,2114 PP SAP PRNBS NO 128*5209 PP LDA- LISTLU,I IS OLD DEVICE SAME 128*5209 PP EAQ A AS NEW 128*5209 PP SAZ CKPRT YES,ACCEPT 128*5209 PP JMP ERR10 NO, ISSUE MESSAGE 128*5209 PP DEL/ 2115,2123 PP* 9 CARDS DELETED 128*5209 PP DEL/ 2126 PPCKPRT LDA- FLAG,I CHECK IF PRINTING WAS SUSPENDED 128*5209 PP SAP PRTON NO 128*5209 PP AND- ZROBIT+15 $7FFF 128*5209 PP STA- FLAG,I RESUME PRINTING 128*5209 PP RTJ INDIR ISSUE A WRITE REQUEST TO LIST DEVICE 128*5209 PP ADC (LISTRQ) 128*5209 PPPRTON JMP* NEXTU 128*5209 PP DEL/ 2667 PP VFD N2/1,N5/8,N1/0,N4/1,X4/LVL3 127*5064 PP DEL/ 2732 PP VFD N2/1,N5/6,N1/0,X4/LVL3,X4/LVL3 127*5064 PP INS/ 2936 PPERR15 RAO* ERROR 128*5209 PP INS/ 3009 PP ADC* NDED1+14 TO DISP 128*5209 PP INS/ 3018 PP ADC L15 128*5209 PP INS/ 3027 PP ADC EM15-S 128*5209 PP INS/ 3069 PPEM15 ALF *, /PRINTING WILL RESUME WHEN UNIT IS ASSIGNED:B:R*128*5209 PP EQU L15(*-EM15) 128*5209 PPHWINIT DCK/ I,H PP DEL/ 1 PP NAM HWINIT DECK-ID L10 COMM-18 SUMMARY-127 PP DEL/ 234 PP EXT HWPRPH PRE-PROTOCOL HANDLER 127*5120 PP DEL/ 352 PP EQU DVRTMN(CNWTBF+40) STOP RECEIVE CHAR REQUEST 127*5072 PP EQU NXTPTR(DVRTMN+5) NEXT CHAR IN BUFFR 127*5120 PP EQU RCVBF(NXTPTR+1) RECEIVE BUFFER 127*5120 PP EQU TSTEND(RCVBF+203) 127*5120 PP DEL/ 413 PP EQU CNBSIZ(70) CONSOLE BUFFER SIZE 127*5028 PP DEL/ 425 PP EQU RECVPR(7) HWRVPH PRIORITY 127*5120 PP INS/ 430 PP EQU SYTMPR(12) PRIORITY OF SYSTEM TIMER 127*5063 PP INS/ 881 PP ENA 0 RESET THE RECEIVE BUFFER POINTER 127*5120 PP STA+ NXTPTR,I 127*5120 PP DEL/ 895 PP ADD =XTSTEND-ISTATA SET NXTWRD TO THE NEXT AVAIL WRD FOR127*5120 PP INS/ 1136 PP SFA+ DVRTMN+3,9,10,I AND STOP RECEIVE CHAR REQUEST 127*5072 PP DEL/ 1160 PP ENA 1 COMPUTE A MIN VALUE OF THE # OF 127*5068 PP INS/ 1162 PP STA* TEMP3 127*5068 PP ENA XMTSIZ/SADAT 127*5068 PP MUI* TEMP3 127*5068 PP DEL/ 1180,1181 PP LDA* INBIAS ADD THE INPUT BIAS FACTORS 127*5068 PP ADD+ INSTRM,I 127*5068 PP MUI* EXCESS 127*5068 PP DEL/ 1200 PPINBIAS NUM 4 INPUT STREAM BIAS FACTOR 127*5120 PP DEL/ 1320,1321 PP ADC HWPRPH ADDR OF PRE PROTOCOL HANDLER 127*5120 PP NUM 0 PRIORITY FOR DATA CHAR INPUT 127*5120 PP* JUMP TO ABOVE ADDR AT DRIVER PRIORITY 127*5120 PP DEL/ 1443 PP VFD N1/0,N1/1,N5/6,N1/0,X4/XMITPR,X4/XMITPR XMWRQT 127*5076 PP DEL/ 1446 PP VFD N1/0,N1/1,N5/8,N1/0,X4/TENTHS,X4/RECVPR DLYP 127*5120 PP INS/ 1468 PP VFD N1/0,N1/1,N5/14,N1/0,X4/RECVPR,X4/RECVPR DVRTMN 127*5072 PP NUM 0 127*5072 PP NUM 0 127*5072 PP VFD N3/0,N1/0,N2/0,N10/0 127*5072 PP VFD N4/5,N4/0,N4/0,N4/0 127*5072 PPHWMSWR DCK/ I,H PPHWCMPR DCK/ I,H PP DEL/ 1 PP NAM HWCMPR DECK-ID L12 COMM-18 SUMMARY-127 PP DEL/ 345 PP ALF 2,SON, 8. SIGN-ON FROM CRT 127*5030 PP ALF 2,SON 8A. SIGN-ON FROM SYSTEM INPUT DEVICE 127*5030 PP DEL/ 368 PP JMP SONC 127*5030 PP JMP SONINP 127*5030 PP DEL/ 489 PP* SIGN-ON COMMAND PRE-PROCESSOR (SONC) FROM CRT 127*5030 PP DEL/ 492,527 PPSONC XF1 2 INPUT CHAR INDEX 127*5030 PP LR1- ZERO SAVE 0 FOR INPUT CHAR INDEX 127*5030 PP RTJ STKPRM TO MEAN NO MORE COMMANDS THIS ENTRY 127*5030 PP DEL/ 529,533 PP ENA 72 127*5030 PPSONOK1 XFA 3 127*5030 PP JMP HWSON GO PROCESS THE SON COMMAND 127*5030 PP EJT 127*5030 PP***********************'*******************************'********127*5030 PP* 127*5030 PP* SIGN ON COMMAND PRE PROCESSOR FROM SYSTEM COMMENT DEVICE 127*5030 PP* 127*5030 PP*******************************************************'********127*5030 PPSONINP LDA HERE CALCULATE ABS. ADDRESSES 127*5030 PP ADD =XCOMPL-HERE 127*5030 PP STA* COMPLA 127*5030 PP ADD =XBUFSON-COMPL 127*5030 PP STA* BUFAD 127*5030 PP LDA- I SAVE I REG 127*5030 PP STA* SAVEI 127*5030 PP RTJ- (AMONI) 127*5030 PP NUM $4844 FREAD 127*5030 PPCOMPLA ADC 0 127*5030 PP NUM 0 127*5030 PP NUM $18F9 INPUT DEVICE 127*5030 PP ADC 40 127*5030 PPBUFAD ADC 0 127*5030 PP JMP- (ADISP) 127*5030 PPCOMPL LDA* SAVEI RESTORE I REG 127*5030 PP STA- I 127*5030 PP LR2- ZERO INPUT CHAR INREX 127*5030 PP XF2 1 SAVE 0 FOR INPUT CHAR INDEX 127*5030 PP RTJ STKPRM TO MEAN NO MORE COMMANDS THIS ENTRY 127*5030 PP LR1* BUFAD 127*5030 PP ENA 80 127*5030 PP JMP* SONOK1 127*5030 PP SPC 2 127*5030 PPSAVEI NUM 0 127*5030 PPBUFSON BZS BUFSON(40) 127*5030 PP INS/ 731 PP SAZ SCNDON ENTRY= 0 MEANS NO MORE COMMANDS 127*5030 PPHWCMDP DCK/ I,H PP DEL/ 1 PP NAM HWCMDP DECK-ID L13 COMM-18 SUMMARY-128 PP DEL/ 214 PP* SIGNON COMMAND -X-SON,XXXX---- X (FROM CRT CONSOL127*5030 PP* SIGNON COMMAND -X-SON (FROM INPUT DEVI127*5030 PP DEL/ 221,222 PP* XXXXX----X = SIGN ON CARD IMAGE - UP TO 72 CHARS 127*5030 PP DEL/ 227,233 PP* R1 = ADDRESS OF INPUT BUFFER 127*5030 PP* R2 = INDEX TO INPUT CHAR 127*5030 PP* R3 = NO OF CHARACTERS IN BUFFER(72 OR 80) 127*5030 PPHWSON SR1* BADCIB SAVE INPUT BUFFER ADDRESS LOCALLY 127*5030 PP DEL/ 238,272 PPSTATOK LDA- I CALCULATE THE CONSOLE ADDRESS 127*5030 PP INA CONBUF 127*5030 PP STA* BADCCB 127*5030 PP* BLANK CONSOLE BUFFER 127*5030 PP ENQ 39 127*5030 PP LDA =N$4040 BLANK 127*5030 PPBLKBUF STA* (BADCCB),Q CONSOLE BUFFER 127*5030 PP INQ -1 127*5030 PP SQM STRSON 127*5030 PP JMP* BLKBUF 127*5030 PPSTRSON ENQ 0 127*5030 PPCNVSON LCA* (BADCIB),2 PICK 1 CHAR 127*5030 PP RTJ+ HWCEBC CONVERT TO EBCDIC 127*5030 PP SCA* (BADCCB),Q 127*5030 PP INQ 1 127*5030 PP AR2- ONE 127*5030 PP D3P *-CNVSON LOOP UNTILL ALL CHARACTERS CONVERTED 127*5030 PP DEL/ 320 PP INA -8 TO 7,THE TERMINAL IS IDLE 127*5074 PP SAP NOTIDL 127*5074 PP DEL/ 327 PPNOTRNC INQ 81 127*5030 PP DEL/ 346 PPLTEQ63 INA 62 RESTORE CHAR COUNT 127*5030 PP DEL/ 1300 PP INA -8 127*5074 PP SAP STAT01 IF STATE 0 TO 7 127*5074 PP DEL/ 1525 PP INQ -L26+1 IF NOT AT END OF THE BUFFER 128*5211 PPHWINPT DCK/ I,H PPHWISCN DCK/ I,H PPHWCOMP DCK/ I,H PP DEL/ 1 PP NAM HWCOMP DECK-ID L16 COMM-18 SUMMARY-127 PP INS/ 399 PP RAO* NDPCNT INCREMENT THE NON-DUP COUNT 127*5065 PP DEL/ 403,405 PP* 3 CARDS DELETED 127*5065 PPHWTBFL DCK/ I,H PPHWXMPH DCK/ I,H PP DEL/ 1 PP NAM HWXMPH DECK-ID L18 COMM-18 SUMMARY-127 PP DEL/ 116 PP EQU RVTO(15) RECEIVE TIMEOUT VALUE (3 SEC) 127*5070 PP DEL/ 316 PP ENA RVTO PRIME THE RECEIVE TIMEOUT 127*5070 PP DEL/ 397 PP ENA RVTO START THE RECEIVE TIMEOUT 127*5070 PP DEL/ 468 PP ENA RVTO PRIME THE RECEIVE TIMEOUT 127*5070 PP DEL/ 526 PP ENA RVTO SET THE RECEIVE TIMEOUT 127*5070 PP DEL/ 551 PP* 1 CARD DELETED 127*5066 PP DEL/ 556 PPANYMOR RTJ+ HWTBFL FILL THE TRANSMIT BUFFER 127*5120 PP DEL/ 610 PP SAN DODLAY TRANSMIT NOT DONE-STILL DELAY 127*5120 PP JMP* FRCOUT IF DONE FORCE A TRANSMIT 127*5120 PPDODLAY ENA 3 SEE IF ANYTHING TO SEND EVERY 3/10 SEC127*5120 PP DEL/ 625 PP LDA- XMBFAD,I RESET BUFFER BASE ADDRESS 127*5120 PP STA XMBBAD 127*5120 PP JMP* ANYMOR 127*5120 PP* 127*5120 PPFRCOUT ENA 9 RESET THE BUFFER CHAR POINTER AND BASE127*5120 PPHWRVPH DCK/ I,H PP DEL/ 1 PP NAM HWRVPH DECK-ID L19 COMM-18 SUMMARY-127 PP DEL/ 73 PP* 1 CARD DELETED 127*5120 PP INS/ 114 PP ENT HWPRPH PRE-PROTOCOL HANDLER 127*5120 PP ENT HWPRRV PRE-RECEIVE PROTOCOL HANDLER 127*5120 PP INS/ 122 PP EQU ONE(3) LOC. CONTAINING 1 127*5120 PP EQU RVPHPR(7) RECEIVE PROTOCOL HANDLER PRIO9ITY 127*5120 PP DEL/ 224 PP EQU DVRTMN(CNWTBF+40) STOP RECEIVE CHAR REQUEST 127*5072 PP EQU NXTPTR(DVRTMN+5) POINTER TO NEXT CHAR IN RECEIV BUF 127*5120 PP EQU RCVBF(NXTPTR+1) RECEIVE BUFFER 127*5120 PP EQU TSTEND(RCVBF+203) 127*5120 PP INS/ 249 PP EQU SYTMPR(12) SYSTEM TIMER PRIORITY LEVEL 127*5063 PP DEL/ 282,284 PP* 3 CARDS DELETED 127*5120 PP DEL/ 293,307 PP EJT 127*5120 PP***********************'***********************M*******'********127*5120 PP* *127*5120 PP* PRE-PROTOCOL HANDLER *127*5120 PP* *127*5120 PP***********************4***********************M*******'********127*5120 PP* 127*5120 PP* THIS MODULE RECEIVES CHARACTERS FROM THE 1843-1 CLA 127*5120 PP* DRIVER AND PLACES THEM IN A RECEIVE BUFFER. A SMALL 127*5120 PP* AMOUNT OF PROTOCOL AND ERROR CHECKING IS PERFORMED 127*5120 PP* THIS ROUTINE OPERATES AT DRIVER PRIORITY, ITS OPERAT127*5120 PP* -ING PRIORITY IS NOT RELATED TO THAT OF THE RECEIVE 127*5120 PP* PROTOCOL HANDLER. 127*5120 PP* 127*5120 PP* ON ENTRY THE Q REGISTER IS SET AS FOLLOWS 127*5120 PP* 127*5120 PP* BITS 15-8 LU = OF COMMUNICATIONS LINE INPUT WAS RECE127*5120 PP* -IVED ON 127*5120 PP* BITS 7-0 INPUT CHARACTER 127*5120 PP* 127*5120 PPHWPRPH TRQ A 127*5120 PP AND- LPMASK+8 127*5120 PP STA* CSAVE SAVE THE INPUT CHARACTER 127*5120 PP QRS 8 SHIFT LU INTO POSITION FOR INDXNG AND 127*5120 PP LDA+ SMLUTB,Q 127*5120 PP AND- LPMASK+4 PICK UP THE TERM # FOR THIS LINE 127*5120 PP TRA Q 127*5120 PP LDQ+ HWBFRA,Q GET THE TST ADDRESS 127*5120 PP STQ- I SAVE IN I 127*5120 PP LDA- INTLCK,I IF RECEIVE IS INTERLOCKED 127*5120 PP SAZ NOINLK THEN IGNORE THIS CHARACTER 127*5120 PP JMP- (ADISP) 127*5120 PPNOINLK RTJ FILTER FILTER OUT SYN SYN DLE SYN AND DLE 127*5120 PP LDQ- I GET TST BASE ADDRESS 127*5120 PP ADQ =XRCVBF CALC ABS ADDR OF RECEIVE BUFFER 127*5120 PP STQ* BSAVE SAVE THE BASE ADDRESS FOR INDEXING 127*5120 PP LDQ+ NXTPTR,I GET NEXT CHAR POINTER 127*5120 PP SQN CHKOVF IS IT FIRST CHAR OF INPUT 127*5120 PP ENA LSTO YES,PRIME LOSS OF SYNC TIMOUT 127*5120 PP STA- LSSTO,I 127*5120 PPCHKOVF TRQ A SAVE FOR INDEXING 127*5120 PP SUB =N406 TEST FOR OVERFLOW 127*5120 PP SAM NOTOVF NOT - OVERFLOW 127*5120 PP JMP* BOVFL IS - OVERFLOW 127*5120 PPNOTOVF LDA* CSAVE GET THE DATA CHARACTER 127*5120 PP SCA* (BSAVE),Q SAVE THE CHARACTER IN THE RECEIVE BUFR127*5120 PP RAO+ NXTPTR,I INCREMENT CHARACTER POINTER 127*5120 PP SFZ- FLTRFL,3,1,I IF ETB WAS RECEIVED 127*5120 PP JMP* NOTETB SET TO PICK UP CHARS AFTER ETB 127*5120 PP* 127*5120 PP SUB- LPMASK+8 NOT ETB - IS IT A PAD 127*5120 PP SAZ TSTCTL YES, IS IT A CONTROL BLOCK 127*5120 PP JMP- (ADISP) NO, WAIT FOR NEXT CHARACTER 127*5120 PP* 127*5120 PPTSTCTL LDA* (BSAVE) YES, GET 1ST WORD OF RECEIVED BLOCK 127*5120 PP TRA Q SAVE IT 127*5120 PP EOR =N$1070 IS IT AN ACK 127*5120 PP SAZ CTLBLK YES, A CONTROL BLOCK 127*5120 PP TRQ A RESTORE WORD 127*5120 PP EOR =N$3DFF IS IT A NAK 127*5120 PP SAZ CTLBLK YES, A CONTROL BLOCK 127*5120 PP TRQ A RESTORE WORD 127*5120 PP EOR =N$012D IS IT AN ENQ 127*5120 PPCTLBLK SAZ ENDTRN YES, A CONTROL BLOCK 127*5120 PP JMP- (ADISP) NONE OF ABOVE, EXIT 127*5120 PP* 127*5120 PPNOTETB LFA- FLTRFL,5,2,I GET POST ETB COUNTER 127*5120 PP SAZ ENDTRN IF ZERO, CHAR JUST RECEIVED IS A PAD 127*5120 PP INA -1 ELSE DECREMENT POST DLE COUNTER 127*5120 PP SFA- FLTRFL,5,2,I 127*5120 PP JMP- (ADISP) WAIT FOR NEXT CHARACTER 127*5120 PPBOVFL ENA 1 SET RECV INTLCK FLAG IN ORDER TO 127*5120 PP STA- INTLCK,I FORCE A LOSS-OF-SYNCH TIME-OUT ERROR 127*5120 PP JMP- (ADISP) WAIT FOR TIME OUT (LOSS OF SYNCH) 127*5120 PP* 127*5120 PPENDTRN ENA 0 127*5120 PP STA- LSSTO,I IDLE LOSS OF SYNC TIME-OUT 127*5120 PP* 127*5120 PP LDA- I CALCULATE ADDRESS OF STOP RECEIVE RQST127*5120 PP ADD =XDVRTMN 127*5120 PP STA* STRQST STORE IN INDIRECT REQUEST 127*5120 PP* 127*5120 PP RTJ- (AMONI) INDIRECT REQUEST TO STOP RECEIVE 127*5120 PP VFD N2/0,N5/16,N9/0 127*5120 PPSTRQST NUM 0 127*5120 PP* 127*5120 PP LDQ- I PASS TST ADDRESS IN Q 127*5120 PP RTJ- (AMONI) SCHED DOWN FOR RCV PROTOCOL HANDLER 127*5120 PP VFD N2/1,N5/9,N1/0,N4/0,X4/RVPHPR 127*5120 PP ADC HWPRRV 127*5120 PP* 127*5120 PP JMP- (ADISP) RELEASE CONTROL 127*5120 PP* 127*5120 PPBSAVE NUM 0 127*5120 PPCSAVE NUM 0 127*5120 PPBASAVE NUM 0 127*5120 PPCHRIDX NUM 0 127*5120 PPCHRLIM NUM 0 127*5120 PPCURCHI NUM 0 127*5120 PP* 127*5120 PP EJT 127*5120 PP*******************************************************4********127*5120 PP* *127*5120 PP* PRE-RECEIVE PROTOCOL HANDLER *127*5120 PP* *127*5120 PP***********************4*******************************'********127*5120 PP* 127*5120 PP* THIS ROUTINE IS SCHEDULED BY THE PRE-PROTOCOL 127*5120 PP* HANDLER AT THE END OF A TRANSMISSION. EACH CHARACTER127*5120 PP* IS PICKED UP FROM THE RECEIVE BUFFER AND IS HANDLED 127*5120 PP* BY THE APPROPRIATE STATES. 127*5120 PP* 127*5120 PPHWPRRV STQ- I SAVE TST ADDRESS 127*5120 PP ADQ =XRCVBF GET ADDRESS OF RECEIVE BUFFER 127*5120 PP STQ* BASAVE SAVE THE BUFFER BASE ADDRESS 127*5120 PP ENA 0 127*5120 PP STA* CHRIDX SET THE INITIAL CHAR INDEX 127*5120 PP* 127*5120 PP LDA+ NXTPTR,I SEE HOW MANY CHARS WE GOT 127*5120 PP INA -4 DO WE HAVE MORE THAN 3 CHARS 127*5120 PP SAP CRCCAL YES, CALCULATE CRC 127*5120 PP JMP* NXTCHR NO, IS CONTROL BLOCK - BYPASS CRC 127*5120 PP* 127*5120 PPCRCCAL INA 3 SAVE LIMIT VALUE FOR CRC LOOP 127*5120 PP STA* CHRLIM 127*5120 PP ENQ 0 127*5120 PP STQ- CRCWD,I ZERO CRC WORD 127*5120 PP* 127*5120 PP LDA* (BASAVE) GET 1ST WORD OF RECEIVE BUFFER 127*5120 PP EOR =N$1002 IS IT DLE STX 127*5120 PP SAN TSTSOH NO 127*5120 PP ENQ 2 YES, START CRC CALC AT CHARACTER 3 127*5120 PP JMP* SETIND 127*5120 PPTSTSOH LDA* (BASAVE) GET 1ST WORD OF RECEIVE BUFFER 127*5120 PP EOR =N$0102 IS IT SOH STX 127*5120 PP SAN SETIND NO, CRC WILL CATCH THE ERROR 127*5120 PP ENQ 1 YES, START CRC CALC AT CHARACTER 2 127*5120 PPSETIND STQ* CURCHI SET CURRENT CHARACTER INDEX 127*5120 PP* 127*5120 PPCRCLOP LCA* (BASAVE),Q GET THE CHARACTER 127*5120 PP RTJ+ HWCRCR DO THE CRC CALCULATION 127*5120 PPNOCRC RAO* CURCHI INCREMENT CURRENT CHARACTER INDEX 127*5120 PP LDA* CURCHI GET IT 127*5120 PP TRA Q 127*5120 PP SUB* CHRLIM HAVE WE REACHED THE BUFFER LIMIT 127*5120 PP SAZ TSTCRC YES, VERIFY THAT CRC IS OK 127*5120 PP JMP* CRCLOP NOT DONE YET 127*5120 PP* 127*5120 PPTSTCRC LDA- CRCWD,I IS CRC OK 127*5120 PP SAZ NXTCHR YES, CONTINUE 127*5120 PP* 127*5120 PP ENA 22 ERROR - ENTER STATE 22 (CRC ERROR) 127*5120 PP STA- ISTATE,I 127*5120 PP*8 127*5120 PPNXTCHR LDQ* CHRIDX PICK UP INDEX 127*5120 PP TRQ A 127*5120 PP SUB+ NXTPTR,I CHECK FOR BUFFER EXCEEDED 127*5120 PP SAM NOTEXC NO 127*5120 PP* 127*5120 PP ENQ 9 YES - FORCE A FORMAT ERROR 127*5120 PP RTJ SETSTA SET STATE 127*5120 PP SEF- CONMG1,0,1,I SEND FORMAT ERROR MESSAGE TO CONSOLE 127*5120 PP RTJ+ HWMWSH 127*5120 PP JMP* HWRVPH GO PROCESS THE ERROR 127*5120 PP* 127*5120 PPNOTEXC RAO* CHRIDX NO - INCREMENT CHAR POINTER 127*5120 PP LCA* (BASAVE),Q GET THE CHAR 127*5120 PP EJT 127*5120 PPHWRVPH SFA CHARSV,7,8 SAVE THE INPUT CHARACTER 127*5120 PP DEL/ 310,316 PP* 7 CARDS DELETED 127*5120 PP DEL/ 340,341 PP JMP INST12 DUMMY 127*5120 PP JMP INST13 DUMMY 127*5120 PP DEL/ 399,400 PP* 2 CARDS DELETED 127*5120 PP DEL/ 404,405 PP* 2 CARDS DELETED 127*5120 PP DEL/ 406 PP JMP* NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 421 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 454 PP LDQ- BCBEXP,I WAS LAST BLOCK A RESET BCB 127*5066 PP SQP TSTBCB NO 127*5066 PP STA- BCBEXP,I YES, RESET OURSELVES TO BCB JUST SENT 127*5066 PP JMP* SETBCB 127*5066 PP* 127*5066 PPTSTBCB SUB- BCBEXP,I PICK UP CCCC FIELD 127*5066 PP DEL/ 457 PPSETBCB ENA 3 127*5066 PP DEL/ 459 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 461,462 PPGRTST SAM NSKIP6 IF RCV BCB LT EXPEC BCB 127*5120 PP JMP* RCVGR 127*5120 PPNSKIP6 INA BCBDIF 127*5120 PP DEL/ 466 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 471 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 477 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 480 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 491 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 496 PP ADD- ONEBIT+15 SET NEG TO SHOW RESET BCB RECEIVED 127*5066 PP DEL/ 500 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 528 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 627 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 712 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 740 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 763 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 789 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 805 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 815 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 828 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 845 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 880 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 900 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 920 PPNDST08 JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 938 PPNDST09 JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 960 PP ENA 14 ELSE CHANGE TO STATE 14 127*5120 PP DEL/ 962 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 964,966 PPBLMUER JMP NXTCHR IGNORE ALL CHARS AFTER TERMINATING 127*5120 PP* RCB EXCEPT FOR ETB 127*5067 PP DEL/ 974,978 PP* DUMMY STATE NOT USED 127*5120 PP* 127*5120 PPINST12 RTJ+ SYFAIL HANG IF WE ACCIDENTLY GET HERE 127*5120 PP DEL/ 986,996 PP* DUMMY STATE NOT USED 127*5120 PP* 127*5120 PPINST13 RTJ+ SYFAIL HANG IF WE ACCIDENTLY GET HERE 127*5120 PP DEL/ 1016 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 1034 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 1055 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 1069 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 1083 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 1099 PPND19 JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 1113 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 1127 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 1141 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 1160 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP DEL/ 1192,1199 PPINST25 LFA- ERRWD,14,8,I GET FLAG BITS COR-ESP TO THE 127*5120 PP DEL/ 1255 PP* 1 CARD DELETED 127*5120 PP DEL/ 1260 PP JMP SCHDXM GO SCHED. XMIT PROT. HANDLER 127*5120 PP DEL/ 1271 PP* 1 CARD DELETED 127*5120 PP INS/ 1283 PP LDA- I CALCULATE ADDRESS OF STOP RECEIVE RQST127*5072 PP ADD =XDVRTMN 127*5072 PP STA* RQSTAD STORE IN INDIRECT REQUEST 127*5072 PP RTJ- (AMONI) STOP RECEIVE CHARACTER REQUEST 127*5072 PP VFD N2/0,N5/16,N9/0 127*5072 PPRQSTAD NUM 0 127*5072 PP DEL/ 1325 PPINST28 ENQ 9 SET FORMAT ERROR BLOCK TYPE 127*5121 PP DEL/ 1329 PP JMP NXTCHR GET NEXT CHARACTER 127*5120 PP INS/ 1357 PP* BIT 4 - POST ETB COUNTER 127*5120 PP* BIT 5 - POST ETB COUNTER 127*5120 PP DEL/ 1363 PP LDA- FLTRFL,I IF ETB RECEIVED INHIBIT FILTERING 127*5120 PP AND- ONEBIT+3 127*5120 PP SAZ NOETB 127*5120 PP DEL/ 1365 PPNOETB LDA- FLTRFL,I IF TRANSPARENT MODE 127*5120 PP AND- ONEBIT+0 127*5120 PP SAZ NOTRAN 127*5120 PP DEL/ 1367 PPNOTRAN LDA- FLTRFL,I THEN IF DLE RECEIVED 127*5120 PP AND- ONEBIT+1 127*5120 PP SAN NODLE 127*5120 PP DEL/ 1369,1370 PPNODLE CLF- FLTRFL,1,1,I 127*5120 PP LDA CSAVE THEN IF CHAR = SYN 127*5120 PP DEL/ 1379 PP SEF- FLTRFL,5,3,I INHIBIT FILTER SET POST DLE 127*5120 PP* COUNT 127*5120 PP DEL/ 1382 PPNTDLE LDA CSAVE ELSE IF CHAR = DLE 127*5120 PP DEL/ 1388 PPNXPM LDA CSAVE ELSE IF CHAR = DLE 127*5120 PP DEL/ 1402,1403 PPNTSYN SFN- FLTRFL,2,1,I ELSE IF SYN RECEIVED 127*5120 PP JMP* DLETST 127*5120 PP* 127*5120 PP INA SYN-ETB THEN IF CHAR = ETB 127*5120 PP SAN ETBNOT 127*5120 PP SEF- FLTRFL,5,3,I THEN SET ETB RCVD 127*5120 PP JMP* (FILTER) 127*5120 PP* 127*5120 PPETBNOT INA ETB-SYN ELSE CLR SYN RCVD 127*5120 PP CLF- FLTRFL,2,1,I 127*5120 PPDLETST SFN- FLTRFL,1,1,I IF DLE RCVD 127*5120 PP INS/ 1418 PP ENA 0 RESET RECEIVE BUFFER POINTER 127*5120 PP STA+ NXTPTR,I 127*5120 PPHWSAFL DCK/ I,H PPHWSCTL DCK/ I,H PPHWDECP DCK/ I,H PP DEL/ 1 PP NAM HWDECP DECK-ID L22 COMM-18 SUMMARY-127 PP DEL/ 79 PP EQU CNBFSZ(136) MAKE CONSOLE BUFFER SAME AS OUTPUT 127*5028 PP DEL/ 397,399 PP ADQ =X(-CNBFSZ-3) 127*5028 PP DEL/ 401,403 PPCS1 ADQ =XCNBFSZ+3 127*5028 PP DEL/ 406,408 PPNOFAIL ADQ =XCNBFSZ+4 INCEMENT Q BY 1 127*5028 PPHWOUT DCK/ I,H PP DEL/ 1 PP NAM HWOUT DECK-ID L23 COMM-18 SUMMARY-128 PP INS/ 555 PP SFN RCBSRC,1,2 SKIP IF NOT SUPPRESS SPACING 128*5210 PP JMP* SUPSPC 128*5210 PP INS/ 568 PP SPC 3 128*5210 PPSUPSPC LDA CNTRL $1B30 NO SPACE 128*5210 PP STA (BFBSAD),Q SAVE IN PRINT BUFFER 128*5210 PP JMP* (LNSPCL) RETURN 128*5210 PPHWSYSM DCK/ I,H PPHWIFBQ DCK/ I,H PPHWICBQ DCK/ I,H PPHWIEBQ DCK/ I,H PPHWFSAQ DCK/ I,H PPHWESAQ DCK/ I,H PPHWCEBC DCK/ I,H PP DEL/ 1 PP NAM HWCEBC DECK-ID L30 COMM-18 SUMMARY-127 PP DEL/ 50 PP INA -$4 IS IT SPECIAL EOR CODE 127*5069 PP SAZ EORCOD YES 127*5069 PP INA -$20+$4 NO,OFFSET BY HEX 20 127*5069 PP DEL/ 58 PPRTNCHR EIN 0 127*5069 PP INS/ 59 PP* 127*5069 PPEORCOD ENA $3F SEND $3F FOR EOR CODE 127*5069 PP JMP* (RTNCHR) 127*5069 PPHWCLNP DCK/ I,H PP DEL/ 1 PP NAM HWCLNP DECK-ID L31 COMM-18 SUMMARY-127 PP DEL/ 100 PP EQU XMITPR(10) PRIORITY OF HWXMIT 127*5080 PPHWTIMR DCK/ I,H PP DEL/ 1 PP NAM HWTIMR DECK-ID L32 COMM-18 SUMMARY-127 PP DEL/ 29,30 PP* ENTRY IS AT THE PRE-RECEIVE PROTOCOL HANDLER 127*5120 PP* WITH THE FIRST WORD OF THE RECEIVE BUFFER = 0.127*5120 PP DEL/ 33,34 PP* THE ENTRY IS AT THE PRE-RECEIVE PROTOCOL 127*5120 PP* HANDLER WITH THE FIRST WORD OF THE RECEIVE 127*5120 PP* BUFFER SET TO ZERO. 127*5120 PP DEL/ 50 PP* HWPRRV - PRE-RECEIVE PROTOCOL HANDLER 127*5120 PP DEL/ 66 PP* 1 CARD DELETED 127*5120 PP DEL/ 69 PP EQU RECVPR(7) RECEIVE PROTOCOL HANDLER PRIORITY 127*5120 PP DEL/ 71 PP* 1 CARD DELETED 127*5120 PP INS/ 75 PP EQU NXTPTR($14C) NEXT CHAR IN RECV BUFFER 127*5120 PP EQU RCVBF($14D) RECEIVE BUFFER 127*5120 PP DEL/ 93 PP* 1 CARD DELETED 127*5120 PP DEL/ 95 PP EXT HWPRRV PRE-RECEIVE PROTOCOL HANDLER 127*5120 PP EJT 127*5120 PP DEL/ 172,173 PP SAN NSKIP1 IF 0 THEN TIMER IDLE - RETURN 127*5120 PP JMP* LSSIDL 127*5120 PPNSKIP1 INA -1 DECREMENT BY 1. 127*5120 PP DEL/ 179,180 PP ENA 3 SET NEXT CHAR PTR TO ARBITRARY VALUE 127*5120 PP STA+ NXTPTR,Q SAVE 127*5120 PP ENA 0 CLEAR FIRST WD OF BFFR 127*5120 PP STA+ RCVBF,Q 127*5120 PP DEL/ 184 PP ADC HWPRRV PRE-RECEIVE P. H. 127*5120 PP DEL/ 202,203 PP ENA 3 SET NEXT CHAR PTR TO ARBITRARY VALUE 127*5120 PP STA+ NXTPTR,Q SAVE 127*5120 PP ENA 0 CLEAR FIRST WD OF BFFR 127*5120 PP STA+ RCVBF,Q 127*5120 PP DEL/ 207 PP ADC HWPRRV PRE-RECEIVE P. H. 127*5120 PPHWOPRO DCK/ I,H PPHWMWSH DCK/ I,H PPHWCRCL DCK/ I,H PPHWLIST DCK/ I,H PP END/ P