6 22FL #OPT K0PM=0 12 22_= #LIS K0PM>K0POST>K0KERNEL>K0ALLGEO 4 23DW # 19 23YG #SEG PM [RAY BARNES AND DEK BEASLEY 4 24D6 # 20 24XQ # THE NEXT PIECE OF CODE IS THE CORE PART OF THE NI VERSION OF 20 25CB # THE POSTMORTEM ROUTINE, WRITTEN FOR THE MOST PART BY J BAILEY 4 25X2 # 16 26BL # THE REORGANISED VERSION HAS BECOME PURE!!!!!! 4 26W= # 4 27*W # 8 27TG 8HPM 4 28*6 # 8 28SQ UGH LDN 3 JNOPM 9 29#B CALL 7 XCONOUT 5 29S2 PMSTOP 18 2=?L BRN PMSTOP [LOOP STOP TO KILL PM 4 2=R= # 4 2?=W # 16 2?QG # CONSOLE TYPEWRITER OUTPUT ROUTINE 4 2#=6 # 4 2#PQ # 9 2*9B ... LABFIX JJCONOUT 5 2*P2 XCONOUT 15 2B8L STO 0 JX0 [ SAVE X0 15 2BN= STO 1 JX1 [ SAVE X1 19 2C7W LDX 1 JCTWPTR [ GET DEVICE RECORD OF CTW 8 2CMG XLOOP JBUSY 1,XLOOP 8 2D76 LDX 0 0(3) 10 2DLQ DCA 1,STO,0,COUNT 8 2F6B LDN 0 1(3) 10 2FL2 DCA 1,STO,0,CTSA 8 2G5L LDX 0 JPCA 10 2GK= DCA 1,DLA,0,MODE 9 2H4W LDN 1 JOSTART 10 2HJG GPERI JCTWPTR,1,NC 9 2J46 ...SNORE LDX 1 JCTWRW1 8 2JHQ BNG 1 SNORE 7 2K3B SLL 1 3 8 2KH2 BNG 1 XLOOP 15 2L2L LDX 1 JX1 [ RESET X1 15 2LG= LDX 0 JX0 [ RESET X0 7 2L_W ... EXIT 7 0 4 2MFG # 4 2M_6 # 17 2NDQ # BS TRANSFER IMPLEMENTATION ROUTINE 4 2NYB # 5 2PD2 TRANSF 9 2PXL ... LDX 4 BINDEX 16 2QC= DATUMADD JDUM2,4,JDUM+2 [GET BS ADDRESS 21 2QWW BZE 1 UGH [0 REPLY --- VERY BAD FOR PM ABANDO 18 2RBG DCA JGEOPTR,STO,1,DTSA [ SET UP DEVICE RECORD 9 2RW6 LDX 1 JGEOPTR 8 2S*Q LDX 0 JDUM 10 2STB DCA 1,DLA,0,MODE 9 2T*2 LDX 0 JDUM+2 10 2TSL DCA 1,STO,0,COUNT 9 2W#= LDX 0 JDUM+3 10 2WRW DCA 1,STO,0,CTSA 17 2X?G CALL 0 XBSROUT [ SET OFF TRANSFER 15 2XR6 BRN TRANSF [ TRY AGAIN 8 2Y=Q ... BZE 2 (5) 16 2YQB ADS 2 JDUM+3 [ RESET DETAILS 8 2_=2 ADS 2 JDUM2 9 2_PL SBS 2 JDUM+2 16 329= BRN TRANSF [ DO NEXT BITE 5 32NW XBSROUT 15 338G STO 0 JLINK [STORE LINK 16 33N6 LDN 3 JXSTART [GET BLOCK START 14 347Q GPERI JGEOPTR,3,NC [DO PERI 15 34MB PPM1 LDX 4 JGEORW1 [CHECK REPLY 17 3572 BNG 4 PPM1 [LOOP IF STILL BUSY 7 35LL SLC 4 6 18 366= ANDN 4 15 [FORGET END OF CYLINDER 9 36KW LDX 3 JGEOPTR 8 375G LTYPE 3,1 8 37K6 TXU 1 JEDS 8 384Q BCS PPM2 8 38JB ANDN 4 #15 14 3942 PPM2 BNZ 4 PPM3 [NOT OK? 15 39HL LDX 0 JLINK [RECOVER LINK 7 3=3= EXIT 0 1 8 3=GW PPM3 ANDN 4 14 13 3?2G LDN 3 JPMESS1 [FAIL 8 3?G6 BNZ 4 PPM4 13 3?_Q LDN 3 JPMESS [FIX 19 3#FB ...PPM4 CALL 0 XPGTGE [GEOGRAPHICAL NUMBER TO CHARS 17 3#_2 CALL 7 XCONOUT [OUTPUT ON CONSOLE 16 3*DL PPM6 LDX 3 JGEOPTR [GET G'S DEVICE 17 3*Y= JDISENG 3,PPM6 [LOOP TILL ENGAGED 9 3BCW BRN (JLINK) 4 3BXG # 4 3CC6 # 21 3CWQ # ROUTINE TO PUT NNN INTO UNIT NNN FIX OR FAIL MESSAGE 4 3DBB # 4 3DW2 # 17 3F*L # ENTRY POINT SPECIFYING GEORGE DEVICE 4 3FT= # 4 3G#W # 8 3GSG LABFIX JJPGTGE 5 3H#6 XPGTGE 9 3HRQ LDX 1 JGEOPTR 7 3J?B LABFIX JPG 8 3JR2 LGEOG 1,7 8 3K=L LDCT 6 #200 8 3KQ= STO 6 3(3) 8 3L9W DVS 6 JTEN 16 3LPG ORS 6 3(3) [DUMP UNITS DIGIT 8 3M96 DVS 6 JTEN 7 3MNQ SLL 67 6 7 3N8B SLL 7 6 19 3NN2 ORX 6 7 [GEOGRAPHICAL NO. TO CHARS 18 3P7L ORS 6 3(3) [DUMP HUNS & TENS DIGITS 13 3PM= EXIT 0 0 [EXIT 4 3Q6W # 4 3QLG # 4 3R66 # 17 3RKQ # HERE IS THE ONLY ENTRY POINT TO PM BOOTSTRAP 4 3S5B # 4 3SK2 # 4 3T4L # 8 3TJ= LABFIX JBPMCO 19 3W3W FIXTRA ADPPM [USED EXCLUSIVELY BY DATAPASS 8 3W4_ ... STO 0 JACC 4 3W65 ...# 16 3W8# ...# FOR 2960 DME DUALS WE MUST ENSURE PM NOT ABLE 15 3W=H ...# TO RUN CONCURRENTLY WITH EXECUTIVE SO ..... 4 3W#Q ...# 16 3WB_ ... ENTRUST [ MAKE US TRUSTED 4 3WF8 ...# 9 3X36 STO 1 JACC+1 7 3XGQ LDN 0 2 17 3Y2B LDN 1 JACC+2 [STORE ACCUMULATORS 7 3YG2 MOVE 0 6 17 3Y_L LDX 0 GONRDUMP [SAVE GEORGE'S WORD 8 17 3_F= STO 0 JONRDUMP [IN CASE OF PM BREAK 8 3_YW LDN 0 BSL1 8 42DG LDN 1 JBSL 16 42Y6 MOVE 0 5 [STORE BSL1-BSL5 18 43CQ LDX 0 PMSTOP [STORE LOOP STOP IN K0 20 43XB STO 0 K0 [IN EVENT OF PM FAILURE A BRANCH 17 44C2 [ TO K0 IS EFFECTED 4 44WL # 19 45B= # NOW NEED TO ACCESS DEVICE LIST FOR RECORDS PERTAINING TO 20 45TW # CONSOLE T/W AND GEORGE'S B/S DEVICE. THESE RECORDS ARE STORED. 4 46*G # 9 46T6 LDX 3 GEOBSPTR 18 47#Q LDN 4 JGEOREC [MOVE G'S DEVICE RECORD 16 47SB MOVE 3 K53-K50 [INTO A BUFFER 14 48#2 STO 3 JGEOPTR [KEEP PTR 16 48RL LDN 6 63 [T/W IS TYPE 63 19 49?= FINDPEREC 3,APFOTY,6,XYZ [GET DEVICE RECORD POINTER 18 49QW JWRONG 3,XYZ [J IF CONSOLE IS WRONGED 9 4==G LDN 4 JCTWREC 16 4=Q6 MOVE 3 K53-K50 [MOVE TO BUFFER. 14 4?9Q STO 3 JCTWPTR [KEEP PTR 7 4?PB NGN 4 1 9 4#92 PM1 LDX 3 JGEOPTR 16 4#NL JDISENG 3,PM2 [J IF NOT ENGAGED 15 4*8= JBUSY 3,PM1 [LOOP IF BUSY 15 4*MW BRN PM3 [ELSE J OK 18 4B7G PM2 BZE 4 PM1 [J IF 'FIX' ALREADY O/P 15 4BM6 LDN 3 JPMESS [FIX MESSAGE 19 4C6Q CALL 0 XPGTGE [GEOGRAPHICAL NO. TO CHARS. 16 4CLB CALL 7 XCONOUT [FIX TO CONSOLE 7 4D62 LDN 4 0 8 4DKL BRN PM1 4 4F5= # 4 4FJW # 12 4G4G # WRITE AWAY FIXED CORE 4 4GJ6 # 4 4H3Q # 9 4HHB ...PM3 CALL 5 TRANSF 4 4J32 # 4 4JGL # 4 4K2= # 19 4KFW # READ PMFIXINT INTO CORE FOLLOWING PM BOOTSTRAP 4 4K_G # 4 4LF6 # 10 4LYQ LDX 1 JLPMFIXINT 9 4MDB STO 1 JDUM+2 7 4MY2 LDN 1 0 8 4NCL STO 1 JDUM 9 4NX= LDN 1 PMBSEND 9 4PBW STO 1 JDUM+3 21 4PWG STO 1 FXPMFXNT [ SET UP FX WORD FOR 'CHAPTER TABLE' 10 4QB6 ADX 1 JLPMFIXINT 20 4QTQ STO 1 FXPMDR [ PRESET BASE ADDRESS OF PMDR 10 4R*B LDX 1 JDPMFIXINT 9 4RT2 STO 1 JDUM+4 8 4S#L STO 1 JDUM2 17 4SS= ... CALL 5 TRANSF [ DO THE TRANSFER 4 4T?W # 4 4TRG # 17 4W?6 ...# READ PMDR INTO CORE FOLLOWING PMFIXINT 4 4WQQ # 9 4X=B SMO FXPMFXNT 21 4XQ2 LDX 1 JPMDR [ GET CHAPTER TABLE ENTRY FOR PMDR 7 4Y9L LDN 2 0 8 4YP= SRL 12 15 16 4_8W SRL 2 2 [ B/S ADDRESS 14 4_NG SLL 1 2 [ LENGTH 9 5286 STO 1 JDUM+2 8 52CY ... STO 2 JDUM2 9 52MQ STO 2 JDUM+4 18 537B LDX 4 FXPMDR [ BASE ADDRESS IN CORE 9 53M2 STO 4 JDUM+3 7 546L ADX 4 1 21 54L= STO 4 FXPM1 [ PRESET BASE ADDRESS FOR 1ST OVERLA 17 555W ... CALL 5 TRANSF [ DO THE TRANSFER 5 55KG #SKI G4 4 5656 ( 17 56JQ LDX 4 K30+K402 [SET UP WORD FOR USE 18 574B ADN 4 1024 [BY MACRO PMCORES WHEN 20 57J2 STO 4 JK402 [TESTIHG CORE VIOLATIONS IN G4 4 583L ) 6 5858 ...#UNS JPSCF 4 586Q ...( 9 588# ... LDX 4 JGEOPTR 9 589W ... SMO FXPMDR 10 58?D ... STO 4 JSCFGEODMP 9 58*2 ... LDX 4 GEOSCFPTR 9 58BJ ... SMO FXPMDR 9 58D6 ... STO 4 JSCFPTR 4 58FN ...) 9 58H= SMO FXPMDR 15 592W BRN K1PMDR [ ENTER PMDR 20 59GG FIXTRA JPMBSEND [USED BY PMSIZEUP & PMSIZE MACRO 18 5=26 [FOR END OF PM BOOTSTRAP 5 5=FQ PMBSEND 4 5=_B #END 8 ____ ...67227253004200000000