FPROGMOVE
(GIN Macro)
Defined in: MACROS JSR
Used in:
- FPROGMOVE.mac.txt
FTTG ...#MACRO FPROGMOVE FTTQ ...#SKIP %F-%B-1 FTW2 ...! WRONG PARAMETERS FTW= ... STO 1 JWSP1 FTWG ... STO 2 JWSP2 [ DUMP ACCS. FTWQ ... OPTMOD %D,FX2,LDN 0 %C FTX2 ... STO 0 JWSP3 [ -> OUT LOCKDOWN LIST. FTX= ... OPTMOD %H,FX2,LDN 1 %G FTXG ... STO 1 JWSP4 [ -> IN LOCKDOWN LIST FTXQ ... SBX %F 1(1) FTY2 ... ADX %F 2(1) [ ABSOLUTE IN ACC FTY= ... NGX 0 %F FTYG ... ANDN 0 #1777 FTYQ ... BZE 0 MFP1 FT^2 ... LDN 0 1024 FT^= ...MFP1 BXL 0 %I,MFP2 FT^G ... LDX 0 %I FT^Q ...MFP2 STO 0 JWSP6 [ = MIN(LENGTH,END OF PAGE) IN. FW22 ... LDX 1 JWSP3 FW2= ... SBX %B 1(1) FW2G ... ADX %B 2(1) [ ABSOLUTE OUT ACC. FW2Q ... NGX 1 %B FW32 ... ANDN 1 #1777 FW3= ... BZE 1 MFP3 FW3G ... LDN 1 1024 FW3Q ...MFP3 BXL 1 %I,MFP4 FW42 ... STO 1 JWSP5 [ MIN(LENGTH,END OF PAGE) OUT. FW4= ...MFP4 FW4G ... LDN 2 0 FW4Q ... BXL 1 0,MFP5 FW52 ... LDN 2 1 FW5= ... LDX 1 0 [ X1 = MIN FW5G ...MFP5 FW5Q ... ACCSTO %I,JWSP5(2) FW62 ... MOVE %B 0(1) [ MOVE TO FIRST PAGE BOUNDARY FW6= ... BXE 1 %I,MFP7 [ NOT NECESSARY FW6G ...MFP6 SBS 1 JWSP5 FW6Q ... SBS 1 JWSP6 FW72 ... SMO JWSP3(2) FW7= ... LDX 0 3 FW7G ... STO 0 %B(2) [ UPDATE FIRST ACC FW7Q ... ERN 2 1 FW82 ... ADS 1 %B(2) [ UPDATE SECOND ACC. FW8= ... LDX 1 JWSP5(2) FW8G ... BZE 1 MFP7A FW8Q ... MOVE %B 0(1) FW92 ...MFP7A FW9= ... BNG 2 MFP7 FW9G ... ORX 2 GSIGN FW9Q ... BRN MFP6 FW=2 ...MFP7 FW== ... LDX 1 JWSP1 FW=G ... LDX 2 JWSP2 FW=Q ...#NORMAL