COMPROA867
(George Source)
Macros used: ACROSS, APCOMPRO, CPHOOK, DOUPMON, GEOERR, GETCLB, GETCPB, ICT, JOBCONS, MHUNT, MOPCLOSE, SAVERBIT, SAWCEN, SEG, SEGENTRY, SUICIDE, UNSETHK
- COMPROA867.txt
22FL ... SEG COMPROA,,CENT(COMMAND PROCESSOR) 24D6 [ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 25CB [ 25X2 [ ENTRY POINTS - MUST BE KEPT FIXED WITHIN THE SEGMENT 26BL [ 26W= SEGENTRY K1COMPROA,QENTRY1 [INITIALISE CPAT 27*W SEGENTRY K2COMPROA,QENTRY2 [SET UP CPB/CALAS/CLB PAIR 27TG SEGENTRY K3COMPROA,QENTRY3 [ISSUCOM,ISSUCOML MACROS 28*6 SEGENTRY K7COMPROA,QENTRY7 [ISSUCOMJ MACRO 28SQ SEGENTRY K9COMPROA,QENTRY9 [ISSUCOMB MACRO 29#B [ 29S2 [ 2=?L [ THIS CHAPTER IS PART OF THE COMMAND PROCESSOR AND CONTAINS 2=R= [ 1) CODE TO INITIALISE A CPAT - ENTERED WHEN CPAT FIRST SET UP 2?=W [ ENTRY POINT K1COMPROA 2?QG [ 2) COMMAND ISSUER CODE ENTERED BY COMMAND ISSUER MACROS AT 2#=6 [ ENTRY POINTS K3COMPROA 2#PQ [ K7COMPROA 2*9B [ K9COMPROA 2*P2 [ COMPROB ENTERS COMPROA AT K2COMPROA WHEN IT REQUIRES TO SET 2B8L [ UP A NEW CPB/CALAS/CLB PAIR FOR BREAKIN LEVEL 2BN= [ 2C7W #DEF PERTY=#10 2CMG MCONTX #20402 [CONTEXT=NOT BREAKIN,NO CORE IMAGE, 2D76 [ NO USER 2DLQ READERREP #00000061 2F6B OPCONSOLE +63 2FL2 XMOPCONSOLE +11 2G5L YMOPCONSOLE +10 2GK= XIPB +24 [PERI. TYPE FOR TELEPROCESSOR 2H4W SMOPCONSOLE +60 2HJG ZLINOP +7 2J46 ZCR +3 2JHQ SYSTISSUE #60000000 2K3B [ 2KH2 [ XGROT IS JUMPED TO IF THE PERIPHERAL IS DISENGAGED 2L2L XGROT 2LG= LDX 7 CONTEXT(2) 2L^W ANDN 7 #210 2MFG BZE 7 XGROT1 2M^6 MOPCLOSE 2NDQ XGROT1 2NYB SUICIDE 2PD2 [ SET UP ENTRY IN JOB QUEUE 2PXL QENTRY1 2QC= #SKI ICT 2QWW ( 2RW6 ... APCOMPRO K80COMPROA 2S*Q XICT 2STB ) 2T*2 LDX 7 JOBEVENTS(2) 2TSL LDCT 0 #40 2W#= STO 0 JOBEVENTS(2) 2WRW JOBCONS XGROT 2X?G STO 7 JOBEVENTS(2) 2XR6 LDN 4 PERTY [SET CONTEXT BITS TO PERIPHERAL TYPE 2Y=Q SAWCEN CENTRAL,STOR 2YQB LDCH 7 JSOURCE1(2) [GET TYPE OF PERIPHERAL 2^=2 TXU 7 XMOPCONSOLE(1) [TEST FOR MOP CONSOLE AND BRANC IF IS 2^PL BCC STOR 329= TXU 7 YMOPCONSOLE(1) 32NW BCC STOR 338G TXU 7 XIPB(1) 33N6 BCC STOR 347Q TXU 7 SMOPCONSOLE(1) [TEST FOR SIH. MOP CONSOLE 34MB BCC STORE [BRANCH IF IT IS 3572 TXU 7 OPCONSOLE(1) [BRANCH IF OPERATOR CONSOLE 35LL BCC SHIF1 366= LDCT 0 #600 36KW ANDX 0 CONTEXT(2) 375G BZE 0 NSI 37K6 LDN 4 0 [UNSET PERIPHERAL CONTEXT 384Q BNG 0 SETM [J IF SYS. ISS. 38JB LDN 4 #20 [MAKE SYS. STAR. LOOK... 3942 # [LIKE OPERATOR 39HL BRN SETM 3=3= NSI 3=GW BZE 7 SHIF2 [BRANCH IF PTR 3?2G TXU 7 ZCR(1) [BRANCH IF CR 3?G6 BCC SHIF2 3?^Q TXU 7 ZLINOP(1) [TEST FOR LINE INOP. 3#FB BCC ZABAND [BRANCH IF IT IS 3#^2 GEOERR 1,WRPERENG 3*DL ZABAND 3*Y= ACROSS LOGOUT,7 [ABANDON THE JOB 3BCW SHIF2 SLL 4 1 [TR OR CR 3BXG SHIF1 SLL 4 1 [OPERATOR CONSOLE 3CC6 SETM 3CWQ LDX 5 READERREP(1) 3DBB STO 5 AMXMSK(2) [SET INITIAL READER REPORT 3DW2 STORE ORX 4 MCONTX(1) [NOT BROKEN IN,NO USER 3F*L LDX 0 SYSTISSUE(1) 3FT= ANDS 0 CONTEXT(2) 3G#W ORS 4 CONTEXT(2) 3GSG [ SET UP LINE BUFFER AND PARAMETER BLOCK 3H#6 STOR 3HRQ LDCT 4 #400 3J?B LDN 5 0 3JDJ ...#UNS G400 3JKQ ... LDN 7 1 [MARK AS NORMAL COMPROA PATH 3JR2 QENTRY2 [ENTRY FROM COMPROB 3K=L WBREAK 3KQ= LDN 0 2 [PRESET AN UPPLUS 2 RE-ENTRY 3L9W DCH 0 EXT+10(2) 3LPG XGETCLBCPB 3LWN ...#UNS G400 3M3W ... STO 7 3 3M96 GETCLB 2 3MNQ GETCPB 2 3MTY ...#UNS G400 3N36 ... LDX 7 3 3N8B STO 4 CPBFSD(2) 3NN2 STO 5 CPBCPLEV(2) 3P7L STOZ CMXMSK(2) 3PM= ... SEGENTRY K70COMPROA 3Q6W ... BRN XK71 [MENDED TO NULL IF REPORTNEST ON 3QLG LDN 3 #10 3R66 SMO FX2 3RKQ ANDX 3 CONTEXT 3S5B ... BZE 3 XK71 [BR IF NOT MOP 3SK2 SMO FX2 3T4L LDX 3 AMXMSK 3TJ= STO 3 CMXMSK(2) [SET REPORTING MASK AT NEW LEVEL 3W3W ...XK71 3WHG ... SEGENTRY K71COMPROA 3WJN ...#UNS G400 3WKW ...( 3WM4 ... MHUNT 2,CPB,CALAS 3WN= ... BNZ 7 XDSKA [J IF NORMAL COMPROA PATH 3WPD ... UNSETHK [HERE FROM COMPROB 3WQL ... DOUPMON 3WRS ... BRN XDSKB 3WT2 ...XDSKA 3WW8 ... CPHOOK 2 [COMPROA PATH 3WXB ...XDSKB [COMMON CODE AGAIN 3WYJ ... MHUNT 2,CPB,CALAS 3W^Q ...) 3X36 SMO FX2 3XGQ LDX 3 AMFMSK 3Y2B STO 3 CMFMSK(2) [SET TRACING MASK 3YG2 LDX 2 FX2 3Y^L LDCH 0 EXT+10(2) 3^F= SBN 0 #77 3^YW ACROSS COMPRO,2 42DG LDCT 0 #770 42Y6 ERS 0 EXT+10(2) 43CQ ACROSS COMPRO,4 43XB # 44C2 [ ENTRY POINTS FOR ISSUCOM MACROS 44WL # 45B= [ ISSUCOMB AT K9COMPRO 45TW # 46*G [ ISSUCOMJ AT K7COMPRO 46T6 # 47#Q [ ISSUCOM AND ISSUCOML AT K3COMPRO 47SB # 48#2 QENTRY9 48RL LDX 4 GSIGN 49?= LDCT 5 #600 49QW BRN Z1 4==G QENTRY7 4=Q6 LDCT 4 #300 4?9Q ANDX 4 EXT+3(2) 4?PB BRN Z 4#92 QENTRY3 4#NL LDN 4 0 4*8= Z ORX 4 GSIGN 4*MW LDX 5 GSIGN 4B7G Z1 4BM6 SAVERBIT 4C6Q LDCT 7 128 4CLB ORS 7 EXT+11(2) 4D62 LDN 7 1 4DKL ADS 7 CPLEV(2) 4F5= ADX 5 CPLEV(2) 4FJW LDN 0 #77 4G4G DCH 0 EXT+10(2) 4GJ6 BRN XGETCLBCPB 4H3Q #END ^^^^ ...335226420004