INMOVEZ
(GIN Macro)
Defined in: MACROS JSRG4
Used in:
- INMOVEZ.mac.txt
5^D6 #MAC INMOVEZ [J.S.RAYNER GEORGE 4 ONLY 5^XQ STO 1 JWSP1 [SAVE X1,X2 62CB STO 2 JWSP2 62X2 LDX 0 %C [GEORGE ADDRESS 63BL STO 0 JWSP4 63W= LDX 0 %D [LENGTH OF MOVE 64*W STO 0 JWSP5 64TG STOZ JWSP6 65*6 LDX 0 %B [OBJ PROG ADDR 65SQ LDX 1 %A [PCA ADDR 66#B LDX 2 0 66S2 #STR MOVE,%F 67?L ANDN 0 #1777 67R= #STR MVCH,%F 68=W ANDX 0 BN2T13 68QG STO 0 JWSP3 69=6 #STR MVCH,%F 69PQ SLC 0 2 6=9B ADX 0 JWSP5 6=P2 #STR MOVE,%F 6?8L SBN 0 1024 6?N= #STR MVCH,%F 6#7W SBX 0 BIT11 6#MG BNG 0 MINMOVEZ1 6*76 SBS 0 JWSP5 [LENGTH OF FIRST MOVE 6*LQ STO 0 JWSP6 [LENGTH OF SECOND MOVE 6B6B MINMOVEZ1 6BL2 CALL 0 (HFIRST1) 6C5L ORX 0 JWSP3 [SET UP X0,1 FOR MOVE 6CK= #STR IN,%E 6D4W ( 6DJG LDX 1 0 6F46 LDX 0 JWSP4 6FHQ ) 6G3B #STR OUT,%E 6GH2 LDX 1 JWSP4 6H2L SMO JWSP5 6HG= #STR MOVE,%F 6H^W MOVE 0 0 6JFG #STR MVCH,%F 6J^6 ( 6KDQ MVCH 0 0 6KYB #STR IN,%E 6LD2 STO 0 JWSP4 6LXL #STR OUT,%E 6MC= STO 1 JWSP4 6MWW ) 6NBG LDX 0 JWSP6 6NW6 BZE 0 MINMOVEZ2 6P*Q CALL 0 (HNEXT) 6PTB #STR IN,%E 6Q*2 ( 6QSL LDX 1 0 6R#= LDX 0 JWSP4 6RRW #STR MOVE,%F 6S?G ADX 0 JWSP5 6SR6 ) 6T=Q #STR OUT,%E 6TQB ( 6W=2 LDX 1 JWSP4 6WPL #STR MOVE,%F 6X9= ADX 1 JWSP5 6XNW ) 6Y8G SMO JWSP6 6YN6 #STR MOVE,%F 6^7Q MOVE 0 0 6^MB #STR MVCH,%F 7272 MVCH 0 0 72LL MINMOVEZ2 736= LDX 1 JWSP1 73KW LDX 2 JWSP2 745G #NOR