|
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: 48384 (0xbd00)
Types: Rc489kSubCat
Names: »hcøplib«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »hcøplib«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »hcøplib«
0x0000…0033 Rc489kSubCatEnt {f00=0x001b12, f01=0x0007e4, f02=0x0007ed, filename=»pblockiopr «, entry_tail=0-4-0-1-1980-12-02T08:34-disc1-0x0-0x0-0x0-0x0}
0x0033…0066 Rc489kSubCatEnt {f00=0x00275a, f01=0x0007e4, f02=0x0007ed, filename=»pprocrec «, entry_tail=0-4-0-5-1980-11-28T11:56-disc1-0x0-0x0-0x0-0x0}
0x0066…0099 Rc489kSubCatEnt {f00=0x0070f2, f01=0x0007e4, f02=0x0007ed, filename=»precord «, entry_tail=0-4-0-1-1980-12-02T08:07-disc1-0x0-0x0-0x0-0x0}
0x0099…00cc Rc489kSubCatEnt {f00=0x008baa, f01=0x0007e4, f02=0x0007ed, filename=»pblockiorec «, entry_tail=0-4-0-1-1980-12-02T07:57-disc1-0x0-0x0-0x0-0x0}
0x00cc…00ff Rc489kSubCatEnt {f00=0x009cda, f01=0x0007e4, f02=0x0007ed, filename=»ptextline «, entry_tail=0-4-0-1-1980-12-01T12:44-disc1-0x0-0x0-0x0-0x0}
0x00ff…0132 Rc489kSubCatEnt {f00=0x00a48a, f01=0x0007e4, f02=0x0007ed, filename=»ttextline «, entry_tail=0-4-0-1-1980-12-01T12:38-disc1-0x0-0x0-0x0-0x0}
0x0132…0165 Rc489kSubCatEnt {f00=0x00bb5a, f01=0x0007e4, f02=0x0007ed, filename=»treadtextl «, entry_tail=0-4-0-1-1980-12-01T10:20-disc1-0x0-0x0-0x0-0x0}
0x0165…0198 Rc489kSubCatEnt {f00=0x00c412, f01=0x0007e4, f02=0x0007ed, filename=»preadtextl «, entry_tail=0-4-0-1-1980-12-01T10:58-disc1-0x0-0x0-0x0-0x0}
0x0198…01cb Rc489kSubCatEnt {f00=0x00dd1a, f01=0x0007e4, f02=0x0007ed, filename=»pwrbinary «, entry_tail=0-4-0-1-1980-11-28T12:57-disc1-0x0-0x0-0x0-0x0}
0x01cb…01fe Rc489kSubCatEnt {f00=0x00e36b, f01=0x0007e4, f02=0x0007ed, filename=»ptestmonr «, entry_tail=0-4-0-1-1980-11-27T15:25-disc1-0x0-0x0-0x0-0x0}
0x01fe…0200 53 cf ┆S ┆
0x0200…0220 50 34 30 b0 2d 8f 74 b4 cf 70 37 80 f6 b4 01 00 34 8f ba 34 8f b0 51 2f e0 0b 10 06 b4 00 24 34 ┆P40 - t p7 4 4 Q/ $4┆
0x0220…0240 80 1e b7 00 07 af 00 0e 34 80 44 b4 cf 62 34 80 d0 b4 cf 52 34 80 7a b4 00 40 34 8f 94 b4 cf 58 ┆ 4 D b4 R4 z @4 X┆
0x0240…0260 34 80 2a 2d 8f 56 37 80 ce 34 80 10 b7 00 07 34 80 04 34 8f 86 b0 00 20 34 80 06 2d 8f 4e 37 80 ┆4 *- V7 4 4 4 4 - N7 ┆
0x0260…0280 be 2f 2f e8 38 08 06 a4 00 02 34 8f f6 a8 00 00 34 8f 70 2c 00 0e 2d 0f 66 69 80 1f 34 80 24 53 ┆ // 8 4 4 p, - fi 4 $S┆
0x0280…02a0 ce fa 50 30 16 a8 00 00 34 80 42 34 8f f0 2d 0f 4e 69 80 0f d8 2f f4 51 ce ea af 50 1a a8 50 1c ┆ P0 4 B4 - Ni / Q P P ┆
0x02a0…02c0 34 80 06 51 2f e0 34 80 00 2d 00 06 dc 8e ea 2c 00 08 98 00 0c dd 8e e0 2d 8e dc 2f 2f e8 38 08 ┆4 Q/ 4 - , - // 8 ┆
0x02c0…02e0 10 51 ce ce 2d 10 14 38 08 12 2e 30 18 2f 00 01 9b 40 00 2c 30 00 b4 00 24 34 8f 7e 14 10 00 5c ┆ Q - 8 .0 / @ ,0 $4 ü Ø┆
0x02e0…02fd 10 00 b4 ce fc 34 8f 22 34 8f c8 53 ce b2 50 30 28 a4 00 05 34 8f 18 48 80 01 5c 30 28 ┆ 4 "4 S P0( 4 H Ø0(┆
0x02fd…0300 0x00000a
0x0300…0600 Data for pblockiopr
0x0600…1500 Data for pprocrec
0x1500…1800 Data for precord
0x1800…1b00 Data for pblockiorec
0x1b00…1e00 Data for ptextline
0x1e00…2100 Data for ttextline
0x2100…2400 Data for treadtextl
0x2400…2700 Data for preadtextl
0x2700…2a00 Data for pwrbinary
0x2a00…2d00 Data for ptestmonr
0x2d00…2d20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 78 28 63 61 72 72 79 29 3a 3d 65 78 28 6f 76 65 ┆ ; ex(carry):=ex(ove┆
0x2d20…2d40 72 66 6c 6f 77 29 3a 3d 30 2e 0a 20 38 36 30 20 30 34 38 32 20 30 37 34 32 20 20 20 20 20 20 20 ┆rflow):=0. 860 0482 0742 ┆
0x2d40…2d60 20 20 6a 73 62 28 67 65 74 6f 70 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ jsb(getop) ┆
0x2d60…2d80 3b 20 63 61 6c 6c 28 67 65 74 6f 70 29 2e 0a 20 38 36 31 20 30 34 38 33 20 30 37 34 33 20 20 20 ┆; call(getop). 861 0483 0743 ┆
0x2d80…2da0 20 20 20 20 20 20 6a 6d 70 28 63 63 6f 77 63 29 20 73 75 62 28 77 72 65 67 2c 77 72 6b 30 29 20 ┆ jmp(ccowc) sub(wreg,wrk0) ┆
0x2da0…2dc0 20 20 20 20 3b 20 77 5f 72 65 67 28 69 6e 64 65 78 29 20 3a 3d 20 77 5f 72 65 67 28 69 6e 64 65 ┆ ; w_reg(index) := w_reg(inde┆
0x2dc0…2de0 78 29 20 2d 0a 20 38 36 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆x) - 862 ┆
0x2de0…2e00 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 3b 20 77 72 6b 30 ┆ ; wrk0┆
0x2e00…2e20 2c 20 67 6f 74 6f 20 63 63 6f 77 63 2e 0a 20 38 36 33 20 20 20 20 20 20 20 20 20 20 20 0a 20 38 ┆, goto ccowc. 863 8┆
0x2e20…2e40 36 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 73 74 72 75 63 74 69 ┆64 ; instructi┆
0x2e40…2e60 6f 6e 20 69 6e 74 65 67 65 72 20 77 6f 72 64 2c 20 6d 75 6c 74 69 70 6c 79 3a 20 27 77 6d 27 2c ┆on integer word, multiply: 'wm',┆
0x2e60…2e80 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 31 30 2e 0a 20 38 36 35 20 20 20 20 20 20 20 20 20 20 ┆ numeric code 10. 865 ┆
0x2e80…2ea0 20 20 20 20 20 20 20 20 20 3b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ; ---------------------┆
0x2ea0…2ec0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2ec0…2ee0 2d 2d 2d 2d 2d 0a 20 38 36 36 20 30 34 38 34 20 30 37 34 34 20 77 6d 2f 31 30 3a 20 20 6a 73 62 ┆----- 866 0484 0744 wm/10: jsb┆
0x2ee0…2f00 28 67 65 74 6f 70 29 20 73 6d 6f 76 65 28 71 2c 77 72 65 67 29 20 20 20 20 20 20 3b 20 63 61 6c ┆(getop) smove(q,wreg) ; cal┆
0x2f00…2f20 6c 20 67 65 74 6f 70 2c 20 71 20 3a 3d 20 77 72 65 67 28 69 6e 64 65 78 29 2e 0a 20 38 36 37 20 ┆l getop, q := wreg(index). 867 ┆
0x2f20…2f40 30 34 38 35 20 30 37 34 35 20 20 20 20 20 20 20 20 20 6c 63 70 75 28 32 32 29 20 6d 7a 65 72 6f ┆0485 0745 lcpu(22) mzero┆
0x2f40…2f60 28 77 72 6b 32 29 20 20 20 20 20 20 20 20 20 20 3b 20 70 75 73 68 20 6e 65 78 74 20 6d 69 63 72 ┆(wrk2) ; push next micr┆
0x2f60…2f80 6f 20 69 6e 73 74 72 20 74 6f 20 73 74 61 63 6b 0a 20 38 36 38 20 20 20 20 20 20 20 20 20 20 20 ┆o instr to stack 868 ┆
0x2f80…2fa0 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 ┆ ┆
0x2fa0…2fc0 20 20 20 20 20 20 3b 20 6d 69 63 2e 20 73 65 6b 76 2e 20 63 6f 75 6e 74 65 72 20 3a 3d 20 32 33 ┆ ; mic. sekv. counter := 23┆
0x2fc0…2fe0 2c 0a 20 38 36 39 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 ┆, 869 ┆
0x2fe0…3000 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 77 72 6b 32 20 3a 3d ┆ ; wrk2 :=┆
0x3000…3020 20 30 2e 0a 20 38 37 30 20 30 34 38 36 20 30 37 34 36 20 20 20 20 20 20 20 20 20 72 65 70 20 6d ┆ 0. 870 0486 0746 rep m┆
0x3020…3040 75 6c 74 32 63 28 77 72 6b 32 2c 77 72 6b 30 29 20 20 64 73 68 69 6e 7a 20 3b 20 0a 20 38 37 31 ┆ult2c(wrk2,wrk0) dshinz ; 871┆
0x3040…3060 20 30 34 38 37 20 30 37 34 37 20 20 20 20 20 20 20 20 20 6d 75 6c 74 32 6c 28 77 72 6b 32 2c 77 ┆ 0487 0747 mult2l(wrk2,w┆
0x3060…3080 72 6b 30 29 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 38 37 32 20 30 34 38 38 20 30 37 35 ┆rk0) ; 872 0488 075┆
0x3080…30a0 30 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 77 70 72 65 2c 77 72 6b 32 29 20 20 6e 6f 74 68 6d ┆0 move(wpre,wrk2) nothm┆
0x30a0…30c0 20 63 73 6d 79 20 73 68 69 6e 7a 3b 20 77 72 65 67 28 69 6e 64 65 78 29 20 3a 3d 20 77 72 6b 32 ┆ csmy shinz; wreg(index) := wrk2┆
0x30c0…30e0 2e 0a 20 38 37 33 20 30 34 38 39 20 30 37 35 31 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 66 6e ┆. 873 0489 0751 jmp(pfn┆
0x30e0…3100 65 69 63 29 20 73 6d 6f 76 65 28 77 72 65 67 2c 71 29 20 20 20 20 20 3b 20 67 6f 74 6f 20 70 66 ┆eic) smove(wreg,q) ; goto pf┆
0x3100…3120 6e 65 69 63 2c 20 77 72 65 67 28 69 6e 64 65 78 2d 31 29 20 3a 3d 20 71 2e 0a 20 39 32 31 20 20 ┆neic, wreg(index-1) := q. 921 ┆
0x3120…3140 20 20 20 20 20 20 20 20 20 0a 20 39 32 32 20 20 20 20 20 20 20 20 20 20 20 0a 20 39 32 33 20 20 ┆ 922 923 ┆
0x3140…3160 20 20 20 20 20 20 20 20 20 0a 20 39 32 34 20 20 20 20 20 20 20 20 20 20 20 0a 20 39 32 35 20 20 ┆ 924 925 ┆
0x3160…3180 20 20 20 20 20 20 20 20 20 0a 20 39 32 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 926 ┆
0x3180…31a0 20 3b 20 69 6e 74 65 67 65 72 20 64 6f 75 62 6c 65 20 77 6f 72 64 20 61 72 69 74 68 6d 65 74 69 ┆ ; integer double word arithmeti┆
0x31a0…31c0 63 2e 0a 20 39 32 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 2d 2d 2d 2d ┆c. 927 ; ----┆
0x31c0…31e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 39 32 38 ┆--------------------------- 928┆
0x31e0…3200 20 20 20 20 20 20 20 20 20 20 20 0a 20 39 32 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 929 ┆
0x3200…3220 20 20 20 3b 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 69 6e 74 65 67 65 72 20 64 6f 75 62 6c 65 20 ┆ ; instruction integer double ┆
0x3220…3240 77 6f 72 64 2c 20 61 64 64 3a 20 27 61 61 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 35 36 ┆word, add: 'aa', numeric code 56┆
0x3240…3260 2e 0a 20 39 33 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 2d 2d 2d 2d 2d ┆. 930 ; -----┆
0x3260…3280 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x3280…32a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 39 33 31 20 30 34 39 ┆----------------------- 931 049┆
0x32a0…32c0 30 20 30 37 35 32 20 61 61 2f 35 36 3a 20 20 61 6e 64 69 6e 76 28 65 78 2c 33 29 20 20 20 20 20 ┆0 0752 aa/56: andinv(ex,3) ┆
0x32c0…32e0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 78 28 63 61 72 72 79 29 3a 3d 65 78 28 6f 76 65 ┆ ; ex(carry):=ex(ove┆
0x32e0…3300 72 66 6c 6f 77 29 3a 3d 30 2e 0a 20 39 33 32 20 30 34 39 31 20 30 37 35 33 20 20 20 20 20 20 20 ┆rflow):=0. 932 0491 0753 ┆
0x3300…3320 20 20 6a 73 62 28 67 65 74 64 6f 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ jsb(getdo1) ┆
0x3320…3340 3b 20 63 61 6c 6c 28 67 65 74 6f 70 29 2e 0a 20 39 33 33 20 30 34 39 32 20 30 37 35 34 20 20 20 ┆; call(getop). 933 0492 0754 ┆
0x3340…3360 20 20 20 20 20 20 61 64 64 28 77 72 65 67 2c 77 72 6b 30 29 20 20 20 20 20 20 20 20 20 20 20 20 ┆ add(wreg,wrk0) ┆
0x3360…3380 20 20 20 20 3b 20 77 5f 72 65 67 28 69 6e 64 65 78 29 20 3a 3d 20 77 5f 72 65 67 28 69 6e 64 65 ┆ ; w_reg(index) := w_reg(inde┆
0x3380…33a0 78 29 20 2b 0a 20 39 33 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆x) + 934 ┆
0x33a0…33c0 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 3b 20 77 72 6b 30 ┆ ; wrk0┆
0x33c0…33e0 2e 0a 20 39 33 35 20 30 34 39 33 20 30 37 35 35 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 63 61 ┆. 935 0493 0755 cjmp(ca┆
0x33e0…3400 72 72 79 2c 61 61 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 63 61 72 72 ┆rry,aa1) ; if carr┆
0x3400…3420 79 20 74 68 65 6e 20 67 6f 74 6f 20 61 61 31 2e 0a 20 39 33 36 20 30 34 39 34 20 30 37 35 36 20 ┆y then goto aa1. 936 0494 0756 ┆
0x3420…3440 20 20 20 20 20 20 20 20 6a 73 62 28 67 65 74 64 6f 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ jsb(getdo2) ┆
0x3440…3460 20 20 20 20 20 20 3b 20 63 61 6c 6c 28 67 65 74 64 32 6f 29 2e 0a 20 39 33 37 20 30 34 39 35 20 ┆ ; call(getd2o). 937 0495 ┆
0x3460…3480 30 37 35 37 20 20 20 20 20 20 20 20 20 6a 6d 70 28 63 63 6f 77 63 29 20 61 64 64 28 77 70 72 65 ┆0757 jmp(ccowc) add(wpre┆
0x3480…34a0 2c 77 72 6b 30 29 20 20 20 20 20 3b 20 77 5f 72 65 67 28 69 6e 64 65 78 2d 31 29 3a 3d 77 5f 72 ┆,wrk0) ; w_reg(index-1):=w_r┆
0x34a0…34c0 65 67 28 69 6e 64 65 78 2d 31 29 0a 20 39 33 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆eg(index-1) 938 ┆
0x34c0…34e0 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 ┆ ┆
0x34e0…3500 20 3b 20 2b 20 77 72 6b 30 2c 20 67 6f 74 6f 20 63 63 6f 77 63 2e 0a 20 39 33 39 20 30 34 39 36 ┆ ; + wrk0, goto ccowc. 939 0496┆
0x3500…3520 20 30 37 36 30 20 61 61 31 3a 20 20 20 20 6a 73 62 28 67 65 74 64 6f 32 29 20 20 20 20 20 20 20 ┆ 0760 aa1: jsb(getdo2) ┆
0x3520…3540 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 61 6c 6c 28 67 65 74 64 6f 32 29 2e 0a 20 39 34 30 ┆ ; call(getdo2). 940┆
0x3540…3560 20 20 20 20 20 20 20 20 20 20 20 0a 20 39 34 31 20 30 34 39 37 20 30 37 36 31 20 20 20 20 20 20 ┆ 941 0497 0761 ┆
0x3560…3580 20 20 20 6a 6d 70 28 63 63 6f 77 63 29 20 61 64 64 31 28 77 70 72 65 2c 77 72 6b 30 29 20 20 20 ┆ jmp(ccowc) add1(wpre,wrk0) ┆
0x3580…35a0 20 3b 20 77 5f 72 65 67 28 69 6e 64 65 78 2d 31 29 3a 3d 77 5f 72 65 67 28 69 6e 64 65 78 2d 31 ┆ ; w_reg(index-1):=w_reg(index-1┆
0x35a0…35c0 29 0a 20 39 34 32 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 ┆) 942 ┆
0x35c0…35e0 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 2b 20 77 72 6b 30 20 ┆ ; + wrk0 ┆
0x35e0…3600 2b 20 31 2c 20 67 6f 74 6f 20 63 63 6f 77 63 2e 0a 20 39 34 33 20 20 20 20 20 20 20 20 20 20 20 ┆+ 1, goto ccowc. 943 ┆
0x3600…3620 0a 20 39 34 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 73 74 72 75 ┆ 944 ; instru┆
0x3620…3640 63 74 69 6f 6e 20 69 6e 74 65 67 65 72 20 64 6f 75 62 6c 65 20 77 6f 72 64 2c 20 73 75 62 74 72 ┆ction integer double word, subtr┆
0x3640…3660 61 63 74 3a 20 27 73 73 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 35 37 2e 0a 20 39 34 35 ┆act: 'ss', numeric code 57. 945┆
0x3660…3680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ; -----------┆
0x3680…36a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x36a0…36c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 39 34 36 20 30 34 39 38 ┆---------------------- 946 0498┆
0x36c0…36e0 20 30 37 36 32 20 73 73 2f 35 37 3a 20 20 61 6e 64 69 6e 76 28 65 78 2c 33 29 20 20 20 20 20 20 ┆ 0762 ss/57: andinv(ex,3) ┆
0x36e0…3700 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 78 28 63 61 72 72 79 29 3a 3d 65 78 28 6f 76 65 72 ┆ ; ex(carry):=ex(over┆
0x3700…3720 66 6c 6f 77 29 3a 3d 2e 0a 20 39 34 37 20 30 34 39 39 20 30 37 36 33 20 20 20 20 20 20 20 20 20 ┆flow):=. 947 0499 0763 ┆
0x3720…3740 6a 73 62 28 67 65 74 64 6f 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆jsb(getdo1) ; ┆
0x3740…3760 63 61 6c 6c 28 67 65 74 64 6f 31 29 2e 0a 20 39 34 38 20 30 35 30 30 20 30 37 36 34 20 20 20 20 ┆call(getdo1). 948 0500 0764 ┆
0x3760…3780 20 20 20 20 20 73 75 62 28 77 72 65 67 2c 77 72 6b 30 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ sub(wreg,wrk0) ┆
0x3780…37a0 20 20 20 3b 20 77 5f 72 65 67 28 69 6e 64 65 78 29 20 3a 3d 20 77 5f 72 65 67 28 69 6e 64 65 78 ┆ ; w_reg(index) := w_reg(index┆
0x37a0…37c0 29 20 2d 0a 20 39 34 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) - 949 ┆
0x37c0…37e0 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 3b 20 77 72 6b 30 2e ┆ ; wrk0.┆
0x37e0…3800 0a 20 39 35 30 20 30 35 30 31 20 30 37 36 35 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 63 61 72 ┆ 950 0501 0765 cjmp(car┆
0x3800…3820 72 79 2c 73 73 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 63 61 72 72 79 ┆ry,ss1) ; if carry┆
0x3820…3840 20 74 68 65 6e 20 67 6f 74 6f 20 73 73 31 2e 0a 20 39 35 31 20 30 35 30 32 20 30 37 36 36 20 20 ┆ then goto ss1. 951 0502 0766 ┆
0x3840…3860 20 20 20 20 20 20 20 6a 73 62 28 67 65 74 64 6f 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ jsb(getdo2) ┆
0x3860…3880 20 20 20 20 20 3b 20 63 61 6c 6c 28 67 65 74 64 6f 32 29 2e 0a 20 39 35 32 20 30 35 30 33 20 30 ┆ ; call(getdo2). 952 0503 0┆
0x3880…38a0 37 36 37 20 20 20 20 20 20 20 20 20 6a 6d 70 28 63 63 6f 77 63 29 20 73 75 62 28 77 70 72 65 2c ┆767 jmp(ccowc) sub(wpre,┆
0x38a0…38c0 77 72 6b 30 29 20 20 20 20 20 3b 20 77 5f 72 65 67 28 69 6e 64 65 78 2d 31 29 3a 3d 77 5f 72 65 ┆wrk0) ; w_reg(index-1):=w_re┆
0x38c0…38e0 67 28 69 6e 64 65 78 2d 31 29 0a 20 39 35 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆g(index-1) 953 ┆
0x38e0…3900 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 ┆ ┆
0x3900…3920 3b 20 2d 20 77 72 6b 30 2c 20 67 6f 74 6f 20 63 63 6f 77 63 2e 0a 20 39 35 34 20 30 35 30 34 20 ┆; - wrk0, goto ccowc. 954 0504 ┆
0x3920…3940 30 37 37 30 20 73 73 31 3a 20 20 20 20 6a 73 62 28 67 65 74 64 6f 32 29 20 20 20 20 20 20 20 20 ┆0770 ss1: jsb(getdo2) ┆
0x3940…3960 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 61 6c 6c 28 67 65 74 64 6f 32 29 2e 0a 20 39 35 35 20 ┆ ; call(getdo2). 955 ┆
0x3960…3980 30 35 30 35 20 30 37 37 31 20 20 20 20 20 20 20 20 20 6a 6d 70 28 63 63 6f 77 63 29 20 73 75 62 ┆0505 0771 jmp(ccowc) sub┆
0x3980…39a0 31 28 77 70 72 65 2c 77 72 6b 30 29 20 20 20 20 3b 20 77 5f 72 65 67 28 69 6e 64 65 78 2d 31 29 ┆1(wpre,wrk0) ; w_reg(index-1)┆
0x39a0…39c0 3a 3d 77 5f 72 65 67 28 69 6e 64 65 78 2d 31 29 0a 20 39 35 36 20 20 20 20 20 20 20 20 20 20 20 ┆:=w_reg(index-1) 956 ┆
0x39c0…39e0 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 ┆ ┆
0x39e0…3a00 20 20 20 20 20 20 3b 20 2d 20 77 72 6b 30 20 2b 20 31 2c 20 67 6f 74 6f 20 63 63 6f 77 63 2e 0a ┆ ; - wrk0 + 1, goto ccowc. ┆
0x3a00…3a20 20 39 35 37 20 20 20 20 20 20 20 20 20 20 20 0a 20 39 35 38 20 20 20 20 20 20 20 20 20 20 20 0a ┆ 957 958 ┆
0x3a20…3a40 20 39 35 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6c 6f 67 69 63 61 6c ┆ 959 ; logical┆
0x3a40…3a60 20 6f 70 65 72 61 74 69 6f 6e 2e 0a 20 39 36 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ operation. 960 ┆
0x3a60…3a80 20 20 20 3b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 39 36 31 20 20 20 20 ┆ ; ------------------ 961 ┆
0x3a80…3aa0 20 20 20 20 20 20 20 0a 20 39 36 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ 962 ;┆
0x3aa0…3ac0 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 6c 6f 67 69 63 61 6c 20 61 6e 64 3a 20 27 6c 61 27 2c 20 ┆ instruction logical and: 'la', ┆
0x3ac0…3ae0 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 34 2e 0a 20 39 36 33 20 20 20 20 20 20 20 20 20 20 20 20 ┆numeric code 4. 963 ┆
0x3ae0…3b00 20 20 20 20 20 20 20 3b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ; -----------------------┆
0x3b00…3b20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 39 36 34 20 30 35 30 ┆----------------------- 964 050┆
0x3b20…3b40 36 20 30 37 37 32 20 6c 61 2f 34 3a 20 20 20 6a 73 62 28 67 65 74 6f 70 29 20 20 20 20 20 20 20 ┆6 0772 la/4: jsb(getop) ┆
0x3b40…3b60 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 61 6c 6c 28 67 65 74 6f 70 29 2e 0a 20 39 36 35 ┆ ; call(getop). 965┆
0x3b60…3b80 20 30 35 30 37 20 30 37 37 33 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 66 6e 65 69 63 29 20 61 ┆ 0507 0773 jmp(pfneic) a┆
0x3b80…3ba0 6e 64 28 77 72 65 67 2c 77 72 6b 30 29 20 20 20 20 3b 20 77 5f 72 65 67 28 69 6e 64 65 78 29 3a ┆nd(wreg,wrk0) ; w_reg(index):┆
0x3ba0…3bc0 3d 77 5f 72 65 67 28 69 6e 64 65 78 29 20 0a 20 39 36 36 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆=w_reg(index) 966 ┆
0x3bc0…3be0 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 ┆ ┆
0x3be0…3c00 20 20 20 20 3b 20 61 6e 64 20 77 72 6b 30 2c 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a 20 39 36 ┆ ; and wrk0, goto pfneic. 96┆
0x3c00…3c20 37 20 20 20 20 20 20 20 20 20 20 20 0a 20 39 36 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆7 968 ┆
0x3c20…3c40 20 20 20 20 3b 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 6c 6f 67 69 63 61 6c 20 6f 72 3a 20 27 6c ┆ ; instruction logical or: 'l┆
0x3c40…3c60 6f 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 35 2e 0a 20 39 36 39 20 20 20 20 20 20 20 20 ┆o', numeric code 5. 969 ┆
0x3c60…3c80 20 20 20 20 20 20 20 20 20 20 20 3b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ; -------------------┆
0x3c80…3ca0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 39 37 30 20 ┆-------------------------- 970 ┆
0x3ca0…3cc0 30 35 30 38 20 30 37 37 34 20 6c 6f 2f 35 3a 20 20 20 6a 73 62 28 67 65 74 6f 70 29 20 20 20 20 ┆0508 0774 lo/5: jsb(getop) ┆
0x3cc0…3ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 61 6c 6c 28 67 65 74 6f 70 29 2e 0a 20 ┆ ; call(getop). ┆
0x3ce0…3d00 39 37 31 20 30 35 30 39 20 30 37 37 35 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 66 6e 65 69 63 ┆971 0509 0775 jmp(pfneic┆
0x3d00…ad00 […elided…]
0xad00…ad20 6a 6c 2e 20 77 33 20 20 65 31 32 2e 20 20 20 20 20 20 20 3b 20 20 20 6e 65 78 74 20 63 68 61 72 ┆jl. w3 e12. ; next char┆
0xad20…ad40 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 65 31 32 2e 20 20 20 20 20 20 20 3b 20 20 20 6e ┆; jl. w3 e12. ; n┆
0xad40…ad60 65 78 74 20 63 68 61 72 3b 0a 20 20 20 20 20 20 61 6c 2e 20 77 33 20 20 65 31 31 2e 20 20 20 20 ┆ext char; al. w3 e11. ┆
0xad60…ad80 20 20 20 3b 20 20 20 6e 65 78 74 20 63 68 61 72 3b 0a 65 31 32 3a 20 20 61 6c 20 20 77 32 20 20 ┆ ; next char; e12: al w2 ┆
0xad80…ada0 20 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 67 65 74 20 74 65 78 74 20 77 6f 72 ┆ 0 ; goto get text wor┆
0xada0…adc0 64 3b 0a 20 20 20 20 20 20 72 78 2e 20 77 33 20 20 63 31 34 2e 20 20 20 20 20 20 20 3b 20 6e 65 ┆d; rx. w3 c14. ; ne┆
0xadc0…ade0 78 74 20 63 68 61 72 3a 0a 20 20 20 20 20 20 6c 64 20 20 77 33 20 20 20 38 20 20 20 20 20 20 20 ┆xt char: ld w3 8 ┆
0xade0…ae00 20 20 3b 20 20 20 77 32 3a 3d 20 66 72 6f 6e 74 20 63 68 61 72 20 6f 66 20 70 61 72 74 69 61 6c ┆ ; w2:= front char of partial┆
0xae00…ae20 3b 0a 20 20 20 20 20 20 72 78 2e 20 77 33 20 20 63 31 34 2e 20 20 20 20 20 20 20 3b 20 20 20 70 ┆; rx. w3 c14. ; p┆
0xae20…ae40 61 72 74 69 61 6c 3a 3d 20 70 61 72 74 69 61 6c 20 73 68 69 66 74 20 38 3b 0a 20 20 20 20 20 20 ┆artial:= partial shift 8; ┆
0xae40…ae60 73 7a 20 20 77 32 20 20 32 35 35 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 6e 6f 74 20 74 65 ┆sz w2 255 ; if not te┆
0xae60…ae80 78 74 20 65 6e 64 0a 20 20 20 20 20 20 6a 6c 2e 20 77 30 20 20 68 32 36 2e 20 20 20 20 20 20 20 ┆xt end jl. w0 h26. ┆
0xae80…aea0 3b 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 6f 75 74 63 68 61 72 3b 0a 20 20 20 20 20 20 64 6c 2e ┆; then goto outchar; dl.┆
0xaea0…aec0 20 77 33 20 20 63 31 38 2e 20 20 20 20 20 20 20 3b 20 20 20 72 65 73 74 6f 72 65 20 72 65 67 69 ┆ w3 c18. ; restore regi┆
0xaec0…aee0 73 74 65 72 73 3b 0a 20 20 20 20 20 20 6a 6c 20 20 20 20 20 20 78 33 20 20 20 20 20 20 20 20 20 ┆sters; jl x3 ┆
0xaee0…af00 3b 20 20 20 72 65 74 75 72 6e 3b 0a 0a 3b 20 6f 75 74 69 6e 74 65 67 65 72 0a 3b 20 63 6f 6e 76 ┆; return; ; outinteger ; conv┆
0xaf00…af20 65 72 74 73 20 61 20 32 34 20 62 69 74 73 20 69 6e 74 65 67 65 72 20 74 6f 20 61 20 74 65 78 74 ┆erts a 24 bits integer to a text┆
0xaf20…af40 73 74 72 69 6e 67 20 77 68 69 63 68 20 69 73 20 6f 75 74 70 75 74 0a 3b 20 74 6f 20 74 68 65 20 ┆string which is output ; to the ┆
0xaf40…af60 7a 6f 6e 65 20 67 69 76 65 6e 20 69 6e 20 74 68 65 20 63 61 6c 6c 2e 20 74 68 65 20 63 6f 6e 76 ┆zone given in the call. the conv┆
0xaf60…af80 65 72 73 69 6f 6e 20 69 73 20 63 6f 6e 74 72 6f 6c 6c 65 64 0a 3b 20 62 79 20 61 20 6c 61 79 6f ┆ersion is controlled ; by a layo┆
0xaf80…afa0 75 74 20 67 69 76 65 6e 20 69 6e 20 74 68 65 20 77 6f 72 64 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 ┆ut given in the word following t┆
0xafa0…afc0 68 65 20 63 61 6c 6c 20 28 73 6b 69 70 70 65 64 0a 3b 20 61 74 20 72 65 74 75 72 6e 29 2e 0a 3b ┆he call (skipped ; at return). ;┆
0xafc0…afe0 20 6c 61 79 6f 75 74 20 66 6f 72 6d 61 74 3a 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ layout format: ; ┆
0xafe0…b000 20 73 69 67 6e 3c 32 33 20 2b 20 66 69 6c 6c 3c 31 32 20 2b 20 70 6f 73 69 74 69 6f 6e 73 0a 3b ┆ sign<23 + fill<12 + positions ;┆
0xb000…b020 20 69 66 20 74 68 65 20 73 69 67 6e 20 69 73 20 31 20 74 68 65 6e 20 74 68 65 20 76 61 6c 75 65 ┆ if the sign is 1 then the value┆
0xb020…b040 20 69 73 20 63 6f 6e 73 69 64 65 72 65 64 20 61 20 73 69 67 6e 65 64 0a 3b 20 69 6e 74 65 67 65 ┆ is considered a signed ; intege┆
0xb040…b060 72 20 6f 74 68 65 72 77 69 73 65 20 69 74 20 69 73 20 74 72 65 61 74 65 64 20 61 73 20 68 61 76 ┆r otherwise it is treated as hav┆
0xb060…b080 69 6e 67 20 6e 6f 20 73 69 67 6e 2e 0a 3b 20 74 68 65 20 66 69 6c 6c 20 63 68 61 72 61 63 74 65 ┆ing no sign. ; the fill characte┆
0xb080…b0a0 72 20 72 65 70 6c 61 63 65 73 20 6c 65 61 64 69 6e 67 20 7a 65 72 6f 65 73 2e 0a 3b 20 70 6f 73 ┆r replaces leading zeroes. ; pos┆
0xb0a0…b0c0 69 74 69 6f 6e 73 20 64 65 74 65 72 6d 69 6e 65 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 ┆itions determines the number of ┆
0xb0c0…b0e0 63 68 61 72 61 63 74 65 72 73 20 6f 75 74 70 75 74 20 28 65 78 63 65 70 74 0a 3b 20 66 6f 72 20 ┆characters output (except ; for ┆
0xb0e0…b100 61 6c 61 72 6d 20 70 72 69 6e 74 69 6e 67 29 2e 20 74 68 65 20 6d 61 78 69 6d 75 6d 20 76 61 6c ┆alarm printing). the maximum val┆
0xb100…b120 75 65 20 6f 66 20 70 6f 73 69 74 69 6f 6e 73 20 69 73 20 31 32 2e 0a 63 33 36 3a 20 20 61 6c 2e ┆ue of positions is 12. c36: al.┆
0xb120…b140 20 77 31 20 20 68 32 31 2e 20 20 20 20 20 20 20 3b 20 28 2d 32 29 3a 20 20 20 7a 6f 6e 65 3a 3d ┆ w1 h21. ; (-2): zone:=┆
0xb140…b160 20 63 75 72 72 65 6e 74 20 6f 75 74 70 75 74 3b 0a 68 33 32 3a 20 20 64 73 2e 20 77 31 20 20 63 ┆ current output; h32: ds. w1 c┆
0xb160…b180 31 2e 20 20 20 20 20 20 20 20 3b 20 6f 75 74 69 6e 74 65 67 65 72 3a 0a 20 20 20 20 20 20 64 73 ┆1. ; outinteger: ds┆
0xb180…b1a0 2e 20 77 33 20 20 63 31 38 2e 20 20 20 20 20 20 20 3b 20 20 20 73 61 76 65 20 72 65 67 69 73 74 ┆. w3 c18. ; save regist┆
0xb1a0…b1c0 65 72 73 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 33 20 20 20 20 20 20 20 20 20 3b 20 ┆ers; rl w3 x3 ; ┆
0xb1c0…b1e0 75 6e 70 61 63 6b 20 6c 61 79 6f 75 74 3a 0a 20 20 20 20 20 20 68 73 2e 20 77 33 20 20 65 31 33 ┆unpack layout: hs. w3 e13┆
0xb1e0…b200 2e 20 20 20 20 20 20 20 3b 20 20 20 70 6f 73 69 74 69 6f 6e 73 20 3a 3d 20 73 65 63 6f 6e 64 20 ┆. ; positions := second ┆
0xb200…b220 62 79 74 65 28 6c 61 79 6f 75 74 29 3b 0a 20 20 20 20 20 20 61 73 20 20 77 33 20 20 2d 31 32 20 ┆byte(layout); as w3 -12 ┆
0xb220…b240 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 68 73 2e 20 77 33 20 20 65 32 32 2e 20 20 20 20 20 ┆ ; hs. w3 e22. ┆
0xb240…b260 20 20 3b 20 20 20 73 69 67 6e 20 3a 3d 20 6c 61 79 6f 75 74 20 3c 20 30 3b 0a 20 20 20 20 20 20 ┆ ; sign := layout < 0; ┆
0xb260…b280 6c 61 2e 20 77 33 20 20 65 32 31 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 68 73 2e 20 77 ┆la. w3 e21. ; hs. w┆
0xb280…b2a0 33 20 20 65 31 34 2e 20 20 20 20 20 20 20 3b 20 20 20 66 69 6c 6c 20 3a 3d 20 62 69 74 73 28 31 ┆3 e14. ; fill := bits(1┆
0xb2a0…b2c0 2c 31 31 2c 66 69 72 73 74 20 62 79 74 65 28 6c 61 79 6f 75 74 29 29 3b 0a 20 20 20 20 20 20 6c ┆,11,first byte(layout)); l┆
0xb2c0…b2e0 61 20 20 77 33 20 20 30 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 6c 61 79 6f 75 74 20 ┆a w3 0 ; if layout ┆
0xb2e0…b300 3c 20 30 0a 20 20 20 20 20 20 73 68 20 20 77 33 20 20 2d 31 20 20 20 20 20 20 20 20 20 3b 20 20 ┆< 0 sh w3 -1 ; ┆
0xb300…b320 20 61 6e 64 20 6e 75 6d 62 65 72 20 3c 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 61 63 20 20 77 ┆ and number < 0 then ac w┆
0xb320…b340 30 20 28 30 29 20 20 20 20 20 20 20 20 20 3b 20 20 20 6e 75 6d 62 65 72 20 3a 3d 20 2d 6e 75 6d ┆0 (0) ; number := -num┆
0xb340…b360 62 65 72 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 2d 31 20 20 20 20 20 20 20 20 20 3b 20 ┆ber; al w1 -1 ; ┆
0xb360…b380 20 20 69 20 3a 3d 20 2d 31 3b 0a 0a 65 31 35 3a 20 20 61 6c 20 20 77 33 20 20 30 20 20 20 20 20 ┆ i := -1; e15: al w3 0 ┆
0xb380…b3a0 20 20 20 20 20 3b 20 63 6f 6e 76 65 72 74 3a 0a 20 20 20 20 20 20 77 64 2e 20 77 30 20 20 65 32 ┆ ; convert: wd. w0 e2┆
0xb3a0…b3c0 30 2e 20 20 20 20 20 20 20 3b 20 20 20 64 69 67 69 74 20 3a 3d 20 6e 75 6d 62 65 72 20 6d 6f 64 ┆0. ; digit := number mod┆
0xb3c0…b3e0 20 31 30 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 2b 34 38 20 20 20 20 20 20 3b 20 ┆ 10; al w3 x3+48 ; ┆
0xb3e0…b400 20 20 6e 75 6d 62 65 72 20 3a 3d 20 6e 75 6d 62 65 72 2f 2f 31 30 3b 0a 20 20 20 20 20 20 6a 6c ┆ number := number//10; jl┆
0xb400…b420 2e 20 77 32 20 20 65 31 36 2e 20 20 20 20 20 20 20 3b 20 20 20 70 75 74 20 69 6e 20 73 74 72 69 ┆. w2 e16. ; put in stri┆
0xb420…b440 6e 67 28 64 69 67 69 74 2b 69 73 6f 20 64 69 67 69 74 20 62 61 73 65 29 3b 0a 20 20 20 20 20 20 ┆ng(digit+iso digit base); ┆
0xb440…b460 73 65 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 6e 75 6d 62 65 72 ┆se w0 0 ; if number┆
0xb460…b480 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 65 31 35 2e 20 20 20 ┆ <> 0 then jl. e15. ┆
0xb480…b4a0 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 63 6f 6e 76 65 72 74 3b 0a 0c 20 20 20 20 20 20 20 20 20 ┆ ; goto convert; ┆
0xb4a0…b4c0 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 ┆ ┆
0xb4c0…b4e0 20 20 20 20 20 20 0a 0a 3b 20 72 63 20 32 36 2e 30 33 2e 37 33 20 20 20 20 20 20 20 20 20 20 20 ┆ ; rc 26.03.73 ┆
0xb4e0…b500 20 20 20 20 66 69 6c 65 20 70 72 6f 63 65 73 73 6f 72 2c 20 63 68 61 72 61 63 74 65 72 20 69 6f ┆ file processor, character io┆
0xb500…b520 2c 20 70 61 67 65 20 2e 2e 2e 34 2e 2e 2e 0a 0a 0a 0a 0a 20 20 20 20 20 20 61 6c 2e 20 77 32 20 ┆, page ...4... al. w2 ┆
0xb520…b540 20 65 32 33 2e 20 20 20 20 20 20 20 3b 20 20 20 73 65 74 20 72 65 74 75 72 6e 28 65 6e 64 20 6e ┆ e23. ; set return(end n┆
0xb540…b560 75 6d 62 65 72 29 3b 0a 65 32 32 20 3d 20 6b 20 2b 20 31 20 3b 20 73 69 67 6e 20 20 20 20 20 20 ┆umber); e22 = k + 1 ; sign ┆
0xb560…b580 20 3b 0a 20 20 20 20 20 20 73 6c 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 ┆ ; sl w0 0 ; ┆
0xb580…b5a0 69 66 20 6c 61 79 6f 75 74 20 3c 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 ┆if layout <= 0 then jl. ┆
0xb5a0…b5c0 20 20 65 31 37 2e 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 74 65 73 74 20 70 72 69 6e 74 ┆ e17. ; goto test print┆
0xb5c0…b5e0 20 73 69 67 6e 3b 0a 0a 65 31 33 20 3d 20 6b 20 2b 20 31 20 3b 20 70 6f 73 69 74 69 6f 6e 73 20 ┆ sign; e13 = k + 1 ; positions ┆
0xb5e0…b600 20 3b 20 65 6e 64 20 6e 75 6d 62 65 72 3a 0a 65 32 33 3a 20 20 73 68 20 20 77 30 20 20 78 31 2b ┆ ; end number: e23: sh w0 x1+┆
0xb600…b620 31 32 20 20 20 20 20 20 3b 20 20 20 77 68 69 6c 65 20 2d 31 20 3c 20 70 6f 73 69 74 69 6f 6e 73 ┆12 ; while -1 < positions┆
0xb620…b640 20 64 6f 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 65 31 38 2e 20 20 20 20 20 20 20 3b 20 20 ┆ do jl. e18. ; ┆
0xb640…b660 20 66 69 6c 6c 20 75 70 20 73 74 72 69 6e 67 28 66 69 6c 6c 20 63 68 61 72 61 63 74 65 72 29 3b ┆ fill up string(fill character);┆
0xb660…b680 0a 20 20 20 20 20 20 61 6c 2e 20 77 30 20 20 78 31 2b 63 31 39 2e 20 20 20 20 3b 0a 20 20 20 20 ┆ al. w0 x1+c19. ; ┆
0xb680…b6a0 20 20 72 6c 2e 20 77 31 20 20 63 31 2e 20 20 20 20 20 20 20 20 3b 20 20 20 72 65 73 74 6f 72 65 ┆ rl. w1 c1. ; restore┆
0xb6a0…b6c0 28 77 31 3a 20 7a 6f 6e 65 20 64 65 73 63 72 20 61 64 64 72 29 3b 0a 0a 0a 65 31 39 3a 20 20 62 ┆(w1: zone descr addr); e19: b┆
0xb6c0…b6e0 61 2e 20 77 30 20 20 31 20 20 20 20 20 20 20 20 20 20 3b 20 6d 6f 76 65 20 73 74 72 69 6e 67 20 ┆a. w0 1 ; move string ┆
0xb6e0…b700 74 6f 20 7a 6f 6e 65 3a 0a 20 20 20 20 20 20 62 7a 20 20 77 32 20 28 30 29 20 20 20 20 20 20 20 ┆to zone: bz w2 (0) ┆
0xb700…b720 20 20 3b 20 20 20 66 6f 72 20 69 20 3a 3d 20 69 2b 31 20 77 68 69 6c 65 0a 20 20 20 20 20 20 6a ┆ ; for i := i+1 while j┆
0xb720…b740 6c 2e 20 77 33 20 20 68 32 36 2e 20 20 20 20 20 20 20 3b 20 20 20 69 20 3c 20 73 74 72 69 6e 67 ┆l. w3 h26. ; i < string┆
0xb740…b760 20 74 6f 70 20 64 6f 0a 20 20 20 20 20 20 73 65 2e 20 77 30 20 20 63 32 39 2e 20 20 20 20 20 20 ┆ top do se. w0 c29. ┆
0xb760…b780 20 3b 20 20 20 6f 75 74 63 68 61 72 28 7a 6f 6e 65 2c 20 73 74 72 69 6e 67 28 69 29 29 3b 0a 20 ┆ ; outchar(zone, string(i)); ┆
0xb780…b7a0 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 65 31 39 2e 20 20 20 20 20 20 20 3b 0a 0a 20 20 20 20 20 ┆ jl. e19. ; ┆
0xb7a0…b7c0 20 64 6c 2e 20 77 33 20 20 63 31 38 2e 20 20 20 20 20 20 20 3b 20 20 20 72 65 73 74 6f 72 65 20 ┆ dl. w3 c18. ; restore ┆
0xb7c0…b7e0 72 65 67 69 73 74 65 72 73 3b 0a 20 20 20 20 20 20 6a 6c 20 20 20 20 20 20 78 33 2b 32 20 20 20 ┆registers; jl x3+2 ┆
0xb7e0…b800 20 20 20 20 3b 20 20 20 72 65 74 75 72 6e 20 77 69 74 68 20 73 6b 69 70 20 6f 66 20 6c 61 79 6f ┆ ; return with skip of layo┆
0xb800…b820 75 74 3b 0a 0a 3b 20 77 30 20 3d 20 30 20 61 74 20 65 6e 74 72 79 20 68 65 72 65 3a 0a 0a 65 31 ┆ut; ; w0 = 0 at entry here: e1┆
0xb820…b840 37 3a 20 20 61 6c 20 20 77 33 20 20 34 35 20 20 20 20 20 20 20 20 20 3b 20 74 65 73 74 20 70 72 ┆7: al w3 45 ; test pr┆
0xb840…b860 69 6e 74 20 73 69 67 6e 3a 0a 20 20 20 20 20 20 73 68 2e 20 77 30 20 28 63 31 2e 2d 32 29 20 20 ┆int sign: sh. w0 (c1.-2) ┆
0xb860…b880 20 20 20 3b 20 20 20 63 68 61 72 20 3a 3d 20 3c 3a 2d 3a 3e 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ ; char := <:-:>; ┆
0xb880…b8a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 73 61 76 65 64 20 6e 75 6d 62 ┆ ; if saved numb┆
0xb8a0…b8c0 65 72 20 3e 3d 20 30 20 74 68 65 6e 0a 65 31 34 20 3d 20 6b 20 2b 20 31 20 3b 20 66 69 6c 6c 20 ┆er >= 0 then e14 = k + 1 ; fill ┆
0xb8c0…b8e0 63 68 61 72 20 20 3b 20 66 69 6c 6c 20 75 70 20 73 74 72 69 6e 67 3a 0a 65 31 38 3a 20 20 61 6c ┆char ; fill up string: e18: al┆
0xb8e0…b900 20 20 77 33 20 20 33 32 20 20 20 20 20 20 20 20 20 3b 20 20 20 63 68 61 72 20 3a 3d 20 66 69 6c ┆ w3 32 ; char := fil┆
0xb900…b920 6c 3b 0a 0a 65 31 36 3a 20 20 68 73 2e 20 77 33 20 20 78 31 2b 63 31 39 2e 20 20 20 20 3b 20 70 ┆l; e16: hs. w3 x1+c19. ; p┆
0xb920…b940 75 74 20 69 6e 20 73 74 72 69 6e 67 3a 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2d 31 ┆ut in string: al w1 x1-1┆
0xb940…b960 20 20 20 20 20 20 20 3b 20 20 20 73 74 72 69 6e 67 28 69 29 20 3a 3d 20 63 68 61 72 3b 20 20 69 ┆ ; string(i) := char; i┆
0xb960…b980 20 3a 3d 20 69 2d 31 3b 0a 20 20 20 20 20 20 6a 6c 20 20 20 20 20 20 78 32 20 20 20 20 20 20 20 ┆ := i-1; jl x2 ┆
0xb980…b9a0 20 20 3b 20 20 20 72 65 74 75 72 6e 3b 0a 0a 65 32 30 3a 20 20 31 30 20 20 20 20 20 20 3b 20 63 ┆ ; return; e20: 10 ; c┆
0xb9a0…b9c0 6f 6e 73 74 61 6e 74 3a 20 31 30 0a 65 32 31 3a 20 20 2d 31 2d 31 3c 31 31 20 3b 20 6d 61 73 6b ┆onstant: 10 e21: -1-1<11 ; mask┆
0xb9c0…b9e0 20 66 6f 72 20 75 6e 70 61 63 6b 20 6c 61 79 6f 75 74 0a 6d 2e 66 70 20 69 6f 20 73 79 73 74 65 ┆ for unpack layout m.fp io syste┆
0xb9e0…ba00 6d 20 32 36 2e 30 33 2e 37 33 0a 65 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆m 26.03.73 e. ┆
0xba00…ba20 20 20 20 20 3b 20 65 6e 64 20 63 68 61 72 61 63 74 65 72 20 69 6e 70 75 74 2f 6f 75 74 70 75 74 ┆ ; end character input/output┆
0xba20…ba40 3b 0a 0a 0c 0a 0a 0c 0a 0a 3b 20 72 63 20 31 39 37 37 2e 30 39 2e 31 34 20 20 20 20 20 20 20 20 ┆; ; rc 1977.09.14 ┆
0xba40…ba60 66 69 6c 65 20 70 72 6f 63 65 73 73 6f 72 2c 20 72 65 73 69 64 65 6e 74 2c 20 70 61 67 65 20 2e ┆file processor, resident, page .┆
0xba60…ba80 2e 2e 31 2e 2e 2e 0a 0a 3b 20 66 70 20 73 65 67 6d 65 6e 74 61 74 69 6f 6e 20 61 6e 64 20 66 70 ┆..1... ; fp segmentation and fp┆
0xba80…baa0 20 6d 65 73 73 61 67 65 73 0a 0a 68 34 30 3a 20 20 3c 3a 66 70 3a 3e 2c 20 30 2c 20 72 2e 34 3b ┆ messages h40: <:fp:>, 0, r.4;┆
0xbaa0…bac0 20 66 69 78 3b 20 6e 61 6d 65 20 6f 66 20 66 70 20 61 72 65 61 20 70 72 6f 63 65 73 73 0a 68 34 ┆ fix; name of fp area process h4┆
0xbac0…bae0 34 3a 20 20 3c 3a 73 3a 3e 20 2c 20 30 2c 20 72 2e 34 3b 69 6e 69 74 3b 20 6e 61 6d 65 20 6f 66 ┆4: <:s:> , 0, r.4;init; name of┆
0xbae0…bb00 20 70 61 72 65 6e 74 20 70 72 6f 63 65 73 73 0a 68 34 32 3a 20 20 33 3c 31 32 2b 30 20 20 20 20 ┆ parent process h42: 3<12+0 ┆
0xbb00…bb20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 70 75 74 20 6d 65 73 73 61 67 65 3a 20 6f 70 65 72 61 74 ┆ ; input message: operat┆
0xbb20…bb40 69 6f 6e 0a 68 34 37 3a 20 20 30 2c 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 ┆ion h47: 0, 0 ; ┆
0xbb40…bb60 20 66 69 72 73 74 2c 20 6c 61 73 74 20 61 64 64 72 65 73 73 0a 68 34 31 3a 20 20 30 20 20 20 20 ┆ first, last address h41: 0 ┆
0xbb60…bb80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 73 65 67 6d 65 6e 74 20 6e 75 6d 62 65 72 ┆ ; segment number┆
0xbb80…bba0 0a 68 34 39 3a 20 20 35 3c 31 32 2b 30 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6f 75 74 70 ┆ h49: 5<12+0 ; outp┆
0xbba0…bbc0 75 74 20 6d 65 73 73 61 67 65 3a 20 6f 70 65 72 61 74 69 6f 6e 0a 20 20 20 20 20 20 30 2c 20 30 ┆ut message: operation 0, 0┆
0xbbc0…bbe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 66 69 72 73 74 2c 20 6c 61 73 74 20 61 ┆ ; first, last a┆
0xbbe0…bc00 64 64 72 65 73 73 0a 0a 68 34 35 3a 20 20 32 3c 31 32 2b 31 3c 39 2b 30 3c 35 2b 31 3b 20 66 69 ┆ddress h45: 2<12+1<9+0<5+1; fi┆
0xbc00…bc20 6e 69 73 20 6d 65 73 73 61 67 65 3a 0a 20 20 20 20 20 20 3c 3a 66 69 6e 69 73 3a 3e 2c 20 30 20 ┆nis message: <:finis:>, 0 ┆
0xbc20…bc40 20 20 20 20 20 20 3b 20 74 6f 20 70 61 72 65 6e 74 0a 0a 68 34 36 3a 20 20 32 3c 31 33 2b 30 3c ┆ ; to parent h46: 2<13+0<┆
0xbc40…bc60 35 2b 31 20 20 20 20 20 20 20 20 20 3b 20 62 72 65 61 6b 20 28 70 61 75 73 65 29 20 6d 65 73 73 ┆5+1 ; break (pause) mess┆
0xbc60…bc80 61 67 65 0a 20 20 20 20 20 20 3c 3a 62 72 65 61 6b 3a 3e 2c 20 30 20 20 20 20 20 20 20 3b 20 74 ┆age <:break:>, 0 ; t┆
0xbc80…bca0 6f 20 70 61 72 65 6e 74 0a 0a 63 33 32 3a 20 20 3c 3a 3c 31 30 3e 2a 2a 2a 62 72 65 61 6b 3c 33 ┆o parent c32: <:<10>***break<3┆
0xbca0…bcc0 32 3e 3c 30 3e 3a 3e 20 3b 20 6a 66 72 2e 20 70 65 72 6d 61 6e 65 6e 74 2c 20 70 61 67 65 20 2e ┆2><0>:> ; jfr. permanent, page .┆
0xbcc0…bce0 2e 2e 32 2e 2e 2e 0a 0a 68 38 35 3a 20 20 30 2c 20 72 2e 34 20 20 20 20 20 20 20 20 20 20 20 20 ┆..2... h85: 0, r.4 ┆
0xbce0…bd00 20 3b 20 64 75 6d 6d 79 20 6e 61 6d 65 20 2c 20 6d 28 38 3a 31 34 29 0a 0a 68 34 33 3a 20 20 30 ┆ ; dummy name , m(8:14) h43: 0┆
0x0000…0033 Rc489kSubCatEnt {f00=0x001b12, f01=0x0007e4, f02=0x0007ed, filename=»pblockiopr «, entry_tail=0-4-0-1-1980-12-02T08:34-disc1-0x0-0x0-0x0-0x0}
0x0033…0066 Rc489kSubCatEnt {f00=0x00275a, f01=0x0007e4, f02=0x0007ed, filename=»pprocrec «, entry_tail=0-4-0-5-1980-11-28T11:56-disc1-0x0-0x0-0x0-0x0}
0x0066…0099 Rc489kSubCatEnt {f00=0x0070f2, f01=0x0007e4, f02=0x0007ed, filename=»precord «, entry_tail=0-4-0-1-1980-12-02T08:07-disc1-0x0-0x0-0x0-0x0}
0x0099…00cc Rc489kSubCatEnt {f00=0x008baa, f01=0x0007e4, f02=0x0007ed, filename=»pblockiorec «, entry_tail=0-4-0-1-1980-12-02T07:57-disc1-0x0-0x0-0x0-0x0}
0x00cc…00ff Rc489kSubCatEnt {f00=0x009cda, f01=0x0007e4, f02=0x0007ed, filename=»ptextline «, entry_tail=0-4-0-1-1980-12-01T12:44-disc1-0x0-0x0-0x0-0x0}
0x00ff…0132 Rc489kSubCatEnt {f00=0x00a48a, f01=0x0007e4, f02=0x0007ed, filename=»ttextline «, entry_tail=0-4-0-1-1980-12-01T12:38-disc1-0x0-0x0-0x0-0x0}
0x0132…0165 Rc489kSubCatEnt {f00=0x00bb5a, f01=0x0007e4, f02=0x0007ed, filename=»treadtextl «, entry_tail=0-4-0-1-1980-12-01T10:20-disc1-0x0-0x0-0x0-0x0}
0x0165…0198 Rc489kSubCatEnt {f00=0x00c412, f01=0x0007e4, f02=0x0007ed, filename=»preadtextl «, entry_tail=0-4-0-1-1980-12-01T10:58-disc1-0x0-0x0-0x0-0x0}
0x0198…01cb Rc489kSubCatEnt {f00=0x00dd1a, f01=0x0007e4, f02=0x0007ed, filename=»pwrbinary «, entry_tail=0-4-0-1-1980-11-28T12:57-disc1-0x0-0x0-0x0-0x0}
0x01cb…01fe Rc489kSubCatEnt {f00=0x00e36b, f01=0x0007e4, f02=0x0007ed, filename=»ptestmonr «, entry_tail=0-4-0-1-1980-11-27T15:25-disc1-0x0-0x0-0x0-0x0}
0x01fe…0200 53 cf ┆S ┆
0x0200…0220 50 34 30 b0 2d 8f 74 b4 cf 70 37 80 f6 b4 01 00 34 8f ba 34 8f b0 51 2f e0 0b 10 06 b4 00 24 34 ┆P40 - t p7 4 4 Q/ $4┆
0x0220…0240 80 1e b7 00 07 af 00 0e 34 80 44 b4 cf 62 34 80 d0 b4 cf 52 34 80 7a b4 00 40 34 8f 94 b4 cf 58 ┆ 4 D b4 R4 z @4 X┆
0x0240…0260 34 80 2a 2d 8f 56 37 80 ce 34 80 10 b7 00 07 34 80 04 34 8f 86 b0 00 20 34 80 06 2d 8f 4e 37 80 ┆4 *- V7 4 4 4 4 - N7 ┆
0x0260…0280 be 2f 2f e8 38 08 06 a4 00 02 34 8f f6 a8 00 00 34 8f 70 2c 00 0e 2d 0f 66 69 80 1f 34 80 24 53 ┆ // 8 4 4 p, - fi 4 $S┆
0x0280…02a0 ce fa 50 30 16 a8 00 00 34 80 42 34 8f f0 2d 0f 4e 69 80 0f d8 2f f4 51 ce ea af 50 1a a8 50 1c ┆ P0 4 B4 - Ni / Q P P ┆
0x02a0…02c0 34 80 06 51 2f e0 34 80 00 2d 00 06 dc 8e ea 2c 00 08 98 00 0c dd 8e e0 2d 8e dc 2f 2f e8 38 08 ┆4 Q/ 4 - , - // 8 ┆
0x02c0…02e0 10 51 ce ce 2d 10 14 38 08 12 2e 30 18 2f 00 01 9b 40 00 2c 30 00 b4 00 24 34 8f 7e 14 10 00 5c ┆ Q - 8 .0 / @ ,0 $4 ü Ø┆
0x02e0…02fd 10 00 b4 ce fc 34 8f 22 34 8f c8 53 ce b2 50 30 28 a4 00 05 34 8f 18 48 80 01 5c 30 28 ┆ 4 "4 S P0( 4 H Ø0(┆
0x02fd…0300 0x00000a
0x0300…0600 Data for pblockiopr
0x0600…1500 Data for pprocrec
0x1500…1800 Data for precord
0x1800…1b00 Data for pblockiorec
0x1b00…1e00 Data for ptextline
0x1e00…2100 Data for ttextline
0x2100…2400 Data for treadtextl
0x2400…2700 Data for preadtextl
0x2700…2a00 Data for pwrbinary
0x2a00…2d00 Data for ptestmonr
0x2d00…2d20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 78 28 63 61 72 72 79 29 3a 3d 65 78 28 6f 76 65 ┆ ; ex(carry):=ex(ove┆
0x2d20…2d40 72 66 6c 6f 77 29 3a 3d 30 2e 0a 20 38 36 30 20 30 34 38 32 20 30 37 34 32 20 20 20 20 20 20 20 ┆rflow):=0. 860 0482 0742 ┆
0x2d40…2d60 20 20 6a 73 62 28 67 65 74 6f 70 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ jsb(getop) ┆
0x2d60…2d80 3b 20 63 61 6c 6c 28 67 65 74 6f 70 29 2e 0a 20 38 36 31 20 30 34 38 33 20 30 37 34 33 20 20 20 ┆; call(getop). 861 0483 0743 ┆
0x2d80…2da0 20 20 20 20 20 20 6a 6d 70 28 63 63 6f 77 63 29 20 73 75 62 28 77 72 65 67 2c 77 72 6b 30 29 20 ┆ jmp(ccowc) sub(wreg,wrk0) ┆
0x2da0…2dc0 20 20 20 20 3b 20 77 5f 72 65 67 28 69 6e 64 65 78 29 20 3a 3d 20 77 5f 72 65 67 28 69 6e 64 65 ┆ ; w_reg(index) := w_reg(inde┆
0x2dc0…2de0 78 29 20 2d 0a 20 38 36 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆x) - 862 ┆
0x2de0…2e00 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 3b 20 77 72 6b 30 ┆ ; wrk0┆
0x2e00…2e20 2c 20 67 6f 74 6f 20 63 63 6f 77 63 2e 0a 20 38 36 33 20 20 20 20 20 20 20 20 20 20 20 0a 20 38 ┆, goto ccowc. 863 8┆
0x2e20…2e40 36 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 73 74 72 75 63 74 69 ┆64 ; instructi┆
0x2e40…2e60 6f 6e 20 69 6e 74 65 67 65 72 20 77 6f 72 64 2c 20 6d 75 6c 74 69 70 6c 79 3a 20 27 77 6d 27 2c ┆on integer word, multiply: 'wm',┆
0x2e60…2e80 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 31 30 2e 0a 20 38 36 35 20 20 20 20 20 20 20 20 20 20 ┆ numeric code 10. 865 ┆
0x2e80…2ea0 20 20 20 20 20 20 20 20 20 3b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ; ---------------------┆
0x2ea0…2ec0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2ec0…2ee0 2d 2d 2d 2d 2d 0a 20 38 36 36 20 30 34 38 34 20 30 37 34 34 20 77 6d 2f 31 30 3a 20 20 6a 73 62 ┆----- 866 0484 0744 wm/10: jsb┆
0x2ee0…2f00 28 67 65 74 6f 70 29 20 73 6d 6f 76 65 28 71 2c 77 72 65 67 29 20 20 20 20 20 20 3b 20 63 61 6c ┆(getop) smove(q,wreg) ; cal┆
0x2f00…2f20 6c 20 67 65 74 6f 70 2c 20 71 20 3a 3d 20 77 72 65 67 28 69 6e 64 65 78 29 2e 0a 20 38 36 37 20 ┆l getop, q := wreg(index). 867 ┆
0x2f20…2f40 30 34 38 35 20 30 37 34 35 20 20 20 20 20 20 20 20 20 6c 63 70 75 28 32 32 29 20 6d 7a 65 72 6f ┆0485 0745 lcpu(22) mzero┆
0x2f40…2f60 28 77 72 6b 32 29 20 20 20 20 20 20 20 20 20 20 3b 20 70 75 73 68 20 6e 65 78 74 20 6d 69 63 72 ┆(wrk2) ; push next micr┆
0x2f60…2f80 6f 20 69 6e 73 74 72 20 74 6f 20 73 74 61 63 6b 0a 20 38 36 38 20 20 20 20 20 20 20 20 20 20 20 ┆o instr to stack 868 ┆
0x2f80…2fa0 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 ┆ ┆
0x2fa0…2fc0 20 20 20 20 20 20 3b 20 6d 69 63 2e 20 73 65 6b 76 2e 20 63 6f 75 6e 74 65 72 20 3a 3d 20 32 33 ┆ ; mic. sekv. counter := 23┆
0x2fc0…2fe0 2c 0a 20 38 36 39 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 ┆, 869 ┆
0x2fe0…3000 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 77 72 6b 32 20 3a 3d ┆ ; wrk2 :=┆
0x3000…3020 20 30 2e 0a 20 38 37 30 20 30 34 38 36 20 30 37 34 36 20 20 20 20 20 20 20 20 20 72 65 70 20 6d ┆ 0. 870 0486 0746 rep m┆
0x3020…3040 75 6c 74 32 63 28 77 72 6b 32 2c 77 72 6b 30 29 20 20 64 73 68 69 6e 7a 20 3b 20 0a 20 38 37 31 ┆ult2c(wrk2,wrk0) dshinz ; 871┆
0x3040…3060 20 30 34 38 37 20 30 37 34 37 20 20 20 20 20 20 20 20 20 6d 75 6c 74 32 6c 28 77 72 6b 32 2c 77 ┆ 0487 0747 mult2l(wrk2,w┆
0x3060…3080 72 6b 30 29 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 38 37 32 20 30 34 38 38 20 30 37 35 ┆rk0) ; 872 0488 075┆
0x3080…30a0 30 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 77 70 72 65 2c 77 72 6b 32 29 20 20 6e 6f 74 68 6d ┆0 move(wpre,wrk2) nothm┆
0x30a0…30c0 20 63 73 6d 79 20 73 68 69 6e 7a 3b 20 77 72 65 67 28 69 6e 64 65 78 29 20 3a 3d 20 77 72 6b 32 ┆ csmy shinz; wreg(index) := wrk2┆
0x30c0…30e0 2e 0a 20 38 37 33 20 30 34 38 39 20 30 37 35 31 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 66 6e ┆. 873 0489 0751 jmp(pfn┆
0x30e0…3100 65 69 63 29 20 73 6d 6f 76 65 28 77 72 65 67 2c 71 29 20 20 20 20 20 3b 20 67 6f 74 6f 20 70 66 ┆eic) smove(wreg,q) ; goto pf┆
0x3100…3120 6e 65 69 63 2c 20 77 72 65 67 28 69 6e 64 65 78 2d 31 29 20 3a 3d 20 71 2e 0a 20 39 32 31 20 20 ┆neic, wreg(index-1) := q. 921 ┆
0x3120…3140 20 20 20 20 20 20 20 20 20 0a 20 39 32 32 20 20 20 20 20 20 20 20 20 20 20 0a 20 39 32 33 20 20 ┆ 922 923 ┆
0x3140…3160 20 20 20 20 20 20 20 20 20 0a 20 39 32 34 20 20 20 20 20 20 20 20 20 20 20 0a 20 39 32 35 20 20 ┆ 924 925 ┆
0x3160…3180 20 20 20 20 20 20 20 20 20 0a 20 39 32 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 926 ┆
0x3180…31a0 20 3b 20 69 6e 74 65 67 65 72 20 64 6f 75 62 6c 65 20 77 6f 72 64 20 61 72 69 74 68 6d 65 74 69 ┆ ; integer double word arithmeti┆
0x31a0…31c0 63 2e 0a 20 39 32 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 2d 2d 2d 2d ┆c. 927 ; ----┆
0x31c0…31e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 39 32 38 ┆--------------------------- 928┆
0x31e0…3200 20 20 20 20 20 20 20 20 20 20 20 0a 20 39 32 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 929 ┆
0x3200…3220 20 20 20 3b 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 69 6e 74 65 67 65 72 20 64 6f 75 62 6c 65 20 ┆ ; instruction integer double ┆
0x3220…3240 77 6f 72 64 2c 20 61 64 64 3a 20 27 61 61 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 35 36 ┆word, add: 'aa', numeric code 56┆
0x3240…3260 2e 0a 20 39 33 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 2d 2d 2d 2d 2d ┆. 930 ; -----┆
0x3260…3280 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x3280…32a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 39 33 31 20 30 34 39 ┆----------------------- 931 049┆
0x32a0…32c0 30 20 30 37 35 32 20 61 61 2f 35 36 3a 20 20 61 6e 64 69 6e 76 28 65 78 2c 33 29 20 20 20 20 20 ┆0 0752 aa/56: andinv(ex,3) ┆
0x32c0…32e0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 78 28 63 61 72 72 79 29 3a 3d 65 78 28 6f 76 65 ┆ ; ex(carry):=ex(ove┆
0x32e0…3300 72 66 6c 6f 77 29 3a 3d 30 2e 0a 20 39 33 32 20 30 34 39 31 20 30 37 35 33 20 20 20 20 20 20 20 ┆rflow):=0. 932 0491 0753 ┆
0x3300…3320 20 20 6a 73 62 28 67 65 74 64 6f 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ jsb(getdo1) ┆
0x3320…3340 3b 20 63 61 6c 6c 28 67 65 74 6f 70 29 2e 0a 20 39 33 33 20 30 34 39 32 20 30 37 35 34 20 20 20 ┆; call(getop). 933 0492 0754 ┆
0x3340…3360 20 20 20 20 20 20 61 64 64 28 77 72 65 67 2c 77 72 6b 30 29 20 20 20 20 20 20 20 20 20 20 20 20 ┆ add(wreg,wrk0) ┆
0x3360…3380 20 20 20 20 3b 20 77 5f 72 65 67 28 69 6e 64 65 78 29 20 3a 3d 20 77 5f 72 65 67 28 69 6e 64 65 ┆ ; w_reg(index) := w_reg(inde┆
0x3380…33a0 78 29 20 2b 0a 20 39 33 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆x) + 934 ┆
0x33a0…33c0 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 3b 20 77 72 6b 30 ┆ ; wrk0┆
0x33c0…33e0 2e 0a 20 39 33 35 20 30 34 39 33 20 30 37 35 35 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 63 61 ┆. 935 0493 0755 cjmp(ca┆
0x33e0…3400 72 72 79 2c 61 61 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 63 61 72 72 ┆rry,aa1) ; if carr┆
0x3400…3420 79 20 74 68 65 6e 20 67 6f 74 6f 20 61 61 31 2e 0a 20 39 33 36 20 30 34 39 34 20 30 37 35 36 20 ┆y then goto aa1. 936 0494 0756 ┆
0x3420…3440 20 20 20 20 20 20 20 20 6a 73 62 28 67 65 74 64 6f 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ jsb(getdo2) ┆
0x3440…3460 20 20 20 20 20 20 3b 20 63 61 6c 6c 28 67 65 74 64 32 6f 29 2e 0a 20 39 33 37 20 30 34 39 35 20 ┆ ; call(getd2o). 937 0495 ┆
0x3460…3480 30 37 35 37 20 20 20 20 20 20 20 20 20 6a 6d 70 28 63 63 6f 77 63 29 20 61 64 64 28 77 70 72 65 ┆0757 jmp(ccowc) add(wpre┆
0x3480…34a0 2c 77 72 6b 30 29 20 20 20 20 20 3b 20 77 5f 72 65 67 28 69 6e 64 65 78 2d 31 29 3a 3d 77 5f 72 ┆,wrk0) ; w_reg(index-1):=w_r┆
0x34a0…34c0 65 67 28 69 6e 64 65 78 2d 31 29 0a 20 39 33 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆eg(index-1) 938 ┆
0x34c0…34e0 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 ┆ ┆
0x34e0…3500 20 3b 20 2b 20 77 72 6b 30 2c 20 67 6f 74 6f 20 63 63 6f 77 63 2e 0a 20 39 33 39 20 30 34 39 36 ┆ ; + wrk0, goto ccowc. 939 0496┆
0x3500…3520 20 30 37 36 30 20 61 61 31 3a 20 20 20 20 6a 73 62 28 67 65 74 64 6f 32 29 20 20 20 20 20 20 20 ┆ 0760 aa1: jsb(getdo2) ┆
0x3520…3540 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 61 6c 6c 28 67 65 74 64 6f 32 29 2e 0a 20 39 34 30 ┆ ; call(getdo2). 940┆
0x3540…3560 20 20 20 20 20 20 20 20 20 20 20 0a 20 39 34 31 20 30 34 39 37 20 30 37 36 31 20 20 20 20 20 20 ┆ 941 0497 0761 ┆
0x3560…3580 20 20 20 6a 6d 70 28 63 63 6f 77 63 29 20 61 64 64 31 28 77 70 72 65 2c 77 72 6b 30 29 20 20 20 ┆ jmp(ccowc) add1(wpre,wrk0) ┆
0x3580…35a0 20 3b 20 77 5f 72 65 67 28 69 6e 64 65 78 2d 31 29 3a 3d 77 5f 72 65 67 28 69 6e 64 65 78 2d 31 ┆ ; w_reg(index-1):=w_reg(index-1┆
0x35a0…35c0 29 0a 20 39 34 32 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 ┆) 942 ┆
0x35c0…35e0 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 2b 20 77 72 6b 30 20 ┆ ; + wrk0 ┆
0x35e0…3600 2b 20 31 2c 20 67 6f 74 6f 20 63 63 6f 77 63 2e 0a 20 39 34 33 20 20 20 20 20 20 20 20 20 20 20 ┆+ 1, goto ccowc. 943 ┆
0x3600…3620 0a 20 39 34 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 73 74 72 75 ┆ 944 ; instru┆
0x3620…3640 63 74 69 6f 6e 20 69 6e 74 65 67 65 72 20 64 6f 75 62 6c 65 20 77 6f 72 64 2c 20 73 75 62 74 72 ┆ction integer double word, subtr┆
0x3640…3660 61 63 74 3a 20 27 73 73 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 35 37 2e 0a 20 39 34 35 ┆act: 'ss', numeric code 57. 945┆
0x3660…3680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ; -----------┆
0x3680…36a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x36a0…36c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 39 34 36 20 30 34 39 38 ┆---------------------- 946 0498┆
0x36c0…36e0 20 30 37 36 32 20 73 73 2f 35 37 3a 20 20 61 6e 64 69 6e 76 28 65 78 2c 33 29 20 20 20 20 20 20 ┆ 0762 ss/57: andinv(ex,3) ┆
0x36e0…3700 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 78 28 63 61 72 72 79 29 3a 3d 65 78 28 6f 76 65 72 ┆ ; ex(carry):=ex(over┆
0x3700…3720 66 6c 6f 77 29 3a 3d 2e 0a 20 39 34 37 20 30 34 39 39 20 30 37 36 33 20 20 20 20 20 20 20 20 20 ┆flow):=. 947 0499 0763 ┆
0x3720…3740 6a 73 62 28 67 65 74 64 6f 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆jsb(getdo1) ; ┆
0x3740…3760 63 61 6c 6c 28 67 65 74 64 6f 31 29 2e 0a 20 39 34 38 20 30 35 30 30 20 30 37 36 34 20 20 20 20 ┆call(getdo1). 948 0500 0764 ┆
0x3760…3780 20 20 20 20 20 73 75 62 28 77 72 65 67 2c 77 72 6b 30 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ sub(wreg,wrk0) ┆
0x3780…37a0 20 20 20 3b 20 77 5f 72 65 67 28 69 6e 64 65 78 29 20 3a 3d 20 77 5f 72 65 67 28 69 6e 64 65 78 ┆ ; w_reg(index) := w_reg(index┆
0x37a0…37c0 29 20 2d 0a 20 39 34 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆) - 949 ┆
0x37c0…37e0 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 3b 20 77 72 6b 30 2e ┆ ; wrk0.┆
0x37e0…3800 0a 20 39 35 30 20 30 35 30 31 20 30 37 36 35 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 63 61 72 ┆ 950 0501 0765 cjmp(car┆
0x3800…3820 72 79 2c 73 73 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 63 61 72 72 79 ┆ry,ss1) ; if carry┆
0x3820…3840 20 74 68 65 6e 20 67 6f 74 6f 20 73 73 31 2e 0a 20 39 35 31 20 30 35 30 32 20 30 37 36 36 20 20 ┆ then goto ss1. 951 0502 0766 ┆
0x3840…3860 20 20 20 20 20 20 20 6a 73 62 28 67 65 74 64 6f 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ jsb(getdo2) ┆
0x3860…3880 20 20 20 20 20 3b 20 63 61 6c 6c 28 67 65 74 64 6f 32 29 2e 0a 20 39 35 32 20 30 35 30 33 20 30 ┆ ; call(getdo2). 952 0503 0┆
0x3880…38a0 37 36 37 20 20 20 20 20 20 20 20 20 6a 6d 70 28 63 63 6f 77 63 29 20 73 75 62 28 77 70 72 65 2c ┆767 jmp(ccowc) sub(wpre,┆
0x38a0…38c0 77 72 6b 30 29 20 20 20 20 20 3b 20 77 5f 72 65 67 28 69 6e 64 65 78 2d 31 29 3a 3d 77 5f 72 65 ┆wrk0) ; w_reg(index-1):=w_re┆
0x38c0…38e0 67 28 69 6e 64 65 78 2d 31 29 0a 20 39 35 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆g(index-1) 953 ┆
0x38e0…3900 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 ┆ ┆
0x3900…3920 3b 20 2d 20 77 72 6b 30 2c 20 67 6f 74 6f 20 63 63 6f 77 63 2e 0a 20 39 35 34 20 30 35 30 34 20 ┆; - wrk0, goto ccowc. 954 0504 ┆
0x3920…3940 30 37 37 30 20 73 73 31 3a 20 20 20 20 6a 73 62 28 67 65 74 64 6f 32 29 20 20 20 20 20 20 20 20 ┆0770 ss1: jsb(getdo2) ┆
0x3940…3960 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 61 6c 6c 28 67 65 74 64 6f 32 29 2e 0a 20 39 35 35 20 ┆ ; call(getdo2). 955 ┆
0x3960…3980 30 35 30 35 20 30 37 37 31 20 20 20 20 20 20 20 20 20 6a 6d 70 28 63 63 6f 77 63 29 20 73 75 62 ┆0505 0771 jmp(ccowc) sub┆
0x3980…39a0 31 28 77 70 72 65 2c 77 72 6b 30 29 20 20 20 20 3b 20 77 5f 72 65 67 28 69 6e 64 65 78 2d 31 29 ┆1(wpre,wrk0) ; w_reg(index-1)┆
0x39a0…39c0 3a 3d 77 5f 72 65 67 28 69 6e 64 65 78 2d 31 29 0a 20 39 35 36 20 20 20 20 20 20 20 20 20 20 20 ┆:=w_reg(index-1) 956 ┆
0x39c0…39e0 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 ┆ ┆
0x39e0…3a00 20 20 20 20 20 20 3b 20 2d 20 77 72 6b 30 20 2b 20 31 2c 20 67 6f 74 6f 20 63 63 6f 77 63 2e 0a ┆ ; - wrk0 + 1, goto ccowc. ┆
0x3a00…3a20 20 39 35 37 20 20 20 20 20 20 20 20 20 20 20 0a 20 39 35 38 20 20 20 20 20 20 20 20 20 20 20 0a ┆ 957 958 ┆
0x3a20…3a40 20 39 35 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6c 6f 67 69 63 61 6c ┆ 959 ; logical┆
0x3a40…3a60 20 6f 70 65 72 61 74 69 6f 6e 2e 0a 20 39 36 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ operation. 960 ┆
0x3a60…3a80 20 20 20 3b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 39 36 31 20 20 20 20 ┆ ; ------------------ 961 ┆
0x3a80…3aa0 20 20 20 20 20 20 20 0a 20 39 36 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ 962 ;┆
0x3aa0…3ac0 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 6c 6f 67 69 63 61 6c 20 61 6e 64 3a 20 27 6c 61 27 2c 20 ┆ instruction logical and: 'la', ┆
0x3ac0…3ae0 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 34 2e 0a 20 39 36 33 20 20 20 20 20 20 20 20 20 20 20 20 ┆numeric code 4. 963 ┆
0x3ae0…3b00 20 20 20 20 20 20 20 3b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ; -----------------------┆
0x3b00…3b20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 39 36 34 20 30 35 30 ┆----------------------- 964 050┆
0x3b20…3b40 36 20 30 37 37 32 20 6c 61 2f 34 3a 20 20 20 6a 73 62 28 67 65 74 6f 70 29 20 20 20 20 20 20 20 ┆6 0772 la/4: jsb(getop) ┆
0x3b40…3b60 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 61 6c 6c 28 67 65 74 6f 70 29 2e 0a 20 39 36 35 ┆ ; call(getop). 965┆
0x3b60…3b80 20 30 35 30 37 20 30 37 37 33 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 66 6e 65 69 63 29 20 61 ┆ 0507 0773 jmp(pfneic) a┆
0x3b80…3ba0 6e 64 28 77 72 65 67 2c 77 72 6b 30 29 20 20 20 20 3b 20 77 5f 72 65 67 28 69 6e 64 65 78 29 3a ┆nd(wreg,wrk0) ; w_reg(index):┆
0x3ba0…3bc0 3d 77 5f 72 65 67 28 69 6e 64 65 78 29 20 0a 20 39 36 36 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆=w_reg(index) 966 ┆
0x3bc0…3be0 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 ┆ ┆
0x3be0…3c00 20 20 20 20 3b 20 61 6e 64 20 77 72 6b 30 2c 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a 20 39 36 ┆ ; and wrk0, goto pfneic. 96┆
0x3c00…3c20 37 20 20 20 20 20 20 20 20 20 20 20 0a 20 39 36 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆7 968 ┆
0x3c20…3c40 20 20 20 20 3b 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 6c 6f 67 69 63 61 6c 20 6f 72 3a 20 27 6c ┆ ; instruction logical or: 'l┆
0x3c40…3c60 6f 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 35 2e 0a 20 39 36 39 20 20 20 20 20 20 20 20 ┆o', numeric code 5. 969 ┆
0x3c60…3c80 20 20 20 20 20 20 20 20 20 20 20 3b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ; -------------------┆
0x3c80…3ca0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 39 37 30 20 ┆-------------------------- 970 ┆
0x3ca0…3cc0 30 35 30 38 20 30 37 37 34 20 6c 6f 2f 35 3a 20 20 20 6a 73 62 28 67 65 74 6f 70 29 20 20 20 20 ┆0508 0774 lo/5: jsb(getop) ┆
0x3cc0…3ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 61 6c 6c 28 67 65 74 6f 70 29 2e 0a 20 ┆ ; call(getop). ┆
0x3ce0…3d00 39 37 31 20 30 35 30 39 20 30 37 37 35 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 66 6e 65 69 63 ┆971 0509 0775 jmp(pfneic┆
0x3d00…ad00 […elided…]
0xad00…ad20 6a 6c 2e 20 77 33 20 20 65 31 32 2e 20 20 20 20 20 20 20 3b 20 20 20 6e 65 78 74 20 63 68 61 72 ┆jl. w3 e12. ; next char┆
0xad20…ad40 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 65 31 32 2e 20 20 20 20 20 20 20 3b 20 20 20 6e ┆; jl. w3 e12. ; n┆
0xad40…ad60 65 78 74 20 63 68 61 72 3b 0a 20 20 20 20 20 20 61 6c 2e 20 77 33 20 20 65 31 31 2e 20 20 20 20 ┆ext char; al. w3 e11. ┆
0xad60…ad80 20 20 20 3b 20 20 20 6e 65 78 74 20 63 68 61 72 3b 0a 65 31 32 3a 20 20 61 6c 20 20 77 32 20 20 ┆ ; next char; e12: al w2 ┆
0xad80…ada0 20 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 67 65 74 20 74 65 78 74 20 77 6f 72 ┆ 0 ; goto get text wor┆
0xada0…adc0 64 3b 0a 20 20 20 20 20 20 72 78 2e 20 77 33 20 20 63 31 34 2e 20 20 20 20 20 20 20 3b 20 6e 65 ┆d; rx. w3 c14. ; ne┆
0xadc0…ade0 78 74 20 63 68 61 72 3a 0a 20 20 20 20 20 20 6c 64 20 20 77 33 20 20 20 38 20 20 20 20 20 20 20 ┆xt char: ld w3 8 ┆
0xade0…ae00 20 20 3b 20 20 20 77 32 3a 3d 20 66 72 6f 6e 74 20 63 68 61 72 20 6f 66 20 70 61 72 74 69 61 6c ┆ ; w2:= front char of partial┆
0xae00…ae20 3b 0a 20 20 20 20 20 20 72 78 2e 20 77 33 20 20 63 31 34 2e 20 20 20 20 20 20 20 3b 20 20 20 70 ┆; rx. w3 c14. ; p┆
0xae20…ae40 61 72 74 69 61 6c 3a 3d 20 70 61 72 74 69 61 6c 20 73 68 69 66 74 20 38 3b 0a 20 20 20 20 20 20 ┆artial:= partial shift 8; ┆
0xae40…ae60 73 7a 20 20 77 32 20 20 32 35 35 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 6e 6f 74 20 74 65 ┆sz w2 255 ; if not te┆
0xae60…ae80 78 74 20 65 6e 64 0a 20 20 20 20 20 20 6a 6c 2e 20 77 30 20 20 68 32 36 2e 20 20 20 20 20 20 20 ┆xt end jl. w0 h26. ┆
0xae80…aea0 3b 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 6f 75 74 63 68 61 72 3b 0a 20 20 20 20 20 20 64 6c 2e ┆; then goto outchar; dl.┆
0xaea0…aec0 20 77 33 20 20 63 31 38 2e 20 20 20 20 20 20 20 3b 20 20 20 72 65 73 74 6f 72 65 20 72 65 67 69 ┆ w3 c18. ; restore regi┆
0xaec0…aee0 73 74 65 72 73 3b 0a 20 20 20 20 20 20 6a 6c 20 20 20 20 20 20 78 33 20 20 20 20 20 20 20 20 20 ┆sters; jl x3 ┆
0xaee0…af00 3b 20 20 20 72 65 74 75 72 6e 3b 0a 0a 3b 20 6f 75 74 69 6e 74 65 67 65 72 0a 3b 20 63 6f 6e 76 ┆; return; ; outinteger ; conv┆
0xaf00…af20 65 72 74 73 20 61 20 32 34 20 62 69 74 73 20 69 6e 74 65 67 65 72 20 74 6f 20 61 20 74 65 78 74 ┆erts a 24 bits integer to a text┆
0xaf20…af40 73 74 72 69 6e 67 20 77 68 69 63 68 20 69 73 20 6f 75 74 70 75 74 0a 3b 20 74 6f 20 74 68 65 20 ┆string which is output ; to the ┆
0xaf40…af60 7a 6f 6e 65 20 67 69 76 65 6e 20 69 6e 20 74 68 65 20 63 61 6c 6c 2e 20 74 68 65 20 63 6f 6e 76 ┆zone given in the call. the conv┆
0xaf60…af80 65 72 73 69 6f 6e 20 69 73 20 63 6f 6e 74 72 6f 6c 6c 65 64 0a 3b 20 62 79 20 61 20 6c 61 79 6f ┆ersion is controlled ; by a layo┆
0xaf80…afa0 75 74 20 67 69 76 65 6e 20 69 6e 20 74 68 65 20 77 6f 72 64 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 ┆ut given in the word following t┆
0xafa0…afc0 68 65 20 63 61 6c 6c 20 28 73 6b 69 70 70 65 64 0a 3b 20 61 74 20 72 65 74 75 72 6e 29 2e 0a 3b ┆he call (skipped ; at return). ;┆
0xafc0…afe0 20 6c 61 79 6f 75 74 20 66 6f 72 6d 61 74 3a 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ layout format: ; ┆
0xafe0…b000 20 73 69 67 6e 3c 32 33 20 2b 20 66 69 6c 6c 3c 31 32 20 2b 20 70 6f 73 69 74 69 6f 6e 73 0a 3b ┆ sign<23 + fill<12 + positions ;┆
0xb000…b020 20 69 66 20 74 68 65 20 73 69 67 6e 20 69 73 20 31 20 74 68 65 6e 20 74 68 65 20 76 61 6c 75 65 ┆ if the sign is 1 then the value┆
0xb020…b040 20 69 73 20 63 6f 6e 73 69 64 65 72 65 64 20 61 20 73 69 67 6e 65 64 0a 3b 20 69 6e 74 65 67 65 ┆ is considered a signed ; intege┆
0xb040…b060 72 20 6f 74 68 65 72 77 69 73 65 20 69 74 20 69 73 20 74 72 65 61 74 65 64 20 61 73 20 68 61 76 ┆r otherwise it is treated as hav┆
0xb060…b080 69 6e 67 20 6e 6f 20 73 69 67 6e 2e 0a 3b 20 74 68 65 20 66 69 6c 6c 20 63 68 61 72 61 63 74 65 ┆ing no sign. ; the fill characte┆
0xb080…b0a0 72 20 72 65 70 6c 61 63 65 73 20 6c 65 61 64 69 6e 67 20 7a 65 72 6f 65 73 2e 0a 3b 20 70 6f 73 ┆r replaces leading zeroes. ; pos┆
0xb0a0…b0c0 69 74 69 6f 6e 73 20 64 65 74 65 72 6d 69 6e 65 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 ┆itions determines the number of ┆
0xb0c0…b0e0 63 68 61 72 61 63 74 65 72 73 20 6f 75 74 70 75 74 20 28 65 78 63 65 70 74 0a 3b 20 66 6f 72 20 ┆characters output (except ; for ┆
0xb0e0…b100 61 6c 61 72 6d 20 70 72 69 6e 74 69 6e 67 29 2e 20 74 68 65 20 6d 61 78 69 6d 75 6d 20 76 61 6c ┆alarm printing). the maximum val┆
0xb100…b120 75 65 20 6f 66 20 70 6f 73 69 74 69 6f 6e 73 20 69 73 20 31 32 2e 0a 63 33 36 3a 20 20 61 6c 2e ┆ue of positions is 12. c36: al.┆
0xb120…b140 20 77 31 20 20 68 32 31 2e 20 20 20 20 20 20 20 3b 20 28 2d 32 29 3a 20 20 20 7a 6f 6e 65 3a 3d ┆ w1 h21. ; (-2): zone:=┆
0xb140…b160 20 63 75 72 72 65 6e 74 20 6f 75 74 70 75 74 3b 0a 68 33 32 3a 20 20 64 73 2e 20 77 31 20 20 63 ┆ current output; h32: ds. w1 c┆
0xb160…b180 31 2e 20 20 20 20 20 20 20 20 3b 20 6f 75 74 69 6e 74 65 67 65 72 3a 0a 20 20 20 20 20 20 64 73 ┆1. ; outinteger: ds┆
0xb180…b1a0 2e 20 77 33 20 20 63 31 38 2e 20 20 20 20 20 20 20 3b 20 20 20 73 61 76 65 20 72 65 67 69 73 74 ┆. w3 c18. ; save regist┆
0xb1a0…b1c0 65 72 73 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 33 20 20 20 20 20 20 20 20 20 3b 20 ┆ers; rl w3 x3 ; ┆
0xb1c0…b1e0 75 6e 70 61 63 6b 20 6c 61 79 6f 75 74 3a 0a 20 20 20 20 20 20 68 73 2e 20 77 33 20 20 65 31 33 ┆unpack layout: hs. w3 e13┆
0xb1e0…b200 2e 20 20 20 20 20 20 20 3b 20 20 20 70 6f 73 69 74 69 6f 6e 73 20 3a 3d 20 73 65 63 6f 6e 64 20 ┆. ; positions := second ┆
0xb200…b220 62 79 74 65 28 6c 61 79 6f 75 74 29 3b 0a 20 20 20 20 20 20 61 73 20 20 77 33 20 20 2d 31 32 20 ┆byte(layout); as w3 -12 ┆
0xb220…b240 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 68 73 2e 20 77 33 20 20 65 32 32 2e 20 20 20 20 20 ┆ ; hs. w3 e22. ┆
0xb240…b260 20 20 3b 20 20 20 73 69 67 6e 20 3a 3d 20 6c 61 79 6f 75 74 20 3c 20 30 3b 0a 20 20 20 20 20 20 ┆ ; sign := layout < 0; ┆
0xb260…b280 6c 61 2e 20 77 33 20 20 65 32 31 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 68 73 2e 20 77 ┆la. w3 e21. ; hs. w┆
0xb280…b2a0 33 20 20 65 31 34 2e 20 20 20 20 20 20 20 3b 20 20 20 66 69 6c 6c 20 3a 3d 20 62 69 74 73 28 31 ┆3 e14. ; fill := bits(1┆
0xb2a0…b2c0 2c 31 31 2c 66 69 72 73 74 20 62 79 74 65 28 6c 61 79 6f 75 74 29 29 3b 0a 20 20 20 20 20 20 6c ┆,11,first byte(layout)); l┆
0xb2c0…b2e0 61 20 20 77 33 20 20 30 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 6c 61 79 6f 75 74 20 ┆a w3 0 ; if layout ┆
0xb2e0…b300 3c 20 30 0a 20 20 20 20 20 20 73 68 20 20 77 33 20 20 2d 31 20 20 20 20 20 20 20 20 20 3b 20 20 ┆< 0 sh w3 -1 ; ┆
0xb300…b320 20 61 6e 64 20 6e 75 6d 62 65 72 20 3c 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 61 63 20 20 77 ┆ and number < 0 then ac w┆
0xb320…b340 30 20 28 30 29 20 20 20 20 20 20 20 20 20 3b 20 20 20 6e 75 6d 62 65 72 20 3a 3d 20 2d 6e 75 6d ┆0 (0) ; number := -num┆
0xb340…b360 62 65 72 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 2d 31 20 20 20 20 20 20 20 20 20 3b 20 ┆ber; al w1 -1 ; ┆
0xb360…b380 20 20 69 20 3a 3d 20 2d 31 3b 0a 0a 65 31 35 3a 20 20 61 6c 20 20 77 33 20 20 30 20 20 20 20 20 ┆ i := -1; e15: al w3 0 ┆
0xb380…b3a0 20 20 20 20 20 3b 20 63 6f 6e 76 65 72 74 3a 0a 20 20 20 20 20 20 77 64 2e 20 77 30 20 20 65 32 ┆ ; convert: wd. w0 e2┆
0xb3a0…b3c0 30 2e 20 20 20 20 20 20 20 3b 20 20 20 64 69 67 69 74 20 3a 3d 20 6e 75 6d 62 65 72 20 6d 6f 64 ┆0. ; digit := number mod┆
0xb3c0…b3e0 20 31 30 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 2b 34 38 20 20 20 20 20 20 3b 20 ┆ 10; al w3 x3+48 ; ┆
0xb3e0…b400 20 20 6e 75 6d 62 65 72 20 3a 3d 20 6e 75 6d 62 65 72 2f 2f 31 30 3b 0a 20 20 20 20 20 20 6a 6c ┆ number := number//10; jl┆
0xb400…b420 2e 20 77 32 20 20 65 31 36 2e 20 20 20 20 20 20 20 3b 20 20 20 70 75 74 20 69 6e 20 73 74 72 69 ┆. w2 e16. ; put in stri┆
0xb420…b440 6e 67 28 64 69 67 69 74 2b 69 73 6f 20 64 69 67 69 74 20 62 61 73 65 29 3b 0a 20 20 20 20 20 20 ┆ng(digit+iso digit base); ┆
0xb440…b460 73 65 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 6e 75 6d 62 65 72 ┆se w0 0 ; if number┆
0xb460…b480 20 3c 3e 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 65 31 35 2e 20 20 20 ┆ <> 0 then jl. e15. ┆
0xb480…b4a0 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 63 6f 6e 76 65 72 74 3b 0a 0c 20 20 20 20 20 20 20 20 20 ┆ ; goto convert; ┆
0xb4a0…b4c0 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 ┆ ┆
0xb4c0…b4e0 20 20 20 20 20 20 0a 0a 3b 20 72 63 20 32 36 2e 30 33 2e 37 33 20 20 20 20 20 20 20 20 20 20 20 ┆ ; rc 26.03.73 ┆
0xb4e0…b500 20 20 20 20 66 69 6c 65 20 70 72 6f 63 65 73 73 6f 72 2c 20 63 68 61 72 61 63 74 65 72 20 69 6f ┆ file processor, character io┆
0xb500…b520 2c 20 70 61 67 65 20 2e 2e 2e 34 2e 2e 2e 0a 0a 0a 0a 0a 20 20 20 20 20 20 61 6c 2e 20 77 32 20 ┆, page ...4... al. w2 ┆
0xb520…b540 20 65 32 33 2e 20 20 20 20 20 20 20 3b 20 20 20 73 65 74 20 72 65 74 75 72 6e 28 65 6e 64 20 6e ┆ e23. ; set return(end n┆
0xb540…b560 75 6d 62 65 72 29 3b 0a 65 32 32 20 3d 20 6b 20 2b 20 31 20 3b 20 73 69 67 6e 20 20 20 20 20 20 ┆umber); e22 = k + 1 ; sign ┆
0xb560…b580 20 3b 0a 20 20 20 20 20 20 73 6c 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 ┆ ; sl w0 0 ; ┆
0xb580…b5a0 69 66 20 6c 61 79 6f 75 74 20 3c 3d 20 30 20 74 68 65 6e 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 ┆if layout <= 0 then jl. ┆
0xb5a0…b5c0 20 20 65 31 37 2e 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 74 65 73 74 20 70 72 69 6e 74 ┆ e17. ; goto test print┆
0xb5c0…b5e0 20 73 69 67 6e 3b 0a 0a 65 31 33 20 3d 20 6b 20 2b 20 31 20 3b 20 70 6f 73 69 74 69 6f 6e 73 20 ┆ sign; e13 = k + 1 ; positions ┆
0xb5e0…b600 20 3b 20 65 6e 64 20 6e 75 6d 62 65 72 3a 0a 65 32 33 3a 20 20 73 68 20 20 77 30 20 20 78 31 2b ┆ ; end number: e23: sh w0 x1+┆
0xb600…b620 31 32 20 20 20 20 20 20 3b 20 20 20 77 68 69 6c 65 20 2d 31 20 3c 20 70 6f 73 69 74 69 6f 6e 73 ┆12 ; while -1 < positions┆
0xb620…b640 20 64 6f 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 65 31 38 2e 20 20 20 20 20 20 20 3b 20 20 ┆ do jl. e18. ; ┆
0xb640…b660 20 66 69 6c 6c 20 75 70 20 73 74 72 69 6e 67 28 66 69 6c 6c 20 63 68 61 72 61 63 74 65 72 29 3b ┆ fill up string(fill character);┆
0xb660…b680 0a 20 20 20 20 20 20 61 6c 2e 20 77 30 20 20 78 31 2b 63 31 39 2e 20 20 20 20 3b 0a 20 20 20 20 ┆ al. w0 x1+c19. ; ┆
0xb680…b6a0 20 20 72 6c 2e 20 77 31 20 20 63 31 2e 20 20 20 20 20 20 20 20 3b 20 20 20 72 65 73 74 6f 72 65 ┆ rl. w1 c1. ; restore┆
0xb6a0…b6c0 28 77 31 3a 20 7a 6f 6e 65 20 64 65 73 63 72 20 61 64 64 72 29 3b 0a 0a 0a 65 31 39 3a 20 20 62 ┆(w1: zone descr addr); e19: b┆
0xb6c0…b6e0 61 2e 20 77 30 20 20 31 20 20 20 20 20 20 20 20 20 20 3b 20 6d 6f 76 65 20 73 74 72 69 6e 67 20 ┆a. w0 1 ; move string ┆
0xb6e0…b700 74 6f 20 7a 6f 6e 65 3a 0a 20 20 20 20 20 20 62 7a 20 20 77 32 20 28 30 29 20 20 20 20 20 20 20 ┆to zone: bz w2 (0) ┆
0xb700…b720 20 20 3b 20 20 20 66 6f 72 20 69 20 3a 3d 20 69 2b 31 20 77 68 69 6c 65 0a 20 20 20 20 20 20 6a ┆ ; for i := i+1 while j┆
0xb720…b740 6c 2e 20 77 33 20 20 68 32 36 2e 20 20 20 20 20 20 20 3b 20 20 20 69 20 3c 20 73 74 72 69 6e 67 ┆l. w3 h26. ; i < string┆
0xb740…b760 20 74 6f 70 20 64 6f 0a 20 20 20 20 20 20 73 65 2e 20 77 30 20 20 63 32 39 2e 20 20 20 20 20 20 ┆ top do se. w0 c29. ┆
0xb760…b780 20 3b 20 20 20 6f 75 74 63 68 61 72 28 7a 6f 6e 65 2c 20 73 74 72 69 6e 67 28 69 29 29 3b 0a 20 ┆ ; outchar(zone, string(i)); ┆
0xb780…b7a0 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 65 31 39 2e 20 20 20 20 20 20 20 3b 0a 0a 20 20 20 20 20 ┆ jl. e19. ; ┆
0xb7a0…b7c0 20 64 6c 2e 20 77 33 20 20 63 31 38 2e 20 20 20 20 20 20 20 3b 20 20 20 72 65 73 74 6f 72 65 20 ┆ dl. w3 c18. ; restore ┆
0xb7c0…b7e0 72 65 67 69 73 74 65 72 73 3b 0a 20 20 20 20 20 20 6a 6c 20 20 20 20 20 20 78 33 2b 32 20 20 20 ┆registers; jl x3+2 ┆
0xb7e0…b800 20 20 20 20 3b 20 20 20 72 65 74 75 72 6e 20 77 69 74 68 20 73 6b 69 70 20 6f 66 20 6c 61 79 6f ┆ ; return with skip of layo┆
0xb800…b820 75 74 3b 0a 0a 3b 20 77 30 20 3d 20 30 20 61 74 20 65 6e 74 72 79 20 68 65 72 65 3a 0a 0a 65 31 ┆ut; ; w0 = 0 at entry here: e1┆
0xb820…b840 37 3a 20 20 61 6c 20 20 77 33 20 20 34 35 20 20 20 20 20 20 20 20 20 3b 20 74 65 73 74 20 70 72 ┆7: al w3 45 ; test pr┆
0xb840…b860 69 6e 74 20 73 69 67 6e 3a 0a 20 20 20 20 20 20 73 68 2e 20 77 30 20 28 63 31 2e 2d 32 29 20 20 ┆int sign: sh. w0 (c1.-2) ┆
0xb860…b880 20 20 20 3b 20 20 20 63 68 61 72 20 3a 3d 20 3c 3a 2d 3a 3e 3b 0a 20 20 20 20 20 20 20 20 20 20 ┆ ; char := <:-:>; ┆
0xb880…b8a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 73 61 76 65 64 20 6e 75 6d 62 ┆ ; if saved numb┆
0xb8a0…b8c0 65 72 20 3e 3d 20 30 20 74 68 65 6e 0a 65 31 34 20 3d 20 6b 20 2b 20 31 20 3b 20 66 69 6c 6c 20 ┆er >= 0 then e14 = k + 1 ; fill ┆
0xb8c0…b8e0 63 68 61 72 20 20 3b 20 66 69 6c 6c 20 75 70 20 73 74 72 69 6e 67 3a 0a 65 31 38 3a 20 20 61 6c ┆char ; fill up string: e18: al┆
0xb8e0…b900 20 20 77 33 20 20 33 32 20 20 20 20 20 20 20 20 20 3b 20 20 20 63 68 61 72 20 3a 3d 20 66 69 6c ┆ w3 32 ; char := fil┆
0xb900…b920 6c 3b 0a 0a 65 31 36 3a 20 20 68 73 2e 20 77 33 20 20 78 31 2b 63 31 39 2e 20 20 20 20 3b 20 70 ┆l; e16: hs. w3 x1+c19. ; p┆
0xb920…b940 75 74 20 69 6e 20 73 74 72 69 6e 67 3a 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2d 31 ┆ut in string: al w1 x1-1┆
0xb940…b960 20 20 20 20 20 20 20 3b 20 20 20 73 74 72 69 6e 67 28 69 29 20 3a 3d 20 63 68 61 72 3b 20 20 69 ┆ ; string(i) := char; i┆
0xb960…b980 20 3a 3d 20 69 2d 31 3b 0a 20 20 20 20 20 20 6a 6c 20 20 20 20 20 20 78 32 20 20 20 20 20 20 20 ┆ := i-1; jl x2 ┆
0xb980…b9a0 20 20 3b 20 20 20 72 65 74 75 72 6e 3b 0a 0a 65 32 30 3a 20 20 31 30 20 20 20 20 20 20 3b 20 63 ┆ ; return; e20: 10 ; c┆
0xb9a0…b9c0 6f 6e 73 74 61 6e 74 3a 20 31 30 0a 65 32 31 3a 20 20 2d 31 2d 31 3c 31 31 20 3b 20 6d 61 73 6b ┆onstant: 10 e21: -1-1<11 ; mask┆
0xb9c0…b9e0 20 66 6f 72 20 75 6e 70 61 63 6b 20 6c 61 79 6f 75 74 0a 6d 2e 66 70 20 69 6f 20 73 79 73 74 65 ┆ for unpack layout m.fp io syste┆
0xb9e0…ba00 6d 20 32 36 2e 30 33 2e 37 33 0a 65 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆m 26.03.73 e. ┆
0xba00…ba20 20 20 20 20 3b 20 65 6e 64 20 63 68 61 72 61 63 74 65 72 20 69 6e 70 75 74 2f 6f 75 74 70 75 74 ┆ ; end character input/output┆
0xba20…ba40 3b 0a 0a 0c 0a 0a 0c 0a 0a 3b 20 72 63 20 31 39 37 37 2e 30 39 2e 31 34 20 20 20 20 20 20 20 20 ┆; ; rc 1977.09.14 ┆
0xba40…ba60 66 69 6c 65 20 70 72 6f 63 65 73 73 6f 72 2c 20 72 65 73 69 64 65 6e 74 2c 20 70 61 67 65 20 2e ┆file processor, resident, page .┆
0xba60…ba80 2e 2e 31 2e 2e 2e 0a 0a 3b 20 66 70 20 73 65 67 6d 65 6e 74 61 74 69 6f 6e 20 61 6e 64 20 66 70 ┆..1... ; fp segmentation and fp┆
0xba80…baa0 20 6d 65 73 73 61 67 65 73 0a 0a 68 34 30 3a 20 20 3c 3a 66 70 3a 3e 2c 20 30 2c 20 72 2e 34 3b ┆ messages h40: <:fp:>, 0, r.4;┆
0xbaa0…bac0 20 66 69 78 3b 20 6e 61 6d 65 20 6f 66 20 66 70 20 61 72 65 61 20 70 72 6f 63 65 73 73 0a 68 34 ┆ fix; name of fp area process h4┆
0xbac0…bae0 34 3a 20 20 3c 3a 73 3a 3e 20 2c 20 30 2c 20 72 2e 34 3b 69 6e 69 74 3b 20 6e 61 6d 65 20 6f 66 ┆4: <:s:> , 0, r.4;init; name of┆
0xbae0…bb00 20 70 61 72 65 6e 74 20 70 72 6f 63 65 73 73 0a 68 34 32 3a 20 20 33 3c 31 32 2b 30 20 20 20 20 ┆ parent process h42: 3<12+0 ┆
0xbb00…bb20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 70 75 74 20 6d 65 73 73 61 67 65 3a 20 6f 70 65 72 61 74 ┆ ; input message: operat┆
0xbb20…bb40 69 6f 6e 0a 68 34 37 3a 20 20 30 2c 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 ┆ion h47: 0, 0 ; ┆
0xbb40…bb60 20 66 69 72 73 74 2c 20 6c 61 73 74 20 61 64 64 72 65 73 73 0a 68 34 31 3a 20 20 30 20 20 20 20 ┆ first, last address h41: 0 ┆
0xbb60…bb80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 73 65 67 6d 65 6e 74 20 6e 75 6d 62 65 72 ┆ ; segment number┆
0xbb80…bba0 0a 68 34 39 3a 20 20 35 3c 31 32 2b 30 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6f 75 74 70 ┆ h49: 5<12+0 ; outp┆
0xbba0…bbc0 75 74 20 6d 65 73 73 61 67 65 3a 20 6f 70 65 72 61 74 69 6f 6e 0a 20 20 20 20 20 20 30 2c 20 30 ┆ut message: operation 0, 0┆
0xbbc0…bbe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 66 69 72 73 74 2c 20 6c 61 73 74 20 61 ┆ ; first, last a┆
0xbbe0…bc00 64 64 72 65 73 73 0a 0a 68 34 35 3a 20 20 32 3c 31 32 2b 31 3c 39 2b 30 3c 35 2b 31 3b 20 66 69 ┆ddress h45: 2<12+1<9+0<5+1; fi┆
0xbc00…bc20 6e 69 73 20 6d 65 73 73 61 67 65 3a 0a 20 20 20 20 20 20 3c 3a 66 69 6e 69 73 3a 3e 2c 20 30 20 ┆nis message: <:finis:>, 0 ┆
0xbc20…bc40 20 20 20 20 20 20 3b 20 74 6f 20 70 61 72 65 6e 74 0a 0a 68 34 36 3a 20 20 32 3c 31 33 2b 30 3c ┆ ; to parent h46: 2<13+0<┆
0xbc40…bc60 35 2b 31 20 20 20 20 20 20 20 20 20 3b 20 62 72 65 61 6b 20 28 70 61 75 73 65 29 20 6d 65 73 73 ┆5+1 ; break (pause) mess┆
0xbc60…bc80 61 67 65 0a 20 20 20 20 20 20 3c 3a 62 72 65 61 6b 3a 3e 2c 20 30 20 20 20 20 20 20 20 3b 20 74 ┆age <:break:>, 0 ; t┆
0xbc80…bca0 6f 20 70 61 72 65 6e 74 0a 0a 63 33 32 3a 20 20 3c 3a 3c 31 30 3e 2a 2a 2a 62 72 65 61 6b 3c 33 ┆o parent c32: <:<10>***break<3┆
0xbca0…bcc0 32 3e 3c 30 3e 3a 3e 20 3b 20 6a 66 72 2e 20 70 65 72 6d 61 6e 65 6e 74 2c 20 70 61 67 65 20 2e ┆2><0>:> ; jfr. permanent, page .┆
0xbcc0…bce0 2e 2e 32 2e 2e 2e 0a 0a 68 38 35 3a 20 20 30 2c 20 72 2e 34 20 20 20 20 20 20 20 20 20 20 20 20 ┆..2... h85: 0, r.4 ┆
0xbce0…bd00 20 3b 20 64 75 6d 6d 79 20 6e 61 6d 65 20 2c 20 6d 28 38 3a 31 34 29 0a 0a 68 34 33 3a 20 20 30 ┆ ; dummy name , m(8:14) h43: 0┆