|
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: 1278 (0x4fe)
Notes: pts_type(UF)
Names: »M:PROC.UF«
└─⟦985af0f82⟧ Bits:30009681 Philips computer tape "600231"
└─⟦this⟧ »M:POOL/M:PROC.UF«
└─⟦fce1dcf99⟧ Bits:30009704 Philips computer tape "KMD15"
└─⟦this⟧ »M:POOL/M:PROC.UF«
$MMON MOV @NAM=,/L,@ID= KPF /L,@NAM END
0x000…00e (0, 0, 72) Head {h00=0x000a, h01=0x0005, text=»$MMON «, t00=0x0000, t01=0x0004}
0x00e…028 Head {h00=0x0016, h01=0x0011, text=»MOV @NAM=,/L,@ID= «, t00=0x0000, t01=0x0012}
0x028…03c Head {h00=0x0010, h01=0x000b, text=»KPF /L,@NAM «, t00=0x0000, t01=0x002c}
0x03c…048 Head {h00=0x0008, h01=0x0003, text=»END «, t00=0x0000, t01=0x0040}
0x048…04c (1, 1, 8) Head {h00=0x2004, h01=0x0000}
0x04c…050 00 01 00 04 ┆ ┆
0x050…0a0 (2, 0, 400) 52 44 20 43 48 45 43 4b 20 52 4f 55 54 49 4e 45 20 4e 4f 2e 20 36 00 01 01 7e 00 2c 00 50 20 45 58 54 20 53 50 43 48 4b 37 20 53 54 41 4e 44 41 52 44 20 43 48 45 43 4b 20 52 4f 55 54 49 4e 45 20 4e 4f 2e 20 37 00 02 00 1e 00 26 00 50 20 45 ┆RD CHECK ROUTINE NO. 6 ~ , P EXT SPCHK7 STANDARD CHECK ROUTINE NO. 7 & P E┆
0x0a0…0f0 58 54 20 53 50 41 50 50 4c 20 55 53 45 52 20 52 4f 55 54 49 4e 45 20 54 4f 20 48 41 4e 44 4c 45 00 02 00 4e 00 12 00 50 5c 5c 5c 41 50 50 4c 20 56 41 4c 55 45 53 00 02 00 78 00 28 00 50 20 45 58 54 20 53 50 54 43 48 4b 20 55 53 45 52 20 52 ┆XT SPAPPL USER ROUTINE TO HANDLE N P APPL VALUES x ( P EXT SPTCHK USER R┆
0x0f0…140 4f 55 54 49 4e 45 20 54 4f 20 45 56 41 4c 55 41 54 45 00 02 00 8e 00 1e 00 50 5c 5c 5c 43 4f 4e 44 49 54 49 4f 4e 41 4c 20 54 41 42 55 4c 41 54 49 4f 4e 20 00 02 00 ba 00 06 00 50 2a 20 00 02 00 dc 00 2e 00 50 5c 45 58 54 5c 45 4d 50 54 59 ┆OUTINE TO EVALUATE P CONDITIONAL TABULATION P* . P EXT EMPTY┆
0x140…190 54 5c 41 53 53 45 4d 42 4c 59 20 53 55 42 52 4f 55 54 49 4e 45 20 45 4d 50 54 59 54 20 20 2d 20 00 02 00 e6 00 22 00 50 5c 5c 5c 54 45 53 54 20 49 46 20 44 41 54 41 20 49 54 45 4d 20 49 53 20 45 4d 50 54 59 20 00 02 01 18 00 06 00 50 2a 20 ┆T ASSEMBLY SUBROUTINE EMPTYT - " P TEST IF DATA ITEM IS EMPTY P* ┆
0x190…1e0 00 02 01 3e 00 18 00 50 20 49 4e 43 4c 55 44 45 20 53 50 4c 49 54 54 2c 4c 49 53 54 00 02 01 48 00 0a 00 50 20 45 4a 45 43 54 00 02 01 64 00 06 00 50 2a 20 00 02 01 72 00 3e 00 50 2a 20 20 20 20 43 4c 45 41 52 20 41 4c 4c 20 56 41 52 49 41 ┆ > P INCLUDE SPLITT,LIST H P EJECT d P* r > P* CLEAR ALL VARIA┆
0x1e0…230 (3, 0, 400) 42 4c 45 20 46 49 45 4c 44 20 42 45 46 4f 52 45 20 48 41 4e 44 4c 49 4e 47 20 54 48 45 20 50 49 43 54 55 52 45 20 00 02 01 7c 00 06 00 50 2a 20 00 03 00 2e 00 10 00 50 53 50 43 4c 52 41 20 50 52 4f 43 20 00 03 00 38 00 16 00 50 5c 50 45 52 ┆BLE FIELD BEFORE HANDLING THE PICTURE | P* . PSPCLRA PROC 8 P PER┆
0x230…280 46 5c 53 43 52 45 45 4e 2c 3d 57 27 31 27 00 03 00 4c 00 08 00 50 5c 52 45 54 00 03 00 66 00 0a 00 50 20 50 45 4e 44 20 00 03 00 72 00 06 00 50 2a 20 00 03 00 80 00 40 00 50 2a 20 20 20 20 43 4c 45 41 52 20 53 4f 4d 45 20 56 41 52 49 41 42 ┆F SCREEN,=W'1' L P RET f P PEND r P* @ P* CLEAR SOME VARIAB┆
0x280…2d0 4c 45 20 46 49 45 4c 44 53 20 42 45 46 4f 52 45 20 48 41 4e 44 4c 49 4e 47 20 54 48 45 20 50 49 43 54 55 52 45 20 00 03 00 8a 00 06 00 50 2a 20 00 03 00 ce 00 10 00 50 53 50 43 4c 52 53 20 50 52 4f 43 20 00 03 00 d8 00 16 00 50 5c 50 45 52 ┆LE FIELDS BEFORE HANDLING THE PICTURE P* PSPCLRS PROC P PER┆
0x2d0…320 46 5c 53 43 52 45 45 4e 2c 3d 57 27 32 27 00 03 00 ec 00 08 00 50 5c 52 45 54 00 03 01 06 00 0a 00 50 20 50 45 4e 44 20 00 03 01 12 00 06 00 50 2a 20 00 03 01 20 00 3e 00 50 2a 20 20 20 20 43 4c 45 41 52 20 4e 4f 20 56 41 52 49 41 42 4c 45 ┆F SCREEN,=W'2' P RET P PEND P* > P* CLEAR NO VARIABLE┆
0x320…370 20 46 49 45 4c 44 53 20 42 45 46 4f 52 45 20 48 41 4e 44 4c 49 4e 47 20 54 48 45 20 50 49 43 54 55 52 45 20 00 03 01 2a 00 06 00 50 2a 20 00 03 01 6c 00 10 00 50 53 50 43 4c 52 4e 20 50 52 4f 43 20 00 03 01 76 00 16 00 50 5c 50 45 52 46 5c ┆ FIELDS BEFORE HANDLING THE PICTURE * P* l PSPCLRN PROC v P PERF ┆
0x370…3c0 (4, 0, 398) 53 43 52 45 45 4e 2c 3d 57 27 33 27 00 03 01 8a 00 08 00 50 5c 52 45 54 00 04 00 14 00 0a 00 50 20 50 45 4e 44 20 00 04 00 20 00 06 00 50 2a 20 00 04 00 2e 00 34 00 50 2a 20 20 20 20 48 41 4e 44 4c 45 20 45 52 52 4f 52 53 20 44 45 54 45 43 ┆SCREEN,=W'3' P RET P PEND P* . 4 P* HANDLE ERRORS DETEC┆
0x3c0…410 54 45 44 20 4f 55 54 53 49 44 45 20 54 48 45 20 50 41 43 4b 41 47 45 20 00 04 00 38 00 06 00 50 2a 20 00 04 00 70 00 0e 00 50 53 50 45 52 52 20 50 52 4f 43 00 04 00 7a 00 16 00 50 5c 50 45 52 46 5c 53 43 52 45 45 4e 2c 3d 57 27 30 27 00 04 ┆TED OUTSIDE THE PACKAGE 8 P* p PSPERR PROC z P PERF SCREEN,=W'0' ┆
0x410…460 00 8c 00 08 00 50 5c 52 45 54 00 04 00 a6 00 0a 00 50 20 50 45 4e 44 20 00 04 00 b2 00 06 00 50 2a 20 00 04 00 c0 00 0a 00 50 20 45 4a 45 43 54 00 04 00 ca 00 14 00 50 53 43 52 45 45 4e 5c 50 52 4f 43 5c 24 4f 50 54 00 04 00 d8 00 1e 00 50 ┆ P RET P PEND P* P EJECT PSCREEN PROC $OPT P┆
0x460…4b0 5c 50 4c 49 54 5c 24 4f 50 54 5c 4f 50 54 49 4f 20 53 45 4c 45 43 54 4f 52 20 00 04 00 f0 00 04 00 50 00 04 01 12 00 28 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 32 2c 24 4f 50 54 5c 4d 4f 56 45 20 54 4f 20 56 41 52 49 41 42 4c 45 20 00 04 ┆ PLIT $OPT OPTIO SELECTOR P ( P MOVE SPBINW2,$OPT MOVE TO VARIABLE ┆
0x4b0…4fe 01 1a 00 22 00 50 5c 5c 5c 54 4f 20 41 4c 4c 4f 57 20 49 4e 53 54 52 2e 53 20 43 4d 50 20 41 4e 44 20 49 42 00 04 01 46 00 26 00 50 5c 43 4d 50 5c 53 50 42 49 4e 57 32 2c 3d 27 30 27 5c 22 53 50 45 52 52 22 20 45 4e 54 52 59 20 3f 20 ┆ " P TO ALLOW INSTR.S CMP AND IB F & P CMP SPBINW2,='0' "SPERR" ENTRY ? ┆