|
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
0x0000…0042 (0, 0, 400) Head {h00=0x003e, h01=0x0050, text=» IDENT QEMOVE DATATRANSP. BUFFER <--> UWB «, t00=0x0000, t01=0x0004}
0x0042…0092 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0000, t01=0x0046}
0x0092…00e2 Head {h00=0x004c, h01=0x0050, text=»* CALLING SEQUENCE: CALL QEMOVE,OUTPUT-ITEM,INPUT-ITEM,LENGTH(BYTES) *«, t00=0x0000, t01=0x0096}
0x00e2…0132 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0000, t01=0x00e6}
0x0132…0182 Head {h00=0x004c, h01=0x0050, text=» ENTRY QEMOVE «, t00=0x0000, t01=0x0136}
0x0182…01d2 Head {h00=0x004c, h01=0x0050, text=» EXTRN I:EVA0 «, t00=0x0000, t01=0x0186}
0x01d2…0222 Head {h00=0x004c, h01=0x0050, text=» EXTRN I:RT1 «, t00=0x0001, t01=0x0046}
0x0222…0272 Head {h00=0x004c, h01=0x0050, text=»QEMOVE EQU * «, t00=0x0001, t01=0x0096}
0x0272…02c2 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0001, t01=0x00e6}
0x02c2…0312 Head {h00=0x004c, h01=0x0050, text=»* GET PARAMETERS *«, t00=0x0001, t01=0x0136}
0x0312…0362 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0001, t01=0x0186}
0x0362…03b4 Head {h00=0x004e, h01=0x0050, text=» CF A14,I:EVA0 GET ADDRES OUTPUT-ITEM «, t00=0x0002, t01=0x0046}
0x03b4…0404 Head {h00=0x004c, h01=0x0050, text=» LDR A4,A9 A4 <-- PTR1 «, t00=0x0002, t01=0x0098}
0x0404…0454 Head {h00=0x004c, h01=0x0050, text=» CF A14,I:EVA0 GET ADDRES INPUT-ITEM «, t00=0x0002, t01=0x00e8}
0x0454…04a4 Head {h00=0x004c, h01=0x0050, text=» LDR A6,A9 A6 <-- PTR2 «, t00=0x0002, t01=0x0138}
0x04a4…04f4 Head {h00=0x004c, h01=0x0050, text=» CF A14,I:EVA0 GET ADDRES OF LENGTH-PARAMETER «, t00=0x0002, t01=0x0188}
0x04f4…0544 Head {h00=0x004c, h01=0x0050, text=» LD A7,0,A9 A7 <-- LENGTH (BYTES) «, t00=0x0003, t01=0x0048}
0x0544…0594 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0003, t01=0x0098}
0x0594…05e4 Head {h00=0x004c, h01=0x0050, text=»* COPY CHARACTERS FROM LEFT TO RIGHT *«, t00=0x0003, t01=0x00e8}
0x05e4…0634 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0003, t01=0x0138}
0x0634…0684 Head {h00=0x004c, h01=0x0050, text=»QE100 EQU * «, t00=0x0003, t01=0x0188}
0x0684…06d4 Head {h00=0x004c, h01=0x0050, text=» LCR A5,A6 GET CHAR INPUT-ITEM «, t00=0x0004, t01=0x0048}
0x06d4…0724 Head {h00=0x004c, h01=0x0050, text=» SCR A5,A4 STORE CHAR OUTPUT-ITEM «, t00=0x0004, t01=0x0098}
0x0724…0774 Head {h00=0x004c, h01=0x0050, text=» ADK A4,1 PTR1 + 1 «, t00=0x0004, t01=0x00e8}
0x0774…07c4 Head {h00=0x004c, h01=0x0050, text=» ADK A6,1 PTR2 + 1 «, t00=0x0004, t01=0x0138}
0x07c4…0814 Head {h00=0x004c, h01=0x0050, text=» SUK A7,1 LENGTH - 1 «, t00=0x0004, t01=0x0188}
0x0814…0864 Head {h00=0x004c, h01=0x0050, text=» RB(G) QE100 JUMP IF NOT ALL COPIED YET «, t00=0x0005, t01=0x0048}
0x0864…08b4 Head {h00=0x004c, h01=0x0050, text=» ABL I:RT1 «, t00=0x0005, t01=0x0098}
0x08b4…0904 Head {h00=0x004c, h01=0x0050, text=» END «, t00=0x0005, t01=0x00e8}
0x0904…0908 Head {h00=0x4004, h01=0x0000}
0x0908…090c 00 05 01 38 ┆ 8┆
0x090c…0914 (6, 1, 8) 20 04 00 00 00 06 00 04 ┆ ┆
0x0914…0964 (7, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 1e 01 5a 00 4c 00 50 55 49 46 5c 42 4c 4b 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆****************** Z L PUIF BLK ┆
0x0964…09b4 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1f 00 1a 00 4c 00 50 2a 20 20 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ L P* ┆
0x09b4…0a04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 1f 00 6a 00 4c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * j L P******************************************************┆
0x0a04…0a54 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 1f 00 ba 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆****************** L P* ┆
0x0a54…0aa4 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 1f 01 0a 00 4c 00 50 2a 20 49 4e 54 45 52 46 41 43 45 53 20 42 45 54 57 45 45 4e 20 46 55 4e 43 54 49 4f 4e 20 4d 4f 44 55 4c 45 2c 20 46 4f 52 4d 41 54 20 41 4e 44 20 53 50 41 50 50 ┆ * L P* INTERFACES BETWEEN FUNCTION MODULE, FORMAT AND SPAPP┆
0x0aa4…0af4 (8, 0, 400) 4c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 1f 01 5a 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆L * Z L P* ┆
0x0af4…0b44 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 20 00 1a 00 4c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * L P******************************************************┆
0x0b44…0b94 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 20 00 6a 00 4c 00 50 53 42 53 54 54 4f 5c 42 4f 4f 4c 5c 46 41 4c 53 45 5c 53 54 41 52 54 20 4f 50 45 52 41 54 4f 52 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆****************** j L PSBSTTO BOOL FALSE START OPERATOR ┆
0x0b94…0be4 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 ba 00 4c 00 50 53 42 4f 41 43 54 5c 42 4f 4f 4c 5c 46 41 4c 53 45 5c 4f 50 45 4e 20 41 43 43 4f 55 4e 54 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ L PSBOACT BOOL FALSE OPEN ACCOUNT ┆
0x0be4…0c34 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 01 0a 00 4c 00 50 53 42 43 41 43 54 5c 42 4f 4f 4c 5c 46 41 4c 53 45 5c 43 4c 4f 53 45 20 41 43 43 4f 55 4e 54 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ L PSBCACT BOOL FALSE CLOSE ACCOUNT ┆
0x0c34…0c84 (9, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 01 5a 00 4c 00 50 53 42 42 41 43 54 5c 42 4f 4f 4c 5c 46 41 4c 53 45 5c 42 4c 4f 43 4b 20 41 43 43 4f 55 4e 54 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ Z L PSBBACT BOOL FALSE BLOCK ACCOUNT ┆
0x0c84…0cd4 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 21 00 1a 00 4c 00 50 53 42 44 41 43 54 5c 42 4f 4f 4c 5c 46 41 4c 53 45 5c 44 45 42 4c 4f 43 4b 20 41 43 43 4f 55 4e 54 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ! L PSBDACT BOOL FALSE DEBLOCK ACCOUNT ┆
0x0cd4…0d24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 21 00 6a 00 4c 00 50 53 42 55 41 43 54 5c 42 4f 4f 4c 5c 46 41 4c 53 45 5c 55 50 44 41 54 45 20 41 43 43 4f 55 4e 54 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ! j L PSBUACT BOOL FALSE UPDATE ACCOUNT ┆
0x0d24…0d74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 21 00 ba 00 4c 00 50 53 42 55 43 43 59 5c 42 4f 4f 4c 5c 46 41 4c 53 45 5c 55 50 44 41 54 45 20 43 55 52 52 45 4e 43 59 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ! L PSBUCCY BOOL FALSE UPDATE CURRENCY ┆
0x0d74…0dc4 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 21 01 0a 00 4c 00 50 53 42 51 41 43 54 5c 42 4f 4f 4c 20 5c 46 41 4c 53 45 5c 49 4e 51 55 49 52 59 20 41 43 43 4f 55 4e 54 20 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ! L PSBQACT BOOL FALSE INQUIRY ACCOUNT ┆
0x0dc4…0e14 (10, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 21 01 5a 00 4c 00 50 53 42 44 53 54 4d 5c 42 4f 4f 4c 5c 46 41 4c 53 45 5c 44 41 59 4c 59 20 53 54 41 54 45 4d 45 4e 54 53 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ! Z L PSBDSTM BOOL FALSE DAYLY STATEMENTS ┆
0x0e14…0e64 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 22 00 1a 00 4c 00 50 53 42 43 4f 50 52 5c 42 4f 4f 4c 5c 46 41 4c 53 45 5c 4f 50 45 52 41 54 4f 52 20 43 4c 4f 53 45 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ " L PSBCOPR BOOL FALSE OPERATOR CLOSE ┆
0x0e64…0eb4 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 22 00 6a 00 4c 00 50 53 42 43 53 59 53 5c 42 4f 4f 4c 5c 46 41 4c 53 45 5c 53 59 53 54 45 4d 20 43 4c 4f 53 45 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ " j L PSBCSYS BOOL FALSE SYSTEM CLOSE ┆
0x0eb4…0f04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 22 00 ba 00 4c 00 50 53 42 45 43 43 59 5c 42 4f 4f 4c 5c 46 41 4c 53 45 5c 43 55 52 52 45 4e 43 59 20 45 58 43 48 41 4e 47 45 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ " L PSBECCY BOOL FALSE CURRENCY EXCHANGE ┆
0x0f04…0f54 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 22 01 0a 00 4c 00 50 53 42 51 43 43 59 5c 42 4f 4f 4c 5c 46 41 4c 53 45 5c 43 55 52 52 45 4e 43 59 20 49 4e 51 55 49 52 59 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ " L PSBQCCY BOOL FALSE CURRENCY INQUIRY ┆
0x0f54…0fa4 (11, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 22 01 5a 00 4c 00 50 53 42 4c 41 43 54 5c 42 4f 4f 4c 5c 46 41 4c 53 45 5c 4c 49 53 54 20 41 43 43 4f 55 4e 54 53 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ " Z L PSBLACT BOOL FALSE LIST ACCOUNTS ┆
0x0fa4…0ff4 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 23 00 1a 00 14 00 50 53 42 57 44 52 5c 42 4f 4f 4c 5c 46 41 4c 53 45 00 23 00 6a 00 4c 00 50 49 57 49 4e 44 45 58 31 5c 42 49 4e 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ # PSBWDR BOOL FALSE # j L PIWINDEX1 BIN ┆
0x0ff4…1044 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 23 00 82 00 4c 00 50 49 44 41 43 54 4e 52 31 5c 42 43 44 5c 31 32 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 ┆ # L PIDACTNR1 BCD 12 ┆
0x1044…1094 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 23 00 d2 00 4c 00 50 49 44 41 43 54 4e 52 32 5c 42 43 44 5c 31 32 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 ┆ # L PIDACTNR2 BCD 12 ┆
0x1094…10e4 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 23 01 22 00 4c 00 50 49 44 41 4d 54 31 5c 42 43 44 5c 31 32 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ # " L PIDAMT1 BCD 12 ┆
0x10e4…1134 (12, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 23 01 72 00 4c 00 50 49 44 41 4d 54 32 5c 42 43 44 5c 31 32 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ # r L PIDAMT2 BCD 12 ┆
0x1134…1184 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 24 00 32 00 4c 00 50 49 44 4e 52 31 5c 42 43 44 5c 31 32 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ $ 2 L PIDNR1 BCD 12 ┆
0x1184…11d4 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 24 00 82 00 10 00 50 49 44 4e 52 32 5c 42 43 44 5c 31 32 00 24 00 d2 00 12 00 50 49 43 54 45 58 54 31 5c 53 54 ┆ $ PIDNR2 BCD 12 $ PICTEXT1 ST┆
0x11d4…1224 52 47 5c 36 00 24 00 e6 00 14 00 50 49 43 54 45 58 54 32 5c 53 54 52 47 5c 32 35 20 00 24 00 fc 00 4c 00 50 49 43 44 55 4d 4d 59 5c 53 54 52 47 5c 35 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆RG 6 $ PICTEXT2 STRG 25 $ L PICDUMMY STRG 5 ┆
0x1224…1274 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 24 01 14 00 4c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ $ L P********************************************┆