|
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: 1574 (0x626)
Notes: pts_type(SC)
Names: »CTAB03.SC«
└─⟦6349b94c6⟧ Bits:30009684 Philips computer tape "600308"
└─⟦this⟧ »M:92D1/CTAB03.SC«
IDENT CTAB03 REL 9.2 79-11-16 870105040920 * * CODE CONVERSION TABLE * * ENTRY CTAB03 * * C0 EQU 0 CODE CONVERSION COLUMN NO. 0 C1 EQU 0 1 C2 DATA /2021,/22D5,/2425,/2627,/C7D1,/E32B,/2C2D,/2ED0 C3 DATA /3031,/3233,/3435,/3637,/3839,/3A3B,/3C3D,/3E2F C4 EQU 0 4 C5 EQU 0 5 C6 EQU 0 6 C7 EQU 0 7 * * * CTAB03 DATA C0 DATA C1 DATA C2 DATA C3 DATA C4 DATA C5 DATA C6 DATA C7 * * END
0x000…036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT CTAB03 REL 9.2 79-11-16 870105040920 «, t00=0x0000, t01=0x0004}
0x036…03e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x03e…048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x048…06a Head {h00=0x001e, h01=0x0050, text=»* CODE CONVERSION TABLE «, t00=0x0000, t01=0x004c}
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…094 Head {h00=0x0012, h01=0x0050, text=» ENTRY CTAB03 «, t00=0x0000, t01=0x0082}
0x094…09e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0098}
0x09e…0a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00a2}
0x0a8…0d6 Head {h00=0x002a, h01=0x0050, text=»C0 EQU 0 CODE CONVERSION COLUMN NO. 0 «, t00=0x0000, t01=0x00ac}
0x0d6…102 Head {h00=0x0028, h01=0x0050, text=»C1 EQU 0 1«, t00=0x0000, t01=0x00da}
0x102…142 Head {h00=0x003c, h01=0x0050, text=»C2 DATA /2021,/22D5,/2425,/2627,/C7D1,/E32B,/2C2D,/2ED0 «, t00=0x0000, t01=0x0106}
0x142…182 Head {h00=0x003c, h01=0x0050, text=»C3 DATA /3031,/3233,/3435,/3637,/3839,/3A3B,/3C3D,/3E2F «, t00=0x0000, t01=0x0146}
0x182…1ae Head {h00=0x0028, h01=0x0050, text=»C4 EQU 0 4«, t00=0x0000, t01=0x0186}
0x1ae…1da Head {h00=0x0028, h01=0x0050, text=»C5 EQU 0 5«, t00=0x0001, t01=0x0022}
0x1da…206 Head {h00=0x0028, h01=0x0050, text=»C6 EQU 0 6«, t00=0x0001, t01=0x004e}
0x206…232 Head {h00=0x0028, h01=0x0050, text=»C7 EQU 0 7«, t00=0x0001, t01=0x007a}
0x232…23c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a6}
0x23c…246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b0}
0x246…250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ba}
0x250…266 Head {h00=0x0012, h01=0x0050, text=»CTAB03 DATA C0«, t00=0x0001, t01=0x00c4}
0x266…276 Head {h00=0x000c, h01=0x0050, text=» DATA C1«, t00=0x0001, t01=0x00da}
0x276…286 Head {h00=0x000c, h01=0x0050, text=» DATA C2«, t00=0x0001, t01=0x00ea}
0x286…296 Head {h00=0x000c, h01=0x0050, text=» DATA C3«, t00=0x0001, t01=0x00fa}
0x296…2a6 Head {h00=0x000c, h01=0x0050, text=» DATA C4«, t00=0x0001, t01=0x010a}
0x2a6…2b6 Head {h00=0x000c, h01=0x0050, text=» DATA C5«, t00=0x0001, t01=0x011a}
0x2b6…2c6 Head {h00=0x000c, h01=0x0050, text=» DATA C6«, t00=0x0001, t01=0x012a}
0x2c6…2d6 Head {h00=0x000c, h01=0x0050, text=» DATA C7«, t00=0x0001, t01=0x013a}
0x2d6…2e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014a}
0x2e0…2ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0154}
0x2ea…2f6 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0001, t01=0x015e}
0x2f6…2fa Head {h00=0x4004, h01=0x0000}
0x2fa…2fe 00 01 01 6a ┆ j┆
0x2fe…306 (2, 1, 8) 20 04 00 00 00 02 00 04 ┆ ┆
0x306…356 (3, 0, 400) 00 16 00 50 2a 20 20 20 41 36 20 3d 20 55 4e 43 48 41 4e 47 45 44 00 1b 00 04 00 24 00 50 2a 20 20 20 49 4e 20 46 44 42 20 3a 20 46 44 42 53 4e 52 20 3d 20 53 45 43 54 4f 52 20 4e 52 20 00 1b 00 1e 00 2c 00 50 2a 20 20 20 20 20 20 20 20 20 ┆ P* A6 = UNCHANGED $ P* IN FDB : FDBSNR = SECTOR NR , P* ┆
0x356…3a6 20 20 20 20 46 44 42 52 52 4f 20 3d 20 4f 46 46 53 45 54 20 49 4e 20 53 45 43 54 4f 52 20 00 1b 00 46 00 2a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 46 44 42 43 45 58 20 3d 20 43 55 52 52 45 4e 54 20 45 58 54 45 4e 54 20 00 1b 00 76 ┆ FDBRRO = OFFSET IN SECTOR F * P* FDBCEX = CURRENT EXTENT v┆
0x3a6…3f6 00 06 00 50 2a 20 00 1b 00 a4 00 38 00 50 2a 2a 2a 2a 55 53 45 44 20 52 45 47 49 53 54 45 52 53 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 00 1b 00 ae 00 06 00 50 2a 20 00 1b 00 ea ┆ P* 8 P****USED REGISTERS********************************** P* ┆
0x3f6…446 00 10 00 50 2a 20 20 20 41 31 20 2d 20 41 39 20 00 1b 00 f4 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 4d 53 55 42 52 20 00 1b 01 08 00 10 00 50 43 41 4c 53 4e 4f 5c 45 51 55 5c 2a 00 1b 01 20 00 06 00 50 2a 20 00 1b 01 34 00 22 00 50 2a 20 ┆ P* A1 - A9 P EJECT DMSUBR PCALSNO EQU * P* 4 " P* ┆
0x446…496 20 20 46 49 4e 44 20 53 45 43 54 4f 52 20 4e 4f 20 57 49 54 48 49 4e 20 46 49 4c 45 00 1b 01 3e 00 06 00 50 2a 20 00 1b 01 64 00 1c 00 50 5c 4c 44 52 5c 41 35 2c 41 36 5c 53 41 56 45 20 46 44 42 20 41 44 44 52 00 1b 01 6e 00 0e 00 50 5c 4c ┆ FIND SECTOR NO WITHIN FILE > P* d P LDR A5,A6 SAVE FDB ADDR n P L┆
0x496…4e6 (4, 0, 400) 44 4b 5c 41 36 2c 30 20 00 1b 01 8e 00 24 00 50 5c 4c 43 5c 41 36 2c 46 44 42 42 4c 46 2c 41 35 5c 42 4c 4f 43 4b 49 4e 47 20 46 41 43 54 4f 52 00 1c 00 10 00 2c 00 50 5c 43 46 5c 41 31 34 2c 44 49 56 4d 4f 44 5c 41 32 3d 41 31 2c 41 32 2f ┆DK A6,0 $ P LC A6,FDBBLF,A5 BLOCKING FACTOR , P CF A14,DIVMOD A2=A1,A2/┆
0x4e6…536 2f 41 36 2c 41 31 3d 52 45 4d 41 49 4e 44 45 52 00 1c 00 38 00 1a 00 50 5c 52 46 28 4f 29 5c 54 49 4f 44 39 39 5c 4f 56 45 52 46 4c 4f 57 00 1c 00 68 00 18 00 50 5c 4c 44 52 5c 41 33 2c 41 32 5c 51 55 4f 54 49 45 4e 54 20 00 1c 00 86 00 18 ┆/A6,A1=REMAINDER 8 P RF(O) TIOD99 OVERFLOW h P LDR A3,A2 QUOTIENT ┆
0x536…586 00 50 5c 4c 44 52 5c 41 36 2c 41 35 5c 46 44 42 20 41 44 44 52 20 00 1c 00 a2 00 18 00 50 5c 4c 44 52 5c 41 32 2c 41 31 5c 52 45 4d 41 49 4e 44 45 52 00 1c 00 be 00 1a 00 50 5c 52 46 28 5a 29 5c 54 49 4f 44 33 30 5c 52 45 53 54 20 3d 20 30 ┆ P LDR A6,A5 FDB ADDR P LDR A2,A1 REMAINDER P RF(Z) TIOD30 REST = 0┆
0x586…5d6 00 1c 00 da 00 24 00 50 5c 41 44 4b 5c 41 33 2c 31 5c 52 45 43 4f 52 44 20 49 4e 20 4e 45 58 54 20 53 45 43 54 4f 52 20 00 1c 00 f8 00 0e 00 50 5c 52 46 5c 54 49 4f 44 34 30 00 1c 01 20 00 2e 00 50 54 49 4f 44 33 30 5c 4c 43 5c 41 32 2c 46 ┆ $ P ADK A3,1 RECORD IN NEXT SECTOR P RF TIOD40 . PTIOD30 LC A2,F┆
0x5d6…626 44 42 42 4c 46 2c 41 36 5c 4c 41 53 54 20 52 45 43 20 49 4e 20 53 45 43 54 4f 52 20 00 1c 01 32 00 06 00 50 2a 20 00 1c 01 64 00 18 00 50 2a 20 20 20 46 49 4e 44 20 46 49 4c 45 20 45 58 54 45 4e 54 00 1c 01 6e 00 06 00 50 2a 20 00 1c 01 8a ┆DBBLF,A6 LAST REC IN SECTOR 2 P* d P* FIND FILE EXTENT n P* ┆