{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: SETPC867)}}
====== SETPC867 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:ADDREC|ADDREC]], [[george:macro:ALASHUNT|ALASHUNT]], [[george:macro:BACKSPACE|BACKSPACE]], [[george:macro:BRUSEN|BRUSEN]], [[george:macro:BXE|BXE]], [[george:macro:BXL|BXL]], [[george:macro:CHNUMCOD|CHNUMCOD]], [[george:macro:CLOSE|CLOSE]], [[george:macro:COBJUSE|COBJUSE]], [[george:macro:COBJUSRT|COBJUSRT]], [[george:macro:COMBRKIN|COMBRKIN]], [[george:macro:COMERRX|COMERRX]], [[george:macro:DFLOAD|DFLOAD]], [[george:macro:DOLPMON|DOLPMON]], [[george:macro:DORPMON|DORPMON]], [[george:macro:DOSPMON|DOSPMON]], [[george:macro:DOSPTEXT|DOSPTEXT]], [[george:macro:DOWN|DOWN]], [[george:macro:FINDEXOF|FINDEXOF]], [[george:macro:FJOCA|FJOCA]], [[george:macro:FPCACA|FPCACA]], [[george:macro:FPERENT|FPERENT]], [[george:macro:FREECORE|FREECORE]], [[george:macro:GEOERR|GEOERR]], [[george:macro:HUNT|HUNT]], [[george:macro:HUNT2|HUNT2]], [[george:macro:LGEOG|LGEOG]], [[george:macro:MFREE|MFREE]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:MTPTR|MTPTR]], [[george:macro:OPENSYS|OPENSYS]], [[george:macro:OUTNULL|OUTNULL]], [[george:macro:OUTPARAM|OUTPARAM]], [[george:macro:PARAFREE|PARAFREE]], [[george:macro:PARANEXT|PARANEXT]], [[george:macro:PARAPASS|PARAPASS]], [[george:macro:PERCONA|PERCONA]], [[george:macro:READ|READ]], [[george:macro:READY|READY]], [[george:macro:SDSEARCH|SDSEARCH]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETUPCORE|SETUPCORE]], [[george:macro:SFCB|SFCB]], [[george:macro:SPARANXT|SPARANXT]], [[george:macro:SPARAPAS|SPARAPAS]], [[george:macro:SYNTHMON|SYNTHMON]], [[george:macro:TESTHKN|TESTHKN]], [[george:macro:TESTREP|TESTREP]], [[george:macro:TESTREP2|TESTREP2]], [[george:macro:TOPFCBV|TOPFCBV]], [[george:macro:UNIFREE|UNIFREE]], [[george:macro:UP|UP]], [[george:macro:WORKNUMB|WORKNUMB]]
22FL ... SEG SETPC,,CENT(INSTALLATION HOOKS),,G400
22^= [
23DW [ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982
23YG [
24D6 #
24XQ SEGENTRY K1SETPC,SENTRY1 [ENTRY FOR PRIVILEGED PARAMS
25CB #
25X2 # THIS CHAPTER IS FOR G3PLUS-IH MK2
26BL #
26W= YDSK1 #37777777
27*W YDSK2 #77777
27TG YDSK20 +20
28*6 Y125 +125
28SQ Y8 +8
29#B SPEC 8H-8388608
29S2 MAGIC +7036875
2=?L MINUS #35
2=R= PC 4H000C
2?=W PS 4H000S
2?QG PD 4H000D
2#=6 PSTAR 4H000*
2#PQ PAREN 4H000(
2*9B 4H000)
2*P2 PDTABNO 4
2B8L PDTAB 4H000?
2BN= 4H000"
2C7W 4H000'
2CMG 4H000/
2D76 XCON25 +25
2DLQ XURG +JURGE
2F6B PARAM2
2FL2 DOSPTEXT
2G5L TABLE
2GK= #DEF XLENGTH=TABLE-PARAM2
2H4W #
2HJG #
2J46 MESSAGENOS
2JHQ #
2K3B # SPACE-SAVING VERSION TO ALLOW OTHER MODS
2KH2 #
2L2L SBX 5 FX1
2LG= LDN 7 0 [ INDICATE NO NUMBERS YET READ
2L^W PARAPASS [ (N1,N2) IF PRESENT
2MFG HUNT 3,CPB,CUNI
2M^6 NGX 4 ANUM(3)
2NDQ BPZ 4 SLINK [ NO PARAMETER
2NYB LDEX 6 ATYPE(3) [PARAM NO. FROM MULTI PARAM BL
2PD2 PARANEXT #34,,6
2PXL XH
2QC= HUNT 3,CPB,CUNI [ N1 OR N2
2QWW LDX 4 ANUM(3)
2RBG BZE 4 XERR [ ERROR IF NULL PARAMETER
2RW6 BNG 4 NON [ PARAMETER MISSING
2S*Q CHNUMCOD 1,3,XBREAK
2STB TESTREP2 CHNUMERR,XERR1
2T*2 LDX 6 ACOMMUNE1(2) [ CONVERTED NUMBER
2TSL BNG 6 XERR [ ERROR IF NEGATIVE
2W#= BZE 6 XERR [ OR ZERO
2WRW BNZ 7 SLINK [ EXIT IF BOTH N1 AND N2 NOW READ
2X?G LDX 7 6 [ COPY N1 INTO X7
2XR6 PARAPASS [ N2 IF PRESENT
2Y=Q BRN XH [ REPEAT CONVERSION FOR N2
2YQB NON
2^=2 BZE 7 XERR [ ERROR IF N1 MISSING
2^PL SLINK
329= MHUNT 3,CPB,CUNI
32NW FREECORE 3
338G ADX 5 FX1
33N6 EXIT 5 0
347Q #
34MB # ROUTINE TO LOCATE CPB/CALAS BLOCK AT THE
3572 # NEXT LEVEL UP
35LL #
366= XP400
36KW LDX 1 FX2
375G LDN 6 2 [GOING UP 2 CPB/CALAS BLKS
37K6 XP400A
384Q LDX 1 FPTR(1) [GO ROUND CHAIN
38JB LDX 0 ATYPE(1) [THE BLOCK TYPE
3942 SRL 0 12 [INTO BOTTOM BITS
39HL ERN 0 CPB+CALAS [MASK TYPE
3=3= BNZ 0 XP400A [NOT REQUIRED BLOCK
3=GW BCT 6 XP400A [JUMP FIRST TIME AROUND
3?2G EXIT 7 0 [THAT'S ALL
3?G6 #
3?^Q # ROUTINE TO DECODE NUMERICAL QUALIFIERS
3#FB #
3#^2 QNUM
3*DL SBX 5 FX1
3*Y= PARAPASS [PASS PARAM
3BCW HUNT 3,CPB,CUNI
3BXG LDX 4 ANUM(3)
3CC6 BNG 4 QNUM1
3CWQ BZE 4 QNUM1
3DBB CHNUMCOD 1,3,XBREAK [CONVERT TO BINARY
3DW2 TESTREP CHNUMERR,XERR1
3F*L LDX 4 ACOMMUNE1(2)
3FT= BNG 4 XERR [ERROR IF NEGATIVE
3G#W QNUM2
3GSG ADX 5 FX1
3H#6 EXIT 5 0
3HRQ QNUM1
3J?B LDN 4 0 [DEFAULT ZERO
3JR2 BRN QNUM2
3K=L XHNT1
3KQ= SBX 7 FX1
3L9W SPARANXT ,,4
3LPG BRN XHNT2
3M96 XHNT
3MNQ SBX 7 FX1
3N8B PARANEXT ,,4
3NN2 XHNT2
3P7L TESTREP UNPAIR,XERR
3PM= ADX 7 FX1
3Q6W HUNT 3,CPB,CUNI
3QLG EXIT 7 0
3R66 SPAR
3RKQ SBX 7 FX1
3S5B SPARAPAS
3SK2 MHUNT 3,CPB,CUNI
3T4L ADX 7 FX1
3TJ= EXIT 7 0
3W3W #
3WHG # #############################################################
3X36 #
3XGQ # K K 1
3Y2B # K K 11
3YG2 # K K 1
3Y^L # K K 1
3^F= # KKK 1
3^YW # K K 1
42DG # K K 1
42Y6 # K K 1
43CQ # K K 1
43XB #
44C2 # #############################################################
44WL #
45B= SENTRY1
45TW LDN 5 XLENGTH [LENGTH OF TABLE
46*G XLOOP
46T6 SMO 5
47#Q LDX 0 PARAM2-2(1)
47SB SLL 0 6
48#2 TXU 0 4
48RL BCC SWIT
49?= SBN 5 2
49QW BNZ 5 XLOOP
4==G BRN XERR
4=Q6 SWIT
4?9Q SMO 5
4?PB LDX 4 PARAM2-2(1)
4#92 BNG 4 SWIT1
4#NL TESTHKN XERR
4*8= SWIT1
4*MW SMO 5
4B7G BRN PARAM2-1
4BM6 #
4C6Q # ROUTINES FOR INDIVIDUAL PARAMS
4CLB #
4D62 XGEO
4DKL LDN 5 3
4F5= BRN PPPP
4FJW XNAM
4G4G LDN 5 1
4GJ6 BRN PPPP
4H3Q XGEN
4HHB LDN 5 2
4J32 BRN PPPP
4JGL XSER
4K2= LDN 5 0
4KFW BRN PPPP
4K^G XREE
4LF6 LDN 5 4
4LYQ BRN PPPP
4MDB XLAN
4MY2 LDN 5 5
4NCL BRN PPPP
4NX= XOWN
4PBW LDN 5 6
4PWG BRN PPPP
4QB6 XCHC
4QTQ LDX 4 ACHAP [CHAPTER CORE
4R*B BRN XDEC
4RT2 XPCO
4S#L LDX 4 COBJUSE [OBJ PROG CORE
4SS= ADX 4 COBJUSRT [INCL RT
4T?W BRN XDEC
4TRG XFCO
4W?6 LDX 4 CFREE [FREE CORE
4WQQ BRN XDEC
4X=B XBJB
4XQ2 LDX 4 JOBCOUNT [BACKGROUND JOBS
4Y9L BRN XDEC
4YP= XMJB
4^8W LDX 4 JOBCOUNT+1
4^NG BRN XDEC
5286 XPRO
52MQ LDX 4 ACTPROGS
537B BRN XDEC
53M2 XWFL
546L WORKNUMB 3
54L= LDX 4 3
555W BRN XDEC
55KG XCPL
5656 LDX 4 CPLEV(2) [CP LEVEL
56JQ BRN XDEC
574B XGCO
57J2 DOWN SETPG,2 [GEORGE CORE
583L BRN XITA [OK
58H= BRN XERR [PARAM ERROR
592W BRN XERR1 [NUMBER ERROR
59GG XJBQ
5=26 CALL 5 QNUM [DECODE QUAL NO
5=FQ BRUSEN XERR
5=^B FJOCA 3,FX2 [FIND JOB BLOCK
5?F2 TXL 4 ALOGLEN(3) [JBQ(NO) WITHIN JOB BL?
5?YL BCC XERR
5#D= LDX 0 4
5#XW SMO 4
5*CG LDX 4 JOBNUM(3) [LOAD REQD WD
5*X6 TXU 0 XURG(1)
5BBQ BCS XDEC
5BWB ANDN 4 #77
5CB2 DCH 4 AWORK1(2)
5CTL LDN 4 1
5D*= LDN 7 1
5DSW BRN XIT
5F24 ...XJDE
5F7= ... NOECHO
5F#G XJDR [ JDR
5FS6 LDX 0 CONTEXT(2)
5G?Q SRC 0 4
5GRB BPZ 0 XJDRA [J IF NOT MOP
5H?2 LDN 4 2
5HQL CALL 7 XHNT1
5J== LDX 4 ANUM(3)
5JPW BNG 4 XJDRN
5K9G BZE 4 XJDRN
5KP6 ANDN 4 #7777 [MASK FOR COUNT
5L8Q OUTPARAM 4,APARA,CPB,CUNI [OUTPUT MESS SPEC. AFTER JDR PARAM
5LNB BRN XJDRO
5M82 XJDRN
5MML OUTNULL
5N7= XJDRO
5NLW DOLPMON 4
5P6G DOSPMON
5PL6 READY XBREAK [WT FOR MOP I/P
5Q5Q DORPMON 4
5QKB MHUNTW 2,FILE,FRB
5R52 LDEX 4 A1(2) [RECORD HDR
5RJL LDX 5 A1+1(2) [RED TAPE
5S4= BNZ 4 XJDR1
5SHW LDN 7 0
5T3G CALL 3 XFREEFRB
5TH6 BRN XIT
5W2Q XJDRA
5WGB SLC 0 1
5X22 BPZ 0 XERR [NOT FILE
5XFL XJDRF
5X^= ALASHUNT 3,6
5YDW ADDREC 3,6
5YYG NGN 3 3
5^D6 READ 1(3) [READ RECORD
5^XQ MHUNTW 2,FILE,FRB
62CB LDEX 4 A1(2)
62X2 LDX 5 A1+1(2)
63BL BNZ 4 XJDR1 [END OF FILE
63W= BACKSPACE 1(3)
64*W XJDR3
64TG LDN 4 0
65*6 LDN 7 0
65SQ CALL 3 XFREEFRB
66#B BRN XIT
66S2 XJDR1
67?L SBN 4 2
67R= BZE 4 XJDR3 [J IF NO DATA
68=W ADN 4 2
68QG SETUPCORE 4,3,COMDAT,CSETP
69=6 ANDX 5 CACT [CHAR REMDR
69PQ SBN 4 2
6=9B BZE 5 XJDR2 [EXACT NR OF WDS
6=P2 SBN 4 1
6?8L XJDR2
6?N= ORS 5 4
6#7W SLC 4 2 [CONVERT TO CHAR CT
6#MG STO 4 ANUM(3)
6*76 MHUNTW 2,FILE,FRB [RELOCATE FRB
6*LQ LDEX 4 A1(2)
6B6B SBN 4 2
6BL2 ADN 2 A1+2
6C5L ADN 3 APARA
6CK= SMO 4
6D4W MOVE 2 0 [MOVE IN DATA
6DJG CALL 3 XFREEFRB
6F46 BRN XITA
6FHQ #
6G3B # ROUTINE FOR PRIVILEGED PROGRAM PERIPHERAL PARAMS
6GH2 # ON ENTRY :-
6H2L # X5 = 0 FOR SERIAL NUMBER
6HG= # 1 FOR NAME
6H^W # 2 FOR FGN
6JFG # 3 FOR GEOGNO
6J^6 # 4 FOR REC
6KDQ # 5 FOR LAN
6KYB #
6LD2 PPPP
6LXL LDN 4 2
6MC= CALL 7 XHNT
6MWW LDX 4 ANUM(3)
6NBG BNG 4 XERR
6NW6 BZE 4 XERR [NULL
6P*Q PERCONA
6PTB TESTREPN OK,XERR [FORMAT ERROR
6Q*2 LDX 4 CONTEXT(2)
6QSL ANDN 4 #400
6R#= BNZ 4 XERR
6RRW LDX 4 ACOMMUNE1(2)
6S?G FPCACA 3,FX2
6SR6 HUNT2 3,APERI,APERIRES [FIND PERIPHERAL RES BLK
6T=Q ADN 3 A1
6TQB FPERENT 4,3,2,7 [FIND PRB ENTRY
6W=2 BNG 2 XERR
6WPL LDXC 2 1(2)
6X9= BCS XOFFL
6XNW LDX 3 2
6Y8G LDX 0 5
6YN6 SBN 0 3
6^7Q BNZ 0 XMTC [NOT GEOGNO
6^MB XGG
7272 LGEOG 3,4
72LL BRN XDEC [CONVERT ETC
736= XMTC
73KW ... LDX 0 JK52C(2)
745G SRL 0 15
74K6 SBN 0 5
754Q BNZ 0 XERR
75JB XMTA
7642 SMO 5
76HL BRN XMSWIT
773= XMSWIT
77GW BRN XMSER
782G BRN XMNAM
78G6 BRN XMFGN
78^Q BRN XERR
79FB BRN XMREE
79^2 BRN XERR
7=DL BRN XERR
7=Y= XMSER
7?CW DFLOAD 3,TSN,4
7?XG BRN XOCT
7#C6 XMNAM
7#WQ XMFGN
7*BB XMREE
7*W2 OPENSYS XBREAK,DOCUMENT,READ [OPEN :SYS.DOC
7B*L LDX 7 3
7BT= SDSEARCH XMT3,CPPTR,7 [LOOK FOR REC. ACCORDING TO DEV LIST
7C#W SBN 5 1
7CSG BNZ 5 XMT4 [J UNLESS NAM
7D#6 LDN 0 3(3)
7DRQ SMO FX2
7F?B LDN 1 ACOMMUNE1
7FR2 MOVE 0 3 [MOVE NAME INTO AWORK WORDS
7G=L LDN 7 3
7GQ= BRN XMT5
7H9W XMT4
7HPG SBN 5 1
7J96 BNZ 5 XMT6 [J UNLESS GEN
7JNQ ADN 5 1
7K8B LDX 4 7(3) [LOAD GEN NO
7KN2 BRN XMT5
7L7L XMT6
7LM= LDX 4 6(3)
7M6W XMT5
7MLG CLOSE [CLOSE :SYS.DOC
7N66 BNZ 5 XDEC
7NKQ LDX 4 7
7P5B SLL 7 2
7PK2 BRN XITB
7Q4L XMT3
7QJ= CLOSE
7R3W BRN XERR
7RHG XOFFL
7S36 SBN 3 A1 [INITLISE PTR
7SGQ XFOLPA
7T2B LDX 3 FPTR(3) [NEXT BLK
7TG2 LDX 0 ATYPE(3)
7T^L TXL 0 CACT
7WF= BCS XFOLPA
7WYW SRL 0 12
7XDG SBN 0 AOLPT
7XY6 BZE 0 XFA [AOLPT BL FOUND
7YCQ GEOERR 1,OLPA
7YXB XFA
7^C2 BCT 7 XFOLPA [GO AROUND UNTIL CT OF OFFL ENTS EXHA
7^WL LDX 2 3
82B= LDX 0 ATMARK(2) [TYPE
82TW BZE 0 XFILE [FILE
83*G SBN 0 1
83T6 BZE 0 XDA [DIRECT ACCESS
84#Q SBN 0 1
84FY ... BZE 0 XMT
84M6 ... SBN 0 1
84SB BNZ 0 XERR
84TR ...#
84X8 ...#
84YK ...#
8522 ... LDN 0 #10
853C ... SMO FX2
854S ... ANDX 0 CONTEXT
8569 ... BNZ 0 XERR
857L ... NGN 0 2
8593 ... SFCB 0,3
85=D ... BRN XFILE1
85#2 #
85RL # PSEUDO-OFFLINE MAG TAPE
86?= #
86H4 ...XMT
86QW MTPTR 2,3
87=G SBN 5 3
87Q6 BZE 5 XGG [GEOGNO
889Q ADN 5 3
88PB BRN XMTA [JOIN REAL ONLINE CASE
8992 #
89NL # FILE CASE
8=8= #
8=MW XFILE
8?7G TOPFCBV 3,2 [FIND FCB
8?C# ...XFILE1
8?M6 LDX 2 FX2
8#6Q SMO 5
8#LB BRN XFSWIT
8*62 XFSWIT
8*KL BRN XERR
8B5= BRN XFNAM
8BJW BRN XFFGN
8C4G BRN XERR
8CJ6 BRN XFREE
8D3Q BRN XFLAN
8DHB BRN XFOWN
8F32 XFOWN
8FGL LDN 0 FUSER1(3)
8G2= BRN XTHR
8GFW XFNAM
8G^G LDN 0 FLOC1(3)
8HF6 XTHR
8HYQ LDN 7 12 [CHAR COUNT
8JDB LDN 4 3 [WD COUNT
8JY2 LDX 2 FX2
8KCL LDN 1 ACOMMUNE1(2)
8KX= SMO 7
8LBW MVCH 0 0 [MOVE LOCAL NAME TO AWORK1
8LWG BRN XITB
8MB6 XFFGN
8MTQ LDX 4 FGEN(3)
8N*B BRN XDEC
8NT2 XFREE
8P#L LDX 4 FREEL(3)
8PS= BRN XDEC
8Q?W XFLAN
8QRG LDX 0 FLAN(3)
8R?6 STO 0 AWORK1(2) [STORE
8RQQ LDN 4 1
8S=B LDN 7 4
8SQ2 BRN XIT [INSERT
8T9L #
8TP= # EXOFILES
8W8W #
8WNG XDA
8X86 LDX 6 EXNUM(2) [EXOFILE NUMBER
8XMQ FINDEXOF 1,6,XERR [LOCATE EWDAS,EXOF
8Y7B SMO 5
8YM2 BRN XDSWIT
8^6L XDSWIT
8^L= BRN XDSER
925W BRN XDNAM
92KG BRN XDFGN
9356 BRN XDGEO
93JQ BRN XERR
944B BRN XERR
94J2 BRN XERR
953L XDSER
95H= LDX 4 ASUSN(1)
962W BRN XOCT
96GG XDNAM
9726 LDN 0 FIP(1)
97FQ BRN XTHR [JOIN FILE CASE
97^B XDFGN
98F2 LDX 4 FIP+4(1)
98YL SRL 4 12
99D= BRN XDEC
99XW XDGEO
9=CG LDX 4 ASUSN(1)
9=X6 LDN 1 BCCB [BASE OF CCB CHAIN
9?BQ XDSKL
9?WB LDX 1 FPTR(1)
9#B2 TXU 1 CXCC [END OF CHAIN YET
9#TL BCC XERR [NOT FOUND
9**= LDX 0 ATYPE(1)
9*SW SRL 0 12
9B#G SBN 0 EWDAS+ASTUC
9BS6 BNZ 0 XDSKL [J NOT ASTUC
9C?Q LDX 0 BACK1(1)
9CRB SMO FX1
9D?2 ANDX 0 YDSK1 [REMOVE BIT 0
9DQL TXU 0 4
9F== BCS XDSKL
9FPW LDX 4 GEOGU(1) [LOAD GEOGU [LOAD GEOG
9G9G BRN XDEC [CONVERT TO DECIMAL
9GP6 #
9H8Q # DECIMAL CONVERSION
9HNB #
9J82 XDEC
9JML LDX 1 FX1
9K7= LDX 2 FX2
9KLW LDN 2 AWORK1(2) [RESULT ADDRESS
9L6G LDN 7 1 [INITIALISE COUNT
9LL6 BPZ 4 POZ [J IF RESULT NON-NEG
9M5Q ADN 7 1 [ELSE,UP CT FOR MINUS
9MKB NGX 4 4
9N52 BNG 4 SPECIAL [TREAT "#40000000#
9NJL LDX 6 MINUS(1)
9P4= DCH 6 0(2) [INSERT MINUS
9PHW BCHX 2 £ [STEP PTR
9Q3G POZ
9QH6 MPY 4 MAGIC(1) [CONVERT TO DL FRACTION
9R2Q LDN 0 7 [MAX NO OF DIGITS
9RGB MODE 0
9S22 XCDR
9SFL CBD 4 0(2)
9S^= LDCH 6 0(2)
9TDW BNZ 6 YOKO
9TYG BCT 0 XCDR [DO NEXT
9WD6 BRN WEND
9WXQ ONO
9XCB BCHX 2 £
9XX2 CBD 4 0(2) [CONVERT
9YBL ADN 7 1 [UPDATE CHAR CT
9YW= YOKO
9^*W BCT 0 ONO
9^TG WEND
=2*6 LDX 4 7
=2SQ ADN 4 3
=3#B SRL 4 2
=3S2 BRN XIT
=4?L SPECIAL
=4R= LDN 1 SPEC(1) [-8388608
=5=W MOVE 1 2
=5QG LDN 7 8
=6=6 LDN 4 2 [WORD CT
=6PQ BRN XIT
=79B #
=7P2 # OCTAL CONVERSION
=88L #
=8N= XOCT
=97W LDX 2 FX2
=9MG LDN 2 AWORK1(2)
==76 LDN 7 8
==LQ XOCT1
=?6B LDN 3 0
=?L2 SLL 34 3
=#5L DCH 3 0(2)
=#K= BCHX 2 £
=*4W BCT 7 XOCT1
=*JG LDN 7 8
=B46 LDN 4 2
=BHQ XIT
=C3B LDN 5 AWORK1
=CH2 XITC
=D2L ADN 4 2
=DG= SETUPCORE 4,3,COMDAT,CSETP [PARAM BLK
=D^W STO 7 ANUM(3)
=FFG BZE 7 XITA
=F^6 SMO 5
=GDQ LDN 1 0(2)
=GYB LDN 2 APARA(3)
=HD2 SMO 7
=HXL MVCH 1 0 [PARAM TO BE INSERTED
=JC= SBN 4 2
=JWW SLL 4 2
=KBG SBX 4 7
=KW6 BZE 4 XITA
=L*Q LDN 1 ACES
=LTB SMO 4
=M*2 MVCH 1 0
=MSL XITA
=N#= ... ACROSS SETPARAM,4
=NRW XITB
=P?G LDN 5 ACOMMUNE1
=PR6 BRN XITC
=Q=Q XERR1
=QQB LDX 7 PCHNUMERR(1) [ERROR CODE ...
=R=2 BRN XER1
=RPL XERR
=S9= LDX 7 PAPFERR(1)
=SNW XER1
=T8G SMO FX2
=TN6 LDX 4 AWORK4
=W7Q NGN 6 1
=WMB BZE 4 XER2
=X72 XJBD2
=XLL PARAFREE
=Y6= UNIFREE
=YKW LDX 2 FX2
=^5G LDX 0 AWORK3(2)
=^K6 STO 0 JOBEVENTS(2)
?24Q UP
?2JB XER2
?342 COMERRX 7,6
?3HL #
?43= PCHNUMERR +CHNUMERR
?4GW PAPFERR +APFERR
?52G PJSETP2 +JSETP2
?5G6 #
?5^Q XBREAK
?6FB COMBRKIN
?6^2 XJS1
?7DL LDX 0 JSOURCE1(2)
?7Y= BRN XJSO
?8CW XJS2
?8XG LDX 0 JSOURCE2(2)
?9C6 BRN XJSO
?9WQ XJS3
?=BB LDX 0 JSOURCE3(2)
?=W2 XJSO
??*L STO 0 AWORK1(2)
??T= LDN 4 1
?##W LDN 7 4
?#SG BRN XIT
?*#6 XRPT
?*RQ LDX 4 AMXMSK(2)
?B?B ANDX 4 YDSK2(1)
?BR2 SYNTHMON 4,1 [SET UP STR CONTAINING REP LEV
?C=L LDX 7 EXEC3(2)
?CQ= LDX 4 7
?D9W ADN 4 3
?DPG SRL 4 2
?F96 BRN XITB
?FNQ XREC
?G8B ACROSS SETPR,1
?GN2 XNOR
?H7L ACROSS SETPN,1
?HM= XCMS
?J6W DOWN SETPG,1
?JLG BRN XITA
?K66 #
?KKQ #
?L5B XPAR
?LK2 SMO FX2
?M4L STOZ AWORK2
?MJ= ACROSS SETPE,1
?N3W XDPA
?NHG NGN 6 1
?P36 SMO FX2
?PGQ STO 6 AWORK2
?Q2B ACROSS SETPE,1
?QG2 #
?Q^L # CODING FOR SP ,END
?RF= #
?RYW XEND
?SDG CALL 7 XP400 [LOCATE CPB/CALAS
?SY6 LDX 4 APARANUM(1) [NUMBER OF PARAMS
?TCQ ADN 4 1 [NEXT FREE ONE
?TXB XFINL
?WC2 LDX 1 FX1
?WWL BXL 4 XCON25(1),XDEC [SEE IF Y OR Z
?XB= NGN 4 1 [FAILED NONE FREE
?XTW BRN XDEC [SET REPLY
?Y*G #
?YT6 # CODING FOR SP ,NUL
?^#Q #
?^SB XNUL
#2#2 CALL 7 XP400 [LOCATE CPB/CALAS
#2RL LDN 4 1 [COUNT OF PARAMS
#3?= XHLP
#3QW LDX 5 APARAFIR(1) [PARAMETER DESCRIPTOR
#4=G BXE 5 GMINUS1,XFINL [END OF BLOCK OF PARAMS
#4Q6 ANDN 5 #7777 [SIZE IN CHARS
#59Q BZE 5 XFINL [THIS PARAM IS FREE
#5PB ADN 5 7 [ROUND TO WDS + DESCRIPTOR
#692 SRL 5 2 [SIZE IN WDS
#6NL ADX 1 5 [ADVANCE ADDRESS
#78= ADN 4 1 [ADVANCE COUNT
#7MW BRN XHLP [CONTINUE SEARCH
#87G XLDE
#8M6 ACROSS SETPF,1
#96Q XGLV
#9LB DOWN SETPG,3
#=62 BRN XITA
#=KL BRN XERR
#?5= XJBV
#?JW DOWN SETPG,4
##4G BRN XITA
##J6 BRN XERR
#*3Q #
#*HB XFREEFRB
#B32 MFREE FILE,FRB
#BGL EXIT 3 0
#C2= #
#CFW XJBD
#C^G DOWN SETJD,1
#DF6 BRN XBREAK
#DYQ BRN XJD1 [ERROR REPORTING
#FDB BRN XITA [SUCCESFUL RETURN
#FY2 XJD1
#GCL LDX 4 AWORK4(2)
#GX= LDX 6 ACOMMUNE2(2)
#HBW LDX 7 ACOMMUNE1(2)
#HWG BZE 4 XER2
#JB6 BRN XJBD2
#JTQ XPID
#K*B ACROSS SETPN,3
#KT2 XCLB
#L#L ACROSS SETPN,4
#LS= #
#M?W #END
^^^^ ...604531750004