{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: INMOVEZ)}}
====== INMOVEZ ======
(GIN Macro)
**Defined in:** [[george:source:MACROS_JSRG4|MACROS JSRG4]]
**Used in:**
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