14 22FL #SEG IPBINB8 [R.WEYAND 17 22LS ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD. 1982 7 22S3 #OPT K0IPBINB=0 11 236D #LIS K0IPBINB>K0IPB>K0ALLGEO 9 23DW 8HIPBINB 4 23YG # 4 24D6 # 15 24XQ # THIS SEGMENT DEALS WITH EXCEPTIONAL IPB INPUT 12 25CB SEGENTRY K1IPBINB,SK1IPBINB 11 25X2 # K1 TRACES CC READ TRANSFERS 12 26BL SEGENTRY K2IPBINB,SK2IPBINB 21 26W= # K2 GETS A NEW ACTIVITY FOR INPUT ON IDLE OR NEWLY ENGAGED OUTPUT DEV. 12 27*W SEGENTRY K3IPBINB,SK3IPBINB 12 27TG SEGENTRY K4IPBINB,SK4IPBINB 21 28*6 # K3 (REDON) AND K4 (RIGHT) USE THE K2 ROUTINES FOR THEIR OWN PURPOSES 12 28SQ SEGENTRY K5IPBINB,SK5IPBINB 18 29#B # K5 SETS UP AMSCAN/IPBTYPE FOR ^IDENTIFIER FREE^ INPUT 12 29S2 SEGENTRY K6IPBINB,SK6IPBINB 17 2=?L # K6 DEALS WITH IPB INOPERABILITY AND RE-OPERABILITY 12 2=R= SEGENTRY K7IPBINB,SK7IPBINB 12 2?=W SEGENTRY K8IPBINB,SK8IPBINB 18 2?QG # K7 SETS UP CPA FOR ^LINE CHANGED^ INPUT WITH LINK TO K8 12 2#=6 SEGENTRY K10IPBINB,SK10IPBINB 21 2#PQ # K10 SETS UP ACTIVITY IF STILL-OPEN IDENTIFIER IS DETACHED OR FREED 4 2*9B # 14 2*D3 SEGENTRY K20IPBINB,SK20IPBINB 17 2*G= # K20IPBINB SETS UP AMSCAN:IPBTYPE WHEN ID IS RIGHTED 4 2*JF # 12 2*NL SEGENTRY K14IPBINB,SK14IPBINB 13 2*NN [ K14 ENTERED TO PASS DATA TO IPBCCA 12 2*NQ SEGENTRY K30IPBINB,SK30IPBINB 9 2*NS [ K30 SIMILIAR TO K10 12 2*X5 ... SEGENTRY K31IPBINB,SK31IPBINB 13 2B5B ...[ K31 ENTERED TO CREATE AN AMXOR AJOURN 20 2B?M ...SP1 PAIR IPBSCANB,14 [PREVIOUSLY WAS K2IPBSCAN 20 2BFY ...SP5 PAIR IPBSCANB,11 [PREVIOUSLY WAS K5IPBSCAN 9 2BN= SP8 PAIR IPBINB,8 4 2BNH # 4 2BNP [ 9 2BNR ZJIPBINOP +JIPBINOP 15 2BNS REOPENBLK 0,#40000000,#01130000,#01120000 6 2BNX ...#UNS CCERROR 8 2BP2 ...XIN 4HIN 4 2BP5 # 21 2BPB # SUBROUTINE TO SEND THE SUPERVISORY SEGMENTS RESET & REOPEN IN A 9 2BPM # BATCH TO THE DCP. 17 2BPY # GOES UP IF SEGMENTS SENT SUCCESSFULLY, ELSE EXITS. 4 2BQ9 # 5 2BQG REOPEN 8 2BQR LDCT 0 #440 9 2BR4 ANDX 0 IPBSW(2) 21 2BR* BNZ 0 (7) [READ INHIBITED : MOPPING OFF : EXIT 21 2BRL [OR MARKED INOP : IPB ERROR : EXIT 8 2BRX SBX 7 FX1 10 2BS8 LONGSET CCREOPEN,SET 17 2BSF SETNCORE 4,1,AMXOR,IOUT,1 [SET UP SUPER BLOCK 8 2BSQ SMO FX1 9 2BT3 LDN 3 REOPENBLK 9 2BT# LDN 4 IMOPTY(1) 7 2BTK MOVE 3 4 21 2BTW LDX 3 IPBRING(2) [PUT SUPER BLOCK ON FRONT OF IPBOUT Q 9 2BW7 SBN 3 IPBRING 8 2BWD CHAIN 1,3 18 2BWP LDCT 0 #101 [WAKE IPBOUT OF ASLEEP 9 2BX2 ANDX 0 IPBSW(3) 10 2BX? BZE 0 REOPENWAIT 9 2BXJ ERS 0 IPBSW(3) 7 2BXT LDX 2 3 6 2BY6 FPUT 21 2BYC REOPENWAIT [INFORM OPERATOR OF THE SITUATION AND 18 2BYN [WAIT FOR IPBOUT'S REPLY 21 2BY_ LDX 4 ACOMMUNE2(2) [PRESERVE CHAINADD'S VALUE ON COOR1 19 2B_= LDX 3 ACOMMUNE3(2) [PRESERVE MESSAGE IDENTIFIER 21 2B_H LGEOG ,6 [SET %A OF MESSAGE WITH GEOGRAPHIC NO 10 2B_S OUTPACKC 6,1,GEOPER 21 2C25 OUTNULL [SET %B NULL TO INCLUDE ALL OF MESSAG 21 2C2B LONGSTOX (GEOERR),,3 [^UNIT %A INOPERABLE %B; ATTEMPTING R 14 2C2M [ECOVERY^ 18 2C2Y LDCT 0 #240 [J IF REOPEN FAILED OR 19 2C39 ANDX 0 IPBSW(2) [READ INHIBITED FLAGS ARE SET 10 2C3G BNZ 0 REOPENFAIL 20 2C3R UP [SUPER BLOCK SENT SUCCESSFULLY 21 2C44 REOPENFAIL [UNABLE TO SEND SUPER BLOCK : EXIT 8 2C4* LDCT 0 #200 9 2C4L ORS 0 IPBSW(2) 20 2C4X ERS 0 IPBSW(2) [LEAVE REOPEN FAILED FLAG UNSET 19 2C58 STO 3 ACOMMUNE3(2) [RESTORE MESSAGE IDENTIFIER 21 2C5F STO 4 ACOMMUNE2(2) [RESTORE CHAINADD'S VALUE ON COOR1 8 2C5Q ADX 7 FX1 7 2C63 EXIT 7 0 21 2C6# SET GEOERR 1,LONGSET [SHOULD NOT ALREADY BE IN A LONG WAIT 4 2C6K # 4 2C7W # 21 2CMG # SUBROUTINE TO PASS ICONIN TO IPBCCA AND UPDATE OVERLOAD COUNT ; 18 2D76 # ON ENTRY : CONDCB ADDRESS IN X3 , ICONIN ADDRESS IN X1 4 2DLQ # 9 2F6B SCHIC LDX 2 BPTR(3) 18 2FL2 HUNTACT AMOP,3 [POINT TO IPBCCA ACTIVITY 10 2G5L LDX 0 ALOGLEN(1) 9 2GK= ADS 0 INLOAD(3) 8 2H4W CHAIN 1,2 14 2HJG # WAKE IPBCCA ACT IF NECESSARY 9 2J46 LDEX 0 ATYPE(3) 15 2JHQ BZE 0 SCEX [NOT WAITING 7 2K3B LDX 2 3 7 2KH2 UNQUEUE 6 2L2L FPUT 4 2LG= # 7 2L_W SCEX EXIT 5 0 4 2MFG # 21 2M_6 # FIND THE ADDRESS IN X2 OF THE CONDCB ENTRY FOR IDENTIFIER IN X5 4 2NDQ # 8 2NYB SEEK LDX 2 FX2 14 2PD2 HUNT2J 2,AMXOR,ADEVS,AWORK1(2),SUIC 7 2PXL LDX 0 5 20 2QC= SBX 0 A1+FOURTHWD(2) [SUBTRACT LOWEST IDENTIFIER NO. 7 2QWW SLL 0 2 7 2RBG ADX 2 0 8 2RW6 LDCT 0 #10 11 2S*Q ANDX 0 A1+FOURTHWD(2) 16 2STB BZE 0 (6) [NOT ONLINED YET 10 2T*2 LDX 2 A1+BPTR(2) 18 2TSL BZE 2 (6) [NOT RINGED TO CONDCB YET 7 2W#= EXIT 6 1 4 2WRW # 20 2X?G # SUBROUTINE TO SET UP ACTIVITY OF TYPE IN X5 AND LENGTH IN X6 4 2XR6 # 8 2Y=Q SETAC SBX 0 FX1 8 2YQB SLL 5 12 9 2_=2 STO 0 AWORK3(2) 8 2_PL GETACTX 5,6 9 329= LDX 0 AWORK3(2) 9 32NW LDX 2 BPTR(2) 8 338G ADX 0 FX1 7 33N6 EXIT 0 0 4 347Q # 19 34MB # SEND SYSTEM SUPERVISORY SEGMENT TO AMOP/IPBCCA ACTIVITY 21 3572 # X6 CONTAINS MODIFIER DOWN CROUTE BLOCK TO POINT TO CSTATE BLOCK 4 35LL # 8 366= SSSS SBX 7 FX1 14 36KW SETNCORE IPBIDE-A1+2,1,AMXOR,ICONIN 18 375G LDX 5 AWORK1(2) [IPBIN COUNT ON IPBL LIST 11 37K6 HUNTW 2,AMXOR,CROUTE 7 384Q SMO 6 10 38JB LDX 3 A1+FPTR(2) 20 3942 ADX 3 BSTART(3) [ADDRESS OF AMXOR/CSTATE BLOCK 16 39HL STO 4 IPBIDE(1) [SUPERVISORY CODE 10 3=3= STO 5 IPBIDE+1(1) 8 3=GW LDCT 0 #400 9 3?2G STO 0 IBSW(1) 8 3?G6 ADX 7 FX1 10 3?_Q LDX 3 A1+FPTR(3) 17 3#FB SBN 3 A1 [ADDRESS OF CONDCB 19 3#_2 CALL 5 SCHIC [CHAIN ICONIN BEHIND IPBCCA 7 3*DL EXIT 7 0 4 3*Y= # 20 3BCW # SUBROUTINE TO GET ADDRESS IN X2 OF ACTIVITY OWNING ADCB IN X1 4 3BXG # 7 3CC6 SKACT LDX 2 1 9 3CWQ SFRED LDX 2 BPTR(2) 9 3DBB LDX 0 ATYPE(2) 8 3DW2 TXL 0 CACT 8 3F*L BCS SFRED 7 3FT= EXIT 7 0 4 3G#W # 18 3GB* # ENTRY FROM IPBIN TO TRACE ONLINE A SUCCESSFUL CC READ 14 3GCS # TRANSFER IF ^MOP TRACE^ IS SWITCHED ON 6 3GF? SK1IPBINB 9 3GGQ LDX 0 ASWITCH1 7 3GJ9 SLL 0 7 20 3GKN BPZ 0 TRACEX [^MOP TRACE^ SWITCHED OFF:EXIT 9 3GM7 LDCH 0 CPRW1(2) 7 3GNL SBN 0 1 20 3GQ5 BNZ 0 TRACEX [READ WAS NOT ENDED,OPERABLE:EXIT 9 3GRJ LDX 0 CPRW1(2) 8 3GT3 ANDN 0 #7777 7 3GWG NGX 0 0 10 3GX_ ADX 0 ALOGLEN(3) 7 3G_D LDX 1 3 8 3H2X TALL GEO 0 A1(1) 7 3H4B 8HIPBIN 7 3H5T ADN 1 1 8 3H7# BCT 0 TALL 5 3H8R TRACEX 5 3H== UP 4 3H#6 # 21 3HRQ # SET UP NEW ACTIVITY WITH LINK TO K2IPBSCAN ; TYPE IN X5 , LENGTH 20 3J?B # IN X6 , X4<0 IF ACTIVITY NOT TO BE PUT ON LIST (REDON ENTRY) 13 3JR2 # X4=0 IF OBEYED FROM IPBIN ACTIVITY 4 3K=L # 21 3KQ= # ENTRY FROM IPBIN AFTER INPUT ON IDLE DEVICE , OR LP OR TP ENGAGED 4 3L9W # 6 3LPG SK2IPBINB 17 3M96 LDX 7 0(3) [IDENTIFIER NUMBER 7 3MNQ LDN 4 0 8 3N8B SETDB ANDN 7 #7777 8 3NN2 LDX 2 FX2 20 3P7L CALL 0 SETAC [GET NEW ACTIVITY : ACTLF OR CPAT 7 3PCD FSHSKIP 9 3PM= LINKSET 2,SP1(1) 8 3PSD FSHCODE AORB 10 3P_L LINKSET 2,PAIR9(1) 9 3Q6W STO 7 ACC7(2) 4 3Q9F # 4 3Q#4 # 16 3QBM # CSDMOPTO MENDS HERE MAKES BLOCK 1 WORD LONGER 9 3QF= SEGENTRY K60IPBINB 4 3QHT # 13 3QLG SETNCORE ADCBLEN,1,AMXOR,ADCB,,1,2 10 3R66 STO 7 IDENTNO(1) 8 3RKQ BZE 4 SINT 17 3S5B LDX 2 AWORK1(2) [AMOP /IPBIN ADDRESS 9 3SK2 SINT STO 2 IADIN(1) 12 3T4L HUNT2J 2,AMXOR,ADEVS,,SFDCB 11 3TJ= SBX 7 A1+FOURTHWD(2) 7 3W3W SLL 7 2 7 3WHG ADX 2 7 7 3WJF LDN 0 1 19 3WKD BXU 4 0,SINTA [J. IF NOT K4 OR K10 ENTRY 8 3WLC LDCT 0 #24 18 3WMB ANDX 0 A1+FOURTHWD(2) [TEST IF BITS 4 AND 6 SET 8 3WN* BNZ 0 SFDCB 21 3WP# [J IF SOMEBODY ELSE SETTING UP ACTI 5 3WQ? SINTA 10 3WR# LDX 0 A1+BPTR(2) 19 3X36 BNZ 0 SFDCB [ALREADY RINGED : CLEAR UP 11 3X4N LDX 0 A1+FOURTHWD(2) 8 3X6= ANDN 0 #17 19 3X7S SBN 0 #12 [DEVICE TYPE = MOP DISPLAY 8 3X9B BZE 0 SINTB 21 3X=Y LDCT 0 #241 [J. IF SCANNING OR ATTACHIG CLOSING 8 3X#G BRN SINTC 5 3XB4 SINTB 21 3XCL LDCT 0 #41 [ONLINCL WILL ALLOW MOP VDUS TO BE RINGED 5 3XF8 SINTC 19 3XGQ ANDX 0 A1+FOURTHWD(2) [FOR ONLINE - TO CLEAR UP 8 3XQJ BNZ 0 SFDCB 17 3Y2B LDCT 0 2 [NOW CHECK IF WRONGED 11 3Y=8 ANDX 0 A1+FOURTHWD(2) 18 3YG2 BZE 0 STILL [NOT WRONGED + OK ENRING 21 3YPS LDCT 0 #20 [UNSET INITIALISING FLAG(B4) IF SET 11 3Y_L ORS 0 A1+FOURTHWD(2) 11 3_9D ERS 0 A1+FOURTHWD(2) 13 3_F= SFDCB FREECORE 1 [ADCB 15 3_YW FREECORE BPTR(2) [NEW ACTIVITY 8 42DG BPZ 4 SACT 19 42Y6 UPPLUS 1 [REDON ENTRY : INDICATE ERROR 4 43CQ # 19 43XB STILL RING2CHK A1+FPTR(1),A1+FPTR(2) [ADEVS ENTRY AND ADCB 9 44C2 STOZ IWAIT(1) 8 44WL LDCT 0 #24 21 45B= ORS 0 A1+FOURTHWD(2) [SET B4 & B6 TO SHOW ACT BEING SET UP 8 45TW LDCT 0 #400 9 46*G STOZ IBIL(1) 11 46T6 ANDX 0 A1+FOURTHWD(2) 17 47#Q STO 0 ISTATUS(1) [COPY AVAILABILITY 8 47SB SMO FX2 8 48#2 LDX 2 BPTR 18 48RL STO 7 ACC6(2) [POINTER TO ADEVS ENTRY 19 49?= BNG 4 SNOFP [REDON WILL FPUT ITS OWN CPAT 6 49QW FPUT 8 4==G SNOFP LDX 2 FX2 19 4=Q6 CHAIN FPTR(2),BPTR(2) [CHAIN ADCB AFTER ACTIVITY 5 4?9Q SACT UP 4 4?PB # 21 4#92 # ENTRY FROM REDON COMMAND : SET UP CPAT TO READ BULK DATA STREAM 4 4#NL # 6 4*8= SK3IPBINB 8 4*MW LDN 5 CPAT 9 4B7G LDN 6 CPATLEN 17 4BM6 NGN 4 1 [INDICATE K3 ENTRY 10 4D62 STOG MHUNTW 2,CPAR,JSCE 17 4DKL LDX 7 JSCEA(2) [IDENTIFIER NUMBER 21 4F5= LADDP JSCEP(2),2 [GET APIA ADDRESS FROM DEVICE LIST 8 4FJW LDX 0 1(2) 8 4KFW SMO FX2 17 4K_G STO 0 AWORK1 [AMOP/IPBIN ADDRESS 8 4LF6 BRN SETDB 4 4LYQ # 18 4MDB # ENTRY FROM RIGHT COMMAND AFTER REMOTE LP OR TP RIGHTED 4 4MY2 # 6 4NCL SK4IPBINB 17 4NX= LDN 4 1 [INDICATE K4 ENTRY 10 4PBW LDN 5 ACTLF+GREMOTE 21 4PWG LDN 6 ACTLFLEN+GREMOTELEN [SET UP ACTLF FOR ASTERISKS OR RUNOUT 8 4QB6 BRN STOG 4 4QTQ # 19 4R*B # ENTRY FROM IPBIN WHEN ^IDENTIFIER FREE^ RECEIVED FROM DCP 4 4RT2 # 6 4S#L SK5IPBINB 15 4SJC LDX 4 2 [IPBIN PTR 6 4SM2 SK20IPBINB 11 4SS= LDN 5 AMSCAN+IPBTYPE 12 4T?W LDN 6 AMSCANLEN+IPBTYPELEN 18 4TRG CALL 0 SETAC [SET UP AMSCAN ACTIVITY 17 4W?6 LDX 0 0(3) [IDENTIFIER NUMBER 8 4X=B ANDN 0 #7777 17 4XQ2 STO 4 ACC5(2) [AMOP/IPBIN ADDRESS 17 4Y9L STO 0 ACC6(2) [IDENTIFIER NUMBER 9 4YP= LINKSET 2,SP5(1) 6 4_8W FPUT 5 4_NG UP 4 5286 # 17 52MQ # ENTRY FROM IPBIN WHEN IPB INOPERABLE OR DCP ERROR 20 52RM # IF INOPERABLE & ^REOPEN^ MACRO IS NOT ^OFF^,INFORM OPERATOR 21 52XJ # AND ATTEMPT TO SEND RESET & REOPEN SUPERVISOR SEGMENTS TO THE DCP 14 533F # AND GO UP IF SUCCESSFUL : OTHERWISE - 21 537B # INHIBIT CONCEPTUAL OUTPUT BY SENDING ^SYSTEM OVERLOAD^ TO IPBCCA'S 16 53M2 # WHICH WILL BE INTERPRETED AS 'IPB INOPERABLE' 16 546L # INFORM OPERATORS OF INOPERABILITY OR ERROR. 18 54L= # NUDGE ALL SYSTEM ACTIVITIES TO NOTICE INOPERABILITY 21 555W # WHEN OPERABLE AGAIN , SEND ^SYSTEM CONTINUE^ TO IPBCCA'S , WHICH 21 55KG # WILL BE INTERPRETED AS 'GENERATE AVAILABLE FOR IDENTS ON THIS IPB' 4 5656 # 6 56JQ SK6IPBINB 10 56L_ LDX 0 ACOMMUNE2(2) 15 56P8 BPZ 0 TELL [IPB ERROR 9 56RC SEGENTRY K50IPBINB 20 56TL NULL [FOR ^REOPEN^ RESTORE TIME MACRO 19 56XT CALL 7 REOPEN [ATTEMPT TO ^REOPEN^ THE DCP 4 5724 TELL 11 574B HUNTW 3,AMXOR,CROUTE 18 57J2 BNG 3 NOC [NO CONCEPTUALS AROUND 10 583L LDX 6 ALOGLEN(3) 17 58H= BZE 6 NOC [CROUTE BLOCK EMPTY 8 592W LDCT 4 #252 19 59GG IPBCOUNT 5,2,1 [GET AMOP/IPBIN COUNT IN X5 17 5=26 SRL 4 3 [SYSTEM OVERLOAD CODE 9 5=FQ STO 5 AWORK1(2) 9 5=_B NXIP SBN 6 CROUTELEN 18 5?F2 CALL 7 SSSS [SEND SYSTEM SUP. SEG. 8 5?YL BNZ 6 NXIP 8 5#D= NOC LDCT 0 #40 18 5#XW ANDX 0 IPBSW(2) [J IF READ NOT INHIBITED 8 5*CG BZE 0 NORI 5 5*X6 UP 10 5BBQ NORI LDX 3 IPBRING(2) 6 5BHY #UNS CCERROR 4 5BP6 #SKI 8 5BWB LDCT 0 #400 9 5CB2 SBN 3 IPBRING 10 5CJ= LDX 5 ACOMMUNE2(2) 6 5CQG #UNS CCERROR 4 5CYQ #SKI 4 5D72 ( 19 5D*= ORS 0 IPBSW(3) [MARK AMOP/IPBOUT INOPERABLE 9 5DSW ANDX 0 IPBSW(2) 19 5F#G BNZ 0 NOPAL [ALREADY MARKED INOPERABLE 4 5FJ# ) 7 5FS6 LDCT 0 1 20 5G?Q ANDX 0 IPBSW(3) [SET IF WRITE REJECTED OPERABLE 8 5GRB BZE 0 NREJ 9 5H?2 ERS 0 IPBSW(3) 7 5HQL LDX 2 3 20 5J== FPUT [MAKE IPBOUT NOTICE INOPERABILITY 6 5JB7 #UNS CCERROR 4 5JG4 #SKI 4 5JK_ ( 8 5JPW NREJ LGEOG ,6 20 5K9G LDX 3 ACOMMUNE3(2) [OUTPACKC OVERWRITES ACOMMUNE3 4 5K=X ) 6 5K## #UNS CCERROR 4 5K*P ( 4 5KC6 NREJ 21 5KDH LDCT 0 #400 [SET IPBOUT'S INOPERABLE/ERROR FLAG 9 5KFY ORS 0 IPBSW(3) 18 5KG3 BNG 5 REPORTINOP [REPORT IPB INOPERABLE 19 5KG4 BNZ 5 NOPAL [NO INOPERABILITY TO REPORT 21 5KG5 # X5 (ACOMMUNE2) IS ZERO IF A DCP ERROR HAS ALREADY BEEN 20 5KG6 # REPORTED OR IF THE VIRTUAL 7900 HAS BECOME INOPERABLE 16 5KG7 # (IE ALL READ COMMS CHANNELS RELEASED) 21 5KG8 # WHICH CASE IS DETERMINED HERE RATHER THAN IN IPBIN WHERE 11 5KG9 # NO ROOM EXISTS 7 5KG= LDCT 0 2 9 5KG? ANDX 0 IPBSW(3) 21 5KG# BNZ 0 NOPAL [DCP ERROR REPORTED: NO INOPERABILITY 18 5KG* [(OR DCP ERROR) TO REPORT 16 5KGB # VIRTUAL 7900 HAS BECOME INOPERABLE 17 5KGC # SET ACOMMUNE3 AS FOR IPB INOPERABILITY 21 5KGD # NOTE THE ^REOPEN^ MACRO IS NOT RELEVANT TO VIRTUAL 7900'S 10 5KGF LDX 0 ZJIPBINOP(1) 10 5KGG STO 0 ACOMMUNE3(2) 4 5KGH # 6 5KGJ REPORTINOP 18 5KJQ LGEOG ,6 [REPORT DDE INOPERABLE 20 5KL7 LDX 3 ACOMMUNE3(2) [OUTPACKC OVERWRITES ACOMMUNE3 4 5KMJ ) 10 5KP6 OUTPACKC 6,1,GEOPER 8 5L8Q INFORMX ,3,1 6 5L#M #UNS CCERROR 4 5LDJ ( 9 5LJF LDX 0 IPBSW(2) 18 5LNB BPZ 0 NOPAL [DCP ERROR NOT REPORTED 21 5LS? STOZ 5 [DCP ERROR REPORTED :SET CHAINADD +VE 4 5LY8 ) 5 5M45 NOPAL 4 5M82 # 10 5MML MHUNTW 3,AMXOR,ADEVS 10 5N7= LDX 4 ALOGLEN(3) 16 5NLW SRL 4 2 [NO. OF DEVICES 10 5P6G UTOP LDX 1 A1+BPTR(3) 15 5Q5Q BZE 1 UNEX [DEVICE IDLE 8 5QKB LDCT 0 #10 11 5R52 ANDX 0 A1+FOURTHWD(3) 16 5RJL BNZ 0 UNEX [ONLINED : IGNORE 9 5S4= SBN 1 A1+FPTR 9 5SHW LDXC 0 IWAIT(1) 15 5T3G BCC UNEX [NOT WAITING 9 5TH6 STO 0 IWAIT(1) 8 5W2Q CALL 7 SKACT 16 5WGB FPUT [KICK ACTIVITY 7 5X22 UNEX ADN 3 4 8 5XFL BCT 4 UTOP 4 5X_= # 6 5Y38 #UNS CCERROR 4 5Y56 ( 18 5Y74 BNG 5 SUS [NO DCP ERROR TO REPORT 18 5Y92 BZE 5 SUS [NO DCP ERROR TO REPORT 21 5Y=Y CCERROR 5,ACOMMUNE3(2) [REPORT DCP ERROR AND SUSPEND TIL MOP OFF 8 5Y?# ... LDCT 0 #004 10 5Y?N ... LDX 3 IPBRING(2) 11 5Y#4 ... ANDX 0 IPBSW-IPBRING(3) 19 5Y#D ... BNZ 0 WAKEOUT [J. BIT 6 SET IE RECOVERED OK 4 5Y#W SUS 4 5YBS ) 8 5YDW LDCT 6 #500 19 5YYG ORS 6 IPBSW(2) [INDICATE INOP AND ASLEEP. 8 5_4C LDCT 0 #40 9 5_8# ANDX 0 IPBSW(2) 21 5_#9 BNZ 0 RUN [READ INHIBITED:MOPPING OFF:SKIP WAIT 10 5_B7 STO 5 CHAINADD(2) 19 5_D6 COOR1 [WAIT UNTIL OPERABLE AGAIN 4 5_MY RUN 10 5_XQ LDX 3 IPBRING(2) 6 5_YY #UNS CCERROR 4 6226 ( 21 623# [IF NOT MOPPING OFF AND A LINK LEVEL ERROR HAS OCCURRED, 11 624G [GO BACK TO SLEEP 19 625N LDCT 0 #40 [(TEST FOR READ INHIBIT FLAG) 9 626W ANDX 0 IPBSW(2) 9 6284 BNZ 0 WAKEOUT 20 629= LDCT 0 4 [(TEST FOR LINK LEVEL ERROR FLAG) 11 62=D ANDX 0 IPBSW-IPBRING(3) 8 62?L BNZ 0 SUS 5 62#S WAKEOUT 4 62B2 ) 9 62X2 ORS 6 IPBSW(2) 9 63W= ERS 6 IPBSW(2) 8 643D ... LDCT 0 #100 9 648L ... SBN 3 IPBRING 9 64*W ANDX 0 IPBSW(3) 8 64TG BZE 0 SWA 7 65*6 LDX 2 3 19 65SQ FPUT [WAKE AMOP/IPBOUT ACTIVITY 6 65WN #UNS CCERROR 4 65YL ( 21 662J ...SWA LDCT 6 #504 [UNSET IPBOUT'S INOP-ERROR/ASLEEP/ 16 664G ORS 6 IPBSW(3) [DCP ERROR FLAGS 4 666D ) 6 668B #UNS CCERROR 4 66=# #SKI 9 66#B SWA ORS 6 IPBSW(3) 9 66S2 ERS 6 IPBSW(3) 8 67?L LDCT 4 #253 17 67R= SRL 4 3 [SYSTEM CONTINUE CODE 11 68=W HUNTW 3,AMXOR,CROUTE 16 68QG BNG 3 NCR [NO CONCEPTUALS 10 69=6 LDX 6 ALOGLEN(3) 17 69PQ BZE 6 NCR [NULL CROUTE BLOCK 9 6=9B NIP SBN 6 CROUTELEN 20 6=P2 CALL 7 SSSS [SEND 'SYSTEM CONTINUE' TO IPBCCA 8 6?8L BNZ 6 NIP 5 6?N= NCR UP 4 6#7W # 18 6#MG # ENTRY FROM IPBIN WHEN ^LINE CHANGED^ RECEIVED FROM DCP 21 6*76 # SET UP CPAT TO CHANGE IDF AND PASS COPY TO EACH IPBCCA AFFECTED 4 6*LQ # 6 6B6B SK7IPBINB 9 6BL2 LDX 7 CPPTR(2) 9 6C5L LDN 6 CPATLEN 8 6CK= LDN 5 CPAT 15 6D4W CALL 0 SETAC [SET UP CPA 17 6DJG LINKSET 2,SP8(1) [SET LINK TO K8IPBINB 8 6F46 LDX 0 FX2 8 6FHQ LDX 4 1(3) 9 6G3B STO 0 AWORK1(2) 21 6GH2 STO 4 ACC7(2) [B0-11 : OLD LINE NO ; B12-23 : NEW 8 6H2L LDX 5 0(3) 18 6HG= STO 7 ACC6(2) [POINTER TO DEVICE LIST 18 6H_W STO 5 AWORK2(2) [LINE CHANGED : #01550000 6 6JFG FPUT 5 6J_6 UP 4 6KDQ # 6 6KYB SK8IPBINB 7 6LD2 IDFLINE 19 6LXL LDN 4 AI [FIRST ENTRY IN INLINE BLOCK 21 6MC= STA MHUNTW 2,IDF,INLINE [IDF'S LIST OF IDENTS ON THIS LINE 7 6MWW ADX 2 4 8 6NBG LDX 5 0(2) 18 6NW6 BNG 5 SUIC [LAST ENTRY DEALT WITH 7 6P*Q LDX 1 4 8 6PTB SBN 1 AI 17 6Q*2 BZE 1 SFIR [THIS IS FIRST ENTRY 19 6QSL LDX 0 1(2) [INTERNAL IDF CONCEPTUAL PTR 19 6R#= SRL 1 1 [NO. OF ENTRIES DEALT WITH 7 6RRW SON SBN 2 2 21 6S?G TXU 0 1(2) [EQUAL IF BOTH IDENTS ON SAME CONCEP 20 6SR6 BCC SBDX [ALREADY SENT COPY TO THIS IPBCCA 8 6T=Q BCT 1 SON 18 6TQB SFIR CALL 6 SEEK [POINT TO CONDCB ENTRY 16 6W=2 BRN SZE [NOT ONLINED YET 11 6WPL HUNTW 1,AMXOR,ICONIN 21 6X9= BPZ 1 SUCH [ALREADY ICONIN : PREV IDENT DETACHED 14 6XNW SETNCORE IPBIDE-A1+2,1,AMXOR,ICONIN 9 6Y8G LDX 0 AWORK2(2) 21 6YN6 STO 7 IPBIDE+1(1) [B0-11 OLD LINE NO ; B12-23 NEW NO 8 6_7Q LDCT 2 #400 9 6_MB STO 0 IPBIDE(1) 9 7272 STO 2 IBSW(1) 8 72LL CALL 6 SEEK 19 736= BRN SZE [DETACHED OR NOT YET RINGED 7 73KW SUCH LDX 3 2 17 745G ADX 3 BSTART(2) [ADDRESS OF CONDCB 21 74K6 CALL 5 SCHIC [CHAIN ICONIN BEHIND IPBCCA ACTIVITY 8 754Q BDX 4 STA 4 758M SUIC 7 75Y5 SUICIDE 10 7642 SZE MHUNTW 2,IDF,INLINE 7 76HL ADX 2 4 8 773= STOZ 1(2) 19 77GW SBDX BDX 4 STA [GO ON TO NEXT INLINE ENTRY 4 782G # 18 7855 [ALTERNATIVE TO K10 - BITS 4 & 6 WILL NOT BE TESTED IN SETDB 4 787N [ 6 78=? SK30IPBINB 16 78#W LDN 4 30 [SET FLAG WORD 19 78CF BRN ZK30 [J. TO DO NECESSARY SET UP 18 78G6 # ENTRY FROM DETACH FOR CANCEL ATTACH/CONCEPTUAL COMMAND 21 78_Q # ON ENTRY : IDENTIFIER NUMBER IN X7 , AMOP/IPBIN ADDRESS IN AWORK1 4 79FB # 6 79_2 SK10IPBINB 7 7=DL LDN 4 1 4 7=JH ZK30 2 7=ND 2 7=S* 7 7=Y= LDX 5 7 17 7?CW CALL 6 SEEK [POINT TO ADEVS ENTRY 15 7?XG BNZ 2 NOTOL [NOT ONLINE 19 7#C6 GEOERR 1,ONLINE? [MARKED ONLINE TO CONCEPTUAL 11 7#WQ NOTOL LDEX 0 A1+FOURTHWD(2) 8 7*5C ERN 0 #32 17 7*7L BZE 0 SACT [STRAIGHT UP IF PVDU 15 7*9T ERN 0 #32 [RESTORE TYPE 7 7*BB ANDN 0 3 7 7*W2 SBN 0 3 18 7B*L BZE 0 OUTP [ACTLF FOR TYPE 3 OR 7 8 7BT= LDN 5 CPAT 9 7C#W LDN 6 CPATLEN 19 7CSG BRN SETDB [SET UP NEW ACTIVITY AND DCB 12 7D#6 OUTP LDN 6 ACTLFLEN+GREMOTELEN 10 7DRQ LDN 5 ACTLF+GREMOTE 8 7F?B BRN SETDB 4 7F#J [ 8 7F*Q [ SK14IPBINB 4 7FBY [ 6 7FD6 SK14IPBINB 4 7FF# [ 13 7FGG [ SUBROUTINE TO PASS DATA TO IPBCCA 4 7FHN [ 5 7FJW SCDAT 7 7FL4 LDX 4 3 7 7FM= LDX 3 7 14 7FNF SETNCORE IPBIDE-A1(3),1,AMXOR,ICONIN 16 7FNG STO 2 IMOPTY(1) [IPBIN ADDRESS 17 7FNH STO 5 IBSW(1) [BLOCK STATUS WORD 9 7FNJ LDN 5 IPBIDE(1) 19 7FNK MOVLONG 4,5,7 [DATA OR SUPERVISORY SEGMENT 7 7FNL LDX 4 1 9 7FNM LDN 3 IPBIDE(1) 8 7FNN CALL 7 SKADB 20 7FNP BZE 1 SGO [ADEVS RING ZERO : OLPA RELEASING 8 7FNQ LDN 3 A1(1) 17 7FNR ADX 3 BSTART(3) [ADDRESS OF CONDCB 9 7FNS LDX 0 ATYPE(3) 8 7FNT SRC 0 12 10 7FNW SBN 0 AMXOR+CONDCB 8 7FNX BZE 0 SCD 18 7FNY GEOERR 1,WRONGBLK [ADEV'S PTR WRONG 4 7FN_ SCD 17 7FP2 LDX 1 4 [ADDRESS OF ICONIN 14 7FP3 # CHAIN ICONIN BEHIND IPBCCA 9 7FP4 LDX 2 BPTR(3) 16 7FP5 HUNTACT AMOP,3 [FIND IPBCCA ACT 10 7FP6 LDX 0 ALOGLEN(1) 9 7FP7 ADS 0 INLOAD(3) 8 7FP8 CHAIN 1,2 14 7FP9 # WAKE IPBCCA ACT IF NECESSARY 9 7FP= LDEX 0 ATYPE(3) 15 7FP? BZE 0 SCEX1 [NOT WAITING 7 7FP# LDX 2 3 7 7FP* UNQUEUE 6 7FPB FPUT 4 7FPC # 5 7FPD SCEX1 7 7FPF UPPLUS 2 15 7FPG SGO FREECORE 4 [FREE ICONIN 9 7FPH BRN SCEX1[ 20 7FPJ [ SUBROUTINE TO FIND ADDRESS IN X1 OF ADCB FOR GIVEN IDENTIFIER 21 7FPK [ IN ((X3)) AND ADDRESS IN X2 OF ADEVS ENTRY FOR THE IDEN 4 7FPL [ 10 7FPM SKADB MHUNTW 2,AMXOR,ADEVS 17 7FPN LDX 0 0(3) [IDENTIFIER NUMBER 8 7FPP ANDN 0 #7777 21 7FPQ BZE 0 TDCB [ZERO : SYSTEM SUPERVISOR'S NUMBER 20 7FPR SBX 0 A1+FOURTHWD(2) [SUBTRACT LOWEST IDENTIFIER NO. 7 7FPS SLC 0 2 10 7FPT TXL 0 ALOGLEN(2) 6 7FPW #UNS CCERROR 20 7FPX BCC SERR1 [DCP ERROR : IDENTIFIER TOO LARGE 6 7FPY #UNS CCERROR 4 7FP_ #SKI 20 7FQ2 BCC SERR [DCP ERROR : IDENTIFIER TOO LARGE 7 7FQ3 ADX 2 0 10 7FQ4 TDCB LDX 1 A1+BPTR(2) 19 7FQ5 BZE 1 (7) [X1 ZERO IF NO RING POINTER 9 7FQ6 SBN 1 A1+FPTR 7 7FQ7 EXIT 7 0 5 7FQ8 SERR1 7 7FQ9 UPPLUS 1 4 7FQ= SERR 5 7FQ? UP 4 7FQM ...[ 8 7FR3 ...[ K31 IPBINB 4 7FRC ...[ 6 7FRR ...SK31IPBINB 4 7FS7 ...[ 16 7FSH ...[ ENTRY POINT TO OUTPUT AN AMXOR AJOURN BLOCK 4 7FSX ...[ 7 7FT? ... LDN 6 7 9 7FTM ... LDX 3 AWORK4(2) 8 7FW3 ... LDCH 0 0(3) 15 7FWC ... BZE 0 XSUBA [J DATA SEG 7 7FWR ... SBN 0 1 19 7FX7 ... ADX 6 0 [X6 = LENGTH OF JOURN BLOCK 5 7FXH ...XSUBA 15 7FXX ... SETUPCORE 6,2,AMXOR,AJOURN [CREATE BLOCK 9 7FY? ... LDX 0 XIN(1) 18 7FYM ... STO 0 A1(2) [ST 'IN ' IN FIRST WD. 8 7F_3 ... LDX 0 FTIME 9 7F_C ... STO 0 A1+1(2) 9 7F_R ... LDX 0 FTIME+1 18 7G27 ... STO 0 A1+2(2) [ST FTIME IN A1+1 AND +2 8 7G2H ... SMO FX2 8 7G2X ... LDX 1 CPPTR 18 7G3? ... LGEOG 1,6 [LD. GEOG. NO. OF UNIT 21 7G3M ... STO 6 A1+3(2) [ST.GEOG. NO IN A1+3 IN OCTAL FORM 10 7G43 ... MHUNTW 3,AMXOR,INBF 8 7G4C ... LDX 0 A1(3) 18 7G4R ... STO 0 A1+4(2) [ST. A1 OF INBUF IN A1+4 8 7G57 ... SMO FX2 9 7G5H ... LDX 3 AWORK4 8 7G5X ... LDCH 6 0(3) 14 7G6? ... BZE 6 XSUBB [DATA SEG 8 7G6M ...XSUBC LDN 4 0(3) 9 7G73 ... LDN 5 A1+5(2) 16 7G7C ... MOVLONG 4,5,6 [MOVE NO. OF WDS. 17 7G7R ... CHAINJRN [MACRO TO CHAIN AMXOR AJOURN 5 7G87 ... UP 7 7G8H ...XSUBB LDN 6 2 21 7G8X ... BRN XSUBC [MOVE ONLY 2 WORDS FOR SECURIDTY REAS 10 7G9? ... MENDAREA 50,K100IPBINB 4 7G=L #END 8 ____ ...31706003000100000000