home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / FORTH / SOURCE / AUXMOVE.ASS < prev    next >
Encoding:
Text File  |  1995-07-12  |  850 b   |  44 lines  |  [04] ASCII Text (0x0000)
  1. ( AUX MEM SUPPORT )
  2.  
  3. HEX
  4.  
  5. 7 OBJECT AUXMOVE ( SRC-ADR-LO SRC-ADR-HI TGT-ADR DIRECTION -- ) 
  6.     BOT LDA,       \ SRC-ADR-LO L
  7.     1 PARM STA,
  8.     BOT 1+ LDA,    \ SRC-ADR-LO H
  9.     2 PARM STA,
  10.     BOT 2+ LDA,    \ SRC-ADR-HI L 
  11.     3 PARM STA,
  12.     BOT 3+ LDA,    \ SRC-ADR-HI H
  13.     4 PARM STA,
  14.     BOT 4 + LDA,   \ TGT-ADR    L
  15.     5 PARM STA,
  16.     BOT 5 + LDA,   \ TGT-ADR    H
  17.     6 PARM STA,
  18.     BOT 6 + LDA,   \ DIRECTION (0=AUX2MAIN 1=MAIN2AUX)
  19.     7 PARM STA,
  20. OBJ-CODE
  21.     1 PARM LDA,
  22.     3C STA,
  23.     2 PARM LDA,
  24.     3D STA,
  25.     3 PARM LDA,
  26.     3E STA,
  27.     4 PARM LDA,
  28.     3F STA,
  29.     5 PARM LDA,
  30.     42 LDA,
  31.     6 PARM LDA,
  32.     43 STA,
  33.     7 PARM LDA,
  34.     0= IF,
  35.        CLC,
  36.     ELSE,
  37.        SEC,
  38.     THEN,
  39.     C311 JSR,
  40. OBJ-END
  41.  
  42. : MAIN2AUX ( SRC-ADR-LO SRC-ADR-HI TGT-ADDR)  1 AUXMOVE ;
  43. : AUX2MAIN ( SRC-ADR-LO SRC-ADR-HI TGT-ADDR)  0 AUXMOVE ;
  44.