|
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: 2116 (0x844)
Notes: pts_type(UF)
Names: »UPDNSU.UF«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKAPP/UPDNSU.UF«
LED C:NSU,/S,!! !!IL 46 ENTRY K:CON CONVERT 1-15 TO A-Z !!IL 71 EXTRN K:F370 !!IL 79 EXTRN K:ST10 EXTRN K:LD10 !!IL 962 EJECT K:CON EQU * CF A14,K:ST10 SAVE 10 REG. LDKL A8,K:KBE GET ECB KEYBOARD LD A1,K:EBA,A8 GET BUF.ADR. LD A9,INPBL,A1 GET LENGTH LDR A7,A9 ADR A9,A1 SUKL A9,1 ADK A1,4 CHECK LL LDR A5,A1 LCR A1,A1 GET CHAR ANK A1,/FF CWK A1,/2C COMMA ? RF(Z) TC005 YES ADK A5,1 TC005 EQU * ADK A5,1 LDR A4,A5 A4 STORE POINTER TC001 EQU * LDR A1,A5 CONVERT XX TO A-O LCR A1,A1 ANK A1,/FF LDR A6,A5 ADK A6,1 CWR A6,A9 END BUFFER ? RF(P) TC002 YES,AND ONE DIG. LCR A6,A6 SEC.DIG. ANK A6,/FF CWK A6,/2C ONE DIG.? RF(Z) TC002 YES CWK A6,/12 END BUFFER RF(Z) TC002 YES,AND ONE DIG. SUK A1,/30 ONE DIG ? RF(Z) TC002 YES SUK A1,1 CHECK VALIDITY OF TWO DIG.EXPR. RF(P) NOVAL SUK A6,/35 RF(P) NOVAL ADK A6,/35 ADK A6,/1A SC A6,0,A4 LDK A6,/2C SC A6,1,A4 ADK A5,1 SUK A7,1 CWR A5,A9 END OF BUFFER RF(Z) TCEN1 ADK A5,2 ADK A4,2 RB TC001 TC002 EQU * SUK A1,/30 TEST IF ZERO RF(Z) NOVAL ADK A1,/40 SC A1,0,A4 LDK A1,/2C STORE COMMA SC A1,1,A4 CWR A5,A9 RF(Z) TCEN1 ADK A5,2 ADK A4,2 RB TC001 NOVAL EQU * CF A14,K:PRTN DATA K:F370 CF A14,K:LD10 ADKL A14,4 LDK A1,1 RF TCEN TCEN1 EQU * LD A8,K:EBA,A8 GET BUFFER ADR. ST A7,INPBL,A8 ST.NEW LENGTH CF A14,K:LD10 RESTORE REG. ADKL A14,4 SUR A1,A1 TCEN EQU * ABR* A14 !!EN ASM /S KPF /S ASG /E0,DK,UPDONW
0x000…018 (0, 0, 400) Head {h00=0x0014, h01=0x0050, text=»LED C:NSU,/S,!! «, t00=0x0000, t01=0x0004}
0x018…028 Head {h00=0x000c, h01=0x0050, text=»!!IL 46 «, t00=0x0000, t01=0x001c}
0x028…050 Head {h00=0x0024, h01=0x0050, text=» ENTRY K:CON CONVERT 1-15 TO A-Z«, t00=0x0000, t01=0x002c}
0x050…060 Head {h00=0x000c, h01=0x0050, text=»!!IL 71 «, t00=0x0000, t01=0x0054}
0x060…076 Head {h00=0x0012, h01=0x0050, text=» EXTRN K:F370 «, t00=0x0000, t01=0x0064}
0x076…086 Head {h00=0x000c, h01=0x0050, text=»!!IL 79 «, t00=0x0000, t01=0x007a}
0x086…09c Head {h00=0x0012, h01=0x0050, text=» EXTRN K:ST10 «, t00=0x0000, t01=0x008a}
0x09c…0b2 Head {h00=0x0012, h01=0x0050, text=» EXTRN K:LD10 «, t00=0x0000, t01=0x00a0}
0x0b2…0c2 Head {h00=0x000c, h01=0x0050, text=»!!IL 962«, t00=0x0000, t01=0x00b6}
0x0c2…0d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x00c6}
0x0d0…0e4 Head {h00=0x0010, h01=0x0050, text=»K:CON EQU * «, t00=0x0000, t01=0x00d4}
0x0e4…108 Head {h00=0x0020, h01=0x0050, text=» CF A14,K:ST10 SAVE 10 REG. «, t00=0x0000, t01=0x00e8}
0x108…130 Head {h00=0x0024, h01=0x0050, text=» LDKL A8,K:KBE GET ECB KEYBOARD «, t00=0x0000, t01=0x010c}
0x130…154 Head {h00=0x0020, h01=0x0050, text=» LD A1,K:EBA,A8 GET BUF.ADR.«, t00=0x0000, t01=0x0134}
0x154…176 Head {h00=0x001e, h01=0x0050, text=» LD A9,INPBL,A1 GET LENGTH«, t00=0x0000, t01=0x0158}
0x176…188 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A9«, t00=0x0000, t01=0x017a}
0x188…19a Head {h00=0x000e, h01=0x0050, text=» ADR A9,A1«, t00=0x0000, t01=0x018c}
0x19a…1ac Head {h00=0x000e, h01=0x0050, text=» SUKL A9,1«, t00=0x0001, t01=0x000e}
0x1ac…1c6 Head {h00=0x0016, h01=0x0050, text=» ADK A1,4 CHECK LL«, t00=0x0001, t01=0x0020}
0x1c6…1d8 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x0001, t01=0x003a}
0x1d8…1f4 Head {h00=0x0018, h01=0x0050, text=» LCR A1,A1 GET CHAR «, t00=0x0001, t01=0x004c}
0x1f4…208 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0001, t01=0x0068}
0x208…224 Head {h00=0x0018, h01=0x0050, text=» CWK A1,/2C COMMA ? «, t00=0x0001, t01=0x007c}
0x224…23c Head {h00=0x0014, h01=0x0050, text=» RF(Z) TC005 YES«, t00=0x0001, t01=0x0098}
0x23c…24e Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x0001, t01=0x00b0}
0x24e…262 Head {h00=0x0010, h01=0x0050, text=»TC005 EQU * «, t00=0x0001, t01=0x00c2}
0x262…274 Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x0001, t01=0x00d6}
0x274…298 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A5 A4 STORE POINTER «, t00=0x0001, t01=0x00e8}
0x298…2ac Head {h00=0x0010, h01=0x0050, text=»TC001 EQU * «, t00=0x0001, t01=0x010c}
0x2ac…2d0 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A5 CONVERT XX TO A-O«, t00=0x0001, t01=0x0120}
0x2d0…2e2 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A1«, t00=0x0001, t01=0x0144}
0x2e2…2f6 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0001, t01=0x0156}
0x2f6…308 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A5«, t00=0x0001, t01=0x016a}
0x308…31a Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0001, t01=0x017c}
0x31a…33a Head {h00=0x001c, h01=0x0050, text=» CWR A6,A9 END BUFFER ? «, t00=0x0001, t01=0x018e}
0x33a…360 Head {h00=0x0022, h01=0x0050, text=» RF(P) TC002 YES,AND ONE DIG. «, t00=0x0002, t01=0x001e}
0x360…37c Head {h00=0x0018, h01=0x0050, text=» LCR A6,A6 SEC.DIG. «, t00=0x0002, t01=0x0044}
0x37c…390 Head {h00=0x0010, h01=0x0050, text=» ANK A6,/FF «, t00=0x0002, t01=0x0060}
0x390…3ae Head {h00=0x001a, h01=0x0050, text=» CWK A6,/2C ONE DIG.? «, t00=0x0002, t01=0x0074}
0x3ae…3c6 Head {h00=0x0014, h01=0x0050, text=» RF(Z) TC002 YES«, t00=0x0002, t01=0x0092}
0x3c6…3e4 Head {h00=0x001a, h01=0x0050, text=» CWK A6,/12 END BUFFER«, t00=0x0002, t01=0x00aa}
0x3e4…40a Head {h00=0x0022, h01=0x0050, text=» RF(Z) TC002 YES,AND ONE DIG. «, t00=0x0002, t01=0x00c8}
0x40a…428 Head {h00=0x001a, h01=0x0050, text=» SUK A1,/30 ONE DIG ? «, t00=0x0002, t01=0x00ee}
0x428…440 Head {h00=0x0014, h01=0x0050, text=» RF(Z) TC002 YES«, t00=0x0002, t01=0x010c}
0x440…472 Head {h00=0x002e, h01=0x0050, text=» SUK A1,1 CHECK VALIDITY OF TWO DIG.EXPR. «, t00=0x0002, t01=0x0124}
0x472…486 Head {h00=0x0010, h01=0x0050, text=» RF(P) NOVAL«, t00=0x0002, t01=0x0156}
0x486…49a Head {h00=0x0010, h01=0x0050, text=» SUK A6,/35 «, t00=0x0002, t01=0x016a}
0x49a…4ae Head {h00=0x0010, h01=0x0050, text=» RF(P) NOVAL«, t00=0x0002, t01=0x017e}
0x4ae…4c2 (3, 0, 400) Head {h00=0x0010, h01=0x0050, text=» ADK A6,/35 «, t00=0x0003, t01=0x0004}
0x4c2…4d6 Head {h00=0x0010, h01=0x0050, text=» ADK A6,/1A «, t00=0x0003, t01=0x0018}
0x4d6…4ea Head {h00=0x0010, h01=0x0050, text=» SC A6,0,A4 «, t00=0x0003, t01=0x002c}
0x4ea…4fe Head {h00=0x0010, h01=0x0050, text=» LDK A6,/2C «, t00=0x0003, t01=0x0040}
0x4fe…512 Head {h00=0x0010, h01=0x0050, text=» SC A6,1,A4 «, t00=0x0003, t01=0x0054}
0x512…524 Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x0003, t01=0x0068}
0x524…536 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1«, t00=0x0003, t01=0x007a}
0x536…556 Head {h00=0x001c, h01=0x0050, text=» CWR A5,A9 END OF BUFFER«, t00=0x0003, t01=0x008c}
0x556…56a Head {h00=0x0010, h01=0x0050, text=» RF(Z) TCEN1«, t00=0x0003, t01=0x00ac}
0x56a…57c Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x0003, t01=0x00c0}
0x57c…58e Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0003, t01=0x00d2}
0x58e…5a0 Head {h00=0x000e, h01=0x0050, text=» RB TC001 «, t00=0x0003, t01=0x00e4}
0x5a0…5b4 Head {h00=0x0010, h01=0x0050, text=»TC002 EQU * «, t00=0x0003, t01=0x00f6}
0x5b4…5d4 Head {h00=0x001c, h01=0x0050, text=» SUK A1,/30 TEST IF ZERO«, t00=0x0003, t01=0x010a}
0x5d4…5e8 Head {h00=0x0010, h01=0x0050, text=» RF(Z) NOVAL«, t00=0x0003, t01=0x012a}
0x5e8…5fc Head {h00=0x0010, h01=0x0050, text=» ADK A1,/40 «, t00=0x0003, t01=0x013e}
0x5fc…610 Head {h00=0x0010, h01=0x0050, text=» SC A1,0,A4 «, t00=0x0003, t01=0x0152}
0x610…630 Head {h00=0x001c, h01=0x0050, text=» LDK A1,/2C STORE COMMA «, t00=0x0003, t01=0x0166}
0x630…644 Head {h00=0x0010, h01=0x0050, text=» SC A1,1,A4 «, t00=0x0003, t01=0x0186}
0x644…656 Head {h00=0x000e, h01=0x0050, text=» CWR A5,A9«, t00=0x0004, t01=0x000a}
0x656…66a Head {h00=0x0010, h01=0x0050, text=» RF(Z) TCEN1«, t00=0x0004, t01=0x001c}
0x66a…67c Head {h00=0x000e, h01=0x0050, text=» ADK A5,2 «, t00=0x0004, t01=0x0030}
0x67c…68e Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0004, t01=0x0042}
0x68e…6a0 Head {h00=0x000e, h01=0x0050, text=» RB TC001 «, t00=0x0004, t01=0x0054}
0x6a0…6b4 Head {h00=0x0010, h01=0x0050, text=»NOVAL EQU * «, t00=0x0004, t01=0x0066}
0x6b4…6ca Head {h00=0x0012, h01=0x0050, text=» CF A14,K:PRTN«, t00=0x0004, t01=0x007a}
0x6ca…6de Head {h00=0x0010, h01=0x0050, text=» DATA K:F370«, t00=0x0004, t01=0x0090}
0x6de…6f4 Head {h00=0x0012, h01=0x0050, text=» CF A14,K:LD10«, t00=0x0004, t01=0x00a4}
0x6f4…708 Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x0004, t01=0x00ba}
0x708…71a Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0004, t01=0x00ce}
0x71a…72a Head {h00=0x000c, h01=0x0050, text=» RF TCEN«, t00=0x0004, t01=0x00e0}
0x72a…73e Head {h00=0x0010, h01=0x0050, text=»TCEN1 EQU * «, t00=0x0004, t01=0x00f0}
0x73e…766 Head {h00=0x0024, h01=0x0050, text=» LD A8,K:EBA,A8 GET BUFFER ADR. «, t00=0x0004, t01=0x0104}
0x766…78c Head {h00=0x0022, h01=0x0050, text=» ST A7,INPBL,A8 ST.NEW LENGTH «, t00=0x0004, t01=0x012c}
0x78c…7b0 Head {h00=0x0020, h01=0x0050, text=» CF A14,K:LD10 RESTORE REG. «, t00=0x0004, t01=0x0152}
0x7b0…7c4 Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x0004, t01=0x0176}
0x7c4…7d6 Head {h00=0x000e, h01=0x0050, text=» SUR A1,A1«, t00=0x0004, t01=0x018a}
0x7d6…7e8 Head {h00=0x000e, h01=0x0050, text=»TCEN EQU *«, t00=0x0005, t01=0x000c}
0x7e8…7fa Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x0005, t01=0x001e}
0x7fa…806 Head {h00=0x0008, h01=0x0050, text=»!!EN«, t00=0x0005, t01=0x0030}
0x806…814 Head {h00=0x000a, h01=0x0050, text=»ASM /S«, t00=0x0005, t01=0x003c}
0x814…822 Head {h00=0x000a, h01=0x0050, text=»KPF /S«, t00=0x0005, t01=0x004a}
0x822…83c Head {h00=0x0016, h01=0x0050, text=»ASG /E0,DK,UPDONW «, t00=0x0005, t01=0x0058}
0x83c…844 (6, 1, 8) 20 04 00 00 00 06 00 04 ┆ ┆