|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics
Length: 1268736 (0x135c00)
Types: Rc489kSubCat
Names: »kkmon1filer«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »kkmon1filer«
0x000000…000033 (0,) Rc489kSubCatEnt {f00=0x003a2a, f01=0x0007e4, f02=0x0007ed, filename=»mondef «, entry_tail=0-4-0-31-1982-02-23T08:52-disc3-0x0-0x0-0x0-0x0}
0x000033…000066 Rc489kSubCatEnt {f00=0x02240a, f01=0x0007e4, f02=0x0007ed, filename=»moncentral «, entry_tail=0-4-0-88-1982-02-23T08:52-disc3-0x0-0x0-0x0-0x0}
0x000066…000099 Rc489kSubCatEnt {f00=0x07a602, f01=0x0007e4, f02=0x0007ed, filename=»monprocs «, entry_tail=0-4-0-253-1982-02-23T08:53-disc3-0x0-0x0-0x0-0x0}
0x000099…0000cc Rc489kSubCatEnt {f00=0x1775a2, f01=0x0007e4, f02=0x0007ed, filename=»mondisc «, entry_tail=0-4-0-158-1982-02-10T09:04-disc1-0x0-0x0-0x0-0x0}
0x0000cc…0000ff Rc489kSubCatEnt {f00=0x215dca, f01=0x0007e4, f02=0x0007ed, filename=»monfpaline «, entry_tail=0-4-0-130-1982-02-10T09:04-disc1-0x0-0x0-0x0-0x0}
0x0000ff…000132 Rc489kSubCatEnt {f00=0x297232, f01=0x0007e4, f02=0x0007ed, filename=»monhost «, entry_tail=0-4-0-83-1982-02-23T08:53-disc3-0x0-0x0-0x0-0x0}
0x000132…000165 Rc489kSubCatEnt {f00=0x2eabc2, f01=0x0007e4, f02=0x0007ed, filename=»monfpasub «, entry_tail=0-4-0-165-1982-02-23T08:54-disc3-0x0-0x0-0x0-0x0}
0x000165…000198 Rc489kSubCatEnt {f00=0x38f45a, f01=0x0007e4, f02=0x0007ed, filename=»montabinit «, entry_tail=0-4-0-23-1982-02-23T08:54-disc3-0x0-0x0-0x0-0x0}
0x000198…0001cb Rc489kSubCatEnt {f00=0x3a62c2, f01=0x0007e4, f02=0x0007ed, filename=»monprocfnc1 «, entry_tail=0-4-0-84-1982-02-23T08:54-disc3-0x0-0x0-0x0-0x0}
0x0001cb…0001fe Rc489kSubCatEnt {f00=0x3faac2, f01=0x0007e4, f02=0x0007ed, filename=»monprocfnc2 «, entry_tail=0-4-0-247-1982-02-23T08:54-disc3-0x0-0x0-0x0-0x0}
0x0001fe…000231 Rc489kSubCatEnt {f00=0x4f1422, f01=0x0007e4, f02=0x0007ed, filename=»mons1 «, entry_tail=0-4-0-91-1982-02-23T08:55-disc3-0x0-0x0-0x0-0x0}
0x000231…000264 Rc489kSubCatEnt {f00=0x54cc22, f01=0x0007e4, f02=0x0007ed, filename=»mons2 «, entry_tail=0-4-0-98-1982-02-23T08:55-disc3-0x0-0x0-0x0-0x0}
0x000264…000297 Rc489kSubCatEnt {f00=0x5ae142, f01=0x0007e4, f02=0x0007ed, filename=»moncatinit «, entry_tail=0-4-0-124-1982-02-23T08:55-disc3-0x0-0x0-0x0-0x0}
0x000297…0002ca Rc489kSubCatEnt {f00=0x62ad62, f01=0x0007e4, f02=0x0007ed, filename=»kkopt1 «, entry_tail=0-4-0-23-1981-06-16T13:34-disc-0x0-0x0-0x0-0x0}
0x0002ca…0002fd Rc489kSubCatEnt {f00=0x641992, f01=0x0007e4, f02=0x0007ed, filename=»kklistopt1 «, entry_tail=0-4-0-23-1981-06-16T13:36-disc-0x0-0x0-0x0-0x0}
0x0002fd…000300 0x000010
0x000300…000333 Rc489kSubCatEnt {f00=0x65883b, f01=0x0007e4, f02=0x0007ed, filename=»kkmonret1 «, entry_tail=0-4-0-23-1981-04-19T14:51-disc1-0x0-0x0-0x0-0x0}
0x000333…000340 02 24 0a 00 07 e4 00 07 ed 6d 6f 6e 63 ┆ $ monc┆
0x000340…000360 65 6e 74 72 61 6c 00 00 00 00 58 64 69 73 63 33 00 00 00 00 00 00 00 81 ef eb 00 00 00 00 00 00 ┆entral Xdisc3 ┆
0x000360…000380 00 00 00 00 00 00 07 a6 02 00 07 e4 00 07 ed 6d 6f 6e 70 72 6f 63 73 00 00 00 00 00 00 fd 64 69 ┆ monprocs di┆
0x000380…0003a0 73 63 33 00 00 00 00 00 00 00 81 ef ec 00 00 00 00 00 00 00 00 00 00 00 00 17 75 a2 00 07 e4 00 ┆sc3 u ┆
0x0003a0…0003c0 07 ed 6d 6f 6e 64 69 73 63 00 00 00 00 00 00 00 9e 64 69 73 63 31 00 00 00 00 00 00 00 81 9c 49 ┆ mondisc disc1 I┆
0x0003c0…0003e0 00 00 00 00 00 00 00 00 00 00 00 00 21 5d ca 00 07 e4 00 07 ed 6d 6f 6e 66 70 61 6c 69 6e 65 00 ┆ !Å monfpaline ┆
0x0003e0…000400 00 00 00 82 64 69 73 63 31 00 00 00 00 00 00 00 81 9c 49 00 00 00 00 00 00 00 00 00 00 00 00 29 ┆ disc1 I )┆
0x000400…000420 72 32 00 07 e4 00 07 ed 6d 6f 6e 68 6f 73 74 00 00 00 00 00 00 00 53 64 69 73 63 33 00 00 00 00 ┆r2 monhost Sdisc3 ┆
0x000420…000440 00 00 00 81 ef ec 00 00 00 00 00 00 00 00 00 00 00 00 2e ab c2 00 07 e4 00 07 ed 6d 6f 6e 66 70 ┆ . monfp┆
0x000440…000460 61 73 75 62 00 00 00 00 00 a5 64 69 73 63 33 00 00 00 00 00 00 00 81 ef ed 00 00 00 00 00 00 00 ┆asub disc3 ┆
0x000460…000480 00 00 00 00 00 38 f4 5a 00 07 e4 00 07 ed 6d 6f 6e 74 61 62 69 6e 69 74 00 00 00 00 17 64 69 73 ┆ 8 Z montabinit dis┆
0x000480…0004a0 63 33 00 00 00 00 00 00 00 81 ef ed 00 00 00 00 00 00 00 00 00 00 00 00 3a 62 c2 00 07 e4 00 07 ┆c3 :b ┆
0x0004a0…0004c0 ed 6d 6f 6e 70 72 6f 63 66 6e 63 31 00 00 00 54 64 69 73 63 33 00 00 00 00 00 00 00 81 ef ed 00 ┆ monprocfnc1 Tdisc3 ┆
0x0004c0…0004e0 00 00 00 00 00 00 00 00 00 00 00 3f aa c2 00 07 e4 00 07 ed 6d 6f 6e 70 72 6f 63 66 6e 63 32 00 ┆ ? monprocfnc2 ┆
0x0004e0…000500 00 00 f7 64 69 73 63 33 00 00 00 00 00 00 00 81 ef ed 00 00 00 00 00 00 00 00 00 00 00 00 4f 14 ┆ disc3 O ┆
0x000500…000520 22 00 07 e4 00 07 ed 6d 6f 6e 73 31 00 00 00 00 00 00 00 00 00 5b 64 69 73 63 33 00 00 00 00 00 ┆" mons1 Ædisc3 ┆
0x000520…000540 00 00 81 ef ee 00 00 00 00 00 00 00 00 00 00 00 00 54 cc 22 00 07 e4 00 07 ed 6d 6f 6e 73 32 00 ┆ T " mons2 ┆
0x000540…000560 00 00 00 00 00 00 00 00 62 64 69 73 63 33 00 00 00 00 00 00 00 81 ef ef 00 00 00 00 00 00 00 00 ┆ bdisc3 ┆
0x000560…000580 00 00 00 00 5a e1 42 00 07 e4 00 07 ed 6d 6f 6e 63 61 74 69 6e 69 74 00 00 00 00 7c 64 69 73 63 ┆ Z B moncatinit ødisc┆
0x000580…0005a0 33 00 00 00 00 00 00 00 81 ef ef 00 00 00 00 00 00 00 00 00 00 00 00 62 ad 62 00 07 e4 00 07 ed ┆3 b b ┆
0x0005a0…0005c0 6b 6b 6f 70 74 31 00 00 00 00 00 00 00 00 17 64 69 73 63 00 00 00 00 00 00 00 00 7b 9a fa 00 00 ┆kkopt1 disc æ ┆
0x0005c0…0005e0 00 00 00 00 00 00 00 00 00 00 64 19 92 00 07 e4 00 07 ed 6b 6b 6c 69 73 74 6f 70 74 31 00 00 00 ┆ d kklistopt1 ┆
0x0005e0…000600 00 17 64 69 73 63 00 00 00 00 00 00 00 00 7b 9a fd 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ disc æ ┆
0x000600…000620 3b 20 20 20 20 61 6c 6c 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 32 33 3d 63 32 33 20 ┆; all: c23=c23 ┆
0x000620…000640 6f 2e 20 31 3c 31 36 0a 3b 20 20 20 20 70 72 69 6e 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆o. 1<16 ; print: ┆
0x000640…000660 63 32 33 3d 63 32 33 20 6f 2e 20 31 3c 31 35 0a 3b 20 6a 6f 62 3a 20 20 20 20 20 20 20 20 20 20 ┆c23=c23 o. 1<15 ; job: ┆
0x000660…000680 63 32 33 3d 63 32 33 6f 2e 31 3c 31 34 0a 3b 20 20 20 20 20 20 74 65 72 6d 69 6e 61 6c 73 20 62 ┆c23=c23o.1<14 ; terminals b┆
0x000680…0006a0 6c 6f 63 6b 65 64 20 61 66 74 65 72 20 73 74 61 72 74 20 75 70 20 20 20 63 32 33 3d 63 32 33 20 ┆locked after start up c23=c23 ┆
0x0006a0…0006c0 6f 2e 20 31 3c 31 33 0a 0a 3b 20 74 65 73 74 6f 70 74 69 6f 6e 73 3a 0a 3b 20 74 65 73 74 6f 70 ┆o. 1<13 ; testoptions: ; testop┆
0x0006c0…0006e0 74 69 6f 6e 73 20 61 72 65 20 75 73 65 64 20 64 75 72 69 6e 67 20 64 65 62 75 67 67 69 6e 67 20 ┆tions are used during debugging ┆
0x0006e0…000700 6f 66 20 74 68 65 20 73 79 73 74 65 6d 2e 20 74 68 65 79 0a 3b 20 61 72 65 20 64 65 66 69 6e 65 ┆of the system. they ; are define┆
0x000700…000720 64 20 62 79 20 62 69 74 73 20 69 6e 20 74 68 65 20 69 64 65 6e 74 69 66 69 65 72 20 63 32 34 20 ┆d by bits in the identifier c24 ┆
0x000720…000740 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 3b 0a 3b 20 20 20 20 69 6e 74 65 72 6e 61 6c 20 69 6e 74 65 ┆as follows: ; ; internal inte┆
0x000740…000760 72 72 75 70 74 3a 20 20 20 20 20 63 32 34 3d 63 32 34 20 6f 2e 20 31 3c 32 33 0a 3b 20 20 20 20 ┆rrupt: c24=c24 o. 1<23 ; ┆
0x000760…000780 63 68 61 72 61 63 74 65 72 20 74 65 73 74 6f 75 74 70 75 74 3a 20 20 20 63 32 34 3d 63 32 34 20 ┆character testoutput: c24=c24 ┆
0x000780…0007a0 6f 2e 20 31 3c 32 32 0a 3b 20 20 20 20 70 61 72 61 6d 65 74 65 72 20 74 65 73 74 6f 75 74 70 75 ┆o. 1<22 ; parameter testoutpu┆
0x0007a0…0007c0 74 3a 20 20 20 63 32 34 3d 63 32 34 20 6f 2e 20 31 3c 32 31 0a 3b 20 20 20 20 65 76 65 6e 74 20 ┆t: c24=c24 o. 1<21 ; event ┆
0x0007c0…0007e0 74 65 73 74 6f 75 74 70 75 74 3a 20 20 20 20 20 20 20 63 32 34 3d 63 32 34 20 6f 2e 20 31 3c 32 ┆testoutput: c24=c24 o. 1<2┆
0x0007e0…000800 30 0a 3b 20 20 20 20 77 6f 72 6b 20 74 65 73 74 6f 75 74 70 75 74 3a 20 20 20 20 20 20 20 20 63 ┆0 ; work testoutput: c┆
0x000800…000820 32 34 3d 63 32 34 20 6f 2e 20 31 3c 31 39 0a 3b 20 20 20 20 63 6f 6e 73 6f 6c 65 20 74 65 73 74 ┆24=c24 o. 1<19 ; console test┆
0x000820…000840 6f 75 74 70 75 74 3a 20 20 20 20 20 63 32 34 3d 63 32 34 20 6f 2e 20 31 3c 31 38 0a 0a 63 32 34 ┆output: c24=c24 o. 1<18 c24┆
0x000840…000860 20 3d 20 61 39 33 0a 0a 3b 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 63 6f 72 65 20 74 61 62 ┆ = a93 ; definition of core tab┆
0x000860…000880 6c 65 20 65 6e 74 72 79 20 66 6f 72 6d 61 74 3a 0a 0a 3b 63 32 30 3d 64 65 66 20 61 62 6f 76 65 ┆le entry format: ;c20=def above┆
0x000880…0008a0 3b 20 6e 65 78 74 20 65 6e 74 72 79 0a 3b 63 32 31 3d 64 65 66 20 61 62 6f 76 65 3b 20 6c 61 73 ┆; next entry ;c21=def above; las┆
0x0008a0…0008c0 74 20 65 6e 74 72 79 0a 63 31 37 3d 63 32 31 2b 32 20 20 20 20 3b 20 63 68 69 6c 64 0a 63 31 38 ┆t entry c17=c21+2 ; child c18┆
0x0008c0…0008e0 3d 63 31 37 2b 32 20 20 20 20 3b 20 63 68 69 6c 64 20 63 6f 6e 73 6f 6c 65 0a 63 32 32 3d 63 31 ┆=c17+2 ; child console c22=c1┆
0x0008e0…000900 38 2b 32 20 20 20 20 3b 20 73 65 67 6d 65 6e 74 20 6e 6f 20 69 6e 20 73 75 73 65 72 63 61 74 20 ┆8+2 ; segment no in susercat ┆
0x000900…006600 (1,) Data for mondef
0x006600…016e00 Data for moncentral
0x016e00…046500 Data for monprocs
0x046500…063f00 (125,) Data for mondisc
0x063f00…07c500 Data for monfpaline
0x07c500…08be00 (221,) Data for monhost
0x08be00…0aad00 Data for monfpasub
0x0aad00…0af200 Data for montabinit
0x0af200…0bee00 Data for monprocfnc1
0x0bee00…0ed300 Data for monprocfnc2
0x0ed300…0fe400 Data for mons1
0x0fe400…110a00 (452,) Data for mons2
0x110a00…127e00 Data for moncatinit
0x127e00…12c300 (526,) Data for kkopt1
0x12c300…130800 Data for kklistopt1
0x130800…134d00 Data for kkmonret1
0x134d00…134d20 (549,) 20 20 20 20 20 65 38 31 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 73 65 20 20 77 32 20 20 20 20 20 ┆ e81. ; se w2 ┆
0x134d20…134d40 20 20 31 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 20 64 39 2e 20 ┆ 1 ; jl. w3 d9. ┆
0x134d40…134d60 20 20 20 20 3b 0a 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 20 20 65 32 35 2e 20 20 20 20 20 3b ┆ ; rl. w2 e25. ;┆
0x134d60…134d80 0a 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 32 2b 63 33 30 20 20 20 20 20 20 3b 20 20 20 73 74 ┆ rl w0 x2+c30 ; st┆
0x134d80…134da0 61 72 74 3a 3d 66 69 72 73 74 20 61 64 64 72 28 63 6f 6e 73 6f 6c 65 29 3b 0a 20 20 20 20 20 72 ┆art:=first addr(console); r┆
0x134da0…134dc0 6c 20 20 77 31 20 20 78 32 2b 63 33 39 20 20 20 20 20 20 3b 20 20 20 73 69 7a 65 3a 3d 73 69 7a ┆l w1 x2+c39 ; size:=siz┆
0x134dc0…134de0 65 28 63 6f 6e 73 6f 6c 65 29 3b 0a 20 20 20 20 20 62 7a 20 20 77 33 20 20 78 32 2b 63 32 37 20 ┆e(console); bz w3 x2+c27 ┆
0x134de0…134e00 20 20 20 20 20 3b 0a 20 20 20 20 20 73 7a 20 20 77 33 20 20 20 20 20 31 3c 31 20 20 20 20 20 20 ┆ ; sz w3 1<1 ┆
0x134e00…134e20 3b 20 20 20 69 66 20 61 62 73 20 61 64 64 72 28 63 6f 6e 73 6f 6c 65 29 0a 20 20 20 20 20 61 6d ┆; if abs addr(console) am┆
0x134e20…134e40 20 20 20 20 20 64 32 38 2d 64 32 37 20 20 20 20 20 20 3b 20 20 20 74 68 65 6e 20 66 69 6e 64 20 ┆ d28-d27 ; then find ┆
0x134e40…134e60 61 64 64 72 28 73 74 61 72 74 2c 73 69 7a 65 2c 65 6e 64 20 6c 69 6e 65 29 0a 20 20 20 20 20 6a ┆addr(start,size,end line) j┆
0x134e60…134e80 6c 2e 20 77 33 20 20 20 20 20 64 32 37 2e 20 20 20 20 20 3b 20 20 20 65 6c 73 65 20 66 69 6e 64 ┆l. w3 d27. ; else find┆
0x134e80…134ea0 20 73 69 7a 65 28 73 74 61 72 74 2c 73 69 7a 65 2c 65 6e 64 20 6c 69 6e 65 29 3b 0a 20 20 20 20 ┆ size(start,size,end line); ┆
0x134ea0…134ec0 20 6a 6c 2e 20 20 20 20 20 20 20 20 20 67 34 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 72 6c 2e 20 ┆ jl. g4. ; rl. ┆
0x134ec0…134ee0 77 32 20 20 20 20 20 65 32 35 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 72 73 20 20 77 30 20 20 78 ┆w2 e25. ; rs w0 x┆
0x134ee0…134f00 32 2b 63 33 30 20 20 20 20 20 20 3b 20 20 20 66 69 72 73 74 20 61 64 64 72 28 63 6f 6e 73 6f 6c ┆2+c30 ; first addr(consol┆
0x134f00…134f20 65 29 3a 3d 73 74 61 72 74 3b 0a 20 20 20 20 20 77 61 20 20 77 30 20 20 78 32 2b 63 33 39 20 20 ┆e):=start; wa w0 x2+c39 ┆
0x134f20…134f40 20 20 20 20 3b 20 20 20 74 6f 70 20 61 64 64 72 28 63 6f 6e 73 6f 6c 65 29 3a 3d 0a 20 20 20 20 ┆ ; top addr(console):= ┆
0x134f40…134f60 20 72 73 20 20 77 30 20 20 78 32 2b 63 33 31 20 20 20 20 20 20 3b 20 20 20 73 74 61 72 74 2b 73 ┆ rs w0 x2+c31 ; start+s┆
0x134f60…134f80 69 7a 65 28 63 6f 6e 73 6f 6c 65 29 3b 0a 20 20 20 20 20 62 7a 20 20 77 33 20 20 78 32 2b 63 32 ┆ize(console); bz w3 x2+c2┆
0x134f80…134fa0 37 20 20 20 20 20 20 3b 20 66 69 6e 64 20 70 72 6f 74 65 63 74 69 6f 6e 3a 0a 63 2e 2d 34 30 30 ┆7 ; find protection: c.-400┆
0x134fa0…134fc0 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 20 72 63 34 30 30 30 3a 0a ┆0 ; in rc4000: ┆
0x134fc0…134fe0 20 20 20 20 20 73 7a 20 20 77 33 20 20 20 20 20 31 3c 32 20 20 20 20 20 20 3b 20 20 20 69 66 20 ┆ sz w3 1<2 ; if ┆
0x134fe0…135000 6e 6f 74 20 61 62 73 20 70 72 6f 74 65 63 74 69 6f 6e 28 63 6f 6e 73 6f 6c 65 29 20 74 68 65 6e ┆not abs protection(console) then┆
0x135000…135020 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 20 69 30 2e 20 20 20 20 20 3b 20 20 20 62 65 ┆ jl. i0. ; be┆
0x135020…135040 67 69 6e 0a 20 20 20 20 20 62 7a 20 20 77 32 20 20 78 32 2b 63 32 36 20 20 20 20 20 20 3b 0a 0a ┆gin bz w2 x2+c26 ; ┆
0x135040…135060 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 20 20 20 64 33 32 2e 20 20 20 20 20 3b 20 20 20 66 69 6e ┆ jl. w3 d32. ; fin┆
0x135060…135080 64 20 6b 65 79 73 28 6b 65 79 73 28 63 6f 6e 73 6f 6c 65 29 2c 0a 20 20 20 20 20 6a 6c 2e 20 20 ┆d keys(keys(console), jl. ┆
0x135080…1350a0 20 20 20 20 20 20 20 67 38 2e 20 20 20 20 20 3b 20 20 20 20 20 20 6e 65 77 20 70 72 2c 6e 65 77 ┆ g8. ; new pr,new┆
0x1350a0…1350c0 20 70 6b 2c 20 65 6e 64 20 6c 69 6e 65 29 3b 0a 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 20 20 ┆ pk, end line); rl. w2 ┆
0x1350c0…1350e0 65 32 35 2e 20 20 20 20 20 3b 20 20 20 70 72 28 63 6f 6e 73 6f 6c 65 29 3a 3d 6e 65 77 20 70 72 ┆e25. ; pr(console):=new pr┆
0x1350e0…135100 3b 0a 20 20 20 20 20 68 73 20 20 77 30 20 20 78 32 2b 63 33 37 20 20 20 20 20 20 3b 20 20 20 70 ┆; hs w0 x2+c37 ; p┆
0x135100…135120 6b 28 63 6f 6e 73 6f 6c 65 29 3a 3d 6e 65 77 20 70 6b 3b 0a 20 20 20 20 20 68 73 20 20 77 31 20 ┆k(console):=new pk; hs w1 ┆
0x135120…135140 20 78 32 2b 63 33 38 20 20 20 20 20 20 3b 20 20 20 65 6e 64 3b 0a 69 30 3a 20 20 62 6c 20 20 77 ┆ x2+c38 ; end; i0: bl w┆
0x135140…135160 30 20 20 78 32 2b 63 33 37 20 20 20 20 20 20 3b 0a 20 20 20 20 20 73 7a 20 20 77 30 20 20 20 20 ┆0 x2+c37 ; sz w0 ┆
0x135160…135180 2d 31 3c 38 20 20 20 20 20 20 3b 20 20 20 69 66 20 70 72 28 63 6f 6e 73 6f 6c 65 29 28 30 3a 33 ┆-1<8 ; if pr(console)(0:3┆
0x135180…1351a0 29 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 20 67 38 2e 20 20 ┆)<>0 then jl. g8. ┆
0x1351a0…1351c0 20 20 20 3b 20 20 20 67 6f 74 6f 20 65 6e 64 20 6c 69 6e 65 3b 0a 7a 2e 20 20 0a 0a 63 2e 38 30 ┆ ; goto end line; z. c.80┆
0x1351c0…1351e0 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 20 72 63 38 30 30 30 ┆00 ; in rc8000┆
0x1351e0…135200 3a 0a 20 20 20 20 20 72 6c 2e 20 77 30 20 20 69 32 31 2e 20 20 20 20 20 20 20 20 3b 0a 20 20 20 ┆: rl. w0 i21. ; ┆
0x135200…135220 20 20 73 6f 20 20 77 33 20 20 31 3c 32 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 61 62 73 20 70 ┆ so w3 1<2 ; if abs p┆
0x135220…135240 72 6f 74 65 63 74 69 6f 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 20 6a 31 2e 20 20 ┆rotection jl. j1. ┆
0x135240…135260 20 20 20 3b 20 0a 20 20 20 20 20 73 6f 20 20 77 33 20 20 31 3c 39 20 20 20 20 20 20 20 20 20 3b ┆ ; so w3 1<9 ;┆
0x135260…135280 20 61 6e 64 20 61 6c 6c 6f 77 65 64 28 63 6f 6e 73 6f 6c 65 29 0a 20 20 20 20 20 6a 6c 2e 20 20 ┆ and allowed(console) jl. ┆
0x135280…1352a0 20 20 20 20 20 20 20 67 33 2e 20 20 20 20 20 3b 20 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 20 ┆ g3. ; al w0 ┆
0x1352a0…1352c0 20 20 20 20 30 20 20 20 20 20 20 3b 20 74 68 65 6e 20 70 72 2c 70 6b 3d 30 2c 30 20 65 6c 73 65 ┆ 0 ; then pr,pk=0,0 else┆
0x1352c0…1352e0 0a 20 6a 31 3a 20 72 73 20 20 77 30 20 20 78 32 2b 63 33 37 20 20 20 20 20 20 3b 20 70 72 2c 70 ┆ j1: rs w0 x2+c37 ; pr,p┆
0x1352e0…135300 6b 3d 32 34 30 3c 31 32 2b 37 20 2c 20 75 73 65 72 6d 6f 64 65 0a 7a 2e 0a 20 20 20 20 20 72 6c ┆k=240<12+7 , usermode z. rl┆
0x135300…135320 20 20 77 33 20 20 20 20 20 20 62 31 20 20 20 20 20 20 3b 20 63 68 65 63 6b 20 63 6c 61 69 6d 73 ┆ w3 b1 ; check claims┆
0x135320…135340 3a 0a 20 20 20 20 20 62 7a 20 20 77 30 20 20 78 32 2b 63 33 32 20 20 20 20 20 20 3b 0a 20 20 20 ┆: bz w0 x2+c32 ; ┆
0x135340…135360 20 20 62 7a 20 20 77 31 20 20 78 33 2b 61 31 39 20 20 20 20 20 20 3b 0a 20 20 20 20 20 77 73 2e ┆ bz w1 x3+a19 ; ws.┆
0x135360…135380 20 77 31 20 20 20 20 20 20 65 32 2e 20 20 20 20 20 3b 20 20 20 69 66 20 62 75 66 20 63 6c 61 69 ┆ w1 e2. ; if buf clai┆
0x135380…1353a0 6d 28 63 6f 6e 73 6f 6c 65 29 3e 0a 20 20 20 20 20 73 6c 20 20 77 30 20 20 78 31 20 20 2b 31 20 ┆m(console)> sl w0 x1 +1 ┆
0x1353a0…1353c0 20 20 20 20 20 3b 20 20 20 62 75 66 20 63 6c 61 69 6d 28 73 29 2d 6f 77 6e 20 62 75 66 0a 20 20 ┆ ; buf claim(s)-own buf ┆
0x1353c0…1353e0 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 20 67 35 2e 20 20 20 20 20 3b 20 20 20 74 68 65 6e 20 ┆ jl. g5. ; then ┆
0x1353e0…135400 67 6f 74 6f 20 65 6e 64 20 6c 69 6e 65 3b 0a 20 20 20 20 20 62 7a 20 20 77 30 20 20 78 32 2b 63 ┆goto end line; bz w0 x2+c┆
0x135400…135420 33 33 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 7a 20 20 77 31 20 20 78 33 2b 61 32 30 20 20 20 ┆33 ; bz w1 x3+a20 ┆
0x135420…135440 20 20 20 3b 20 20 20 69 66 20 61 72 65 61 20 63 6c 61 69 6d 28 63 6f 6e 73 6f 6c 65 29 3e 0a 20 ┆ ; if area claim(console)> ┆
0x135440…135460 20 20 20 20 77 73 2e 20 77 31 20 20 20 20 20 20 65 33 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 73 ┆ ws. w1 e3. ; s┆
0x135460…135480 6c 20 20 77 30 20 20 78 31 20 20 2b 31 20 20 20 20 20 20 3b 20 20 20 61 72 65 61 20 63 6c 61 69 ┆l w0 x1 +1 ; area clai┆
0x135480…1354a0 6d 28 73 29 2d 6f 77 6e 20 61 72 65 61 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 20 67 ┆m(s)-own area jl. g┆
0x1354a0…1354c0 36 2e 20 20 20 20 20 3b 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 65 6e 64 20 6c 69 6e 65 3b 0a 20 ┆6. ; then goto end line; ┆
0x1354c0…1354e0 20 20 20 20 62 7a 20 20 77 30 20 20 78 32 2b 63 33 34 20 20 20 20 20 20 3b 0a 20 20 20 20 20 62 ┆ bz w0 x2+c34 ; b┆
0x1354e0…135500 7a 20 20 77 31 20 20 78 33 2b 61 32 31 20 20 20 20 20 20 3b 20 20 20 69 66 20 69 6e 74 65 72 6e ┆z w1 x3+a21 ; if intern┆
0x135500…135520 61 6c 20 63 6c 61 69 6d 28 63 6f 6e 73 6f 6c 65 29 3e 0a 20 20 20 20 20 73 6c 20 20 77 30 20 20 ┆al claim(console)> sl w0 ┆
0x135520…135540 78 31 20 20 2b 30 20 20 20 20 20 20 3b 20 20 20 69 6e 74 65 72 6e 61 6c 20 63 6c 61 69 6d 28 73 ┆x1 +0 ; internal claim(s┆
0x135540…135560 29 2d 31 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 20 67 37 2e 20 20 20 20 20 3b 20 20 ┆)-1 jl. g7. ; ┆
0x135560…135580 20 74 68 65 6e 20 67 6f 74 6f 20 65 6e 64 20 6c 69 6e 65 3b 0a 3b 20 74 65 73 74 20 69 6e 74 65 ┆ then goto end line; ; test inte┆
0x135580…1355a0 72 76 61 6c 73 3a 0a 3b 20 63 6f 6d 6d 65 6e 74 3a 20 74 68 65 20 74 65 73 74 69 6e 67 20 74 68 ┆rvals: ; comment: the testing th┆
0x1355a0…1355c0 61 74 20 74 68 65 20 69 6e 74 65 72 76 61 6c 20 6c 69 6d 69 74 73 20 61 72 65 20 63 6f 6e 74 61 ┆at the interval limits are conta┆
0x1355c0…1355e0 69 6e 65 64 0a 3b 20 69 6e 20 65 61 63 68 20 6f 74 68 65 72 20 69 73 20 70 65 72 66 6f 72 6d 65 ┆ined ; in each other is performe┆
0x1355e0…135600 64 20 61 73 20 73 63 68 65 74 63 68 65 64 20 62 65 6c 6f 77 0a 3b 20 73 74 61 6e 64 61 72 64 3a ┆d as schetched below ; standard:┆
0x135600…135620 (550,) 20 20 20 20 20 20 20 20 20 20 21 32 21 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ !2! ; ┆
0x135620…135640 20 20 34 20 20 20 31 0a 20 20 20 20 20 64 6c 20 20 77 31 20 20 78 32 2b 63 34 32 2b 32 20 20 20 ┆ 4 1 dl w1 x2+c42+2 ┆
0x135640…135660 20 3b 20 20 20 74 68 65 20 6e 75 6d 62 65 72 73 20 72 65 66 65 72 20 74 6f 20 74 68 65 20 6e 75 ┆ ; the numbers refer to the nu┆
0x135660…135680 6d 62 65 72 73 20 61 62 6f 75 74 0a 20 20 20 20 20 73 68 20 20 77 31 20 28 78 32 2b 63 34 33 2b ┆mbers about sh w1 (x2+c43+┆
0x135680…1356a0 32 29 20 20 20 3b 20 31 3b 20 69 66 20 63 6f 6e 73 2e 73 74 64 2e 68 69 20 3e 3d 20 63 6f 6e 73 ┆2) ; 1; if cons.std.hi >= cons┆
0x1356a0…1356c0 2e 75 73 65 72 2e 68 69 0a 20 20 20 20 20 73 6c 20 20 77 30 20 20 78 31 20 20 2b 31 20 20 20 20 ┆.user.hi sl w0 x1 +1 ┆
0x1356c0…1356e0 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 67 31 39 2e 20 20 20 20 20 3b 20 20 ┆ ; jl. g19. ; ┆
0x1356e0…135700 20 20 74 68 65 6e 20 67 6f 74 6f 20 62 61 73 65 20 61 6c 61 72 6d 3b 0a 20 20 20 20 20 72 6c 20 ┆ then goto base alarm; rl ┆
0x135700…135720 20 77 31 20 20 78 32 2b 63 34 33 20 20 20 20 20 20 3b 0a 20 20 20 20 20 73 6c 20 20 77 31 20 28 ┆ w1 x2+c43 ; sl w1 (┆
0x135720…135740 78 32 2b 63 34 31 29 20 20 20 20 20 3b 20 33 3b 20 69 66 20 63 6f 6e 73 2e 75 73 65 72 2e 6c 6f ┆x2+c41) ; 3; if cons.user.lo┆
0x135740…135760 20 3c 20 63 6f 6e 73 2e 6d 61 78 2e 6c 6f 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 20 ┆ < cons.max.lo jl. ┆
0x135760…135780 20 34 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 67 31 39 2e 20 20 ┆ 4 ; jl. g19. ┆
0x135780…1357a0 20 20 20 3b 0a 20 20 20 20 20 77 73 20 20 77 31 20 20 20 20 20 20 20 30 20 20 20 20 20 20 3b 0a ┆ ; ws w1 0 ; ┆
0x1357a0…1357c0 20 20 20 20 20 73 6c 20 20 77 31 20 20 20 20 20 20 20 31 20 20 20 20 20 20 3b 0a 20 20 20 20 20 ┆ sl w1 1 ; ┆
0x1357c0…1357e0 6a 6c 2e 20 20 20 20 20 20 20 20 67 31 39 2e 20 20 20 20 20 3b 20 20 20 20 74 68 65 6e 20 67 6f ┆jl. g19. ; then go┆
0x1357e0…135800 74 6f 20 62 61 73 65 20 61 6c 61 72 6d 3b 0a 20 20 20 20 20 64 6c 20 20 77 31 20 20 78 32 2b 63 ┆to base alarm; dl w1 x2+c┆
0x135800…135820 34 31 2b 32 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 20 20 2b 31 20 20 20 ┆41+2 ; al w1 x1 +1 ┆
0x135820…135840 20 20 20 3b 0a 20 20 20 20 20 73 6c 20 20 77 30 20 28 78 33 2b 61 34 35 2d 32 29 20 20 20 3b 20 ┆ ; sl w0 (x3+a45-2) ; ┆
0x135840…135860 36 3b 20 6f 72 20 63 6f 6e 73 2e 6d 61 78 2e 68 69 20 3c 20 63 6f 6e 73 2e 75 73 65 72 2e 68 69 ┆6; or cons.max.hi < cons.user.hi┆
0x135860…135880 0a 20 20 20 20 20 73 68 20 20 77 31 20 28 78 32 2b 63 34 33 2b 32 29 20 20 20 3b 20 20 20 20 74 ┆ sh w1 (x2+c43+2) ; t┆
0x135880…1358a0 68 65 6e 20 67 6f 74 6f 20 62 61 73 65 20 61 6c 61 72 6d 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 ┆hen goto base alarm; jl. ┆
0x1358a0…1358c0 20 20 20 20 20 67 31 39 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 20 ┆ g19. ; al w1 x1 ┆
0x1358c0…1358e0 20 2d 32 20 20 20 20 20 20 3b 0a 20 20 20 20 20 73 6c 20 20 77 31 20 28 78 33 2b 61 34 35 2d 30 ┆ -2 ; sl w1 (x3+a45-0┆
0x1358e0…135900 29 20 20 20 3b 20 37 3b 20 69 66 20 63 6f 6e 73 2e 6d 61 78 2e 68 69 20 3e 20 73 2e 73 74 64 2e ┆) ; 7; if cons.max.hi > s.std.┆
0x135900…135920 68 69 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 67 31 39 2e 20 20 20 20 20 3b 20 20 20 ┆hi jl. g19. ; ┆
0x135920…135940 20 74 68 65 6e 20 67 6f 74 6f 20 62 61 73 65 20 61 6c 61 72 6d 0a 69 32 35 3a 20 61 6c 20 20 77 ┆ then goto base alarm i25: al w┆
0x135940…135960 31 20 20 78 32 2b 63 33 30 20 20 20 20 20 20 3b 20 20 20 63 72 65 61 74 65 20 69 6e 74 65 72 6e ┆1 x2+c30 ; create intern┆
0x135960…135980 61 6c 20 70 72 6f 63 65 73 73 28 0a 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 32 2b 63 32 39 20 ┆al process( al w3 x2+c29 ┆
0x135980…1359a0 20 20 20 20 20 3b 20 20 20 20 70 72 6f 63 65 73 73 20 6e 61 6d 65 28 63 6f 6e 73 6f 6c 65 29 2c ┆ ; process name(console),┆
0x1359a0…1359c0 0a 20 20 20 20 20 6a 64 20 20 20 20 20 31 3c 31 31 2b 35 36 20 20 20 20 20 20 3b 20 20 20 20 66 ┆ jd 1<11+56 ; f┆
0x1359c0…1359e0 69 72 73 74 20 61 64 64 72 28 63 6f 6e 73 6f 6c 65 29 2c 72 65 73 75 6c 74 29 3b 0a 20 20 20 20 ┆irst addr(console),result); ┆
0x1359e0…135a00 20 73 6e 20 20 77 30 20 20 20 20 20 20 20 31 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 ┆ sn w0 1 ; jl. ┆
0x135a00…135a20 20 20 20 20 20 20 20 20 67 34 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 73 6e 20 20 77 30 20 20 20 ┆ g4. ; sn w0 ┆
0x135a20…135a40 20 20 20 20 32 20 20 20 20 20 20 3b 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 67 31 31 ┆ 2 ; jl. g11┆
0x135a40…135a60 2e 20 20 20 20 20 3b 0a 20 20 20 20 20 73 65 20 20 77 30 20 20 20 20 20 20 20 30 20 20 20 20 20 ┆. ; se w0 0 ┆
0x135a60…135a80 20 3b 20 20 20 69 66 20 72 65 73 75 6c 74 3c 3e 30 20 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 ┆ ; if result<>0 jl. ┆
0x135a80…135aa0 20 20 20 67 31 30 2e 20 20 20 20 20 3b 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 65 6e 64 20 6c 69 ┆ g10. ; then goto end li┆
0x135aa0…135ac0 6e 65 3b 0a 20 20 20 20 20 6a 64 20 20 20 20 20 20 31 3c 31 31 2b 34 20 20 20 20 20 20 3b 20 20 ┆ne; jd 1<11+4 ; ┆
0x135ac0…135ae0 20 70 72 6f 63 65 73 73 20 64 65 73 63 72 69 70 74 69 6f 6e 28 0a 20 20 20 20 20 72 73 2e 20 77 ┆ process description( rs. w┆
0x135ae0…135b00 30 20 20 20 20 20 65 32 39 2e 20 20 20 20 20 3b 20 20 20 20 20 70 72 6f 63 65 73 73 20 6e 61 6d ┆0 e29. ; process nam┆
0x135b00…135b20 65 28 63 6f 6e 73 6f 6c 65 29 2c 72 65 73 75 6c 74 29 3b 0a 20 20 20 20 20 6a 6c 2e 20 77 33 20 ┆e(console),result); jl. w3 ┆
0x135b20…135b40 20 20 20 20 64 33 30 2e 20 20 20 20 20 3b 20 72 65 73 65 72 76 65 20 63 6f 72 65 0a 20 20 20 20 ┆ d30. ; reserve core ┆
0x135b40…135b60 20 61 6c 20 20 77 33 20 20 78 31 2b 63 39 35 20 20 20 20 20 3b 20 6d 6f 76 65 20 6b 69 6e 64 2c ┆ al w3 x1+c95 ; move kind,┆
0x135b60…135b80 6e 61 6d 65 20 6f 66 20 70 72 69 6d 69 6e 0a 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 32 2b 63 ┆name of primin al w2 x2+c┆
0x135b80…135ba0 31 39 20 20 20 20 20 3b 20 61 6e 64 20 70 72 69 6d 6f 75 74 20 74 6f 20 63 6f 72 65 74 61 62 6c ┆19 ; and primout to coretabl┆
0x135ba0…135bc0 65 0a 6a 30 20 3a 20 72 6c 20 20 77 30 20 20 78 33 20 20 20 20 20 20 20 20 20 3b 20 28 73 65 74 ┆e j0 : rl w0 x3 ; (set┆
0x135bc0…135be0 20 62 79 20 69 20 61 6e 64 20 6f 20 63 6f 6d 6d 61 6e 64 73 20 29 0a 20 20 20 20 20 72 73 20 20 ┆ by i and o commands ) rs ┆
0x135be0…135c00 77 30 20 20 78 32 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 ┆w0 x2 ; al w3 x3┆