(GIN Macro)
Defined in: MACROS EWDAS
Used in: CLOSDEL867, CONTRACT866, EXINTWO866, SCEXEND867
F3D= # F3XW [??? CHUCK F4CG # ***** F4X6 #MAC CHUCK F5BQ # F5WB #OPT MCHUCK1=0 F6B2 #OPT MCHUCK2=0 F6TL #STR C,%A F7*= #SKI F7SW CALL 0 MCHUCK3 F8#G #STR W,%A F8S6 #SKI F9?Q CALL 0 MCHUCK4 F9RB LDX 0 %B F=?2 #STR C,%A F=QL #SKI F?== ( F?PW #SKI MCHUCK1-1 F#9G ( F#P6 #FRE MCHUCK1 F*8Q #DEF MCHUCK1=1 F*NB BRN MCHUCK5 FB82 MCHUCK6 FBML #DEF MCHUCK3=MCHUCK6 FC7= STO 1 EWK+1(3) FCLW STO 0 ETLINK(3) FD6G SMO 0 FDL6 OBEY 0 FF5Q STO 0 EWK(3) FFKB CALL 0 MFTRANC FG52 BRN MTRANERR FGJL #SKI K6EXOFILE>199-199 FH4= ( FHHW SMO A1+2(1) FJ3G LDN 0 0 FJH6 BZE 0 MTRANERR FK2Q ) FKGB LDN 0 1 FL22 SBS 0 A1+2(1) FLFL LDX 0 ETLINK(3) FL^= LDX 1 EWK+1(3) FMDW EXIT 0 1 FMYG TRANERR FND6 FTRANC FNXQ MCHUCK5 FPCB ) FPX2 ) FQBL #STR W,%A FQW= #SKI FR*W ( FRTG #SKI MCHUCK2-1 FS*6 ( FSSQ #FRE MCHUCK2 FT#B #DEF MCHUCK2=1 FTS2 BRN MCHUCK8 FW?L MCHUCK9 FWR= #DEF MCHUCK4=MCHUCK9 FX=W STO 1 EWK+1(3) FXQG STO 0 ETLINK(3) FY=6 SMO 0 FYPQ OBEY 0 F^9B SRL 0 7 F^P2 STO 0 EWK(3) G28L CALL 0 MFTRANW G2N= BRN MTRANERR G37W #SKI K6EXOFILE>199-199 G3MG ( G476 SMO A1+2(1) G4LQ LDN 0 0 G56B BZE 0 MTRANERR G5L2 ) G65L LDN 0 1 G6K= SBS 0 A1+2(1) G74W LDX 0 ETLINK(3) G7JG LDX 1 EWK+1(3) G846 EXIT 0 1 G8HQ TRANERR G93B FTRANW G9H2 MCHUCK8 G=2L ) G=G= ) G=^W #NOR