|
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: 1336 (0x538)
Notes: pts_type(UF)
Names: »TRAALL.UF«
└─⟦cd4bbebb4⟧ Bits:30009680 Philips computer tape "600221"
└─⟦this⟧ »ATM6601/TRAALL.UF«
SCR ASG 2,LP0F TRA DDIV TRA SKELET TRA TABSIM TRA SUBS SCR ASG /E0,TY10
0x000…00c (0, 0, 130) Head {h00=0x0008, h01=0x0003, text=»SCR «, t00=0x0000, t01=0x0004}
0x00c…01e Head {h00=0x000e, h01=0x000a, text=»ASG 2,LP0F«, t00=0x0000, t01=0x0010}
0x01e…02e Head {h00=0x000c, h01=0x0008, text=»TRA DDIV«, t00=0x0000, t01=0x0022}
0x02e…040 Head {h00=0x000e, h01=0x000a, text=»TRA SKELET«, t00=0x0000, t01=0x0032}
0x040…052 Head {h00=0x000e, h01=0x000a, text=»TRA TABSIM«, t00=0x0000, t01=0x0044}
0x052…062 Head {h00=0x000c, h01=0x0008, text=»TRA SUBS«, t00=0x0000, t01=0x0056}
0x062…06e Head {h00=0x0008, h01=0x0003, text=»SCR «, t00=0x0000, t01=0x0066}
0x06e…082 Head {h00=0x0010, h01=0x000c, text=»ASG /E0,TY10«, t00=0x0000, t01=0x0072}
0x082…086 (1, 1, 8) Head {h00=0x2004, h01=0x0000}
0x086…08a 00 01 00 04 ┆ ┆
0x08a…0da (2, 0, 400) 00 06 00 50 2a 20 00 72 00 04 00 10 00 50 2a 20 46 55 4e 43 54 49 4f 4e 3a 20 00 72 00 0e 00 32 00 50 2a 5c 54 48 49 53 20 52 4f 55 54 49 4e 45 20 4c 49 4e 4b 53 20 41 20 51 55 45 55 45 20 45 4c 45 4d 45 4e 54 20 46 49 52 53 54 20 49 4e 20 ┆ P* r P* FUNCTION: r 2 P* THIS ROUTINE LINKS A QUEUE ELEMENT FIRST IN ┆
0x0da…12a 00 72 00 22 00 26 00 50 2a 5c 41 20 51 55 45 55 45 20 28 43 4c 4f 53 45 53 54 20 54 4f 20 51 55 45 55 45 20 48 45 41 44 29 2e 00 72 00 58 00 32 00 50 2a 5c 4f 4e 45 20 57 4f 52 44 20 49 4e 20 45 41 43 48 20 45 4c 45 4d 45 4e 54 20 49 53 20 ┆ r " & P* A QUEUE (CLOSEST TO QUEUE HEAD). r X 2 P* ONE WORD IN EACH ELEMENT IS ┆
0x12a…17a 55 53 45 44 20 41 53 20 41 20 4c 49 4e 4b 2e 20 00 72 00 82 00 32 00 50 2a 5c 45 4e 44 20 4f 46 20 51 55 45 55 45 20 49 53 20 49 4e 44 49 43 41 54 45 44 20 42 59 20 4c 49 4e 4b 3d 30 20 49 4e 20 4c 41 53 54 20 00 72 00 b8 00 0e 00 50 2a 5c ┆USED AS A LINK. r 2 P* END OF QUEUE IS INDICATED BY LINK=0 IN LAST r P* ┆
0x17a…1ca 45 4c 45 4d 45 4e 54 2e 00 72 00 ee 00 06 00 50 2a 20 00 72 01 00 00 0c 00 50 2a 20 43 41 4c 4c 3a 20 00 72 01 0a 00 14 00 50 2a 5c 43 46 5c 41 31 35 2c 4e 44 4c 4b 46 53 20 00 72 01 1a 00 06 00 50 2a 20 00 72 01 32 00 0c 00 50 2a 20 49 4e ┆ELEMENT. r P* r P* CALL: r P* CF A15,NDLKFS r P* r 2 P* IN┆
0x1ca…21a 50 55 54 3a 00 72 01 3c 00 26 00 50 2a 5c 41 34 20 20 3d 5c 51 55 45 55 45 20 45 4c 45 4d 45 4e 54 20 4c 49 4e 4b 20 41 44 44 52 45 53 53 00 72 01 4c 00 24 00 50 2a 5c 41 37 20 20 3d 5c 51 55 45 55 45 20 48 45 41 44 20 4c 49 4e 4b 20 41 44 ┆PUT: r < & P* A4 = QUEUE ELEMENT LINK ADDRESS r L $ P* A7 = QUEUE HEAD LINK AD┆
0x21a…26a (3, 0, 398) 44 52 45 53 53 20 00 72 01 76 00 06 00 50 2a 20 00 73 00 0e 00 0e 00 50 2a 20 4f 55 54 50 55 54 3a 20 00 73 00 18 00 14 00 50 2a 5c 41 31 20 20 3d 5c 43 48 41 4e 47 45 44 20 00 73 00 2a 00 14 00 50 2a 5c 43 52 20 20 3d 5c 43 48 41 4e 47 45 ┆DRESS r v P* s P* OUTPUT: s P* A1 = CHANGED s * P* CR = CHANGE┆
0x26a…2ba 44 20 00 73 00 42 00 06 00 50 2a 20 00 73 00 5a 00 40 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 2a 2a 2a 2a 2a 2a ┆D s B P* s Z @ P************************************************************┆
0x2ba…30a 00 73 00 64 00 06 00 50 2a 20 00 73 00 a8 00 10 00 50 4e 44 4c 4b 46 53 5c 45 51 55 5c 2a 00 73 00 b2 00 10 00 50 5c 49 46 46 5c 52 4f 55 54 3d 30 20 00 73 00 c6 00 24 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 37 5c 46 49 52 53 54 20 51 55 45 55 ┆ s d P* s PNDLKFS EQU * s P IFF ROUT=0 s $ P LDR* A1,A7 FIRST QUEU┆
0x30a…35a 45 20 45 4c 45 4d 45 4e 54 20 00 73 00 da 00 28 00 50 5c 53 54 52 5c 41 31 2c 41 34 5c 53 45 54 20 4c 49 4e 4b 20 46 52 4f 4d 20 4e 45 57 20 45 4c 45 4d 45 4e 54 00 73 01 02 00 24 00 50 5c 53 54 52 5c 41 34 2c 41 37 5c 53 45 54 20 4e 45 57 ┆E ELEMENT s ( P STR A1,A4 SET LINK FROM NEW ELEMENT s $ P STR A4,A7 SET NEW┆
0x35a…3a8 20 45 4c 45 4d 45 4e 54 20 46 49 52 53 54 00 73 01 2e 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 31 20 00 73 01 56 00 16 00 50 5c 52 46 5c 4c 4e 4b 52 45 54 5c 52 45 54 55 52 4e 20 00 73 01 6c 00 08 00 50 5c 58 49 46 00 73 01 86 ┆ ELEMENT FIRST s . P IFT CPU852=1 s V P RF LNKRET RETURN s l P XIF s ┆
0x3a8…3f8 (4, 0, 400) 00 10 00 50 5c 49 46 46 5c 52 4f 55 54 3d 30 20 00 74 00 04 00 12 00 50 5c 49 46 46 5c 43 50 55 38 35 32 3d 31 20 00 74 00 18 00 0c 00 50 5c 52 54 4e 5c 41 31 35 00 74 00 2e 00 08 00 50 5c 58 49 46 00 74 00 3e 00 06 00 50 2a 20 00 74 00 4a ┆ P IFF ROUT=0 t P IFF CPU852=1 t P RTN A15 t . P XIF t > P* t J┆
0x3f8…448 00 0a 00 50 5c 45 4a 45 43 54 00 74 00 54 00 06 00 50 2a 20 00 74 00 62 00 40 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 ┆ P EJECT t T P* t b @ P****************************************************┆
0x448…498 2a 2a 2a 2a 2a 2a 2a 2a 00 74 00 6c 00 06 00 50 2a 20 00 74 00 b0 00 14 00 50 2a 20 52 4f 55 54 49 4e 45 20 4e 41 4d 45 3a 20 00 74 00 ba 00 0c 00 50 2a 5c 4e 44 4c 4b 4c 53 00 74 00 d2 00 06 00 50 2a 20 00 74 00 e2 00 10 00 50 2a 20 46 55 ┆******** t l P* t P* ROUTINE NAME: t P* NDLKLS t P* t P* FU┆
0x498…4e8 4e 43 54 49 4f 4e 3a 20 00 74 00 ec 00 30 00 50 2a 5c 54 48 49 53 20 52 4f 55 54 49 4e 45 20 4c 49 4e 4b 53 20 41 20 51 55 45 55 45 20 45 4c 45 4d 45 4e 54 20 4c 41 53 54 20 49 4e 00 74 01 00 00 2a 00 50 2a 5c 41 20 51 55 45 55 45 20 28 4f ┆NCTION: t 0 P* THIS ROUTINE LINKS A QUEUE ELEMENT LAST IN t * P* A QUEUE (O┆
0x4e8…538 50 4f 53 49 54 45 20 45 4e 44 20 54 4f 20 51 55 45 55 45 20 48 45 41 44 29 2e 00 74 01 34 00 32 00 50 2a 5c 4f 4e 45 20 57 4f 52 44 20 49 4e 20 45 41 43 48 20 45 4c 45 4d 45 4e 54 20 49 53 20 55 53 45 44 20 41 53 20 41 20 4c 49 4e 4b 2e 20 ┆POSITE END TO QUEUE HEAD). t 4 2 P* ONE WORD IN EACH ELEMENT IS USED AS A LINK. ┆