(George Source)
Macros used: ABANDCOM, BXGE, CCOUT, CLWTBSW, CLWTBWR, COMERRX, COOR3, DFJUMPS, DOWN, ENDCOM, ERRORX, FPUT, FREECORE, GEOERR, GETACT, HUNTW, INFORMX, IPBANON, JALLOC, JANON, JCAFSDV, JENV, JENVNOT, JEXOTIC, JMNBWR, JMT, JSWOUT, JV7900, JWRONG, JWTBSW, LADDP, LAMOP, LGEOG, LINKSET, LINT, LONGWAIT, LTYPE, MFREEW, MHUNT, MHUNTW, MONOUTX, MOPSTATE, OUTNUM, OUTPARAM, OUTPER, PAIR, PARAMOVE, PARANUMB, PARSORT, PMT, SAWCEJX, SEGENTRY, SETALLOC, SETWTBSW, SETWTBWR, SWOUT, SWOUTLIN, TWAIT, UNLOAD, WRONG, YWRONG
22FL #SEG DUMMYB 22^= [ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1983 23DW [ 23YG #OPT K0DUMMYB=0 24D6 #LIS K0DUMMYB>K0ALLGEO 24XQ 8HDUMMYB 25CB [ 25X2 26BL SEGENTRY K1DUMMYB,X1DUMMYB 26W= 27*W 27TG 28*6 #DEF REDONBIT=#100 28SQ PMT +5 29#B PSMLCC +11 29S2 PIPB +24 2=?L PDA +26 2=R= PTEN +10 2?=W PDMNXX 4H00XX 2?QG PLINK 2#=6 PAIR CARTCONT,5 2#PQ PJWATWR +JWATWR 2*9B PJWATSW +JWATSW 2*P2 PJCANTSW +JCANTSW 2B8L PJENVNOT +JENVMUSTNT 2BN= PJENVNOTS +JENVNOTS 2C7W PESYS +ESYS 2CMG PERED +ERED 2D76 PECG +ECG 2DLQ PCAFS +ECAFS 2F6B PJMOP +JMOPONER 2FL2 PSWOU +JUNITSWO 2G5L +JUNITCSWO 2GK= PJWR +JWRONG 2H4W PJNMO +JUNLMSWO 2HJG PJOREJ +JSWOREJ 2J46 PJEMUL +JEMULC 2JHQ PJNOTC1 +JNOTCLUS1 2K3B PJMTDK +JMTDECK 2KH2 PJNUNFD +JNUNITFD 2L2L PJMPOI +JMPOFFINO 2LG= PJST +JRES1 2L^W PJCC +JCCUSE 2MFG PJREQ +JSWOREQ 2M^6 PJMU +JMOPUNIT 2NDQ PJCCE +JNOTCCE 2NYB PJNREM +JNREMOTE 2PD2 PJMREJ +JMOPREJ 2PXL PJBSW +JBESWOUT 2QC= # 2QWW PDEVS 2RBG #HAL AMXOR+ADEVS,0 2RW6 2S*Q 2STB X1DUMMYB 2T*2 LDN 6 0 2TSL PARANUMB 4,6 2W#= STO 4 AWORK1(2) 2WRW MHUNT 3,CPB,CUNI 2X?G LDX 0 ANUM(3) 2XR6 ANDN 0 #7777 2Y=Q PARAMOVE 0 2YQB LDX 0 CONTEXT(2) 2^=2 ANDN 0 #210 2^PL BZE 0 SPAR 329= JENVNOT YENV1,CMESTAR 32NW LDX 0 AWORK1(2) 338G STOZ AWORK1(2) 33N6 SBN 0 1 347Q BZE 0 W7900E 35LL SPAR PARSORT YBRKN,ALL,INCOUT,SMLCC,GROPE,DEVMN 366= STOZ AWORK1(2) 36KW SNEXT 375G HUNTW 3,CPAR,JSCE 37K6 BNG 3 SEND 384Q SAWCEJX JSCEB(3),S1,S2,S1 38JB S1 3942 LDX 0 CONTEXT(2) 39HL ANDN 0 #210 3=3= BNZ 0 YNREM 3=GW LDX 0 JSCEB(3) 3?2G STO 0 AWORK4(2) 3?G6 LDX 3 JSCEP(3) 3?^Q BRN TOUT 3#FB S2 3#^2 JENV YENVN,CME,EXCL 3*DL BRN WPARAM 3*Y= SEND 3BCW ENDCOM 3BXG 3CC6 3CWQ 3DBB 3DW2 TOUT 3F*L JENV TOUT3,CME,EXCL 3FT= BNG 3 YNFND 3G#W LTYPE 3,4 3GSG TXU 4 PIPB(1) 3H#6 BCS TOUT1 3HRQ LAMOP 3,5 3J?B J7900E 5,Y7900E 3JR2 TOUT1 3K=L TXU 4 PMT(1) 3KQ= BCS TOUT3 3L9W HUNTW 3,CPAR,JSCE 3LPG LDX 0 JSCEB(3) 3M96 TXU 0 PDMNXX(1) 3MNQ BCC YMTDK 3N8B LDX 3 JSCEP(3) 3NN2 JNFSTCL 3,YMT 3P7L LNOMTCL 3,5 3PM= STO 5 AWORK4(2) 3Q6W TOUT3 3QLG LGEOG 3,4 3R66 BZE 4 Y3 3RKQ JSWOUT 3,TMESS 3S5B LTYPE 3,4 3SK2 TXU 4 PSMLCC(1) 3T4L BCC TLINE 3TJ= STO 3 AWORK3(2) 3W3W HUNTW 3,CPAR,JSCE 3WHG STOZ JSCEB(3) 3X36 LDX 3 AWORK3(2) 3XGQ TXU 4 PDA(1) 3Y2B BCC TCART 3YG2 TXU 4 PIPB(1) 3Y^L BCC T7900 3^F= TOUT4 3^YW JALLOC 3,TALLOC 42DG JWRONG 3,TSWITCH 42Y6 JMT 3,TSWMT 43CQ JEXOTIC 3,TDIS 43XB CHECKFLA 3,TDIS 44C2 BRN Y3 44WL 45B= TDIS 45TW DISENGPE 3 46*G TWR 46T6 CLWTBWR 3 47#Q WRONG 3 47SB TWR1 48#2 LDX 6 PJWR(1) 48RL CALL 7 ZMESS 49?= TSWITCH 49QW JENV TSWOUT,CME,EXCL 4==G JMT 3,TSWMT1 4=Q6 BRN TSWOUT 4?9Q TSWMT1 4?PB SETWTBSW 3 4#92 STO 3 AWORK1(2) 4#NL LDX 3 AWORK3(2) 4*8= LNOMTCL 3,5 4*MW JWRONG 3,TSWMT2 4B7G BRN TSWMT6 4BM6 TSWMT2 4C6Q SBN 5 1 4CLB BZE 5 TSWMT3 4D62 CALL 7 ZNXTDK 4DKL BRN TSWMT3 4F5= JWRONG 3,TSWMT2 4FJW BRN TSWMT6 4G4G TSWMT3 4GJ6 LDX 3 AWORK3(2) 4H3Q LNOMTCL 3,5 4HHB TSWMT4 4J32 SBN 5 1 4JGL BZE 5 TSWMT5 4K2= CALL 7 ZNXTDK 4KFW BRN TSWMT5 4K^G CLWTBSW 3 4LF6 BRN TSWMT4 4LYQ TSWMT5 4MDB LDX 3 AWORK3(2) 4MY2 BRN TSWOUT 4NCL TSWMT6 4NX= LDX 3 AWORK1(2) 4PBW LDX 6 PJWATSW(1) 4PWG CALL 7 ZMESS 4QB6 BRN TFREE 4QTQ TSWOUT 4R*B CLWTBSW 3 4RT2 SWOUT 3,YBRKN,TREJ 4S#L TMESS 4SS= STOZ 4 4T?W JENV TMESS2,CME,EXCL 4TRG JMT 3,TMESS1 4W?6 BRN TMESS2 4WQQ TMESS1 4X=B ADN 4 1 4XQ2 TMESS2 4Y9L SMO 4 4YP= LDX 6 PSWOU(1) 4^8W CALL 7 ZMESS 4^NG TFREE 5286 JENV TFREE1,CME,EXCL 52MQ LTYPE 3,4 537B TXU 4 PMT(1) 53M2 BCS TFREE1 546L JSWOUT 3,TFREE1 54L= TNXTMT 555W LDN 0 1 55KG SBS 0 AWORK4(2) 5656 LDX 0 AWORK4(2) 56JQ BZE 0 TFREE1 574B CALL 7 ZNXTDK 57J2 BRN TFREE1 583L JANON 3,TNXTMT 58H= BRN TOUT4 592W TFREE1 59GG MFREEW CPAR,JSCE 5=26 BRN SNEXT 5=FQ 5=^B 5?F2 TCART 5?YL JWTBSW 3,TWTBSW 5#D= LADDP 3,2 5#XW LDXC 0 BSUNIT2(2) 5*CG BCS YUSSY 5*X6 JCAFSDV 3,YCAFS 5BBQ LDCT 0 REDONBIT 5BWB ANDX 0 BSUNIT(2) 5CB2 BNZ 0 YRED 5CTL LDN 0 BCGCOM 5D*= ANDX 0 BSUNIT3(2) 5DSW BNZ 0 YCART 5F#G LDX 0 BSUNIT3(2) 5FS6 SRC 0 4 5G?Q BNG 0 YTWIN 5GRB SETWTBSW 3 5H?2 LDN 0 BSWOUT 5HQL ORS 0 BSUNIT3(2) 5J== GETACT ACTDOC 5JPW LDX 2 BPTR(2) 5K9G STO 3 CPPTR(2) 5KP6 LINKSET 2,PLINK(1) 5L8Q FPUT 5LNB BRN TFREE 5M82 5MML 5N7= TLINE 5NLW JENV YENVN,CMESTAR 5P6G HUNTW 2,CPAR,JSCE 5PL6 LDX 5 JSCEB(2) 5Q5Q BPZ 5 Y3 5QKB SRL 5 9 5R52 ANDN 5 #77 5RJL LDX 2 FX2 5S4= SWOUTLIN 3,5 5SHW LDX 6 PJNMO(1) 5T3G CALL 7 ZMSSL 5TH6 BRN TFREE 5W2Q 5WGB 5X22 T7900 5XFL JV7900 3,Y3 5X^= MOPSTATE 3,6,AMOP,2 5YDW LDX 5 2 5YYG LDX 2 FX2 5^D6 BNG 6 T79WR 5^XQ BZE 6 YMPON 62CB LDX 7 6 62X2 SBN 7 5 63BL BZE 7 T79WR 63W= ANDN 6 1 64*W BNZ 6 YMPON 64TG BRN TALLOC 65*6 T79WR 65SQ LDX 2 5 66#B IPBANON TWAIT 66S2 YWRONG YBRKN,Y3,3 67?L BRN TDIS 67R= TWAIT 68=W COOR3 #62 68QG BRN T79WR 69=6 69PQ 6=9B TALLOC 6=P2 JMNBWR 3,TWTBSW 6?8L SETWTBWR 3 6?N= LDX 6 PJWATWR(1) 6#7W CALL 7 ZMESS 6#MG TWTBSW 6*76 SETWTBSW 3 6*LQ LDX 6 PJWATSW(1) 6B6B CALL 7 ZMESS 6BL2 BRN TFREE 6C5L 6CK= 6D4W TSWMT 6DJG DFJUMPS 3,LOAD,TTAPE 6F46 BRN TWR 6FHQ TTAPE 6G3B SETALLOC 3 6GH2 SETWTBWR 3 6H2L SETWTBSW 3 6HG= UNLOAD 3,,,UNL 6H^W BRN TFREE 6JFG 6J^6 6KDQ TREJ 6KYB LDX 6 PJOREJ(1) 6LD2 CALL 7 ZMESS 6LXL BRN TFREE 6MC= 6MWW 6NBG W7900E 6NW6 STOZ AWORK2(2) 6P*Q HUNTW 2,AMXOR,ADCB 6PTB BNG 2 WOPER 6Q*2 LDX 3 IADIN(2) 6QSL JN7900E 3,YCCE 6R#= LDX 6 IDENTNO(2) 6RRW LDX 4 A1+FPTR(2) 6S?G CALL 5 ZDEVS 6SR6 BRN YMPOI 6T=Q SBX 4 2 6TQB ADX 2 4 6W=2 CALL 7 ZREL 6WPL BRN WMOP 6X9= DOWN IPBMOPB,1 6XNW MHUNTW 2,AMXOR,ADCB 6Y8G STOZ A1+BPTR(2) 6YN6 LDX 2 A1+FPTR(2) 6^7Q STOZ BPTR(2) 6^MB LDX 2 FX2 7272 MFREEW AMXOR,ADCB 72LL ENDCOM 736= WMOP 73KW LDX 6 PJMREJ(1) 745G MONOUTX 6 74K6 ENDCOM 754Q 75JB 7642 76HL WOPER 773= LDX 2 FX2 77GW LAMOP CPPTR(2),3 782G JN7900E 3,YCCE 78G6 LDX 6 JSOURCE1(2) 78^Q ANDN 6 #7777 79FB BRN WBATCH 79^2 7=DL WPARAM 7=Y= STOZ AWORK2(2) 7?CW LDX 2 3 7?XG LDCT 0 #600 7#C6 ERS 0 JSCEP(2) 7#WQ LAMOP JSCEP(2),3 7*BB JN7900E 3,YCCE 7*W2 LDX 6 JSCEA(2) 7B*L ANDN 6 #7777 7BT= 7C#W WBATCH 7CSG CALL 5 ZDEVS 7D#6 BRN YMPOI 7DRQ LDX 4 6 7F?B SBX 4 A1+FOURTHWD(2) 7FR2 SLL 4 2 7G=L ADN 4 A1 7GQ= 7H9W ADX 2 4 7HPG LDX 0 FOURTHWD(2) 7J96 ANDN 0 #17 7JNQ BZE 0 YMU 7K8B SBN 0 10 7KN2 BZE 0 YMU 7L7L ADN 0 5 7LM= BNZ 0 WB1 7M6W LDX 0 GSIGN 7MLG SMO FX2 7N66 STO 0 AWORK2 7NKQ WB1 7P5B LDX 0 FOURTHWD(2) 7PK2 SLC 0 1 7Q4L BNG 0 YCC 7QJ= SLC 0 7 7R3W BNG 0 YCC 7RHG SLC 0 3 7S36 BNG 0 WMESS 7SGQ SLC 0 5 7T2B BNG 0 YREQ 7TG2 SRC 0 10 7T^L ANDN 0 3 7WF= BZE 0 WB2 7WYW LONGWAIT WBI,#62 7XDG CALL 5 ZDEVS 7XY6 BRN YMPOI 7YCQ ADX 2 4 7YXB BRN WB1 7^C2 WB2 7^WL SMO FX2 82B= LDX 0 AWORK2 82TW BNG 0 WB3 83*G LDX 0 BPTR(2) 83T6 BZE 0 WB3 84#Q LDX 0 FOURTHWD(2) 84SB BNG 0 YST 85#2 WB3 85RL CALL 7 ZREL 86?= BRN WREJ 86QW SMO FX2 87=G LDX 0 AWORK2 87Q6 BZE 0 WMESS 889Q LDX 0 BPTR(2) 88PB BZE 0 WMESS 8992 SBN 0 A1+FPTR 89NL SMO 0 8=8= LDXC 5 IWAIT 8=MW BCC WMESS 8?7G LDX 1 0 8?M6 WACT 8#6Q LDX 1 BPTR(1) 8#LB LDX 0 ATYPE(1) 8*62 TXL 0 CACT 8*KL BCS WACT 8B5= LDX 2 1 8BJW LDX 1 FX1 8C4G FPUT 8CJ6 WMESS 8D3Q LDX 6 PSWOU(1) 8DHB BRN WMESS1 8F32 WREJ 8FGL LDX 6 PJOREJ(1) 8G2= WMESS1 8GFW LDX 2 FX2 8G^G LDN 5 #210 8HF6 ANDX 5 CONTEXT(2) 8HYQ BZE 5 WOUTC 8J5Y ... LDX 0 AWORK2(2) 8J?6 ... BNG 0 WOUTC 8JDB LDN 5 0 8JY2 BRN WOUT 8KCL WOUTC 8KX= LDN 5 1 8LBW WOUT 8LWG CALL 7 ZIPAR 8MB6 CALL 7 ZMSID 8MTQ HUNTW 3,CPAR,JSCE 8N*B BNG 3 SNEXT 8NT2 FREECORE 3 8P#L BRN SNEXT 8PS= WBI 8Q?W LDN 5 #10 8QRG ANDX 5 CONTEXT(2) 8R?6 BZE 5 WBIAB 8RQQ LDX 6 PJBSW(1) 8S=B LDN 5 1 8SQ2 CALL 7 ZIPAR 8T9L CALL 7 ZMSID 8TP= WBIAB 8W8W ABANDCOM 8WNG 8X86 8XMQ 8Y7B 8YM2 8^6L YENV1 8^L= LDX 6 PJENVNOT(1) 925W COMERRX 6 92KG YBRKN 9356 GEOERR 1,BISWITCH 93JQ Y3 944B LDX 6 PJCANTSW(1) 94J2 BRN YERRS 953L 95H= YUSSY 962W LDX 6 PESYS(1) 96GG BRN YERRS 9726 YCAFS 97FQ LDX 6 PCAFS(1) 97^B BRN YERRS 98F2 YRED 98YL LDX 6 PERED(1) 99D= BRN YERRS 99XW YCART 9=CG LDX 6 PECG(1) 9=X6 BRN YERRS 9?BQ YMT 9?WB LDX 6 PJNOTC1(1) 9#B2 BRN YERRS 9#TL YMTDK 9**= LDX 6 PJMTDK(1) 9*SW BRN YERRS 9B#G Y7900E 9BS6 LDX 6 PJEMUL(1) 9C?Q BRN YERRS 9CRB YNFND 9D?2 LDX 6 PJNUNFD(1) 9DQL BRN YERRS 9F== YENVN 9FPW LDX 6 PJENVNOTS(1) 9G9G BRN YERRS 9GP6 YNREM 9H8Q LDX 6 PJNREM(1) 9HNB BRN YERRS 9J82 YTWIN 9JML GEOERR 1,NOTCME 9K7= YMPON 9KLW LDX 6 PJMOP(1) 9L6G BRN YERRS 9LL6 YCCE 9M5Q LDX 6 PJCCE(1) 9MKB BRN YERRS 9N52 YMU 9NJL LDX 6 PJMU(1) 9P4= BRN YERRS 9PHW YMPOI 9Q3G LDX 6 PJMPOI(1) 9QH6 BRN YERRS 9R2Q YCC 9RGB LDX 6 PJCC(1) 9S22 BRN YERRS 9SFL YREQ 9S^= LDX 6 PJREQ(1) 9TDW BRN YERRS 9TYG YST 9WD6 LDX 6 PJST(1) 9WXQ BRN YERRS 9XCB 9XX2 YERRS 9YBL CALL 7 ZIPAR 9YW= YERR2 9^*W ERRORX 6 9^TG MFREEW CPAR,JSCE =2*6 BRN SNEXT =2SQ =3#B =3S2 =4?L =4R= =5=W ZMESS =5QG LGEOG 3,4 =6=6 ZMSS =6PQ SBX 7 FX1 =79B OUTNUM 4,0 =7P2 ZMS1 =88L LDN 5 0 =8N= ZMS1A =97W INFORMX 5,6,1 =9MG ADX 7 FX1 ==76 EXIT 7 0 ==LQ ZMS2 =?6B SBX 7 FX1 =?L2 BRN ZMS1 =#5L ZMSSL =#K= SBX 7 FX1 =*4W LGEOG 3,4 =*JG OUTNUM 4,0 =B46 OUTNUM 5,0 =BHQ BRN ZMS1 =C3B ZMSID =CH2 SBX 7 FX1 =D2L BRN ZMS1A =DG= =D^W =FFG ZNXTDK =F^6 LCHLP 3,6 =GDQ LINT 3,4 =GYB ADN 4 1 =HD2 TXL 4 BDTL =HXL BCC ZNXTD1 =JC= LDX 3 BDTP =JWW SMO 4 =KBG LDX 3 0(3) =KW6 LCHLP 3,4 =L*Q TXU 4 6 =LTB BCS ZNXTD1 =M*2 EXIT 7 1 =MSL ZNXTD1 =N#= EXIT 7 0 =NRW =P?G =PR6 =Q=Q ZDEVS =QQB LDX 2 3 =R=2 ZDE =RPL LDX 2 FPTR(2) =S9= LDX 0 ATYPE(2) =SNW BXGE 0 CACT,(5) =T8G TXU 0 PDEVS(1) =TN6 BCS ZDE =W7Q EXIT 5 1 =WMB =X72 =XLL ZIPAR =Y6= SBX 7 FX1 =YKW HUNTW 3,CPAR,JSCE =^5G BNG 3 ZIP1 =^K6 LDX 0 JSCEQ(3) ?24Q ANDN 0 #7777 ?2JB OUTPARAM 0,JSCER,CPAR,JSCE ?342 BRN ZIP2 ?3HL ZIP1 ?43= OUTPER ?4GW ZIP2 ?52G ADX 7 FX1 ?5G6 EXIT 7 0 ?5^Q ?6FB ?6^2 ?7DL ?7Y= ?8CW ?8XG ZREL ?9C6 SBX 7 FX1 ?9WQ LDCT 0 #420 ?=BB ANDX 0 IPBSW(3) ?=W2 BNZ 0 YMPOI ??*L LDN 0 #200 ??T= ORS 0 FOURTHWD(2) ?##W LDX 2 FX2 ?#SG LDN 0 #133 ?*#6 STO 0 ACOMMUNE1(2) ?*RQ CCOUT 6,3 ?B?B ZR1 ?BR2 CALL 5 ZDEVS ?C=L BRN YMPOI ?CQ= ADX 2 4 ?D9W LDN 0 #200 ?DPG ANDX 0 FOURTHWD(2) ?F96 BZE 0 ZR2 ?FNQ LDCT 0 #20 ?G8B SMO IPBRING(3) ?GN2 ANDX 0 IPBSW-IPBRING ?H7L BNZ 0 ZR3 ?HM= LONGWAIT WBI,IPBRELWS ?J6W BRN ZR1 ?JLG ZR2 ?K66 ADX 7 FX1 ?KKQ LDX 0 FOURTHWD(2) ?L5B SLL 0 11 ?LK2 BPZ 0 (7) ?M4L EXIT 7 1 ?MJ= ZR3 ?N3W ADX 7 FX1 ?NHG EXIT 7 0 ?P36 ?PGQ #END ^^^^ ...317573310008