(GIN Macro)
Defined in: MACROS EWDAS
Used in: BRADDATA867, CHINTEG867, CONTRACT866, EXINONE867, IPBINB867, IPBSTARB867, IPBSTART867, NEWINST867, SCEX866, TWINSETB866
S8TQ # S9*B [??? MOVLONG S9T2 # ******* S=#L #MAC MOVLONG S=S= # S??W STO %A BSL1 [PRESERVE PARAMETERS S?RG STO %B BSL2 S#?6 STO %C BSL3 S#QQ MOVLONG1 S*=B SBX %C BSBS1 [SUBTRACT 513 S*Q2 BNG %C MOVLONG2 [J IF FINAL MOVE SB9L ADN %C 1 [ELSE MAKE SUBTRACTION 512 SBP= MOVE %A 0 [MOV'M'OUT SC8W ADX %A BSBS [UPDATE SCNG ADX %B BSBS SD86 BRN MOVLONG1 SDMQ MOVLONG2 SF7B ADX %C BSBS1 [RESTORE FOR FINAL MOVE SFM2 SMO %C SG6L MOVE %A 0 SGL= LDX %A BSL1 [RESTORE PARAMETERS SH5W LDX %B BSL2 SHKG LDX %C BSL3 SJ56 #NOR