|
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: 4450 (0x1162)
Notes: pts_type(SC)
Names: »ST8000.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »M:DEMO/ST8000.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »M:LP/ST8000.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »M:DENJ/ST8000.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »M:DENJ/ST8000.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »M:LP/ST8000.SC«
IDENT ST8000 REL 10.0 80-06-09 870105041000
ENTRY ST8000
*
EXTRN IHPFAR,IHLKM,IHRTC,ILLINT,IHTW
EXTRN IHTC,IHSOP,CHLT1,IHFD
EXTRN IASCUZ,ISLCI,ISLCO,CHRT1,IHMD
*
ST8000 EQU *
*
DATA IHPFAR 0
DATA IHLKM 1
DATA IHRTC 2
DATA ILLINT 3
DATA ILLINT 12
DATA ILLINT 13
DATA ILLINT 6
DATA IHTW 7
DATA IASCUZ 8
DATA IHSOP 9
DATA ISLCI
DATA ISLCO
DATA CHRT1 12
DATA IHMD 13
DATA CHLT1 14
DATA IHFD 15
DATA ILLINT 16
DATA ILLINT 17
DATA ILLINT 18
DATA ILLINT 19
DATA ILLINT 20
DATA ILLINT 21
DATA ILLINT 22
DATA ILLINT 23
DATA ILLINT 24
DATA ILLINT 25
DATA ILLINT 26
DATA ILLINT 27
DATA ILLINT 28
DATA ILLINT 29
DATA ILLINT 120
DATA ILLINT 121
DATA ILLINT 122
DATA ILLINT 123
DATA ILLINT 124
DATA ILLINT 125
DATA ILLINT 126
DATA ILLINT 127
DATA ILLINT 128
DATA ILLINT 129
DATA ILLINT 130
DATA ILLINT 131
DATA ILLINT 132
DATA ILLINT 133
DATA ILLINT 134
DATA ILLINT 135
DATA ILLINT 136
DATA ILLINT 137
DATA ILLINT 138
DATA ILLINT 139
DATA ILLINT 50
DATA ILLINT 51
DATA ILLINT 52
DATA ILLINT 53
DATA ILLINT 54
DATA ILLINT 55
DATA ILLINT 56
DATA ILLINT 57
DATA ILLINT 58
DATA ILLINT 59
DATA ILLINT 60
DATA ILLINT 61
DATA ILLINT 62
END
0x0000…0036 (0, 0, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT ST8000 REL 10.0 80-06-09 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0054 Head {h00=0x0012, h01=0x0050, text=» ENTRY ST8000 «, t00=0x0000, t01=0x0042}
0x0054…005e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0058}
0x005e…008c Head {h00=0x002a, h01=0x0050, text=» EXTRN IHPFAR,IHLKM,IHRTC,ILLINT,IHTW «, t00=0x0000, t01=0x0062}
0x008c…00b0 Head {h00=0x0020, h01=0x0050, text=» EXTRN IHTC,IHSOP,CHLT1,IHFD«, t00=0x0000, t01=0x0090}
0x00b0…00dc Head {h00=0x0028, h01=0x0050, text=» EXTRN IASCUZ,ISLCI,ISLCO,CHRT1,IHMD«, t00=0x0000, t01=0x00b4}
0x00dc…00e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e0}
0x00e6…00fa Head {h00=0x0010, h01=0x000c, text=»ST8000 EQU *«, t00=0x0000, t01=0x00ea}
0x00fa…0104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fe}
0x0104…0120 Head {h00=0x0018, h01=0x0050, text=» DATA IHPFAR 0«, t00=0x0000, t01=0x0108}
0x0120…013c Head {h00=0x0018, h01=0x0050, text=» DATA IHLKM 1 «, t00=0x0000, t01=0x0124}
0x013c…0156 Head {h00=0x0016, h01=0x0050, text=» DATA IHRTC 2«, t00=0x0000, t01=0x0140}
0x0156…0172 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 3«, t00=0x0000, t01=0x015a}
0x0172…018e Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 12«, t00=0x0000, t01=0x0176}
0x018e…01aa (1, 0, 400) Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 13«, t00=0x0001, t01=0x0004}
0x01aa…01c6 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 6«, t00=0x0001, t01=0x0020}
0x01c6…01e0 Head {h00=0x0016, h01=0x0050, text=» DATA IHTW 7«, t00=0x0001, t01=0x003c}
0x01e0…01fc Head {h00=0x0018, h01=0x0050, text=» DATA IASCUZ 8«, t00=0x0001, t01=0x0056}
0x01fc…0218 Head {h00=0x0018, h01=0x0050, text=» DATA IHSOP 9 «, t00=0x0001, t01=0x0072}
0x0218…0238 Head {h00=0x001c, h01=0x0050, text=» DATA ISLCI «, t00=0x0001, t01=0x008e}
0x0238…0258 Head {h00=0x001c, h01=0x0050, text=» DATA ISLCO «, t00=0x0001, t01=0x00ae}
0x0258…0274 Head {h00=0x0018, h01=0x0050, text=» DATA CHRT1 12 «, t00=0x0001, t01=0x00ce}
0x0274…028e Head {h00=0x0016, h01=0x0050, text=» DATA IHMD 13«, t00=0x0001, t01=0x00ea}
0x028e…02aa Head {h00=0x0018, h01=0x0050, text=» DATA CHLT1 14 «, t00=0x0001, t01=0x0104}
0x02aa…02c4 Head {h00=0x0016, h01=0x0050, text=» DATA IHFD 15«, t00=0x0001, t01=0x0120}
0x02c4…02e0 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 16«, t00=0x0001, t01=0x013a}
0x02e0…02fc Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 17«, t00=0x0001, t01=0x0156}
0x02fc…0318 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 18«, t00=0x0001, t01=0x0172}
0x0318…0334 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 19«, t00=0x0001, t01=0x018e}
0x0334…0350 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 20«, t00=0x0002, t01=0x001a}
0x0350…036c Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 21«, t00=0x0002, t01=0x0036}
0x036c…0388 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 22«, t00=0x0002, t01=0x0052}
0x0388…03a4 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 23«, t00=0x0002, t01=0x006e}
0x03a4…03c0 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 24«, t00=0x0002, t01=0x008a}
0x03c0…03dc Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 25«, t00=0x0002, t01=0x00a6}
0x03dc…03f8 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 26«, t00=0x0002, t01=0x00c2}
0x03f8…0414 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 27«, t00=0x0002, t01=0x00de}
0x0414…0430 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 28«, t00=0x0002, t01=0x00fa}
0x0430…044c Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 29«, t00=0x0002, t01=0x0116}
0x044c…0468 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 120«, t00=0x0002, t01=0x0132}
0x0468…0484 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 121«, t00=0x0002, t01=0x014e}
0x0484…04a0 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 122«, t00=0x0002, t01=0x016a}
0x04a0…04bc Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 123«, t00=0x0002, t01=0x0186}
0x04bc…04d8 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 124«, t00=0x0003, t01=0x0012}
0x04d8…04f4 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 125«, t00=0x0003, t01=0x002e}
0x04f4…0510 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 126«, t00=0x0003, t01=0x004a}
0x0510…052c Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 127«, t00=0x0003, t01=0x0066}
0x052c…0548 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 128«, t00=0x0003, t01=0x0082}
0x0548…0564 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 129«, t00=0x0003, t01=0x009e}
0x0564…0580 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 130«, t00=0x0003, t01=0x00ba}
0x0580…059c Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 131«, t00=0x0003, t01=0x00d6}
0x059c…05b8 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 132«, t00=0x0003, t01=0x00f2}
0x05b8…05d4 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 133«, t00=0x0003, t01=0x010e}
0x05d4…05f0 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 134«, t00=0x0003, t01=0x012a}
0x05f0…060c Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 135«, t00=0x0003, t01=0x0146}
0x060c…0628 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 136«, t00=0x0003, t01=0x0162}
0x0628…0644 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 137«, t00=0x0003, t01=0x017e}
0x0644…0660 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 138«, t00=0x0004, t01=0x000a}
0x0660…067c Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 139«, t00=0x0004, t01=0x0026}
0x067c…0698 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 50«, t00=0x0004, t01=0x0042}
0x0698…06b4 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 51«, t00=0x0004, t01=0x005e}
0x06b4…06d0 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 52«, t00=0x0004, t01=0x007a}
0x06d0…06ec Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 53«, t00=0x0004, t01=0x0096}
0x06ec…0708 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 54«, t00=0x0004, t01=0x00b2}
0x0708…0724 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 55«, t00=0x0004, t01=0x00ce}
0x0724…0740 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 56«, t00=0x0004, t01=0x00ea}
0x0740…075c Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 57«, t00=0x0004, t01=0x0106}
0x075c…0778 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 58«, t00=0x0004, t01=0x0122}
0x0778…0794 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 59«, t00=0x0004, t01=0x013e}
0x0794…07b0 Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 60«, t00=0x0004, t01=0x015a}
0x07b0…07cc Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 61«, t00=0x0004, t01=0x0176}
0x07cc…07e8 (5, 2, 48) Head {h00=0x0018, h01=0x0050, text=» DATA ILLINT 62«, t00=0x0005, t01=0x0004}
0x07e8…07f4 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0005, t01=0x0020}
0x07f4…07f8 Head {h00=0x4004, h01=0x0000}
0x07f8…07fc 00 05 00 2c ┆ ,┆
0x07fc…0804 (6, 1, 8) 20 04 00 00 00 06 00 04 ┆ ┆
0x0804…0854 (7, 0, 398) 28 49 4e 20 54 3a 41 29 3d 4c 45 4e 47 54 48 20 4f 46 20 44 53 43 42 27 53 20 20 20 20 20 2a 2a 00 66 01 80 00 34 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 43 49 41 20 28 49 4e 20 54 3a 41 29 3d 44 49 53 50 4c 2e 20 54 4f 20 54 3a 41 2d 53 ┆(IN T:A)=LENGTH OF DSCB'S ** f 4 P** CIA (IN T:A)=DISPL. TO T:A-S┆
0x0854…08a4 54 41 52 54 20 20 2a 2a 00 67 00 28 00 34 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 43 53 45 20 28 49 4e 20 54 3a 41 29 3d 53 54 41 43 4b 53 49 5a 45 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 67 00 60 00 34 00 50 2a 2a 20 20 57 4f 52 4b ┆TART ** g ( 4 P** CSE (IN T:A)=STACKSIZE ** g ` 4 P** WORK┆
0x08a4…08f4 2d 52 45 47 53 2e 20 3a 41 31 2d 41 34 2c 41 39 2c 41 31 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 67 00 98 00 34 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆-REGS. :A1-A4,A9,A11 ** g 4 P********************************┆
0x08f4…0944 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 67 00 d0 00 04 00 50 00 67 01 08 00 10 00 50 41 4c 4c 42 55 46 5c 45 51 55 5c 2a 00 67 01 10 00 18 00 50 5c 49 46 54 20 43 52 45 44 49 54 2d 4d 4d 55 50 41 47 3d 31 00 67 01 24 00 2e 00 50 ┆**************** g P g PALLBUF EQU * g P IFT CREDIT-MMUPAG=1 g $ . P┆
0x0944…0992 5c 4c 44 5c 41 39 2c 46 53 54 41 44 52 2c 41 31 33 5c 47 45 54 20 42 55 46 46 45 52 20 53 54 41 52 54 20 41 44 44 52 45 53 53 00 67 01 40 00 20 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 38 5c 47 45 54 20 54 3a 41 2d 41 44 44 52 45 53 53 20 ┆ LD A9,FSTADR,A13 GET BUFFER START ADDRESS g @ P LDR* A1,A8 GET T:A-ADDRESS ┆
0x0992…09e2 (8, 0, 400) 00 67 01 72 00 28 00 50 5c 4c 44 5c 41 33 2c 43 53 4e 2c 41 31 5c 47 45 54 20 44 53 43 42 20 54 4f 54 41 4c 20 4c 45 4e 47 54 48 20 00 68 00 08 00 1c 00 50 5c 52 46 28 5a 29 5c 41 4c 4c 42 37 30 5c 4e 4f 20 44 53 43 42 27 53 20 00 68 00 34 ┆ g r ( P LD A3,CSN,A1 GET DSCB TOTAL LENGTH h P RF(Z) ALLB70 NO DSCB'S h 4┆
0x09e2…0a32 00 2e 00 50 5c 41 44 4b 4c 5c 41 31 2c 54 3a 41 53 54 41 5c 43 41 4c 43 20 53 54 41 52 54 20 4f 46 20 44 53 43 42 20 52 45 43 4f 52 44 53 00 68 00 54 00 22 00 50 5c 4c 44 52 5c 41 31 30 2c 41 31 5c 53 41 56 45 20 53 54 41 52 54 20 41 44 44 ┆ . P ADKL A1,T:ASTA CALC START OF DSCB RECORDS h T " P LDR A10,A1 SAVE START ADD┆
0x0a32…0a82 52 45 53 53 00 68 00 86 00 08 00 50 5c 58 49 46 00 68 00 ac 00 18 00 50 5c 49 46 54 20 43 52 45 44 49 54 2b 4d 4d 55 50 41 47 3d 32 00 68 00 b8 00 1e 00 50 5c 45 4c 52 5c 41 31 2c 41 38 5c 47 45 54 20 54 3a 41 2d 41 44 44 52 45 53 53 00 68 ┆RESS h P XIF h P IFT CREDIT+MMUPAG=2 h P ELR A1,A8 GET T:A-ADDRESS h┆
0x0a82…0ad2 00 d4 00 28 00 50 5c 45 4c 5c 41 33 2c 43 53 4e 2c 41 31 5c 47 45 54 20 44 53 43 42 20 54 4f 54 41 4c 20 4c 45 4e 47 54 48 20 00 68 00 f6 00 1a 00 50 5c 52 46 28 5a 29 5c 41 4c 4c 42 37 30 5c 4e 4f 20 44 53 43 42 20 00 68 01 22 00 2e 00 50 ┆ ( P EL A3,CSN,A1 GET DSCB TOTAL LENGTH h P RF(Z) ALLB70 NO DSCB h " . P┆
0x0ad2…0b22 5c 41 44 4b 4c 5c 41 31 2c 54 3a 41 53 54 41 5c 43 41 4c 43 55 4c 41 54 45 20 53 54 41 52 54 20 4f 46 20 44 53 43 42 27 53 20 00 68 01 40 00 22 00 50 5c 4c 44 52 5c 41 31 30 2c 41 31 5c 53 41 56 45 20 53 54 41 52 54 20 41 44 44 52 45 53 53 ┆ ADKL A1,T:ASTA CALCULATE START OF DSCB'S h @ " P LDR A10,A1 SAVE START ADDRESS┆
0x0b22…0b72 (9, 0, 400) 00 68 01 72 00 08 00 50 5c 58 49 46 00 69 00 08 00 12 00 50 5c 49 46 46 20 43 52 45 44 49 54 3d 30 20 00 69 00 14 00 0e 00 50 5c 53 55 52 5c 41 33 2c 41 31 00 69 00 2a 00 0e 00 50 5c 4e 47 52 5c 41 33 2c 41 33 00 69 00 3c 00 20 00 50 5c 53 ┆ h r P XIF i P IFF CREDIT=0 i P SUR A3,A1 i * P NGR A3,A3 i < P S┆
0x0b72…0bc2 55 4b 5c 41 33 2c 44 53 43 42 4c 5c 45 4e 44 20 43 4f 4e 44 49 54 49 4f 4e 20 00 69 00 4e 00 3a 00 50 5c 53 54 5c 41 33 2c 53 41 56 45 30 34 2c 41 31 33 5c 53 41 56 45 20 41 44 44 52 45 53 53 20 54 4f 20 45 4e 44 20 4f 46 20 44 53 43 42 2d ┆UK A3,DSCBL END CONDITION i N : P ST A3,SAVE04,A13 SAVE ADDRESS TO END OF DSCB-┆
0x0bc2…0c12 52 45 43 4f 52 44 53 20 00 69 00 72 00 3a 00 50 41 4c 4c 42 31 30 5c 53 55 4b 5c 41 31 2c 44 53 43 42 4c 5c 41 31 3d 46 49 52 53 54 20 57 4f 52 44 20 49 4e 20 46 49 52 53 54 20 44 53 43 42 2d 52 45 43 4f 52 44 00 69 00 b0 00 1a 00 50 5c 43 ┆RECORDS i r : PALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD i P C┆
0x0c12…0c62 57 5c 41 31 2c 53 41 56 45 30 34 2c 41 31 33 5c 41 4c 4c 3f 00 69 00 ee 00 16 00 50 5c 52 46 28 45 29 5c 41 4c 4c 42 37 30 5c 59 45 53 21 00 69 01 0c 00 18 00 50 5c 49 46 54 20 43 52 45 44 49 54 2d 4d 4d 55 50 41 47 3d 31 00 69 01 26 00 26 ┆W A1,SAVE04,A13 ALL? i P RF(E) ALLB70 YES! i P IFT CREDIT-MMUPAG=1 i & &┆
0x0c62…0cb2 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 31 5c 47 45 54 20 46 49 52 53 54 20 57 4f 52 44 20 49 4e 20 45 43 42 20 00 69 01 42 00 1c 00 50 5c 53 4c 4c 5c 41 33 2c 31 5c 53 54 41 54 49 43 20 42 55 46 46 45 52 3f 00 69 01 6c 00 16 00 50 5c 52 42 28 ┆ P LDR* A3,A1 GET FIRST WORD IN ECB i B P SLL A3,1 STATIC BUFFER? i l P RB(┆
0x0cb2…0d02 (10, 0, 400) 4e 4e 29 5c 41 4c 4c 42 31 30 5c 4e 4f 21 00 69 01 8c 00 1e 00 50 5c 53 54 5c 41 39 2c 42 41 2c 41 31 5c 42 55 46 46 45 52 20 53 54 41 52 54 20 00 6a 00 16 00 1e 00 50 5c 4c 44 5c 41 33 2c 52 4c 2c 41 31 5c 42 55 46 46 45 52 20 4c 45 4e 47 ┆NN) ALLB10 NO! i P ST A9,BA,A1 BUFFER START j P LD A3,RL,A1 BUFFER LENG┆
0x0d02…0d52 54 48 00 6a 00 38 00 10 00 50 5c 53 54 5c 41 33 2c 42 4c 2c 41 31 00 6a 00 5a 00 20 00 50 5c 4c 44 5c 41 32 2c 45 4c 2c 41 31 5c 53 48 41 52 45 44 20 42 55 46 46 45 52 3f 20 00 6a 00 6e 00 14 00 50 5c 52 46 28 5a 29 5c 4e 4f 54 53 48 5c 4e ┆TH j 8 P ST A3,BL,A1 j Z P LD A2,EL,A1 SHARED BUFFER? j n P RF(Z) NOTSH N┆
0x0d52…0da2 4f 21 00 6a 00 92 00 26 00 50 5c 4c 44 52 5c 41 34 2c 41 31 5c 52 45 53 54 4f 52 45 20 53 54 41 52 54 20 4f 46 20 44 53 43 42 27 53 00 6a 00 aa 00 08 00 50 5c 58 49 46 00 6a 00 d4 00 18 00 50 5c 49 46 54 20 43 52 45 44 49 54 2b 4d 4d 55 50 ┆O! j & P LDR A4,A1 RESTORE START OF DSCB'S j P XIF j P IFT CREDIT+MMUP┆
0x0da2…0df2 41 47 3d 32 00 6a 00 e0 00 24 00 50 5c 45 4c 52 5c 41 33 2c 41 31 5c 47 45 54 20 46 49 52 53 54 20 57 4f 52 44 20 49 4e 20 45 43 42 00 6a 00 fc 00 1c 00 50 5c 53 4c 4c 5c 41 33 2c 31 5c 53 54 41 54 49 43 20 42 55 46 46 45 52 3f 00 6a 01 24 ┆AG=2 j $ P ELR A3,A1 GET FIRST WORD IN ECB j P SLL A3,1 STATIC BUFFER? j $┆
0x0df2…0e42 00 16 00 50 5c 52 42 28 4e 4e 29 5c 41 4c 4c 42 31 30 5c 4e 4f 21 00 6a 01 44 00 1e 00 50 5c 45 4c 5c 41 33 2c 52 4c 2c 41 31 5c 42 55 46 46 45 52 20 4c 45 4e 47 54 48 00 6a 01 5e 00 10 00 50 5c 45 53 5c 41 33 2c 42 4c 2c 41 31 00 6a 01 80 ┆ P RB(NN) ALLB10 NO! j D P EL A3,RL,A1 BUFFER LENGTH j ^ P ES A3,BL,A1 j ┆
0x0e42…0e92 (11, 0, 400) 00 20 00 50 5c 45 4c 5c 41 32 2c 45 4c 2c 41 31 5c 53 48 41 52 45 44 20 42 55 46 46 45 52 3f 20 00 6b 00 04 00 14 00 50 5c 52 46 28 5a 29 5c 4e 4f 54 53 48 5c 4e 4f 21 00 6b 00 28 00 26 00 50 5c 4c 44 52 5c 41 34 2c 41 31 5c 52 45 53 54 4f ┆ P EL A2,EL,A1 SHARED BUFFER? k P RF(Z) NOTSH NO! k ( & P LDR A4,A1 RESTO┆
0x0e92…0ee2 52 45 20 53 54 41 52 54 20 4f 46 20 44 53 43 42 27 53 00 6b 00 40 00 08 00 50 5c 58 49 46 00 6b 00 6a 00 12 00 50 5c 49 46 46 20 43 52 45 44 49 54 3d 30 20 00 6b 00 76 00 1c 00 50 5c 41 44 4b 5c 41 34 2c 44 53 43 42 4c 5c 46 49 52 53 54 20 ┆RE START OF DSCB'S k @ P XIF k j P IFF CREDIT=0 k v P ADK A4,DSCBL FIRST ┆
0x0ee2…0f32 57 4f 52 44 00 6b 00 8c 00 1c 00 50 41 4c 4c 42 32 30 5c 53 55 4b 5c 41 32 2c 31 5c 41 32 3d 49 4e 44 45 58 00 6b 00 ac 00 12 00 50 5c 52 46 28 4e 4e 29 5c 41 4c 4c 42 33 30 00 6b 00 cc 00 1e 00 50 5c 4c 44 4b 5c 41 31 2c 4c 4d 50 34 5c 46 ┆WORD k PALLB20 SUK A2,1 A2=INDEX k P RF(NN) ALLB30 k P LDK A1,LMP4 F┆
0x0f32…0f82 4f 52 4d 41 54 20 45 52 52 4f 52 20 00 6b 00 e2 00 10 00 50 5c 43 41 4c 4c 5c 45 52 52 4f 52 20 00 6b 01 04 00 10 00 50 41 4c 4c 42 33 30 5c 45 51 55 5c 2a 00 6b 01 18 00 1c 00 50 5c 52 46 28 5a 29 5c 41 4c 4c 42 34 30 5c 45 43 42 20 46 4f ┆ORMAT ERROR k P CALL ERROR k PALLB30 EQU * k P RF(Z) ALLB40 ECB FO┆
0x0f82…0fd2 55 4e 44 20 00 6b 01 2c 00 30 00 50 5c 41 44 4b 5c 41 34 2c 44 53 43 42 4c 5c 41 34 3d 41 44 44 52 45 53 53 20 54 4f 20 44 53 43 42 20 54 4f 20 45 58 41 4d 49 4e 45 20 00 6b 01 4c 00 10 00 50 5c 43 57 52 5c 41 34 2c 41 31 30 20 00 6b 01 80 ┆UND k , 0 P ADK A4,DSCBL A4=ADDRESS TO DSCB TO EXAMINE k L P CWR A4,A10 k ┆
0x0fd2…1022 (12, 0, 400) 00 12 00 50 5c 52 42 28 4e 45 29 5c 41 4c 4c 42 32 30 00 6c 00 04 00 22 00 50 5c 4c 44 4b 5c 41 31 2c 4c 4d 50 34 5c 42 55 46 46 45 52 20 4e 4f 54 20 46 4f 55 4e 44 20 00 6c 00 1a 00 10 00 50 5c 43 41 4c 4c 5c 45 52 52 4f 52 20 00 6c 00 40 ┆ P RB(NE) ALLB20 l " P LDK A1,LMP4 BUFFER NOT FOUND l P CALL ERROR l @┆
0x1022…1072 00 18 00 50 5c 49 46 54 20 43 52 45 44 49 54 2d 4d 4d 55 50 41 47 3d 31 00 6c 00 54 00 28 00 50 41 4c 4c 42 34 30 5c 4c 44 5c 41 34 2c 42 41 2c 41 34 5c 42 55 46 46 45 52 20 41 4c 4c 4f 43 41 54 45 44 3f 00 6c 00 70 00 18 00 50 5c 52 46 28 ┆ P IFT CREDIT-MMUPAG=1 l T ( PALLB40 LD A4,BA,A4 BUFFER ALLOCATED? l p P RF(┆
0x1072…10c2 4e 5a 29 5c 41 4c 4c 42 35 30 5c 59 45 53 21 20 00 6c 00 9c 00 1e 00 50 5c 4c 44 4b 5c 41 31 2c 4c 4d 50 34 5c 46 4f 52 4d 41 54 20 45 52 52 4f 52 20 00 6c 00 b8 00 10 00 50 5c 43 41 4c 4c 5c 45 52 52 4f 52 20 00 6c 00 da 00 10 00 50 41 4c ┆NZ) ALLB50 YES! l P LDK A1,LMP4 FORMAT ERROR l P CALL ERROR l PAL┆
0x10c2…1112 4c 42 35 30 5c 45 51 55 5c 2a 00 6c 00 ee 00 2a 00 50 5c 53 54 5c 41 34 2c 42 41 2c 41 31 5c 41 4e 44 20 53 54 4f 52 45 20 49 4e 20 43 55 52 52 45 4e 54 20 45 43 42 20 00 6c 01 02 00 08 00 50 5c 58 49 46 00 6c 01 30 00 18 00 50 5c 49 46 54 ┆LB50 EQU * l * P ST A4,BA,A1 AND STORE IN CURRENT ECB l P XIF l 0 P IFT┆
0x1112…1162 20 43 52 45 44 49 54 2b 4d 4d 55 50 41 47 3d 32 00 6c 01 3c 00 28 00 50 41 4c 4c 42 34 30 5c 45 4c 5c 41 34 2c 42 41 2c 41 34 5c 42 55 46 46 45 52 20 41 4c 4c 4f 43 41 54 45 44 3f 00 6c 01 58 00 18 00 50 5c 52 46 28 4e 5a 29 5c 41 4c 4c 42 ┆ CREDIT+MMUPAG=2 l < ( PALLB40 EL A4,BA,A4 BUFFER ALLOCATED? l X P RF(NZ) ALLB┆