SETPC867
(George Source)
Macros used: ACROSS, ADDREC, ALASHUNT, BACKSPACE, BRUSEN, BXE, BXL, CHNUMCOD, CLOSE, COBJUSE, COBJUSRT, COMBRKIN, COMERRX, DFLOAD, DOLPMON, DORPMON, DOSPMON, DOSPTEXT, DOWN, FINDEXOF, FJOCA, FPCACA, FPERENT, FREECORE, GEOERR, HUNT, HUNT2, LGEOG, MFREE, MHUNT, MHUNTW, MTPTR, OPENSYS, OUTNULL, OUTPARAM, PARAFREE, PARANEXT, PARAPASS, PERCONA, READ, READY, SDSEARCH, SEG, SEGENTRY, SETUPCORE, SFCB, SPARANXT, SPARAPAS, SYNTHMON, TESTHKN, TESTREP, TESTREP2, TOPFCBV, UNIFREE, UP, WORKNUMB
- SETPC867.txt
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 <PARAM>,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 <PARAM>,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