{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMPROA867)}}
====== COMPROA867 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:APCOMPRO|APCOMPRO]], [[george:macro:CPHOOK|CPHOOK]], [[george:macro:DOUPMON|DOUPMON]], [[george:macro:GEOERR|GEOERR]], [[george:macro:GETCLB|GETCLB]], [[george:macro:GETCPB|GETCPB]], [[george:macro:ICT|ICT]], [[george:macro:JOBCONS|JOBCONS]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MOPCLOSE|MOPCLOSE]], [[george:macro:SAVERBIT|SAVERBIT]], [[george:macro:SAWCEN|SAWCEN]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SUICIDE|SUICIDE]], [[george:macro:UNSETHK|UNSETHK]]
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