{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: SWITCH867)}}
====== SWITCH867 ======
(George Source)
**Macros used:** [[george:macro:ABANDCOM|ABANDCOM]], [[george:macro:ACROSS|ACROSS]], [[george:macro:BXGE|BXGE]], [[george:macro:CCOUT|CCOUT]], [[george:macro:CLBGROP|CLBGROP]], [[george:macro:CLWTBSW|CLWTBSW]], [[george:macro:CLWTBWR|CLWTBWR]], [[george:macro:COMERRX|COMERRX]], [[george:macro:DOWN|DOWN]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:ERRORX|ERRORX]], [[george:macro:FINDPEREC|FINDPEREC]], [[george:macro:GEOERR|GEOERR]], [[george:macro:GROPEREC|GROPEREC]], [[george:macro:HDWRTE|HDWRTE]], [[george:macro:HLSINFORM|HLSINFORM]], [[george:macro:HUNTW|HUNTW]], [[george:macro:INFORMX|INFORMX]], [[george:macro:JANON|JANON]], [[george:macro:JDISENG|JDISENG]], [[george:macro:JENV|JENV]], [[george:macro:JENVNOT|JENVNOT]], [[george:macro:JMT|JMT]], [[george:macro:JNANON|JNANON]], [[george:macro:JNWTBSW|JNWTBSW]], [[george:macro:JSWIN|JSWIN]], [[george:macro:JSWOUT|JSWOUT]], [[george:macro:LAMOP|LAMOP]], [[george:macro:LGEOG|LGEOG]], [[george:macro:LINT|LINT]], [[george:macro:LONGWAIT|LONGWAIT]], [[george:macro:LTYPE|LTYPE]], [[george:macro:MFREEW|MFREEW]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:NAME|NAME]], [[george:macro:OUTNUM|OUTNUM]], [[george:macro:OUTPARAM|OUTPARAM]], [[george:macro:OUTPARN|OUTPARN]], [[george:macro:PARAMOVE|PARAMOVE]], [[george:macro:PARANUMB|PARANUMB]], [[george:macro:PARSORT|PARSORT]], [[george:macro:PMT|PMT]], [[george:macro:SAWCEJX|SAWCEJX]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETBGROP|SETBGROP]], [[george:macro:SETHOLD|SETHOLD]], [[george:macro:SPARAPAS|SPARAPAS]], [[george:macro:SWIN|SWIN]], [[george:macro:SWINLIN|SWINLIN]], [[george:macro:SWOUT|SWOUT]]
22FL #SEG SWITCH
22^= 8HSWITCH
2394 ...# (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982.
23DW #OPT K0SWITCH=0
23YG #LIS K0SWITCH>K0ALLGEO>K0GREATGEO>K0COMMAND
24D6 [
24XQ [
25CB SEGENTRY K1SWITCH,X1SWITCH
26W= [
27*W [ K1 IMPLEMENTS THE SWITCH COMMAND
27TG [ AWORK2 -VE FOR IN +VE FOR OUT
29#B [
2=?L PSTR 4H00IN
2=M* ... 4H0OUT
2?34 ...PDMNXX 4H00XX
2?BR ...PMT +5
2?QG PSMLCC +11
2#=6 PIPB +24
2#PQ ...PDA +26
2*9B ...PTEN +10
2CX# ...PJCANTSWI +JCANTSWI [CANT BE SW IN
2D76 PJSETP8 +JSETP8 [1ST
2DLQ PJPARMIS +JPARMIS [PARAM MISSING
2F6B PAPFERR +APFERR [FORMAT ERROR
2FL2 PJENV +JENVMUSTBE [COMM MUST BE IN ENV
2G5L PCME +JENVCME [CME
2GK= ...PJENVNOT +JENVMUSTNT
2H4W ...PJENVNOTS +JENVNOTS
2HJG ...PJNREM +JNREMOTE
2K3B PSWIN +JUNITSWI [SWITCHED IN
2KH2 ... +JUNITCSWI
2L^W PJNMI +JUNLMSWI [UNIT.LINE SWITCHED IN
2M^6 PJIREJ +JSWIREJ [SWITCH IN REJECTED
2N25 ...PJIREJA +JSWIREJA
2N34 ...PJEMUL +JEMULC
2N43 ...PJGFMT +JGRFLMT
2N52 ...PJNGRP +JNOTGROP
2N5^ ...PJNONAN +JNONANON
2N6Y ...PJNOTC1 +JNOTCLUS1
2N7X ...PJMTDK +JMTDECK
2N8W ...PJCCE +JNOTCCE
2N9T ...PJMPOI +JMPOFFINO
2N=S ...PJMU +JMOPUNIT
2N?R ...PJST +JRES1
2N#Q ...PJBSW +JBESWIN
2N*P ...#
2NBN ...PDEVS
2NCM ...#HAL AMXOR+ADEVS,0
2NDQ [
2NYB [
2PD2 X1SWITCH
2PXL JENVNOT YENV,CME
2QC= SPARAPAS [GET 1ST PARAM
2QWW MHUNT 3,CPB,CUNI
2RBG LDX 0 ANUM(3)
2RW6 BNG 0 Y1 [J IF 1ST PARAM MISSING
2S*Q BZE 0 Y1 [OR NULL
2STB ANDN 0 #7777
2T*2 SBN 0 2
2TSL BNG 0 Y2 [FORMAT ERROR
2TYH ... SBN 0 1
2W4D ... BZE 0 SSWO
2W8* ... BPZ 0 Y2
2W#= LDX 0 APARA(3)
2WRW SRL 0 12
2X?G TXU 0 PSTR(1)
2XR6 BCC SSWIN [J IF SW IN
2XW= ... BRN Y2
2X^B ...SSWO
2Y4G ... LDX 0 APARA(3)
2Y7L ... SRL 0 6
2Y=Q TXU 0 PSTR+1(1)
2YQB BCC SSWOU [J IF SW OUT
2^=2 BRN Y2
2^PL SSWIN
329= NGN 0 1
32NW BRN SSTO
338G SSWOU
33N6 LDN 0 6
347Q SSTO
34MB STO 0 AWORK2(2)
34PK ... BNG 0 SST1
34RS ... ACROSS DUMMYB,1
34W3 ...SST1
34Y= ... LDN 6 0
352F ... PARANUMB 4,6
354N ... STO 4 AWORK1(2)
355T ... MHUNT 3,CPB,CUNI
3572 LDX 0 ANUM(3)
35LL ANDN 0 #7777
366= PARAMOVE 0 [THROW AWAY 1ST PARAM
369P ... LDX 0 CONTEXT(2)
36*8 ... ANDN 0 #210
36DM ... BZE 0 SPAR
36J6 ... JENVNOT YENV1,CMESTAR
36WH ...SPAR PARSORT YBRKN,ALL,INCOUT,SMLCC,GROPE,DEVMN
3722 ... STOZ AWORK1(2)
375G SNEXT
37K6 HUNTW 3,CPAR,JSCE
384Q ... BNG 3 SRI
38JB ... SAWCEJX JSCEB(3),S1,S2,S1
3942 S1
395? ... LDX 0 CONTEXT(2)
396J ... ANDN 0 #210
397T ... BNZ 0 YNREM
3998 ... LDX 0 JSCEB(3)
39BB ... STO 0 AWORK4(2)
39HL LDX 3 JSCEP(3) [LOAD DEVICE LIST POINTER
3=3= ... BRN VIN
3=GW ...S2
3?2G ... JENV YENVN,CME,EXCL
3?G6 ... BRN WPARAM
3#^2 SEC
3*DL ENDCOM
3*Y= [
3BCW SRI
3BXG HUNTW 3,CPAR,JJSCE
3CC6 BNG 3 SACRO [ANY JJSCE BLOCKS
3CWQ NAME 3,CPAR,JSCE
3DBB STOZ 4 [INDICATE WE'VE FOUND ONE
3DW2 BRN SRI
3F*L SACRO
3FT= BNG 4 SEC [NONE FOUND - END
3G#W ACROSS RIGHT,4
42DG TFREE
42Y6 MFREEW CPAR,JSCE
43CQ BRN SNEXT
43XB [
5=FQ [
5=^B [ SWITCH IN
5?F2 [
5?YL VIN
5#4H ... JENV VIN1,CME,EXCL
5#8D ... BNG 3 VNFOUND
5##* ...VIN1
5#D= JNWTBSW 3,VSWIT [J IF NOT W.T.B. SW OUT
5#XW CLWTBSW 3 [CLEAR W.T.B. SW OUT BITS
5*CG CLWTBWR 3
5CTL VSWIT
5DSW LTYPE 3,4
5F#G TXU 4 PSMLCC(1)
5FS6 BCC VLINE [J IF UN.LM TO SWITCH IN
5FSK ... JENV VSW4,CME,EXCL
5FT4 ... TXU 4 PIPB(1)
5FTH ... BCS VSW1
5FW2 ... LAMOP 3,5
5FWF ... J7900E 5,Y7900E
5FWY ...VSW1
5FXC ... TXU 4 PMT(1)
5FXW ... BCS VSW2
5FY* ... HUNTW 3,CPAR,JSCE
5FYS ... LDX 0 JSCEB(3)
5F^? ... TXU 0 PDMNXX(1)
5F^Q ... BCC YMTDK
5G29 ... LDX 3 JSCEP(3)
5G2N ... JNFSTCL 3,YMT
5G37 ...VSW2
5G3Y JSWIN 3,VMESSA
5G4X ... LGEOG 3,4
5G5W ... SWINSTAR 3,AWORK4(2),4,VREJ
5G6T ...VSW3
5G7S ... CALL 7 ZHLS
5G8R ... BRN VMESS
5G9Q ...VSW4
5G=P ... JSWIN 3,VMESSA
5G?Q SWIN 3,YBRKN,VREJ
5GRB VMESS
5H?2 LDX 6 PSWIN(1)
5HQL CALL 7 ZMESS
5J2D LTYPE 3,4
5J== TXU 4 PDA(1)
5JPW BCC VDA [J IF DA DEVICE
5JS5 ... JENV VJSCE,CME,EXCL
5JW# ... JMT 3,VMT
5JYH ... HUNTW 3,CPAR,JSCE
5K2Q ... STOZ JSCEB(3)
5K4^ ... BRN VNAME
5K78 ...VJSCE
5K9G HUNTW 3,CPAR,JSCE
5KF# ...VNAME
5KP6 NAME 3,CPAR,JJSCE [HIDE CPAR BLOCK
5L8Q BRN SNEXT
5LNB [
5LRG VMESSA
5LRT ... STOZ 4
5LS8 ... JENV VMESSC,CME,EXCL
5LSH ... JMT 3,VMESSB
5LSW ... BRN VMESSC
5LT9 ...VMESSB
5LTJ ... ADN 4 1
5LTX ...VMESSC
5LW= ... SMO 4
5LWL LDX 6 PSWIN(1)
5L^Q CALL 7 ZMESS
5M4W BRN TFREE
5M82 [
5MML VLINE
5MXD ... JENV YENVN,CMESTAR
5N7= HUNTW 2,CPAR,JSCE
5NLW LDX 5 JSCEB(2)
5P6G ... BPZ 5 Y4
5PL6 SRL 5 9
5Q5Q ANDN 5 #77 [LINE NO. IN X5
5QKB LDX 2 FX2
5R52 SWINLIN 3,5,VREJ [SWITCH IN LINE
5RJL LDX 6 PJNMI(1)
5S4= CALL 7 ZMSSL
5SHW BRN TFREE
5T3G [
5TH6 [
5W2Q VDA
5W=J JDISENG 3,TFREE
5WGB SETHOLD 3
5X22 STO 3 AWORK3(2)
5X4K ... JENV VDA1,CME,EXCL
5X78 ... HUNTW 3,CPAR,JSCE
5X9R ... STOZ JSCEB(3)
5X#B ... LDX 3 AWORK3(2)
5XB^ ...VDA1
5XFL DOWN CARTCONT,2
63BL BRN TFREE
63B^ ...
63C# ...
63CM ...VMT
63D2 ... STO 3 AWORK3(2)
63D* ... HUNTW 3,CPAR,JSCE
63DN ... STOZ JSCEB(3)
63F3 ... NAME 3,CPAR,JJSCE
63FB ... LDX 3 AWORK3(2)
63FP ... LNOMTCL 3,5
63G4 ... STO 5 AWORK4(2)
63GC ...VMT1
63GQ ... LDN 0 1
63H5 ... SBS 0 AWORK4(2)
63HD ... LDX 0 AWORK4(2)
63HR ... BZE 0 SNEXT
63J6 ... CALL 7 ZNXTDK
63JF ... BRN SNEXT
63JS ... CLBGROP 3
63K7 ... CLWTBSW 3
63KG ... CLWTBWR 3
63KT ... JANON 3,VMT1
63L8 ... STO 3 AWORK3(2)
63LH ... CALL 7 ZSETUP
63LW ... HUNTW 3,CPAR,JSCE
63M9 ... NAME 3,CPAR,JJSCE
63MJ ... LDX 3 AWORK3(2)
63MX ... CALL 7 ZHLS
63N= ... LDX 6 PSWIN(1)
63NK ... CALL 7 ZMESS
63NY ... BRN VMT1
63P? ...
63PL ...
63P^ ...VNFOUND
63Q# ... MHUNTW 3,CPAR,JSCE
63QM ... LDX 4 JSCEA(3)
63R2 ... SRL 4 18
63R* ... CALL 7 ZFINDPEREC
63RN ... BRN YNONAN
63S3 ... SETBGROP 3
63SB ... STO 3 AWORK3(2)
63SP ... STOZ AWORK1(2)
63T4 ... TXU 4 PMT(1)
63TC ... BCS VNF2
63TQ ...VNF1
63W5 ... CALL 7 ZNXTDK
63WD ... BRN VNF2
63WR ... SETBGROP 3
63X6 ... BRN VNF1
63XF ...VNF2
63XS ... HUNTW 3,CPAR,JSCE
63Y7 ... LDX 0 AWORK3(2)
63YG ... STO 0 JSCEP(3)
63YT ... LDX 4 JSCEA(3)
63^8 ... ANDN 4 #777
63^H ... LDX 3 AWORK3(2)
63^W ... SWINSTAR 3,AWORK4(2),4,VREJ1
6429 ... GROPEREC 3,APDEV,4
642J ... BNG 3 VGFL
642X ... LTYPE 3,4
643= ... TXU 4 PMT(1)
643K ... BCS VSW3
643Y ... LNOMTCL 3,5
644? ... STO 5 AWORK4(2)
644L ...VNFMT
644^ ... LDN 0 1
645# ... SBS 0 AWORK4(2)
645M ... LDX 0 AWORK4(2)
6462 ... BZE 0 VNFMT1
646* ... CALL 7 ZNXTDK
646N ... BRN VNFMT1
6473 ... STO 3 AWORK1(2)
647B ... LINT 3,4
647P ... GROPEREC 3,APINT,4
6484 ... BNG 3 VGFL2
648C ... BRN VNFMT
648Q ...VNFMT1
6495 ... LDX 3 AWORK3(2)
649D ... BRN VSW3
649R ...VGFL
64=6 ... LDX 3 AWORK3(2)
64=F ... JSWOUT 3,VREJ2
64=S ... CALL 7 ZSWOUT
64?7 ... BRN VREJ2
64?G ...VGFL2
64?T ... LDX 3 AWORK1(2)
64#8 ... JSWOUT 3,YMTGFL
64#H ... CALL 7 ZSWOUT
64#W ... BRN YMTGFL
64*W [
64TG [
65*6 VREJ
65SQ LDX 6 PJIREJ(1)
66#B CALL 7 ZMESS
66S2 BRN TFREE
66SR ...VREJ1
66TJ ... CLBGROP 3
66W* ... LDX 6 PJIREJA(1)
66X6 ... CALL 7 ZMSS
66XX ... BRN VEND
66YN ...VREJ2
66^F ... LDX 6 PJIREJ(1)
672= ... CALL 7 ZMSS
6733 ... TXU 3 AWORK1(2)
673S ... BCC VNFMT
674K ...VEND
675B ... LTYPE 3,4
6767 ... TXU 4 PMT(1)
676Y ... BCS TFREE
677P ...VEND1
678G ... CALL 7 ZNXTDK
679? ... BRN TFREE
67=4 ... CLBGROP 3
67=T ... BRN VEND1
67?L [
79FB [
79FL ...WPARAM
79FW ... LDX 2 3
79G6 ... LDCT 0 #600
79GB ... ERS 0 JSCEP(2)
79GL ... LAMOP JSCEP(2),3
79GW ... JN7900E 3,YCCE
79H6 ... LDX 6 JSCEA(2)
79HB ... ANDN 6 #7777
79HL ... CALL 5 ZDEVS
79HW ... BRN YMPOI
79J6 ... LDX 4 6
79JB ... SBX 4 A1+FOURTHWD(2)
79JL ... SLL 4 2
79JW ... ADN 4 A1
79K6 ... ADX 2 4
79KB ... LDX 0 FOURTHWD(2)
79KL ... ANDN 0 #17
79KW ... BZE 0 YMU
79L6 ... SBN 0 10
79LB ... BZE 0 YMU
79LL ... LDX 0 BIT11
79LW ... ANDX 0 FOURTHWD(2)
79M6 ... BZE 0 WMESS
79M7 ... LDX 0 FOURTHWD(2)
79M8 ... ANDN 0 #17
79M9 ... SBN 0 5
79M= ... BZE 0 WROPER
79MB ... LDX 0 BPTR(2)
79ML ... BNZ 0 YST
79MQ ...WROPER
79MW ... LDN 0 #200
79N6 ... ANDX 0 FOURTHWD(2)
79NB ... BNZ 0 YST
79NL ... LDX 0 BIT9
79NW ... ANDX 0 FOURTHWD(2)
79P6 ... BZE 0 YST
79PB ... CALL 7 ZOBT
79PL ... BRN WREJ
79PW ...WMESS
79Q6 ... LDX 6 PSWIN(1)
79QB ... BRN WMESS1
79QL ...WREJ
79QW ... LDX 6 PJIREJ(1)
79R6 ...WMESS1
79RB ... LDX 2 FX2
79RL ... LDN 5 #210
79RW ... ANDX 5 CONTEXT(2)
79S6 ... BZE 5 WOUTC
79SB ... LDN 5 0
79SL ... BRN WOUT
79SW ...WOUTC
79T6 ... LDN 5 1
79TB ...WOUT
79TL ... CALL 7 ZIPAR
79TW ... CALL 7 ZMSID
79W6 ... BRN TFREE
79WB ...WBI
79WL ... LDN 5 #10
79WW ... ANDX 5 CONTEXT(2)
79X6 ... BZE 5 WBIAB
79XB ... LDX 6 PJBSW(1)
79XL ... LDN 5 1
79XW ... CALL 7 ZIPAR
79Y6 ... CALL 7 ZMSID
79YB ...WBIAB
79YL ... ABANDCOM
79^2 [
7=DL [
7=Y= [
7?CW [ ERROR LABELS
7?XG [
7#C6 YENV
7#WQ LDX 7 PCME(1) [NOT IN CME
7*BB LDX 6 PJENV(1)
7*W2 YCMER
7B*L COMERRX 6,7
7BT= Y1
7C#W LDX 7 PJSETP8(1) [1ST PARAMETER MISSING
7CSG LDX 6 PJPARMIS(1)
7D#6 BRN YCMER
7DRQ Y2
7F?B LDX 6 PAPFERR(1) [FORMAT ERROR
7FH8 ...Y2ERR
7FR2 COMERRX 6
7FWX ...YENV1
7G2S ... LDX 6 PJENVNOT(1)
7G6P ... BRN Y2ERR
7G=L YBRKN
7GQ= GEOERR 1,BISWITCH
7H9W ...YSWOF
7HPG ... GEOERR 1,SWOUTF
7J*3 ...Y4
7JDY ... LDX 6 PJCANTSWI(1)
7JJT ... BRN YERRS
7JPM ...YMT
7JWF ... LDX 6 PJNOTC1(1)
7K3? ... BRN YERRS
7K85 ...YMTDK
7K#X ... LDX 6 PJMTDK(1)
7KFP ... BRN YERRS
7KLH ...Y7900E
7KR* ... LDX 6 PJEMUL(1)
7KY7 ... BRN YERRS
7L4^ ...YENVN
7L9R ... LDX 6 PJENVNOTS(1)
7LBK ... BRN YERRS
7LCR ...YNREM
7LD^ ... LDX 6 PJNREM(1)
7LG7 ... BRN YERRS
7LHC ...YCCE
7LN9 ... LDX 6 PJCCE(1)
7LT3 ... BRN YERRS
7L^T ...YMPOI
7M6M ... LDX 6 PJMPOI(1)
7M?F ... BRN YERRS
7MD? ...YMU
7MK5 ... LDX 6 PJMU(1)
7MPX ... BRN YERRS
7MWP ...YST
7N3H ... LDX 6 PJST(1)
7N8* ... BRN YERRS
7N*7 ...YNONAN
7NF^ ... HUNTW 3,CPAR,JSCE
7NLR ... LDX 6 PJNONAN(1)
7NRK ... LDN 0 2
7NYC ... CALL 7 ZOUTP
7P59 ... BRN YERR2
7P=3 ...YMTGFL
7PBT ... HDWRTE 3,6
7PHM ... LDN 3 3
7PNF ...YGFL1
7PT? ... STOZ 5
7Q25 ... SLL 56 4
7Q6X ... TXL 5 PTEN(1)
7Q?P ... BCS YGFL2
7QDH ... ADN 5 #27
7QK* ...YGFL2
7QQ7 ... SLL 5 2
7QW^ ... SLL 56 4
7R3R ... LDX 7 5
7R8K ... ANDN 7 #17
7R*C ... TXL 7 PTEN(1)
7RG9 ... BCS YGFL3
7RM3 ... ADN 5 #27
7RRT ...YGFL3
7RYM ... SLL 5 12
7S5F ... STO 5 AWORK1(2)
7S=? ... OUTPARN 2,AWORK1
7SC5 ... BCT 3 YGFL1
7SHX ... LDX 6 PJGFMT(1)
7SNP ... CALL 7 ZMS2
7STH ... BRN VNFMT
7T2B [
7TG2 YERRS
7T^L ... CALL 7 ZIPAR
7WF= ...YERR2
7XY6 ERRORX 6
7YCQ MFREEW CPAR,JSCE
7YXB BRN SNEXT
7^C2 [
7^WL [
82B= [ SUBROUTINES
82TW [
83*G [
83T6 ZMESS
84#Q LGEOG 3,4
84SB ...ZMSS
85#2 SBX 7 FX1
85RL OUTNUM 4,0
86?= ZMS1
86QW LDN 5 0
872N ...ZMS1A
87=G INFORMX 5,6,1
87Q6 ADX 7 FX1
889Q EXIT 7 0
88*M ...ZMS2
88FJ ... SBX 7 FX1
88KF ... BRN ZMS1
88PB ZMSSL
8992 SBX 7 FX1
89NL LGEOG 3,4
8=8= OUTNUM 4,0
8?7G OUTNUM 5,0
8?M6 BRN ZMS1
8?MS ...ZMSID
8?NG ... SBX 7 FX1
8?P8 ... BRN ZMS1A
8?PW ...
8?QJ ...ZIPAR
8?R= ... MHUNTW 3,CPAR,JSCE
8?RY ... LDX 0 JSCEQ(3)
8?SL ... ANDN 0 #7777
8?T# ...ZOUTP
8?W2 ... SBX 7 FX1
8?WN ... OUTPARAM 0,JSCER,CPAR,JSCE
8?XB ... ADX 7 FX1
8?Y4 ... EXIT 7 0
8?YQ ...
8?^D ...ZDEVS
8#26 ... LDX 2 3
8#2S ...ZDE
8#3G ... LDX 2 FPTR(2)
8#48 ... LDX 0 ATYPE(2)
8#4W ... BXGE 0 CACT,(5)
8#5J ... TXU 0 PDEVS(1)
8#6= ... BCS ZDE
8#6Y ... EXIT 5 1
8#7L ...
8#8# ...
8#92 ...
8#9N ...
8#=B ...
8#?4 ...
8#?Q ...ZOBT
8##D ... SBX 7 FX1
8#*6 ... LDCT 0 #420
8#*S ... ANDX 0 IPBSW(3)
8#BG ... BNZ 0 YMPOI
8#C8 ... LDN 0 #200
8#CW ... ORS 0 FOURTHWD(2)
8#DJ ... LDX 2 FX2
8#F= ... LDN 0 #134
8#FY ... STO 0 ACOMMUNE1(2)
8#GL ... CCOUT 6,3
8#H# ...ZO1
8#J2 ... CALL 5 ZDEVS
8#JN ... BRN YMPOI
8#KB ... ADX 2 4
8#L4 ... LDN 0 #200
8#LQ ... ANDX 0 FOURTHWD(2)
8#MD ... BZE 0 ZO2
8#N6 ... LDCT 0 #20
8#NS ... SMO IPBRING(3)
8#PG ... ANDX 0 IPBSW-IPBRING
8#Q8 ... BNZ 0 ZO3
8#QW ... LONGWAIT WBI,IPBRELWS
8#RJ ... BRN ZO1
8#S= ...ZO2
8#SY ... ADX 7 FX1
8#TL ... LDX 0 FOURTHWD(2)
8#W# ... SLL 0 11
8#X2 ... BNG 0 (7)
8#XN ... EXIT 7 1
8#YB ...ZO3
8#^4 ... ADX 7 FX1
8#^Q ... EXIT 7 0
8*2D ...
8*36 ...
8*3S ...ZFINDPEREC
8*4G ... FINDPEREC 3,APFOTY,4,ZNEXTDEV,AV7900,,ZF1
8*58 ... BNG 3 ZFEX2
8*5W ... JNANON 3,ZNEXTDEV
8*6J ...ZF1
8*7= ... JGROPFL 3,ZNEXTDEV
8*7Y ... TXU 4 PMT(1)
8*8L ... BCS ZFEX1
8*9# ... JNFSTCL 3,ZNEXTDEV
8*=2 ...ZFEX1
8*=N ... EXIT 7 1
8*?B ...ZFEX2
8*#4 ... EXIT 7 0
8*#Q ...
8**D ...ZHLS
8*B6 ... SBX 7 FX1
8*BS ... LTYPE 3,4
8*CG ... HLSINFORM YBRKN,SWITCH,,4
8*D8 ... ADX 7 FX1
8*DW ... EXIT 7 0
8*FJ ...
8*G= ...ZNXTDK
8*GY ... LCHLP 3,6
8*HL ... LINT 3,4
8*J# ... ADN 4 1
8*K2 ... TXL 4 BDTL
8*KN ... BCC ZNXTD1
8*LB ... LDX 3 BDTP
8*M4 ... SMO 4
8*MQ ... LDX 3 0(3)
8*ND ... LCHLP 3,4
8*P6 ... TXU 4 6
8*PS ... BCS ZNXTD1
8*QG ... EXIT 7 1
8*R8 ...ZNXTD1
8*RW ... EXIT 7 0
8*SJ ...
8*T= ...ZSETUP
8*TY ... SBX 7 FX1
8*WL ... HUNTW 3,CPAR,JJSCE
8*X# ... LDX 6 ALOGLEN(3)
8*Y2 ... SETUPCOR 6,4,CPAR,JSCE
8*YN ... HUNTW 3,CPAR,JJSCE
8B2Q ... LDX 6 JSCEQ(3)
8B3D ... ANDN 6 #7777
8B46 ... ADN 6 3
8B4S ... SRL 6 2
8B5G ... ADN 6 6
8B5P ... ADN 3 A1
8B5Y ... ADN 4 A1
8B68 ... SMO 6
8B6W ... MOVE 3 0
8B79 ... SBN 4 A1
8B7J ... LDX 1 4
8B8= ... LDX 3 AWORK3(2)
8B8Y ... STO 3 JSCEP(1)
8B9L ... LDX 4 JSCEA(1)
8B=# ... SRL 4 18
8B?2 ... SLL 4 18
8B?N ... STO 4 JSCEA(1)
8B#B ... LGEOG 3,4
8B*4 ... ORS 4 JSCEA(1)
8B*Q ... LDX 1 FX1
8BBD ... ADX 7 FX1
8BC6 ... EXIT 7 0
8BCS ...
8BDG ...ZSWOUT
8BF8 ... SBX 7 FX1
8BFW ... SWOUT 3,YBRKN,YSWOF
8BGJ ... ADX 7 FX1
8BH= ... EXIT 7 0
8BJW #END
^^^^ ...272573510013