|
DataMuseum.dkPresents historical artifacts from the history of: Bogika Butler |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Bogika Butler Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1792 (0x700)
Types: TextFile
Names: »MOVEA.SA«
└─⟦909f4eb2b⟧ Bits:30009789/_.ft.Ibm2.50006622.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »MOVEA.SA«
└─⟦ddcd65152⟧ Bits:30009789/_.ft.Ibm2.50006617.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »MOVEA.SA«
NOLIST
INCLUDE RR.FIOEQU.SA
LIST
NOFORMAT
TTL V 0.03 68K EOS PASCAL MOVE ADAPTABLE ARRAY
MOVEA IDNT 0,03 68K EOS PASCAL MOVE ADAPTABLE ARRAY
SECTION 8
*
*****************************************************************************
*
*
* FUNCTION:
* THE ROUTINE MOVES AN ADAPTABLE ARRAY
*
* REGISTERS:
* ON ENTRY:
*
* D0 LENGTH IF < 0 ODD ADDRESS -> BYTEMOVE IF > 0 WORDMOVE
* A0 ADDRESS TO MOVE FROM
* A1 ADDRESS TO MOVE TO
*
* MODIFIED REGISTERS
*
* 0 1 2 3 4 5 6 7
* A:
* D: *
*
* EXTERNALS:
*
* .PMOVEA DEF
*
*
***************************************************************************
*
XDEF .PMOVEA
* THE ROUTINE OUGHT TO BE ABLE TO MOVE MORE THAN 65K
.PMOVEA EQU * ENTRY POINT
TSTOUT 'MOVEA11',0,0,TSTRTS1
TST D0
IF <NE> THEN.S IF LENGTH <> 0
IF <LT> THEN.S IF LENGTH < 0
NEG.L D0 THEN
SUBQ.W #1,D0
MOVEA1 MOVE.B (A0)+,(A1)+ BYTEMOVE
DBF D0,MOVEA1
ELSE.S ELSE
ASR #1,D0
SUBQ.W #1,D0
MOVEA2 MOVE.W (A0)+,(A1)+ WORDMOVE
DBF D0,MOVEA2
ENDI END
ENDI END
RTS
END
«eof»