|
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: 1528 (0x5f8)
Notes: pts_type(UF)
Names: »BUGLK4.UF«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKMON/BUGLK4.UF«
LED DRDC15,/S !!CH $$SSTAT EQU 0$$SSTAT EQU 0$$ !!EN ASM /S,NL KPF /O SCR SKF LED INIMOD !!DL 22 !!EN ASM /S KPF /O SCR INC INTVMD INC INIMOD LKE M KPF /L,BUGMON SCR ASG /E0,TY10
0x000…016 (0, 0, 322) Head {h00=0x0012, h01=0x0050, text=»LED DRDC15,/S «, t00=0x0000, t01=0x0004}
0x016…040 Head {h00=0x0026, h01=0x0050, text=»!!CH $$SSTAT EQU 0$$SSTAT EQU 0$$ «, t00=0x0000, t01=0x001a}
0x040…04c Head {h00=0x0008, h01=0x0050, text=»!!EN«, t00=0x0000, t01=0x0044}
0x04c…05e Head {h00=0x000e, h01=0x0050, text=»ASM /S,NL «, t00=0x0000, t01=0x0050}
0x05e…06c Head {h00=0x000a, h01=0x0050, text=»KPF /O«, t00=0x0000, t01=0x0062}
0x06c…078 Head {h00=0x0008, h01=0x0050, text=»SCR «, t00=0x0000, t01=0x0070}
0x078…084 Head {h00=0x0008, h01=0x0050, text=»SKF «, t00=0x0000, t01=0x007c}
0x084…096 Head {h00=0x000e, h01=0x000a, text=»LED INIMOD«, t00=0x0000, t01=0x0088}
0x096…0a6 Head {h00=0x000c, h01=0x0007, text=»!!DL 22 «, t00=0x0000, t01=0x009a}
0x0a6…0b2 Head {h00=0x0008, h01=0x0004, text=»!!EN«, t00=0x0000, t01=0x00aa}
0x0b2…0c0 Head {h00=0x000a, h01=0x0006, text=»ASM /S«, t00=0x0000, t01=0x00b6}
0x0c0…0ce Head {h00=0x000a, h01=0x0006, text=»KPF /O«, t00=0x0000, t01=0x00c4}
0x0ce…0da Head {h00=0x0008, h01=0x0003, text=»SCR «, t00=0x0000, t01=0x00d2}
0x0da…0ec Head {h00=0x000e, h01=0x000a, text=»INC INTVMD«, t00=0x0000, t01=0x00de}
0x0ec…0fe Head {h00=0x000e, h01=0x000a, text=»INC INIMOD«, t00=0x0000, t01=0x00f0}
0x0fe…10c Head {h00=0x000a, h01=0x0005, text=»LKE M «, t00=0x0000, t01=0x0102}
0x10c…122 Head {h00=0x0012, h01=0x0050, text=»KPF /L,BUGMON «, t00=0x0000, t01=0x0110}
0x122…12e Head {h00=0x0008, h01=0x0003, text=»SCR «, t00=0x0000, t01=0x0126}
0x12e…142 Head {h00=0x0010, h01=0x000c, text=»ASG /E0,TY10«, t00=0x0000, t01=0x0132}
0x142…146 (1, 1, 8) Head {h00=0x2004, h01=0x0000}
0x146…14a 00 01 00 04 ┆ ┆
0x14a…19a (2, 0, 398) 00 1a 00 50 2a 5c 53 54 4f 50 20 52 45 51 55 45 53 54 20 54 49 4d 49 4e 47 20 00 22 00 04 00 06 00 50 2a 20 00 22 00 22 00 26 00 50 2a 5c 52 45 4d 41 49 4e 49 4e 47 20 54 49 4d 45 20 49 53 20 52 45 54 55 52 4e 45 44 20 49 4e 20 41 32 00 22 ┆ P* STOP REQUEST TIMING " P* " " & P* REMAINING TIME IS RETURNED IN A2 "┆
0x19a…1ea 00 2c 00 06 00 50 2a 20 00 22 00 56 00 06 00 50 2a 20 00 22 00 60 00 10 00 50 43 54 49 4d 45 5c 45 51 55 5c 2a 20 00 22 00 6a 00 26 00 50 5c 4c 44 5c 41 32 2c 44 57 54 54 50 2c 41 36 5c 47 45 54 20 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 20 ┆ , P* " V P* " ` PCTIME EQU * " j & P LD A2,DWTTP,A6 GET TIMER POINTER ┆
0x1ea…23a 00 22 00 7e 00 1e 00 50 5c 52 46 28 5a 29 5c 43 54 49 4d 31 30 5c 4e 4f 54 20 52 55 4e 4e 49 4e 47 20 00 22 00 a8 00 10 00 50 5c 4c 44 52 2a 5c 41 32 2c 41 32 20 00 22 00 ca 00 22 00 50 5c 4e 47 52 5c 41 32 2c 41 32 5c 47 45 54 20 52 45 4d ┆ " ~ P RF(Z) CTIM10 NOT RUNNING " P LDR* A2,A2 " " P NGR A2,A2 GET REM┆
0x23a…28a 41 49 4e 49 4e 47 20 54 49 4d 45 20 00 22 00 de 00 1c 00 50 5c 43 4d 2a 5c 44 57 54 54 50 2c 41 36 5c 53 54 4f 50 20 54 49 4d 45 52 00 22 01 04 00 10 00 50 5c 43 4d 5c 44 57 54 54 50 2c 41 36 00 22 01 24 00 10 00 50 43 54 49 4d 31 30 5c 45 ┆AINING TIME " P CM* DWTTP,A6 STOP TIMER " P CM DWTTP,A6 " $ PCTIM10 E┆
0x28a…2d8 51 55 5c 2a 00 22 01 38 00 0e 00 50 5c 52 46 5c 47 42 55 46 31 30 00 22 01 4c 00 0a 00 50 5c 45 4a 45 43 54 00 22 01 5e 00 06 00 50 2a 20 00 22 01 6c 00 18 00 50 2a 5c 47 45 54 20 52 45 43 45 49 56 45 20 42 55 46 46 45 52 00 22 01 76 ┆QU * " 8 P RF GBUF10 " L P EJECT " ^ P* " l P* GET RECEIVE BUFFER " v┆
0x2d8…328 (3, 0, 400) 00 06 00 50 2a 20 00 23 00 04 00 24 00 50 2a 5c 43 41 4c 4c 49 4e 47 20 53 45 51 55 45 4e 43 45 3a 20 43 46 20 41 31 35 2c 47 52 42 55 46 00 23 00 0e 00 20 00 50 2a 5c 41 34 3d 30 20 49 46 20 4e 4f 20 42 55 46 46 45 52 20 49 53 20 46 52 45 ┆ P* # $ P* CALLING SEQUENCE: CF A15,GRBUF # P* A4=0 IF NO BUFFER IS FRE┆
0x328…378 45 20 00 23 00 36 00 26 00 50 2a 5c 45 4c 53 45 20 41 34 20 43 4f 4e 54 41 49 4e 53 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 00 23 00 5a 00 1e 00 50 2a 5c 41 32 20 41 4e 44 20 41 33 20 41 52 45 20 44 45 53 54 52 4f 59 45 44 20 00 23 ┆E # 6 & P* ELSE A4 CONTAINS BUFFER ADDRESS # Z P* A2 AND A3 ARE DESTROYED #┆
0x378…3c8 00 84 00 06 00 50 2a 20 00 23 00 a6 00 06 00 50 2a 20 00 23 00 b0 00 28 00 50 47 52 42 55 46 5c 4c 44 4b 4c 5c 41 32 2c 44 43 52 42 55 46 5c 52 45 43 45 49 56 45 20 42 55 46 46 45 52 53 00 23 00 ba 00 0c 00 50 47 42 55 46 5c 49 4e 48 00 23 ┆ P* # P* # ( PGRBUF LDKL A2,DCRBUF RECEIVE BUFFERS # PGBUF INH #┆
0x3c8…418 00 e6 00 10 00 50 5c 4c 44 52 2a 5c 41 34 2c 41 32 20 00 23 00 f6 00 20 00 50 5c 52 46 28 5a 29 5c 47 42 55 46 31 30 5c 4e 4f 20 42 55 46 46 45 52 20 46 52 45 45 00 23 01 0a 00 2e 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 34 5c 52 45 4d 4f 56 45 ┆ P LDR* A4,A2 # P RF(Z) GBUF10 NO BUFFER FREE # . P LDR* A3,A4 REMOVE┆
0x418…468 20 42 55 46 46 45 52 20 46 52 4f 4d 20 46 52 45 45 20 43 48 41 49 4e 20 00 23 01 2e 00 0e 00 50 5c 53 54 52 5c 41 33 2c 41 32 00 23 01 60 00 2a 00 50 47 42 55 46 31 30 5c 41 44 4b 4c 5c 41 31 35 2c 34 5c 41 44 4a 55 53 54 20 53 54 41 43 4b ┆ BUFFER FROM FREE CHAIN # . P STR A3,A2 # ` * PGBUF10 ADKL A15,4 ADJUST STACK┆
0x468…4b8 (4, 0, 400) 20 50 4f 49 4e 54 45 52 00 23 01 72 00 1e 00 50 5c 41 42 52 2a 5c 41 31 35 5c 52 45 54 55 52 4e 20 54 4f 20 43 41 4c 4c 45 52 00 24 00 10 00 06 00 50 2a 20 00 24 00 32 00 06 00 50 2a 20 00 24 00 3c 00 1a 00 50 2a 5c 47 45 54 20 54 52 41 4e ┆ POINTER # r P ABR* A15 RETURN TO CALLER $ P* $ 2 P* $ < P* GET TRAN┆
0x4b8…508 53 4d 49 54 20 42 55 46 46 45 52 20 00 24 00 46 00 06 00 50 2a 20 00 24 00 64 00 10 00 50 5c 49 46 46 5c 54 42 55 46 4c 3d 30 00 24 00 6e 00 24 00 50 2a 5c 43 41 4c 4c 49 4e 47 20 53 45 51 55 45 4e 43 45 3a 20 43 46 20 41 31 35 2c 47 54 42 ┆SMIT BUFFER $ F P* $ d P IFF TBUFL=0 $ n $ P* CALLING SEQUENCE: CF A15,GTB┆
0x508…558 55 46 00 24 00 82 00 20 00 50 2a 5c 41 34 3d 30 20 49 46 20 4e 4f 20 42 55 46 46 45 52 20 49 53 20 46 52 45 45 20 00 24 00 aa 00 26 00 50 2a 5c 45 4c 53 45 20 41 34 20 43 4f 4e 54 41 49 4e 53 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 ┆UF $ P* A4=0 IF NO BUFFER IS FREE $ & P* ELSE A4 CONTAINS BUFFER ADDRESS ┆
0x558…5a8 00 24 00 ce 00 1e 00 50 2a 5c 41 32 20 41 4e 44 20 41 33 20 41 52 45 20 44 45 53 54 52 4f 59 45 44 20 00 24 00 f8 00 06 00 50 2a 20 00 24 01 1a 00 06 00 50 2a 20 00 24 01 24 00 2a 00 50 47 54 42 55 46 5c 4c 44 4b 4c 5c 41 32 2c 44 43 54 42 ┆ $ P* A2 AND A3 ARE DESTROYED $ P* $ P* $ $ * PGTBUF LDKL A2,DCTB┆
0x5a8…5f8 55 46 5c 54 52 41 4e 53 4d 49 54 20 42 55 46 46 45 52 53 20 00 24 01 2e 00 0c 00 50 5c 52 42 5c 47 42 55 46 00 24 01 5c 00 0a 00 50 5c 45 4a 45 43 54 00 24 01 6c 00 06 00 50 2a 20 00 24 01 7a 00 06 00 50 2a 20 00 24 01 84 00 1c 00 50 2a 5c ┆UF TRANSMIT BUFFERS $ . P RB GBUF $ P EJECT $ l P* $ z P* $ P* ┆