|
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: 1548 (0x60c)
Notes: pts_type(SC)
Names: »TCLASS.SC«
└─⟦f740ae34d⟧ Bits:30009708 Philips computer tape "M_92F3"
└─⟦this⟧ »M:92F3/TCLASS.SC«
IDENT TCLASS REL 9.2 79-11-16 870105040920
*
*
ENTRY TCLASS
*
*
EXTRN DVKB00
EXTRN DVTP00
EXTRN DVDY00
*
*
*
*
TCLASS DATA TCLASE-*
DATA TC00
TCLASE EQU *
TC00 DATA TC00E-*
DATA /0020
DATA DVKB00
DATA /0030
DATA DVTP00
DATA /0231
DATA DVTP00
DATA /0132
DATA DVTP00
DATA /0050
DATA DVDY00
TC00E EQU *
END
0x000…036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT TCLASS 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…052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004c}
0x052…068 Head {h00=0x0012, h01=0x0050, text=» ENTRY TCLASS «, t00=0x0000, t01=0x0056}
0x068…072 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x006c}
0x072…07c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0076}
0x07c…09c Head {h00=0x001c, h01=0x0050, text=» EXTRN DVKB00«, t00=0x0000, t01=0x0080}
0x09c…0bc Head {h00=0x001c, h01=0x0050, text=» EXTRN DVTP00«, t00=0x0000, t01=0x00a0}
0x0bc…0dc Head {h00=0x001c, h01=0x0050, text=» EXTRN DVDY00«, t00=0x0000, t01=0x00c0}
0x0dc…0e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e0}
0x0e6…0f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ea}
0x0f0…0fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f4}
0x0fa…104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fe}
0x104…120 Head {h00=0x0018, h01=0x0050, text=»TCLASS DATA TCLASE-*«, t00=0x0000, t01=0x0108}
0x120…13e Head {h00=0x001a, h01=0x0050, text=» DATA TC00«, t00=0x0000, t01=0x0124}
0x13e…152 Head {h00=0x0010, h01=0x0050, text=»TCLASE EQU *«, t00=0x0000, t01=0x0142}
0x152…174 Head {h00=0x001e, h01=0x0050, text=»TC00 DATA TC00E-* «, t00=0x0000, t01=0x0156}
0x174…194 Head {h00=0x001c, h01=0x0050, text=» DATA /0020 «, t00=0x0000, t01=0x0178}
0x194…1b4 Head {h00=0x001c, h01=0x0050, text=» DATA DVKB00«, t00=0x0001, t01=0x0008}
0x1b4…1d4 Head {h00=0x001c, h01=0x0050, text=» DATA /0030 «, t00=0x0001, t01=0x0028}
0x1d4…1f4 Head {h00=0x001c, h01=0x0050, text=» DATA DVTP00«, t00=0x0001, t01=0x0048}
0x1f4…214 Head {h00=0x001c, h01=0x0050, text=» DATA /0231 «, t00=0x0001, t01=0x0068}
0x214…234 Head {h00=0x001c, h01=0x0050, text=» DATA DVTP00«, t00=0x0001, t01=0x0088}
0x234…254 Head {h00=0x001c, h01=0x0050, text=» DATA /0132 «, t00=0x0001, t01=0x00a8}
0x254…274 Head {h00=0x001c, h01=0x0050, text=» DATA DVTP00«, t00=0x0001, t01=0x00c8}
0x274…294 Head {h00=0x001c, h01=0x0050, text=» DATA /0050 «, t00=0x0001, t01=0x00e8}
0x294…2b4 Head {h00=0x001c, h01=0x0050, text=» DATA DVDY00«, t00=0x0001, t01=0x0108}
0x2b4…2d0 Head {h00=0x0018, h01=0x0050, text=»TC00E EQU * «, t00=0x0001, t01=0x0128}
0x2d0…2dc Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0001, t01=0x0144}
0x2dc…2e0 Head {h00=0x4004, h01=0x0000}
0x2e0…2e4 00 01 01 50 ┆ P┆
0x2e4…2ec (2, 1, 8) 20 04 00 00 00 02 00 04 ┆ ┆
0x2ec…33c (3, 0, 400) 20 53 59 53 54 45 4d 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 00 32 01 80 00 28 00 50 5c 53 55 4b 5c 41 33 2c 31 5c 44 45 43 52 45 4d 45 4e 54 20 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 00 33 00 1e 00 24 00 50 5c 52 42 28 4e 50 ┆ SYSTEM BUFFER ADDRESS 2 ( P SUK A3,1 DECREMENT REQUESTED LENGTH 3 $ P RB(NP┆
0x33c…38c 29 5c 4d 56 55 53 33 30 5c 4c 41 53 54 20 43 48 41 52 2e 20 4d 4f 56 45 44 3f 00 33 00 4a 00 2c 00 50 5c 41 44 4b 5c 41 31 2c 32 5c 4e 4f 2c 20 55 50 44 41 54 45 20 55 53 45 52 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 00 33 00 72 00 06 ┆) MVUS30 LAST CHAR. MOVED? 3 J , P ADK A1,2 NO, UPDATE USER BUFFER ADDRESS 3 r ┆
0x38c…3dc 00 50 2a 20 00 33 00 a2 00 38 00 50 4d 56 55 53 35 35 5c 45 4c 52 5c 41 34 2c 41 31 5c 47 45 54 20 4e 45 58 54 20 54 57 4f 20 43 48 41 52 2e 20 46 52 4f 4d 20 55 53 45 52 20 42 55 46 46 45 52 00 33 00 ac 00 0e 00 50 5c 45 43 52 5c 41 35 2c ┆ P* 3 8 PMVUS55 ELR A4,A1 GET NEXT TWO CHAR. FROM USER BUFFER 3 P ECR A5,┆
0x3dc…42c 41 34 00 33 00 e8 00 30 00 50 5c 53 43 52 5c 41 35 2c 41 32 5c 53 54 4f 52 45 20 4f 4e 45 20 43 48 41 52 2e 20 49 4e 20 53 59 53 54 45 4d 20 42 55 46 46 45 52 20 00 33 00 fa 00 2a 00 50 5c 41 44 4b 5c 41 32 2c 31 5c 55 50 44 41 54 45 20 53 ┆A4 3 0 P SCR A5,A2 STORE ONE CHAR. IN SYSTEM BUFFER 3 * P ADK A2,1 UPDATE S┆
0x42c…47c 59 53 54 45 4d 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 00 33 01 2e 00 28 00 50 5c 53 55 4b 5c 41 33 2c 31 5c 44 45 43 52 45 4d 45 4e 54 20 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 00 33 01 5c 00 26 00 50 5c 52 42 28 50 29 5c 4d ┆YSTEM BUFFER ADDRESS 3 . ( P SUK A3,1 DECREMENT REQUESTED LENGTH 3 & P RB(P) M┆
0x47c…4cc (4, 0, 400) 56 55 53 35 30 5c 4d 4f 52 45 20 43 48 41 52 2e 20 54 4f 20 4d 4f 56 45 3f 20 00 33 01 88 00 1a 00 50 5c 52 42 5c 4d 56 55 53 33 30 5c 4e 4f 2c 20 52 45 54 55 52 4e 20 00 34 00 22 00 06 00 50 2a 20 00 34 00 40 00 14 00 50 5c 45 4a 45 43 54 ┆VUS50 MORE CHAR. TO MOVE? 3 P RB MVUS30 NO, RETURN 4 " P* 4 @ P EJECT┆
0x4cc…51c 5c 5c 5c 44 4d 53 55 42 52 20 00 34 00 4a 00 06 00 50 2a 20 00 34 00 62 00 06 00 50 2a 20 00 34 00 6c 00 2c 00 50 4d 56 55 53 36 30 5c 45 51 55 5c 2a 5c 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 20 57 41 53 20 55 4e 45 56 45 4e 00 34 ┆ DMSUBR 4 J P* 4 b P* 4 l , PMVUS60 EQU * REQUESTED LENGTH WAS UNEVEN 4┆
0x51c…56c 00 76 00 28 00 50 5c 53 55 4b 5c 41 33 2c 31 5c 4d 41 4b 45 20 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 20 45 56 45 4e 00 34 00 a6 00 2a 00 50 5c 52 46 28 4e 50 29 5c 4d 56 55 53 37 30 5c 4f 4e 4c 59 20 4f 4e 45 20 43 48 41 52 2e 20 ┆ v ( P SUK A3,1 MAKE REQUESTED LENGTH EVEN 4 * P RF(NP) MVUS70 ONLY ONE CHAR. ┆
0x56c…5bc 54 4f 20 4d 4f 56 45 3f 00 34 00 d2 00 1a 00 50 5c 4c 44 52 5c 41 34 2c 41 31 5c 4e 4f 2c 20 53 41 56 45 20 41 31 00 34 01 00 00 16 00 50 5c 4c 44 52 5c 41 35 2c 41 33 5c 53 41 56 45 20 41 33 00 34 01 1e 00 0c 00 50 5c 4d 56 55 53 5c 41 33 ┆TO MOVE? 4 P LDR A4,A1 NO, SAVE A1 4 P LDR A5,A3 SAVE A3 4 P MVUS A3┆
0x5bc…60c 00 34 01 38 00 2a 00 50 5c 41 44 52 5c 41 34 2c 41 35 5c 55 50 44 41 54 45 20 55 53 45 52 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 00 34 01 48 00 2e 00 50 5c 45 4c 52 5c 41 35 2c 41 34 5c 47 45 54 20 4c 41 53 54 20 43 48 41 52 2e 20 ┆ 4 8 * P ADR A4,A5 UPDATE USER BUFFER ADDRESS 4 H . P ELR A5,A4 GET LAST CHAR. ┆