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