|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4724 (0x1274)
Notes: pts_type(SC)
Names: »QEMOVE.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/QEMOVE.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/QEMOVE.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/QEMOVE.SC«
IDENT QEMOVE DATATRANSP. BUFFER <--> UWB
**
* CALLING SEQUENCE: CALL QEMOVE,OUTPUT-ITEM,INPUT-ITEM,LENGTH(BYTES)*
**
ENTRY QEMOVE
EXTRN I:EVA0
EXTRN I:RT1
QEMOVE EQU *
**
* GET PARAMETERS *
**
CF A14,I:EVA0 GET ADDRES OUTPUT-ITEM
LDR A4,A9 A4 <-- PTR1
CF A14,I:EVA0 GET ADDRES INPUT-ITEM
LDR A6,A9 A6 <-- PTR2
CF A14,I:EVA0 GET ADDRES OF LENGTH-PARAMETER
LD A7,0,A9 A7 <-- LENGTH (BYTES)
**
* COPY CHARACTERS FROM LEFT TO RIGHT*
**
QE100 EQU *
LCR A5,A6 GET CHAR INPUT-ITEM
SCR A5,A4 STORE CHAR OUTPUT-ITEM
ADK A4,1 PTR1 + 1
ADK A6,1 PTR2 + 1
SUK A7,1 LENGTH - 1
RB(G) QE100 JUMP IF NOT ALL COPIED YET
ABL I:RT1
END