SWITCH867
(George Source)
Macros used: ABANDCOM, ACROSS, BXGE, CCOUT, CLBGROP, CLWTBSW, CLWTBWR, COMERRX, DOWN, ENDCOM, ERRORX, FINDPEREC, GEOERR, GROPEREC, HDWRTE, HLSINFORM, HUNTW, INFORMX, JANON, JDISENG, JENV, JENVNOT, JMT, JNANON, JNWTBSW, JSWIN, JSWOUT, LAMOP, LGEOG, LINT, LONGWAIT, LTYPE, MFREEW, MHUNT, MHUNTW, NAME, OUTNUM, OUTPARAM, OUTPARN, PARAMOVE, PARANUMB, PARSORT, PMT, SAWCEJX, SEGENTRY, SETBGROP, SETHOLD, SPARAPAS, SWIN, SWINLIN, SWOUT
- SWITCH867.txt
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