|
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: 1598 (0x63e)
Notes: pts_type(SC)
Names: »MOD805.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/MOD805.SC«
IDENT MOD805 830819 NJ DDUM KMD08 PDIV ENTRY BCHKPR ENTRY STREDT ENTRY AD46 ENTRY MEMIX1 ENTRY MEMIX2 ENTRY UPDMEM ENTRY DIVRUT INCLUDE EQUATE BCHKPR PROC P CMP CBIN0,CBIN0 RET PEND STREDT PROC CMP CBIN0,CBIN0 RET PEND AD46 PROC RET PEND MEMIX1 PROC A,B,C CMP CBIN0,CBIN0 RET PEND MEMIX2 PROC CMP CBIN0,CBIN0 RET PEND UPDMEM PROC CMP CBIN0,CBIN0 RET PEND DIVRUT PROC P IB P,DIV010,DIV020,DIV030,DIV040, C DIV050,DIV060,DIV070,DIV080,DIV090 B DIVREX DIV010 DIV030 DIV040 DIV050 DIV060 DIV070 DIV080 DIV090 DIVREX RET DIV020 MOVE CTXBUF,=C'BRONDERSLEV KOMMUNE ' MOVE GSWSTR1,=X'5C' XCOPY CTXBUF,CBIN2,CBIN1,GSWSTR1,CBIN0 RET PEND END
0x000…020 (0, 0, 400) Head {h00=0x001c, h01=0x0050, text=» IDENT MOD805 830819 NJ «, t00=0x0000, t01=0x0004}
0x020…034 Head {h00=0x0010, h01=0x000b, text=» DDUM KMD08 «, t00=0x0000, t01=0x0024}
0x034…042 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0038}
0x042…058 Head {h00=0x0012, h01=0x000d, text=» ENTRY BCHKPR «, t00=0x0000, t01=0x0046}
0x058…06e Head {h00=0x0012, h01=0x0050, text=» ENTRY STREDT «, t00=0x0000, t01=0x005c}
0x06e…082 Head {h00=0x0010, h01=0x0050, text=» ENTRY AD46 «, t00=0x0000, t01=0x0072}
0x082…098 Head {h00=0x0012, h01=0x0050, text=» ENTRY MEMIX1 «, t00=0x0000, t01=0x0086}
0x098…0ae Head {h00=0x0012, h01=0x0050, text=» ENTRY MEMIX2 «, t00=0x0000, t01=0x009c}
0x0ae…0c4 Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDMEM «, t00=0x0000, t01=0x00b2}
0x0c4…0da Head {h00=0x0012, h01=0x0050, text=» ENTRY DIVRUT «, t00=0x0000, t01=0x00c8}
0x0da…0f2 Head {h00=0x0014, h01=0x000f, text=» INCLUDE EQUATE «, t00=0x0000, t01=0x00de}
0x0f2…0fa Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00f6}
0x0fa…110 Head {h00=0x0012, h01=0x0050, text=»BCHKPR PROC P «, t00=0x0000, t01=0x00fe}
0x110…128 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0000, t01=0x0114}
0x128…134 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0000, t01=0x012c}
0x134…142 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0000, t01=0x0138}
0x142…14a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0146}
0x14a…15e Head {h00=0x0010, h01=0x0050, text=»STREDT PROC «, t00=0x0000, t01=0x014e}
0x15e…176 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0000, t01=0x0162}
0x176…182 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0000, t01=0x017a}
0x182…190 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0000, t01=0x0186}
0x190…198 (1, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0004}
0x198…1aa Head {h00=0x000e, h01=0x0050, text=»AD46 PROC «, t00=0x0001, t01=0x000c}
0x1aa…1b6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0001, t01=0x001e}
0x1b6…1c4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0001, t01=0x002a}
0x1c4…1cc Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0038}
0x1cc…1d4 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0040}
0x1d4…1ee Head {h00=0x0016, h01=0x0050, text=»MEMIX1 PROC A,B,C «, t00=0x0001, t01=0x0048}
0x1ee…206 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0001, t01=0x0062}
0x206…212 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0001, t01=0x007a}
0x212…220 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0001, t01=0x0086}
0x220…228 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0094}
0x228…230 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x009c}
0x230…244 Head {h00=0x0010, h01=0x0050, text=»MEMIX2 PROC «, t00=0x0001, t01=0x00a4}
0x244…25c Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0001, t01=0x00b8}
0x25c…268 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0001, t01=0x00d0}
0x268…276 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0001, t01=0x00dc}
0x276…27e Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x00ea}
0x27e…286 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x00f2}
0x286…29a Head {h00=0x0010, h01=0x0050, text=»UPDMEM PROC «, t00=0x0001, t01=0x00fa}
0x29a…2b2 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0001, t01=0x010e}
0x2b2…2be Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0001, t01=0x0126}
0x2be…2cc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0001, t01=0x0132}
0x2cc…2d4 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0140}
0x2d4…2ea Head {h00=0x0012, h01=0x0050, text=»DIVRUT PROC P «, t00=0x0001, t01=0x0148}
0x2ea…318 Head {h00=0x002a, h01=0x0050, text=» IB P,DIV010,DIV020,DIV030,DIV040, C «, t00=0x0001, t01=0x015e}
0x318…344 Head {h00=0x0028, h01=0x0050, text=» DIV050,DIV060,DIV070,DIV080,DIV090«, t00=0x0001, t01=0x018c}
0x344…356 Head {h00=0x000e, h01=0x0050, text=» B DIVREX «, t00=0x0002, t01=0x0028}
0x356…364 Head {h00=0x000a, h01=0x0050, text=»DIV010«, t00=0x0002, t01=0x003a}
0x364…372 Head {h00=0x000a, h01=0x0050, text=»DIV030«, t00=0x0002, t01=0x0048}
0x372…380 Head {h00=0x000a, h01=0x0050, text=»DIV040«, t00=0x0002, t01=0x0056}
0x380…38e Head {h00=0x000a, h01=0x0050, text=»DIV050«, t00=0x0002, t01=0x0064}
0x38e…39c Head {h00=0x000a, h01=0x0050, text=»DIV060«, t00=0x0002, t01=0x0072}
0x39c…3aa Head {h00=0x000a, h01=0x0050, text=»DIV070«, t00=0x0002, t01=0x0080}
0x3aa…3b8 Head {h00=0x000a, h01=0x0050, text=»DIV080«, t00=0x0002, t01=0x008e}
0x3b8…3c6 Head {h00=0x000a, h01=0x0050, text=»DIV090«, t00=0x0002, t01=0x009c}
0x3c6…3d4 Head {h00=0x000a, h01=0x0050, text=»DIVREX«, t00=0x0002, t01=0x00aa}
0x3d4…3e0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x00b8}
0x3e0…3e8 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00c4}
0x3e8…3f0 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00cc}
0x3f0…3fe Head {h00=0x000a, h01=0x0050, text=»DIV020«, t00=0x0002, t01=0x00d4}
0x3fe…42c Head {h00=0x002a, h01=0x0050, text=» MOVE CTXBUF,=C'BRONDERSLEV KOMMUNE ' «, t00=0x0002, t01=0x00e2}
0x42c…448 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR1,=X'5C'«, t00=0x0002, t01=0x0110}
0x448…478 Head {h00=0x002c, h01=0x0050, text=» XCOPY CTXBUF,CBIN2,CBIN1,GSWSTR1,CBIN0 «, t00=0x0002, t01=0x012c}
0x478…484 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x015c}
0x484…492 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0002, t01=0x0168}
0x492…49e Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0002, t01=0x0176}
0x49e…4a2 Head {h00=0x4004, h01=0x0000}
0x4a2…4a6 00 02 01 82 ┆ ┆
0x4a6…4ae (3, 1, 8) 20 04 00 00 00 03 00 04 ┆ ┆
0x4ae…4fe (4, 0, 400) 2c 43 42 49 4e 31 2c 43 42 49 4e 33 00 03 01 84 00 0e 00 50 20 42 20 42 43 48 4b 36 30 20 00 04 00 14 00 06 00 50 2a 20 00 04 00 26 00 0a 00 50 42 43 48 4b 35 30 00 04 00 30 00 30 00 50 20 43 42 45 20 47 53 57 42 43 44 35 2c 3d 44 27 31 27 ┆,CBIN1,CBIN3 P B BCHK60 P* & PBCHK50 0 0 P CBE GSWBCD5,=D'1'┆
0x4fe…54e 2c 42 43 48 4b 39 30 20 4e 4f 54 48 49 4e 47 20 54 4f 20 50 52 49 4e 54 20 3f 00 04 00 3e 00 0a 00 50 42 43 48 4b 36 30 00 04 00 72 00 1a 00 50 20 45 44 49 54 20 53 50 49 4e 50 55 54 2c 46 52 45 4d 54 4f 54 31 00 04 00 80 00 1c 00 50 20 50 ┆,BCHK90 NOTHING TO PRINT ? > PBCHK60 r P EDIT SPINPUT,FREMTOT1 P P┆
0x54e…59e 45 52 46 20 46 4d 4f 44 2c 43 42 49 4e 34 2c 53 50 49 4e 50 55 54 00 04 00 9e 00 1e 00 50 20 50 45 52 46 20 46 4d 4f 44 2c 43 42 49 4e 31 36 2c 53 50 49 4e 50 55 54 20 00 04 00 be 00 10 00 50 20 50 45 52 46 20 46 53 4f 4c 56 45 00 04 00 e0 ┆ERF FMOD,CBIN4,SPINPUT P PERF FMOD,CBIN16,SPINPUT P PERF FSOLVE ┆
0x59e…5ee 00 0a 00 50 42 43 48 4b 36 35 00 04 00 f4 00 18 00 50 20 4d 4f 56 45 20 47 54 42 53 55 4d 31 2c 3d 44 27 30 27 20 00 04 01 02 00 20 00 50 20 50 45 52 46 20 47 45 4e 57 52 53 2c 47 54 48 43 44 45 56 2c 45 44 49 54 42 55 46 00 04 01 1e 00 16 ┆ PBCHK65 P MOVE GTBSUM1,=D'0' P PERF GENWRS,GTHCDEV,EDITBUF ┆
0x5ee…63e 00 50 20 50 45 52 46 20 4e 45 57 4c 49 4e 2c 43 42 49 4e 37 00 04 01 42 00 18 00 50 20 54 42 46 20 47 54 43 48 4b 50 52 2c 42 43 48 4b 37 30 20 00 04 01 5c 00 28 00 50 20 50 45 52 46 20 4e 45 57 4c 49 4e 2c 43 42 49 4e 31 20 45 58 54 52 41 ┆ P PERF NEWLIN,CBIN7 B P TBF GTCHKPR,BCHK70 ( P PERF NEWLIN,CBIN1 EXTRA┆