|
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: 4570 (0x11da)
Notes: pts_type(UF)
Names: »KM080G.UF«
└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
└─⟦this⟧ »NJ-AMT/KM080G.UF«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »NJ-AMT/KM080G.UF«
└─⟦f445cacdf⟧ Bits:30009666 Philips computer tape "600111"
└─⟦this⟧ »NJ-AMT/KM080G.UF«
MES NJ-AMT - OFFLINE MES 81-01-13 SCR LED KMD08,/S !!DL 49 DCDATASET !!DL 50 FD BACKUP !!DL 51 DK05 !!DL 52,54 DK06-DK08 !!DL 55,56 FD03,FD04 !!DL 74,93 KA !!DL 94,103 GA !!DL 104,113 LA !!DL 114,125 D0 !!DL 126,150 TB9 !!DL 151,181 CB9 !!RE 187,$$FALSE$$TRUE$$ BKO !!RE 188,$$FALSE$$TRUE$$ SALDO KORT !!RE 194,$$TRUE$$FALSE$$ NO AUTO-KORT !!RE 199,$$TRUE$$FALSE$$ !!RE 301,$$128$$80$$ !!RE 309,$$OD-KOM$$NJ-AMT$$ !!RE 310,$$01014610$$%VER%REL%MOD$$ VERSION NO !!RE 353,$$0$$12$$ CMAXMSK !!RE 361,$$5$$1$$ !!DL 362,363 ON STRGI (12)2C' ',' ',' ' !!RE 473,$$27$$25$$ DEFAULT LINE !!DL 614 KBVGO !!DL 615 GTPGO !!DL 616 DC1GO !!DL 617 LPGO !!DL 619 DCTASK !!DL 620 VDUKB !!DL 621 PRINT !!DL 622 SWITCH !!DL 623 GETTID !!DL 624 OFFLNE !!DL 627 DSC0 !!DL 639,658 KBVGO !!DL 659,675 GTPGO !!DL 676,687 LPGO !!DL 688,700 DC1GO !!DL 701,718 OFFLNE !!EN NOD C TRA /S,NL INC DIVFMT INC RGADM NOD R INC RGSUBS INC KMDIO INC RGSUB3 NOD R INC SCREEN INC SUBAPL NOD R INC RGFRMT NOD R INC KTOPR INC KTPLN INC ADM6D NOD R INC RGSUB1 INC RGSUB2 INC DKSUBS INC RGMAIN NOD R INC RGSTRT ASG 2,LP0F TLK U,4K $INCGEN LKE M KPF /L,RG080G SCR MES $PDISC M=MUKDCN,MU=MON:POOL,A=RG0G0G,C=CONNJG,COUT=$CONG:01 $ASG2
0x0000…001e (0, 0, 400) Head {h00=0x001a, h01=0x0050, text=»MES NJ-AMT - OFFLINE«, t00=0x0000, t01=0x0004}
0x001e…0032 Head {h00=0x0010, h01=0x0050, text=»MES 81-01-13«, t00=0x0000, t01=0x0022}
0x0032…003e Head {h00=0x0008, h01=0x0050, text=»SCR «, t00=0x0000, t01=0x0036}
0x003e…0052 Head {h00=0x0010, h01=0x0050, text=»LED KMD08,/S«, t00=0x0000, t01=0x0042}
0x0052…006c Head {h00=0x0016, h01=0x0050, text=»!!DL 49 DCDATASET «, t00=0x0000, t01=0x0056}
0x006c…0086 Head {h00=0x0016, h01=0x0050, text=»!!DL 50 FD BACKUP «, t00=0x0000, t01=0x0070}
0x0086…009a Head {h00=0x0010, h01=0x0050, text=»!!DL 51 DK05«, t00=0x0000, t01=0x008a}
0x009a…00b6 Head {h00=0x0018, h01=0x0050, text=»!!DL 52,54 DK06-DK08«, t00=0x0000, t01=0x009e}
0x00b6…00d2 Head {h00=0x0018, h01=0x0050, text=»!!DL 55,56 FD03,FD04«, t00=0x0000, t01=0x00ba}
0x00d2…00e8 Head {h00=0x0012, h01=0x0050, text=»!!DL 74,93 KA «, t00=0x0000, t01=0x00d6}
0x00e8…00fe Head {h00=0x0012, h01=0x0050, text=»!!DL 94,103 GA«, t00=0x0000, t01=0x00ec}
0x00fe…0116 Head {h00=0x0014, h01=0x0050, text=»!!DL 104,113 LA «, t00=0x0000, t01=0x0102}
0x0116…012e Head {h00=0x0014, h01=0x0050, text=»!!DL 114,125 D0 «, t00=0x0000, t01=0x011a}
0x012e…0146 Head {h00=0x0014, h01=0x0050, text=»!!DL 126,150 TB9«, t00=0x0000, t01=0x0132}
0x0146…015e Head {h00=0x0014, h01=0x0050, text=»!!DL 151,181 CB9«, t00=0x0000, t01=0x014a}
0x015e…0182 Head {h00=0x0020, h01=0x0050, text=»!!RE 187,$$FALSE$$TRUE$$ BKO«, t00=0x0000, t01=0x0162}
0x0182…01ae Head {h00=0x0028, h01=0x0050, text=»!!RE 188,$$FALSE$$TRUE$$ SALDO KORT «, t00=0x0000, t01=0x0186}
0x01ae…01dc Head {h00=0x002a, h01=0x0050, text=»!!RE 194,$$TRUE$$FALSE$$ NO AUTO-KORT «, t00=0x0001, t01=0x0022}
0x01dc…01fc Head {h00=0x001c, h01=0x0050, text=»!!RE 199,$$TRUE$$FALSE$$«, t00=0x0001, t01=0x0050}
0x01fc…0218 Head {h00=0x0018, h01=0x0050, text=»!!RE 301,$$128$$80$$«, t00=0x0001, t01=0x0070}
0x0218…023c Head {h00=0x0020, h01=0x0050, text=»!!RE 309,$$OD-KOM$$NJ-AMT$$ «, t00=0x0001, t01=0x008c}
0x023c…0272 Head {h00=0x0032, h01=0x0050, text=»!!RE 310,$$01014610$$%VER%REL%MOD$$ VERSION NO«, t00=0x0001, t01=0x00b0}
0x0272…0294 Head {h00=0x001e, h01=0x0050, text=»!!RE 353,$$0$$12$$ CMAXMSK«, t00=0x0001, t01=0x00e6}
0x0294…02ae Head {h00=0x0016, h01=0x0050, text=»!!RE 361,$$5$$1$$ «, t00=0x0001, t01=0x0108}
0x02ae…02c2 Head {h00=0x0010, h01=0x0050, text=»!!DL 362,363«, t00=0x0001, t01=0x0122}
0x02c2…02e8 Head {h00=0x0022, h01=0x0050, text=»ON STRGI (12)2C' ',' ',' ' «, t00=0x0001, t01=0x0136}
0x02e8…0310 Head {h00=0x0024, h01=0x0050, text=»!!RE 473,$$27$$25$$ DEFAULT LINE«, t00=0x0001, t01=0x015c}
0x0310…0326 Head {h00=0x0012, h01=0x0050, text=»!!DL 614 KBVGO«, t00=0x0001, t01=0x0184}
0x0326…033c Head {h00=0x0012, h01=0x0050, text=»!!DL 615 GTPGO«, t00=0x0002, t01=0x000a}
0x033c…0352 Head {h00=0x0012, h01=0x0050, text=»!!DL 616 DC1GO«, t00=0x0002, t01=0x0020}
0x0352…0368 Head {h00=0x0012, h01=0x0050, text=»!!DL 617 LPGO «, t00=0x0002, t01=0x0036}
0x0368…0380 Head {h00=0x0014, h01=0x0050, text=»!!DL 619 DCTASK «, t00=0x0002, t01=0x004c}
0x0380…0396 Head {h00=0x0012, h01=0x0050, text=»!!DL 620 VDUKB«, t00=0x0002, t01=0x0064}
0x0396…03ac Head {h00=0x0012, h01=0x0050, text=»!!DL 621 PRINT«, t00=0x0002, t01=0x007a}
0x03ac…03c4 Head {h00=0x0014, h01=0x0050, text=»!!DL 622 SWITCH «, t00=0x0002, t01=0x0090}
0x03c4…03dc Head {h00=0x0014, h01=0x0050, text=»!!DL 623 GETTID «, t00=0x0002, t01=0x00a8}
0x03dc…03f4 Head {h00=0x0014, h01=0x0050, text=»!!DL 624 OFFLNE «, t00=0x0002, t01=0x00c0}
0x03f4…040a Head {h00=0x0012, h01=0x0050, text=»!!DL 627 DSC0 «, t00=0x0002, t01=0x00d8}
0x040a…0424 Head {h00=0x0016, h01=0x0050, text=»!!DL 639,658 KBVGO«, t00=0x0002, t01=0x00ee}
0x0424…043e Head {h00=0x0016, h01=0x0050, text=»!!DL 659,675 GTPGO«, t00=0x0002, t01=0x0108}
0x043e…0458 Head {h00=0x0016, h01=0x0050, text=»!!DL 676,687 LPGO «, t00=0x0002, t01=0x0122}
0x0458…0472 Head {h00=0x0016, h01=0x0050, text=»!!DL 688,700 DC1GO«, t00=0x0002, t01=0x013c}
0x0472…048e Head {h00=0x0018, h01=0x0050, text=»!!DL 701,718 OFFLNE «, t00=0x0002, t01=0x0156}
0x048e…049a Head {h00=0x0008, h01=0x0050, text=»!!EN«, t00=0x0002, t01=0x0172}
0x049a…04a8 Head {h00=0x000a, h01=0x0050, text=»NOD C «, t00=0x0002, t01=0x017e}
0x04a8…04ba Head {h00=0x000e, h01=0x0050, text=»TRA /S,NL «, t00=0x0002, t01=0x018c}
0x04ba…04cc Head {h00=0x000e, h01=0x0050, text=»INC DIVFMT«, t00=0x0003, t01=0x000e}
0x04cc…04de Head {h00=0x000e, h01=0x0050, text=»INC RGADM «, t00=0x0003, t01=0x0020}
0x04de…04ec Head {h00=0x000a, h01=0x0050, text=»NOD R «, t00=0x0003, t01=0x0032}
0x04ec…04fe Head {h00=0x000e, h01=0x0050, text=»INC RGSUBS«, t00=0x0003, t01=0x0040}
0x04fe…0510 Head {h00=0x000e, h01=0x0050, text=»INC KMDIO «, t00=0x0003, t01=0x0052}
0x0510…0522 Head {h00=0x000e, h01=0x0050, text=»INC RGSUB3«, t00=0x0003, t01=0x0064}
0x0522…0530 Head {h00=0x000a, h01=0x0050, text=»NOD R «, t00=0x0003, t01=0x0076}
0x0530…0542 Head {h00=0x000e, h01=0x0050, text=»INC SCREEN«, t00=0x0003, t01=0x0084}
0x0542…0554 Head {h00=0x000e, h01=0x0050, text=»INC SUBAPL«, t00=0x0003, t01=0x0096}
0x0554…0562 Head {h00=0x000a, h01=0x0050, text=»NOD R «, t00=0x0003, t01=0x00a8}
0x0562…0574 Head {h00=0x000e, h01=0x0050, text=»INC RGFRMT«, t00=0x0003, t01=0x00b6}
0x0574…0582 Head {h00=0x000a, h01=0x0050, text=»NOD R «, t00=0x0003, t01=0x00c8}
0x0582…0594 Head {h00=0x000e, h01=0x0050, text=»INC KTOPR «, t00=0x0003, t01=0x00d6}
0x0594…05a6 Head {h00=0x000e, h01=0x0050, text=»INC KTPLN «, t00=0x0003, t01=0x00e8}
0x05a6…05b8 Head {h00=0x000e, h01=0x0050, text=»INC ADM6D «, t00=0x0003, t01=0x00fa}
0x05b8…05c6 Head {h00=0x000a, h01=0x0050, text=»NOD R «, t00=0x0003, t01=0x010c}
0x05c6…05d8 Head {h00=0x000e, h01=0x0050, text=»INC RGSUB1«, t00=0x0003, t01=0x011a}
0x05d8…05ea Head {h00=0x000e, h01=0x0050, text=»INC RGSUB2«, t00=0x0003, t01=0x012c}
0x05ea…05fc Head {h00=0x000e, h01=0x0050, text=»INC DKSUBS«, t00=0x0003, t01=0x013e}
0x05fc…060e Head {h00=0x000e, h01=0x0050, text=»INC RGMAIN«, t00=0x0003, t01=0x0150}
0x060e…061c Head {h00=0x000a, h01=0x0050, text=»NOD R «, t00=0x0003, t01=0x0162}
0x061c…062e Head {h00=0x000e, h01=0x0050, text=»INC RGSTRT«, t00=0x0003, t01=0x0170}
0x062e…0640 Head {h00=0x000e, h01=0x0050, text=»ASG 2,LP0F«, t00=0x0003, t01=0x0182}
0x0640…0650 (4, 0, 166) Head {h00=0x000c, h01=0x0050, text=»TLK U,4K«, t00=0x0004, t01=0x0004}
0x0650…0660 Head {h00=0x000c, h01=0x0050, text=»$INCGEN «, t00=0x0004, t01=0x0014}
0x0660…066e Head {h00=0x000a, h01=0x0005, text=»LKE M «, t00=0x0004, t01=0x0024}
0x066e…0684 Head {h00=0x0012, h01=0x0050, text=»KPF /L,RG080G «, t00=0x0004, t01=0x0032}
0x0684…0690 Head {h00=0x0008, h01=0x0050, text=»SCR «, t00=0x0004, t01=0x0048}
0x0690…06d8 Head {h00=0x0044, h01=0x0050, text=»MES $PDISC M=MUKDCN,MU=MON:POOL,A=RG0G0G,C=CONNJG,COUT=$CONG:01 «, t00=0x0004, t01=0x0054}
0x06d8…06e6 Head {h00=0x000a, h01=0x0050, text=»$ASG2 «, t00=0x0004, t01=0x009c}
0x06e6…06ea (5, 1, 8) Head {h00=0x2004, h01=0x0000}
0x06ea…06ee 00 05 00 04 ┆ ┆
0x06ee…073e (6, 0, 398) 20 54 54 41 42 20 41 44 44 52 45 53 53 20 00 1d 01 82 00 06 00 50 2a 20 00 1e 00 16 00 36 00 50 2a 20 4f 55 54 50 55 54 3a 20 41 32 20 3d 20 41 44 44 52 45 53 53 20 54 4f 20 50 52 45 43 45 44 49 4e 47 20 42 4c 4f 43 4b 20 49 4e 20 43 48 41 ┆ TTAB ADDRESS P* 6 P* OUTPUT: A2 = ADDRESS TO PRECEDING BLOCK IN CHA┆
0x073e…078e 49 4e 00 1e 00 20 00 32 00 50 2a 20 20 20 20 20 20 20 20 20 41 34 20 3d 20 42 4c 4f 43 4b 20 41 44 44 52 45 53 53 20 49 46 20 46 4f 55 4e 44 2c 20 45 4c 53 45 20 30 20 00 1e 00 5a 00 06 00 50 2a 20 00 1e 00 90 00 28 00 50 46 4e 44 42 4c 4b ┆IN 2 P* A4 = BLOCK ADDRESS IF FOUND, ELSE 0 Z P* ( PFNDBLK┆
0x078e…07de 5c 4c 44 4b 4c 5c 41 34 2c 41 54 54 3a 43 48 5c 41 4e 43 48 4f 52 20 41 44 44 52 45 53 53 00 1e 00 9a 00 06 00 50 2a 20 00 1e 00 c6 00 1c 00 50 46 4e 44 3a 31 30 5c 4c 44 52 5c 41 32 2c 41 34 5c 53 41 56 45 20 41 34 00 1e 00 d0 00 10 00 50 ┆ LDKL A4,ATT:CH ANCHOR ADDRESS P* PFND:10 LDR A2,A4 SAVE A4 P┆
0x07de…082e 5c 4c 44 52 2a 5c 41 34 2c 41 34 20 00 1e 00 f0 00 20 00 50 5c 52 46 28 5a 29 5c 46 4e 44 3a 32 30 5c 45 4e 44 20 4f 46 20 41 54 54 3a 43 48 3f 00 1e 01 04 00 10 00 50 5c 43 57 5c 41 35 2c 34 2c 41 34 20 00 1e 01 28 00 1e 00 50 5c 52 42 28 ┆ LDR* A4,A4 P RF(Z) FND:20 END OF ATT:CH? P CW A5,4,A4 ( P RB(┆
0x082e…087c 4e 45 29 5c 46 4e 44 3a 31 30 5c 4e 4f 54 20 46 4f 55 4e 44 3f 20 00 1e 01 3c 00 06 00 50 2a 20 00 1e 01 5e 00 10 00 50 46 4e 44 3a 32 30 5c 45 51 55 5c 2a 00 1e 01 68 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 31 20 00 1e 01 7c ┆NE) FND:10 NOT FOUND? < P* ^ PFND:20 EQU * h P IFT CPU852=1 |┆
0x087c…08cc (7, 0, 400) 00 16 00 50 5c 41 42 4c 5c 49 48 52 54 4e 5c 52 45 54 55 52 4e 20 00 1f 00 04 00 08 00 50 5c 58 49 46 00 1f 00 1e 00 06 00 50 2a 20 00 1f 00 2a 00 12 00 50 5c 49 46 54 5c 41 54 54 44 45 54 3d 31 20 00 1f 00 34 00 12 00 50 5c 49 46 54 5c 43 ┆ P ABL IHRTN RETURN P XIF P* * P IFT ATTDET=1 4 P IFT C┆
0x08cc…091c 50 55 38 35 32 3d 30 20 00 1f 00 4a 00 14 00 50 5c 52 54 4e 5c 41 31 35 5c 52 45 54 55 52 4e 20 00 1f 00 60 00 08 00 50 5c 58 49 46 00 1f 00 78 00 06 00 50 2a 20 00 1f 00 84 00 12 00 50 5c 49 46 54 5c 41 54 54 44 45 54 3d 31 20 00 1f 00 8e ┆PU852=0 J P RTN A15 RETURN ` P XIF x P* P IFT ATTDET=1 ┆
0x091c…096c 00 26 00 50 41 54 54 3a 43 48 5c 44 41 54 41 5c 30 5c 41 54 54 41 43 48 20 43 48 41 49 4e 20 41 4e 43 48 4f 52 20 00 1f 00 a4 00 06 00 50 2a 20 00 1f 00 ce 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 54 4f 53 53 49 4f 20 00 1f 00 d8 00 06 00 50 ┆ & PATT:CH DATA 0 ATTACH CHAIN ANCHOR P* P EJECT TOSSIO P┆
0x096c…09bc 2a 20 00 1f 00 f0 00 20 00 50 2a 5c 46 20 44 20 42 20 41 20 54 20 54 20 2f 20 46 20 44 20 42 20 44 20 45 20 54 20 00 1f 00 fa 00 06 00 50 2a 20 00 1f 01 1e 00 28 00 50 2a 20 53 55 42 52 4f 55 54 49 4e 45 20 54 4f 20 41 54 54 41 43 48 2f 44 ┆* P* F D B A T T / F D B D E T P* ( P* SUBROUTINE TO ATTACH/D┆
0x09bc…0a0c 45 54 41 43 48 20 46 44 42 3a 53 20 00 1f 01 28 00 2a 00 50 2a 20 49 4e 20 41 20 44 41 54 41 20 4d 41 4e 41 47 45 4d 45 4e 54 20 46 49 4c 45 20 53 54 52 55 43 54 55 52 45 20 00 1f 01 54 00 06 00 50 2a 20 00 1f 01 82 00 20 00 50 2a 20 49 4e ┆ETACH FDB:S ( * P* IN A DATA MANAGEMENT FILE STRUCTURE T P* P* IN┆
0x0a0c…0a5c (8, 0, 400) 50 55 54 3a 20 20 41 35 20 3d 20 54 54 41 42 20 41 44 44 52 45 53 53 20 00 1f 01 8c 00 1e 00 50 2a 20 20 20 20 20 20 20 20 20 41 36 20 3d 20 46 44 42 20 41 44 44 52 45 53 53 00 20 00 20 00 24 00 50 2a 20 20 20 20 20 20 20 20 41 31 30 20 3d ┆PUT: A5 = TTAB ADDRESS P* A6 = FDB ADDRESS $ P* A10 =┆
0x0a5c…0aac 20 2f 38 30 30 20 28 41 54 54 41 43 48 20 42 49 54 29 00 20 00 42 00 06 00 50 2a 20 00 20 00 6a 00 22 00 50 2a 20 4f 55 54 50 55 54 3a 20 41 32 2d 41 34 20 41 52 45 41 20 44 45 53 54 52 4f 59 45 44 00 20 00 74 00 06 00 50 2a 20 00 20 00 9a ┆ /800 (ATTACH BIT) B P* j " P* OUTPUT: A2-A4 AREA DESTROYED t P* ┆
0x0aac…0afc 00 10 00 50 46 44 42 44 45 54 5c 45 51 55 5c 2a 00 20 00 a4 00 1a 00 50 5c 43 31 52 5c 41 31 30 2c 41 31 30 5c 41 31 30 3d 46 37 46 46 20 00 20 00 b8 00 06 00 50 2a 20 00 20 00 d6 00 10 00 50 46 44 42 41 54 54 5c 45 51 55 5c 2a 00 20 00 e0 ┆ PFDBDET EQU * P C1R A10,A10 A10=F7FF P* PFDBATT EQU * ┆
0x0afc…0b4c 00 1a 00 50 5c 4c 44 52 5c 41 34 2c 41 36 5c 46 44 42 20 41 44 44 52 45 53 53 00 20 00 f4 00 14 00 50 5c 41 44 4b 4c 5c 41 34 2c 46 44 42 41 44 46 20 00 20 01 12 00 1a 00 50 5c 4c 44 4b 5c 41 33 2c 31 30 5c 4c 4f 4f 50 20 49 4e 44 45 58 20 ┆ P LDR A4,A6 FDB ADDRESS P ADKL A4,FDBADF P LDK A3,10 LOOP INDEX ┆
0x0b4c…0b9c 00 20 01 2a 00 06 00 50 2a 20 00 20 01 48 00 14 00 50 46 44 42 3a 31 30 5c 53 55 4b 5c 41 33 2c 32 20 00 20 01 52 00 22 00 50 5c 52 42 28 4e 29 5c 46 4e 44 3a 32 30 5c 41 4c 4c 20 46 44 42 3a 53 20 52 45 41 44 59 3f 00 20 01 6a 00 18 00 50 ┆ * P* H PFDB:10 SUK A3,2 R " P RB(N) FND:20 ALL FDB:S READY? j P┆
0x0b9c…0bec (9, 0, 400) 5c 4c 44 52 2a 5c 41 32 2c 41 34 5c 4e 45 58 54 20 46 44 42 00 20 01 90 00 1a 00 50 5c 52 46 28 5a 29 5c 46 44 42 3a 32 30 5c 4e 4f 20 46 44 42 3f 20 00 21 00 1c 00 10 00 50 5c 4c 44 52 5c 41 31 30 2c 41 31 30 00 21 00 3a 00 22 00 50 5c 52 ┆ LDR* A2,A4 NEXT FDB P RF(Z) FDB:20 NO FDB? ! P LDR A10,A10 ! : " P R┆
0x0bec…0c3c 46 28 4e 29 5c 46 44 42 3a 31 35 5c 44 45 54 41 43 48 20 52 45 51 55 45 53 54 3f 20 00 21 00 4e 00 24 00 50 5c 4f 52 53 5c 41 31 30 2c 44 57 54 53 54 2c 41 32 5c 41 54 54 41 43 48 20 52 45 51 55 45 53 54 00 21 00 74 00 14 00 50 5c 53 54 5c ┆F(N) FDB:15 DETACH REQUEST? ! N $ P ORS A10,DWTST,A2 ATTACH REQUEST ! t P ST ┆
0x0c3c…0c8c 41 35 2c 44 57 54 54 41 42 2c 41 32 00 21 00 9c 00 0e 00 50 5c 52 46 5c 46 44 42 3a 32 30 00 21 00 b4 00 06 00 50 2a 20 00 21 00 c6 00 2a 00 50 46 44 42 3a 31 35 5c 41 4e 53 5c 41 31 30 2c 44 57 54 53 54 2c 41 32 5c 44 45 54 41 43 48 20 52 ┆A5,DWTTAB,A2 ! P RF FDB:20 ! P* ! * PFDB:15 ANS A10,DWTST,A2 DETACH R┆
0x0c8c…0cdc 45 51 55 45 53 54 00 21 00 d0 00 1e 00 50 5c 43 46 5c 41 31 35 2c 51 52 45 51 5c 55 50 44 41 54 45 20 44 57 54 54 51 20 00 21 00 fe 00 06 00 50 2a 20 00 21 01 20 00 24 00 50 46 44 42 3a 32 30 5c 41 44 4b 5c 41 34 2c 32 5c 4e 45 58 54 20 46 ┆EQUEST ! P CF A15,QREQ UPDATE DWTTQ ! P* ! $ PFDB:20 ADK A4,2 NEXT F┆
0x0cdc…0d2c 44 42 20 41 44 44 52 45 53 53 00 21 01 2a 00 0e 00 50 5c 52 42 5c 46 44 42 3a 31 30 00 21 01 52 00 06 00 50 2a 20 00 21 01 64 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 54 4f 53 53 49 4f 20 00 21 01 6e 00 06 00 50 2a 20 00 21 01 86 00 0e 00 50 ┆DB ADDRESS ! * P RB FDB:10 ! R P* ! d P EJECT TOSSIO ! n P* ! P┆
0x0d2c…0d7c (10, 0, 400) 2a 5c 51 20 52 20 45 20 51 20 00 21 01 90 00 06 00 50 2a 20 00 22 00 12 00 38 00 50 2a 20 53 55 42 52 4f 55 54 49 4e 45 20 54 4f 20 51 55 45 55 45 20 54 41 53 4b 20 49 4e 20 44 45 56 49 43 45 20 51 55 45 55 45 20 28 49 46 20 41 4e 59 29 20 ┆* Q R E Q ! P* " 8 P* SUBROUTINE TO QUEUE TASK IN DEVICE QUEUE (IF ANY) ┆
0x0d7c…0dcc 00 22 00 1c 00 06 00 50 2a 20 00 22 00 58 00 1e 00 50 2a 20 49 4e 50 55 54 3a 20 20 41 32 20 3d 20 44 57 54 20 41 44 44 52 45 53 53 00 22 00 62 00 06 00 50 2a 20 00 22 00 84 00 22 00 50 2a 20 4f 55 54 50 55 54 3a 20 41 37 2c 20 41 39 20 41 ┆ " P* " X P* INPUT: A2 = DWT ADDRESS " b P* " " P* OUTPUT: A7, A9 A┆
0x0dcc…0e1c 52 45 20 44 45 53 54 52 4f 59 45 44 00 22 00 8e 00 06 00 50 2a 20 00 22 00 b4 00 0e 00 50 51 52 45 51 5c 45 51 55 5c 2a 00 22 00 be 00 26 00 50 5c 4c 44 52 5c 41 39 2c 41 35 5c 53 41 56 45 20 41 35 20 28 54 54 41 42 20 41 44 44 52 45 53 53 ┆RE DESTROYED " P* " PQREQ EQU * " & P LDR A9,A5 SAVE A5 (TTAB ADDRESS┆
0x0e1c…0e6c 29 20 00 22 00 d0 00 26 00 50 5c 4c 44 5c 41 35 2c 44 57 54 54 51 2c 41 32 5c 41 4e 59 20 54 41 53 4b 20 49 4e 20 51 55 45 55 45 3f 00 22 00 fa 00 16 00 50 5c 52 46 28 5a 29 5c 51 52 45 3a 31 30 5c 4e 4f 21 20 00 22 01 24 00 28 00 50 5c 4c ┆) " & P LD A5,DWTTQ,A2 ANY TASK IN QUEUE? " P RF(Z) QRE:10 NO! " $ ( P L┆
0x0e6c…0ebc 44 52 2a 5c 41 37 2c 41 35 5c 59 45 53 2c 55 50 44 41 54 45 20 51 55 45 55 45 20 41 4e 43 48 4f 52 20 00 22 01 3e 00 14 00 50 5c 53 54 5c 41 37 2c 44 57 54 54 51 2c 41 32 20 00 22 01 6a 00 1c 00 50 5c 43 46 5c 41 31 35 2c 51 54 4a 4f 42 5c ┆DR* A7,A5 YES,UPDATE QUEUE ANCHOR " > P ST A7,DWTTQ,A2 " j P CF A15,QTJOB ┆
0x0ebc…0f0c (11, 0, 400) 51 55 45 55 45 20 54 41 53 4b 00 22 01 82 00 06 00 50 2a 20 00 23 00 12 00 10 00 50 51 52 45 3a 31 30 5c 45 51 55 5c 2a 00 23 00 1c 00 24 00 50 5c 4c 44 52 5c 41 35 2c 41 39 5c 52 45 53 54 4f 52 45 20 54 54 41 42 20 41 44 44 52 45 53 53 20 ┆QUEUE TASK " P* # PQRE:10 EQU * # $ P LDR A5,A9 RESTORE TTAB ADDRESS ┆
0x0f0c…0f5c 00 23 00 30 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 31 20 00 23 00 58 00 16 00 50 5c 52 42 5c 46 4e 44 3a 32 30 5c 52 45 54 55 52 4e 20 00 23 00 6e 00 08 00 50 5c 58 49 46 00 23 00 88 00 06 00 50 2a 20 00 23 00 94 00 12 00 50 5c 49 ┆ # 0 P IFT CPU852=1 # X P RB FND:20 RETURN # n P XIF # P* # P I┆
0x0f5c…0fac 46 54 5c 41 54 54 44 45 54 3d 31 20 00 23 00 9e 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 30 20 00 23 00 b4 00 14 00 50 5c 52 54 4e 5c 41 31 35 5c 52 45 54 55 52 4e 20 00 23 00 ca 00 08 00 50 5c 58 49 46 00 23 00 e2 00 06 00 50 2a 20 ┆FT ATTDET=1 # P IFT CPU852=0 # P RTN A15 RETURN # P XIF # P* ┆
0x0fac…0ffc 00 23 00 ee 00 12 00 50 5c 49 46 54 5c 41 54 54 44 45 54 3d 31 20 00 23 00 f8 00 06 00 50 2a 20 00 23 01 0e 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 54 4f 53 53 49 4f 20 00 23 01 18 00 06 00 50 2a 20 00 23 01 30 00 06 00 50 2a 20 00 23 01 3a ┆ # P IFT ATTDET=1 # P* # P EJECT TOSSIO # P* # 0 P* # :┆
0x0ffc…104c 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 23 01 44 00 0e 00 50 2a 20 41 54 54 41 43 48 20 2a 00 23 01 56 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 23 01 68 00 06 00 50 2a 20 00 23 01 7a 00 06 00 50 2a 20 00 23 01 84 00 2a 00 50 2a 20 ┆ P********** # D P* ATTACH * # V P********** # h P* # z P* # * P* ┆
0x104c…109c (12, 0, 398) 20 54 48 49 53 20 4d 4f 44 55 4c 45 20 49 53 20 43 41 4c 4c 45 44 20 46 52 4f 4d 20 54 49 4f 20 57 49 54 48 00 23 01 8e 00 20 00 50 2a 20 20 54 48 45 20 46 4f 4c 4c 4f 57 49 4e 47 20 50 41 52 41 4d 45 54 45 52 53 3a 00 24 00 2c 00 06 00 50 ┆ THIS MODULE IS CALLED FROM TIO WITH # P* THE FOLLOWING PARAMETERS: $ , P┆
0x109c…10ec 2a 20 00 24 00 50 00 26 00 50 2a 20 20 20 41 33 20 20 2f 38 30 30 30 20 28 52 45 51 55 45 53 54 20 45 52 52 4f 52 20 42 49 54 29 20 00 24 00 5a 00 26 00 50 2a 20 20 20 41 34 20 20 49 2f 4f 20 41 4e 44 20 41 43 54 49 56 41 54 45 20 49 4e 44 ┆* $ P & P* A3 /8000 (REQUEST ERROR BIT) $ Z & P* A4 I/O AND ACTIVATE IND┆
0x10ec…113c 49 43 41 54 4f 52 00 24 00 84 00 18 00 50 2a 20 20 20 41 35 20 20 54 54 41 42 20 41 44 44 52 45 53 53 00 24 00 ae 00 18 00 50 2a 20 20 20 41 36 20 20 44 57 54 20 41 44 44 52 45 53 53 20 00 24 00 ca 00 16 00 50 2a 20 20 20 41 37 20 20 4f 52 ┆ICATOR $ P* A5 TTAB ADDRESS $ P* A6 DWT ADDRESS $ P* A7 OR┆
0x113c…118c 44 45 52 20 43 4f 44 45 00 24 00 e6 00 18 00 50 2a 20 20 20 41 38 20 20 45 43 42 20 41 44 44 52 45 53 53 20 00 24 01 00 00 1e 00 50 2a 20 20 41 31 30 20 20 2f 30 38 30 30 20 28 41 54 54 41 43 48 20 42 49 54 29 00 24 01 1c 00 2c 00 50 2a 20 ┆DER CODE $ P* A8 ECB ADDRESS $ P* A10 /0800 (ATTACH BIT) $ , P* ┆
0x118c…11da 20 41 31 32 20 20 41 44 44 52 45 53 53 20 54 4f 20 44 52 49 56 45 52 20 41 44 44 52 45 53 53 20 42 4c 4f 43 4b 20 00 24 01 3e 00 16 00 50 2a 20 20 41 31 33 20 20 44 57 54 20 53 54 41 54 55 53 00 24 01 6e 00 06 00 50 2a 20 00 24 01 88 ┆ A12 ADDRESS TO DRIVER ADDRESS BLOCK $ > P* A13 DWT STATUS $ n P* $ ┆