|
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: 2800 (0xaf0)
Notes: pts_type(SC)
Names: »COPY4.SC«
└─⟦cd4bbebb4⟧ Bits:30009680 Philips computer tape "600221"
└─⟦this⟧ »ATM/COPY4.SC«
└─⟦this⟧ »ATM6601/COPY4.SC«
└─⟦this⟧ »BEBATM/COPY4.SC«
IDENT COPY4 COPY HALF BYTES REL 1.1 * * ************************************************************************ * * THIS ROUTINE IS TO COPY HALF-BYTES BETWEEN CREDIT * * DATA ITEMS. * * SUPPORTING CREDIT REL 3.2 * ************************************************************************ * * THE CALL TO THIS ROUTINE HAS THE FORMAT:- * * CALL COPY4,<BUF1>,<PNTR1>,<SIZE>,<BUF2>,<PNTR2> * * WHERE: * * <BUF1> IS THE DATA ITEM TO WHICH THE DATA IS TO BE * * <PNTR1> IS A BINARY DATA ITEM CONTAINING AN OFFSET F * THE START OF THE ITEM, AT WHICH POINT THE CO * DATA IS TO START. * * <SIZE> IS A BINARY DATA ITEM CONTAINING THE NUMBER * OF HALF-BYTES TO BE COPIED. * * <BUF2> IS A DATA ITEM CONTAINING THE DATA TO BE COP * * <PNTR2> IS A BINARY DATA ITEM CONTAINING AN OFFSET * FROM THE START OF THE ITEM, FROM WHICH POINT * THE DATA IS TO BE COPIED. * * THE CREDIT CONDITION REGISTER IS NOT AFFECTED. * ************************************************************************ * * EJECT * ENTRY COPY4 * * EXTRN I:EVA0,I:RT1 * * COPY4 EQU * CF A14,I:EVA0 LDR A4,A9 START ADDRESS OF TARGET CF A14,I:EVA0 LDR* A7,A9 POINTER 1 CF A14,I:EVA0 LDR* A8,A9 LENGTH CF A14,I:EVA0 LDR A6,A9 START ADDRESS OF SOURCE CF A14,I:EVA0 LDR* A5,A9 POINTER 2 * LDR A1,A7 SRL A1,1 DIVIDE BY 2 ADR A4,A1 LDR A1,A5 SRL A1,1 DIVIDE BY 2 ADR A6,A1 * SRC A7,1 SRC A5,1 RF ML090 MAINLOOP EQU * LCR A1,A6 LDR A5,A5 RF(N) ML020 SRL A1,4 RF ML040 ML020 EQU * ADK A6,1 ML040 EQU * ANK A1,/F C1R A5,A5 LCR A2,A4 LDR A7,A7 RF(N) ML060 SLL A1,4 ANK A2,/F ORR A2,A1 SCR A2,A4 RF ML080 ML060 EQU * ANK A2,/F0 ORR A2,A1 SCR A2,A4 ADK A4,1 ML080 EQU * C1R A7,A7 ML090 EQU * SUKL A8,1 RB(NN) MAINLOOP * ABL I:RT1 * END
0x000…02e (0, 0, 400) Head {h00=0x002a, h01=0x0050, text=» IDENT COPY4 COPY HALF BYTES REL 1.1 «, t00=0x0000, t01=0x0004}
0x02e…038 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0000, t01=0x0032}
0x038…042 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x003c}
0x042…092 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x0046}
0x092…09c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0096}
0x09c…0e0 Head {h00=0x0040, h01=0x0050, text=»* THIS ROUTINE IS TO COPY HALF-BYTES BETWEEN CREDIT«, t00=0x0000, t01=0x00a0}
0x0e0…0ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e4}
0x0ea…108 Head {h00=0x001a, h01=0x0050, text=»* DATA ITEMS.«, t00=0x0000, t01=0x00ee}
0x108…112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010c}
0x112…13e Head {h00=0x0028, h01=0x0050, text=»* SUPPORTING CREDIT REL 3.2«, t00=0x0000, t01=0x0116}
0x13e…148 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0142}
0x148…198 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x014c}
0x198…1a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000c}
0x1a2…1de Head {h00=0x0038, h01=0x0050, text=»* THE CALL TO THIS ROUTINE HAS THE FORMAT:-«, t00=0x0001, t01=0x0016}
0x1de…1e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0052}
0x1e8…22e Head {h00=0x0042, h01=0x0050, text=»* CALL COPY4,<BUF1>,<PNTR1>,<SIZE>,<BUF2>,<PNTR2> «, t00=0x0001, t01=0x005c}
0x22e…238 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a2}
0x238…252 Head {h00=0x0016, h01=0x0050, text=»* WHERE: «, t00=0x0001, t01=0x00ac}
0x252…25c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c6}
0x25c…2ac Head {h00=0x004c, h01=0x0050, text=»* <BUF1> IS THE DATA ITEM TO WHICH THE DATA IS TO BE «, t00=0x0001, t01=0x00d0}
0x2ac…2b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0120}
0x2b6…306 Head {h00=0x004c, h01=0x0050, text=»* <PNTR1> IS A BINARY DATA ITEM CONTAINING AN OFFSET F«, t00=0x0001, t01=0x012a}
0x306…356 Head {h00=0x004c, h01=0x0050, text=»* THE START OF THE ITEM, AT WHICH POINT THE CO«, t00=0x0001, t01=0x017a}
0x356…38c Head {h00=0x0032, h01=0x0050, text=»* DATA IS TO START. «, t00=0x0002, t01=0x003a}
0x38c…396 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0070}
0x396…3e6 Head {h00=0x004c, h01=0x0050, text=»* <SIZE> IS A BINARY DATA ITEM CONTAINING THE NUMBER «, t00=0x0002, t01=0x007a}
0x3e6…426 Head {h00=0x003c, h01=0x0050, text=»* OF HALF-BYTES TO BE COPIED. «, t00=0x0002, t01=0x00ca}
0x426…430 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x010a}
0x430…480 Head {h00=0x004c, h01=0x0050, text=»* <BUF2> IS A DATA ITEM CONTAINING THE DATA TO BE COP«, t00=0x0002, t01=0x0114}
0x480…48a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0164}
0x48a…4d8 Head {h00=0x004a, h01=0x0050, text=»* <PNTR2> IS A BINARY DATA ITEM CONTAINING AN OFFSET«, t00=0x0002, t01=0x016e}
0x4d8…528 Head {h00=0x004c, h01=0x0050, text=»* FROM THE START OF THE ITEM, FROM WHICH POINT«, t00=0x0003, t01=0x002c}
0x528…566 Head {h00=0x003a, h01=0x0050, text=»* THE DATA IS TO BE COPIED. «, t00=0x0003, t01=0x007c}
0x566…570 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ba}
0x570…5b2 Head {h00=0x003e, h01=0x0050, text=»* THE CREDIT CONDITION REGISTER IS NOT AFFECTED. «, t00=0x0003, t01=0x00c4}
0x5b2…5bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0106}
0x5bc…60c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0003, t01=0x0110}
0x60c…616 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0160}
0x616…620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x016a}
0x620…62e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0174}
0x62e…638 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0003, t01=0x0182}
0x638…64c Head {h00=0x0010, h01=0x000c, text=» ENTRY COPY4«, t00=0x0003, t01=0x018c}
0x64c…656 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0004, t01=0x0010}
0x656…660 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0004, t01=0x001a}
0x660…67c Head {h00=0x0018, h01=0x0013, text=» EXTRN I:EVA0,I:RT1 «, t00=0x0004, t01=0x0024}
0x67c…686 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0004, t01=0x0040}
0x686…690 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0004, t01=0x004a}
0x690…6a4 Head {h00=0x0010, h01=0x000b, text=»COPY4 EQU * «, t00=0x0004, t01=0x0054}
0x6a4…6ba Head {h00=0x0012, h01=0x000e, text=» CF A14,I:EVA0«, t00=0x0004, t01=0x0068}
0x6ba…6e4 Head {h00=0x0026, h01=0x0022, text=» LDR A4,A9 START ADDRESS OF TARGET«, t00=0x0004, t01=0x007e}
0x6e4…6fa Head {h00=0x0012, h01=0x000e, text=» CF A14,I:EVA0«, t00=0x0004, t01=0x00a8}
0x6fa…718 Head {h00=0x001a, h01=0x0015, text=» LDR* A7,A9 POINTER 1 «, t00=0x0004, t01=0x00be}
0x718…72e Head {h00=0x0012, h01=0x000e, text=» CF A14,I:EVA0«, t00=0x0004, t01=0x00dc}
0x72e…748 Head {h00=0x0016, h01=0x0012, text=» LDR* A8,A9 LENGTH«, t00=0x0004, t01=0x00f2}
0x748…75e Head {h00=0x0012, h01=0x000e, text=» CF A14,I:EVA0«, t00=0x0004, t01=0x010c}
0x75e…788 Head {h00=0x0026, h01=0x0022, text=» LDR A6,A9 START ADDRESS OF SOURCE«, t00=0x0004, t01=0x0122}
0x788…79e Head {h00=0x0012, h01=0x000e, text=» CF A14,I:EVA0«, t00=0x0004, t01=0x014c}
0x79e…7bc Head {h00=0x001a, h01=0x0050, text=» LDR* A5,A9 POINTER 2 «, t00=0x0004, t01=0x0162}
0x7bc…7c6 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0004, t01=0x0180}
0x7c6…7d8 Head {h00=0x000e, h01=0x000a, text=» LDR A1,A7«, t00=0x0004, t01=0x018a}
0x7d8…7f6 Head {h00=0x001a, h01=0x0015, text=» SRL A1,1 DIVIDE BY 2 «, t00=0x0005, t01=0x000c}
0x7f6…808 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A1«, t00=0x0005, t01=0x002a}
0x808…81a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x0005, t01=0x003c}
0x81a…838 Head {h00=0x001a, h01=0x0015, text=» SRL A1,1 DIVIDE BY 2 «, t00=0x0005, t01=0x004e}
0x838…84a Head {h00=0x000e, h01=0x000a, text=» ADR A6,A1«, t00=0x0005, t01=0x006c}
0x84a…854 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0005, t01=0x007e}
0x854…866 Head {h00=0x000e, h01=0x0050, text=» SRC A7,1 «, t00=0x0005, t01=0x0088}
0x866…878 Head {h00=0x000e, h01=0x0050, text=» SRC A5,1 «, t00=0x0005, t01=0x009a}
0x878…88a Head {h00=0x000e, h01=0x0050, text=» RF ML090 «, t00=0x0005, t01=0x00ac}
0x88a…8a0 Head {h00=0x0012, h01=0x000e, text=»MAINLOOP EQU *«, t00=0x0005, t01=0x00be}
0x8a0…8b2 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A6«, t00=0x0005, t01=0x00d4}
0x8b2…8c4 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A5«, t00=0x0005, t01=0x00e6}
0x8c4…8d8 Head {h00=0x0010, h01=0x000c, text=» RF(N) ML020«, t00=0x0005, t01=0x00f8}
0x8d8…8ea Head {h00=0x000e, h01=0x0009, text=» SRL A1,4 «, t00=0x0005, t01=0x010c}
0x8ea…8fc Head {h00=0x000e, h01=0x0050, text=» RF ML040 «, t00=0x0005, t01=0x011e}
0x8fc…910 Head {h00=0x0010, h01=0x000b, text=»ML020 EQU * «, t00=0x0005, t01=0x0130}
0x910…922 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0005, t01=0x0144}
0x922…936 Head {h00=0x0010, h01=0x000b, text=»ML040 EQU * «, t00=0x0005, t01=0x0156}
0x936…948 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x0005, t01=0x016a}
0x948…95a Head {h00=0x000e, h01=0x0050, text=» C1R A5,A5«, t00=0x0005, t01=0x017c}
0x95a…96c Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0005, t01=0x018e}
0x96c…97e Head {h00=0x000e, h01=0x000a, text=» LDR A7,A7«, t00=0x0006, t01=0x0010}
0x97e…992 Head {h00=0x0010, h01=0x000c, text=» RF(N) ML060«, t00=0x0006, t01=0x0022}
0x992…9a4 Head {h00=0x000e, h01=0x0009, text=» SLL A1,4 «, t00=0x0006, t01=0x0036}
0x9a4…9b6 Head {h00=0x000e, h01=0x000a, text=» ANK A2,/F«, t00=0x0006, t01=0x0048}
0x9b6…9c8 Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x0006, t01=0x005a}
0x9c8…9da Head {h00=0x000e, h01=0x000a, text=» SCR A2,A4«, t00=0x0006, t01=0x006c}
0x9da…9ec Head {h00=0x000e, h01=0x0009, text=» RF ML080 «, t00=0x0006, t01=0x007e}
0x9ec…a00 Head {h00=0x0010, h01=0x000b, text=»ML060 EQU * «, t00=0x0006, t01=0x0090}
0xa00…a14 Head {h00=0x0010, h01=0x000b, text=» ANK A2,/F0 «, t00=0x0006, t01=0x00a4}
0xa14…a26 Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x0006, t01=0x00b8}
0xa26…a38 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A4«, t00=0x0006, t01=0x00ca}
0xa38…a4a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0006, t01=0x00dc}
0xa4a…a5e Head {h00=0x0010, h01=0x0050, text=»ML080 EQU * «, t00=0x0006, t01=0x00ee}
0xa5e…a70 Head {h00=0x000e, h01=0x0050, text=» C1R A7,A7«, t00=0x0006, t01=0x0102}
0xa70…a84 Head {h00=0x0010, h01=0x0050, text=»ML090 EQU * «, t00=0x0006, t01=0x0114}
0xa84…a96 Head {h00=0x000e, h01=0x000a, text=» SUKL A8,1«, t00=0x0006, t01=0x0128}
0xa96…aae Head {h00=0x0014, h01=0x0050, text=» RB(NN) MAINLOOP«, t00=0x0006, t01=0x013a}
0xaae…ab8 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0006, t01=0x0152}
0xab8…aca Head {h00=0x000e, h01=0x000a, text=» ABL I:RT1«, t00=0x0006, t01=0x015c}
0xaca…ad4 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0006, t01=0x016e}
0xad4…ae0 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0006, t01=0x0178}
0xae0…ae4 Head {h00=0x4004, h01=0x0000}
0xae4…ae8 00 06 01 84 ┆ ┆
0xae8…af0 (7, 1, 8) 20 04 00 00 00 07 00 04 ┆ ┆