|
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: 1604 (0x644)
Notes: pts_type(UF)
Names: »UPDSUB.UF«
└─⟦2a21e4bb5⟧ Bits:30009691 Philips computer tape "600408"
└─⟦this⟧ »BDKAPP/UPDSUB.UF«
LED C:SUB,/S,!! !!DL 1 UPDATE #2 78.03.07 JES !!RE 25,$$760212$$78.03.07$$ !!IL 72 EXTRN K:ID C:SET !!DL 77 !!DL 400,414 !!IL 415 DATINC EQU 1 IF 1 AUTOMATIC INCREMENTATION OF DATE ONLY FOR TOSS RELEASE 8.1 OR GREATER !!IL 989 * K:ST8,K:LD8 * K:ID IN C:SET !!DL 995 * CHANGED REGS: NONE !!RE 997,$$6$$14$$ !!DL 1014,1015 CF A14,K:ST8 SAVE A1-A8 !!IL 1021 IFT DATINC=1 LDR A7,A7 MIDNIGTH CARRY? RF(Z) TIME10 NO CF A14,K:ID INCREMENT DATE TIME10 EQU * XIF CF A14,K:LD8 RESTORE A1-A8 RTN A14 !!DL 1022,1024 !!EN BEA /S KPF /O ASG /E0,TY10
0x000…018 (0, 0, 400) Head {h00=0x0014, h01=0x0050, text=»LED C:SUB,/S,!! «, t00=0x0000, t01=0x0004}
0x018…026 Head {h00=0x000a, h01=0x0050, text=»!!DL 1«, t00=0x0000, t01=0x001c}
0x026…048 Head {h00=0x001e, h01=0x0050, text=» UPDATE #2 78.03.07 JES «, t00=0x0000, t01=0x002a}
0x048…06c Head {h00=0x0020, h01=0x0050, text=»!!RE 25,$$760212$$78.03.07$$«, t00=0x0000, t01=0x004c}
0x06c…07c Head {h00=0x000c, h01=0x0050, text=»!!IL 72 «, t00=0x0000, t01=0x0070}
0x07c…096 Head {h00=0x0016, h01=0x0050, text=» EXTRN K:ID C:SET «, t00=0x0000, t01=0x0080}
0x096…0a6 Head {h00=0x000c, h01=0x0050, text=»!!DL 77 «, t00=0x0000, t01=0x009a}
0x0a6…0ba Head {h00=0x0010, h01=0x0050, text=»!!DL 400,414«, t00=0x0000, t01=0x00aa}
0x0ba…0ca Head {h00=0x000c, h01=0x0050, text=»!!IL 415«, t00=0x0000, t01=0x00be}
0x0ca…104 Head {h00=0x0036, h01=0x0050, text=»DATINC EQU 1 IF 1 AUTOMATIC INCREMENTATION OF DATE«, t00=0x0000, t01=0x00ce}
0x104…134 Head {h00=0x002c, h01=0x0050, text=» ONLY FOR TOSS RELEASE 8.1 OR GREATER «, t00=0x0000, t01=0x0108}
0x134…144 Head {h00=0x000c, h01=0x0050, text=»!!IL 989«, t00=0x0000, t01=0x0138}
0x144…15a Head {h00=0x0012, h01=0x0050, text=»* K:ST8,K:LD8«, t00=0x0000, t01=0x0148}
0x15a…172 Head {h00=0x0014, h01=0x0050, text=»* K:ID IN C:SET«, t00=0x0000, t01=0x015e}
0x172…182 Head {h00=0x000c, h01=0x0050, text=»!!DL 995«, t00=0x0000, t01=0x0176}
0x182…1a0 Head {h00=0x001a, h01=0x0050, text=»* CHANGED REGS: NONE «, t00=0x0000, t01=0x0186}
0x1a0…1ba Head {h00=0x0016, h01=0x0050, text=»!!RE 997,$$6$$14$$«, t00=0x0001, t01=0x0014}
0x1ba…1d0 Head {h00=0x0012, h01=0x0050, text=»!!DL 1014,1015«, t00=0x0001, t01=0x002e}
0x1d0…1f0 Head {h00=0x001c, h01=0x0050, text=» CF A14,K:ST8 SAVE A1-A8«, t00=0x0001, t01=0x0044}
0x1f0…202 Head {h00=0x000e, h01=0x0050, text=»!!IL 1021 «, t00=0x0001, t01=0x0064}
0x202…218 Head {h00=0x0012, h01=0x0050, text=» IFT DATINC=1 «, t00=0x0001, t01=0x0076}
0x218…23a Head {h00=0x001e, h01=0x0050, text=» LDR A7,A7 MIDNIGTH CARRY?«, t00=0x0001, t01=0x008c}
0x23a…252 Head {h00=0x0014, h01=0x0050, text=» RF(Z) TIME10 NO«, t00=0x0001, t01=0x00ae}
0x252…276 Head {h00=0x0020, h01=0x0050, text=» CF A14,K:ID INCREMENT DATE «, t00=0x0001, t01=0x00c6}
0x276…28a Head {h00=0x0010, h01=0x0050, text=»TIME10 EQU *«, t00=0x0001, t01=0x00ea}
0x28a…296 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0001, t01=0x00fe}
0x296…2ba Head {h00=0x0020, h01=0x0050, text=» CF A14,K:LD8 RESTORE A1-A8 «, t00=0x0001, t01=0x010a}
0x2ba…2ca Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0001, t01=0x012e}
0x2ca…2e0 Head {h00=0x0012, h01=0x0050, text=»!!DL 1022,1024«, t00=0x0001, t01=0x013e}
0x2e0…2ec Head {h00=0x0008, h01=0x0050, text=»!!EN«, t00=0x0001, t01=0x0154}
0x2ec…2fa Head {h00=0x000a, h01=0x0050, text=»BEA /S«, t00=0x0001, t01=0x0160}
0x2fa…308 Head {h00=0x000a, h01=0x0050, text=»KPF /O«, t00=0x0001, t01=0x016e}
0x308…31c Head {h00=0x0010, h01=0x0050, text=»ASG /E0,TY10«, t00=0x0001, t01=0x017c}
0x31c…320 (2, 1, 8) Head {h00=0x2004, h01=0x0000}
0x320…324 00 02 00 04 ┆ ┆
0x324…374 (3, 0, 400) 20 20 22 20 00 02 01 80 00 06 00 50 2a 20 00 03 00 0c 00 36 00 50 5c 45 4e 54 52 59 5c 4b 3a 4c 44 31 30 5c 31 30 20 52 45 47 53 20 41 52 45 20 4c 4f 41 44 45 44 20 46 52 4f 4d 20 41 31 34 20 53 54 41 43 4b 45 52 20 00 03 00 16 00 16 00 50 ┆ " P* 6 P ENTRY K:LD10 10 REGS ARE LOADED FROM A14 STACKER P┆
0x374…3c4 5c 45 4e 54 52 59 5c 4b 3a 4c 44 38 5c 20 38 20 20 22 00 03 00 50 00 16 00 50 5c 45 4e 54 52 59 5c 4b 3a 4c 44 36 5c 20 36 20 20 22 00 03 00 6a 00 16 00 50 5c 45 4e 54 52 59 5c 4b 3a 4c 44 34 5c 20 34 20 20 22 00 03 00 84 00 16 00 50 5c 45 ┆ ENTRY K:LD8 8 " P P ENTRY K:LD6 6 " j P ENTRY K:LD4 4 " P E┆
0x3c4…414 4e 54 52 59 5c 4b 3a 4c 44 32 5c 20 32 20 20 22 00 03 00 9e 00 18 00 50 5c 45 4e 54 52 59 5c 4b 3a 4c 44 31 32 5c 31 32 20 20 22 20 00 03 00 b8 00 06 00 50 2a 20 00 03 00 d4 00 26 00 50 5c 45 4e 54 52 59 5c 4b 3a 43 4e 54 5c 41 44 44 20 44 ┆NTRY K:LD2 2 " P ENTRY K:LD12 12 " P* & P ENTRY K:CNT ADD D┆
0x414…464 49 47 49 54 20 54 4f 20 45 4c 45 4d 45 4e 54 20 00 03 00 de 00 06 00 50 2a 20 00 03 01 08 00 26 00 50 5c 45 4e 54 52 59 5c 4b 3a 54 49 4d 45 5c 4d 4f 56 45 20 54 49 4d 45 20 54 4f 20 45 4c 45 4d 45 4e 54 00 03 01 12 00 06 00 50 2a 20 00 03 ┆IGIT TO ELEMENT P* & P ENTRY K:TIME MOVE TIME TO ELEMENT P* ┆
0x464…4b4 01 3c 00 1a 00 50 5c 45 4e 54 52 59 5c 4b 3a 4d 4f 56 5c 4d 4f 56 45 20 41 52 45 41 00 03 01 46 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 53 55 42 20 00 03 01 64 00 06 00 50 2a 20 00 03 01 80 00 06 00 50 2a 20 00 03 01 8a ┆ < P ENTRY K:MOV MOVE AREA F P EJECT IDENT C:SUB d P* P* ┆
0x4b4…504 (4, 0, 400) 00 1a 00 50 2a 5c 45 58 54 45 52 4e 41 4c 20 52 45 46 45 52 45 4e 53 45 53 20 00 04 00 04 00 06 00 50 2a 20 00 04 00 22 00 44 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 ┆ P* EXTERNAL REFERENSES P* " D P************************************┆
0x504…554 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 20 00 04 00 2c 00 06 00 50 2a 20 00 04 00 74 00 18 00 50 2a 5c 5c 41 44 44 52 45 53 53 5c 49 4e 20 4d 4f 44 55 4c 45 00 04 00 7e 00 06 00 50 2a 20 00 04 00 9a ┆*************************** , P* t P* ADDRESS IN MODULE ~ P* ┆
0x554…5a4 00 06 00 50 2a 20 00 04 00 a4 00 1a 00 50 5c 45 58 54 52 4e 5c 54 3a 4f 50 41 5c 54 4f 53 53 46 55 4e 4b 20 00 04 00 ae 00 06 00 50 2a 20 00 04 00 cc 00 16 00 50 5c 45 58 54 52 4e 5c 4b 3a 57 42 54 5c 43 3a 57 42 53 00 04 00 d6 00 06 00 50 ┆ P* P EXTRN T:OPA TOSSFUNK P* P EXTRN K:WBT C:WBS P┆
0x5a4…5f4 2a 20 00 04 00 f0 00 16 00 50 5c 45 58 54 52 4e 5c 4b 3a 49 44 5c 43 3a 53 45 54 20 00 04 00 fa 00 06 00 50 2a 20 00 04 01 14 00 4c 00 50 2a 20 20 48 45 52 45 20 49 53 20 54 48 45 20 4d 4f 44 55 4c 45 20 27 43 3a 45 51 55 27 20 57 49 54 48 ┆* P EXTRN K:ID C:SET P* L P* HERE IS THE MODULE 'C:EQU' WITH┆
0x5f4…644 20 43 4f 4d 4d 4f 4e 20 45 51 55 41 54 45 53 20 49 4e 43 4c 55 44 45 44 20 57 49 54 48 4f 55 54 20 4c 49 53 54 20 00 04 01 1e 00 06 00 50 2a 20 00 04 01 6e 00 0a 00 50 5c 4e 4c 49 53 54 00 04 01 78 00 06 00 50 2a 20 00 04 01 86 00 06 00 50 ┆ COMMON EQUATES INCLUDED WITHOUT LIST P* n P NLIST x P* P┆