REMOVE

(GIN Macro)

Defined in: MACROS JSR

Used in: DTSTART867, IPBCCA867, SCHEDMTX867

REMOVE.mac.txt

 F#Q? ...[ TO MOVE (OR MVCH) UP TO 1024 WORDS (OR CHARS) 
 F#Q# ...#MAC  REMOVE
 F#Q* ...#SKI  %A<%B$%A  
 F#QB ...(   
 F#QC ...[                                   REVERSE ACCS IF A>B 
 F#QD ...      REMOVE   %B,%A,%C,%D,%F,%E,%G 
 F#QF ...#EXI
 F#QG ...)   
 F#QH ...#STR  MVCH,%D   
 F#QJ ...#SKI
 F#QK ...(   
 F#QL ...      TXL   %C B513 
 F#QM ...      BCS      MREMOVE1            [J IF <513 TO MOVE   
 F#QN ...      MVCH  %A 0
 F#QP ...MREMOVE1
 F#QQ ...      MOD      MVCH %A 0,%C 
 F#QR ...#EXI
 F#QS ...)   
 F#QT ...#STR  %E%F  
 F#QW ...(   
 F#QX ...      MOD      MOVE %A 0,%C 
 F#QY ...      SBN   %C 512  
 F#Q^ ...      ADX   %A %C   
 F#R2 ...      ADX   %B %C                  [READY FOR NEXT MOVE IF ANY  
 F#R3 ...      BNG   %C MREMOVE2 
 F#R4 ...      BZE   %C MREMOVE2            [J IF ALL MOVED  
 F#R5 ...      MOVE  %A 0                   [MOVE THE REST   
 F#R6 ...MREMOVE2                           [NOW UPDATE ACCS AS REQUIRED 
 F#R7 ...#STR  %E,S  
 F#R8 ...      ADN   %A 512  
 F#R9 ...#STR  %E,N  
 F#R= ...      SBX   %A %C   
 F#R? ...#STR  %F,S  
 F#R# ...      ADN   %B 512  
 F#R* ...#STR  %F,N  
 F#RB ...      SBX   %B %C   
 F#RC ...#STR  %G
 F#RD ...      ADN   %C 512  
 F#RF ...#EXI
 F#RG ...)   
 F#RH ...      TXL   %C B513 
 F#RJ ...      BCS      MREMOVE3            [ IF CAN BE DONE IN ONE MOVE 
 F#RK ...      MOVE  %A 0
 F#RL ...      ADN   %A 512  
 F#RM ...      ADN   %B 512  
 F#RN ...MREMOVE3
 F#RP ...      MOD      MOVE %A 0,%C 
 F#RQ ...#NOR