|
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 - download
Length: 96768 (0x17a00)
Types: Rc489kSubCat
Names: »rydiv«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »rydiv«
0x00000…00033 Rc489kSubCatEnt {f00=0x00328a, f01=0x000078, f02=0x000081, filename=»rydwtxt «, entry_tail=0-4-0-2-1981-01-29T13:53-disc2-0x0-0x0-0x0-0x0}
0x00033…00066 Rc489kSubCatEnt {f00=0x0052fa, f01=0x000078, f02=0x000081, filename=»b1sfval «, entry_tail=0-4-0-1-1980-08-29T14:05-disc2-0x0-0x0-0x0-0x0}
0x00066…00099 Rc489kSubCatEnt {f00=0x00670a, f01=0x000078, f02=0x000081, filename=»al1dfval «, entry_tail=0-4-0-1-1980-08-29T13:52-disc2-0x0-0x0-0x0-0x0}
0x00099…000cc Rc489kSubCatEnt {f00=0x007102, f01=0x000078, f02=0x000081, filename=»tfcalc «, entry_tail=0-4-0-2-1980-08-29T13:16-disc2-0x0-0x0-0x0-0x0}
0x000cc…000ff Rc489kSubCatEnt {f00=0x009003, f01=0x000078, f02=0x000081, filename=»ryomtxt «, entry_tail=0-4-0-1-1980-05-07T14:43--0x0-0x0-0x0-0x0}
0x000ff…00132 Rc489kSubCatEnt {f00=0x00a003, f01=0x000078, f02=0x000081, filename=»seqtxt «, entry_tail=0-4-0-4-1980-05-07T14:43--0x9011-0x0-0x0-0x0}
0x00132…00165 Rc489kSubCatEnt {f00=0x00e003, f01=0x000078, f02=0x000081, filename=»tlsjj «, entry_tail=0-4-0-2-1980-05-07T14:43--0xe000-0x0-0x0-0x0}
0x00165…00198 Rc489kSubCatEnt {f00=0x010003, f01=0x000078, f02=0x000081, filename=»u6dat «, entry_tail=0-4-0-1-1980-05-07T14:43--0x0-0x0-0x0-0x0}
0x00198…001cb Rc489kSubCatEnt {f00=0x011003, f01=0x000078, f02=0x000081, filename=»zndec «, entry_tail=0-4-0-1-1980-05-07T14:43--0xd016-0x0-0x0-0x0}
0x001cb…001fe Rc489kSubCatEnt {f00=0x012003, f01=0x000078, f02=0x000081, filename=»readsttxt «, entry_tail=0-4-0-5-1980-05-07T14:43--0xe011-0x0-0x0-0x0}
0x001fe…00231 Rc489kSubCatEnt {f00=0x017003, f01=0x000078, f02=0x000081, filename=»bandtxt «, entry_tail=0-4-0-4-1980-05-07T14:43--0x0-0x0-0x0-0x0}
0x00231…00264 Rc489kSubCatEnt {f00=0x01b003, f01=0x000078, f02=0x000081, filename=»decjob «, entry_tail=0-4-0-1-1980-05-07T14:43--0xd02a-0x0-0x0-0x0}
0x00264…00297 Rc489kSubCatEnt {f00=0x01c003, f01=0x000078, f02=0x000081, filename=»gentesttxt «, entry_tail=0-4-0-2-1980-05-07T14:43--0xa037-0x0-0x0-0x0}
0x00297…002ca Rc489kSubCatEnt {f00=0x01e003, f01=0x000078, f02=0x000081, filename=»kr8dec «, entry_tail=0-4-0-1-1980-05-07T14:43--0xe03a-0x0-0x0-0x0}
0x002ca…002fd Rc489kSubCatEnt {f00=0x01f003, f01=0x000078, f02=0x000081, filename=»n1seqdat «, entry_tail=0-4-0-1-1980-05-07T14:43--0x0-0x0-0x0-0x0}
0x002fd…00300 0x00001e
0x00300…00333 Rc489kSubCatEnt {f00=0x020003, f01=0x000078, f02=0x000081, filename=»na1life «, entry_tail=0-4-0-3-1980-05-07T14:43--0x0-0x0-0x0-0x0}
0x00333…00366 Rc489kSubCatEnt {f00=0x023003, f01=0x000078, f02=0x000081, filename=»na1lifek «, entry_tail=0-4-0-3-1980-05-07T14:43--0x0-0x0-0x0-0x0}
0x00366…00399 Rc489kSubCatEnt {f00=0x026003, f01=0x000078, f02=0x000081, filename=»nsfitsys «, entry_tail=0-4-0-3-1980-05-07T14:43--0x0-0x0-0x0-0x0}
0x00399…003cc Rc489kSubCatEnt {f00=0x029003, f01=0x000078, f02=0x000081, filename=»nsform1txt «, entry_tail=0-4-0-6-1980-05-07T14:43--0x0-0x0-0x0-0x0}
0x003cc…003ff Rc489kSubCatEnt {f00=0x02f003, f01=0x000078, f02=0x000081, filename=»nsjob1 «, entry_tail=0-4-0-2-1980-05-07T14:43--0x0-0x0-0x0-0x0}
0x003ff…00432 Rc489kSubCatEnt {f00=0x031003, f01=0x000078, f02=0x000081, filename=»ryddiabtxt «, entry_tail=0-4-0-1-1980-05-07T14:43--0x900f-0x0-0x0-0x0}
0x00432…00465 Rc489kSubCatEnt {f00=0x032003, f01=0x000078, f02=0x000081, filename=»bx1seqdat «, entry_tail=0-4-0-1-1980-05-07T14:42--0xd008-0x0-0x0-0x0}
0x00465…00498 Rc489kSubCatEnt {f00=0x033003, f01=0x000078, f02=0x000081, filename=»by1seqdat «, entry_tail=0-4-0-2-1980-05-07T14:42--0x900a-0x0-0x0-0x0}
0x00498…004cb Rc489kSubCatEnt {f00=0x035003, f01=0x000078, f02=0x000081, filename=»alaseqdat «, entry_tail=0-4-0-1-1980-05-07T14:43--0x902d-0x0-0x0-0x0}
0x004cb…004fe Rc489kSubCatEnt {f00=0x036003, f01=0x000078, f02=0x000081, filename=»albseqdat «, entry_tail=0-4-0-1-1980-05-07T14:43--0x9029-0x0-0x0-0x0}
0x004fe…00531 Rc489kSubCatEnt {f00=0x037003, f01=0x000078, f02=0x000081, filename=»hygentxt «, entry_tail=0-4-0-8-1980-05-07T14:43--0xe030-0x0-0x0-0x0}
0x00531…00564 Rc489kSubCatEnt {f00=0x03f003, f01=0x000078, f02=0x000081, filename=»exactosctxt «, entry_tail=0-4-0-7-1980-05-07T14:43--0xf037-0x0-0x0-0x0}
0x00564…00597 Rc489kSubCatEnt {f00=0x046003, f01=0x000078, f02=0x000081, filename=»genbdtxt «, entry_tail=0-4-0-2-1980-05-07T14:43--0xb00d-0x0-0x0-0x0}
0x00597…005ca Rc489kSubCatEnt {f00=0x048003, f01=0x000078, f02=0x000081, filename=»grottxt «, entry_tail=0-4-0-2-1980-05-07T14:43--0x0-0x0-0x0-0x0}
0x005ca…005fd Rc489kSubCatEnt {f00=0x04a003, f01=0x000078, f02=0x000081, filename=»rydritztxt «, entry_tail=0-4-0-5-1980-05-07T14:43--0x0-0x0-0x0-0x0}
0x005fd…00600 00 00 00 ┆ ┆
0x00600…00620 02 00 1c 80 10 00 02 00 00 00 e1 eb 80 60 00 00 41 b7 01 20 5f 02 30 00 01 10 00 05 30 00 00 51 ┆ ` A _ 0 0 Q┆
0x00620…00640 3f 01 30 e3 02 e0 00 02 50 00 02 90 00 80 01 8e 80 00 3d 00 c0 58 00 00 00 00 60 17 01 41 ec 00 ┆? 0 P = X ` A ┆
0x00640…00660 00 0a 00 81 b8 64 00 00 00 00 00 72 65 6d 6f 76 65 70 65 20 69 73 20 0a 20 6d 74 74 61 00 81 9a ┆ d removepe is mtta ┆
0x00660…00680 00 01 40 00 00 18 00 80 e4 00 8f ff 51 2e 89 51 cf d2 91 00 02 1d 2e 41 a1 6f 7c a1 00 03 37 cf ┆ @ Q. Q .A oø 7 ┆
0x00680…006a0 be 1d 2f 78 34 cf c2 53 cf b2 52 2f fc 34 31 99 2d 00 04 1d 2e b9 a1 6f 7c a1 00 03 37 cf aa 1d ┆ /x4 S R/ 41 - . oø 7 ┆
0x006a0…006c0 2f 78 d9 10 00 dd 2e 41 2d 00 01 91 00 02 a1 6e 57 a1 6e 59 37 cf a0 1d 2e 4f d9 10 00 2f 2e 41 ┆/x .A- nW nY7 .O /.A┆
0x006c0…006e0 18 3f fe 19 30 00 14 00 02 a8 00 00 24 00 01 2d 0f ff 5d 2e 41 2d 00 08 1d 2e b9 a1 6f 7c a1 00 ┆ ? 0 $ - Å.A- . oø ┆
0x006e0…00700 03 37 cf 7c 1d 2f 78 d9 10 00 dd 2e 3f 2d 00 02 91 00 02 a1 6e 57 a1 6e 59 37 cf 72 1d 2e 4f d9 ┆ 7 ø /x .?- nW nY7 r .O ┆
0x00700…00720 10 00 2f 2e 3f 18 3f fe 19 30 00 14 00 02 a8 00 00 24 00 01 2d 0f ff 11 2e 41 b1 00 01 34 80 08 ┆ /.? ? 0 $ - .A 4 ┆
0x00720…00740 4d 8f 87 69 2f 89 34 80 20 2d 0f f2 37 cf 3c 5e 10 00 50 8f 79 53 8f 32 dc 10 05 2c 2f 78 53 8f ┆M i/ 4 - 7 <^ P yS 2 ,/xS ┆
0x00740…00760 53 dc 10 09 2c 2e 9d 2f 00 1a dc 10 0d 53 cf 38 52 2f fc 34 30 00 53 6e 43 34 2e 45 51 2e 8d 21 ┆S ,. / S 8R/ 40 SnC4.EQ. !┆
0x00760…00780 2e 89 a1 0f ff 24 00 01 2d 0f ff 5d 2e 47 51 2e 95 a1 6f 7c a1 00 01 37 cf 18 1d 2f 78 51 10 00 ┆. $ - Å.GQ. oø 7 /xQ ┆
0x00780…007a0 ad 0f ff 24 00 01 2d 0f ff 11 2e 47 b1 00 01 34 80 92 51 2e 89 2d 1f ff 08 00 02 08 00 00 61 8f ┆ $ - .G 4 Q. - a ┆
0x007a0…007c0 2f 51 00 00 5d 2e 7f 2d 00 01 99 6e 7f 5d 2e 81 51 2e 89 2d 1f ff 08 00 02 08 00 00 61 8f 1b 1d ┆/Q Å. - n Å. Q. - a ┆
0x007c0…007e0 2e a7 5d 2e a1 2d 0f fa 37 ce d4 5e 10 00 50 8f 0d 53 8e ca dc 10 05 53 ce da 2e 20 00 34 30 00 ┆. Å. - 7 ^ P S S . 40 ┆
0x007e0…00800 51 2e 95 a1 6f 7c a1 00 01 37 ce cc 1d 2f 78 5d 2e 47 2d 0f ff 5d 6e 47 51 2e 99 a1 6f 7c a1 00 ┆Q. oø 7 /xÅ.G- ÅnGQ. oø ┆
0x00800…00820 01 37 ce bc 1d 2f 78 5d 2e 47 2d 0f ff 5d 6e 47 51 2e 9b a1 6f 7c a1 00 01 37 ce ac 1d 2f 78 5d ┆ 7 /xÅ.G- ÅnGQ. oø 7 /xÅ┆
0x00820…00840 2e 47 2d 0f ff 5d 6e 47 2d 0f f2 37 ce 92 5e 10 00 50 8e c9 53 8e 88 dc 10 05 2c ce 94 53 8e a9 ┆.G- ÅnG- 7 ^ P S , S ┆
0x00840…00860 dc 10 09 50 8e 9d 2f 20 00 9b 00 04 2f 30 08 dc 10 0d 34 80 08 2d 0f ff 50 8e 91 34 ce 7c 53 ce ┆ P / /0 4 - P 4 øS ┆
0x00860…00880 78 52 2f fc 34 30 00 34 80 1e 2d 0f f2 37 ce 66 5e 10 00 50 8e 8b 53 8e 5c dc 10 05 d8 8e 83 dc ┆xR/ 40 4 - 7 f^ P S Ø ┆
0x00880…008a0 10 0d 2c 10 0d 2f 00 1a dc 10 09 53 ce 58 2e 20 00 34 30 00 53 ce 50 4d 2f 8d b1 00 01 34 31 9e ┆ , / S X. 40 S PM/ 41 ┆
0x008a0…008c0 2d 0f e6 37 ce 42 5e 10 00 50 8e 63 53 8e 38 dc 10 05 2c 2f 78 53 8e 59 dc 10 09 d8 8e 53 dc 10 ┆- 7 B^ P cS 8 ,/xS Y S ┆
0x008c0…008e0 15 2c 10 15 2f 00 1a dc 10 0d d8 8e 49 dc 10 19 2c 10 19 2f 00 1a dc 10 11 53 ce 20 52 2f fc 34 ┆ , / I , / S R/ 4┆
0x008e0…00900 30 00 2d 0f ee 37 ce 16 53 ce 12 5e 10 00 50 8e 2f 34 30 3e 00 70 00 00 80 41 10 86 21 04 42 0a ┆0 - 7 S ^ P /40> p A ! B ┆
0x00900…00f00 Data for rydwtxt
0x00f00…01200 Data for b1sfval
0x01200…01500 Data for al1dfval
0x01500…01b00 Data for tfcalc
0x01b00…01e00 Data for ryomtxt
0x01e00…02a00 Data for seqtxt
0x02a00…03000 Data for tlsjj
0x03000…03300 Data for u6dat
0x03300…03600 Data for zndec
0x03600…04500 Data for readsttxt
0x04500…05100 Data for bandtxt
0x05100…05400 Data for decjob
0x05400…05a00 Data for gentesttxt
0x05a00…05d00 Data for kr8dec
0x05d00…06000 Data for n1seqdat
0x06000…06900 Data for na1life
0x06900…07200 Data for na1lifek
0x07200…07b00 Data for nsfitsys
0x07b00…08d00 Data for nsform1txt
0x08d00…09300 Data for nsjob1
0x09300…09600 Data for ryddiabtxt
0x09600…09900 Data for bx1seqdat
0x09900…09f00 Data for by1seqdat
0x09f00…0a200 Data for alaseqdat
0x0a200…0a500 Data for albseqdat
0x0a500…0bd00 Data for hygentxt
0x0bd00…0d200 Data for exactosctxt
0x0d200…0d800 Data for genbdtxt
0x0d800…0de00 Data for grottxt
0x0de00…0ed00 Data for rydritztxt
0x0ed00…0ed20 20 38 39 0a 20 36 36 38 20 31 33 36 20 34 36 20 35 32 20 32 39 20 38 35 20 38 39 0a 20 36 36 39 ┆ 89 668 136 46 52 29 85 89 669┆
0x0ed20…0ed40 20 31 35 33 20 33 35 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 36 37 30 20 38 35 20 38 ┆ 153 35 34 25 29 85 89 670 85 8┆
0x0ed40…0ed60 39 0a 20 36 37 31 20 38 36 20 31 30 30 20 31 0a 20 36 37 32 20 38 39 0a 20 36 37 33 20 39 34 20 ┆9 671 86 100 1 672 89 673 94 ┆
0x0ed60…0ed80 39 37 20 31 33 30 20 31 30 20 31 0a 20 36 37 34 20 31 30 31 20 32 20 34 0a 20 36 37 35 20 31 31 ┆97 130 10 1 674 101 2 4 675 11┆
0x0ed80…0eda0 30 20 32 20 34 0a 20 36 37 36 20 31 32 31 20 36 20 33 36 20 34 35 20 34 31 20 31 37 20 35 30 20 ┆0 2 4 676 121 6 36 45 41 17 50 ┆
0x0eda0…0edc0 32 35 20 32 39 20 38 35 20 38 39 0a 20 36 37 37 20 31 33 34 20 32 36 20 34 30 20 31 36 0a 20 36 ┆25 29 85 89 677 134 26 40 16 6┆
0x0edc0…0ede0 37 38 20 31 34 39 20 39 38 20 31 34 35 0a 20 36 37 39 20 31 36 36 20 37 33 20 35 38 0a 20 36 38 ┆78 149 98 145 679 166 73 58 68┆
0x0ede0…0ee00 30 20 31 30 30 20 31 0a 20 36 38 31 20 31 30 31 20 32 20 34 0a 20 36 38 32 20 31 30 34 20 31 37 ┆0 100 1 681 101 2 4 682 104 17┆
0x0ee00…0ee20 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 36 38 33 20 31 30 39 20 38 32 20 36 38 20 31 ┆ 50 25 29 85 89 683 109 82 68 1┆
0x0ee20…0ee40 30 30 20 31 0a 20 36 38 34 20 31 31 36 20 33 38 20 37 33 20 35 38 0a 20 36 38 35 20 31 32 35 20 ┆00 1 684 116 38 73 58 685 125 ┆
0x0ee40…0ee60 33 30 20 39 20 38 31 20 36 35 20 36 31 20 33 37 0a 20 36 38 36 20 31 33 36 20 34 36 20 35 32 20 ┆30 9 81 65 61 37 686 136 46 52 ┆
0x0ee60…0ee80 32 39 20 38 35 20 38 39 0a 20 36 38 37 20 31 34 39 20 39 38 20 31 34 35 0a 20 36 38 38 20 31 36 ┆29 85 89 687 149 98 145 688 16┆
0x0ee80…0eea0 34 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 36 38 39 20 31 38 31 20 36 36 20 ┆4 53 34 25 29 85 89 689 181 66 ┆
0x0eea0…0eec0 37 32 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 36 39 30 20 31 31 37 20 35 31 ┆72 53 34 25 29 85 89 690 117 51┆
0x0eec0…0eee0 20 32 36 20 34 30 20 31 36 0a 20 36 39 31 20 31 31 38 20 36 36 20 37 32 20 35 33 20 33 34 20 32 ┆ 26 40 16 691 118 66 72 53 34 2┆
0x0eee0…0ef00 35 20 32 39 20 38 35 20 38 39 0a 20 36 39 32 20 31 32 31 20 36 20 33 36 20 34 35 20 34 31 20 31 ┆5 29 85 89 692 121 6 36 45 41 1┆
0x0ef00…0ef20 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 36 39 33 20 31 32 36 20 34 31 20 31 37 20 ┆7 50 25 29 85 89 693 126 41 17 ┆
0x0ef20…0ef40 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 36 39 34 20 31 33 33 20 31 39 20 38 32 20 36 38 ┆50 25 29 85 89 694 133 19 82 68┆
0x0ef40…0ef60 20 31 30 30 20 31 0a 20 36 39 35 20 31 34 32 20 32 31 20 35 20 32 35 20 32 39 20 38 35 20 38 39 ┆ 100 1 695 142 21 5 25 29 85 89┆
0x0ef60…0ef80 0a 20 36 39 36 20 31 35 33 20 33 35 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 36 39 37 ┆ 696 153 35 34 25 29 85 89 697┆
0x0ef80…0efa0 20 31 36 36 20 37 33 20 35 38 0a 20 36 39 38 20 31 38 31 20 36 36 20 37 32 20 35 33 20 33 34 20 ┆ 166 73 58 698 181 66 72 53 34 ┆
0x0efa0…0efc0 32 35 20 32 39 20 38 35 20 38 39 0a 20 36 39 39 20 31 39 38 20 31 34 36 20 35 33 20 33 34 20 32 ┆25 29 85 89 699 198 146 53 34 2┆
0x0efc0…0efe0 35 20 32 39 20 38 35 20 38 39 0a 20 37 30 30 20 34 39 20 39 37 20 31 33 30 20 31 30 20 31 0a 20 ┆5 29 85 89 700 49 97 130 10 1 ┆
0x0efe0…0f000 37 30 31 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 30 32 20 35 33 20 33 34 20 32 35 ┆701 50 25 29 85 89 702 53 34 25┆
0x0f000…0f020 20 32 39 20 38 35 20 38 39 0a 20 37 30 33 20 35 38 0a 20 37 30 34 20 36 35 20 36 31 20 33 37 0a ┆ 29 85 89 703 58 704 65 61 37 ┆
0x0f020…0f040 20 37 30 35 20 37 34 20 36 35 20 36 31 20 33 37 0a 20 37 30 36 20 38 35 20 38 39 0a 20 37 30 37 ┆ 705 74 65 61 37 706 85 89 707┆
0x0f040…0f060 20 39 38 20 31 34 35 0a 20 37 30 38 20 31 31 33 20 31 31 20 32 20 34 0a 20 37 30 39 20 31 33 30 ┆ 98 145 708 113 11 2 4 709 130┆
0x0f060…0f080 20 31 30 20 31 0a 20 37 31 30 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 31 31 20 35 ┆ 10 1 710 50 25 29 85 89 711 5┆
0x0f080…0f0a0 31 20 32 36 20 34 30 20 31 36 0a 20 37 31 32 20 35 34 20 34 31 20 31 37 20 35 30 20 32 35 20 32 ┆1 26 40 16 712 54 41 17 50 25 2┆
0x0f0a0…0f0c0 39 20 38 35 20 38 39 0a 20 37 31 33 20 35 39 20 31 30 36 20 33 37 0a 20 37 31 34 20 36 36 20 37 ┆9 85 89 713 59 106 37 714 66 7┆
0x0f0c0…0f0e0 32 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 31 35 20 37 35 20 37 34 20 36 ┆2 53 34 25 29 85 89 715 75 74 6┆
0x0f0e0…0f100 35 20 36 31 20 33 37 0a 20 37 31 36 20 38 36 20 31 30 30 20 31 0a 20 37 31 37 20 39 39 20 31 36 ┆5 61 37 716 86 100 1 717 99 16┆
0x0f100…0f120 32 20 34 31 20 31 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 31 38 20 31 31 34 20 ┆2 41 17 50 25 29 85 89 718 114 ┆
0x0f120…0f140 31 38 20 36 35 20 36 31 20 33 37 0a 20 37 31 39 20 31 33 31 20 31 31 20 32 20 34 0a 20 37 32 30 ┆18 65 61 37 719 131 11 2 4 720┆
0x0f140…0f160 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 32 31 20 35 34 20 34 31 20 31 37 ┆ 53 34 25 29 85 89 721 54 41 17┆
0x0f160…0f180 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 32 32 20 35 37 20 37 34 20 36 35 20 36 31 ┆ 50 25 29 85 89 722 57 74 65 61┆
0x0f180…0f1a0 20 33 37 0a 20 37 32 33 20 36 32 20 34 30 20 31 36 0a 20 37 32 34 20 36 39 20 31 31 37 20 35 31 ┆ 37 723 62 40 16 724 69 117 51┆
0x0f1a0…0f1c0 20 32 36 20 34 30 20 31 36 0a 20 37 32 35 20 37 38 20 31 31 33 20 31 31 20 32 20 34 0a 20 37 32 ┆ 26 40 16 725 78 113 11 2 4 72┆
0x0f1c0…0f1e0 36 20 38 39 0a 20 37 32 37 20 31 30 32 20 35 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 32 38 ┆6 89 727 102 5 25 29 85 89 728┆
0x0f1e0…0f200 20 31 31 37 20 35 31 20 32 36 20 34 30 20 31 36 0a 20 37 32 39 20 31 33 34 20 32 36 20 34 30 20 ┆ 117 51 26 40 16 729 134 26 40 ┆
0x0f200…0f220 31 36 0a 20 37 33 30 20 35 38 0a 20 37 33 31 20 35 39 20 31 30 36 20 33 37 0a 20 37 33 32 20 36 ┆16 730 58 731 59 106 37 732 6┆
0x0f220…0f240 32 20 34 30 20 31 36 0a 20 37 33 33 20 36 37 20 38 35 20 38 39 0a 20 37 33 34 20 37 34 20 36 35 ┆2 40 16 733 67 85 89 734 74 65┆
0x0f240…0f260 20 36 31 20 33 37 0a 20 37 33 35 20 38 33 20 37 33 20 35 38 0a 20 37 33 36 20 39 34 20 39 37 20 ┆ 61 37 735 83 73 58 736 94 97 ┆
0x0f260…0f280 31 33 30 20 31 30 20 31 0a 20 37 33 37 20 31 30 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 ┆130 10 1 737 107 50 25 29 85 89┆
0x0f280…0f2a0 0a 20 37 33 38 20 31 32 32 20 39 20 38 31 20 36 35 20 36 31 20 33 37 0a 20 37 33 39 20 31 33 39 ┆ 738 122 9 81 65 61 37 739 139┆
0x0f2a0…0f2c0 20 39 31 20 38 32 20 36 38 20 31 30 30 20 31 0a 20 37 34 30 20 36 35 20 36 31 20 33 37 0a 20 37 ┆ 91 82 68 100 1 740 65 61 37 7┆
0x0f2c0…0f2e0 34 31 20 36 36 20 37 32 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 34 32 20 ┆41 66 72 53 34 25 29 85 89 742 ┆
0x0f2e0…0f300 36 39 20 31 31 37 20 35 31 20 32 36 20 34 30 20 31 36 0a 20 37 34 33 20 37 34 20 36 35 20 36 31 ┆69 117 51 26 40 16 743 74 65 61┆
0x0f300…0f320 20 33 37 0a 20 37 34 34 20 38 31 20 36 35 20 36 31 20 33 37 0a 20 37 34 35 20 39 30 20 38 31 20 ┆ 37 744 81 65 61 37 745 90 81 ┆
0x0f320…0f340 36 35 20 36 31 20 33 37 0a 20 37 34 36 20 31 30 31 20 32 20 34 0a 20 37 34 37 20 31 31 34 20 31 ┆65 61 37 746 101 2 4 747 114 1┆
0x0f340…0f360 38 20 36 35 20 36 31 20 33 37 0a 20 37 34 38 20 31 32 39 20 38 36 20 31 30 30 20 31 0a 20 37 34 ┆8 65 61 37 748 129 86 100 1 74┆
0x0f360…0f380 39 20 31 34 36 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 35 30 20 37 34 20 ┆9 146 53 34 25 29 85 89 750 74 ┆
0x0f380…0f3a0 36 35 20 36 31 20 33 37 0a 20 37 35 31 20 37 35 20 37 34 20 36 35 20 36 31 20 33 37 0a 20 37 35 ┆65 61 37 751 75 74 65 61 37 75┆
0x0f3a0…0f3c0 32 20 37 38 20 31 31 33 20 31 31 20 32 20 34 0a 20 37 35 33 20 38 33 20 37 33 20 35 38 0a 20 37 ┆2 78 113 11 2 4 753 83 73 58 7┆
0x0f3c0…0f3e0 35 34 20 39 30 20 38 31 20 36 35 20 36 31 20 33 37 0a 20 37 35 35 20 39 39 20 31 36 32 20 34 31 ┆54 90 81 65 61 37 755 99 162 41┆
0x0f3e0…0f400 20 31 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 35 36 20 31 31 30 20 32 20 34 0a ┆ 17 50 25 29 85 89 756 110 2 4 ┆
0x0f400…0f420 20 37 35 37 20 31 32 33 20 31 34 20 31 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 ┆ 757 123 14 17 50 25 29 85 89 7┆
0x0f420…0f440 35 38 20 31 33 38 20 37 34 20 36 35 20 36 31 20 33 37 0a 20 37 35 39 20 31 35 35 20 35 31 20 32 ┆58 138 74 65 61 37 759 155 51 2┆
0x0f440…0f460 36 20 34 30 20 31 36 0a 20 37 36 30 20 38 35 20 38 39 0a 20 37 36 31 20 38 36 20 31 30 30 20 31 ┆6 40 16 760 85 89 761 86 100 1┆
0x0f460…0f480 0a 20 37 36 32 20 38 39 0a 20 37 36 33 20 39 34 20 39 37 20 31 33 30 20 31 30 20 31 0a 20 37 36 ┆ 762 89 763 94 97 130 10 1 76┆
0x0f480…0f4a0 34 20 31 30 31 20 32 20 34 0a 20 37 36 35 20 31 31 30 20 32 20 34 0a 20 37 36 36 20 31 32 31 20 ┆4 101 2 4 765 110 2 4 766 121 ┆
0x0f4a0…0f4c0 36 20 33 36 20 34 35 20 34 31 20 31 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 36 ┆6 36 45 41 17 50 25 29 85 89 76┆
0x0f4c0…0f4e0 37 20 31 33 34 20 32 36 20 34 30 20 31 36 0a 20 37 36 38 20 31 34 39 20 39 38 20 31 34 35 0a 20 ┆7 134 26 40 16 768 149 98 145 ┆
0x0f4e0…0f500 37 36 39 20 31 36 36 20 37 33 20 35 38 0a 20 37 37 30 20 39 38 20 31 34 35 0a 20 37 37 31 20 39 ┆769 166 73 58 770 98 145 771 9┆
0x0f500…0f520 39 20 31 36 32 20 34 31 20 31 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 37 32 20 ┆9 162 41 17 50 25 29 85 89 772 ┆
0x0f520…0f540 31 30 32 20 35 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 37 33 20 31 30 37 20 35 30 20 32 35 ┆102 5 25 29 85 89 773 107 50 25┆
0x0f540…0f560 20 32 39 20 38 35 20 38 39 0a 20 37 37 34 20 31 31 34 20 31 38 20 36 35 20 36 31 20 33 37 0a 20 ┆ 29 85 89 774 114 18 65 61 37 ┆
0x0f560…0f580 37 37 35 20 31 32 33 20 31 34 20 31 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 37 ┆775 123 14 17 50 25 29 85 89 77┆
0x0f580…0f5a0 36 20 31 33 34 20 32 36 20 34 30 20 31 36 0a 20 37 37 37 20 31 34 37 20 36 36 20 37 32 20 35 33 ┆6 134 26 40 16 777 147 66 72 53┆
0x0f5a0…0f5c0 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 37 38 20 31 36 32 20 34 31 20 31 37 20 35 ┆ 34 25 29 85 89 778 162 41 17 5┆
0x0f5c0…0f5e0 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 37 39 20 31 37 39 20 31 33 31 20 31 31 20 32 20 ┆0 25 29 85 89 779 179 131 11 2 ┆
0x0f5e0…0f600 34 0a 20 37 38 30 20 31 31 33 20 31 31 20 32 20 34 0a 20 37 38 31 20 31 31 34 20 31 38 20 36 35 ┆4 780 113 11 2 4 781 114 18 65┆
0x0f600…0f620 20 36 31 20 33 37 0a 20 37 38 32 20 31 31 37 20 35 31 20 32 36 20 34 30 20 31 36 0a 20 37 38 33 ┆ 61 37 782 117 51 26 40 16 783┆
0x0f620…0f640 20 31 32 32 20 39 20 38 31 20 36 35 20 36 31 20 33 37 0a 20 37 38 34 20 31 32 39 20 38 36 20 31 ┆ 122 9 81 65 61 37 784 129 86 1┆
0x0f640…0f660 30 30 20 31 0a 20 37 38 35 20 31 33 38 20 37 34 20 36 35 20 36 31 20 33 37 0a 20 37 38 36 20 31 ┆00 1 785 138 74 65 61 37 786 1┆
0x0f660…0f680 34 39 20 39 38 20 31 34 35 0a 20 37 38 37 20 31 36 32 20 34 31 20 31 37 20 35 30 20 32 35 20 32 ┆49 98 145 787 162 41 17 50 25 2┆
0x0f680…0f6a0 39 20 38 35 20 38 39 0a 20 37 38 38 20 31 37 37 20 39 39 20 31 36 32 20 34 31 20 31 37 20 35 30 ┆9 85 89 788 177 99 162 41 17 50┆
0x0f6a0…0f6c0 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 38 39 20 31 39 34 20 39 38 20 31 34 35 0a 20 37 39 ┆ 25 29 85 89 789 194 98 145 79┆
0x0f6c0…0f6e0 30 20 31 33 30 20 31 30 20 31 0a 20 37 39 31 20 31 33 31 20 31 31 20 32 20 34 0a 20 37 39 32 20 ┆0 130 10 1 791 131 11 2 4 792 ┆
0x0f6e0…0f700 31 33 34 20 32 36 20 34 30 20 31 36 0a 20 37 39 33 20 31 33 39 20 39 31 20 38 32 20 36 38 20 31 ┆134 26 40 16 793 139 91 82 68 1┆
0x0f700…0f720 30 30 20 31 0a 20 37 39 34 20 31 34 36 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a ┆00 1 794 146 53 34 25 29 85 89 ┆
0x0f720…0f740 20 37 39 35 20 31 35 35 20 35 31 20 32 36 20 34 30 20 31 36 0a 20 37 39 36 20 31 36 36 20 37 33 ┆ 795 155 51 26 40 16 796 166 73┆
0x0f740…0f760 20 35 38 0a 20 37 39 37 20 31 37 39 20 31 33 31 20 31 31 20 32 20 34 0a 20 37 39 38 20 31 39 34 ┆ 58 797 179 131 11 2 4 798 194┆
0x0f760…0f780 20 39 38 20 31 34 35 0a 20 37 39 39 20 32 31 31 20 36 20 33 36 20 34 35 20 34 31 20 31 37 20 35 ┆ 98 145 799 211 6 36 45 41 17 5┆
0x0f780…0f7a0 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 38 30 30 20 36 34 20 35 32 20 32 39 20 38 35 20 38 ┆0 25 29 85 89 800 64 52 29 85 8┆
0x0f7a0…0f7c0 39 0a 20 38 30 31 20 36 35 20 36 31 20 33 37 0a 20 38 30 32 20 36 38 20 31 30 30 20 31 0a 20 38 ┆9 801 65 61 37 802 68 100 1 8┆
0x0f7c0…0f7e0 30 33 20 37 33 20 35 38 0a 20 38 30 34 20 38 30 20 36 34 20 35 32 20 32 39 20 38 35 20 38 39 0a ┆03 73 58 804 80 64 52 29 85 89 ┆
0x0f7e0…0f800 20 38 30 35 20 38 39 0a 20 38 30 36 20 31 30 30 20 31 0a 20 38 30 37 20 31 31 33 20 31 31 20 32 ┆ 805 89 806 100 1 807 113 11 2┆
0x0f800…0f820 20 34 0a 20 38 30 38 20 31 32 38 20 36 39 20 31 31 37 20 35 31 20 32 36 20 34 30 20 31 36 0a 20 ┆ 4 808 128 69 117 51 26 40 16 ┆
0x0f820…0f840 38 30 39 20 31 34 35 0a 20 38 31 30 20 36 35 20 36 31 20 33 37 0a 20 38 31 31 20 36 36 20 37 32 ┆809 145 810 65 61 37 811 66 72┆
0x0f840…0f860 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 38 31 32 20 36 39 20 31 31 37 20 35 ┆ 53 34 25 29 85 89 812 69 117 5┆
0x0f860…0f880 31 20 32 36 20 34 30 20 31 36 0a 20 38 31 33 20 37 34 20 36 35 20 36 31 20 33 37 0a 20 38 31 34 ┆1 26 40 16 813 74 65 61 37 814┆
0x0f880…0f8a0 20 38 31 20 36 35 20 36 31 20 33 37 0a 20 38 31 35 20 39 30 20 38 31 20 36 35 20 36 31 20 33 37 ┆ 81 65 61 37 815 90 81 65 61 37┆
0x0f8a0…0f8c0 0a 20 38 31 36 20 31 30 31 20 32 20 34 0a 20 38 31 37 20 31 31 34 20 31 38 20 36 35 20 36 31 20 ┆ 816 101 2 4 817 114 18 65 61 ┆
0x0f8c0…0f8e0 33 37 0a 20 38 31 38 20 31 32 39 20 38 36 20 31 30 30 20 31 0a 20 38 31 39 20 31 34 36 20 35 33 ┆37 818 129 86 100 1 819 146 53┆
0x0f8e0…0f900 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 38 32 30 20 36 38 20 31 30 30 20 31 0a 20 38 ┆ 34 25 29 85 89 820 68 100 1 8┆
0x0f900…0f920 32 31 20 36 39 20 31 31 37 20 35 31 20 32 36 20 34 30 20 31 36 0a 20 38 32 32 20 37 32 20 35 33 ┆21 69 117 51 26 40 16 822 72 53┆
0x0f920…0f940 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 38 32 33 20 37 37 20 39 38 20 31 34 35 0a 20 ┆ 34 25 29 85 89 823 77 98 145 ┆
0x0f940…0f960 38 32 34 20 38 34 20 38 30 20 36 34 20 35 32 20 32 39 20 38 35 20 38 39 0a 20 38 32 35 20 39 33 ┆824 84 80 64 52 29 85 89 825 93┆
0x0f960…0f980 20 39 30 20 38 31 20 36 35 20 36 31 20 33 37 0a 20 38 32 36 20 31 30 34 20 31 37 20 35 30 20 32 ┆ 90 81 65 61 37 826 104 17 50 2┆
0x0f980…0f9a0 35 20 32 39 20 38 35 20 38 39 0a 20 38 32 37 20 31 31 37 20 35 31 20 32 36 20 34 30 20 31 36 0a ┆5 29 85 89 827 117 51 26 40 16 ┆
0x0f9a0…0f9c0 20 38 32 38 20 31 33 32 20 31 34 20 31 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 38 ┆ 828 132 14 17 50 25 29 85 89 8┆
0x0f9c0…0f9e0 32 39 20 31 34 39 20 39 38 20 31 34 35 0a 20 38 33 30 20 37 33 20 35 38 0a 20 38 33 31 20 37 34 ┆29 149 98 145 830 73 58 831 74┆
0x0f9e0…0fa00 20 36 35 20 36 31 20 33 37 0a 20 38 33 32 20 37 37 20 39 38 20 31 34 35 0a 20 38 33 33 20 38 32 ┆ 65 61 37 832 77 98 145 833 82┆
0x0fa00…0fa20 20 36 38 20 31 30 30 20 31 0a 20 38 33 34 20 38 39 0a 20 38 33 35 20 39 38 20 31 34 35 0a 20 38 ┆ 68 100 1 834 89 835 98 145 8┆
0x0fa20…0fa40 33 36 20 31 30 39 20 38 32 20 36 38 20 31 30 30 20 31 0a 20 38 33 37 20 31 32 32 20 39 20 38 31 ┆36 109 82 68 100 1 837 122 9 81┆
0x0fa40…0fa60 20 36 35 20 36 31 20 33 37 0a 20 38 33 38 20 31 33 37 20 35 39 20 31 30 36 20 33 37 0a 20 38 33 ┆ 65 61 37 838 137 59 106 37 83┆
0x0fa60…0fa80 39 20 31 35 34 20 34 32 0a 20 38 34 30 20 38 30 20 36 34 20 35 32 20 32 39 20 38 35 20 38 39 0a ┆9 154 42 840 80 64 52 29 85 89 ┆
0x0fa80…0faa0 20 38 34 31 20 38 31 20 36 35 20 36 31 20 33 37 0a 20 38 34 32 20 38 34 20 38 30 20 36 34 20 35 ┆ 841 81 65 61 37 842 84 80 64 5┆
0x0faa0…0fac0 32 20 32 39 20 38 35 20 38 39 0a 20 38 34 33 20 38 39 0a 20 38 34 34 20 39 36 20 31 31 37 20 35 ┆2 29 85 89 843 89 844 96 117 5┆
0x0fac0…0fae0 31 20 32 36 20 34 30 20 31 36 0a 20 38 34 35 20 31 30 35 20 32 36 20 34 30 20 31 36 0a 20 38 34 ┆1 26 40 16 845 105 26 40 16 84┆
0x0fae0…0fb00 36 20 31 31 36 20 33 38 20 37 33 20 35 38 0a 20 38 34 37 20 31 32 39 20 38 36 20 31 30 30 20 31 ┆6 116 38 73 58 847 129 86 100 1┆
0x0fb00…0fb20 0a 20 38 34 38 20 31 34 34 20 33 33 20 31 38 20 36 35 20 36 31 20 33 37 0a 20 38 34 39 20 31 36 ┆ 848 144 33 18 65 61 37 849 16┆
0x0fb20…0fb40 31 20 33 38 20 37 33 20 35 38 0a 20 38 35 30 20 38 39 0a 20 38 35 31 20 39 30 20 38 31 20 36 35 ┆1 38 73 58 850 89 851 90 81 65┆
0x0fb40…0fb60 20 36 31 20 33 37 0a 20 38 35 32 20 39 33 20 39 30 20 38 31 20 36 35 20 36 31 20 33 37 0a 20 38 ┆ 61 37 852 93 90 81 65 61 37 8┆
0x0fb60…0fb80 35 33 20 39 38 20 31 34 35 0a 20 38 35 34 20 31 30 35 20 32 36 20 34 30 20 31 36 0a 20 38 35 35 ┆53 98 145 854 105 26 40 16 855┆
0x0fb80…0fba0 20 31 31 34 20 31 38 20 36 35 20 36 31 20 33 37 0a 20 38 35 36 20 31 32 35 20 33 30 20 39 20 38 ┆ 114 18 65 61 37 856 125 30 9 8┆
0x0fba0…0fbc0 31 20 36 35 20 36 31 20 33 37 0a 20 38 35 37 20 31 33 38 20 37 34 20 36 35 20 36 31 20 33 37 0a ┆1 65 61 37 857 138 74 65 61 37 ┆
0x0fbc0…0fbe0 20 38 35 38 20 31 35 33 20 33 35 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 38 35 39 20 ┆ 858 153 35 34 25 29 85 89 859 ┆
0x0fbe0…0fc00 31 37 30 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 38 36 30 20 31 30 30 20 31 0a 20 38 ┆170 50 25 29 85 89 860 100 1 8┆
0x0fc00…0fc20 36 31 20 31 30 31 20 32 20 34 0a 20 38 36 32 20 31 30 34 20 31 37 20 35 30 20 32 35 20 32 39 20 ┆61 101 2 4 862 104 17 50 25 29 ┆
0x0fc20…0fc40 38 35 20 38 39 0a 20 38 36 33 20 31 30 39 20 38 32 20 36 38 20 31 30 30 20 31 0a 20 38 36 34 20 ┆85 89 863 109 82 68 100 1 864 ┆
0x0fc40…0fc60 31 31 36 20 33 38 20 37 33 20 35 38 0a 20 38 36 35 20 31 32 35 20 33 30 20 39 20 38 31 20 36 35 ┆116 38 73 58 865 125 30 9 81 65┆
0x0fc60…0fc80 20 36 31 20 33 37 0a 20 38 36 36 20 31 33 36 20 34 36 20 35 32 20 32 39 20 38 35 20 38 39 0a 20 ┆ 61 37 866 136 46 52 29 85 89 ┆
0x0fc80…0fca0 38 36 37 20 31 34 39 20 39 38 20 31 34 35 0a 20 38 36 38 20 31 36 34 20 35 33 20 33 34 20 32 35 ┆867 149 98 145 868 164 53 34 25┆
0x0fca0…0fcc0 20 32 39 20 38 35 20 38 39 0a 20 38 36 39 20 31 38 31 20 36 36 20 37 32 20 35 33 20 33 34 20 32 ┆ 29 85 89 869 181 66 72 53 34 2┆
0x0fcc0…0fce0 35 20 32 39 20 38 35 20 38 39 0a 20 38 37 30 20 31 31 33 20 31 31 20 32 20 34 0a 20 38 37 31 20 ┆5 29 85 89 870 113 11 2 4 871 ┆
0x0fce0…0fd00 31 31 34 20 31 38 20 36 35 20 36 31 20 33 37 0a 20 38 37 32 20 31 31 37 20 35 31 20 32 36 20 34 ┆114 18 65 61 37 872 117 51 26 4┆
0x0fd00…16a00 […elided…]
0x16a00…16a20 30 20 20 20 38 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 34 36 ┆0 8 ; al w2 46┆
0x16a20…16a40 20 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 63 68 61 72 3d 73 70 61 63 65 0a 20 20 20 20 20 ┆ ; if char=space ┆
0x16a40…16a60 20 72 6c 2e 20 77 31 20 20 65 33 31 2e 20 20 20 20 20 20 20 3b 20 20 20 61 6e 64 20 63 6f 75 6e ┆ rl. w1 e31. ; and coun┆
0x16a60…16a80 74 3e 31 30 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2b 31 20 20 20 20 20 20 20 3b 20 ┆t>10 al w1 x1+1 ; ┆
0x16a80…16aa0 20 20 74 68 65 6e 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 73 2e 20 77 31 20 20 65 33 31 2e 20 ┆ then begin rs. w1 e31. ┆
0x16aa0…16ac0 20 20 20 20 20 20 3b 20 20 20 20 20 20 6f 75 74 74 65 78 74 20 28 63 75 72 20 6f 75 74 2c 3c 3a ┆ ; outtext (cur out,<:┆
0x16ac0…16ae0 2c 3c 31 30 3e 20 20 20 3a 3e 29 3b 0a 20 20 20 20 20 20 73 6e 20 20 77 32 20 20 33 32 20 20 20 ┆,<10> :>); sn w2 32 ┆
0x16ae0…16b00 20 20 20 20 20 20 3b 20 20 20 20 20 20 63 6f 75 6e 74 3a 3d 20 30 3b 0a 20 20 20 20 20 20 73 68 ┆ ; count:= 0; sh┆
0x16b00…16b20 20 20 77 31 20 20 31 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆ w1 10 ; end; ┆
0x16b20…16b40 6a 6c 2e 20 20 20 20 20 65 32 38 2e 20 20 20 20 20 20 20 3b 20 20 20 63 6f 75 6e 74 3a 3d 20 63 ┆jl. e28. ; count:= c┆
0x16b40…16b60 6f 75 6e 74 2b 31 3b 0a 0a 0c 0a 0a 3b 20 72 63 20 31 32 2e 30 37 2e 37 39 20 20 20 20 20 20 20 ┆ount+1; ; rc 12.07.79 ┆
0x16b60…16b80 20 20 20 20 20 20 20 66 69 6c 65 20 70 72 6f 63 65 73 73 6f 72 2c 20 6c 6f 61 64 2c 20 70 61 67 ┆ file processor, load, pag┆
0x16b80…16ba0 65 20 33 0a 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 20 30 20 20 20 20 20 20 20 20 20 3b 0a ┆e 3 al w1 0 ; ┆
0x16ba0…16bc0 20 20 20 20 20 20 72 73 2e 20 77 31 20 20 65 33 31 2e 20 20 20 20 20 20 20 3b 20 20 20 6f 75 74 ┆ rs. w1 e31. ; out┆
0x16bc0…16be0 63 68 61 72 20 28 63 75 72 20 6f 75 74 2c 20 63 68 61 72 29 3b 0a 20 20 20 20 20 20 61 6c 2e 20 ┆char (cur out, char); al. ┆
0x16be0…16c00 77 30 20 20 65 33 37 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 68 ┆w0 e37. ; jl. w3 h┆
0x16c00…16c20 33 31 2e 2d 32 20 20 20 20 20 3b 20 20 20 69 66 20 6b 69 6e 64 2e 70 61 72 61 6d 3d 31 30 0a 65 ┆31.-2 ; if kind.param=10 e┆
0x16c20…16c40 32 38 3a 20 20 6a 6c 2e 20 77 33 20 20 68 32 36 2e 2d 32 20 20 20 20 20 3b 20 20 20 74 68 65 6e ┆28: jl. w3 h26.-2 ; then┆
0x16c40…16c60 0a 20 20 20 20 20 20 64 6c 2e 20 77 32 20 20 65 33 34 2e 20 20 20 20 20 20 20 3b 20 20 20 6f 75 ┆ dl. w2 e34. ; ou┆
0x16c60…16c80 74 74 65 78 74 20 28 63 75 72 20 6f 75 74 2c 70 61 72 61 6d 20 6e 61 6d 65 29 0a 20 20 20 20 20 ┆ttext (cur out,param name) ┆
0x16c80…16ca0 20 61 6c 2e 20 77 33 20 20 65 32 39 2e 20 20 20 20 20 20 20 3b 20 20 20 65 6c 73 65 0a 20 20 20 ┆ al. w3 e29. ; else ┆
0x16ca0…16cc0 20 20 20 61 6c 20 20 77 30 20 20 78 32 2b 32 20 20 20 20 20 20 20 3b 20 20 20 6f 75 74 69 6e 74 ┆ al w0 x2+2 ; outint┆
0x16cc0…16ce0 65 67 65 72 20 28 63 75 72 20 6f 75 74 2c 0a 20 20 20 20 20 20 73 6e 20 20 77 31 20 20 31 30 20 ┆eger (cur out, sn w1 10 ┆
0x16ce0…16d00 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 3c 3c 64 3e 2c 70 61 72 61 6d 20 ┆ ; <<d>,param ┆
0x16d00…16d20 69 6e 74 65 67 65 72 29 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 68 33 31 2e 2d 32 20 20 ┆integer); jl. h31.-2 ┆
0x16d20…16d40 20 20 20 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 32 2b 32 20 20 20 20 20 20 20 3b 0a ┆ ; rl w0 x2+2 ; ┆
0x16d40…16d60 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 68 33 32 2e 2d 32 20 20 20 20 20 3b 0a 20 20 20 20 20 ┆ jl. w3 h32.-2 ; ┆
0x16d60…16d80 20 30 3c 32 33 20 2b 20 33 32 3c 31 32 20 2b 20 31 20 20 20 3b 0a 65 32 39 3a 20 20 64 6c 2e 20 ┆ 0<23 + 32<12 + 1 ; e29: dl. ┆
0x16d80…16da0 77 32 20 20 65 33 34 2e 20 20 20 20 20 20 20 3b 20 74 61 6b 65 20 6e 65 78 74 20 70 61 72 61 6d ┆w2 e34. ; take next param┆
0x16da0…16dc0 3a 0a 20 20 20 20 20 20 77 61 20 20 77 32 20 20 20 32 20 20 20 20 20 20 20 20 20 3b 20 20 20 70 ┆: wa w2 2 ; p┆
0x16dc0…16de0 61 72 61 6d 20 70 6f 69 6e 74 65 72 3a 3d 20 70 6f 69 6e 74 65 72 2b 73 69 7a 65 3b 0a 20 20 20 ┆aram pointer:= pointer+size; ┆
0x16de0…16e00 20 20 20 62 6c 20 20 77 30 20 20 78 32 2b 30 20 20 20 20 20 20 20 3b 20 20 20 73 65 70 61 72 61 ┆ bl w0 x2+0 ; separa┆
0x16e00…16e20 74 6f 72 3a 3d 20 6e 65 77 20 73 65 70 61 72 61 74 6f 72 3b 0a 20 20 20 20 20 20 62 7a 20 20 77 ┆tor:= new separator; bz w┆
0x16e20…16e40 31 20 20 78 32 2b 31 20 20 20 20 20 20 20 3b 20 20 20 6b 69 6e 64 3a 3d 20 6e 65 77 20 6b 69 6e ┆1 x2+1 ; kind:= new kin┆
0x16e40…16e60 64 3b 0a 20 20 20 20 20 20 73 6c 20 20 77 30 20 20 20 34 20 20 20 20 20 20 20 20 20 3b 20 20 20 ┆d; sl w0 4 ; ┆
0x16e60…16e80 69 66 20 73 65 70 61 72 61 74 6f 72 20 3e 20 33 20 74 68 65 6e 0a 20 20 20 20 20 20 6a 6c 2e 20 ┆if separator > 3 then jl. ┆
0x16e80…16ea0 20 20 20 20 65 32 37 2e 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 70 72 69 6e 74 20 70 61 ┆ e27. ; goto print pa┆
0x16ea0…16ec0 72 61 6d 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 68 33 39 2e 20 20 20 20 20 20 20 3b 0a ┆ram; jl. w3 h39. ; ┆
0x16ec0…16ee0 20 20 20 20 20 20 64 6c 2e 20 77 33 20 20 65 33 36 2e 20 20 20 20 20 20 20 3b 20 20 20 6f 75 74 ┆ dl. w3 e36. ; out┆
0x16ee0…16f00 65 6e 64 20 28 63 75 72 20 6f 75 74 2c 6e 65 77 20 6c 69 6e 65 29 3b 0a 20 20 20 20 20 20 6a 6c ┆end (cur out,new line); jl┆
0x16f00…16f20 20 20 20 20 20 20 78 33 20 20 20 20 20 20 20 20 20 3b 20 20 20 72 65 74 75 72 6e 3b 0a 0a 65 33 ┆ x3 ; return; e3┆
0x16f20…16f40 37 3a 20 20 3c 3a 2c 3c 31 30 3e 20 20 3a 3e 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 6c 69 73 ┆7: <:,<10> :> ; end lis┆
0x16f40…16f60 74 3b 0a 65 33 38 3a 20 20 3c 3a 2a 2a 2a 66 70 20 6e 61 6d 65 3c 33 32 3e 3c 30 3e 3a 3e 20 20 ┆t; e38: <:***fp name<32><0>:> ┆
0x16f60…16f80 20 20 3b 20 6e 6f 74 20 66 6f 75 6e 64 20 69 6e 20 63 61 74 61 6c 6f 67 0a 65 33 39 3a 20 20 3c ┆ ; not found in catalog e39: <┆
0x16f80…16fa0 3a 2a 2a 2a 66 70 20 63 6f 6e 6e 65 63 74 3c 33 32 3e 3c 30 3e 3a 3e 20 3b 20 69 6f 20 74 72 6f ┆:***fp connect<32><0>:> ; io tro┆
0x16fa0…16fc0 75 62 6c 65 20 64 75 72 69 6e 67 20 63 6f 6e 6e 65 63 74 69 6f 6e 0a 65 34 30 3a 20 20 3c 3a 2a ┆uble during connection e40: <:*┆
0x16fc0…16fe0 2a 2a 66 70 20 73 69 7a 65 3c 33 32 3e 3c 30 3e 3a 3e 20 20 20 20 3b 20 70 72 6f 67 72 61 6d 20 ┆**fp size<32><0>:> ; program ┆
0x16fe0…17000 74 6f 20 62 69 67 0a 65 34 31 3a 20 20 3c 3a 2a 2a 2a 66 70 20 63 61 6c 6c 3c 33 32 3e 3c 30 3e ┆to big e41: <:***fp call<32><0>┆
0x17000…17020 3a 3e 20 20 20 20 3b 20 63 61 6c 6c 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 65 72 72 6f 72 0a 0a 0a ┆:> ; call convention error ┆
0x17020…17040 65 34 34 3a 20 20 73 6e 20 20 77 30 20 20 20 33 20 20 20 20 20 20 20 20 20 3b 20 63 6f 6e 6e 65 ┆e44: sn w0 3 ; conne┆
0x17040…17060 63 74 20 74 72 6f 75 62 6c 65 3a 0a 20 20 20 20 20 20 61 6d 20 20 20 20 65 33 38 2d 65 33 39 20 ┆ct trouble: am e38-e39 ┆
0x17060…17080 20 20 20 20 20 3b 20 20 20 74 65 78 74 3a 3d 20 69 66 20 72 65 73 75 6c 74 20 3c 3e 20 33 20 74 ┆ ; text:= if result <> 3 t┆
0x17080…170a0 68 65 6e 20 3c 6e 61 6d 65 3e 0a 20 20 20 20 20 20 61 6d 20 20 20 20 65 33 39 2d 65 34 30 20 20 ┆hen <name> am e39-e40 ┆
0x170a0…170c0 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 20 20 20 20 3c 63 6f 6e 6e 65 63 74 ┆ ; else <connect┆
0x170c0…170e0 3e 0a 65 34 36 3a 20 20 61 6d 20 20 20 20 65 34 30 2d 65 34 31 20 20 20 20 20 20 3b 20 73 69 7a ┆> e46: am e40-e41 ; siz┆
0x170e0…17100 65 20 74 72 6f 75 62 6c 65 3a 20 6f 72 20 20 3c 73 69 7a 65 3e 0a 65 34 37 3a 20 20 61 6c 2e 20 ┆e trouble: or <size> e47: al. ┆
0x17100…17120 77 30 20 20 65 34 31 2e 20 20 20 20 20 20 20 3b 20 63 61 6c 6c 20 74 72 6f 75 62 6c 65 3a 20 6f ┆w0 e41. ; call trouble: o┆
0x17120…17140 72 20 20 3c 63 61 6c 6c 3e 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 68 33 31 2e 2d 32 20 ┆r <call>; jl. w3 h31.-2 ┆
0x17140…17160 20 20 20 20 3b 20 20 20 6f 75 74 74 65 78 74 20 28 63 75 72 20 6f 75 74 2c 20 74 65 78 74 29 3b ┆ ; outtext (cur out, text);┆
0x17160…17180 0a 20 20 20 20 20 20 72 6c 2e 20 77 33 20 20 65 31 32 2e 20 20 20 20 20 20 20 3b 20 20 20 6f 75 ┆ rl. w3 e12. ; ou┆
0x17180…171a0 74 74 65 78 74 28 63 75 72 72 20 6f 75 74 2c 70 72 6f 67 2e 6e 61 6d 65 29 3b 0a 20 20 20 20 20 ┆ttext(curr out,prog.name); ┆
0x171a0…171c0 20 61 6c 20 20 77 30 20 20 78 33 2b 32 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 ┆ al w0 x3+2 ; jl. ┆
0x171c0…171e0 77 33 20 20 68 33 31 2e 2d 32 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 68 ┆w3 h31.-2 ; jl. w3 h┆
0x171e0…17200 33 39 2e 20 20 20 20 20 20 20 3b 20 20 20 6f 75 74 65 6e 64 20 28 63 75 72 20 6f 75 74 2c 20 6e ┆39. ; outend (cur out, n┆
0x17200…17220 65 77 20 6c 69 6e 65 29 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 20 33 20 20 20 20 20 20 ┆ew line); al w2 3 ┆
0x17220…17240 20 20 20 3b 20 20 20 77 61 72 6e 69 6e 67 3a 3d 74 72 75 65 3b 20 6f 6b 3a 3d 20 66 61 6c 73 65 ┆ ; warning:=true; ok:= false┆
0x17240…17260 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 68 37 2e 20 20 20 20 20 20 20 20 3b 20 20 20 67 ┆; jl. h7. ; g┆
0x17260…17280 6f 74 6f 20 65 6e 64 20 70 72 6f 67 72 61 6d 3b 0a 65 34 3a 20 20 20 30 20 20 20 20 20 20 20 20 ┆oto end program; e4: 0 ┆
0x17280…172a0 20 20 20 20 20 20 20 20 20 20 3b 20 6f 77 6e 20 66 69 6c 65 64 65 73 63 72 69 70 74 6f 72 3a 20 ┆ ; own filedescriptor: ┆
0x172a0…172c0 6d 6f 64 65 2e 6b 69 6e 64 0a 65 39 3d 65 34 2b 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆mode.kind e9=e4+1 ┆
0x172c0…172e0 20 20 20 3b 20 20 20 6d 6f 64 65 0a 20 20 20 20 20 20 30 2c 72 2e 37 0a 65 35 3a 20 20 20 30 20 ┆ ; mode 0,r.7 e5: 0 ┆
0x172e0…17300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 63 6f 6e 74 65 6e 74 0a 65 36 3d ┆ ; content e6=┆
0x17300…17320 65 35 2b 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 65 6e 74 72 79 0a ┆e5+1 ; entry ┆
0x17320…17340 65 37 3a 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 6c 65 6e ┆e7: 0 ; len┆
0x17340…17360 67 74 68 0a 65 31 32 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 ┆gth e12: 0 ; ┆
0x17360…17380 20 62 61 73 65 20 6f 66 20 6c 6f 61 64 65 72 20 6e 61 6d 65 20 6f 72 20 70 72 6f 67 20 6e 61 6d ┆ base of loader name or prog nam┆
0x17380…173a0 65 20 70 61 72 61 6d 0a 20 20 20 20 20 20 3c 3a 73 79 73 6c 64 72 3a 3e 20 20 20 20 20 20 20 20 ┆e param <:sysldr:> ┆
0x173a0…173c0 20 3b 20 20 20 73 70 61 63 65 20 66 6f 72 20 6c 6f 61 64 65 72 20 6e 61 6d 65 0a 20 20 20 20 20 ┆ ; space for loader name ┆
0x173c0…173e0 20 30 2c 72 2e 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 73 70 61 63 65 20 66 6f ┆ 0,r.2 ; space fo┆
0x173e0…17400 72 20 6e 75 6d 62 65 72 20 70 61 72 74 20 6f 66 20 6c 6f 61 64 65 72 20 6e 61 6d 65 0a 65 31 33 ┆r number part of loader name e13┆
0x17400…17420 3d 65 31 32 2b 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 61 64 64 72 65 73 ┆=e12+6 ; addres┆
0x17420…17440 73 20 6f 66 20 6e 75 6d 62 65 72 20 70 61 72 74 20 6f 66 20 6c 6f 61 64 65 72 20 6e 61 6d 65 0a ┆s of number part of loader name ┆
0x17440…17460 0a 0a 62 2e 20 20 20 20 67 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 62 65 67 ┆ b. g1 ; beg┆
0x17460…17480 69 6e 0a 67 31 3d 20 20 28 3a 68 35 35 2b 35 31 32 2d 6b 3a 29 2f 32 20 20 20 20 20 3b 20 66 69 ┆in g1= (:h55+512-k:)/2 ; fi┆
0x17480…174a0 6c 6c 20 75 70 20 73 65 67 6d 65 6e 74 20 74 6f 20 35 31 32 20 62 79 74 65 73 3b 0a 63 2e 20 20 ┆ll up segment to 512 bytes; c. ┆
0x174a0…174c0 20 2d 67 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 2e 6c 65 6e 67 74 68 20 65 72 ┆ -g1 m.length er┆
0x174c0…174e0 72 6f 72 20 6f 6e 20 66 70 20 73 65 67 6d 65 6e 74 20 31 33 0a 7a 2e 77 2e 20 20 30 2c 20 72 2e ┆ror on fp segment 13 z.w. 0, r.┆
0x174e0…17500 67 31 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 7a 65 72 6f 20 66 69 6c 6c 0a 65 2e 20 20 20 20 ┆g1 ; zero fill e. ┆
0x17500…17520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 66 69 6c 6c 20 75 70 ┆ ; end fill up┆
0x17520…17540 3b 0a 0a 6d 2e 66 70 20 70 72 6f 67 72 61 6d 20 6c 6f 61 64 20 31 32 2e 30 37 2e 37 39 0a 69 2e ┆; m.fp program load 12.07.79 i.┆
0x17540…17560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6d 61 79 62 65 20 6e ┆ ; maybe n┆
0x17560…17580 61 6d 65 73 0a 65 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆ames e. ; ┆
0x17580…175a0 65 6e 64 20 6c 6f 61 64 3b 0a 0a 0c 0a 3b 20 72 63 20 30 39 2e 30 33 2e 37 33 20 20 20 20 20 20 ┆end load; ; rc 09.03.73 ┆
0x175a0…175c0 20 20 20 20 20 20 20 66 69 6c 65 20 70 72 6f 63 65 73 73 6f 72 2c 20 65 6e 64 20 70 72 6f 67 72 ┆ file processor, end progr┆
0x175c0…175e0 61 6d 2c 20 70 61 67 65 20 31 0a 0a 3b 74 68 69 73 20 73 65 67 6d 65 6e 74 20 69 73 20 65 6e 74 ┆am, page 1 ;this segment is ent┆
0x175e0…17600 65 72 65 64 20 77 68 65 6e 20 61 20 75 74 69 6c 69 74 79 20 70 72 6f 67 72 61 6d 20 74 65 72 6d ┆ered when a utility program term┆
0x17600…17620 69 6e 61 74 65 73 20 62 79 0a 3b 65 6e 74 65 72 69 6e 67 20 65 6e 64 20 70 72 6f 67 72 61 6d 20 ┆inates by ;entering end program ┆
0x17620…17640 65 6e 74 72 79 20 68 37 2e 20 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 74 6f 20 73 74 ┆entry h7. the function is to st┆
0x17640…17660 6f 70 20 74 68 65 0a 3b 63 75 72 72 65 6e 74 20 6f 75 74 20 7a 6f 6e 65 2c 20 74 6f 20 73 65 74 ┆op the ;current out zone, to set┆
0x17660…17680 20 74 68 65 20 6f 6b 20 62 69 74 20 61 6e 64 20 74 6f 20 72 65 6d 6f 76 65 20 73 75 2d 0a 3b 70 ┆ the ok bit and to remove su- ;p┆
0x17680…176a0 65 72 66 6c 75 6f 73 20 61 72 65 61 20 70 72 6f 63 65 73 73 65 73 20 61 6e 64 20 6d 65 73 73 61 ┆erfluos area processes and messa┆
0x176a0…176c0 67 65 73 20 62 75 66 66 65 72 73 2e 0a 3b 74 68 65 20 73 65 67 6d 65 6e 74 20 63 61 6c 6c 73 20 ┆ges buffers. ;the segment calls ┆
0x176c0…176e0 65 69 74 68 65 72 20 74 68 65 20 6c 6f 61 64 20 70 72 6f 67 72 61 6d 20 73 65 67 6d 65 6e 74 2c ┆either the load program segment,┆
0x176e0…17700 20 74 68 65 20 64 65 76 69 63 65 0a 3b 73 74 61 74 75 73 20 73 65 67 6d 65 6e 74 20 6f 72 20 74 ┆ the device ;status segment or t┆
0x17700…17720 68 65 20 62 72 65 61 6b 20 61 63 74 69 6f 6e 2e 0a 3b 69 66 20 6c 6f 61 64 20 70 72 6f 67 72 61 ┆he break action. ;if load progra┆
0x17720…17740 6d 20 69 73 20 65 6e 74 65 72 65 64 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 6e 20 7a 6f 6e 65 ┆m is entered the current in zone┆
0x17740…17760 20 77 69 6c 6c 20 62 65 66 6f 72 65 20 62 65 0a 3b 75 6e 73 74 61 63 6b 65 64 20 74 6f 20 74 68 ┆ will before be ;unstacked to th┆
0x17760…17780 65 20 66 69 72 73 74 20 69 2d 62 69 74 2e 0a 3b 69 66 20 64 65 76 69 63 65 20 73 74 61 74 75 73 ┆e first i-bit. ;if device status┆
0x17780…177a0 20 69 73 20 65 6e 74 65 72 65 64 20 74 68 65 20 63 75 72 72 65 6e 74 20 7a 6f 6e 65 20 69 73 20 ┆ is entered the current zone is ┆
0x177a0…177c0 75 6e 73 74 61 63 6b 65 64 20 74 6f 0a 3b 74 68 65 20 69 2d 62 69 74 20 75 6e 6c 65 73 73 20 74 ┆unstacked to ;the i-bit unless t┆
0x177c0…177e0 68 65 72 65 20 69 73 20 68 61 72 64 20 65 72 72 6f 72 20 6f 6e 20 74 68 65 20 73 74 61 63 6b 65 ┆here is hard error on the stacke┆
0x177e0…17800 64 20 63 75 72 72 20 69 6e 0a 3b 7a 6f 6e 65 2e 0a 3b 69 6e 20 63 61 73 65 20 6f 66 20 68 61 72 ┆d curr in ;zone. ;in case of har┆
0x17800…17820 64 20 65 72 72 6f 72 20 6f 6e 20 63 75 72 72 65 6e 74 20 6f 75 74 20 6f 72 20 6f 6e 20 61 20 63 ┆d error on current out or on a c┆
0x17820…17840 75 72 72 20 69 6e 20 7a 6f 6e 65 0a 3b 77 69 74 68 20 69 2d 62 69 74 20 74 68 65 20 63 75 72 72 ┆urr in zone ;with i-bit the curr┆
0x17840…17860 65 6e 74 20 6f 75 74 20 7a 6f 6e 65 20 69 73 20 63 6f 6e 6e 65 63 74 65 64 20 74 6f 20 70 72 69 ┆ent out zone is connected to pri┆
0x17860…17880 6d 61 72 79 20 6f 75 74 2e 0a 3b 69 66 20 74 68 69 73 20 69 73 20 69 6d 70 6f 73 73 69 62 6c 65 ┆mary out. ;if this is impossible┆
0x17880…178a0 20 74 68 65 20 62 72 65 61 6b 20 61 63 74 69 6f 6e 20 69 73 20 65 6e 74 65 72 65 64 2e 0a 0a 0a ┆ the break action is entered. ┆
0x178a0…178c0 73 2e 20 6b 3d 68 35 35 2c 20 61 38 2c 20 65 37 2c 20 66 37 0a 77 2e 0a 20 20 20 20 20 20 35 31 ┆s. k=h55, a8, e7, f7 w. 51┆
0x178c0…178e0 32 0a 20 20 20 20 20 20 61 6c 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 74 ┆2 al w0 0 ; ent┆
0x178e0…17900 72 79 3a 0a 20 20 20 20 20 20 61 6c 2e 20 77 33 20 20 68 31 30 2e 20 20 20 20 20 20 20 3b 20 20 ┆ry: al. w3 h10. ; ┆
0x17900…17920 20 73 65 74 20 69 6e 74 65 72 72 75 70 74 3b 0a 20 20 20 20 20 20 6a 64 20 20 20 20 20 20 31 3c ┆ set interrupt; jd 1<┆
0x17920…17940 31 31 2b 30 20 20 20 20 20 3b 0a 0a 20 20 20 20 20 20 61 6c 2e 20 77 33 20 20 68 36 38 2e 20 20 ┆11+0 ; al. w3 h68. ┆
0x17940…17960 20 20 20 20 20 3b 20 72 65 73 74 6f 72 65 20 67 69 76 65 20 75 70 20 61 63 74 69 6f 6e 20 69 6e ┆ ; restore give up action in┆
0x17960…17980 3a 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 30 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 ┆: al w2 0 ; ┆
0x17980…179a0 20 20 20 72 73 2e 20 77 33 20 20 68 31 39 2e 2b 68 32 2b 32 20 20 3b 20 20 20 70 72 6f 67 72 61 ┆ rs. w3 h19.+h2+2 ; progra┆
0x179a0…179c0 6d 20 7a 6f 6e 65 3b 0a 20 20 20 20 20 20 72 73 2e 20 77 33 20 20 68 32 30 2e 2b 68 32 2b 32 20 ┆m zone; rs. w3 h20.+h2+2 ┆
0x179c0…179e0 20 3b 20 20 20 63 75 72 72 20 69 6e 20 7a 6f 6e 65 3b 0a 20 20 20 20 20 20 64 73 2e 20 77 33 20 ┆ ; curr in zone; ds. w3 ┆
0x179e0…17a00 20 68 32 31 2e 2b 68 32 2b 32 20 20 3b 20 20 20 63 75 72 72 20 6f 75 74 20 7a 6f 6e 65 3b 20 67 ┆ h21.+h2+2 ; curr out zone; g┆