|
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: 4452 (0x1164)
Notes: pts_type(SC)
Names: »ST8000.SC«
└─⟦4358b8014⟧ Bits:30009669 Philips computer tape "600124"
└─⟦this⟧ »MON10/ST8000.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »M:DECE/ST8000.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »MON10/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, 400) 00 66 01 5e 00 34 00 50 2a 2a 20 20 41 4c 4c 4f 43 41 54 45 20 46 49 58 45 44 20 44 41 54 41 20 53 45 54 20 42 55 46 46 45 52 53 20 41 4e 44 20 20 20 20 20 20 20 2a 2a 00 67 00 08 00 34 00 50 2a 2a 20 20 54 45 52 4d 49 4e 41 4c 20 53 54 41 ┆ f ^ 4 P** ALLOCATE FIXED DATA SET BUFFERS AND ** g 4 P** TERMINAL STA┆
0x0854…08a4 43 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 67 00 40 00 34 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CK ** g @ 4 P** ┆
0x08a4…08f4 20 20 20 20 20 20 2a 2a 00 67 00 78 00 34 00 50 2a 2a 20 20 49 4e 50 55 54 20 3a 20 41 38 3d 41 43 54 55 41 4c 20 54 3a 41 2d 41 44 44 52 45 53 53 20 49 4e 20 54 3a 41 54 41 42 20 20 20 2a 2a 00 67 00 b0 00 34 00 50 2a 2a 20 20 20 20 20 20 ┆ ** g x 4 P** INPUT : A8=ACTUAL T:A-ADDRESS IN T:ATAB ** g 4 P** ┆
0x08f4…0944 20 20 20 20 41 31 32 3d 54 3a 44 2d 41 44 44 52 45 53 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 67 00 e8 00 34 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 43 53 4e 20 28 49 4e 20 54 3a 41 29 3d 4c 45 4e 47 54 48 20 ┆ A12=T:D-ADDRESS ** g 4 P** CSN (IN T:A)=LENGTH ┆
0x0944…0994 4f 46 20 44 53 43 42 27 53 20 20 20 20 20 2a 2a 00 67 01 20 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 54 41 52 54 20 20 2a 2a 00 67 01 58 00 34 00 50 ┆OF DSCB'S ** g 4 P** CIA (IN T:A)=DISPL. TO T:A-START ** g X 4 P┆
0x0994…09e4 (8, 0, 400) 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 01 90 00 34 00 50 2a 2a 20 20 57 4f 52 4b 2d 52 45 47 53 2e 20 3a 41 31 2d 41 34 2c 41 39 ┆** CSE (IN T:A)=STACKSIZE ** g 4 P** WORK-REGS. :A1-A4,A9┆
0x09e4…0a34 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 68 00 38 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆,A11 ** h 8 4 P************************************************┆
0x0a34…0a84 00 68 00 70 00 04 00 50 00 68 00 a8 00 10 00 50 41 4c 4c 42 55 46 5c 45 51 55 5c 2a 00 68 00 b0 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 68 00 c4 00 2e 00 50 5c 4c 44 5c 41 39 2c 46 53 54 41 44 52 2c 41 31 ┆ h p P h PALLBUF EQU * h P IFT CREDIT-MMUPAG=1 h . P LD A9,FSTADR,A1┆
0x0a84…0ad4 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 68 00 e0 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 00 68 01 12 00 28 00 50 5c 4c 44 5c 41 33 2c 43 53 4e ┆3 GET BUFFER START ADDRESS h P LDR* A1,A8 GET T:A-ADDRESS h ( P LD A3,CSN┆
0x0ad4…0b24 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 01 36 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 01 62 00 2e 00 50 5c 41 44 4b 4c 5c 41 31 2c 54 3a 41 53 54 ┆,A1 GET DSCB TOTAL LENGTH h 6 P RF(Z) ALLB70 NO DSCB'S h b . P ADKL A1,T:AST┆
0x0b24…0b74 (9, 0, 400) 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 01 82 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 00 69 00 24 00 08 00 50 5c 58 49 46 00 69 ┆A CALC START OF DSCB RECORDS h " P LDR A10,A1 SAVE START ADDRESS i $ P XIF i┆
0x0b74…0bc4 00 4a 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 69 00 56 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 69 00 72 00 28 00 50 5c 45 4c 5c 41 33 2c 43 53 4e 2c 41 ┆ J P IFT CREDIT+MMUPAG=2 i V P ELR A1,A8 GET T:A-ADDRESS i r ( P EL A3,CSN,A┆
0x0bc4…0c14 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 69 00 94 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 69 00 c0 00 2e 00 50 5c 41 44 4b 4c 5c 41 31 2c 54 3a 41 53 54 41 5c 43 41 ┆1 GET DSCB TOTAL LENGTH i P RF(Z) ALLB70 NO DSCB i . P ADKL A1,T:ASTA CA┆
0x0c14…0c64 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 69 00 de 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 00 69 01 10 00 08 00 50 5c 58 49 46 00 69 01 36 00 12 ┆LCULATE START OF DSCB'S i " P LDR A10,A1 SAVE START ADDRESS i P XIF i 6 ┆
0x0c64…0cb4 00 50 5c 49 46 46 20 43 52 45 44 49 54 3d 30 20 00 69 01 42 00 0e 00 50 5c 53 55 52 5c 41 33 2c 41 31 00 69 01 58 00 0e 00 50 5c 4e 47 52 5c 41 33 2c 41 33 00 69 01 6a 00 20 00 50 5c 53 55 4b 5c 41 33 2c 44 53 43 42 4c 5c 45 4e 44 20 43 4f ┆ P IFF CREDIT=0 i B P SUR A3,A1 i X P NGR A3,A3 i j P SUK A3,DSCBL END CO┆
0x0cb4…0d04 (10, 0, 400) 4e 44 49 54 49 4f 4e 20 00 69 01 7c 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 52 45 43 4f 52 44 53 20 00 6a 00 10 00 3a 00 50 41 4c ┆NDITION i | : P ST A3,SAVE04,A13 SAVE ADDRESS TO END OF DSCB-RECORDS j : PAL┆
0x0d04…0d54 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 6a 00 4e 00 1a 00 50 5c 43 57 5c 41 31 2c 53 41 56 45 30 34 2c 41 31 33 5c 41 4c ┆LB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD j N P CW A1,SAVE04,A13 AL┆
0x0d54…0da4 4c 3f 00 6a 00 8c 00 16 00 50 5c 52 46 28 45 29 5c 41 4c 4c 42 37 30 5c 59 45 53 21 00 6a 00 aa 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 6a 00 c4 00 26 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 31 5c 47 45 54 20 ┆L? j P RF(E) ALLB70 YES! j P IFT CREDIT-MMUPAG=1 j & P LDR* A3,A1 GET ┆
0x0da4…0df4 46 49 52 53 54 20 57 4f 52 44 20 49 4e 20 45 43 42 20 00 6a 00 e0 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 0a 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 2a ┆FIRST WORD IN ECB j P SLL A3,1 STATIC BUFFER? j P RB(NN) ALLB10 NO! j *┆
0x0df4…0e44 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 01 44 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 54 48 00 6a 01 66 00 10 00 50 5c 53 54 5c 41 33 2c 42 ┆ P ST A9,BA,A1 BUFFER START j D P LD A3,RL,A1 BUFFER LENGTH j f P ST A3,B┆
0x0e44…0e94 (11, 0, 400) 4c 2c 41 31 00 6a 01 88 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 6b 00 0c 00 14 00 50 5c 52 46 28 5a 29 5c 4e 4f 54 53 48 5c 4e 4f 21 00 6b 00 30 00 26 00 50 5c 4c 44 52 5c 41 34 2c ┆L,A1 j P LD A2,EL,A1 SHARED BUFFER? k P RF(Z) NOTSH NO! k 0 & P LDR A4,┆
0x0e94…0ee4 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 6b 00 48 00 08 00 50 5c 58 49 46 00 6b 00 72 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 6b 00 7e 00 24 00 50 5c 45 4c 52 5c 41 ┆A1 RESTORE START OF DSCB'S k H P XIF k r P IFT CREDIT+MMUPAG=2 k ~ $ P ELR A┆
0x0ee4…0f34 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 6b 00 9a 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 6b 00 c2 00 16 00 50 5c 52 42 28 4e 4e 29 5c 41 4c 4c 42 31 30 ┆3,A1 GET FIRST WORD IN ECB k P SLL A3,1 STATIC BUFFER? k P RB(NN) ALLB10┆
0x0f34…0f84 5c 4e 4f 21 00 6b 00 e2 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 6b 00 fc 00 10 00 50 5c 45 53 5c 41 33 2c 42 4c 2c 41 31 00 6b 01 1e 00 20 00 50 5c 45 4c 5c 41 32 2c 45 4c 2c 41 31 5c 53 ┆ NO! k P EL A3,RL,A1 BUFFER LENGTH k P ES A3,BL,A1 k P EL A2,EL,A1 S┆
0x0f84…0fd4 48 41 52 45 44 20 42 55 46 46 45 52 3f 20 00 6b 01 32 00 14 00 50 5c 52 46 28 5a 29 5c 4e 4f 54 53 48 5c 4e 4f 21 00 6b 01 56 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 ┆HARED BUFFER? k 2 P RF(Z) NOTSH NO! k V & P LDR A4,A1 RESTORE START OF DSCB'S┆
0x0fd4…1024 (12, 0, 400) 00 6b 01 6e 00 08 00 50 5c 58 49 46 00 6c 00 08 00 12 00 50 5c 49 46 46 20 43 52 45 44 49 54 3d 30 20 00 6c 00 14 00 1c 00 50 5c 41 44 4b 5c 41 34 2c 44 53 43 42 4c 5c 46 49 52 53 54 20 57 4f 52 44 00 6c 00 2a 00 1c 00 50 41 4c 4c 42 32 30 ┆ k n P XIF l P IFF CREDIT=0 l P ADK A4,DSCBL FIRST WORD l * PALLB20┆
0x1024…1074 5c 53 55 4b 5c 41 32 2c 31 5c 41 32 3d 49 4e 44 45 58 00 6c 00 4a 00 12 00 50 5c 52 46 28 4e 4e 29 5c 41 4c 4c 42 33 30 00 6c 00 6a 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 80 00 10 ┆ SUK A2,1 A2=INDEX l J P RF(NN) ALLB30 l j P LDK A1,LMP4 FORMAT ERROR l ┆
0x1074…10c4 00 50 5c 43 41 4c 4c 5c 45 52 52 4f 52 20 00 6c 00 a2 00 10 00 50 41 4c 4c 42 33 30 5c 45 51 55 5c 2a 00 6c 00 b6 00 1c 00 50 5c 52 46 28 5a 29 5c 41 4c 4c 42 34 30 5c 45 43 42 20 46 4f 55 4e 44 20 00 6c 00 ca 00 30 00 50 5c 41 44 4b 5c 41 ┆ P CALL ERROR l PALLB30 EQU * l P RF(Z) ALLB40 ECB FOUND l 0 P ADK A┆
0x10c4…1114 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 6c 00 ea 00 10 00 50 5c 43 57 52 5c 41 34 2c 41 31 30 20 00 6c 01 1e 00 12 00 50 5c 52 42 28 4e 45 29 5c 41 4c 4c 42 32 30 ┆4,DSCBL A4=ADDRESS TO DSCB TO EXAMINE l P CWR A4,A10 l P RB(NE) ALLB20┆
0x1114…1164 00 6c 01 32 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 01 48 00 10 00 50 5c 43 41 4c 4c 5c 45 52 52 4f 52 20 00 6c 01 6e 00 18 00 50 5c 49 46 54 20 43 52 45 44 49 54 2d 4d 4d ┆ l 2 " P LDK A1,LMP4 BUFFER NOT FOUND l H P CALL ERROR l n P IFT CREDIT-MM┆