|
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: 1314 (0x522)
Notes: pts_type(SC)
Names: »GFLDIX.SC«
└─⟦025d39960⟧ Bits:30009672 Philips computer tape "600133"
└─⟦this⟧ »A:DSB/GFLDIX.SC«
IDENT GFLDIX 810622 NJ * ENTRY GFLDIX EXTRN I:EVA0 EXTRN I:RT1 * * * * THE PROCEDURE EXTRACTS THE FIELDINDEX * FROM THE FIELDTABLE. * THIS INDEX IS LOCATED IN BIT 11-15 * GFLDIX EQU * CF A14,I:EVA0 GET ADDRESS OF WORKFIELD LD A1,0,A9 LOAD CONTENTS ANKL A1,/001F ZEROISE BIT 0-10 ST A1,0,A9 RESTOREIN WORKFIELD ABL I:RT1 RETURN TO CALLER END
0x000…020 (0, 0, 400) Head {h00=0x001c, h01=0x0017, text=» IDENT GFLDIX 810622 NJ «, t00=0x0000, t01=0x0004}
0x020…02a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0024}
0x02a…040 Head {h00=0x0012, h01=0x0050, text=» ENTRY GFLDIX «, t00=0x0000, t01=0x002e}
0x040…056 Head {h00=0x0012, h01=0x0050, text=» EXTRN I:EVA0 «, t00=0x0000, t01=0x0044}
0x056…06a Head {h00=0x0010, h01=0x0050, text=» EXTRN I:RT1«, t00=0x0000, t01=0x005a}
0x06a…074 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x006e}
0x074…07e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0078}
0x07e…088 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0000, t01=0x0082}
0x088…0b8 Head {h00=0x002c, h01=0x0027, text=»* THE PROCEDURE EXTRACTS THE FIELDINDEX «, t00=0x0000, t01=0x008c}
0x0b8…0d6 Head {h00=0x001a, h01=0x0016, text=»* FROM THE FIELDTABLE.«, t00=0x0000, t01=0x00bc}
0x0d6…102 Head {h00=0x0028, h01=0x0024, text=»* THIS INDEX IS LOCATED IN BIT 11-15«, t00=0x0000, t01=0x00da}
0x102…10c Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0000, t01=0x0106}
0x10c…120 Head {h00=0x0010, h01=0x0050, text=»GFLDIX EQU *«, t00=0x0000, t01=0x0110}
0x120…150 Head {h00=0x002c, h01=0x0050, text=» CF A14,I:EVA0 GET ADDRESS OF WORKFIELD «, t00=0x0000, t01=0x0124}
0x150…172 Head {h00=0x001e, h01=0x0019, text=» LD A1,0,A9 LOAD CONTENTS «, t00=0x0000, t01=0x0154}
0x172…19a Head {h00=0x0024, h01=0x001f, text=» ANKL A1,/001F ZEROISE BIT 0-10 «, t00=0x0000, t01=0x0176}
0x19a…1c2 Head {h00=0x0024, h01=0x001f, text=» ST A1,0,A9 RESTOREIN WORKFIELD «, t00=0x0001, t01=0x000e}
0x1c2…1e6 Head {h00=0x0020, h01=0x001b, text=» ABL I:RT1 RETURN TO CALLER «, t00=0x0001, t01=0x0036}
0x1e6…1f2 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0001, t01=0x005a}
0x1f2…1f6 Head {h00=0x4004, h01=0x0000}
0x1f6…1fa 00 01 00 66 ┆ f┆
0x1fa…202 (2, 1, 8) 20 04 00 00 00 02 00 04 ┆ ┆
0x202…252 (3, 0, 400) e7 32 e7 25 11 01 94 a0 00 01 1a 01 5c 0e 81 37 5f 88 e3 32 94 a0 00 01 23 ff 93 0c 50 48 83 4c 10 de 50 42 8f 0c f6 a1 1d 7c e2 32 22 ff 83 08 93 12 13 01 81 26 5d 96 e9 08 59 9a 91 12 e1 24 21 ff 84 0e 1c 36 50 16 51 12 24 01 54 0a 39 42 ┆ 2 % 7_ 2 # PH L PB | 2" &] Y $! 6P Q $ T 9B┆
0x252…2a2 50 14 83 04 8f 20 1b 30 84 8c 5f a2 99 05 93 04 5f c0 01 03 57 02 01 04 8f 20 1a fe 81 36 19 0c 82 40 07 d4 22 01 54 02 19 08 81 37 82 24 e4 b2 a4 a0 00 ff ea 56 ff f6 50 0a 87 08 f6 a1 49 ac 82 57 ff f6 94 c4 00 02 94 d6 ff f4 5f f8 8f 12 ┆P 0 _ _ W 6 @ " T 7 $ V P I W _ ┆
0x2a2…2f2 f6 cf 19 d2 8f 20 1a d8 f6 a1 1f 86 85 0c 84 56 00 02 a3 26 f4 01 82 0e 92 08 1a 90 8e 20 1b 1c 8f 48 1a 52 ad 27 57 08 fd 14 a5 27 57 02 b5 27 5f 36 07 bc 07 c4 07 c0 07 c8 00 08 00 0a 00 00 00 0c 3a 6c 3a 64 3a 68 82 08 03 01 a3 8d 88 20 ┆ V & H R 'W 'W '_6 :l:d:h ┆
0x2f2…342 1d 7c 01 00 57 10 01 02 57 0c 03 01 a3 8d 50 94 01 06 57 02 01 04 85 36 e3 32 23 ff f6 a1 1f 32 57 34 82 40 07 d2 f0 45 1c ca 22 01 54 3e 83 3b 81 80 82 5b ff fe 82 0c 23 f0 88 20 1f 1c 3a 48 94 a0 00 01 e2 32 81 ba a1 a0 00 f0 54 08 83 5a ┆ | W W P W 6 2# 2W4 @ E " T> ; [ # :H 2 T Z┆
0x342…392 ff fe e2 4c 00 01 83 04 81 4c 1c ba ea 44 00 02 56 2c a2 20 0f ff 9a 20 01 00 57 1a 81 80 23 ff 82 0c 1b 10 8a 20 1f 1c 83 04 81 4c 1c ba ea 45 00 03 56 0a 1a 10 83 24 00 00 88 00 00 10 04 40 01 00 54 01 40 78 00 80 01 28 02 00 04 00 12 05 ┆ L L D V, W # L E V $ @ T @x ( ┆
0x392…3e2 (4, 0, 400) 81 14 9d 14 57 84 9a 44 00 02 81 14 85 56 ff f4 83 4c 1c c2 93 14 83 2c 93 14 57 6e 85 36 e3 32 f6 a1 1f 32 57 1e 81 80 82 0c 22 ff ea 20 00 0c 50 1c 22 0f 23 f0 88 20 1f 1c 81 14 9d 14 3b 62 93 16 57 46 83 08 22 ff 3b 64 23 f0 5f 14 86 5b ┆ W D V L , Wn 6 2 2W " P " # ;b WF " ;d# _ [┆
0x3e2…432 ff fc 86 76 ff f8 96 16 9c d6 ff f4 84 bb 87 5b ff fe 9e a0 00 06 84 b8 f6 a1 49 f0 f6 a1 1d 7c 84 da 00 06 94 a0 00 01 f6 a1 49 fc 86 5a 00 02 87 5a 00 04 96 a0 00 06 f0 3a 94 a0 00 01 81 b6 99 9a 81 86 8e 20 2f 62 3a 42 92 2c 92 14 81 c8 ┆ v [ I | I Z Z : /b:B , ┆
0x432…482 00 02 91 94 85 28 56 a0 81 3b 83 5b ff fe 82 5b ff fc 9e a0 00 06 f6 a1 1d 7c 01 00 82 5a 00 02 e1 48 00 05 83 28 3b 41 52 04 81 48 00 04 e9 26 8a 20 2f 66 b1 04 83 7a 00 02 3b 41 56 3a 82 5a 00 02 e3 48 00 04 23 ff 81 a6 99 a0 00 01 8a 20 ┆ (V ; [ [ | Z H (;AR H & /f z ;AV: Z H # ┆
0x482…4d2 2f 66 e9 c9 00 05 8e 20 2f 66 f6 a1 1f 64 81 3b 9e a0 00 02 82 36 9a 1a 82 08 8e 20 2f 62 f6 a1 1d 7c 96 a0 00 02 81 3a 82 26 8d 20 2f 66 91 26 85 5a 00 02 83 34 a3 20 0f ff 81 84 99 a0 00 01 b1 04 f6 a1 1f 64 81 84 96 a0 00 06 81 3a 83 5a ┆/f /f d ; 6 /b | : & /f & Z 4 d : Z┆
0x4d2…522 ff fe 91 d4 00 02 85 34 91 cc 00 02 e3 14 a5 20 0f ff 82 0c 22 c0 32 40 50 04 95 06 f0 3a 81 bb 85 5b ff fe 81 5b ff fc 9e a0 00 06 f6 a1 1d 7c 82 26 81 40 07 d2 21 0f 00 40 40 08 00 00 05 04 00 10 00 08 00 40 00 8a 02 82 00 20 00 00 01 2c ┆ 4 " 2@P : [ [ | & @ ! @@ @ ,┆