|
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 (0,) 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 (3,) Data for ptextline
0x1e00…2100 Data for ttextline
0x2100…2400 Data for treadtextl
0x2400…2700 (4,) Data for preadtextl
0x2700…2a00 Data for pwrbinary
0x2a00…2d00 Data for ptestmonr
0x2d00…2d20 (5,) 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 (6,) 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…3d20 29 20 6f 72 28 77 72 65 67 2c 77 72 6b 30 29 20 20 20 20 20 3b 20 77 5f 72 65 67 28 69 6e 64 65 ┆) or(wreg,wrk0) ; w_reg(inde┆
0x3d20…3d40 78 29 20 3a 3d 20 77 5f 72 65 67 28 69 6e 64 65 78 29 20 6f 72 0a 20 39 37 32 20 20 20 20 20 20 ┆x) := w_reg(index) or 972 ┆
0x3d40…3d60 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 ┆ ┆
0x3d60…3d80 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 72 6b 30 2c 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a ┆ ; wrk0, goto pfneic. ┆
0x3d80…3da0 20 39 37 33 20 20 20 20 20 20 20 20 20 20 20 0a 20 39 37 34 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 973 974 ┆
0x3da0…3dc0 20 20 20 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 65 78 63 ┆ ; instruction logical exc┆
0x3dc0…3de0 6c 75 73 69 76 65 20 6f 72 3a 20 27 6c 78 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 36 2e ┆lusive or: 'lx', numeric code 6.┆
0x3de0…3e00 0a 20 39 37 35 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 ┆ 975 ; ------┆
0x3e00…3e20 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 ┆--------------------------------┆
0x3e20…3e40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 39 37 36 20 30 35 31 30 20 30 37 37 36 ┆----------------- 976 0510 0776┆
0x3e40…3e60 20 6c 78 2f 36 3a 20 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 ┆ lx/6: jsb(getop) ┆
0x3e60…3e80 20 20 20 20 20 20 20 3b 20 63 61 6c 6c 28 67 65 74 6f 70 29 2e 0a 20 39 37 37 20 30 35 31 31 20 ┆ ; call(getop). 977 0511 ┆
0x3e80…3ea0 30 37 37 37 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 66 6e 65 69 63 29 20 65 78 6f 72 28 77 72 ┆0777 jmp(pfneic) exor(wr┆
0x3ea0…3ec0 65 67 2c 77 72 6b 30 29 20 20 20 3b 20 77 5f 72 65 67 28 69 6e 64 65 78 29 20 3a 3d 20 77 5f 72 ┆eg,wrk0) ; w_reg(index) := w_r┆
0x3ec0…3ee0 65 67 28 69 6e 64 65 78 29 20 65 78 6f 72 0a 20 39 37 38 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆eg(index) exor 978 ┆
0x3ee0…3f00 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 ┆ ┆
0x3f00…3f20 (7,) 20 20 20 20 3b 20 77 72 6b 30 2c 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a 20 39 37 39 20 20 20 ┆ ; wrk0, goto pfneic. 979 ┆
0x3f20…3f40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 2a 70 61 67 65 3a 20 20 58 58 58 0a 20 39 38 ┆ ;*page: XXX 98┆
0x3f40…3f60 30 20 20 20 20 20 20 20 20 20 20 20 0a 20 39 38 31 20 20 20 20 20 20 20 20 20 20 20 0a 20 39 38 ┆0 981 98┆
0x3f60…3f80 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 68 69 66 74 20 6f 70 65 72 ┆2 ; shift oper┆
0x3f80…3fa0 61 74 69 6f 6e 73 2e 0a 20 39 38 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ations. 983 ;┆
0x3fa0…3fc0 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 39 38 34 20 20 20 20 20 20 20 20 20 ┆ ----------------- 984 ┆
0x3fc0…3fe0 20 20 0a 20 39 38 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 0a 31 30 39 ┆ 985 ; 109┆
0x3fe0…4000 38 20 20 20 20 20 20 20 20 20 20 20 0a 31 30 39 39 20 20 20 20 20 20 20 20 20 20 20 0a 31 31 30 ┆8 1099 110┆
0x4000…4020 30 20 20 20 20 20 20 20 20 20 20 20 0a 31 31 30 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0 1101 ┆
0x4020…4040 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 6c 79 20 73 68 69 66 ┆ ; instruction logically shif┆
0x4040…4060 74 20 73 69 6e 67 6c 65 3a 20 27 6c 73 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 33 38 2e ┆t single: 'ls', numeric code 38.┆
0x4060…4080 0a 31 31 30 32 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 ┆ 1102 ; ------┆
0x4080…40a0 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 ┆--------------------------------┆
0x40a0…40c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 31 31 30 33 20 30 35 31 32 20 31 ┆-------------------- 1103 0512 1┆
0x40c0…40e0 30 30 30 20 6c 73 2f 33 38 3a 20 20 73 75 62 28 61 64 64 72 73 2c 30 29 20 6e 6f 6c 6f 61 64 20 ┆000 ls/38: sub(addrs,0) noload ┆
0x40e0…4100 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 61 64 64 72 73 20 3e 20 30 20 74 68 65 6e 0a 31 31 ┆ ; if addrs > 0 then 11┆
0x4100…4120 30 34 20 30 35 31 33 20 31 30 30 31 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 67 72 65 61 74 2c ┆04 0513 1001 cjmp(great,┆
0x4120…4140 6c 73 31 29 20 73 6d 6f 76 65 28 71 2c 77 72 65 67 29 20 68 6f 6c 64 6d 79 3b 20 67 6f 74 6f 20 ┆ls1) smove(q,wreg) holdmy; goto ┆
0x4140…4160 6c 73 31 2c 20 71 3a 3d 77 5f 72 65 67 28 69 6e 64 65 78 29 2c 20 68 6f 6c 64 0a 31 31 30 35 20 ┆ls1, q:=w_reg(index), hold 1105 ┆
0x4160…4180 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 ┆ ┆
0x4180…41a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 6f 6e 64 69 74 69 6f 6e 20 62 69 74 73 ┆ ; condition bits┆
0x41a0…41c0 2e 0a 31 31 30 36 20 30 35 31 34 20 31 30 30 32 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6c 65 ┆. 1106 0514 1002 cjmp(le┆
0x41c0…41e0 73 73 2c 6c 73 32 29 20 20 73 6d 6f 76 65 28 77 72 6b 31 2c 71 29 20 3b 20 69 66 20 61 64 64 72 ┆ss,ls2) smove(wrk1,q) ; if addr┆
0x41e0…4200 73 20 3c 20 30 20 74 68 65 6e 20 67 6f 74 6f 20 6c 73 32 2c 20 77 72 6b 31 3a 3d 71 2e 0a 31 31 ┆s < 0 then goto ls2, wrk1:=q. 11┆
0x4200…4220 30 37 20 30 35 31 35 20 31 30 30 33 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 66 69 63 69 6e 29 ┆07 0515 1003 jmp(pficin)┆
0x4220…4240 20 69 6e 63 74 77 6f 28 69 63 29 20 20 20 20 20 20 20 20 3b 20 3c 2a 20 69 66 20 61 64 64 72 73 ┆ inctwo(ic) ; <* if addrs┆
0x4240…4260 20 3d 20 30 20 2a 3e 20 74 68 65 6e 20 67 6f 74 6f 20 0a 31 31 30 38 20 20 20 20 20 20 20 20 20 ┆ = 0 *> then goto 1108 ┆
0x4260…4280 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 ┆ ┆
0x4280…42a0 20 20 20 20 20 20 20 20 3b 20 67 6f 74 6f 20 70 66 69 63 69 6e 2c 20 69 63 20 3a 3d 20 69 63 20 ┆ ; goto pficin, ic := ic ┆
0x42a0…42c0 2b 20 32 2e 0a 31 31 30 39 20 30 35 31 36 20 31 30 30 34 20 6c 73 31 3a 20 20 20 20 73 75 62 28 ┆+ 2. 1109 0516 1004 ls1: sub(┆
0x42c0…42e0 61 64 64 72 73 2c 32 33 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 61 ┆addrs,23) noload ; if a┆
0x42e0…4300 64 64 72 73 20 3e 20 32 33 20 74 68 65 6e 0a 31 31 31 30 20 30 35 31 37 20 31 30 30 35 20 20 20 ┆ddrs > 23 then 1110 0517 1005 ┆
0x4300…4320 20 20 20 20 20 20 63 6a 6d 70 28 67 72 65 61 74 2c 70 66 6e 65 69 63 29 20 6d 7a 65 72 6f 28 77 ┆ cjmp(great,pfneic) mzero(w┆
0x4320…4340 72 65 67 29 3b 20 67 6f 74 6f 20 70 66 6e 65 69 63 2c 20 77 5f 72 65 67 28 69 6e 64 65 78 29 3a ┆reg); goto pfneic, w_reg(index):┆
0x4340…4360 3d 30 2e 0a 31 31 31 31 20 30 35 31 38 20 31 30 30 36 20 20 20 20 20 20 20 20 20 73 75 62 28 61 ┆=0. 1111 0518 1006 sub(a┆
0x4360…4380 64 64 72 73 2c 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 64 64 72 73 ┆ddrs,1) ; addrs┆
0x4380…43a0 20 3a 3d 20 61 64 64 72 73 20 2d 20 31 2e 0a 31 31 31 32 20 30 35 31 39 20 31 30 30 37 20 20 20 ┆ := addrs - 1. 1112 0519 1007 ┆
0x43a0…43c0 20 20 20 20 20 20 70 75 73 68 72 65 28 61 64 64 72 73 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ pushre(addrs) ┆
0x43c0…43e0 20 20 20 20 3b 20 63 6f 75 6e 74 65 72 20 3a 3d 20 30 2e 0a 31 31 31 33 20 20 20 20 20 20 20 20 ┆ ; counter := 0. 1113 ┆
0x43e0…4400 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 ┆ ┆
0x4400…4420 20 20 20 20 20 20 20 20 20 3b 20 70 75 73 68 20 6e 65 78 74 20 6d 69 63 2e 20 69 6e 73 74 72 2e ┆ ; push next mic. instr.┆
0x4420…4440 0a 31 31 31 34 20 30 35 32 30 20 31 30 31 30 20 20 20 20 20 20 20 20 20 72 65 70 20 6d 6f 76 65 ┆ 1114 0520 1010 rep move┆
0x4440…4460 28 77 72 6b 31 2c 77 72 6b 31 29 20 6c 66 74 71 69 6c 20 20 20 20 3b 20 71 5f 72 65 67 20 3a 3d ┆(wrk1,wrk1) lftqil ; q_reg :=┆
0x4460…4480 20 71 5f 72 65 67 20 73 68 69 66 74 20 6c 65 66 74 20 31 0a 31 31 31 35 20 20 20 20 20 20 20 20 ┆ q_reg shift left 1 1115 ┆
0x4480…44a0 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 ┆ ┆
0x44a0…44c0 20 20 20 20 20 20 20 20 20 3b 20 74 68 65 20 6f 70 72 61 74 69 6f 6e 20 77 69 74 68 20 74 68 65 ┆ ; the opration with the┆
0x44c0…44e0 0a 31 31 31 36 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 ┆ 1116 ┆
0x44e0…4500 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 31 20 72 65 67 ┆ ; wrk1 reg┆
0x4500…4520 20 69 73 20 64 75 6d 6d 79 2e 0a 31 31 31 37 20 30 35 32 31 20 31 30 31 31 20 20 20 20 20 20 20 ┆ is dummy. 1117 0521 1011 ┆
0x4520…4540 20 20 6a 6d 70 28 70 66 6e 65 69 63 29 20 73 6d 6f 76 65 28 77 72 65 67 2c 71 29 20 20 20 20 20 ┆ jmp(pfneic) smove(wreg,q) ┆
0x4540…4560 3b 20 77 5f 72 65 67 28 69 6e 64 65 78 29 3a 3d 71 2c 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a ┆; w_reg(index):=q, goto pfneic. ┆
0x4560…4580 31 31 31 38 20 30 35 32 32 20 31 30 31 32 20 6c 73 32 3a 20 20 20 20 69 6e 69 6d 6d 31 28 77 72 ┆1118 0522 1012 ls2: inimm1(wr┆
0x4580…45a0 6b 32 2c 61 64 64 72 73 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 72 6b 32 3a 3d 61 62 73 ┆k2,addrs) ; wrk2:=abs┆
0x45a0…45c0 28 61 64 64 72 73 29 0a 31 31 31 39 20 30 35 32 33 20 31 30 31 33 20 20 20 20 20 20 20 20 20 73 ┆(addrs) 1119 0523 1013 s┆
0x45c0…45e0 75 62 28 77 72 6b 32 2c 32 33 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 ┆ub(wrk2,23) noload ; i┆
0x45e0…4600 66 20 61 64 64 72 73 20 3e 20 32 33 20 74 68 65 6e 0a 31 31 32 30 20 30 35 32 34 20 31 30 31 34 ┆f addrs > 23 then 1120 0524 1014┆
0x4600…4620 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 67 72 65 61 74 2c 70 66 6e 65 69 63 29 20 6d 7a 65 72 ┆ cjmp(great,pfneic) mzer┆
0x4620…4640 6f 28 77 72 65 67 29 3b 20 67 6f 74 6f 20 70 66 6e 65 69 63 2c 20 77 5f 72 65 67 28 69 6e 64 65 ┆o(wreg); goto pfneic, w_reg(inde┆
0x4640…4660 78 29 3a 3d 30 2e 0a 31 31 32 31 20 30 35 32 35 20 31 30 31 35 20 20 20 20 20 20 20 20 20 73 75 ┆x):=0. 1121 0525 1015 su┆
0x4660…4680 62 28 77 72 6b 32 2c 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 72 ┆b(wrk2,1) ; wr┆
0x4680…46a0 6b 32 20 3a 3d 20 77 72 6b 32 20 2d 20 31 2e 0a 31 31 32 32 20 30 35 32 36 20 31 30 31 36 20 20 ┆k2 := wrk2 - 1. 1122 0526 1016 ┆
0x46a0…46c0 20 20 20 20 20 20 20 70 75 73 68 72 65 28 77 72 6b 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ pushre(wrk2) ┆
0x46c0…46e0 20 20 20 20 20 3b 20 63 6f 75 6e 74 65 72 20 3a 3d 20 77 72 6b 32 2e 0a 31 31 32 33 20 20 20 20 ┆ ; counter := wrk2. 1123 ┆
0x46e0…4700 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 ┆ ┆
0x4700…4720 20 20 20 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 2e 20 69 6e ┆ ; push next mic. in┆
0x4720…4740 73 74 72 2e 20 61 64 64 72 65 73 73 2e 0a 31 31 32 34 20 30 35 32 37 20 31 30 31 37 20 20 20 20 ┆str. address. 1124 0527 1017 ┆
0x4740…4760 20 20 20 20 20 72 65 70 20 6d 6f 76 65 28 77 72 6b 31 2c 77 72 6b 31 29 20 72 67 74 61 6f 6c 20 ┆ rep move(wrk1,wrk1) rgtaol ┆
0x4760…4780 73 68 69 6e 7a 3b 20 73 68 69 66 74 20 72 69 67 74 68 20 7a 65 72 6f 20 69 6e 70 75 74 0a 31 31 ┆shinz; shift rigth zero input 11┆
0x4780…47a0 32 35 20 30 35 32 38 20 31 30 32 30 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 66 6e 65 69 63 29 ┆25 0528 1020 jmp(pfneic)┆
0x47a0…47c0 20 6d 6f 76 65 28 77 72 65 67 2c 77 72 6b 31 29 20 20 20 3b 20 77 5f 72 65 67 28 69 6e 64 65 78 ┆ move(wreg,wrk1) ; w_reg(index┆
0x47c0…47e0 29 3a 3d 20 77 72 6b 31 2c 20 67 6f 74 6f 20 70 72 65 66 6e 2e 0a 31 31 32 36 20 20 20 20 20 20 ┆):= wrk1, goto prefn. 1126 ┆
0x47e0…4800 20 20 20 20 20 0a 31 31 32 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 ┆ 1127 ; i┆
0x4800…4820 (8,) 6e 73 74 72 75 63 74 69 6f 6e 20 6c 6f 67 69 63 61 6c 6c 79 20 73 68 69 66 74 20 64 6f 75 62 6c ┆nstruction logically shift doubl┆
0x4820…4840 65 3a 20 27 6c 64 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 33 39 2e 0a 31 31 32 38 20 20 ┆e: 'ld', numeric code 39. 1128 ┆
0x4840…4860 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 2d 2d ┆ ; -------------┆
0x4860…4880 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 ┆--------------------------------┆
0x4880…48a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 31 31 32 39 20 30 35 32 39 20 31 30 32 31 20 6c 64 2f ┆------------- 1129 0529 1021 ld/┆
0x48a0…48c0 33 39 3a 20 20 73 75 62 28 61 64 64 72 73 2c 30 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 ┆39: sub(addrs,0) noload ┆
0x48c0…48e0 20 20 20 3b 20 69 66 20 61 64 64 72 73 20 3e 20 30 20 74 68 65 6e 0a 31 31 33 30 20 30 35 33 30 ┆ ; if addrs > 0 then 1130 0530┆
0x48e0…4900 20 31 30 32 32 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 67 72 65 61 74 2c 6c 64 31 29 20 68 6f ┆ 1022 cjmp(great,ld1) ho┆
0x4900…4920 6c 64 6d 79 20 73 6d 6f 76 65 28 71 2c 77 70 72 65 29 3b 20 67 6f 74 6f 20 6c 73 31 2c 20 68 6f ┆ldmy smove(q,wpre); goto ls1, ho┆
0x4920…4940 6c 64 20 63 6f 6e 64 69 74 69 6f 6e 20 62 69 74 73 2c 0a 31 31 33 31 20 20 20 20 20 20 20 20 20 ┆ld condition bits, 1131 ┆
0x4940…4960 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 ┆ ┆
0x4960…4980 20 20 20 20 20 20 20 20 3b 20 71 20 3a 3d 20 77 72 65 67 28 69 6e 64 65 78 20 2d 20 31 29 2e 0a ┆ ; q := wreg(index - 1). ┆
0x4980…49a0 31 31 33 32 20 30 35 33 31 20 31 30 32 33 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6c 65 73 73 ┆1132 0531 1023 cjmp(less┆
0x49a0…49c0 2c 6c 64 32 29 20 73 6d 6f 76 65 28 77 72 6b 31 2c 71 29 20 20 3b 20 69 66 20 61 64 64 72 73 20 ┆,ld2) smove(wrk1,q) ; if addrs ┆
0x49c0…49e0 3c 20 30 20 74 68 65 6e 20 67 6f 74 6f 20 6c 64 32 2c 0a 31 31 33 33 20 20 20 20 20 20 20 20 20 ┆< 0 then goto ld2, 1133 ┆
0x49e0…4a00 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 ┆ ┆
0x4a00…4a20 20 20 20 20 20 20 20 20 3b 20 77 72 6b 31 20 3a 3d 20 71 2e 0a 31 31 33 34 20 30 35 33 32 20 31 ┆ ; wrk1 := q. 1134 0532 1┆
0x4a20…4a40 30 32 34 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 66 69 63 69 6e 29 20 69 6e 63 74 77 6f 28 69 ┆024 jmp(pficin) inctwo(i┆
0x4a40…4a60 63 29 20 20 20 20 20 20 20 20 3b 20 69 63 20 3a 3d 20 69 63 20 2b 20 32 2c 20 67 6f 74 6f 20 70 ┆c) ; ic := ic + 2, goto p┆
0x4a60…4a80 66 69 63 69 6e 2e 0a 31 31 33 35 20 30 35 33 33 20 31 30 32 35 20 6c 64 31 3a 20 20 20 20 73 75 ┆ficin. 1135 0533 1025 ld1: su┆
0x4a80…4aa0 62 28 61 64 64 72 73 2c 34 37 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 ┆b(addrs,47) noload ; if┆
0x4aa0…4ac0 20 61 64 64 72 73 20 3e 20 34 37 20 74 68 65 6e 0a 31 31 33 36 20 30 35 33 34 20 31 30 32 36 20 ┆ addrs > 47 then 1136 0534 1026 ┆
0x4ac0…4ae0 20 20 20 20 20 20 20 20 63 6a 6d 70 28 67 72 65 61 74 2c 6c 64 33 29 20 6d 7a 65 72 6f 28 77 70 ┆ cjmp(great,ld3) mzero(wp┆
0x4ae0…4b00 72 65 29 20 20 20 3b 20 67 6f 74 6f 20 6c 64 33 2c 20 77 72 65 67 28 69 6e 64 65 78 2d 31 29 20 ┆re) ; goto ld3, wreg(index-1) ┆
0x4b00…4b20 3a 3d 20 30 2e 0a 31 31 33 37 20 20 20 20 20 20 20 20 20 20 20 0a 31 31 33 38 20 30 35 33 35 20 ┆:= 0. 1137 1138 0535 ┆
0x4b20…4b40 31 30 32 37 20 20 20 20 20 20 20 20 20 73 6d 6f 76 65 28 77 72 6b 31 2c 71 29 20 20 20 20 20 20 ┆1027 smove(wrk1,q) ┆
0x4b40…4b60 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 72 6b 31 20 3a 3d 20 71 2e 0a 31 31 33 39 20 20 20 20 ┆ ; wrk1 := q. 1139 ┆
0x4b60…4b80 20 20 20 20 20 20 20 0a 31 31 34 30 20 30 35 33 36 20 31 30 33 30 20 20 20 20 20 20 20 20 20 73 ┆ 1140 0536 1030 s┆
0x4b80…4ba0 6d 6f 76 65 28 71 2c 77 72 65 67 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 71 ┆move(q,wreg) ; q┆
0x4ba0…4bc0 20 3a 3d 20 77 72 65 67 28 69 6e 64 65 78 29 2e 0a 31 31 34 31 20 30 35 33 37 20 31 30 33 31 20 ┆ := wreg(index). 1141 0537 1031 ┆
0x4bc0…4be0 20 20 20 20 20 20 20 20 73 75 62 28 61 64 64 72 73 2c 31 29 20 20 20 20 20 20 20 20 20 20 20 20 ┆ sub(addrs,1) ┆
0x4be0…4c00 20 20 20 20 20 20 3b 20 61 64 64 72 73 20 3a 3d 20 61 64 64 72 73 20 2d 20 31 2e 0a 31 31 34 32 ┆ ; addrs := addrs - 1. 1142┆
0x4c00…4c20 20 30 35 33 38 20 31 30 33 32 20 20 20 20 20 20 20 20 20 70 75 73 68 72 65 28 61 64 64 72 73 29 ┆ 0538 1032 pushre(addrs)┆
0x4c20…4c40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6d 69 63 72 6f 20 73 65 6b 76 65 6e 73 ┆ ; micro sekvens┆
0x4c40…4c60 65 72 20 63 6f 75 6e 74 65 72 20 3a 3d 20 61 64 64 72 73 2e 0a 31 31 34 33 20 20 20 20 20 20 20 ┆er counter := addrs. 1143 ┆
0x4c60…4c80 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 ┆ ┆
0x4c80…4ca0 20 20 20 20 20 20 20 20 20 20 3b 20 70 75 73 63 68 20 6e 65 78 74 20 6d 69 63 72 6f 2e 20 69 6e ┆ ; pusch next micro. in┆
0x4ca0…4cc0 73 74 72 20 61 64 64 72 73 2e 0a 31 31 34 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆str addrs. 1144 ┆
0x4cc0…4ce0 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 ┆ ┆
0x4ce0…4d00 3b 20 74 6f 20 73 74 61 63 6b 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 31 31 34 35 20 30 ┆; to stack, 1145 0┆
0x4d00…4d20 35 33 39 20 31 30 33 33 20 20 20 20 20 20 20 20 20 72 65 70 20 6d 6f 76 65 28 77 72 6b 31 2c 77 ┆539 1033 rep move(wrk1,w┆
0x4d20…4d40 72 6b 31 29 20 6c 66 74 61 71 6c 20 64 73 68 69 6e 7a 3b 20 73 68 69 66 74 20 77 72 6b 31 20 61 ┆rk1) lftaql dshinz; shift wrk1 a┆
0x4d40…4d60 6e 64 20 71 20 6c 65 66 74 20 77 69 74 68 20 63 6f 6e 65 63 74 69 6f 6e 0a 31 31 34 36 20 20 20 ┆nd q left with conection 1146 ┆
0x4d60…4d80 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 ┆ ┆
0x4d80…4da0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 75 6e 74 69 6c 20 63 6f 75 6e 74 65 72 20 3d 20 ┆ ; until counter = ┆
0x4da0…4dc0 30 2e 0a 31 31 34 37 20 30 35 34 30 20 31 30 33 34 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 77 ┆0. 1147 0540 1034 move(w┆
0x4dc0…4de0 70 72 65 2c 77 72 6b 31 29 20 6e 6f 74 68 6d 20 63 73 6d 79 20 73 68 69 6e 7a 3b 20 77 72 65 67 ┆pre,wrk1) nothm csmy shinz; wreg┆
0x4de0…4e00 28 69 6e 64 65 78 2d 31 29 20 3a 3d 20 77 72 6b 31 2e 0a 31 31 34 38 20 30 35 34 31 20 31 30 33 ┆(index-1) := wrk1. 1148 0541 103┆
0x4e00…4e20 35 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 66 69 63 69 6e 29 20 73 6d 6f 76 65 28 77 72 65 67 ┆5 jmp(pficin) smove(wreg┆
0x4e20…4e40 2c 71 29 20 20 20 20 20 3b 20 77 28 69 6e 64 65 78 29 20 3a 3d 20 71 2c 20 67 6f 74 6f 20 70 66 ┆,q) ; w(index) := q, goto pf┆
0x4e40…4e60 69 63 69 6e 2e 0a 31 31 34 39 20 30 35 34 32 20 31 30 33 36 20 6c 64 32 3a 20 20 20 20 69 6e 69 ┆icin. 1149 0542 1036 ld2: ini┆
0x4e60…4e80 6d 6d 31 28 61 64 64 72 73 2c 61 64 64 72 73 29 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 64 64 ┆mm1(addrs,addrs) ; add┆
0x4e80…4ea0 72 73 20 3a 3d 20 2d 20 61 64 64 72 73 2e 0a 31 31 35 30 20 30 35 34 33 20 31 30 33 37 20 20 20 ┆rs := - addrs. 1150 0543 1037 ┆
0x4ea0…4ec0 20 20 20 20 20 20 73 75 62 28 61 64 64 72 73 2c 34 37 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 ┆ sub(addrs,47) noload ┆
0x4ec0…4ee0 20 20 20 20 3b 20 69 66 20 61 64 64 72 73 20 3e 20 34 37 20 74 68 65 6e 0a 31 31 35 31 20 30 35 ┆ ; if addrs > 47 then 1151 05┆
0x4ee0…4f00 34 34 20 31 30 34 30 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 67 72 65 61 74 2c 6c 64 33 29 20 ┆44 1040 cjmp(great,ld3) ┆
0x4f00…4f20 6d 7a 65 72 6f 28 77 70 72 65 29 20 20 20 3b 20 67 6f 74 6f 20 6c 64 33 2c 20 77 72 65 67 28 69 ┆mzero(wpre) ; goto ld3, wreg(i┆
0x4f20…4f40 6e 64 65 78 2d 31 29 20 3a 3d 30 2e 0a 31 31 35 32 20 30 35 34 35 20 31 30 34 31 20 20 20 20 20 ┆ndex-1) :=0. 1152 0545 1041 ┆
0x4f40…4f60 20 20 20 20 73 6d 6f 76 65 28 71 2c 77 72 65 67 29 0a 31 31 35 33 20 30 35 34 36 20 31 30 34 32 ┆ smove(q,wreg) 1153 0546 1042┆
0x4f60…4f80 20 20 20 20 20 20 20 20 20 73 75 62 28 61 64 64 72 73 2c 31 29 20 20 20 20 20 20 20 20 20 20 20 ┆ sub(addrs,1) ┆
0x4f80…4fa0 20 20 20 20 20 20 20 3b 20 61 64 64 72 73 20 3a 3d 20 61 64 64 72 73 20 2d 31 20 2e 0a 31 31 35 ┆ ; addrs := addrs -1 . 115┆
0x4fa0…4fc0 34 20 30 35 34 37 20 31 30 34 33 20 20 20 20 20 20 20 20 20 70 75 73 68 72 65 28 61 64 64 72 73 ┆4 0547 1043 pushre(addrs┆
0x4fc0…4fe0 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6d 69 63 72 6f 20 73 65 6b 76 65 6e ┆) ; micro sekven┆
0x4fe0…5000 73 65 72 20 63 6f 75 6e 74 65 72 20 3a 3d 20 30 2e 0a 31 31 35 35 20 20 20 20 20 20 20 20 20 20 ┆ser counter := 0. 1155 ┆
0x5000…5020 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 ┆ ┆
0x5020…5040 20 20 20 20 20 20 20 3b 20 70 75 73 68 20 61 64 64 72 65 73 73 20 6f 66 20 74 68 65 20 6e 65 78 ┆ ; push address of the nex┆
0x5040…5060 74 0a 31 31 35 36 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 ┆t 1156 ┆
0x5060…5080 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 69 63 72 6f 20 69 ┆ ; micro i┆
0x5080…50a0 6e 73 74 72 20 69 6e 74 6f 20 74 68 65 20 73 74 61 63 6b 2c 0a 31 31 35 37 20 30 35 34 38 20 31 ┆nstr into the stack, 1157 0548 1┆
0x50a0…50c0 30 34 34 20 20 20 20 20 20 20 20 20 72 65 70 20 6d 6f 76 65 28 77 72 6b 31 2c 77 72 6b 31 29 20 ┆044 rep move(wrk1,wrk1) ┆
0x50c0…50e0 72 67 74 61 71 6c 20 64 73 68 69 6e 7a 3b 20 72 65 70 65 61 74 0a 31 31 35 38 20 20 20 20 20 20 ┆rgtaql dshinz; repeat 1158 ┆
0x50e0…5100 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 ┆ ┆
0x5100…5120 (9,) 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 63 6f 75 6e 74 65 72 20 3a 3d 20 63 6f 75 6e 74 65 ┆ ; counter := counte┆
0x5120…5140 72 20 2d 31 2c 0a 31 31 35 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆r -1, 1159 ┆
0x5140…5160 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 3b 20 20 20 64 ┆ ; d┆
0x5160…5180 6f 75 62 6c 65 20 73 68 69 66 74 20 77 72 6b 31 20 61 6e 64 20 71 20 0a 31 31 36 30 20 20 20 20 ┆ouble shift wrk1 and q 1160 ┆
0x5180…51a0 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 ┆ ┆
0x51a0…51c0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 72 69 67 74 68 20 77 69 74 68 20 7a 65 72 6f ┆ ; rigth with zero┆
0x51c0…51e0 20 69 6e 70 75 74 2c 0a 31 31 36 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ input, 1161 ┆
0x51e0…5200 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 3b 20 75 ┆ ; u┆
0x5200…5220 6e 74 69 6c 20 63 6f 75 6e 74 65 72 20 3d 20 30 2e 0a 31 31 36 32 20 30 35 34 39 20 31 30 34 35 ┆ntil counter = 0. 1162 0549 1045┆
0x5220…5240 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 77 70 72 65 2c 77 72 6b 31 29 20 6e 6f 74 68 6d 20 63 ┆ move(wpre,wrk1) nothm c┆
0x5240…5260 73 6d 79 20 73 68 69 6e 7a 3b 20 77 72 65 67 28 69 6e 64 65 78 20 2d 20 31 29 20 3a 3d 20 77 72 ┆smy shinz; wreg(index - 1) := wr┆
0x5260…5280 6b 31 2e 0a 31 31 36 33 20 30 35 35 30 20 31 30 34 36 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 ┆k1. 1163 0550 1046 jmp(p┆
0x5280…52a0 66 69 63 69 6e 29 20 73 6d 6f 76 65 28 77 72 65 67 2c 71 29 20 20 20 20 20 3b 20 77 72 65 67 28 ┆ficin) smove(wreg,q) ; wreg(┆
0x52a0…52c0 69 6e 64 65 78 29 20 3a 3d 20 71 2c 20 67 6f 74 6f 20 70 66 69 63 69 6e 2e 0a 31 31 36 34 20 20 ┆index) := q, goto pficin. 1164 ┆
0x52c0…52e0 20 20 20 20 20 20 20 20 20 0a 31 31 36 35 20 30 35 35 31 20 31 30 34 37 20 6c 64 33 3a 20 20 20 ┆ 1165 0551 1047 ld3: ┆
0x52e0…5300 20 6a 6d 70 28 70 66 6e 65 69 63 29 20 6d 7a 65 72 6f 28 77 72 65 67 29 20 20 20 20 20 20 20 3b ┆ jmp(pfneic) mzero(wreg) ;┆
0x5300…5320 20 77 72 65 67 28 69 6e 64 65 78 29 20 3a 3d 20 30 2c 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a ┆ wreg(index) := 0, goto pfneic. ┆
0x5320…5340 31 32 30 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 2a 70 61 67 65 3a 20 20 ┆1204 ;*page: ┆
0x5340…5360 58 58 58 0a 31 32 30 35 20 20 20 20 20 20 20 20 20 20 20 0a 31 32 30 36 20 20 20 20 20 20 20 20 ┆XXX 1205 1206 ┆
0x5360…5380 20 20 20 0a 31 32 30 37 20 20 20 20 20 20 20 20 20 20 20 0a 31 32 30 38 20 20 20 20 20 20 20 20 ┆ 1207 1208 ┆
0x5380…53a0 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 65 71 75 65 6e 63 69 6e 67 20 2e 0a 31 32 30 39 20 20 ┆ ; sequencing . 1209 ┆
0x53a0…53c0 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 0a 31 ┆ ; ----------- 1┆
0x53c0…53e0 32 31 30 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 ┆210 ; instruct┆
0x53e0…5400 69 6f 6e 20 6a 75 6d 70 20 61 6e 64 20 73 65 6c 65 63 74 20 65 6e 61 62 6c 65 20 6c 65 76 65 6c ┆ion jump and select enable level┆
0x5400…5420 3a 20 27 6a 65 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 31 35 2e 0a 31 32 31 31 20 20 20 ┆: 'je', numeric code 15. 1211 ┆
0x5420…5440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ;---------------┆
0x5440…5460 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 ┆--------------------------------┆
0x5460…5480 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 31 32 31 32 20 30 35 35 32 20 31 30 35 ┆------------------ 1212 0552 105┆
0x5480…54a0 30 20 6a 65 2f 31 35 3a 20 20 61 6e 64 69 6e 76 28 73 74 61 74 75 73 2c 38 29 20 20 20 20 20 20 ┆0 je/15: andinv(status,8) ┆
0x54a0…54c0 20 20 20 20 20 20 20 20 3b 20 73 74 61 74 75 73 28 32 30 29 20 3a 3d 20 30 2c 20 28 20 64 69 61 ┆ ; status(20) := 0, ( dia┆
0x54c0…54e0 64 64 72 73 6c 65 20 3a 3d 20 66 61 6c 73 65 29 2e 0a 31 32 31 33 20 30 35 35 33 20 31 30 35 31 ┆ddrsle := false). 1213 0553 1051┆
0x54e0…5500 20 20 20 20 20 20 20 20 20 69 6e 69 6d 6d 28 68 63 32 39 30 31 2c 27 65 30 31 73 65 6c 29 20 20 ┆ inimm(hc2901,'e01sel) ┆
0x5500…5520 20 20 20 20 20 20 20 3b 20 63 6c 6f 73 6b 20 68 63 32 39 30 31 20 69 6e 20 66 75 6e 63 74 69 6f ┆ ; closk hc2901 in functio┆
0x5520…5540 6e 20 73 65 74 20 65 6e 61 62 6c 65 20 6c 65 76 65 6c 2e 0a 31 32 31 34 20 30 35 35 34 20 31 30 ┆n set enable level. 1214 0554 10┆
0x5540…5560 35 32 20 20 20 20 20 20 20 20 20 6a 6d 70 28 6a 64 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆52 jmp(jd2) ┆
0x5560…5580 20 20 20 20 20 20 20 20 20 3b 20 63 6f 6e 74 69 6e 75 65 20 69 6e 20 6a 75 6d 70 20 64 69 73 61 ┆ ; continue in jump disa┆
0x5580…55a0 62 6c 65 20 32 2e 0a 31 32 31 35 20 20 20 20 20 20 20 20 20 20 20 0a 31 32 31 36 20 20 20 20 20 ┆ble 2. 1215 1216 ┆
0x55a0…55c0 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 6f 6e 20 6a 75 6d 70 ┆ ; instruction jump┆
0x55c0…55e0 20 61 6e 64 20 73 65 6c 65 63 74 20 64 69 61 62 6c 65 20 6c 65 76 65 6c 3a 20 27 6a 64 27 2c 20 ┆ and select diable level: 'jd', ┆
0x55e0…5600 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 31 34 2e 0a 31 32 31 37 20 20 20 20 20 20 20 20 20 20 20 ┆numeric code 14. 1217 ┆
0x5600…5620 20 20 20 20 20 20 20 20 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ;-----------------------┆
0x5620…5640 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 ┆--------------------------------┆
0x5640…5660 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 31 32 31 38 20 30 35 35 35 20 31 30 35 33 20 6a 64 2f 31 34 ┆----------- 1218 0555 1053 jd/14┆
0x5660…5680 3a 20 20 61 64 64 28 61 64 64 72 73 2c 27 6d 6f 6e 74 6f 70 29 20 20 6e 6f 6c 6f 61 64 20 20 20 ┆: add(addrs,'montop) noload ┆
0x5680…56a0 20 3b 20 69 66 20 61 64 64 72 73 20 3e 3d 20 2d 6d 6f 6e 74 6f 70 20 74 68 65 6e 0a 31 32 31 39 ┆ ; if addrs >= -montop then 1219┆
0x56a0…56c0 20 30 35 35 36 20 31 30 35 34 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6e 6f 74 6e 65 67 2c 6a ┆ 0556 1054 cjmp(notneg,j┆
0x56c0…56e0 64 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 68 65 6e 20 67 6f 74 6f 20 6a 64 ┆d1) ; then goto jd┆
0x56e0…5700 31 2e 20 0a 31 32 32 30 20 30 35 35 37 20 31 30 35 35 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 ┆1. 1220 0557 1055 move(┆
0x5700…5720 77 72 6b 30 2c 2d 32 30 34 38 29 20 73 69 67 6e 65 78 20 20 20 20 20 20 20 3b 20 77 72 6b 30 20 ┆wrk0,-2048) signex ; wrk0 ┆
0x5720…5740 3a 3d 20 2d 32 30 34 38 2e 0a 31 32 32 31 20 30 35 35 38 20 31 30 35 36 20 20 20 20 20 20 20 20 ┆:= -2048. 1221 0558 1056 ┆
0x5740…5760 20 73 75 62 28 61 64 64 72 73 2c 77 72 6b 30 29 20 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 3b ┆ sub(addrs,wrk0) noload ;┆
0x5760…5780 20 69 66 20 61 64 64 72 73 20 3c 20 2d 32 30 34 38 20 74 68 65 6e 0a 31 32 32 32 20 30 35 35 39 ┆ if addrs < -2048 then 1222 0559┆
0x5780…57a0 20 31 30 35 37 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6c 65 73 73 2c 6a 64 31 29 20 20 20 20 ┆ 1057 cjmp(less,jd1) ┆
0x57a0…57c0 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 68 65 6e 20 67 6f 74 6f 20 6a 64 31 2e 0a 31 32 32 ┆ ; then goto jd1. 122┆
0x57c0…57e0 33 20 30 35 36 30 20 31 30 36 30 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 63 61 75 73 65 2c 61 ┆3 0560 1060 move(cause,a┆
0x57e0…5800 64 64 72 73 29 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 61 75 73 65 20 3a 3d 20 61 64 64 ┆ddrs) ; cause := add┆
0x5800…5820 72 73 2e 0a 31 32 32 34 20 30 35 36 31 20 31 30 36 31 20 20 20 20 20 20 20 20 20 61 64 64 28 63 ┆rs. 1224 0561 1061 add(c┆
0x5820…5840 61 75 73 65 2c 32 30 34 38 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 61 75 73 65 ┆ause,2048) ; cause┆
0x5840…5860 20 3a 3d 20 63 61 75 73 65 20 2b 20 32 30 34 38 2e 0a 31 32 32 35 20 30 35 36 32 20 31 30 36 32 ┆ := cause + 2048. 1225 0562 1062┆
0x5860…5880 20 20 20 20 20 20 20 20 20 73 75 62 28 69 6e 66 2c 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ sub(inf,1) ┆
0x5880…58a0 20 20 20 20 20 20 20 3b 20 69 6e 66 20 3a 3d 20 69 6e 66 20 2d 31 2e 0a 31 32 32 36 20 30 35 36 ┆ ; inf := inf -1. 1226 056┆
0x58a0…58c0 33 20 31 30 36 33 20 20 20 20 20 20 20 20 20 6a 6d 70 28 69 6e 74 73 65 72 29 20 20 20 20 20 20 ┆3 1063 jmp(intser) ┆
0x58c0…58e0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 67 6f 74 6f 20 73 65 72 76 69 63 65 20 69 6e 74 65 ┆ ; goto service inte┆
0x58e0…5900 72 75 70 74 2e 0a 31 32 32 37 20 30 35 36 34 20 31 30 36 34 20 6a 64 31 3a 20 20 20 20 69 6e 69 ┆rupt. 1227 0564 1064 jd1: ini┆
0x5900…5920 6d 6d 28 68 63 32 39 30 31 2c 27 65 30 31 73 64 6c 29 20 20 20 20 20 20 20 20 20 3b 20 63 6c 6f ┆mm(hc2901,'e01sdl) ; clo┆
0x5920…5940 73 6b 20 68 63 32 39 30 31 20 69 6e 20 73 65 74 20 64 69 61 62 6c 65 20 6c 65 76 65 6c 2e 0a 31 ┆sk hc2901 in set diable level. 1┆
0x5940…5960 32 32 38 20 30 35 36 35 20 31 30 36 35 20 6a 64 32 3a 20 20 20 20 63 6a 6d 70 28 72 65 32 39 30 ┆228 0565 1065 jd2: cjmp(re290┆
0x5960…5980 31 2c 6a 64 32 29 20 63 6c 72 65 30 31 20 20 20 20 20 20 20 3b 20 77 61 69 74 20 75 6e 74 69 6c ┆1,jd2) clre01 ; wait until┆
0x5980…59a0 20 68 63 32 39 30 31 20 72 65 61 64 79 2e 0a 31 32 32 39 20 20 20 20 20 20 20 20 20 20 20 0a 31 ┆ hc2901 ready. 1229 1┆
0x59a0…59c0 32 33 30 20 20 20 20 20 20 20 20 20 20 20 0a 31 32 33 31 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆230 1231 ┆
0x59c0…59e0 20 20 20 20 20 20 3b 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 6a 75 6d 70 20 77 69 74 68 20 72 65 ┆ ; instruction jump with re┆
0x59e0…5a00 67 69 73 74 65 72 20 6c 69 6e 6b 3a 20 27 6a 6c 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 ┆gister link: 'jl', numeric code ┆
0x5a00…5a20 (10,) 31 33 2e 0a 31 32 33 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 2d 2d 2d ┆13. 1232 ; ---┆
0x5a20…5a40 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 ┆--------------------------------┆
0x5a40…5a60 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 31 32 33 33 20 30 35 ┆------------------------ 1233 05┆
0x5a60…5a80 36 36 20 31 30 36 36 20 6a 6c 2f 31 33 3a 20 20 6d 6f 76 65 28 77 72 6b 31 2c 77 30 29 20 20 20 ┆66 1066 jl/13: move(wrk1,w0) ┆
0x5a80…5aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 72 6b 31 20 3a 3d 20 77 5f 72 65 67 28 30 29 ┆ ; wrk1 := w_reg(0)┆
0x5aa0…5ac0 2e 0a 31 32 33 34 20 30 35 36 37 20 31 30 36 37 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 77 72 ┆. 1234 0567 1067 move(wr┆
0x5ac0…5ae0 65 67 2c 69 63 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 5f 72 65 67 28 69 ┆eg,ic) ; w_reg(i┆
0x5ae0…5b00 6e 64 65 78 29 20 3a 3d 20 69 63 2e 0a 31 32 33 35 20 30 35 36 38 20 31 30 37 30 20 20 20 20 20 ┆ndex) := ic. 1235 0568 1070 ┆
0x5b00…5b20 20 20 20 20 69 6e 63 74 77 6f 28 77 72 65 67 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ inctwo(wreg) ┆
0x5b20…5b40 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 29 ┆ ; w_reg(index) := w_reg(index)┆
0x5b40…5b60 20 2b 20 31 2e 0a 31 32 33 36 20 30 35 36 39 20 31 30 37 31 20 20 20 20 20 20 20 20 20 6d 6f 76 ┆ + 1. 1236 0569 1071 mov┆
0x5b60…5b80 65 28 69 63 2c 61 64 64 72 73 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 63 20 ┆e(ic,addrs) ; ic ┆
0x5b80…5ba0 3a 3d 20 20 61 64 64 72 65 73 73 2e 0a 31 32 33 37 20 30 35 37 30 20 31 30 37 32 20 20 20 20 20 ┆:= address. 1237 0570 1072 ┆
0x5ba0…5bc0 20 20 20 20 61 6e 64 69 6e 76 28 69 63 2c 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ andinv(ic,1) ┆
0x5bc0…5be0 20 20 3b 20 69 63 20 3a 3d 20 69 63 28 30 2e 32 32 29 0a 31 32 33 38 20 30 35 37 31 20 31 30 37 ┆ ; ic := ic(0.22) 1238 0571 107┆
0x5be0…5c00 33 20 20 20 20 20 20 20 20 20 6a 6d 70 28 6e 6f 70 66 69 63 29 20 20 6d 6f 76 65 28 77 30 2c 77 ┆3 jmp(nopfic) move(w0,w┆
0x5c00…5c20 72 6b 31 29 20 20 20 20 3b 20 67 6f 74 6f 20 6e 6f 70 66 6e 65 2c 20 77 30 20 3a 3d 20 6f 72 69 ┆rk1) ; goto nopfne, w0 := ori┆
0x5c20…5c40 67 69 6e 61 61 6c 79 20 77 30 2e 0a 31 32 33 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ginaaly w0. 1239 ┆
0x5c40…5c60 20 20 20 3b 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 ┆ ;----------------------------┆
0x5c60…5c80 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 31 32 34 30 20 30 35 ┆------------------------ 1240 05┆
0x5c80…5ca0 37 32 20 31 30 37 34 20 73 68 2f 34 30 3a 20 20 73 75 62 28 77 72 65 67 2c 61 64 64 72 73 29 20 ┆72 1074 sh/40: sub(wreg,addrs) ┆
0x5ca0…5cc0 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 3b 20 69 66 20 77 5f 72 65 67 28 69 6e 64 65 78 29 20 ┆noload ; if w_reg(index) ┆
0x5cc0…5ce0 3c 3d 20 61 64 64 72 73 20 74 68 65 6e 0a 31 32 34 31 20 30 35 37 33 20 31 30 37 35 20 20 20 20 ┆<= addrs then 1241 0573 1075 ┆
0x5ce0…5d00 20 20 20 20 20 63 6a 6d 70 28 6c 73 65 71 2c 70 66 6e 65 69 63 29 20 20 20 20 20 20 20 20 20 20 ┆ cjmp(lseq,pfneic) ┆
0x5d00…5d20 20 20 20 3b 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a 31 32 34 32 20 30 35 37 34 20 31 30 37 36 ┆ ; goto pfneic. 1242 0574 1076┆
0x5d20…5d40 20 20 20 20 20 20 20 20 20 6a 6d 70 28 6e 6f 70 66 6e 65 29 20 69 6e 63 74 77 6f 28 69 63 29 20 ┆ jmp(nopfne) inctwo(ic) ┆
0x5d40…5d60 20 20 20 20 20 20 20 3b 20 69 63 20 3a 3d 20 69 63 20 2b 20 32 2c 20 67 6f 74 6f 20 6e 6f 70 66 ┆ ; ic := ic + 2, goto nopf┆
0x5d60…5d80 6e 65 2e 0a 31 32 34 33 20 20 20 20 20 20 20 20 20 20 20 0a 31 32 34 34 20 20 20 20 20 20 20 20 ┆ne. 1243 1244 ┆
0x5d80…5da0 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 73 6b 69 70 20 69 66 ┆ ; instruction skip if┆
0x5da0…5dc0 20 72 65 67 69 73 74 65 72 20 6c 6f 77 3a 20 27 73 6c 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 ┆ register low: 'sl', numeric cod┆
0x5dc0…5de0 65 20 34 31 2e 0a 31 32 34 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 2d 2d ┆e 41. 1245 ;--┆
0x5de0…5e00 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 ┆--------------------------------┆
0x5e00…5e20 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 31 32 34 36 20 30 35 ┆------------------------ 1246 05┆
0x5e20…5e40 37 35 20 31 30 37 37 20 73 6c 2f 34 31 3a 20 20 73 75 62 28 77 72 65 67 2c 61 64 64 72 73 29 20 ┆75 1077 sl/41: sub(wreg,addrs) ┆
0x5e40…5e60 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 3b 20 69 66 20 77 5f 72 65 67 28 69 6e 64 65 78 29 20 ┆noload ; if w_reg(index) ┆
0x5e60…5e80 3e 3d 20 61 64 64 72 73 20 74 68 65 6e 0a 31 32 34 37 20 30 35 37 36 20 31 31 30 30 20 20 20 20 ┆>= addrs then 1247 0576 1100 ┆
0x5e80…5ea0 20 20 20 20 20 63 6a 6d 70 28 67 72 65 71 2c 70 66 6e 65 69 63 29 20 20 20 20 20 20 20 20 20 20 ┆ cjmp(greq,pfneic) ┆
0x5ea0…5ec0 20 20 20 3b 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a 31 32 34 38 20 30 35 37 37 20 31 31 30 31 ┆ ; goto pfneic. 1248 0577 1101┆
0x5ec0…5ee0 20 20 20 20 20 20 20 20 20 6a 6d 70 28 6e 6f 70 66 6e 65 29 20 69 6e 63 74 77 6f 28 69 63 29 20 ┆ jmp(nopfne) inctwo(ic) ┆
0x5ee0…5f00 20 20 20 20 20 20 20 3b 20 69 63 20 3a 3d 20 69 63 20 2b 20 32 2c 20 67 6f 74 6f 20 6e 6f 70 66 ┆ ; ic := ic + 2, goto nopf┆
0x5f00…5f20 6e 65 2e 0a 31 32 34 39 20 20 20 20 20 20 20 20 20 20 20 0a 31 32 35 30 20 20 20 20 20 20 20 20 ┆ne. 1249 1250 ┆
0x5f20…5f40 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 73 6b 69 70 20 69 66 ┆ ; instruction skip if┆
0x5f40…5f60 20 72 65 67 69 73 74 65 72 20 65 71 75 61 6c 3a 20 27 73 65 27 2c 20 6e 75 6d 65 72 69 63 20 63 ┆ register equal: 'se', numeric c┆
0x5f60…5f80 6f 64 65 20 34 32 2e 0a 31 32 35 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ode 42. 1251 ;┆
0x5f80…5fa0 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 ┆--------------------------------┆
0x5fa0…5fc0 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 31 32 35 32 20 ┆-------------------------- 1252 ┆
0x5fc0…5fe0 30 35 37 38 20 31 31 30 32 20 73 65 2f 34 32 3a 20 20 73 75 62 28 77 72 65 67 2c 61 64 64 72 73 ┆0578 1102 se/42: sub(wreg,addrs┆
0x5fe0…6000 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 3b 20 69 66 20 77 5f 72 65 67 28 69 6e 64 65 78 ┆) noload ; if w_reg(index┆
0x6000…6020 29 20 3c 3e 20 61 64 64 72 73 20 74 68 65 6e 0a 31 32 35 33 20 30 35 37 39 20 31 31 30 33 20 20 ┆) <> addrs then 1253 0579 1103 ┆
0x6020…6040 20 20 20 20 20 20 20 63 6a 6d 70 28 6e 65 71 75 61 6c 2c 70 66 6e 65 69 63 29 20 20 20 20 20 20 ┆ cjmp(nequal,pfneic) ┆
0x6040…6060 20 20 20 20 20 3b 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a 31 32 35 34 20 30 35 38 30 20 31 31 ┆ ; goto pfneic. 1254 0580 11┆
0x6060…6080 30 34 20 20 20 20 20 20 20 20 20 6a 6d 70 28 6e 6f 70 66 6e 65 29 20 69 6e 63 74 77 6f 28 69 63 ┆04 jmp(nopfne) inctwo(ic┆
0x6080…60a0 29 20 20 20 20 20 20 20 20 3b 20 69 63 20 3a 3d 20 69 63 20 2b 20 32 2c 20 67 6f 74 6f 20 6e 6f ┆) ; ic := ic + 2, goto no┆
0x60a0…60c0 70 66 6e 65 2e 0a 31 32 35 35 20 20 20 20 20 20 20 20 20 20 20 0a 31 32 35 36 20 20 20 20 20 20 ┆pfne. 1255 1256 ┆
0x60c0…60e0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 73 6b 69 70 20 ┆ ; instruction skip ┆
0x60e0…6100 69 66 20 72 65 67 69 73 74 65 72 20 6e 6f 74 20 65 71 75 61 6c 3a 20 27 73 6e 27 2c 20 6e 75 6d ┆if register not equal: 'sn', num┆
0x6100…6120 65 72 69 63 20 63 6f 64 65 20 34 33 2e 0a 31 32 35 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆eric code 43. 1257 ┆
0x6120…6140 20 20 20 20 20 3b 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 ┆ ;--------------------------┆
0x6140…6160 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 ┆--------------------------------┆
0x6160…6180 2d 2d 2d 2d 2d 2d 0a 31 32 35 38 20 30 35 38 31 20 31 31 30 35 20 73 6e 2f 34 33 3a 20 20 73 75 ┆------ 1258 0581 1105 sn/43: su┆
0x6180…61a0 62 28 77 72 65 67 2c 61 64 64 72 73 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 3b 20 69 66 ┆b(wreg,addrs) noload ; if┆
0x61a0…61c0 20 77 5f 72 65 67 28 69 6e 64 65 78 29 20 3d 20 61 64 64 72 73 20 74 68 65 6e 0a 31 32 35 39 20 ┆ w_reg(index) = addrs then 1259 ┆
0x61c0…61e0 30 35 38 32 20 31 31 30 36 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 65 71 75 61 6c 2c 70 66 6e ┆0582 1106 cjmp(equal,pfn┆
0x61e0…6200 65 69 63 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 67 6f 74 6f 20 6e 77 78 74 69 6e 2e 0a 31 ┆eic) ; goto nwxtin. 1┆
0x6200…6220 32 36 30 20 30 35 38 33 20 31 31 30 37 20 20 20 20 20 20 20 20 20 6a 6d 70 28 6e 6f 70 66 6e 65 ┆260 0583 1107 jmp(nopfne┆
0x6220…6240 29 20 69 6e 63 74 77 6f 28 69 63 29 20 20 20 20 20 20 20 20 3b 20 69 63 20 3a 3d 20 69 63 20 2b ┆) inctwo(ic) ; ic := ic +┆
0x6240…6260 20 32 2c 20 67 6f 74 6f 20 6e 6f 70 66 6e 65 2c 0a 31 32 36 31 20 20 20 20 20 20 20 20 20 20 20 ┆ 2, goto nopfne, 1261 ┆
0x6260…6280 0a 31 32 36 32 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 ┆ 1262 ; instru┆
0x6280…62a0 63 74 69 6f 6e 20 73 6b 69 70 20 69 66 20 72 65 67 69 73 74 65 72 20 62 69 74 73 20 6f 6e 65 3a ┆ction skip if register bits one:┆
0x62a0…62c0 20 27 73 6f 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 34 34 2e 0a 31 32 36 33 20 20 20 20 ┆ 'so', numeric code 44. 1263 ┆
0x62c0…62e0 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 2d 2d 2d 2d ┆ ; ---------------┆
0x62e0…6300 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 ┆--------------------------------┆
0x6300…6320 (11,) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 31 32 36 34 20 30 35 38 34 20 31 31 31 30 20 73 6f ┆-------------- 1264 0584 1110 so┆
0x6320…6340 2f 34 34 3a 20 20 61 6e 64 28 71 2c 77 72 65 67 2c 61 64 64 72 73 29 20 20 20 20 20 20 20 20 20 ┆/44: and(q,wreg,addrs) ┆
0x6340…6360 20 20 20 20 3b 20 71 20 3a 3d 20 77 5f 72 65 67 28 69 6e 64 65 78 29 20 61 6e 64 20 61 64 64 72 ┆ ; q := w_reg(index) and addr┆
0x6360…6380 73 2e 0a 31 32 36 35 20 30 35 38 35 20 31 31 31 31 20 20 20 20 20 20 20 20 20 73 75 62 28 61 64 ┆s. 1265 0585 1111 sub(ad┆
0x6380…63a0 64 72 73 2c 71 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 64 64 72 73 5a ┆drs,q) noload ; addrsZ┆
0x63a0…63c0 0a 31 32 36 36 20 30 35 38 36 20 31 31 31 32 20 20 20 20 20 20 20 20 20 73 75 62 28 61 64 64 72 ┆ 1266 0586 1112 sub(addr┆
0x63c0…63e0 73 2c 71 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 69 66 20 61 64 64 72 ┆s,q) noload ; if addr┆
0x63e0…6400 73 20 3c 3e 20 71 20 74 68 65 6e 0a 31 32 36 37 20 20 20 20 20 20 20 20 20 20 20 0a 31 32 36 38 ┆s <> q then 1267 1268┆
0x6400…6420 20 20 20 20 20 20 20 20 20 20 20 0a 31 32 36 39 20 30 35 38 37 20 31 31 31 33 20 20 20 20 20 20 ┆ 1269 0587 1113 ┆
0x6420…6440 20 20 20 63 6a 6d 70 28 6e 65 71 75 61 6c 2c 70 66 6e 65 69 63 29 20 20 20 20 20 20 20 20 20 20 ┆ cjmp(nequal,pfneic) ┆
0x6440…6460 20 3b 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a 31 32 37 30 20 30 35 38 38 20 31 31 31 34 20 20 ┆ ; goto pfneic. 1270 0588 1114 ┆
0x6460…6480 20 20 20 20 20 20 20 6a 6d 70 28 6e 6f 70 66 6e 65 29 20 69 6e 63 74 77 6f 28 69 63 29 20 20 20 ┆ jmp(nopfne) inctwo(ic) ┆
0x6480…64a0 20 20 20 20 20 3b 20 69 63 20 3a 3d 20 69 63 20 2b 20 32 2c 20 67 6f 74 6f 20 6e 6f 70 66 6e 65 ┆ ; ic := ic + 2, goto nopfne┆
0x64a0…64c0 2e 0a 31 32 37 31 20 20 20 20 20 20 20 20 20 20 20 0a 31 32 37 32 20 20 20 20 20 20 20 20 20 20 ┆. 1271 1272 ┆
0x64c0…64e0 20 20 20 20 20 20 20 20 20 3b 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 73 6b 69 70 20 69 66 20 72 ┆ ; instruction skip if r┆
0x64e0…6500 65 67 69 73 74 65 72 20 62 69 74 73 20 7a 65 72 6f 3a 20 27 73 7a 27 2c 20 6e 75 6d 65 72 69 63 ┆egister bits zero: 'sz', numeric┆
0x6500…6520 20 63 6f 64 65 20 34 35 2e 0a 31 32 37 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ code 45. 1273 ┆
0x6520…6540 20 3b 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 ┆ ;------------------------------┆
0x6540…6560 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 ┆--------------------------------┆
0x6560…6580 2d 2d 0a 31 32 37 34 20 30 35 38 39 20 31 31 31 35 20 73 7a 2f 34 35 3a 20 20 61 6e 64 28 77 72 ┆-- 1274 0589 1115 sz/45: and(wr┆
0x6580…65a0 65 67 2c 61 64 64 72 73 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 3b 20 69 66 20 77 5f 72 ┆eg,addrs) noload ; if w_r┆
0x65a0…65c0 65 67 28 69 6e 64 65 78 29 20 61 6e 64 20 61 64 64 72 73 20 3c 3e 20 30 20 74 68 65 6e 0a 31 32 ┆eg(index) and addrs <> 0 then 12┆
0x65c0…65e0 37 35 20 30 35 39 30 20 31 31 31 36 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6e 7a 65 72 6f 2c ┆75 0590 1116 cjmp(nzero,┆
0x65e0…6600 70 66 6e 65 69 63 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 67 6f 74 6f 20 70 66 6e 65 69 63 ┆pfneic) ; goto pfneic┆
0x6600…6620 2e 0a 31 32 37 36 20 30 35 39 31 20 31 31 31 37 20 20 20 20 20 20 20 20 20 6a 6d 70 28 6e 6f 70 ┆. 1276 0591 1117 jmp(nop┆
0x6620…6640 66 6e 65 29 20 69 6e 63 74 77 6f 28 69 63 29 20 20 20 20 20 20 20 20 3b 20 69 63 20 3a 3d 20 69 ┆fne) inctwo(ic) ; ic := i┆
0x6640…6660 63 20 2b 20 32 2c 20 67 6f 74 6f 20 6e 6f 70 66 6e 65 2e 0a 31 32 37 37 20 20 20 20 20 20 20 20 ┆c + 2, goto nopfne. 1277 ┆
0x6660…6680 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 73 6b 69 70 20 69 66 ┆ ; instruction skip if┆
0x6680…66a0 20 6e 6f 20 65 78 65 70 74 69 6f 6e 3a 20 27 73 78 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 ┆ no exeption: 'sx', numeric code┆
0x66a0…66c0 20 34 36 2e 0a 31 32 37 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 2d 2d ┆ 46. 1278 ; --┆
0x66c0…66e0 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 ┆--------------------------------┆
0x66e0…6700 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 31 32 37 39 20 30 35 39 32 20 ┆--------------------- 1279 0592 ┆
0x6700…6720 31 31 32 30 20 73 78 2f 34 36 3a 20 20 61 6e 64 28 61 64 64 72 73 2c 37 29 20 20 20 20 20 20 20 ┆1120 sx/46: and(addrs,7) ┆
0x6720…6740 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 64 64 72 73 20 3a 3d 20 61 64 64 72 73 20 61 6e 64 20 ┆ ; addrs := addrs and ┆
0x6740…6760 37 2e 0a 31 32 38 30 20 30 35 39 33 20 31 31 32 31 20 20 20 20 20 20 20 20 20 61 6e 64 28 61 64 ┆7. 1280 0593 1121 and(ad┆
0x6760…6780 64 72 73 2c 65 78 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 28 65 78 ┆drs,ex) noload ; if (ex┆
0x6780…67a0 20 61 6e 64 20 61 64 64 72 73 29 20 3c 3e 20 30 20 74 68 65 6e 0a 31 32 38 31 20 30 35 39 34 20 ┆ and addrs) <> 0 then 1281 0594 ┆
0x67a0…67c0 31 31 32 32 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6e 7a 65 72 6f 2c 70 66 6e 65 69 63 29 20 ┆1122 cjmp(nzero,pfneic) ┆
0x67c0…67e0 20 20 20 20 20 20 20 20 20 20 20 3b 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a 31 32 38 32 20 30 ┆ ; goto pfneic. 1282 0┆
0x67e0…6800 35 39 35 20 31 31 32 33 20 20 20 20 20 20 20 20 20 6a 6d 70 28 6e 6f 70 66 6e 65 29 20 69 6e 63 ┆595 1123 jmp(nopfne) inc┆
0x6800…6820 74 77 6f 28 69 63 29 20 20 20 20 20 20 20 20 3b 20 69 63 20 3a 3d 20 69 63 20 2b 20 32 2c 20 67 ┆two(ic) ; ic := ic + 2, g┆
0x6820…6840 6f 74 6f 20 6e 6f 70 66 6e 65 2e 0a 31 32 38 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆oto nopfne. 1283 ┆
0x6840…6860 20 20 20 3b 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 73 6b 69 70 20 69 66 20 6e 6f 20 77 72 69 74 ┆ ; instruction skip if no writ┆
0x6860…6880 65 20 70 72 6f 74 65 63 74 69 6f 6e 3a 20 27 73 70 27 2c 20 6f 70 63 6f 64 65 20 32 31 2e 0a 31 ┆e protection: 'sp', opcode 21. 1┆
0x6880…68a0 32 38 34 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 ┆284 ; --------┆
0x68a0…68c0 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 ┆--------------------------------┆
0x68c0…68e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 31 32 38 35 20 30 35 39 36 20 31 31 32 34 ┆----------------- 1285 0596 1124┆
0x68e0…6900 20 73 70 2f 32 31 3a 20 20 73 75 62 28 61 64 64 72 73 2c 38 29 20 6e 6f 6c 6f 61 64 20 20 20 20 ┆ sp/21: sub(addrs,8) noload ┆
0x6900…6920 20 20 20 20 20 20 20 3b 20 69 66 20 73 70 20 3c 20 38 20 74 68 65 6e 0a 31 32 38 36 20 30 35 39 ┆ ; if sp < 8 then 1286 059┆
0x6920…6940 37 20 31 31 32 35 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6c 65 73 73 2c 73 70 31 29 20 61 64 ┆7 1125 cjmp(less,sp1) ad┆
0x6940…6960 64 28 71 2c 61 64 64 72 73 2c 62 61 73 65 29 3b 20 67 6f 74 6f 20 73 70 31 2c 20 71 20 3a 3d 20 ┆d(q,addrs,base); goto sp1, q := ┆
0x6960…6980 61 64 64 72 73 20 2b 20 62 61 73 65 2e 0a 31 32 38 37 20 30 35 39 38 20 31 31 32 36 20 20 20 20 ┆addrs + base. 1287 0598 1126 ┆
0x6980…69a0 20 20 20 20 20 73 75 62 28 71 2c 6c 6f 77 6c 69 6d 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 ┆ sub(q,lowlim) noload ┆
0x69a0…69c0 20 20 20 3b 20 69 66 20 61 64 64 72 73 20 2b 20 62 61 73 65 20 3c 20 6c 6f 77 65 72 5f 6c 69 6d ┆ ; if addrs + base < lower_lim┆
0x69c0…69e0 69 74 20 74 68 65 6e 0a 31 32 38 38 20 30 35 39 39 20 31 31 32 37 20 20 20 20 20 20 20 20 20 63 ┆it then 1288 0599 1127 c┆
0x69e0…6a00 6a 6d 70 28 6c 65 73 73 2c 70 66 6e 65 69 63 29 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 67 ┆jmp(less,pfneic) ; g┆
0x6a00…6a20 6f 74 6f 20 70 66 6e 65 69 63 2e 0a 31 32 38 39 20 30 36 30 30 20 31 31 33 30 20 20 20 20 20 20 ┆oto pfneic. 1289 0600 1130 ┆
0x6a20…6a40 20 20 20 73 75 62 28 71 2c 75 70 6c 69 6d 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 20 ┆ sub(q,uplim) noload ┆
0x6a40…6a60 20 3b 20 69 66 20 61 64 64 72 73 2b 62 61 73 65 20 3e 3d 0a 31 32 39 30 20 20 20 20 20 20 20 20 ┆ ; if addrs+base >= 1290 ┆
0x6a60…6a80 20 20 20 0a 31 32 39 31 20 30 36 30 31 20 31 31 33 31 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 ┆ 1291 0601 1131 cjmp(┆
0x6a80…6aa0 67 72 65 71 2c 70 66 6e 65 69 63 29 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 75 70 70 65 72 ┆greq,pfneic) ; upper┆
0x6aa0…6ac0 5f 6c 69 6d 69 74 20 74 68 65 6e 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a 31 32 39 32 20 30 36 ┆_limit then goto pfneic. 1292 06┆
0x6ac0…6ae0 30 32 20 31 31 33 32 20 20 20 20 20 20 20 20 20 6a 6d 70 28 6e 6f 70 66 6e 65 29 20 69 6e 63 74 ┆02 1132 jmp(nopfne) inct┆
0x6ae0…6b00 77 6f 28 69 63 29 20 20 20 20 20 20 20 20 3b 20 69 63 20 3a 3d 20 69 63 20 2b 32 2e 20 67 6f 74 ┆wo(ic) ; ic := ic +2. got┆
0x6b00…6b20 6f 20 6e 6f 70 66 6e 65 2e 0a 31 32 39 33 20 30 36 30 33 20 31 31 33 33 20 73 70 31 3a 20 20 20 ┆o nopfne. 1293 0603 1133 sp1: ┆
0x6b20…6b40 20 73 75 62 28 61 64 64 72 73 2c 30 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 20 20 3b ┆ sub(addrs,0) noload ;┆
0x6b40…6b60 20 69 66 20 61 64 64 72 73 20 3c 20 30 20 74 68 65 6e 0a 31 32 39 34 20 30 36 30 34 20 31 31 33 ┆ if addrs < 0 then 1294 0604 113┆
0x6b60…6b80 34 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6c 65 73 73 2c 70 66 6e 65 69 63 29 20 20 20 20 20 ┆4 cjmp(less,pfneic) ┆
0x6b80…6ba0 20 20 20 20 20 20 20 20 3b 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a 31 32 39 35 20 30 36 30 35 ┆ ; goto pfneic. 1295 0605┆
0x6ba0…6bc0 20 31 31 33 35 20 20 20 20 20 20 20 20 20 6a 6d 70 28 6e 6f 70 66 6e 65 29 20 69 6e 63 74 77 6f ┆ 1135 jmp(nopfne) inctwo┆
0x6bc0…6be0 28 69 63 29 20 20 20 20 20 20 20 20 3b 20 69 63 20 3a 3d 20 69 63 20 2b 20 32 20 2c 20 67 6f 74 ┆(ic) ; ic := ic + 2 , got┆
0x6be0…6c00 6f 20 6e 6f 70 66 6e 65 2e 0a 31 32 39 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆o nopfne. 1296 ┆
0x6c00…6c20 (12,) 20 3b 20 6d 6f 6e 69 74 6f 72 20 63 6f 6e 74 72 6f 6c 0a 31 32 39 37 20 20 20 20 20 20 20 20 20 ┆ ; monitor control 1297 ┆
0x6c20…6c40 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 0a 31 32 39 38 ┆ ; --------------- 1298┆
0x6c40…6c60 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 6f 6e ┆ ; instruction┆
0x6c60…6c80 20 67 65 6e 65 72 61 6c 20 72 65 67 69 73 74 65 72 2c 20 70 75 74 3a 20 27 67 70 27 2c 20 6e 75 ┆ general register, put: 'gp', nu┆
0x6c80…6ca0 6d 65 72 69 63 20 63 6f 64 65 20 34 37 2e 0a 31 32 39 39 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆meric code 47. 1299 ┆
0x6ca0…6cc0 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 2d ┆ ; ------------------------┆
0x6cc0…6ce0 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 ┆--------------------------------┆
0x6ce0…6d00 2d 0a 31 33 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 73 63 61 70 ┆- 1300 ; escap┆
0x6d00…6d20 65 20 70 61 74 74 65 72 6e 20 32 2e 31 30 30 30 30 30 31 0a 31 33 30 31 20 30 36 30 36 20 31 31 ┆e pattern 2.1000001 1301 0606 11┆
0x6d20…6d40 33 36 20 67 70 2f 34 37 3a 20 20 6d 6f 76 65 28 73 74 61 74 75 73 2c 73 74 61 74 75 73 29 20 20 ┆36 gp/47: move(status,status) ┆
0x6d40…6d60 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 6e 6f 74 20 69 6e 20 6d 6f 6e 69 74 6f 72 20 6d 6f 64 ┆ ; if not in monitor mod┆
0x6d60…6d80 65 20 0a 31 33 30 32 20 30 36 30 37 20 31 31 33 37 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6e ┆e 1302 0607 1137 cjmp(n┆
0x6d80…6da0 6f 74 6e 65 67 2c 70 72 67 65 78 70 29 20 73 6d 6f 76 65 28 71 2c 77 72 65 67 29 3b 20 74 68 65 ┆otneg,prgexp) smove(q,wreg); the┆
0x6da0…6dc0 6e 20 67 6f 74 6f 20 70 72 6f 67 72 61 6d 20 65 78 65 70 74 69 6f 6e 2c 0a 31 33 30 33 20 20 20 ┆n goto program exeption, 1303 ┆
0x6dc0…6de0 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 ┆ ┆
0x6de0…6e00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 71 20 3a 3d 20 77 72 65 67 28 69 6e 64 65 78 29 ┆ ; q := wreg(index)┆
0x6e00…6e20 2e 0a 31 33 30 34 20 30 36 30 38 20 31 31 34 30 20 20 20 20 20 20 20 20 20 73 75 62 28 61 64 64 ┆. 1304 0608 1140 sub(add┆
0x6e20…6e40 72 73 2c 36 34 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 61 64 64 72 ┆rs,64) noload ; if addr┆
0x6e40…6e60 73 20 3d 20 36 34 20 74 68 65 6e 0a 31 33 30 35 20 30 36 30 39 20 31 31 34 31 20 20 20 20 20 20 ┆s = 64 then 1305 0609 1141 ┆
0x6e60…6e80 20 20 20 63 6a 6d 70 28 65 71 75 61 6c 2c 67 70 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ cjmp(equal,gp2) ┆
0x6e80…6ea0 20 3b 20 67 6f 74 6f 20 67 70 32 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; goto gp2. ┆
0x6ea0…6ec0 20 20 20 20 20 20 0a 31 33 30 36 20 30 36 31 30 20 31 31 34 32 20 20 20 20 20 20 20 20 20 73 75 ┆ 1306 0610 1142 su┆
0x6ec0…6ee0 62 28 61 64 64 72 73 2c 32 36 29 20 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 3b 20 69 66 ┆b(addrs,26) noload ; if┆
0x6ee0…6f00 20 61 64 64 72 73 20 3c 3e 20 32 36 20 74 68 65 6e 0a 31 33 30 37 20 30 36 31 31 20 31 31 34 33 ┆ addrs <> 26 then 1307 0611 1143┆
0x6f00…6f20 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6e 65 71 75 61 6c 2c 70 66 6e 65 69 63 29 20 20 20 20 ┆ cjmp(nequal,pfneic) ┆
0x6f20…6f40 20 20 20 20 20 20 20 3b 20 74 68 65 6e 20 67 6f 74 6f 20 70 66 6e 65 69 63 2c 20 71 20 3a 3d 20 ┆ ; then goto pfneic, q := ┆
0x6f40…6f60 77 72 65 67 28 69 6e 64 65 78 29 2e 0a 31 33 30 38 20 30 36 31 32 20 31 31 34 34 20 20 20 20 20 ┆wreg(index). 1308 0612 1144 ┆
0x6f60…6f80 20 20 20 20 6a 6d 70 28 70 66 6e 65 69 63 29 20 6d 6f 76 65 28 69 6e 66 2c 71 29 20 20 20 20 20 ┆ jmp(pfneic) move(inf,q) ┆
0x6f80…6fa0 20 20 3b 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 72 65 67 69 73 74 65 72 20 3a 3d 20 71 2e 0a 31 ┆ ; information register := q. 1┆
0x6fa0…6fc0 33 30 39 20 20 20 20 20 20 20 20 20 20 20 0a 31 33 33 39 20 30 36 31 33 20 31 31 34 35 20 67 70 ┆309 1339 0613 1145 gp┆
0x6fc0…6fe0 32 3a 20 20 20 20 69 6e 69 6d 6d 28 68 63 32 39 30 31 2c 27 65 30 31 77 74 72 29 20 20 20 20 20 ┆2: inimm(hc2901,'e01wtr) ┆
0x6fe0…7000 20 20 20 20 3b 20 63 6c 6f 63 6b 20 68 63 32 39 30 31 20 69 6e 20 77 72 69 74 65 20 74 65 73 74 ┆ ; clock hc2901 in write test┆
0x7000…7020 0a 31 33 34 30 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 ┆ 1340 ┆
0x7020…7040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 65 67 69 73 74 65 72 ┆ ; register┆
0x7040…7060 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 31 33 34 31 20 30 36 31 34 20 31 31 34 36 20 67 70 ┆. 1341 0614 1146 gp┆
0x7060…7080 33 3a 20 20 20 20 63 6a 6d 70 28 72 65 32 39 30 31 2c 67 70 33 29 20 20 63 6c 72 65 30 31 20 20 ┆3: cjmp(re2901,gp3) clre01 ┆
0x7080…70a0 20 20 20 20 3b 20 20 6c 6f 6f 70 20 77 68 69 6c 65 20 68 63 32 39 30 31 20 69 73 20 6e 6f 74 20 ┆ ; loop while hc2901 is not ┆
0x70a0…70c0 72 65 61 64 79 0a 31 33 34 32 20 30 36 31 35 20 31 31 34 37 20 20 20 20 20 20 20 20 20 69 6e 76 ┆ready 1342 0615 1147 inv┆
0x70c0…70e0 28 68 63 32 39 30 31 2c 71 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 68 63 32 ┆(hc2901,q) ; hc2┆
0x70e0…7100 39 30 31 20 3a 3d 20 71 20 61 6e 64 20 63 6c 6f 63 6b 0a 31 33 34 33 20 30 36 31 36 20 31 31 35 ┆901 := q and clock 1343 0616 115┆
0x7100…7120 30 20 67 70 34 3a 20 20 20 20 63 6a 6d 70 28 72 65 32 39 30 31 2c 67 70 34 29 20 63 6c 72 65 30 ┆0 gp4: cjmp(re2901,gp4) clre0┆
0x7120…7140 31 20 20 20 20 20 20 20 3b 20 6c 6f 6f 70 20 75 6e 74 69 6c 20 68 63 32 39 30 31 20 69 73 20 72 ┆1 ; loop until hc2901 is r┆
0x7140…7160 65 61 64 79 2e 0a 31 33 34 34 20 30 36 31 37 20 31 31 35 31 20 20 20 20 20 20 20 20 20 6a 6d 70 ┆eady. 1344 0617 1151 jmp┆
0x7160…7180 28 70 66 6e 65 69 63 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 67 6f 74 ┆(pfneic) ; got┆
0x7180…71a0 6f 20 70 66 6e 65 69 63 2e 0a 31 33 34 35 20 20 20 20 20 20 20 20 20 20 20 0a 31 33 34 36 20 20 ┆o pfneic. 1345 1346 ┆
0x71a0…71c0 20 20 20 20 20 20 20 20 20 0a 31 33 34 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 1347 ┆
0x71c0…71e0 20 3b 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 67 65 6e 65 72 61 6c 20 72 65 67 69 73 74 65 72 2c ┆ ; instruction general register,┆
0x71e0…7200 20 67 65 74 3a 20 27 67 67 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 32 38 2e 0a 31 33 34 ┆ get: 'gg', numeric code 28. 134┆
0x7200…7220 38 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 ┆8 ; ----------┆
0x7220…7240 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 ┆--------------------------------┆
0x7240…7260 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 31 33 34 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆----------- 1349 ┆
0x7260…7280 20 20 20 3b 20 65 73 63 61 70 65 20 70 61 74 74 65 72 6e 3a 20 32 2e 30 30 30 30 30 31 0a 31 33 ┆ ; escape pattern: 2.000001 13┆
0x7280…72a0 35 30 20 30 36 31 38 20 31 31 35 32 20 67 67 2f 32 38 3a 20 20 6d 6f 76 65 28 71 2c 77 72 65 67 ┆50 0618 1152 gg/28: move(q,wreg┆
0x72a0…72c0 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 61 76 65 20 77 72 65 67 28 69 ┆) ; save wreg(i┆
0x72c0…72e0 6e 64 65 78 29 2e 0a 31 33 35 31 20 30 36 31 39 20 31 31 35 33 20 20 20 20 20 20 20 20 20 73 75 ┆ndex). 1351 0619 1153 su┆
0x72e0…7300 62 28 61 64 64 72 73 2c 32 36 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 ┆b(addrs,26) noload ; if┆
0x7300…7320 20 61 64 64 72 73 20 3d 20 32 36 20 74 68 65 6e 0a 31 33 35 32 20 30 36 32 30 20 31 31 35 34 20 ┆ addrs = 26 then 1352 0620 1154 ┆
0x7320…7340 20 20 20 20 20 20 20 20 63 6a 6d 70 28 65 71 75 61 6c 2c 70 66 6e 65 69 63 29 20 6d 6f 76 65 28 ┆ cjmp(equal,pfneic) move(┆
0x7340…7360 77 72 65 67 2c 69 6e 66 29 3b 20 77 72 65 67 28 69 6e 64 65 78 29 20 3a 3d 20 69 6e 66 72 6f 6d ┆wreg,inf); wreg(index) := infrom┆
0x7360…7380 61 74 69 6f 6e 0a 31 33 35 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ation 1353 ┆
0x7380…73a0 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 3b 20 72 65 67 ┆ ; reg┆
0x73a0…73c0 69 73 74 65 72 2c 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a 31 33 35 34 20 30 36 32 31 20 31 31 ┆ister, goto pfneic. 1354 0621 11┆
0x73c0…73e0 35 35 20 20 20 20 20 20 20 20 20 73 75 62 28 61 64 64 72 73 2c 36 34 29 20 6e 6f 6c 6f 61 64 20 ┆55 sub(addrs,64) noload ┆
0x73e0…7400 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 61 64 64 72 65 73 20 3d 20 36 34 20 74 68 65 6e 0a 31 ┆ ; if addres = 64 then 1┆
0x7400…7420 33 35 35 20 30 36 32 32 20 31 31 35 36 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 65 71 75 61 6c ┆355 0622 1156 cjmp(equal┆
0x7420…7440 2c 67 67 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 68 65 6e 20 67 6f 74 6f 20 ┆,gg2) ; then goto ┆
0x7440…7460 67 67 32 2e 0a 31 33 35 36 20 30 36 32 33 20 31 31 35 37 20 20 20 20 20 20 20 20 20 73 75 62 28 ┆gg2. 1356 0623 1157 sub(┆
0x7460…7480 61 64 64 72 73 2c 36 36 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 61 ┆addrs,66) noload ; if a┆
0x7480…74a0 64 64 72 73 20 3d 20 36 36 20 74 68 65 6e 20 0a 31 33 35 37 20 30 36 32 34 20 31 31 36 30 20 20 ┆ddrs = 66 then 1357 0624 1160 ┆
0x74a0…74c0 20 20 20 20 20 20 20 63 6a 6d 70 28 65 71 75 61 6c 2c 67 67 33 29 20 20 20 20 20 20 20 20 20 20 ┆ cjmp(equal,gg3) ┆
0x74c0…74e0 20 20 20 20 20 3b 20 74 68 65 6e 20 67 6f 74 6f 20 67 67 33 2e 0a 31 33 35 38 20 30 36 32 35 20 ┆ ; then goto gg3. 1358 0625 ┆
0x74e0…7500 31 31 36 31 20 20 20 20 20 20 20 20 20 73 75 62 28 61 64 64 72 73 2c 31 30 30 29 20 6e 6f 6c 6f ┆1161 sub(addrs,100) nolo┆
0x7500…7520 (13,) 61 64 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 61 64 64 72 73 20 3d 20 31 30 30 20 74 68 65 6e ┆ad ; if addrs = 100 then┆
0x7520…7540 0a 31 33 35 39 20 30 36 32 36 20 31 31 36 32 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 65 71 75 ┆ 1359 0626 1162 cjmp(equ┆
0x7540…7560 61 6c 2c 67 67 35 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 68 65 6e 20 67 6f 74 ┆al,gg5) ; then got┆
0x7560…7580 6f 20 67 67 35 2e 0a 31 33 36 30 20 30 36 32 37 20 31 31 36 33 20 20 20 20 20 20 20 20 20 6a 6d ┆o gg5. 1360 0627 1163 jm┆
0x7580…75a0 70 28 70 66 6e 65 69 63 29 20 6d 6f 76 65 28 77 72 65 67 2c 71 29 20 20 20 20 20 20 3b 20 69 66 ┆p(pfneic) move(wreg,q) ; if┆
0x75a0…75c0 20 6e 6f 74 20 6c 65 67 61 6c 20 74 68 65 6e 20 72 65 65 73 74 61 62 6c 69 73 68 0a 31 33 36 31 ┆ not legal then reestablish 1361┆
0x75c0…75e0 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 ┆ ┆
0x75e0…7600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 20 72 65 67 28 69 6e 64 65 78 29 20 ┆ ; w reg(index) ┆
0x7600…7620 61 6e 64 20 67 6f 74 6f 20 70 66 6e 65 69 63 0a 31 33 36 32 20 30 36 32 38 20 31 31 36 34 20 67 ┆and goto pfneic 1362 0628 1164 g┆
0x7620…7640 67 35 3a 20 20 20 20 69 6e 69 6d 6d 28 68 63 32 39 30 31 2c 27 65 30 31 72 74 63 29 20 20 20 20 ┆g5: inimm(hc2901,'e01rtc) ┆
0x7640…7660 20 20 20 20 20 3b 20 73 65 6e 64 20 61 64 64 72 73 20 6f 66 20 72 65 61 6c 20 74 69 6d 65 20 63 ┆ ; send addrs of real time c┆
0x7660…7680 6c 6f 63 6b 20 74 6f 0a 31 33 36 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆lock to 1363 ┆
0x7680…76a0 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 3b 20 68 ┆ ; h┆
0x76a0…76c0 63 32 39 30 31 2e 0a 31 33 36 34 20 30 36 32 39 20 31 31 36 35 20 20 20 20 20 20 20 20 20 6a 6d ┆c2901. 1364 0629 1165 jm┆
0x76c0…76e0 70 28 67 67 34 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 67 6f ┆p(gg4) ; go┆
0x76e0…7700 74 6f 20 67 67 34 2e 0a 31 33 36 35 20 30 36 33 30 20 31 31 36 36 20 67 67 32 3a 20 20 20 20 69 ┆to gg4. 1365 0630 1166 gg2: i┆
0x7700…7720 6e 69 6d 6d 28 68 63 32 39 30 31 2c 27 65 30 31 72 74 72 29 20 20 20 20 20 20 20 20 20 3b 20 73 ┆nimm(hc2901,'e01rtr) ; s┆
0x7720…7740 65 6e 64 30 61 64 64 72 65 73 73 20 6f 66 20 72 65 61 64 20 74 65 73 74 20 72 65 67 69 73 74 65 ┆end0address of read test registe┆
0x7740…7760 72 0a 31 33 36 36 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 ┆r 1366 ┆
0x7760…7780 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 69 74 68 20 6e 6f ┆ ; with no┆
0x7780…77a0 20 77 61 69 74 20 74 6f 20 68 63 32 39 30 31 2e 0a 31 33 36 37 20 30 36 33 31 20 31 31 36 37 20 ┆ wait to hc2901. 1367 0631 1167 ┆
0x77a0…77c0 20 20 20 20 20 20 20 20 6a 6d 70 28 67 67 34 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ jmp(gg4) ┆
0x77c0…77e0 20 20 20 20 20 20 3b 20 67 6f 74 6f 20 67 67 34 2e 0a 31 33 36 38 20 30 36 33 32 20 31 31 37 30 ┆ ; goto gg4. 1368 0632 1170┆
0x77e0…7800 20 67 67 33 3a 20 20 20 20 69 6e 69 6d 6d 28 68 63 32 39 30 31 2c 27 65 30 31 72 74 77 29 20 20 ┆ gg3: inimm(hc2901,'e01rtw) ┆
0x7800…7820 20 20 20 20 20 20 20 3b 20 63 6c 6f 63 6b 20 68 63 32 39 30 31 20 69 6e 20 72 65 61 64 20 74 65 ┆ ; clock hc2901 in read te┆
0x7820…7840 73 74 20 72 65 67 69 73 74 65 72 0a 31 33 36 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆st register 1369 ┆
0x7840…7860 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 ┆ ┆
0x7860…7880 20 3b 20 77 69 74 68 20 77 61 69 74 2e 0a 31 33 37 30 20 30 36 33 33 20 31 31 37 31 20 67 67 34 ┆ ; with wait. 1370 0633 1171 gg4┆
0x7880…78a0 3a 20 20 20 20 63 6a 6d 70 28 72 65 32 39 30 31 2c 67 67 34 29 20 63 6c 72 65 30 31 20 20 20 20 ┆: cjmp(re2901,gg4) clre01 ┆
0x78a0…78c0 20 20 20 3b 20 6c 6f 6f 70 20 77 68 69 6c 65 20 68 63 32 39 30 31 20 69 73 20 6e 6f 74 20 72 65 ┆ ; loop while hc2901 is not re┆
0x78c0…78e0 64 79 0a 31 33 37 31 20 30 36 33 34 20 31 31 37 32 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 66 ┆dy 1371 0634 1172 jmp(pf┆
0x78e0…7900 6e 65 69 63 29 20 20 69 6e 76 28 77 72 65 67 2c 68 63 32 39 30 31 29 20 3b 20 77 5f 72 65 67 28 ┆neic) inv(wreg,hc2901) ; w_reg(┆
0x7900…7920 69 6e 64 65 78 29 20 3a 3d 20 68 63 32 39 30 31 2c 20 67 70 66 6e 65 69 63 2e 0a 31 33 37 32 20 ┆index) := hc2901, gpfneic. 1372 ┆
0x7920…7940 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 6f 6e 20 ┆ ; instruction ┆
0x7940…7960 64 61 74 61 20 6f 75 74 3a 20 27 64 6f 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 31 2e 0a ┆data out: 'do', numeric code 1. ┆
0x7960…7980 31 33 37 33 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 ┆1373 ; -------┆
0x7980…79a0 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 ┆--------------------------------┆
0x79a0…79c0 2d 2d 2d 2d 0a 31 33 37 34 20 30 36 33 35 20 31 31 37 33 20 64 6f 2f 31 3a 20 20 20 61 6e 64 69 ┆---- 1374 0635 1173 do/1: andi┆
0x79c0…79e0 6e 76 28 65 78 2c 37 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 78 28 32 ┆nv(ex,7) ; ex(2┆
0x79e0…7a00 31 3a 32 33 29 20 3a 3d 20 30 2c 20 63 6c 65 61 72 20 62 69 74 20 32 31 20 74 6f 0a 31 33 37 35 ┆1:23) := 0, clear bit 21 to 1375┆
0x7a00…7a20 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 ┆ ┆
0x7a20…7a40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 32 33 20 69 6e 20 65 78 20 72 65 67 69 ┆ ; 23 in ex regi┆
0x7a40…7a60 73 74 65 72 20 28 69 2e 65 2e 20 73 74 61 74 75 73 20 0a 31 33 37 36 20 20 20 20 20 20 20 20 20 ┆ster (i.e. status 1376 ┆
0x7a60…7a80 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 ┆ ┆
0x7a80…7aa0 20 20 20 20 20 20 20 20 3b 20 72 65 67 69 73 74 65 72 2e 29 0a 31 33 37 37 20 30 36 33 36 20 31 ┆ ; register.) 1377 0636 1┆
0x7aa0…7ac0 31 37 34 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6e 6f 74 6e 65 67 2c 70 72 67 65 78 70 29 20 ┆174 cjmp(notneg,prgexp) ┆
0x7ac0…7ae0 6d 6f 76 65 28 77 72 6b 31 2c 61 64 64 72 73 29 20 6c 66 74 61 6f 6c 3b 20 69 66 20 73 74 61 74 ┆move(wrk1,addrs) lftaol; if stat┆
0x7ae0…7b00 75 73 20 0a 31 33 37 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆us 1378 ┆
0x7b00…7b20 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 73 61 6d 65 ┆ ; same┆
0x7b20…7b40 20 61 73 20 65 78 29 20 69 73 20 6e 6f 74 0a 31 33 37 39 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ as ex) is not 1379 ┆
0x7b40…7b60 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 ┆ ┆
0x7b60…7b80 20 20 20 20 3b 20 6e 65 67 61 74 69 76 65 20 28 20 6e 6f 74 20 6d 6f 6e 69 74 6f 72 20 6d 6f 64 ┆ ; negative ( not monitor mod┆
0x7b80…7ba0 65 29 0a 31 33 38 30 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 ┆e) 1380 ┆
0x7ba0…7bc0 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 74 68 65 6e 20 67 ┆ ; then g┆
0x7bc0…7be0 6f 74 6f 20 70 72 6f 67 72 61 6d 20 65 78 65 70 74 69 6f 6e 20 2c 0a 31 33 38 31 20 20 20 20 20 ┆oto program exeption , 1381 ┆
0x7be0…7c00 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 ┆ ┆
0x7c00…7c20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 72 6b 31 20 3a 3d 20 61 64 64 72 73 20 2a 20 32 20 ┆ ; wrk1 := addrs * 2 ┆
0x7c20…7c40 28 20 64 65 6c 65 74 65 20 73 69 67 6e 20 62 69 74 20 29 2e 0a 31 33 38 32 20 30 36 33 37 20 31 ┆( delete sign bit ). 1382 0637 1┆
0x7c40…7c60 31 37 35 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6e 6f 74 6e 65 67 2c 64 6f 6d 65 6d 6f 29 20 ┆175 cjmp(notneg,domemo) ┆
0x7c60…7c80 6d 6f 76 65 28 77 72 6b 31 2c 77 72 6b 31 29 20 72 67 74 61 6f 6c 20 3b 20 69 66 20 61 64 64 72 ┆move(wrk1,wrk1) rgtaol ; if addr┆
0x7c80…7ca0 65 73 73 20 69 73 20 6e 6f 74 20 6e 65 67 61 74 69 76 65 0a 31 33 38 33 20 20 20 20 20 20 20 20 ┆ess is not negative 1383 ┆
0x7ca0…7cc0 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 ┆ ┆
0x7cc0…7ce0 20 20 20 20 20 20 20 20 20 20 3b 20 74 68 65 6e 20 67 6f 74 6f 20 64 61 74 61 20 69 6e 20 6d 65 ┆ ; then goto data in me┆
0x7ce0…7d00 6d 6f 72 79 20 77 6f 72 64 20 77 72 69 74 65 2c 0a 31 33 38 34 20 20 20 20 20 20 20 20 20 20 20 ┆mory word write, 1384 ┆
0x7d00…7d20 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 ┆ ┆
0x7d20…7d40 20 20 20 20 20 20 20 3b 20 77 72 6b 31 20 3a 3d 20 61 64 64 72 65 73 73 20 77 69 74 68 20 6e 6f ┆ ; wrk1 := address with no┆
0x7d40…7d60 20 73 69 67 6e 20 62 69 74 2e 0a 31 33 38 35 20 30 36 33 38 20 31 31 37 36 20 20 20 20 20 20 20 ┆ sign bit. 1385 0638 1176 ┆
0x7d60…7d80 20 20 61 6e 64 28 71 2c 77 72 6b 31 2c 37 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ and(q,wrk1,7) ┆
0x7d80…7da0 20 3b 20 71 20 3a 3d 20 6c 61 73 74 20 33 20 62 69 74 20 6f 66 20 65 66 66 65 63 74 69 76 65 20 ┆ ; q := last 3 bit of effective ┆
0x7da0…7dc0 61 64 64 72 65 73 73 2e 0a 31 33 38 36 20 30 36 33 39 20 31 31 37 37 20 20 20 20 20 20 20 20 20 ┆address. 1386 0639 1177 ┆
0x7dc0…7de0 61 64 64 28 71 2c 27 65 30 31 64 6f 62 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆add(q,'e01dob) ; ┆
0x7de0…7e00 71 20 3a 3d 20 6c 61 73 74 20 33 20 62 69 74 73 20 6f 66 20 61 64 64 72 65 73 73 20 2b 0a 31 33 ┆q := last 3 bits of address + 13┆
0x7e00…7e20 (14,) 38 37 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 ┆87 ┆
0x7e20…7e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 64 64 72 65 73 73 20 6f 66 20 ┆ ; address of ┆
0x7e40…7e60 66 69 72 73 74 20 64 61 74 61 20 6f 75 74 20 69 6e 20 0a 31 33 38 38 20 20 20 20 20 20 20 20 20 ┆first data out in 1388 ┆
0x7e60…7e80 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 ┆ ┆
0x7e80…7ea0 20 20 20 20 20 20 20 20 3b 20 68 63 32 39 30 31 20 64 61 74 61 20 6f 75 74 20 66 75 6e 63 74 69 ┆ ; hc2901 data out functi┆
0x7ea0…7ec0 6f 6e 20 74 61 62 6c 65 2e 0a 31 33 38 39 20 30 36 34 30 20 31 32 30 30 20 20 20 20 20 20 20 20 ┆on table. 1389 0640 1200 ┆
0x7ec0…7ee0 20 20 61 6e 64 69 6e 76 28 77 72 6b 31 2c 37 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ andinv(wrk1,7) ;┆
0x7ee0…7f00 20 63 6c 65 61 72 20 6c 61 73 74 20 33 20 62 69 74 20 6f 66 20 64 65 76 69 63 65 20 6e 75 6d 62 ┆ clear last 3 bit of device numb┆
0x7f00…7f20 65 72 2e 0a 31 33 39 30 20 30 36 34 31 20 31 32 30 31 20 20 20 20 20 20 20 20 20 6a 6d 70 28 77 ┆er. 1390 0641 1201 jmp(w┆
0x7f20…7f40 64 6f 31 29 20 69 6e 76 28 68 63 32 39 30 31 2c 71 29 20 20 20 20 20 20 20 3b 20 63 6c 6f 63 6b ┆do1) inv(hc2901,q) ; clock┆
0x7f40…7f60 20 68 63 32 39 30 31 20 69 6e 20 64 61 74 61 20 6f 75 74 20 66 75 6e 63 74 69 6f 6e 20 0a 31 33 ┆ hc2901 in data out function 13┆
0x7f60…7f80 39 31 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 ┆91 ┆
0x7f80…7fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 61 62 6c 65 2c 20 61 6e 64 20 ┆ ; table, and ┆
0x7fa0…7fc0 67 6f 74 6f 20 77 64 6f 31 2e 0a 31 33 39 32 20 30 36 34 32 20 31 32 30 32 20 64 6f 6d 65 6d 6f ┆goto wdo1. 1392 0642 1202 domemo┆
0x7fc0…7fe0 3a 20 69 6e 69 6d 6d 28 68 63 32 39 30 31 2c 27 65 30 31 64 6f 6d 29 20 20 20 20 20 20 20 20 20 ┆: inimm(hc2901,'e01dom) ┆
0x7fe0…8000 3b 20 63 6c 6f 63 6b 20 68 63 32 39 30 31 20 69 6e 20 64 61 74 61 20 6f 75 74 20 6d 65 6d 6f 72 ┆; clock hc2901 in data out memor┆
0x8000…8020 79 20 77 6f 72 64 2e 0a 31 33 39 33 20 20 20 20 20 20 20 20 20 20 20 20 0a 31 33 39 34 20 30 36 ┆y word. 1393 1394 06┆
0x8020…8040 34 33 20 31 32 30 33 20 77 64 6f 31 3a 20 20 20 63 6a 6d 70 28 72 65 32 39 30 31 2c 77 64 6f 31 ┆43 1203 wdo1: cjmp(re2901,wdo1┆
0x8040…8060 29 20 63 6c 72 65 30 31 20 20 20 20 20 20 3b 20 77 61 69 74 20 66 6f 72 20 68 63 32 39 30 31 2e ┆) clre01 ; wait for hc2901.┆
0x8060…8080 0a 31 33 39 35 20 20 20 20 20 20 20 20 20 20 20 2a 74 65 73 74 3a 20 62 69 74 6f 6e 0a 31 33 39 ┆ 1395 *test: biton 139┆
0x8080…80a0 36 20 30 36 34 34 20 31 32 30 34 20 20 20 20 20 20 20 20 20 69 6e 76 28 68 63 32 39 30 31 2c 77 ┆6 0644 1204 inv(hc2901,w┆
0x80a0…80c0 72 6b 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 68 63 32 39 30 31 20 3a 3d 20 64 69 76 ┆rk1) ; hc2901 := div┆
0x80c0…80e0 69 63 65 20 6e 75 6d 62 65 72 2e 0a 20 20 20 20 20 20 20 20 20 20 2e 20 31 31 31 2e 20 2e 20 31 ┆ice number. . 111. . 1┆
0x80e0…8100 20 2e 2e 2e 2e 20 31 31 2e 2e 2e 20 2e 31 2e 31 2e 20 2e 2e 20 31 2e 2e 2e 31 20 2e 2e 2e 2e 20 ┆ .... 11... .1.1. .. 1...1 .... ┆
0x8100…8120 31 2e 31 2e 20 2e 2e 2e 2e 20 2e 31 20 31 31 20 2e 2e 2e 2e 20 0a 0a 31 33 39 37 20 20 20 20 20 ┆1.1. .... .1 11 .... 1397 ┆
0x8120…8140 20 20 20 20 20 20 2a 74 65 73 74 3a 20 62 69 74 6f 66 66 0a 31 33 39 38 20 30 36 34 35 20 31 32 ┆ *test: bitoff 1398 0645 12┆
0x8140…8160 30 35 20 20 20 20 20 20 20 20 20 20 73 6d 6f 76 65 28 71 2c 77 72 65 67 29 20 20 20 20 20 20 20 ┆05 smove(q,wreg) ┆
0x8160…8180 20 20 20 20 20 20 20 20 20 3b 20 71 20 3a 3d 20 77 72 65 67 28 69 6e 64 65 78 29 2e 0a 31 33 39 ┆ ; q := wreg(index). 139┆
0x8180…81a0 39 20 30 36 34 36 20 31 32 30 36 20 77 64 6f 32 3a 20 20 20 63 6a 6d 70 28 72 65 32 39 30 31 2c ┆9 0646 1206 wdo2: cjmp(re2901,┆
0x81a0…81c0 77 64 6f 32 29 20 63 6c 72 65 30 31 20 20 20 20 20 20 3b 20 77 61 69 74 20 66 6f 72 20 68 63 32 ┆wdo2) clre01 ; wait for hc2┆
0x81c0…81e0 39 30 31 2e 0a 31 34 30 30 20 30 36 34 37 20 31 32 30 37 20 20 20 20 20 20 20 20 20 6a 6d 70 28 ┆901. 1400 0647 1207 jmp(┆
0x81e0…8200 77 64 69 33 29 20 69 6e 76 28 68 63 32 39 30 31 2c 71 29 20 20 20 20 20 20 20 3b 20 68 63 32 39 ┆wdi3) inv(hc2901,q) ; hc29┆
0x8200…8220 30 31 20 3a 3d 20 71 2c 20 63 6c 6f 63 6b 20 77 72 69 74 65 20 68 63 32 39 30 31 2c 0a 31 34 30 ┆01 := q, clock write hc2901, 140┆
0x8220…8240 31 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 ┆1 ┆
0x8240…8260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 67 6f 74 6f 20 77 64 69 33 20 28 20 ┆ ; goto wdi3 ( ┆
0x8260…8280 77 61 69 74 20 66 6f 72 20 65 78 65 70 74 69 6f 6e 20 62 69 74 73 0a 31 34 30 32 20 20 20 20 20 ┆wait for exeption bits 1402 ┆
0x8280…82a0 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 ┆ ┆
0x82a0…82c0 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 6f 6d 6d 6f 6e 20 77 69 74 68 20 64 61 74 61 20 69 ┆ ; common with data i┆
0x82c0…82e0 6e 20 69 6e 73 74 72 75 63 74 69 6f 6e 29 2e 0a 31 34 30 33 20 20 20 20 20 20 20 20 20 20 20 0a ┆n instruction). 1403 ┆
0x82e0…8300 31 34 30 34 20 20 20 20 20 20 20 20 20 20 20 0a 31 34 30 35 20 20 20 20 20 20 20 20 20 20 20 0a ┆1404 1405 ┆
0x8300…8320 31 34 30 36 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 ┆1406 ; instruc┆
0x8320…8340 74 69 6f 6e 20 64 61 74 61 20 69 6e 3a 20 27 64 69 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 ┆tion data in: 'di', numeric code┆
0x8340…8360 20 30 2e 0a 31 34 30 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 ┆ 0. 1407 ; ---┆
0x8360…8380 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 ┆--------------------------------┆
0x8380…83a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 31 34 30 38 20 30 36 34 38 20 31 32 31 30 20 64 69 2f 30 3a 20 20 ┆--------- 1408 0648 1210 di/0: ┆
0x83a0…83c0 20 61 6e 64 69 6e 76 28 65 78 2c 37 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ andinv(ex,7) ;┆
0x83c0…83e0 20 65 78 28 32 31 3a 32 33 29 20 3a 3d 20 30 2c 20 63 6c 65 61 72 20 62 69 74 20 32 31 20 74 6f ┆ ex(21:23) := 0, clear bit 21 to┆
0x83e0…8400 0a 31 34 30 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 20 ┆ 1409 ┆
0x8400…8420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 32 33 20 69 6e 20 65 78 ┆ ; 23 in ex┆
0x8420…8440 20 72 65 67 69 73 74 65 72 20 28 69 2e 65 2e 20 73 74 61 74 75 73 20 0a 31 34 31 30 20 20 20 20 ┆ register (i.e. status 1410 ┆
0x8440…8460 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 ┆ ┆
0x8460…8480 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 65 67 69 73 74 65 72 2e 29 0a 31 34 31 31 20 30 ┆ ; register.) 1411 0┆
0x8480…84a0 36 34 39 20 31 32 31 31 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6e 6f 74 6e 65 67 2c 70 72 67 ┆649 1211 cjmp(notneg,prg┆
0x84a0…84c0 65 78 70 29 20 6d 6f 76 65 28 77 72 6b 31 2c 61 64 64 72 73 29 20 6c 66 74 61 6f 6c 20 3b 20 69 ┆exp) move(wrk1,addrs) lftaol ; i┆
0x84c0…84e0 66 20 73 74 61 74 75 73 20 0a 31 34 31 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆f status 1412 ┆
0x84e0…8500 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 ┆ ┆
0x8500…8520 3b 20 28 73 61 6d 65 20 61 73 20 65 78 29 20 69 73 20 6e 6f 74 0a 31 34 31 33 20 20 20 20 20 20 ┆; (same as ex) is not 1413 ┆
0x8520…8540 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 ┆ ┆
0x8540…8560 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 65 67 61 74 69 76 65 20 28 20 6e 6f 74 20 6d 6f 6e 69 ┆ ; negative ( not moni┆
0x8560…8580 74 6f 72 20 6d 6f 64 65 29 20 0a 31 34 31 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tor mode) 1414 ┆
0x8580…85a0 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 ┆ ┆
0x85a0…85c0 3b 20 74 68 65 6e 20 67 6f 74 6f 20 70 72 6f 67 72 61 6d 20 65 78 65 70 74 69 6f 6e 2c 0a 31 34 ┆; then goto program exeption, 14┆
0x85c0…85e0 31 35 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 ┆15 ┆
0x85e0…8600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 72 6b 31 20 3a 3d 20 61 64 64 ┆ ; wrk1 := add┆
0x8600…8620 72 73 20 2a 20 32 20 28 20 64 65 6c 65 74 65 20 70 6f 73 73 69 62 6c 65 0a 31 34 31 36 20 20 20 ┆rs * 2 ( delete possible 1416 ┆
0x8620…8640 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 ┆ ┆
0x8640…8660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 69 67 6e 20 62 69 74 29 2e 0a 31 34 31 37 20 ┆ ; sign bit). 1417 ┆
0x8660…8680 30 36 35 30 20 31 32 31 32 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6e 6f 74 6e 65 67 2c 64 69 ┆0650 1212 cjmp(notneg,di┆
0x8680…86a0 6d 65 6d 6f 29 20 6d 6f 76 65 28 77 72 6b 31 2c 77 72 6b 31 29 20 72 67 74 61 6f 6c 20 3b 20 69 ┆memo) move(wrk1,wrk1) rgtaol ; i┆
0x86a0…86c0 66 20 61 64 64 72 73 20 69 73 20 6e 6f 74 20 6e 65 67 61 74 69 76 65 0a 31 34 31 38 20 20 20 20 ┆f addrs is not negative 1418 ┆
0x86c0…86e0 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 ┆ ┆
0x86e0…8700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 68 65 6e 20 67 6f 74 6f 20 64 69 6d 65 6d 6f ┆ ; then goto dimemo┆
0x8700…8720 (15,) 20 28 20 6d 65 6d 6f 72 79 20 77 6f 72 64 20 66 65 74 63 68 29 2c 0a 31 34 31 39 20 20 20 20 20 ┆ ( memory word fetch), 1419 ┆
0x8720…8740 20 20 20 20 20 20 0a 31 34 32 30 20 30 36 35 31 20 31 32 31 33 20 20 20 20 20 20 20 20 20 61 6e ┆ 1420 0651 1213 an┆
0x8740…8760 64 28 71 2c 61 64 64 72 73 2c 37 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 71 20 ┆d(q,addrs,7) ; q ┆
0x8760…8780 3a 3d 20 6c 61 73 74 20 33 20 62 69 74 73 20 6f 66 20 0a 31 34 32 31 20 20 20 20 20 20 20 20 20 ┆:= last 3 bits of 1421 ┆
0x8780…87a0 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 ┆ ┆
0x87a0…87c0 20 20 20 20 20 20 20 20 3b 20 65 66 66 65 63 74 69 76 65 20 61 64 64 72 65 73 73 2e 0a 31 34 32 ┆ ; effective address. 142┆
0x87c0…87e0 32 20 30 36 35 32 20 31 32 31 34 20 20 20 20 20 20 20 20 20 61 64 64 28 71 2c 27 65 30 31 64 69 ┆2 0652 1214 add(q,'e01di┆
0x87e0…8800 62 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 71 20 3a 3d 20 71 20 2b 20 61 64 64 ┆b) ; q := q + add┆
0x8800…8820 72 65 73 73 20 6f 66 20 66 69 72 73 74 0a 31 34 32 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ress of first 1423 ┆
0x8820…8840 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 ┆ ┆
0x8840…8860 20 20 20 3b 20 20 20 20 20 20 64 61 74 61 20 69 6e 20 66 75 6e 63 74 69 6f 6e 2c 20 69 6e 20 68 ┆ ; data in function, in h┆
0x8860…8880 63 32 39 30 31 2e 0a 31 34 32 34 20 30 36 35 33 20 31 32 31 35 20 20 20 20 20 20 20 20 20 61 6e ┆c2901. 1424 0653 1215 an┆
0x8880…88a0 64 69 6e 76 28 77 72 6b 31 2c 37 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 6c ┆dinv(wrk1,7) ; cl┆
0x88a0…88c0 65 61 72 20 6c 61 73 74 20 33 20 62 69 74 73 20 6f 66 20 64 65 76 69 63 65 20 6e 75 6d 62 65 72 ┆ear last 3 bits of device number┆
0x88c0…88e0 2e 0a 31 34 32 35 20 30 36 35 34 20 31 32 31 36 20 20 20 20 20 20 20 20 20 6a 6d 70 28 77 64 69 ┆. 1425 0654 1216 jmp(wdi┆
0x88e0…8900 31 29 20 69 6e 76 28 68 63 32 39 30 31 2c 71 29 20 20 20 20 20 20 20 3b 20 67 6f 74 6f 20 77 61 ┆1) inv(hc2901,q) ; goto wa┆
0x8900…8920 69 74 20 64 69 31 2c 20 63 6c 6f 63 6b 20 68 63 32 39 30 31 20 69 6e 0a 31 34 32 36 20 20 20 20 ┆it di1, clock hc2901 in 1426 ┆
0x8920…8940 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 ┆ ┆
0x8940…8960 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 64 61 74 61 20 69 6e 20 6a 75 6d 70 20 74 61 62 6c ┆ ; data in jump tabl┆
0x8960…8980 65 2e 0a 31 34 32 37 20 30 36 35 35 20 31 32 31 37 20 64 69 6d 65 6d 6f 3a 20 69 6e 69 6d 6d 28 ┆e. 1427 0655 1217 dimemo: inimm(┆
0x8980…89a0 68 63 32 39 30 31 2c 27 65 30 31 64 69 6d 29 20 20 20 20 20 20 20 20 20 3b 20 63 6c 6f 63 6b 20 ┆hc2901,'e01dim) ; clock ┆
0x89a0…89c0 68 63 32 39 30 31 20 69 6e 20 61 64 64 72 65 73 73 20 65 30 31 67 6d 77 2e 0a 31 34 32 38 20 30 ┆hc2901 in address e01gmw. 1428 0┆
0x89c0…89e0 36 35 36 20 31 32 32 30 20 77 64 69 31 3a 20 20 20 63 6a 6d 70 28 72 65 32 39 30 31 2c 77 64 69 ┆656 1220 wdi1: cjmp(re2901,wdi┆
0x89e0…8a00 31 29 20 63 6c 72 65 30 31 20 20 20 20 20 20 3b 20 77 61 69 74 20 66 6f 72 20 72 65 61 64 79 2e ┆1) clre01 ; wait for ready.┆
0x8a00…8a20 0a 31 34 32 39 20 30 36 35 37 20 31 32 32 31 20 20 20 20 20 20 20 20 20 69 6e 76 28 68 63 32 39 ┆ 1429 0657 1221 inv(hc29┆
0x8a20…8a40 30 31 2c 77 72 6b 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 68 63 32 39 30 31 20 3a 3d ┆01,wrk1) ; hc2901 :=┆
0x8a40…8a60 20 64 69 76 69 63 65 20 6e 75 6d 62 65 72 2e 0a 31 34 33 30 20 30 36 35 38 20 31 32 32 32 20 77 ┆ divice number. 1430 0658 1222 w┆
0x8a60…8a80 64 69 32 3a 20 20 20 63 6a 6d 70 28 72 65 32 39 30 31 2c 77 64 69 32 29 20 69 6e 76 28 77 72 65 ┆di2: cjmp(re2901,wdi2) inv(wre┆
0x8a80…8aa0 67 2c 68 63 32 39 30 31 29 3b 20 77 61 69 74 20 66 6f 72 20 68 63 32 39 30 31 2c 20 77 72 65 67 ┆g,hc2901); wait for hc2901, wreg┆
0x8aa0…8ac0 28 69 6e 64 65 78 29 20 3a 3d 20 68 63 32 39 30 31 2e 0a 31 34 33 31 20 30 36 35 39 20 31 32 32 ┆(index) := hc2901. 1431 0659 122┆
0x8ac0…8ae0 33 20 20 20 20 20 20 20 20 20 63 6f 6e 74 20 63 6c 77 72 30 31 20 20 20 20 20 20 20 20 20 20 20 ┆3 cont clwr01 ┆
0x8ae0…8b00 20 20 20 20 20 20 20 20 3b 20 63 6c 65 61 72 20 77 72 69 74 65 20 72 65 61 64 79 20 66 72 6f 6d ┆ ; clear write ready from┆
0x8b00…8b20 20 68 63 32 39 30 31 2e 0a 31 34 33 32 20 20 20 20 20 20 20 20 20 20 20 0a 31 34 33 33 20 30 36 ┆ hc2901. 1432 1433 06┆
0x8b20…8b40 36 30 20 31 32 32 34 20 77 64 69 33 3a 20 20 20 63 6a 6d 70 28 72 65 32 39 30 31 2c 77 64 69 33 ┆60 1224 wdi3: cjmp(re2901,wdi3┆
0x8b40…8b60 29 20 69 6e 76 28 77 72 6b 31 2c 68 63 32 39 30 31 29 3b 20 77 61 69 74 20 66 6f 72 20 68 63 32 ┆) inv(wrk1,hc2901); wait for hc2┆
0x8b60…8b80 39 30 31 2c 20 77 72 6b 31 20 3a 3d 20 68 63 32 39 30 31 2e 0a 31 34 33 34 20 30 36 36 31 20 31 ┆901, wrk1 := hc2901. 1434 0661 1┆
0x8b80…8ba0 32 32 35 20 20 20 20 20 20 20 20 20 61 6e 64 28 77 72 6b 31 2c 37 29 20 20 20 20 20 20 20 20 20 ┆225 and(wrk1,7) ┆
0x8ba0…8bc0 20 20 20 20 20 20 20 20 20 20 3b 20 77 72 6b 31 20 3a 3d 20 77 72 6b 31 28 32 31 2e 32 33 29 2e ┆ ; wrk1 := wrk1(21.23).┆
0x8bc0…8be0 0a 31 34 33 35 20 30 36 36 32 20 31 32 32 36 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 66 6e 65 ┆ 1435 0662 1226 jmp(pfne┆
0x8be0…8c00 69 63 29 20 6f 72 28 65 78 2c 77 72 6b 31 29 20 20 20 20 20 20 20 3b 20 65 78 20 3a 3d 20 77 72 ┆ic) or(ex,wrk1) ; ex := wr┆
0x8c00…8c20 6b 31 2e 0a 31 34 33 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆k1. 1436 ┆
0x8c20…8c40 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 67 6f 74 6f 20 ┆ ; goto ┆
0x8c40…8c60 70 66 6e 65 69 63 2e 0a 31 34 33 37 20 20 20 20 20 20 20 20 20 20 20 0a 31 34 33 38 20 20 20 20 ┆pfneic. 1437 1438 ┆
0x8c60…8c80 20 20 20 20 20 20 20 0a 31 34 33 39 20 20 20 20 20 20 20 20 20 20 20 0a 31 34 34 30 20 20 20 20 ┆ 1439 1440 ┆
0x8c80…8ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 6f 66 20 6d 69 63 72 6f 70 72 6f ┆ ; end of micropro┆
0x8ca0…8cc0 67 72 61 6d 0a 31 34 34 31 20 20 20 20 20 20 20 20 20 20 20 2a 65 6e 64 3a 20 20 20 0a 0a 20 20 ┆gram 1441 *end: ┆
0x8cc0…8ce0 20 39 35 20 20 20 35 36 20 20 20 37 30 20 20 33 20 75 6e 64 65 63 2e 20 6c 61 62 65 6c 20 6f 72 ┆ 95 56 70 3 undec. label or┆
0x8ce0…8d00 20 61 64 64 72 73 2e 20 0a 20 20 20 38 35 20 20 20 34 36 20 20 20 35 36 20 20 33 20 75 6e 64 65 ┆ addrs. 85 46 56 3 unde┆
0x8d00…8d20 63 2e 20 6c 61 62 65 6c 20 6f 72 20 61 64 64 72 73 2e 20 0a 20 20 20 38 34 20 20 20 34 35 20 20 ┆c. label or addrs. 84 45 ┆
0x8d20…8d40 20 35 35 20 20 33 20 75 6e 64 65 63 2e 20 6c 61 62 65 6c 20 6f 72 20 61 64 64 72 73 2e 20 0a 20 ┆ 55 3 undec. label or addrs. ┆
0x8d40…8d60 20 20 38 33 20 20 20 34 34 20 20 20 35 34 20 20 33 20 75 6e 64 65 63 2e 20 6c 61 62 65 6c 20 6f ┆ 83 44 54 3 undec. label o┆
0x8d60…8d80 72 20 61 64 64 72 73 2e 20 0a 20 20 20 38 32 20 20 20 34 33 20 20 20 35 33 20 20 33 20 75 6e 64 ┆r addrs. 82 43 53 3 und┆
0x8d80…8da0 65 63 2e 20 6c 61 62 65 6c 20 6f 72 20 61 64 64 72 73 2e 20 0a 4d 49 43 2e 20 41 53 4d 2e 20 53 ┆ec. label or addrs. MIC. ASM. S┆
0x8da0…8dc0 4f 52 52 59 21 20 20 20 35 20 65 72 72 6f 72 28 73 29 20 66 6f 75 6e 64 2e 20 20 36 36 33 20 31 ┆ORRY! 5 error(s) found. 663 1┆
0x8dc0…8de0 32 32 37 20 20 31 31 30 0a 00 19 00 6e 74 20 63 6c 77 72 30 31 20 20 20 20 20 20 20 20 20 20 20 ┆227 110 nt clwr01 ┆
0x8de0…8e00 20 20 20 20 20 20 20 20 3b 20 63 6c 65 61 72 20 77 72 69 74 65 20 72 65 61 64 79 20 66 72 6f 6d ┆ ; clear write ready from┆
0x8e00…8e20 20 68 63 32 39 30 31 2e 0a 31 34 33 32 20 20 20 20 20 20 20 20 20 20 20 0a 31 34 33 33 20 30 36 ┆ hc2901. 1432 1433 06┆
0x8e20…8e40 36 30 20 31 32 32 34 20 77 64 69 33 3a 20 20 20 63 6a 6d 70 28 72 65 32 39 30 31 2c 77 64 69 33 ┆60 1224 wdi3: cjmp(re2901,wdi3┆
0x8e40…8e60 29 20 69 6e 76 28 77 72 6b 31 2c 68 63 32 39 30 31 29 3b 20 77 61 69 74 20 66 6f 72 20 68 63 32 ┆) inv(wrk1,hc2901); wait for hc2┆
0x8e60…8e80 39 30 31 2c 20 77 72 6b 31 20 3a 3d 20 68 63 32 39 30 31 2e 0a 31 34 33 34 20 30 36 36 31 20 31 ┆901, wrk1 := hc2901. 1434 0661 1┆
0x8e80…8ea0 32 32 35 20 20 20 20 20 20 20 20 20 61 6e 64 28 77 72 6b 31 2c 37 29 20 20 20 20 20 20 20 20 20 ┆225 and(wrk1,7) ┆
0x8ea0…8ec0 20 20 20 20 20 20 20 20 20 20 3b 20 77 72 6b 31 20 3a 3d 20 77 72 6b 31 28 32 31 2e 32 33 29 2e ┆ ; wrk1 := wrk1(21.23).┆
0x8ec0…8ee0 0a 31 34 33 35 20 30 36 36 32 20 31 32 32 36 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 66 6e 65 ┆ 1435 0662 1226 jmp(pfne┆
0x8ee0…8f00 69 63 29 20 6f 72 28 65 78 2c 77 72 6b 31 29 20 20 20 20 20 20 20 3b 20 65 78 20 3a 3d 20 77 72 ┆ic) or(ex,wrk1) ; ex := wr┆
0x8f00…8f20 6b 31 2e 0a 31 34 33 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆k1. 1436 ┆
0x8f20…8f40 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 67 6f 74 6f 20 ┆ ; goto ┆
0x8f40…8f60 70 66 6e 65 69 63 2e 0a 31 34 33 37 20 20 20 20 20 20 20 20 20 20 20 0a 31 34 33 38 20 20 20 20 ┆pfneic. 1437 1438 ┆
0x8f60…8f80 20 20 20 20 20 20 20 0a 31 34 33 39 20 20 20 20 20 20 20 20 20 20 20 0a 31 34 34 30 20 20 20 20 ┆ 1439 1440 ┆
0x8f80…8fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 6f 66 20 6d 69 63 72 6f 70 72 6f ┆ ; end of micropro┆
0x8fa0…8fc0 67 72 61 6d 0a 31 34 34 31 20 20 20 20 20 20 20 20 20 20 20 2a 65 6e 64 3a 20 20 20 0a 0a 20 20 ┆gram 1441 *end: ┆
0x8fc0…8fe0 20 39 35 20 20 20 35 36 20 20 20 37 30 20 20 33 20 75 6e 64 65 63 2e 20 6c 61 62 65 6c 20 6f 72 ┆ 95 56 70 3 undec. label or┆
0x8fe0…9000 20 61 64 64 72 73 2e 20 0a 20 20 20 38 35 20 20 20 34 36 20 20 20 35 36 20 20 33 20 75 6e 64 65 ┆ addrs. 85 46 56 3 unde┆
0x9000…9020 (16,) 0a 3b 20 6d 61 73 6b 20 74 61 62 6c 65 20 73 70 65 63 69 66 79 69 6e 67 20 68 61 72 64 20 61 6e ┆ ; mask table specifying hard an┆
0x9020…9040 64 20 73 70 65 63 69 61 6c 20 65 72 72 6f 72 73 20 64 65 70 65 6e 64 69 6e 67 0a 3b 20 6f 6e 20 ┆d special errors depending ; on ┆
0x9040…9060 74 68 65 20 69 6e 64 65 78 20 73 65 6c 65 63 74 65 64 20 76 69 61 20 74 68 65 20 70 72 6f 63 65 ┆the index selected via the proce┆
0x9060…9080 73 73 20 6b 69 6e 64 0a 77 2e 20 20 0a 65 32 34 3a 20 20 38 2e 31 31 30 37 20 37 30 33 31 20 20 ┆ss kind w. e24: 8.1107 7031 ┆
0x9080…90a0 20 20 20 20 20 20 3b 20 20 20 30 3a 20 6d 74 0a 65 32 35 3a 20 20 38 2e 32 36 32 30 20 30 37 34 ┆ ; 0: mt e25: 8.2620 074┆
0x90a0…90c0 34 20 20 20 20 20 20 20 20 3b 20 20 20 0a 20 20 20 20 20 20 38 2e 37 36 37 37 20 37 33 37 35 20 ┆4 ; 8.7677 7375 ┆
0x90c0…90e0 20 20 20 20 20 20 20 3b 20 20 20 34 3a 20 68 61 72 64 20 65 72 72 6f 72 0a 20 20 20 20 20 20 38 ┆ ; 4: hard error 8┆
0x90e0…9100 2e 30 31 30 30 20 30 34 30 30 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 73 70 65 63 69 61 6c ┆.0100 0400 ; special┆
0x9100…9120 20 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 38 2e 37 32 37 37 20 37 33 33 31 20 20 20 20 20 20 20 ┆ action 8.7277 7331 ┆
0x9120…9140 20 3b 20 20 20 38 3a 20 62 61 63 6b 69 6e 67 20 73 74 6f 72 61 67 65 0a 20 20 20 20 20 20 38 2e ┆ ; 8: backing storage 8.┆
0x9140…9160 30 35 30 30 20 30 34 34 34 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 38 2e 32 37 35 37 20 ┆0500 0444 ; 8.2757 ┆
0x9160…9180 37 33 37 35 20 20 20 20 20 20 20 20 3b 20 20 31 32 3a 20 74 79 70 65 77 72 69 74 65 72 73 0a 20 ┆7375 ; 12: typewriters ┆
0x9180…91a0 20 20 20 20 20 38 2e 31 30 30 30 20 30 34 30 30 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 ┆ 8.1000 0400 ; ┆
0x91a0…91c0 38 2e 31 36 31 34 20 37 37 37 35 20 20 20 20 20 20 20 20 3b 20 20 31 36 3a 20 72 65 61 64 65 72 ┆8.1614 7775 ; 16: reader┆
0x91c0…91e0 73 0a 20 20 20 20 20 20 38 2e 30 31 30 30 20 30 30 30 30 20 20 20 20 20 20 20 20 3b 0a 20 20 20 ┆s 8.0100 0000 ; ┆
0x91e0…9200 20 20 20 38 2e 33 36 37 37 20 37 33 37 35 20 20 20 20 20 20 20 20 3b 20 20 32 30 3a 20 63 68 61 ┆ 8.3677 7375 ; 20: cha┆
0x9200…9220 72 20 6f 72 69 65 6e 74 65 64 20 6f 75 74 70 75 74 20 6d 65 64 69 61 0a 20 20 20 20 20 20 38 2e ┆r oriented output media 8.┆
0x9220…9240 31 31 30 30 20 30 34 30 30 20 20 20 20 20 20 20 20 3b 0a 65 32 38 3a 20 20 38 2e 37 37 37 37 20 ┆1100 0400 ; e28: 8.7777 ┆
0x9240…9260 34 37 37 37 20 20 20 20 20 20 20 20 3b 20 6f 66 66 69 63 69 61 6c 20 62 69 74 73 2e 0a 0a 3b 20 ┆4777 ; official bits. ; ┆
0x9260…9280 74 72 65 61 74 6d 65 6e 74 20 6f 66 20 73 74 61 74 75 73 20 62 69 74 73 20 66 6f 72 20 64 69 66 ┆treatment of status bits for dif┆
0x9280…92a0 66 65 72 65 6e 74 20 69 6e 64 69 63 65 73 2e 0a 3b 20 20 20 62 69 74 20 20 65 72 72 6f 72 20 20 ┆ferent indices. ; bit error ┆
0x92a0…92c0 20 20 20 20 20 20 20 68 61 72 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 70 65 ┆ hard spe┆
0x92c0…92e0 63 69 61 6c 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 20 20 34 20 20 38 20 ┆cial ; 0 4 8 ┆
0x92e0…9300 31 32 20 31 36 20 32 30 20 20 20 20 20 20 30 20 20 34 20 20 38 20 31 32 20 31 36 20 32 30 0a 3b ┆12 16 20 0 4 8 12 16 20 ;┆
0x9300…9320 20 20 20 20 30 20 20 20 6c 6f 63 61 6c 20 20 20 20 20 20 20 20 2a 20 20 2a 20 20 20 20 20 20 20 ┆ 0 local * * ┆
0x9320…9340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 3b 20 20 20 20 31 20 20 20 70 61 72 69 ┆ ; 1 pari┆
0x9340…9360 74 79 20 20 20 20 20 20 20 2a 20 20 2a 20 20 2a 20 20 20 20 20 2a 20 20 20 20 20 20 2a 20 20 20 ┆ty * * * * * ┆
0x9360…9380 20 20 20 20 20 20 20 20 20 20 20 20 0a 3b 20 20 20 20 32 20 20 20 74 69 6d 65 72 20 20 20 20 20 ┆ ; 2 timer ┆
0x9380…93a0 2a 20 20 2a 20 20 2a 20 20 20 20 20 2a 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a ┆* * * * * *┆
0x93a0…93c0 20 20 20 20 20 2a 0a 3b 20 20 20 20 33 20 20 20 6f 76 65 72 72 75 6e 20 20 20 20 20 20 2a 20 20 ┆ * ; 3 overrun * ┆
0x93c0…93e0 20 20 20 2a 20 20 2a 20 20 2a 20 20 20 20 20 20 2a 20 20 20 20 20 2a 20 20 20 20 20 20 0a 3b 20 ┆ * * * * * ; ┆
0x93e0…9400 20 20 20 34 20 20 20 62 6c 6f 63 6b 20 6c 2e 20 20 20 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 ┆ 4 block l. * * * * ┆
0x9400…9420 2a 20 20 20 20 20 20 2a 0a 3b 20 20 20 20 35 20 20 20 65 6e 64 20 64 6f 63 2e 20 20 2a 20 20 20 ┆* * ; 5 end doc. * ┆
0x9420…9440 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 2a 20 20 20 20 20 2a 20 ┆ * * * * ┆
0x9440…9460 20 2a 0a 3b 20 20 20 20 36 20 20 20 6c 6f 61 64 20 70 2e 20 20 20 20 20 20 2a 20 20 2a 20 20 2a ┆ * ; 6 load p. * * *┆
0x9460…9480 20 20 20 20 20 2a 20 20 20 20 20 20 0a 3b 20 20 20 20 37 20 20 20 74 61 70 65 20 6d 61 72 6b 20 ┆ * ; 7 tape mark ┆
0x9480…94a0 20 20 20 2a 20 20 2a 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 2a 0a 3b 20 20 20 20 38 20 20 ┆ * * * * ; 8 ┆
0x94a0…94c0 20 72 69 6e 67 20 20 20 20 20 20 20 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 20 20 20 ┆ ring * * * * * ┆
0x94c0…94e0 20 20 20 0a 3b 20 20 20 20 39 20 20 20 6d 6f 64 65 20 65 72 72 2e 20 2a 20 20 2a 20 20 2a 20 20 ┆ ; 9 mode err. * * * ┆
0x94e0…9500 2a 20 20 2a 20 20 2a 0a 3b 20 20 20 31 30 20 20 20 72 65 61 64 20 65 72 72 2e 20 2a 20 20 2a 20 ┆* * * ; 10 read err. * * ┆
0x9500…9520 20 2a 20 20 2a 20 20 20 20 20 2a 0a 3b 20 20 20 31 31 20 20 20 63 61 72 64 20 72 65 6a 2e 20 2a ┆ * * * ; 11 card rej. *┆
0x9520…9540 20 20 2a 20 20 2a 20 20 2a 20 20 20 20 20 2a 0a 3b 0a 3b 20 20 20 31 32 20 20 20 73 75 6d 20 65 ┆ * * * * ; ; 12 sum e┆
0x9540…9560 72 72 2e 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 0a 3b 20 20 20 31 33 20 20 20 20 ┆rr. * * * * * * ; 13 ┆
0x9560…9580 20 20 20 20 20 20 20 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 0a 3b 20 20 20 31 34 ┆ * * * * * * ; 14┆
0x9580…95a0 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 20 ┆ * * * * * * ┆
0x95a0…95c0 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 ┆ ┆
0x95c0…95e0 20 20 20 20 20 20 20 0a 3b 20 20 20 31 35 20 20 20 73 74 6f 70 20 20 20 20 20 20 20 20 20 20 20 ┆ ; 15 stop ┆
0x95e0…9600 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 20 20 20 ┆ * * * * * ┆
0x9600…9620 2a 0a 3b 20 20 20 31 36 20 20 20 64 65 66 65 63 74 20 20 20 20 20 20 20 2a 20 20 2a 20 20 2a 20 ┆* ; 16 defect * * * ┆
0x9620…9640 20 2a 20 20 2a 20 20 20 20 20 20 2a 0a 3b 20 20 20 31 37 20 20 20 70 6f 73 69 74 69 6f 6e 20 20 ┆ * * * ; 17 position ┆
0x9640…9660 20 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 20 20 20 20 2a 0a 3b 20 20 20 31 38 20 20 ┆ * * * * * * ; 18 ┆
0x9660…9680 20 6e 6f 6e 2d 65 78 69 73 74 20 20 20 20 2a 20 20 20 20 20 2a 20 20 2a 20 20 2a 20 20 20 20 20 ┆ non-exist * * * * ┆
0x9680…96a0 20 2a 20 20 20 20 20 2a 0a 3b 20 20 20 31 39 20 20 20 64 69 73 63 6f 6e 6e 2e 20 20 2a 20 20 2a ┆ * * ; 19 disconn. * *┆
0x96a0…96c0 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 20 20 20 20 0a 3b 20 20 20 32 30 20 20 20 75 6e 69 6e ┆ * * * * ; 20 unin┆
0x96c0…96e0 74 65 6c 6c 2e 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 0a 3b 20 20 20 32 31 20 20 20 ┆tell. * * * * * * ; 21 ┆
0x96e0…9700 72 65 6a 65 63 74 65 64 20 20 20 20 20 2a 20 20 20 20 20 2a 20 20 2a 20 20 2a 20 20 20 20 20 20 ┆rejected * * * * ┆
0x9700…9720 2a 20 20 20 20 20 2a 0a 3b 20 20 20 32 32 20 20 20 6e 6f 72 6d 61 6c 20 20 20 20 0a 3b 20 20 20 ┆* * ; 22 normal ; ┆
0x9720…9740 32 33 20 20 20 67 69 76 65 20 75 70 20 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 0a ┆23 give up * * * * * * ┆
0x9740…9760 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 65 6e 64 20 ┆ e. ; end ┆
0x9760…9780 62 6c 6f 63 6b 20 69 6f 3b 0a 0a 0c 0a 0a 0c 0a 0a 3b 20 72 63 20 35 2e 36 2e 37 30 20 20 20 20 ┆block io; ; rc 5.6.70 ┆
0x9780…97a0 20 20 20 20 20 20 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 ┆ file processor, charac┆
0x97a0…97c0 74 65 72 20 69 6f 2c 20 70 61 67 65 20 2e 2e 2e 31 2e 2e 2e 0a 0a 3b 20 69 6e 70 75 74 2f 6f 75 ┆ter io, page ...1... ; input/ou┆
0x97c0…97e0 74 70 75 74 20 6f 6e 20 63 68 61 72 61 63 74 65 72 20 6c 65 76 65 6c 0a 3b 20 70 72 6f 63 65 64 ┆tput on character level ; proced┆
0x97e0…9800 75 72 65 73 20 20 69 6e 63 68 61 72 2c 20 6f 75 74 63 68 61 72 2c 20 6f 75 74 65 6e 64 2c 20 63 ┆ures inchar, outchar, outend, c┆
0x9800…9820 6c 6f 73 65 20 75 70 2e 0a 3b 20 72 65 67 69 73 74 65 72 73 20 20 20 20 20 20 20 20 20 69 6e 20 ┆lose up. ; registers in ┆
0x9820…9840 63 61 6c 6c 20 20 20 20 20 20 20 20 20 20 20 61 74 20 72 65 74 75 72 6e 0a 3b 20 20 20 77 30 20 ┆call at return ; w0 ┆
0x9840…9860 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 75 ┆ u┆
0x9860…9880 6e 63 68 61 6e 67 65 64 0a 3b 20 20 20 77 31 20 20 20 20 20 20 20 20 20 20 7a 6f 6e 65 20 64 65 ┆nchanged ; w1 zone de┆
0x9880…98a0 73 63 72 69 70 74 6f 72 20 20 20 20 7a 6f 6e 65 20 64 65 73 63 72 69 70 74 6f 72 0a 3b 20 20 20 ┆scriptor zone descriptor ; ┆
0x98a0…98c0 77 32 20 20 20 20 20 20 20 20 20 20 6f 75 74 3a 20 63 68 61 72 61 63 74 65 72 20 20 20 20 20 20 ┆w2 out: character ┆
0x98c0…98e0 69 6e 3a 20 63 68 61 72 61 63 74 65 72 0a 3b 20 20 20 77 33 20 20 20 20 20 20 20 20 20 20 20 20 ┆in: character ; w3 ┆
0x98e0…9900 20 20 20 6c 69 6e 6b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 0a 3b 20 61 66 74 ┆ link link ; aft┆
0x9900…9920 (17,) 65 72 20 6f 75 74 70 75 74 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 72 65 67 69 73 74 ┆er output the contents of regist┆
0x9920…9940 65 72 20 77 32 20 69 73 20 75 6e 64 65 66 69 6e 65 64 2e 0a 0a 62 2e 20 20 20 65 34 38 20 20 20 ┆er w2 is undefined. b. e48 ┆
0x9940…9960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 62 65 67 69 6e 0a 77 2e 20 20 20 20 20 20 20 20 ┆ ; begin w. ┆
0x9960…9980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 68 61 72 61 63 74 65 72 20 69 6f 3a 0a 3b ┆ ; character io: ;┆
0x9980…99a0 20 69 6e 63 68 61 72 3a 0a 20 20 20 20 20 20 61 6c 2e 20 77 31 20 20 68 32 30 2e 20 20 20 20 20 ┆ inchar: al. w1 h20. ┆
0x99a0…99c0 20 20 3b 20 28 2d 32 29 3a 20 20 7a 6f 6e 65 3a 3d 20 63 75 72 72 65 6e 74 20 69 6e 70 75 74 20 ┆ ; (-2): zone:= current input ┆
0x99c0…99e0 7a 6f 6e 65 3b 0a 68 32 35 3a 20 20 72 78 20 20 77 33 20 20 78 31 2b 68 32 2b 34 20 20 20 20 3b ┆zone; h25: rx w3 x1+h2+4 ;┆
0x99e0…9a00 20 69 6e 63 68 61 72 3a 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 20 30 20 20 20 20 20 20 20 ┆ inchar: al w2 0 ┆
0x9a00…9a20 20 20 3b 20 20 20 77 32 3a 3d 20 66 72 6f 6e 74 20 63 68 61 72 2e 70 61 72 74 69 61 6c 20 77 6f ┆ ; w2:= front char.partial wo┆
0x9a20…9a40 72 64 3b 0a 20 20 20 20 20 20 6c 64 20 20 77 33 20 20 20 38 20 20 20 20 20 20 20 20 20 3b 20 20 ┆rd; ld w3 8 ; ┆
0x9a40…9a60 20 70 61 72 74 69 61 6c 20 77 6f 72 64 3a 3d 20 70 61 72 74 69 61 6c 20 77 6f 72 64 20 73 68 69 ┆ partial word:= partial word shi┆
0x9a60…9a80 66 74 20 38 3b 0a 20 20 20 20 20 20 73 6e 20 20 77 33 20 20 20 30 20 20 20 20 20 20 20 20 20 3b ┆ft 8; sn w3 0 ;┆
0x9a80…9aa0 20 20 20 69 66 20 70 61 72 74 69 61 6c 20 77 6f 72 64 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ if partial word=0 then ┆
0x9aa0…9ac0 6a 6c 2e 20 20 20 20 20 65 31 2e 20 20 20 20 20 20 20 20 3b 20 20 20 6e 6f 20 6d 6f 72 65 3a 20 ┆jl. e1. ; no more: ┆
0x9ac0…9ae0 20 67 6f 74 6f 20 69 6e 77 6f 72 64 3b 0a 20 20 20 20 20 20 72 78 20 20 77 33 20 20 78 31 2b 68 ┆ goto inword; rx w3 x1+h┆
0x9ae0…9b00 32 2b 34 20 20 20 20 3b 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 6a 6c 20 20 20 20 20 ┆2+4 ; return; jl ┆
0x9b00…9b20 20 78 33 20 20 20 20 20 20 20 20 20 3b 0a 0a 65 31 3a 20 20 20 72 6c 20 20 77 33 20 20 78 31 2b ┆ x3 ; e1: rl w3 x1+┆
0x9b20…9b40 68 33 20 20 20 20 20 20 3b 20 69 6e 77 6f 72 64 3a 0a 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 ┆h3 ; inword: al w3 ┆
0x9b40…9b60 78 33 2b 32 20 20 20 20 20 20 20 3b 20 20 20 72 65 63 6f 72 64 20 62 61 73 65 20 3a 3d 20 72 65 ┆x3+2 ; record base := re┆
0x9b60…9b80 63 6f 72 64 20 62 61 73 65 20 2b 20 32 3b 0a 20 20 20 20 20 20 72 73 20 20 77 33 20 20 78 31 2b ┆cord base + 2; rs w3 x1+┆
0x9b80…9ba0 68 33 20 20 20 20 20 20 3b 20 74 65 73 74 20 65 6d 70 74 79 3a 0a 65 32 3a 20 20 20 73 6c 20 20 ┆h3 ; test empty: e2: sl ┆
0x9ba0…9bc0 77 33 20 28 78 31 2b 68 33 2b 32 29 20 20 20 3b 20 20 20 69 66 20 72 65 63 6f 72 64 20 62 61 73 ┆w3 (x1+h3+2) ; if record bas┆
0x9bc0…9be0 65 20 3e 3d 20 6c 61 73 74 20 62 79 74 65 20 74 68 65 6e 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 ┆e >= last byte then jl. ┆
0x9be0…9c00 20 20 65 36 2e 20 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 6e 65 78 74 20 62 6c 6f 63 6b ┆ e6. ; goto next block┆
0x9c00…9c20 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 33 2b 32 20 20 20 20 20 20 20 3b 20 20 20 70 ┆; rl w3 x3+2 ; p┆
0x9c20…9c40 61 72 74 69 61 6c 20 77 6f 72 64 20 3a 3d 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 30 20 20 ┆artial word := al w2 0 ┆
0x9c40…9c60 20 20 20 20 20 20 20 20 3b 20 20 20 20 72 65 63 6f 72 64 28 72 65 63 6f 72 64 20 62 61 73 65 2b ┆ ; record(record base+┆
0x9c60…9c80 32 29 3b 0a 20 20 20 20 20 20 6c 64 20 20 77 33 20 20 38 20 20 20 20 20 20 20 20 20 20 3b 20 20 ┆2); ld w3 8 ; ┆
0x9c80…9ca0 20 63 68 61 72 20 3a 3d 20 70 61 72 74 69 61 6c 20 77 6f 72 64 20 28 62 69 74 20 30 20 2d 20 37 ┆ char := partial word (bit 0 - 7┆
0x9ca0…9cc0 29 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 2b 31 20 20 20 20 20 20 20 3b 20 20 20 ┆); al w3 x3+1 ; ┆
0x9cc0…9ce0 70 61 72 74 69 61 6c 20 77 6f 72 64 20 3a 3d 20 70 61 72 74 69 61 6c 20 77 6f 72 64 0a 20 20 20 ┆partial word := partial word ┆
0x9ce0…9d00 20 20 20 72 78 20 20 77 33 20 20 78 31 2b 68 32 2b 34 20 20 20 20 3b 20 20 20 20 73 68 69 66 74 ┆ rx w3 x1+h2+4 ; shift┆
0x9d00…9d20 20 38 20 2b 20 65 6d 70 74 79 20 62 69 74 3b 0a 20 20 20 20 20 20 6a 6c 20 20 20 20 20 20 78 33 ┆ 8 + empty bit; jl x3┆
0x9d20…9d40 20 20 20 20 20 20 20 20 20 3b 20 20 20 72 65 74 75 72 6e 3b 0a 0a 65 36 3a 20 20 20 6a 6c 2e 20 ┆ ; return; e6: jl. ┆
0x9d40…9d60 77 33 20 20 68 32 32 2e 20 20 20 20 20 20 20 3b 20 6e 65 78 74 20 62 6c 6f 63 6b 3a 0a 20 20 20 ┆w3 h22. ; next block: ┆
0x9d60…9d80 20 20 20 72 6c 20 20 77 33 20 20 78 31 2b 68 33 20 20 20 20 20 20 3b 20 20 20 69 6e 62 6c 6f 63 ┆ rl w3 x1+h3 ; inbloc┆
0x9d80…9da0 6b 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 65 32 2e 20 20 20 20 20 20 20 20 3b 20 20 20 ┆k; jl. e2. ; ┆
0x9da0…9dc0 67 6f 74 6f 20 74 65 73 74 20 65 6d 70 74 79 3b 0a 0a 3b 20 6f 75 74 63 68 61 72 3a 0a 20 20 20 ┆goto test empty; ; outchar: ┆
0x9dc0…9de0 20 20 20 61 6c 2e 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 ┆ al. w1 h21. ; (-2): ┆
0x9de0…9e00 7a 6f 6e 65 3a 3d 20 63 75 72 72 65 6e 74 20 6f 75 74 70 75 74 20 7a 6f 6e 65 3b 0a 68 32 36 3a ┆zone:= current output zone; h26:┆
0x9e00…9e20 20 20 72 78 20 20 77 33 20 20 78 31 2b 68 32 2b 34 20 20 20 20 3b 20 6f 75 74 63 68 61 72 3a 0a ┆ rx w3 x1+h2+4 ; outchar: ┆
0x9e20…9e40 20 20 20 20 20 20 73 7a 2e 20 77 33 20 28 65 33 2e 29 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 ┆ sz. w3 (e3.) ; if ┆
0x9e40…9e60 6c 61 73 74 20 69 6e 20 70 61 72 74 69 61 6c 20 77 6f 72 64 0a 20 20 20 20 20 20 6a 6c 2e 20 20 ┆last in partial word jl. ┆
0x9e60…9e80 20 20 20 65 34 2e 20 20 20 20 20 20 20 20 3b 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 6f 75 74 77 ┆ e4. ; then goto outw┆
0x9e80…9ea0 6f 72 64 3b 0a 20 20 20 20 20 20 6c 73 20 20 77 33 20 20 20 38 20 20 20 20 20 20 20 20 20 3b 20 ┆ord; ls w3 8 ; ┆
0x9ea0…9ec0 20 20 70 61 72 74 69 61 6c 20 77 6f 72 64 3a 3d 20 63 68 61 72 61 63 74 65 72 0a 20 20 20 20 20 ┆ partial word:= character ┆
0x9ec0…9ee0 20 6c 6f 20 20 77 33 20 20 20 34 20 20 20 20 20 20 20 20 20 3b 20 20 20 2b 20 70 61 72 74 69 61 ┆ lo w3 4 ; + partia┆
0x9ee0…9f00 6c 20 77 6f 72 64 20 73 68 69 66 74 20 38 3b 0a 20 20 20 20 20 20 72 78 20 20 77 33 20 20 78 31 ┆l word shift 8; rx w3 x1┆
0x9f00…9f20 2b 68 32 2b 34 20 20 20 20 3b 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 6a 6c 20 20 20 ┆+h2+4 ; return; jl ┆
0x9f20…9f40 20 20 20 78 33 20 20 20 20 20 20 20 20 20 3b 0a 65 34 3a 20 20 20 6c 73 20 20 77 33 20 20 20 38 ┆ x3 ; e4: ls w3 8┆
0x9f40…9f60 20 20 20 20 20 20 20 20 20 3b 20 6f 75 74 77 6f 72 64 3a 20 20 70 61 72 74 69 61 6c 20 77 6f 72 ┆ ; outword: partial wor┆
0x9f60…9f80 64 3a 3d 0a 20 20 20 20 20 20 6c 6f 20 20 77 32 20 20 20 36 20 20 20 20 20 20 20 20 20 3b 20 20 ┆d:= lo w2 6 ; ┆
0x9f80…9fa0 20 70 61 72 74 69 61 6c 20 77 6f 72 64 20 73 68 69 66 74 20 38 20 2b 20 63 68 61 72 61 63 74 65 ┆ partial word shift 8 + characte┆
0x9fa0…9fc0 72 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 31 2b 68 33 20 20 20 20 20 20 3b 0a 20 20 ┆r; rl w3 x1+h3 ; ┆
0x9fc0…9fe0 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 2b 32 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 ┆ al w3 x3+2 ; r┆
0x9fe0…a000 73 20 20 77 33 20 20 78 31 2b 68 33 20 20 20 20 20 20 3b 20 20 20 72 65 63 6f 72 64 20 62 61 73 ┆s w3 x1+h3 ; record bas┆
0xa000…a020 65 20 3a 3d 20 72 65 63 6f 72 64 20 62 61 73 65 20 2b 20 32 3b 0a 20 20 20 20 20 20 72 73 20 20 ┆e := record base + 2; rs ┆
0xa020…a040 77 32 20 20 78 33 20 20 20 20 20 20 20 20 20 3b 20 20 20 72 65 63 6f 72 64 28 72 65 63 6f 72 64 ┆w2 x3 ; record(record┆
0xa040…a060 20 62 61 73 65 29 20 3a 3d 20 70 61 72 74 69 61 6c 20 77 6f 72 64 3b 0a 20 20 20 20 20 20 61 6c ┆ base) := partial word; al┆
0xa060…a080 20 20 77 32 20 20 31 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 78 20 20 77 32 20 ┆ w2 1 ; rx w2 ┆
0xa080…a0a0 20 78 31 2b 68 32 2b 34 20 20 20 20 3b 20 20 20 70 61 72 74 69 61 6c 20 77 6f 72 64 20 3a 3d 20 ┆ x1+h2+4 ; partial word := ┆
0xa0a0…a0c0 31 3c 30 3b 20 28 65 6d 70 74 79 29 0a 20 20 20 20 20 20 72 78 20 20 77 32 20 20 36 20 20 20 20 ┆1<0; (empty) rx w2 6 ┆
0xa0c0…a0e0 20 20 20 20 20 20 3b 20 20 20 72 65 73 74 6f 72 65 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 ┆ ; restore return; ┆
0xa0e0…a100 73 6c 20 20 77 32 20 28 78 31 2b 68 33 2b 32 29 20 20 20 3b 20 20 20 69 66 20 72 65 63 6f 72 64 ┆sl w2 (x1+h3+2) ; if record┆
0xa100…a120 20 62 61 73 65 20 3e 3d 20 6c 61 73 74 20 62 79 74 65 20 74 68 65 6e 0a 20 20 20 20 20 20 6a 6c ┆ base >= last byte then jl┆
0xa120…a140 2e 20 20 20 20 20 68 32 33 2e 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 6f 75 74 62 6c 6f ┆. h23. ; goto outblo┆
0xa140…a160 63 6b 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 3b 20 20 ┆ck; jl x3 ; ┆
0xa160…a180 20 72 65 74 75 72 6e 3b 0a 0a 0a 0c 0a 0a 3b 20 72 63 20 32 36 2e 30 33 2e 37 33 20 20 20 20 20 ┆ return; ; rc 26.03.73 ┆
0xa180…a1a0 20 20 20 20 20 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 ┆ file processor, charact┆
0xa1a0…a1c0 65 72 20 69 6f 2c 20 70 61 67 65 20 2e 2e 2e 32 2e 2e 2e 0a 0a 65 33 3a 20 20 20 31 3c 31 36 20 ┆er io, page ...2... e3: 1<16 ┆
0xa1c0…a1e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6d 61 73 6b 20 66 6f 72 20 6c 61 73 74 20 69 6e ┆ ; mask for last in┆
0xa1e0…a200 20 70 61 72 74 69 61 6c 3b 0a 0a 3b 20 73 70 65 63 69 61 6c 20 65 6e 74 72 69 65 73 3a 0a 3b 20 ┆ partial; ; special entries: ; ┆
0xa200…a220 (18,) 69 6e 20 61 6c 6c 20 63 61 73 65 73 20 61 20 6a 75 6d 70 20 74 6f 20 74 68 65 20 77 6f 72 64 20 ┆in all cases a jump to the word ┆
0xa220…a240 6a 75 73 74 20 62 65 66 6f 72 65 20 74 68 65 20 6f 66 66 69 63 69 61 6c 20 65 6e 74 72 79 0a 3b ┆just before the official entry ;┆
0xa240…a260 20 77 69 6c 6c 20 73 65 6c 65 63 74 20 6f 6e 65 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 ┆ will select one of the current ┆
0xa260…a280 7a 6f 6e 65 73 20 61 73 20 74 68 65 20 7a 6f 6e 65 20 70 61 72 61 6d 65 74 65 72 20 69 6e 0a 3b ┆zones as the zone parameter in ;┆
0xa280…a2a0 20 77 31 2e 20 20 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 6f 75 74 65 6e 64 20 20 69 73 20 ┆ w1. the procedure outend is ┆
0xa2a0…a2c0 20 6f 66 74 65 6e 20 75 73 65 64 20 69 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 77 69 74 68 0a 3b ┆ often used in connection with ;┆
0xa2c0…a2e0 20 74 68 65 20 6e 75 6c 6c 20 61 6e 64 20 77 69 74 68 20 74 68 65 20 6e 6c 20 63 68 61 72 61 63 ┆ the null and with the nl charac┆
0xa2e0…a300 74 65 72 3b 20 74 68 65 72 65 66 6f 72 65 20 73 70 65 63 69 61 6c 20 65 6e 74 72 69 65 73 0a 3b ┆ter; therefore special entries ;┆
0xa300…a320 20 28 2d 36 20 20 61 6e 64 20 2d 34 29 20 61 72 65 20 70 72 6f 76 69 64 65 64 20 66 6f 72 20 74 ┆ (-6 and -4) are provided for t┆
0xa320…a340 68 6f 73 65 2e 20 20 63 75 72 72 65 6e 74 20 6f 75 74 70 75 74 20 7a 6f 6e 65 20 69 73 0a 3b 20 ┆hose. current output zone is ; ┆
0xa340…a360 61 6c 77 61 79 73 20 20 73 65 6c 65 63 74 65 64 20 77 68 65 6e 20 75 73 69 6e 67 20 74 68 65 20 ┆always selected when using the ┆
0xa360…a380 73 70 65 63 69 61 6c 20 65 6e 74 72 69 65 73 20 20 2d 36 20 61 6e 64 20 2d 34 2e 0a 0a 3b 20 6f ┆special entries -6 and -4. ; o┆
0xa380…a3a0 75 74 65 6e 64 3a 0a 68 35 39 3a 20 20 61 6d 20 20 20 20 20 20 2d 31 30 20 20 20 20 20 20 20 20 ┆utend: h59: am -10 ┆
0xa3a0…a3c0 3b 20 28 2d 36 29 3a 20 20 63 68 61 72 3a 3d 20 6e 75 6c 6c 0a 68 33 39 3a 20 20 61 6c 20 20 77 ┆; (-6): char:= null h39: al w┆
0xa3c0…a3e0 32 20 20 2b 31 30 20 20 20 20 20 20 20 20 3b 20 28 2d 34 29 3a 20 20 63 68 61 72 3a 3d 20 6e 6c ┆2 +10 ; (-4): char:= nl┆
0xa3e0…a400 0a 20 20 20 20 20 20 61 6c 2e 20 77 31 20 20 68 32 31 2e 20 20 20 20 20 20 20 3b 20 28 2d 32 29 ┆ al. w1 h21. ; (-2)┆
0xa400…a420 3a 20 20 7a 6f 6e 65 3a 3d 20 63 75 72 72 65 6e 74 20 6f 75 74 70 75 74 20 7a 6f 6e 65 3b 0a 68 ┆: zone:= current output zone; h┆
0xa420…a440 33 33 3a 20 20 72 73 2e 20 77 32 20 20 63 32 2e 20 20 20 20 20 20 20 20 3b 20 6f 75 74 65 6e 64 ┆33: rs. w2 c2. ; outend┆
0xa440…a460 3a 0a 20 20 20 20 20 20 62 7a 20 20 77 32 20 20 78 31 2b 68 31 2b 31 20 20 20 20 3b 20 20 20 69 ┆: bz w2 x1+h1+1 ; i┆
0xa460…a480 66 20 6b 69 6e 64 20 3c 3e 20 63 6f 6e 73 6f 6c 65 0a 20 20 20 20 20 20 73 65 20 20 77 32 20 20 ┆f kind <> console se w2 ┆
0xa480…a4a0 20 38 20 20 20 20 20 20 20 20 20 3b 20 20 20 6f 72 20 6b 69 6e 64 20 3c 3e 20 70 75 6e 63 68 0a ┆ 8 ; or kind <> punch ┆
0xa4a0…a4c0 20 20 20 20 20 20 73 6e 20 20 77 32 20 20 31 32 20 20 20 20 20 20 20 20 20 3b 20 20 20 6f 72 20 ┆ sn w2 12 ; or ┆
0xa4c0…a4e0 6b 69 6e 64 20 3c 3e 20 70 72 69 6e 74 65 72 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 65 38 ┆kind <> printer jl. e8┆
0xa4e0…a500 2e 20 20 20 20 20 20 20 20 3b 20 20 20 6f 72 20 6b 69 6e 64 20 3c 3e 20 69 6e 74 65 72 6e 61 6c ┆. ; or kind <> internal┆
0xa500…a520 20 70 72 6f 63 65 73 73 0a 20 20 20 20 20 20 73 65 20 20 77 32 20 20 31 34 20 20 20 20 20 20 20 ┆ process se w2 14 ┆
0xa520…a540 20 20 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 73 ┆ ; then goto outchar; s┆
0xa540…a560 6e 20 20 77 32 20 20 30 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 ┆n w2 0 ; jl. ┆
0xa560…a580 20 20 65 38 2e 20 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 61 64 6a 75 73 74 20 70 61 72 ┆ e8. ; goto adjust par┆
0xa580…a5a0 74 69 61 6c 3b 0a 20 20 20 20 20 20 72 6c 2e 20 77 32 20 20 63 32 2e 20 20 20 20 20 20 20 20 3b ┆tial; rl. w2 c2. ;┆
0xa5a0…a5c0 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 3b 0a 0a 3b 20 63 ┆ jl. w0 h26. ; ; c┆
0xa5c0…a5e0 6c 6f 73 65 20 75 70 3a 0a 63 33 37 3a 20 20 61 6c 20 20 77 32 20 20 31 30 20 20 20 20 20 20 20 ┆lose up: c37: al w2 10 ┆
0xa5e0…a600 20 20 3b 20 28 2d 34 29 3a 20 63 68 61 72 3a 3d 6e 6c 3b 0a 63 33 38 3a 20 20 61 6c 2e 20 77 31 ┆ ; (-4): char:=nl; c38: al. w1┆
0xa600…a620 20 20 68 32 31 2e 20 20 20 20 20 20 20 3b 20 28 2d 32 29 3a 20 20 7a 6f 6e 65 3a 3d 20 63 75 72 ┆ h21. ; (-2): zone:= cur┆
0xa620…a640 72 65 6e 74 20 6f 75 74 70 75 74 20 7a 6f 6e 65 3b 0a 68 33 34 3a 20 20 72 73 2e 20 77 32 20 20 ┆rent output zone; h34: rs. w2 ┆
0xa640…a660 63 32 2e 20 20 20 20 20 20 20 20 3b 20 63 6c 6f 73 65 20 75 70 3a 0a 65 38 3a 20 20 20 72 78 20 ┆c2. ; close up: e8: rx ┆
0xa660…a680 20 77 33 20 20 78 31 2b 68 32 2b 34 20 20 20 20 3b 20 61 64 6a 75 73 74 20 70 61 72 74 69 61 6c ┆ w3 x1+h2+4 ; adjust partial┆
0xa680…a6a0 20 77 6f 72 64 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 20 20 ┆ word: ld w3 8 ┆
0xa6a0…a6c0 3b 20 20 20 70 61 72 74 69 61 6c 20 77 6f 72 64 3a 3d 20 63 68 61 72 61 63 74 65 72 20 2b 0a 20 ┆; partial word:= character + ┆
0xa6c0…a6e0 20 20 20 20 20 6c 6f 2e 20 77 33 20 20 63 32 2e 20 20 20 20 20 20 20 20 3b 20 20 20 70 61 72 74 ┆ lo. w3 c2. ; part┆
0xa6e0…a700 69 61 6c 20 77 6f 72 64 20 73 68 69 66 74 20 38 3b 0a 20 20 20 20 20 20 73 6f 20 20 77 32 20 20 ┆ial word shift 8; so w2 ┆
0xa700…a720 32 2e 31 20 20 20 20 20 20 20 20 3b 20 20 20 6c 65 66 74 20 6a 75 73 74 69 66 79 20 28 70 61 72 ┆2.1 ; left justify (par┆
0xa720…a740 74 69 61 6c 20 77 6f 72 64 29 3b 0a 20 20 20 20 20 20 6c 64 20 20 77 33 20 20 20 38 20 20 20 20 ┆tial word); ld w3 8 ┆
0xa740…a760 20 20 20 20 20 3b 0a 20 20 20 20 20 20 73 6f 20 20 77 32 20 20 32 2e 31 20 20 20 20 20 20 20 20 ┆ ; so w2 2.1 ┆
0xa760…a780 3b 0a 20 20 20 20 20 20 6c 64 20 20 77 33 20 20 20 38 20 20 20 20 20 20 20 20 20 3b 0a 65 39 3a ┆; ld w3 8 ; e9:┆
0xa780…a7a0 20 20 20 61 6c 20 20 77 32 20 20 20 31 20 20 20 20 20 20 20 20 20 3b 20 61 64 6a 75 73 74 20 6d ┆ al w2 1 ; adjust m┆
0xa7a0…a7c0 65 73 73 61 67 65 3a 0a 20 20 20 20 20 20 77 61 20 20 77 32 20 20 78 31 2b 68 33 2b 30 20 20 20 ┆essage: wa w2 x1+h3+0 ┆
0xa7c0…a7e0 20 3b 20 20 20 72 65 63 20 62 61 73 65 3a 3d 20 72 65 63 20 62 61 73 65 2b 31 3b 0a 20 20 20 20 ┆ ; rec base:= rec base+1; ┆
0xa7e0…a800 20 20 72 73 20 20 77 33 20 20 78 32 2b 30 20 20 20 20 20 20 20 3b 20 20 20 77 6f 72 64 20 28 72 ┆ rs w3 x2+0 ; word (r┆
0xa800…a820 65 63 20 62 61 73 65 29 3a 3d 20 70 61 72 74 69 61 6c 20 77 6f 72 64 3b 0a 20 20 20 20 20 20 62 ┆ec base):= partial word; b┆
0xa820…a840 7a 20 20 77 33 20 20 78 31 2b 68 31 2b 31 20 20 20 20 3b 20 20 20 6c 61 73 74 20 61 64 64 72 2e ┆z w3 x1+h1+1 ; last addr.┆
0xa840…a860 75 73 65 64 20 73 68 61 72 65 3a 3d 0a 20 20 20 20 20 20 73 65 20 20 77 33 20 20 34 20 20 20 20 ┆used share:= se w3 4 ┆
0xa860…a880 20 20 20 20 20 20 3b 20 20 20 69 66 20 6b 69 6e 64 3d 62 73 0a 20 20 20 20 20 20 73 6e 20 20 77 ┆ ; if kind=bs sn w┆
0xa880…a8a0 33 20 20 31 38 20 20 20 20 20 20 20 20 20 3b 20 20 20 6f 72 20 6b 69 6e 64 3d 6d 74 0a 20 20 20 ┆3 18 ; or kind=mt ┆
0xa8a0…a8c0 20 20 20 61 6d 20 20 20 20 20 28 78 31 2b 68 30 2b 34 29 20 20 20 3b 20 20 20 74 68 65 6e 20 6c ┆ am (x1+h0+4) ; then l┆
0xa8c0…a8e0 61 73 74 2e 73 68 61 72 65 64 0a 20 20 20 20 20 20 72 6c 20 20 77 32 20 20 34 20 20 20 20 20 20 ┆ast.shared rl w2 4 ┆
0xa8e0…a900 20 20 20 20 3b 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 31 2b 68 30 ┆ ; else rl w3 x1+h0┆
0xa900…a920 2b 34 20 20 20 20 3b 20 20 20 72 65 63 6f 72 64 20 62 61 73 65 3b 0a 20 20 20 20 20 20 72 73 20 ┆+4 ; record base; rs ┆
0xa920…a940 20 77 32 20 20 78 33 2b 31 30 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 32 20 20 ┆ w2 x3+10 ; rl w2 ┆
0xa940…a960 78 33 2b 34 20 20 20 20 20 20 20 3b 20 20 20 77 32 3a 3d 6c 61 73 74 20 73 68 61 72 65 64 3b 0a ┆x3+4 ; w2:=last shared; ┆
0xa960…a980 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 68 32 33 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 ┆ jl. w3 h23. ; ┆
0xa980…a9a0 20 61 6d 20 20 20 20 20 28 78 31 2b 68 30 2b 34 29 20 20 20 3b 0a 20 20 20 20 20 20 72 73 20 20 ┆ am (x1+h0+4) ; rs ┆
0xa9a0…a9c0 77 32 20 20 31 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 6c 61 73 74 20 61 64 64 72 2e 6f 6c 64 ┆w2 10 ; last addr.old┆
0xa9c0…a9e0 20 75 73 65 64 20 73 68 61 72 65 20 3a 3d 0a 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 31 20 20 ┆ used share := al w3 1 ┆
0xa9e0…aa00 20 20 20 20 20 20 20 20 3b 20 20 20 6c 61 73 74 20 73 68 61 72 65 64 3b 0a 20 20 20 20 20 20 72 ┆ ; last shared; r┆
0xaa00…aa20 78 20 20 77 33 20 20 78 31 2b 68 32 2b 34 20 20 20 20 3b 20 20 20 70 61 72 74 69 61 6c 20 77 6f ┆x w3 x1+h2+4 ; partial wo┆
0xaa20…aa40 72 64 20 3a 3d 20 31 3c 30 3b 20 28 65 6d 70 74 79 29 0a 20 20 20 20 20 20 6a 6c 20 20 20 20 20 ┆rd := 1<0; (empty) jl ┆
0xaa40…aa60 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 0c 0a 0a 0a 0a 3b 20 ┆ x3 ; return; ; ┆
0xaa60…aa80 72 63 20 31 35 2e 36 2e 37 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 20 70 72 6f ┆rc 15.6.70 file pro┆
0xaa80…aaa0 63 65 73 73 6f 72 2c 20 63 68 61 72 61 63 74 65 72 20 69 6f 2c 20 70 61 67 65 20 2e 2e 2e 33 2e ┆cessor, character io, page ...3.┆
0xaaa0…aac0 2e 2e 0a 0a 3b 20 70 72 6f 63 65 64 75 72 65 73 20 6f 75 74 74 65 78 74 2c 20 6f 75 74 69 6e 74 ┆.. ; procedures outtext, outint┆
0xaac0…aae0 65 67 65 72 3b 0a 3b 20 72 65 67 69 73 74 65 72 73 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e ┆eger; ; registers in┆
0xaae0…ab00 20 63 61 6c 6c 20 20 20 20 20 20 20 20 20 20 61 74 20 72 65 74 75 72 6e 0a 3b 20 20 20 77 30 20 ┆ call at return ; w0 ┆
0xab00…ab20 (19,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 20 61 64 64 72 20 6f 72 20 76 61 6c 75 65 ┆ text addr or value┆
0xab20…ab40 20 20 64 65 73 74 72 6f 79 65 64 0a 3b 20 20 20 77 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ destroyed ; w1 ┆
0xab40…ab60 20 20 7a 6f 6e 65 20 64 65 73 63 72 69 70 74 6f 72 20 20 7a 6f 6e 65 20 64 65 73 63 72 69 70 74 ┆ zone descriptor zone descript┆
0xab60…ab80 6f 72 0a 3b 20 20 20 77 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆or ; w2 ┆
0xab80…aba0 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 63 68 61 6e 67 65 64 0a 3b 20 20 20 77 33 20 20 20 20 ┆ unchanged ; w3 ┆
0xaba0…abc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ link ┆
0xabc0…abe0 20 6c 69 6e 6b 0a 0a 3b 20 6f 75 74 74 65 78 74 0a 63 33 35 3a 20 20 61 6c 2e 20 77 31 20 20 68 ┆ link ; outtext c35: al. w1 h┆
0xabe0…ac00 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 20 63 75 72 72 65 ┆21. ; (-2): zone:= curre┆
0xac00…ac20 6e 74 20 6f 75 74 70 75 74 3b 0a 68 33 31 3a 20 20 64 73 2e 20 77 33 20 20 63 31 38 2e 20 20 20 ┆nt output; h31: ds. w3 c18. ┆
0xac20…ac40 20 20 20 20 3b 20 6f 75 74 74 65 78 74 3a 20 20 20 73 61 76 65 20 72 65 67 69 73 74 65 72 73 3b ┆ ; outtext: save registers;┆
0xac40…ac60 0a 65 31 31 3a 20 20 72 6c 20 20 77 33 20 20 28 30 29 20 20 20 20 20 20 20 20 3b 20 67 65 74 20 ┆ e11: rl w3 (0) ; get ┆
0xac60…ac80 74 65 78 74 20 77 6f 72 64 3a 0a 20 20 20 20 20 20 62 61 2e 20 77 30 20 20 31 20 20 20 20 20 20 ┆text word: ba. w0 1 ┆
0xac80…aca0 20 20 20 20 3b 20 20 20 70 61 72 74 69 61 6c 20 77 6f 72 64 20 3a 3d 20 77 6f 72 64 28 74 65 78 ┆ ; partial word := word(tex┆
0xaca0…acc0 74 20 61 64 64 72 29 3b 0a 20 20 20 20 20 20 62 61 2e 20 77 30 20 20 31 20 20 20 20 20 20 20 20 ┆t addr); ba. w0 1 ┆
0xacc0…ace0 20 20 3b 0a 20 20 20 20 20 20 72 73 2e 20 77 33 20 20 63 31 34 2e 20 20 20 20 20 20 20 3b 20 20 ┆ ; rs. w3 c14. ; ┆
0xace0…ad00 20 74 65 78 74 20 61 64 64 72 3a 3d 20 74 65 78 74 20 61 64 64 72 2b 32 3b 0a 20 20 20 20 20 20 ┆ text addr:= text addr+2; ┆
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 (20,) 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 (0,) 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 (3,) Data for ptextline
0x1e00…2100 Data for ttextline
0x2100…2400 Data for treadtextl
0x2400…2700 (4,) Data for preadtextl
0x2700…2a00 Data for pwrbinary
0x2a00…2d00 Data for ptestmonr
0x2d00…2d20 (5,) 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 (6,) 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…3d20 29 20 6f 72 28 77 72 65 67 2c 77 72 6b 30 29 20 20 20 20 20 3b 20 77 5f 72 65 67 28 69 6e 64 65 ┆) or(wreg,wrk0) ; w_reg(inde┆
0x3d20…3d40 78 29 20 3a 3d 20 77 5f 72 65 67 28 69 6e 64 65 78 29 20 6f 72 0a 20 39 37 32 20 20 20 20 20 20 ┆x) := w_reg(index) or 972 ┆
0x3d40…3d60 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 ┆ ┆
0x3d60…3d80 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 72 6b 30 2c 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a ┆ ; wrk0, goto pfneic. ┆
0x3d80…3da0 20 39 37 33 20 20 20 20 20 20 20 20 20 20 20 0a 20 39 37 34 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 973 974 ┆
0x3da0…3dc0 20 20 20 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 65 78 63 ┆ ; instruction logical exc┆
0x3dc0…3de0 6c 75 73 69 76 65 20 6f 72 3a 20 27 6c 78 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 36 2e ┆lusive or: 'lx', numeric code 6.┆
0x3de0…3e00 0a 20 39 37 35 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 ┆ 975 ; ------┆
0x3e00…3e20 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 ┆--------------------------------┆
0x3e20…3e40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 39 37 36 20 30 35 31 30 20 30 37 37 36 ┆----------------- 976 0510 0776┆
0x3e40…3e60 20 6c 78 2f 36 3a 20 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 ┆ lx/6: jsb(getop) ┆
0x3e60…3e80 20 20 20 20 20 20 20 3b 20 63 61 6c 6c 28 67 65 74 6f 70 29 2e 0a 20 39 37 37 20 30 35 31 31 20 ┆ ; call(getop). 977 0511 ┆
0x3e80…3ea0 30 37 37 37 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 66 6e 65 69 63 29 20 65 78 6f 72 28 77 72 ┆0777 jmp(pfneic) exor(wr┆
0x3ea0…3ec0 65 67 2c 77 72 6b 30 29 20 20 20 3b 20 77 5f 72 65 67 28 69 6e 64 65 78 29 20 3a 3d 20 77 5f 72 ┆eg,wrk0) ; w_reg(index) := w_r┆
0x3ec0…3ee0 65 67 28 69 6e 64 65 78 29 20 65 78 6f 72 0a 20 39 37 38 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆eg(index) exor 978 ┆
0x3ee0…3f00 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 ┆ ┆
0x3f00…3f20 (7,) 20 20 20 20 3b 20 77 72 6b 30 2c 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a 20 39 37 39 20 20 20 ┆ ; wrk0, goto pfneic. 979 ┆
0x3f20…3f40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 2a 70 61 67 65 3a 20 20 58 58 58 0a 20 39 38 ┆ ;*page: XXX 98┆
0x3f40…3f60 30 20 20 20 20 20 20 20 20 20 20 20 0a 20 39 38 31 20 20 20 20 20 20 20 20 20 20 20 0a 20 39 38 ┆0 981 98┆
0x3f60…3f80 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 68 69 66 74 20 6f 70 65 72 ┆2 ; shift oper┆
0x3f80…3fa0 61 74 69 6f 6e 73 2e 0a 20 39 38 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ations. 983 ;┆
0x3fa0…3fc0 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 39 38 34 20 20 20 20 20 20 20 20 20 ┆ ----------------- 984 ┆
0x3fc0…3fe0 20 20 0a 20 39 38 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 0a 31 30 39 ┆ 985 ; 109┆
0x3fe0…4000 38 20 20 20 20 20 20 20 20 20 20 20 0a 31 30 39 39 20 20 20 20 20 20 20 20 20 20 20 0a 31 31 30 ┆8 1099 110┆
0x4000…4020 30 20 20 20 20 20 20 20 20 20 20 20 0a 31 31 30 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0 1101 ┆
0x4020…4040 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 6c 79 20 73 68 69 66 ┆ ; instruction logically shif┆
0x4040…4060 74 20 73 69 6e 67 6c 65 3a 20 27 6c 73 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 33 38 2e ┆t single: 'ls', numeric code 38.┆
0x4060…4080 0a 31 31 30 32 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 ┆ 1102 ; ------┆
0x4080…40a0 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 ┆--------------------------------┆
0x40a0…40c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 31 31 30 33 20 30 35 31 32 20 31 ┆-------------------- 1103 0512 1┆
0x40c0…40e0 30 30 30 20 6c 73 2f 33 38 3a 20 20 73 75 62 28 61 64 64 72 73 2c 30 29 20 6e 6f 6c 6f 61 64 20 ┆000 ls/38: sub(addrs,0) noload ┆
0x40e0…4100 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 61 64 64 72 73 20 3e 20 30 20 74 68 65 6e 0a 31 31 ┆ ; if addrs > 0 then 11┆
0x4100…4120 30 34 20 30 35 31 33 20 31 30 30 31 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 67 72 65 61 74 2c ┆04 0513 1001 cjmp(great,┆
0x4120…4140 6c 73 31 29 20 73 6d 6f 76 65 28 71 2c 77 72 65 67 29 20 68 6f 6c 64 6d 79 3b 20 67 6f 74 6f 20 ┆ls1) smove(q,wreg) holdmy; goto ┆
0x4140…4160 6c 73 31 2c 20 71 3a 3d 77 5f 72 65 67 28 69 6e 64 65 78 29 2c 20 68 6f 6c 64 0a 31 31 30 35 20 ┆ls1, q:=w_reg(index), hold 1105 ┆
0x4160…4180 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 ┆ ┆
0x4180…41a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 6f 6e 64 69 74 69 6f 6e 20 62 69 74 73 ┆ ; condition bits┆
0x41a0…41c0 2e 0a 31 31 30 36 20 30 35 31 34 20 31 30 30 32 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6c 65 ┆. 1106 0514 1002 cjmp(le┆
0x41c0…41e0 73 73 2c 6c 73 32 29 20 20 73 6d 6f 76 65 28 77 72 6b 31 2c 71 29 20 3b 20 69 66 20 61 64 64 72 ┆ss,ls2) smove(wrk1,q) ; if addr┆
0x41e0…4200 73 20 3c 20 30 20 74 68 65 6e 20 67 6f 74 6f 20 6c 73 32 2c 20 77 72 6b 31 3a 3d 71 2e 0a 31 31 ┆s < 0 then goto ls2, wrk1:=q. 11┆
0x4200…4220 30 37 20 30 35 31 35 20 31 30 30 33 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 66 69 63 69 6e 29 ┆07 0515 1003 jmp(pficin)┆
0x4220…4240 20 69 6e 63 74 77 6f 28 69 63 29 20 20 20 20 20 20 20 20 3b 20 3c 2a 20 69 66 20 61 64 64 72 73 ┆ inctwo(ic) ; <* if addrs┆
0x4240…4260 20 3d 20 30 20 2a 3e 20 74 68 65 6e 20 67 6f 74 6f 20 0a 31 31 30 38 20 20 20 20 20 20 20 20 20 ┆ = 0 *> then goto 1108 ┆
0x4260…4280 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 ┆ ┆
0x4280…42a0 20 20 20 20 20 20 20 20 3b 20 67 6f 74 6f 20 70 66 69 63 69 6e 2c 20 69 63 20 3a 3d 20 69 63 20 ┆ ; goto pficin, ic := ic ┆
0x42a0…42c0 2b 20 32 2e 0a 31 31 30 39 20 30 35 31 36 20 31 30 30 34 20 6c 73 31 3a 20 20 20 20 73 75 62 28 ┆+ 2. 1109 0516 1004 ls1: sub(┆
0x42c0…42e0 61 64 64 72 73 2c 32 33 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 61 ┆addrs,23) noload ; if a┆
0x42e0…4300 64 64 72 73 20 3e 20 32 33 20 74 68 65 6e 0a 31 31 31 30 20 30 35 31 37 20 31 30 30 35 20 20 20 ┆ddrs > 23 then 1110 0517 1005 ┆
0x4300…4320 20 20 20 20 20 20 63 6a 6d 70 28 67 72 65 61 74 2c 70 66 6e 65 69 63 29 20 6d 7a 65 72 6f 28 77 ┆ cjmp(great,pfneic) mzero(w┆
0x4320…4340 72 65 67 29 3b 20 67 6f 74 6f 20 70 66 6e 65 69 63 2c 20 77 5f 72 65 67 28 69 6e 64 65 78 29 3a ┆reg); goto pfneic, w_reg(index):┆
0x4340…4360 3d 30 2e 0a 31 31 31 31 20 30 35 31 38 20 31 30 30 36 20 20 20 20 20 20 20 20 20 73 75 62 28 61 ┆=0. 1111 0518 1006 sub(a┆
0x4360…4380 64 64 72 73 2c 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 64 64 72 73 ┆ddrs,1) ; addrs┆
0x4380…43a0 20 3a 3d 20 61 64 64 72 73 20 2d 20 31 2e 0a 31 31 31 32 20 30 35 31 39 20 31 30 30 37 20 20 20 ┆ := addrs - 1. 1112 0519 1007 ┆
0x43a0…43c0 20 20 20 20 20 20 70 75 73 68 72 65 28 61 64 64 72 73 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ pushre(addrs) ┆
0x43c0…43e0 20 20 20 20 3b 20 63 6f 75 6e 74 65 72 20 3a 3d 20 30 2e 0a 31 31 31 33 20 20 20 20 20 20 20 20 ┆ ; counter := 0. 1113 ┆
0x43e0…4400 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 ┆ ┆
0x4400…4420 20 20 20 20 20 20 20 20 20 3b 20 70 75 73 68 20 6e 65 78 74 20 6d 69 63 2e 20 69 6e 73 74 72 2e ┆ ; push next mic. instr.┆
0x4420…4440 0a 31 31 31 34 20 30 35 32 30 20 31 30 31 30 20 20 20 20 20 20 20 20 20 72 65 70 20 6d 6f 76 65 ┆ 1114 0520 1010 rep move┆
0x4440…4460 28 77 72 6b 31 2c 77 72 6b 31 29 20 6c 66 74 71 69 6c 20 20 20 20 3b 20 71 5f 72 65 67 20 3a 3d ┆(wrk1,wrk1) lftqil ; q_reg :=┆
0x4460…4480 20 71 5f 72 65 67 20 73 68 69 66 74 20 6c 65 66 74 20 31 0a 31 31 31 35 20 20 20 20 20 20 20 20 ┆ q_reg shift left 1 1115 ┆
0x4480…44a0 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 ┆ ┆
0x44a0…44c0 20 20 20 20 20 20 20 20 20 3b 20 74 68 65 20 6f 70 72 61 74 69 6f 6e 20 77 69 74 68 20 74 68 65 ┆ ; the opration with the┆
0x44c0…44e0 0a 31 31 31 36 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 ┆ 1116 ┆
0x44e0…4500 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 31 20 72 65 67 ┆ ; wrk1 reg┆
0x4500…4520 20 69 73 20 64 75 6d 6d 79 2e 0a 31 31 31 37 20 30 35 32 31 20 31 30 31 31 20 20 20 20 20 20 20 ┆ is dummy. 1117 0521 1011 ┆
0x4520…4540 20 20 6a 6d 70 28 70 66 6e 65 69 63 29 20 73 6d 6f 76 65 28 77 72 65 67 2c 71 29 20 20 20 20 20 ┆ jmp(pfneic) smove(wreg,q) ┆
0x4540…4560 3b 20 77 5f 72 65 67 28 69 6e 64 65 78 29 3a 3d 71 2c 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a ┆; w_reg(index):=q, goto pfneic. ┆
0x4560…4580 31 31 31 38 20 30 35 32 32 20 31 30 31 32 20 6c 73 32 3a 20 20 20 20 69 6e 69 6d 6d 31 28 77 72 ┆1118 0522 1012 ls2: inimm1(wr┆
0x4580…45a0 6b 32 2c 61 64 64 72 73 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 72 6b 32 3a 3d 61 62 73 ┆k2,addrs) ; wrk2:=abs┆
0x45a0…45c0 28 61 64 64 72 73 29 0a 31 31 31 39 20 30 35 32 33 20 31 30 31 33 20 20 20 20 20 20 20 20 20 73 ┆(addrs) 1119 0523 1013 s┆
0x45c0…45e0 75 62 28 77 72 6b 32 2c 32 33 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 ┆ub(wrk2,23) noload ; i┆
0x45e0…4600 66 20 61 64 64 72 73 20 3e 20 32 33 20 74 68 65 6e 0a 31 31 32 30 20 30 35 32 34 20 31 30 31 34 ┆f addrs > 23 then 1120 0524 1014┆
0x4600…4620 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 67 72 65 61 74 2c 70 66 6e 65 69 63 29 20 6d 7a 65 72 ┆ cjmp(great,pfneic) mzer┆
0x4620…4640 6f 28 77 72 65 67 29 3b 20 67 6f 74 6f 20 70 66 6e 65 69 63 2c 20 77 5f 72 65 67 28 69 6e 64 65 ┆o(wreg); goto pfneic, w_reg(inde┆
0x4640…4660 78 29 3a 3d 30 2e 0a 31 31 32 31 20 30 35 32 35 20 31 30 31 35 20 20 20 20 20 20 20 20 20 73 75 ┆x):=0. 1121 0525 1015 su┆
0x4660…4680 62 28 77 72 6b 32 2c 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 72 ┆b(wrk2,1) ; wr┆
0x4680…46a0 6b 32 20 3a 3d 20 77 72 6b 32 20 2d 20 31 2e 0a 31 31 32 32 20 30 35 32 36 20 31 30 31 36 20 20 ┆k2 := wrk2 - 1. 1122 0526 1016 ┆
0x46a0…46c0 20 20 20 20 20 20 20 70 75 73 68 72 65 28 77 72 6b 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ pushre(wrk2) ┆
0x46c0…46e0 20 20 20 20 20 3b 20 63 6f 75 6e 74 65 72 20 3a 3d 20 77 72 6b 32 2e 0a 31 31 32 33 20 20 20 20 ┆ ; counter := wrk2. 1123 ┆
0x46e0…4700 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 ┆ ┆
0x4700…4720 20 20 20 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 2e 20 69 6e ┆ ; push next mic. in┆
0x4720…4740 73 74 72 2e 20 61 64 64 72 65 73 73 2e 0a 31 31 32 34 20 30 35 32 37 20 31 30 31 37 20 20 20 20 ┆str. address. 1124 0527 1017 ┆
0x4740…4760 20 20 20 20 20 72 65 70 20 6d 6f 76 65 28 77 72 6b 31 2c 77 72 6b 31 29 20 72 67 74 61 6f 6c 20 ┆ rep move(wrk1,wrk1) rgtaol ┆
0x4760…4780 73 68 69 6e 7a 3b 20 73 68 69 66 74 20 72 69 67 74 68 20 7a 65 72 6f 20 69 6e 70 75 74 0a 31 31 ┆shinz; shift rigth zero input 11┆
0x4780…47a0 32 35 20 30 35 32 38 20 31 30 32 30 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 66 6e 65 69 63 29 ┆25 0528 1020 jmp(pfneic)┆
0x47a0…47c0 20 6d 6f 76 65 28 77 72 65 67 2c 77 72 6b 31 29 20 20 20 3b 20 77 5f 72 65 67 28 69 6e 64 65 78 ┆ move(wreg,wrk1) ; w_reg(index┆
0x47c0…47e0 29 3a 3d 20 77 72 6b 31 2c 20 67 6f 74 6f 20 70 72 65 66 6e 2e 0a 31 31 32 36 20 20 20 20 20 20 ┆):= wrk1, goto prefn. 1126 ┆
0x47e0…4800 20 20 20 20 20 0a 31 31 32 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 ┆ 1127 ; i┆
0x4800…4820 (8,) 6e 73 74 72 75 63 74 69 6f 6e 20 6c 6f 67 69 63 61 6c 6c 79 20 73 68 69 66 74 20 64 6f 75 62 6c ┆nstruction logically shift doubl┆
0x4820…4840 65 3a 20 27 6c 64 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 33 39 2e 0a 31 31 32 38 20 20 ┆e: 'ld', numeric code 39. 1128 ┆
0x4840…4860 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 2d 2d ┆ ; -------------┆
0x4860…4880 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 ┆--------------------------------┆
0x4880…48a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 31 31 32 39 20 30 35 32 39 20 31 30 32 31 20 6c 64 2f ┆------------- 1129 0529 1021 ld/┆
0x48a0…48c0 33 39 3a 20 20 73 75 62 28 61 64 64 72 73 2c 30 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 ┆39: sub(addrs,0) noload ┆
0x48c0…48e0 20 20 20 3b 20 69 66 20 61 64 64 72 73 20 3e 20 30 20 74 68 65 6e 0a 31 31 33 30 20 30 35 33 30 ┆ ; if addrs > 0 then 1130 0530┆
0x48e0…4900 20 31 30 32 32 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 67 72 65 61 74 2c 6c 64 31 29 20 68 6f ┆ 1022 cjmp(great,ld1) ho┆
0x4900…4920 6c 64 6d 79 20 73 6d 6f 76 65 28 71 2c 77 70 72 65 29 3b 20 67 6f 74 6f 20 6c 73 31 2c 20 68 6f ┆ldmy smove(q,wpre); goto ls1, ho┆
0x4920…4940 6c 64 20 63 6f 6e 64 69 74 69 6f 6e 20 62 69 74 73 2c 0a 31 31 33 31 20 20 20 20 20 20 20 20 20 ┆ld condition bits, 1131 ┆
0x4940…4960 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 ┆ ┆
0x4960…4980 20 20 20 20 20 20 20 20 3b 20 71 20 3a 3d 20 77 72 65 67 28 69 6e 64 65 78 20 2d 20 31 29 2e 0a ┆ ; q := wreg(index - 1). ┆
0x4980…49a0 31 31 33 32 20 30 35 33 31 20 31 30 32 33 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6c 65 73 73 ┆1132 0531 1023 cjmp(less┆
0x49a0…49c0 2c 6c 64 32 29 20 73 6d 6f 76 65 28 77 72 6b 31 2c 71 29 20 20 3b 20 69 66 20 61 64 64 72 73 20 ┆,ld2) smove(wrk1,q) ; if addrs ┆
0x49c0…49e0 3c 20 30 20 74 68 65 6e 20 67 6f 74 6f 20 6c 64 32 2c 0a 31 31 33 33 20 20 20 20 20 20 20 20 20 ┆< 0 then goto ld2, 1133 ┆
0x49e0…4a00 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 ┆ ┆
0x4a00…4a20 20 20 20 20 20 20 20 20 3b 20 77 72 6b 31 20 3a 3d 20 71 2e 0a 31 31 33 34 20 30 35 33 32 20 31 ┆ ; wrk1 := q. 1134 0532 1┆
0x4a20…4a40 30 32 34 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 66 69 63 69 6e 29 20 69 6e 63 74 77 6f 28 69 ┆024 jmp(pficin) inctwo(i┆
0x4a40…4a60 63 29 20 20 20 20 20 20 20 20 3b 20 69 63 20 3a 3d 20 69 63 20 2b 20 32 2c 20 67 6f 74 6f 20 70 ┆c) ; ic := ic + 2, goto p┆
0x4a60…4a80 66 69 63 69 6e 2e 0a 31 31 33 35 20 30 35 33 33 20 31 30 32 35 20 6c 64 31 3a 20 20 20 20 73 75 ┆ficin. 1135 0533 1025 ld1: su┆
0x4a80…4aa0 62 28 61 64 64 72 73 2c 34 37 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 ┆b(addrs,47) noload ; if┆
0x4aa0…4ac0 20 61 64 64 72 73 20 3e 20 34 37 20 74 68 65 6e 0a 31 31 33 36 20 30 35 33 34 20 31 30 32 36 20 ┆ addrs > 47 then 1136 0534 1026 ┆
0x4ac0…4ae0 20 20 20 20 20 20 20 20 63 6a 6d 70 28 67 72 65 61 74 2c 6c 64 33 29 20 6d 7a 65 72 6f 28 77 70 ┆ cjmp(great,ld3) mzero(wp┆
0x4ae0…4b00 72 65 29 20 20 20 3b 20 67 6f 74 6f 20 6c 64 33 2c 20 77 72 65 67 28 69 6e 64 65 78 2d 31 29 20 ┆re) ; goto ld3, wreg(index-1) ┆
0x4b00…4b20 3a 3d 20 30 2e 0a 31 31 33 37 20 20 20 20 20 20 20 20 20 20 20 0a 31 31 33 38 20 30 35 33 35 20 ┆:= 0. 1137 1138 0535 ┆
0x4b20…4b40 31 30 32 37 20 20 20 20 20 20 20 20 20 73 6d 6f 76 65 28 77 72 6b 31 2c 71 29 20 20 20 20 20 20 ┆1027 smove(wrk1,q) ┆
0x4b40…4b60 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 72 6b 31 20 3a 3d 20 71 2e 0a 31 31 33 39 20 20 20 20 ┆ ; wrk1 := q. 1139 ┆
0x4b60…4b80 20 20 20 20 20 20 20 0a 31 31 34 30 20 30 35 33 36 20 31 30 33 30 20 20 20 20 20 20 20 20 20 73 ┆ 1140 0536 1030 s┆
0x4b80…4ba0 6d 6f 76 65 28 71 2c 77 72 65 67 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 71 ┆move(q,wreg) ; q┆
0x4ba0…4bc0 20 3a 3d 20 77 72 65 67 28 69 6e 64 65 78 29 2e 0a 31 31 34 31 20 30 35 33 37 20 31 30 33 31 20 ┆ := wreg(index). 1141 0537 1031 ┆
0x4bc0…4be0 20 20 20 20 20 20 20 20 73 75 62 28 61 64 64 72 73 2c 31 29 20 20 20 20 20 20 20 20 20 20 20 20 ┆ sub(addrs,1) ┆
0x4be0…4c00 20 20 20 20 20 20 3b 20 61 64 64 72 73 20 3a 3d 20 61 64 64 72 73 20 2d 20 31 2e 0a 31 31 34 32 ┆ ; addrs := addrs - 1. 1142┆
0x4c00…4c20 20 30 35 33 38 20 31 30 33 32 20 20 20 20 20 20 20 20 20 70 75 73 68 72 65 28 61 64 64 72 73 29 ┆ 0538 1032 pushre(addrs)┆
0x4c20…4c40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6d 69 63 72 6f 20 73 65 6b 76 65 6e 73 ┆ ; micro sekvens┆
0x4c40…4c60 65 72 20 63 6f 75 6e 74 65 72 20 3a 3d 20 61 64 64 72 73 2e 0a 31 31 34 33 20 20 20 20 20 20 20 ┆er counter := addrs. 1143 ┆
0x4c60…4c80 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 ┆ ┆
0x4c80…4ca0 20 20 20 20 20 20 20 20 20 20 3b 20 70 75 73 63 68 20 6e 65 78 74 20 6d 69 63 72 6f 2e 20 69 6e ┆ ; pusch next micro. in┆
0x4ca0…4cc0 73 74 72 20 61 64 64 72 73 2e 0a 31 31 34 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆str addrs. 1144 ┆
0x4cc0…4ce0 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 ┆ ┆
0x4ce0…4d00 3b 20 74 6f 20 73 74 61 63 6b 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 31 31 34 35 20 30 ┆; to stack, 1145 0┆
0x4d00…4d20 35 33 39 20 31 30 33 33 20 20 20 20 20 20 20 20 20 72 65 70 20 6d 6f 76 65 28 77 72 6b 31 2c 77 ┆539 1033 rep move(wrk1,w┆
0x4d20…4d40 72 6b 31 29 20 6c 66 74 61 71 6c 20 64 73 68 69 6e 7a 3b 20 73 68 69 66 74 20 77 72 6b 31 20 61 ┆rk1) lftaql dshinz; shift wrk1 a┆
0x4d40…4d60 6e 64 20 71 20 6c 65 66 74 20 77 69 74 68 20 63 6f 6e 65 63 74 69 6f 6e 0a 31 31 34 36 20 20 20 ┆nd q left with conection 1146 ┆
0x4d60…4d80 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 ┆ ┆
0x4d80…4da0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 75 6e 74 69 6c 20 63 6f 75 6e 74 65 72 20 3d 20 ┆ ; until counter = ┆
0x4da0…4dc0 30 2e 0a 31 31 34 37 20 30 35 34 30 20 31 30 33 34 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 77 ┆0. 1147 0540 1034 move(w┆
0x4dc0…4de0 70 72 65 2c 77 72 6b 31 29 20 6e 6f 74 68 6d 20 63 73 6d 79 20 73 68 69 6e 7a 3b 20 77 72 65 67 ┆pre,wrk1) nothm csmy shinz; wreg┆
0x4de0…4e00 28 69 6e 64 65 78 2d 31 29 20 3a 3d 20 77 72 6b 31 2e 0a 31 31 34 38 20 30 35 34 31 20 31 30 33 ┆(index-1) := wrk1. 1148 0541 103┆
0x4e00…4e20 35 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 66 69 63 69 6e 29 20 73 6d 6f 76 65 28 77 72 65 67 ┆5 jmp(pficin) smove(wreg┆
0x4e20…4e40 2c 71 29 20 20 20 20 20 3b 20 77 28 69 6e 64 65 78 29 20 3a 3d 20 71 2c 20 67 6f 74 6f 20 70 66 ┆,q) ; w(index) := q, goto pf┆
0x4e40…4e60 69 63 69 6e 2e 0a 31 31 34 39 20 30 35 34 32 20 31 30 33 36 20 6c 64 32 3a 20 20 20 20 69 6e 69 ┆icin. 1149 0542 1036 ld2: ini┆
0x4e60…4e80 6d 6d 31 28 61 64 64 72 73 2c 61 64 64 72 73 29 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 64 64 ┆mm1(addrs,addrs) ; add┆
0x4e80…4ea0 72 73 20 3a 3d 20 2d 20 61 64 64 72 73 2e 0a 31 31 35 30 20 30 35 34 33 20 31 30 33 37 20 20 20 ┆rs := - addrs. 1150 0543 1037 ┆
0x4ea0…4ec0 20 20 20 20 20 20 73 75 62 28 61 64 64 72 73 2c 34 37 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 ┆ sub(addrs,47) noload ┆
0x4ec0…4ee0 20 20 20 20 3b 20 69 66 20 61 64 64 72 73 20 3e 20 34 37 20 74 68 65 6e 0a 31 31 35 31 20 30 35 ┆ ; if addrs > 47 then 1151 05┆
0x4ee0…4f00 34 34 20 31 30 34 30 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 67 72 65 61 74 2c 6c 64 33 29 20 ┆44 1040 cjmp(great,ld3) ┆
0x4f00…4f20 6d 7a 65 72 6f 28 77 70 72 65 29 20 20 20 3b 20 67 6f 74 6f 20 6c 64 33 2c 20 77 72 65 67 28 69 ┆mzero(wpre) ; goto ld3, wreg(i┆
0x4f20…4f40 6e 64 65 78 2d 31 29 20 3a 3d 30 2e 0a 31 31 35 32 20 30 35 34 35 20 31 30 34 31 20 20 20 20 20 ┆ndex-1) :=0. 1152 0545 1041 ┆
0x4f40…4f60 20 20 20 20 73 6d 6f 76 65 28 71 2c 77 72 65 67 29 0a 31 31 35 33 20 30 35 34 36 20 31 30 34 32 ┆ smove(q,wreg) 1153 0546 1042┆
0x4f60…4f80 20 20 20 20 20 20 20 20 20 73 75 62 28 61 64 64 72 73 2c 31 29 20 20 20 20 20 20 20 20 20 20 20 ┆ sub(addrs,1) ┆
0x4f80…4fa0 20 20 20 20 20 20 20 3b 20 61 64 64 72 73 20 3a 3d 20 61 64 64 72 73 20 2d 31 20 2e 0a 31 31 35 ┆ ; addrs := addrs -1 . 115┆
0x4fa0…4fc0 34 20 30 35 34 37 20 31 30 34 33 20 20 20 20 20 20 20 20 20 70 75 73 68 72 65 28 61 64 64 72 73 ┆4 0547 1043 pushre(addrs┆
0x4fc0…4fe0 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6d 69 63 72 6f 20 73 65 6b 76 65 6e ┆) ; micro sekven┆
0x4fe0…5000 73 65 72 20 63 6f 75 6e 74 65 72 20 3a 3d 20 30 2e 0a 31 31 35 35 20 20 20 20 20 20 20 20 20 20 ┆ser counter := 0. 1155 ┆
0x5000…5020 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 ┆ ┆
0x5020…5040 20 20 20 20 20 20 20 3b 20 70 75 73 68 20 61 64 64 72 65 73 73 20 6f 66 20 74 68 65 20 6e 65 78 ┆ ; push address of the nex┆
0x5040…5060 74 0a 31 31 35 36 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 ┆t 1156 ┆
0x5060…5080 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 69 63 72 6f 20 69 ┆ ; micro i┆
0x5080…50a0 6e 73 74 72 20 69 6e 74 6f 20 74 68 65 20 73 74 61 63 6b 2c 0a 31 31 35 37 20 30 35 34 38 20 31 ┆nstr into the stack, 1157 0548 1┆
0x50a0…50c0 30 34 34 20 20 20 20 20 20 20 20 20 72 65 70 20 6d 6f 76 65 28 77 72 6b 31 2c 77 72 6b 31 29 20 ┆044 rep move(wrk1,wrk1) ┆
0x50c0…50e0 72 67 74 61 71 6c 20 64 73 68 69 6e 7a 3b 20 72 65 70 65 61 74 0a 31 31 35 38 20 20 20 20 20 20 ┆rgtaql dshinz; repeat 1158 ┆
0x50e0…5100 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 ┆ ┆
0x5100…5120 (9,) 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 63 6f 75 6e 74 65 72 20 3a 3d 20 63 6f 75 6e 74 65 ┆ ; counter := counte┆
0x5120…5140 72 20 2d 31 2c 0a 31 31 35 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆r -1, 1159 ┆
0x5140…5160 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 3b 20 20 20 64 ┆ ; d┆
0x5160…5180 6f 75 62 6c 65 20 73 68 69 66 74 20 77 72 6b 31 20 61 6e 64 20 71 20 0a 31 31 36 30 20 20 20 20 ┆ouble shift wrk1 and q 1160 ┆
0x5180…51a0 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 ┆ ┆
0x51a0…51c0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 72 69 67 74 68 20 77 69 74 68 20 7a 65 72 6f ┆ ; rigth with zero┆
0x51c0…51e0 20 69 6e 70 75 74 2c 0a 31 31 36 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ input, 1161 ┆
0x51e0…5200 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 3b 20 75 ┆ ; u┆
0x5200…5220 6e 74 69 6c 20 63 6f 75 6e 74 65 72 20 3d 20 30 2e 0a 31 31 36 32 20 30 35 34 39 20 31 30 34 35 ┆ntil counter = 0. 1162 0549 1045┆
0x5220…5240 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 77 70 72 65 2c 77 72 6b 31 29 20 6e 6f 74 68 6d 20 63 ┆ move(wpre,wrk1) nothm c┆
0x5240…5260 73 6d 79 20 73 68 69 6e 7a 3b 20 77 72 65 67 28 69 6e 64 65 78 20 2d 20 31 29 20 3a 3d 20 77 72 ┆smy shinz; wreg(index - 1) := wr┆
0x5260…5280 6b 31 2e 0a 31 31 36 33 20 30 35 35 30 20 31 30 34 36 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 ┆k1. 1163 0550 1046 jmp(p┆
0x5280…52a0 66 69 63 69 6e 29 20 73 6d 6f 76 65 28 77 72 65 67 2c 71 29 20 20 20 20 20 3b 20 77 72 65 67 28 ┆ficin) smove(wreg,q) ; wreg(┆
0x52a0…52c0 69 6e 64 65 78 29 20 3a 3d 20 71 2c 20 67 6f 74 6f 20 70 66 69 63 69 6e 2e 0a 31 31 36 34 20 20 ┆index) := q, goto pficin. 1164 ┆
0x52c0…52e0 20 20 20 20 20 20 20 20 20 0a 31 31 36 35 20 30 35 35 31 20 31 30 34 37 20 6c 64 33 3a 20 20 20 ┆ 1165 0551 1047 ld3: ┆
0x52e0…5300 20 6a 6d 70 28 70 66 6e 65 69 63 29 20 6d 7a 65 72 6f 28 77 72 65 67 29 20 20 20 20 20 20 20 3b ┆ jmp(pfneic) mzero(wreg) ;┆
0x5300…5320 20 77 72 65 67 28 69 6e 64 65 78 29 20 3a 3d 20 30 2c 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a ┆ wreg(index) := 0, goto pfneic. ┆
0x5320…5340 31 32 30 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 2a 70 61 67 65 3a 20 20 ┆1204 ;*page: ┆
0x5340…5360 58 58 58 0a 31 32 30 35 20 20 20 20 20 20 20 20 20 20 20 0a 31 32 30 36 20 20 20 20 20 20 20 20 ┆XXX 1205 1206 ┆
0x5360…5380 20 20 20 0a 31 32 30 37 20 20 20 20 20 20 20 20 20 20 20 0a 31 32 30 38 20 20 20 20 20 20 20 20 ┆ 1207 1208 ┆
0x5380…53a0 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 65 71 75 65 6e 63 69 6e 67 20 2e 0a 31 32 30 39 20 20 ┆ ; sequencing . 1209 ┆
0x53a0…53c0 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 0a 31 ┆ ; ----------- 1┆
0x53c0…53e0 32 31 30 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 ┆210 ; instruct┆
0x53e0…5400 69 6f 6e 20 6a 75 6d 70 20 61 6e 64 20 73 65 6c 65 63 74 20 65 6e 61 62 6c 65 20 6c 65 76 65 6c ┆ion jump and select enable level┆
0x5400…5420 3a 20 27 6a 65 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 31 35 2e 0a 31 32 31 31 20 20 20 ┆: 'je', numeric code 15. 1211 ┆
0x5420…5440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ;---------------┆
0x5440…5460 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 ┆--------------------------------┆
0x5460…5480 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 31 32 31 32 20 30 35 35 32 20 31 30 35 ┆------------------ 1212 0552 105┆
0x5480…54a0 30 20 6a 65 2f 31 35 3a 20 20 61 6e 64 69 6e 76 28 73 74 61 74 75 73 2c 38 29 20 20 20 20 20 20 ┆0 je/15: andinv(status,8) ┆
0x54a0…54c0 20 20 20 20 20 20 20 20 3b 20 73 74 61 74 75 73 28 32 30 29 20 3a 3d 20 30 2c 20 28 20 64 69 61 ┆ ; status(20) := 0, ( dia┆
0x54c0…54e0 64 64 72 73 6c 65 20 3a 3d 20 66 61 6c 73 65 29 2e 0a 31 32 31 33 20 30 35 35 33 20 31 30 35 31 ┆ddrsle := false). 1213 0553 1051┆
0x54e0…5500 20 20 20 20 20 20 20 20 20 69 6e 69 6d 6d 28 68 63 32 39 30 31 2c 27 65 30 31 73 65 6c 29 20 20 ┆ inimm(hc2901,'e01sel) ┆
0x5500…5520 20 20 20 20 20 20 20 3b 20 63 6c 6f 73 6b 20 68 63 32 39 30 31 20 69 6e 20 66 75 6e 63 74 69 6f ┆ ; closk hc2901 in functio┆
0x5520…5540 6e 20 73 65 74 20 65 6e 61 62 6c 65 20 6c 65 76 65 6c 2e 0a 31 32 31 34 20 30 35 35 34 20 31 30 ┆n set enable level. 1214 0554 10┆
0x5540…5560 35 32 20 20 20 20 20 20 20 20 20 6a 6d 70 28 6a 64 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆52 jmp(jd2) ┆
0x5560…5580 20 20 20 20 20 20 20 20 20 3b 20 63 6f 6e 74 69 6e 75 65 20 69 6e 20 6a 75 6d 70 20 64 69 73 61 ┆ ; continue in jump disa┆
0x5580…55a0 62 6c 65 20 32 2e 0a 31 32 31 35 20 20 20 20 20 20 20 20 20 20 20 0a 31 32 31 36 20 20 20 20 20 ┆ble 2. 1215 1216 ┆
0x55a0…55c0 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 6f 6e 20 6a 75 6d 70 ┆ ; instruction jump┆
0x55c0…55e0 20 61 6e 64 20 73 65 6c 65 63 74 20 64 69 61 62 6c 65 20 6c 65 76 65 6c 3a 20 27 6a 64 27 2c 20 ┆ and select diable level: 'jd', ┆
0x55e0…5600 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 31 34 2e 0a 31 32 31 37 20 20 20 20 20 20 20 20 20 20 20 ┆numeric code 14. 1217 ┆
0x5600…5620 20 20 20 20 20 20 20 20 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ;-----------------------┆
0x5620…5640 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 ┆--------------------------------┆
0x5640…5660 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 31 32 31 38 20 30 35 35 35 20 31 30 35 33 20 6a 64 2f 31 34 ┆----------- 1218 0555 1053 jd/14┆
0x5660…5680 3a 20 20 61 64 64 28 61 64 64 72 73 2c 27 6d 6f 6e 74 6f 70 29 20 20 6e 6f 6c 6f 61 64 20 20 20 ┆: add(addrs,'montop) noload ┆
0x5680…56a0 20 3b 20 69 66 20 61 64 64 72 73 20 3e 3d 20 2d 6d 6f 6e 74 6f 70 20 74 68 65 6e 0a 31 32 31 39 ┆ ; if addrs >= -montop then 1219┆
0x56a0…56c0 20 30 35 35 36 20 31 30 35 34 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6e 6f 74 6e 65 67 2c 6a ┆ 0556 1054 cjmp(notneg,j┆
0x56c0…56e0 64 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 68 65 6e 20 67 6f 74 6f 20 6a 64 ┆d1) ; then goto jd┆
0x56e0…5700 31 2e 20 0a 31 32 32 30 20 30 35 35 37 20 31 30 35 35 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 ┆1. 1220 0557 1055 move(┆
0x5700…5720 77 72 6b 30 2c 2d 32 30 34 38 29 20 73 69 67 6e 65 78 20 20 20 20 20 20 20 3b 20 77 72 6b 30 20 ┆wrk0,-2048) signex ; wrk0 ┆
0x5720…5740 3a 3d 20 2d 32 30 34 38 2e 0a 31 32 32 31 20 30 35 35 38 20 31 30 35 36 20 20 20 20 20 20 20 20 ┆:= -2048. 1221 0558 1056 ┆
0x5740…5760 20 73 75 62 28 61 64 64 72 73 2c 77 72 6b 30 29 20 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 3b ┆ sub(addrs,wrk0) noload ;┆
0x5760…5780 20 69 66 20 61 64 64 72 73 20 3c 20 2d 32 30 34 38 20 74 68 65 6e 0a 31 32 32 32 20 30 35 35 39 ┆ if addrs < -2048 then 1222 0559┆
0x5780…57a0 20 31 30 35 37 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6c 65 73 73 2c 6a 64 31 29 20 20 20 20 ┆ 1057 cjmp(less,jd1) ┆
0x57a0…57c0 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 68 65 6e 20 67 6f 74 6f 20 6a 64 31 2e 0a 31 32 32 ┆ ; then goto jd1. 122┆
0x57c0…57e0 33 20 30 35 36 30 20 31 30 36 30 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 63 61 75 73 65 2c 61 ┆3 0560 1060 move(cause,a┆
0x57e0…5800 64 64 72 73 29 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 61 75 73 65 20 3a 3d 20 61 64 64 ┆ddrs) ; cause := add┆
0x5800…5820 72 73 2e 0a 31 32 32 34 20 30 35 36 31 20 31 30 36 31 20 20 20 20 20 20 20 20 20 61 64 64 28 63 ┆rs. 1224 0561 1061 add(c┆
0x5820…5840 61 75 73 65 2c 32 30 34 38 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 61 75 73 65 ┆ause,2048) ; cause┆
0x5840…5860 20 3a 3d 20 63 61 75 73 65 20 2b 20 32 30 34 38 2e 0a 31 32 32 35 20 30 35 36 32 20 31 30 36 32 ┆ := cause + 2048. 1225 0562 1062┆
0x5860…5880 20 20 20 20 20 20 20 20 20 73 75 62 28 69 6e 66 2c 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ sub(inf,1) ┆
0x5880…58a0 20 20 20 20 20 20 20 3b 20 69 6e 66 20 3a 3d 20 69 6e 66 20 2d 31 2e 0a 31 32 32 36 20 30 35 36 ┆ ; inf := inf -1. 1226 056┆
0x58a0…58c0 33 20 31 30 36 33 20 20 20 20 20 20 20 20 20 6a 6d 70 28 69 6e 74 73 65 72 29 20 20 20 20 20 20 ┆3 1063 jmp(intser) ┆
0x58c0…58e0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 67 6f 74 6f 20 73 65 72 76 69 63 65 20 69 6e 74 65 ┆ ; goto service inte┆
0x58e0…5900 72 75 70 74 2e 0a 31 32 32 37 20 30 35 36 34 20 31 30 36 34 20 6a 64 31 3a 20 20 20 20 69 6e 69 ┆rupt. 1227 0564 1064 jd1: ini┆
0x5900…5920 6d 6d 28 68 63 32 39 30 31 2c 27 65 30 31 73 64 6c 29 20 20 20 20 20 20 20 20 20 3b 20 63 6c 6f ┆mm(hc2901,'e01sdl) ; clo┆
0x5920…5940 73 6b 20 68 63 32 39 30 31 20 69 6e 20 73 65 74 20 64 69 61 62 6c 65 20 6c 65 76 65 6c 2e 0a 31 ┆sk hc2901 in set diable level. 1┆
0x5940…5960 32 32 38 20 30 35 36 35 20 31 30 36 35 20 6a 64 32 3a 20 20 20 20 63 6a 6d 70 28 72 65 32 39 30 ┆228 0565 1065 jd2: cjmp(re290┆
0x5960…5980 31 2c 6a 64 32 29 20 63 6c 72 65 30 31 20 20 20 20 20 20 20 3b 20 77 61 69 74 20 75 6e 74 69 6c ┆1,jd2) clre01 ; wait until┆
0x5980…59a0 20 68 63 32 39 30 31 20 72 65 61 64 79 2e 0a 31 32 32 39 20 20 20 20 20 20 20 20 20 20 20 0a 31 ┆ hc2901 ready. 1229 1┆
0x59a0…59c0 32 33 30 20 20 20 20 20 20 20 20 20 20 20 0a 31 32 33 31 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆230 1231 ┆
0x59c0…59e0 20 20 20 20 20 20 3b 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 6a 75 6d 70 20 77 69 74 68 20 72 65 ┆ ; instruction jump with re┆
0x59e0…5a00 67 69 73 74 65 72 20 6c 69 6e 6b 3a 20 27 6a 6c 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 ┆gister link: 'jl', numeric code ┆
0x5a00…5a20 (10,) 31 33 2e 0a 31 32 33 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 2d 2d 2d ┆13. 1232 ; ---┆
0x5a20…5a40 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 ┆--------------------------------┆
0x5a40…5a60 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 31 32 33 33 20 30 35 ┆------------------------ 1233 05┆
0x5a60…5a80 36 36 20 31 30 36 36 20 6a 6c 2f 31 33 3a 20 20 6d 6f 76 65 28 77 72 6b 31 2c 77 30 29 20 20 20 ┆66 1066 jl/13: move(wrk1,w0) ┆
0x5a80…5aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 72 6b 31 20 3a 3d 20 77 5f 72 65 67 28 30 29 ┆ ; wrk1 := w_reg(0)┆
0x5aa0…5ac0 2e 0a 31 32 33 34 20 30 35 36 37 20 31 30 36 37 20 20 20 20 20 20 20 20 20 6d 6f 76 65 28 77 72 ┆. 1234 0567 1067 move(wr┆
0x5ac0…5ae0 65 67 2c 69 63 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 5f 72 65 67 28 69 ┆eg,ic) ; w_reg(i┆
0x5ae0…5b00 6e 64 65 78 29 20 3a 3d 20 69 63 2e 0a 31 32 33 35 20 30 35 36 38 20 31 30 37 30 20 20 20 20 20 ┆ndex) := ic. 1235 0568 1070 ┆
0x5b00…5b20 20 20 20 20 69 6e 63 74 77 6f 28 77 72 65 67 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ inctwo(wreg) ┆
0x5b20…5b40 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 29 ┆ ; w_reg(index) := w_reg(index)┆
0x5b40…5b60 20 2b 20 31 2e 0a 31 32 33 36 20 30 35 36 39 20 31 30 37 31 20 20 20 20 20 20 20 20 20 6d 6f 76 ┆ + 1. 1236 0569 1071 mov┆
0x5b60…5b80 65 28 69 63 2c 61 64 64 72 73 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 63 20 ┆e(ic,addrs) ; ic ┆
0x5b80…5ba0 3a 3d 20 20 61 64 64 72 65 73 73 2e 0a 31 32 33 37 20 30 35 37 30 20 31 30 37 32 20 20 20 20 20 ┆:= address. 1237 0570 1072 ┆
0x5ba0…5bc0 20 20 20 20 61 6e 64 69 6e 76 28 69 63 2c 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ andinv(ic,1) ┆
0x5bc0…5be0 20 20 3b 20 69 63 20 3a 3d 20 69 63 28 30 2e 32 32 29 0a 31 32 33 38 20 30 35 37 31 20 31 30 37 ┆ ; ic := ic(0.22) 1238 0571 107┆
0x5be0…5c00 33 20 20 20 20 20 20 20 20 20 6a 6d 70 28 6e 6f 70 66 69 63 29 20 20 6d 6f 76 65 28 77 30 2c 77 ┆3 jmp(nopfic) move(w0,w┆
0x5c00…5c20 72 6b 31 29 20 20 20 20 3b 20 67 6f 74 6f 20 6e 6f 70 66 6e 65 2c 20 77 30 20 3a 3d 20 6f 72 69 ┆rk1) ; goto nopfne, w0 := ori┆
0x5c20…5c40 67 69 6e 61 61 6c 79 20 77 30 2e 0a 31 32 33 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ginaaly w0. 1239 ┆
0x5c40…5c60 20 20 20 3b 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 ┆ ;----------------------------┆
0x5c60…5c80 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 31 32 34 30 20 30 35 ┆------------------------ 1240 05┆
0x5c80…5ca0 37 32 20 31 30 37 34 20 73 68 2f 34 30 3a 20 20 73 75 62 28 77 72 65 67 2c 61 64 64 72 73 29 20 ┆72 1074 sh/40: sub(wreg,addrs) ┆
0x5ca0…5cc0 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 3b 20 69 66 20 77 5f 72 65 67 28 69 6e 64 65 78 29 20 ┆noload ; if w_reg(index) ┆
0x5cc0…5ce0 3c 3d 20 61 64 64 72 73 20 74 68 65 6e 0a 31 32 34 31 20 30 35 37 33 20 31 30 37 35 20 20 20 20 ┆<= addrs then 1241 0573 1075 ┆
0x5ce0…5d00 20 20 20 20 20 63 6a 6d 70 28 6c 73 65 71 2c 70 66 6e 65 69 63 29 20 20 20 20 20 20 20 20 20 20 ┆ cjmp(lseq,pfneic) ┆
0x5d00…5d20 20 20 20 3b 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a 31 32 34 32 20 30 35 37 34 20 31 30 37 36 ┆ ; goto pfneic. 1242 0574 1076┆
0x5d20…5d40 20 20 20 20 20 20 20 20 20 6a 6d 70 28 6e 6f 70 66 6e 65 29 20 69 6e 63 74 77 6f 28 69 63 29 20 ┆ jmp(nopfne) inctwo(ic) ┆
0x5d40…5d60 20 20 20 20 20 20 20 3b 20 69 63 20 3a 3d 20 69 63 20 2b 20 32 2c 20 67 6f 74 6f 20 6e 6f 70 66 ┆ ; ic := ic + 2, goto nopf┆
0x5d60…5d80 6e 65 2e 0a 31 32 34 33 20 20 20 20 20 20 20 20 20 20 20 0a 31 32 34 34 20 20 20 20 20 20 20 20 ┆ne. 1243 1244 ┆
0x5d80…5da0 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 73 6b 69 70 20 69 66 ┆ ; instruction skip if┆
0x5da0…5dc0 20 72 65 67 69 73 74 65 72 20 6c 6f 77 3a 20 27 73 6c 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 ┆ register low: 'sl', numeric cod┆
0x5dc0…5de0 65 20 34 31 2e 0a 31 32 34 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 2d 2d ┆e 41. 1245 ;--┆
0x5de0…5e00 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 ┆--------------------------------┆
0x5e00…5e20 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 31 32 34 36 20 30 35 ┆------------------------ 1246 05┆
0x5e20…5e40 37 35 20 31 30 37 37 20 73 6c 2f 34 31 3a 20 20 73 75 62 28 77 72 65 67 2c 61 64 64 72 73 29 20 ┆75 1077 sl/41: sub(wreg,addrs) ┆
0x5e40…5e60 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 3b 20 69 66 20 77 5f 72 65 67 28 69 6e 64 65 78 29 20 ┆noload ; if w_reg(index) ┆
0x5e60…5e80 3e 3d 20 61 64 64 72 73 20 74 68 65 6e 0a 31 32 34 37 20 30 35 37 36 20 31 31 30 30 20 20 20 20 ┆>= addrs then 1247 0576 1100 ┆
0x5e80…5ea0 20 20 20 20 20 63 6a 6d 70 28 67 72 65 71 2c 70 66 6e 65 69 63 29 20 20 20 20 20 20 20 20 20 20 ┆ cjmp(greq,pfneic) ┆
0x5ea0…5ec0 20 20 20 3b 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a 31 32 34 38 20 30 35 37 37 20 31 31 30 31 ┆ ; goto pfneic. 1248 0577 1101┆
0x5ec0…5ee0 20 20 20 20 20 20 20 20 20 6a 6d 70 28 6e 6f 70 66 6e 65 29 20 69 6e 63 74 77 6f 28 69 63 29 20 ┆ jmp(nopfne) inctwo(ic) ┆
0x5ee0…5f00 20 20 20 20 20 20 20 3b 20 69 63 20 3a 3d 20 69 63 20 2b 20 32 2c 20 67 6f 74 6f 20 6e 6f 70 66 ┆ ; ic := ic + 2, goto nopf┆
0x5f00…5f20 6e 65 2e 0a 31 32 34 39 20 20 20 20 20 20 20 20 20 20 20 0a 31 32 35 30 20 20 20 20 20 20 20 20 ┆ne. 1249 1250 ┆
0x5f20…5f40 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 73 6b 69 70 20 69 66 ┆ ; instruction skip if┆
0x5f40…5f60 20 72 65 67 69 73 74 65 72 20 65 71 75 61 6c 3a 20 27 73 65 27 2c 20 6e 75 6d 65 72 69 63 20 63 ┆ register equal: 'se', numeric c┆
0x5f60…5f80 6f 64 65 20 34 32 2e 0a 31 32 35 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ode 42. 1251 ;┆
0x5f80…5fa0 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 ┆--------------------------------┆
0x5fa0…5fc0 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 31 32 35 32 20 ┆-------------------------- 1252 ┆
0x5fc0…5fe0 30 35 37 38 20 31 31 30 32 20 73 65 2f 34 32 3a 20 20 73 75 62 28 77 72 65 67 2c 61 64 64 72 73 ┆0578 1102 se/42: sub(wreg,addrs┆
0x5fe0…6000 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 3b 20 69 66 20 77 5f 72 65 67 28 69 6e 64 65 78 ┆) noload ; if w_reg(index┆
0x6000…6020 29 20 3c 3e 20 61 64 64 72 73 20 74 68 65 6e 0a 31 32 35 33 20 30 35 37 39 20 31 31 30 33 20 20 ┆) <> addrs then 1253 0579 1103 ┆
0x6020…6040 20 20 20 20 20 20 20 63 6a 6d 70 28 6e 65 71 75 61 6c 2c 70 66 6e 65 69 63 29 20 20 20 20 20 20 ┆ cjmp(nequal,pfneic) ┆
0x6040…6060 20 20 20 20 20 3b 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a 31 32 35 34 20 30 35 38 30 20 31 31 ┆ ; goto pfneic. 1254 0580 11┆
0x6060…6080 30 34 20 20 20 20 20 20 20 20 20 6a 6d 70 28 6e 6f 70 66 6e 65 29 20 69 6e 63 74 77 6f 28 69 63 ┆04 jmp(nopfne) inctwo(ic┆
0x6080…60a0 29 20 20 20 20 20 20 20 20 3b 20 69 63 20 3a 3d 20 69 63 20 2b 20 32 2c 20 67 6f 74 6f 20 6e 6f ┆) ; ic := ic + 2, goto no┆
0x60a0…60c0 70 66 6e 65 2e 0a 31 32 35 35 20 20 20 20 20 20 20 20 20 20 20 0a 31 32 35 36 20 20 20 20 20 20 ┆pfne. 1255 1256 ┆
0x60c0…60e0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 73 6b 69 70 20 ┆ ; instruction skip ┆
0x60e0…6100 69 66 20 72 65 67 69 73 74 65 72 20 6e 6f 74 20 65 71 75 61 6c 3a 20 27 73 6e 27 2c 20 6e 75 6d ┆if register not equal: 'sn', num┆
0x6100…6120 65 72 69 63 20 63 6f 64 65 20 34 33 2e 0a 31 32 35 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆eric code 43. 1257 ┆
0x6120…6140 20 20 20 20 20 3b 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 ┆ ;--------------------------┆
0x6140…6160 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 ┆--------------------------------┆
0x6160…6180 2d 2d 2d 2d 2d 2d 0a 31 32 35 38 20 30 35 38 31 20 31 31 30 35 20 73 6e 2f 34 33 3a 20 20 73 75 ┆------ 1258 0581 1105 sn/43: su┆
0x6180…61a0 62 28 77 72 65 67 2c 61 64 64 72 73 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 3b 20 69 66 ┆b(wreg,addrs) noload ; if┆
0x61a0…61c0 20 77 5f 72 65 67 28 69 6e 64 65 78 29 20 3d 20 61 64 64 72 73 20 74 68 65 6e 0a 31 32 35 39 20 ┆ w_reg(index) = addrs then 1259 ┆
0x61c0…61e0 30 35 38 32 20 31 31 30 36 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 65 71 75 61 6c 2c 70 66 6e ┆0582 1106 cjmp(equal,pfn┆
0x61e0…6200 65 69 63 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 67 6f 74 6f 20 6e 77 78 74 69 6e 2e 0a 31 ┆eic) ; goto nwxtin. 1┆
0x6200…6220 32 36 30 20 30 35 38 33 20 31 31 30 37 20 20 20 20 20 20 20 20 20 6a 6d 70 28 6e 6f 70 66 6e 65 ┆260 0583 1107 jmp(nopfne┆
0x6220…6240 29 20 69 6e 63 74 77 6f 28 69 63 29 20 20 20 20 20 20 20 20 3b 20 69 63 20 3a 3d 20 69 63 20 2b ┆) inctwo(ic) ; ic := ic +┆
0x6240…6260 20 32 2c 20 67 6f 74 6f 20 6e 6f 70 66 6e 65 2c 0a 31 32 36 31 20 20 20 20 20 20 20 20 20 20 20 ┆ 2, goto nopfne, 1261 ┆
0x6260…6280 0a 31 32 36 32 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 ┆ 1262 ; instru┆
0x6280…62a0 63 74 69 6f 6e 20 73 6b 69 70 20 69 66 20 72 65 67 69 73 74 65 72 20 62 69 74 73 20 6f 6e 65 3a ┆ction skip if register bits one:┆
0x62a0…62c0 20 27 73 6f 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 34 34 2e 0a 31 32 36 33 20 20 20 20 ┆ 'so', numeric code 44. 1263 ┆
0x62c0…62e0 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 2d 2d 2d 2d ┆ ; ---------------┆
0x62e0…6300 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 ┆--------------------------------┆
0x6300…6320 (11,) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 31 32 36 34 20 30 35 38 34 20 31 31 31 30 20 73 6f ┆-------------- 1264 0584 1110 so┆
0x6320…6340 2f 34 34 3a 20 20 61 6e 64 28 71 2c 77 72 65 67 2c 61 64 64 72 73 29 20 20 20 20 20 20 20 20 20 ┆/44: and(q,wreg,addrs) ┆
0x6340…6360 20 20 20 20 3b 20 71 20 3a 3d 20 77 5f 72 65 67 28 69 6e 64 65 78 29 20 61 6e 64 20 61 64 64 72 ┆ ; q := w_reg(index) and addr┆
0x6360…6380 73 2e 0a 31 32 36 35 20 30 35 38 35 20 31 31 31 31 20 20 20 20 20 20 20 20 20 73 75 62 28 61 64 ┆s. 1265 0585 1111 sub(ad┆
0x6380…63a0 64 72 73 2c 71 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 64 64 72 73 5a ┆drs,q) noload ; addrsZ┆
0x63a0…63c0 0a 31 32 36 36 20 30 35 38 36 20 31 31 31 32 20 20 20 20 20 20 20 20 20 73 75 62 28 61 64 64 72 ┆ 1266 0586 1112 sub(addr┆
0x63c0…63e0 73 2c 71 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 69 66 20 61 64 64 72 ┆s,q) noload ; if addr┆
0x63e0…6400 73 20 3c 3e 20 71 20 74 68 65 6e 0a 31 32 36 37 20 20 20 20 20 20 20 20 20 20 20 0a 31 32 36 38 ┆s <> q then 1267 1268┆
0x6400…6420 20 20 20 20 20 20 20 20 20 20 20 0a 31 32 36 39 20 30 35 38 37 20 31 31 31 33 20 20 20 20 20 20 ┆ 1269 0587 1113 ┆
0x6420…6440 20 20 20 63 6a 6d 70 28 6e 65 71 75 61 6c 2c 70 66 6e 65 69 63 29 20 20 20 20 20 20 20 20 20 20 ┆ cjmp(nequal,pfneic) ┆
0x6440…6460 20 3b 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a 31 32 37 30 20 30 35 38 38 20 31 31 31 34 20 20 ┆ ; goto pfneic. 1270 0588 1114 ┆
0x6460…6480 20 20 20 20 20 20 20 6a 6d 70 28 6e 6f 70 66 6e 65 29 20 69 6e 63 74 77 6f 28 69 63 29 20 20 20 ┆ jmp(nopfne) inctwo(ic) ┆
0x6480…64a0 20 20 20 20 20 3b 20 69 63 20 3a 3d 20 69 63 20 2b 20 32 2c 20 67 6f 74 6f 20 6e 6f 70 66 6e 65 ┆ ; ic := ic + 2, goto nopfne┆
0x64a0…64c0 2e 0a 31 32 37 31 20 20 20 20 20 20 20 20 20 20 20 0a 31 32 37 32 20 20 20 20 20 20 20 20 20 20 ┆. 1271 1272 ┆
0x64c0…64e0 20 20 20 20 20 20 20 20 20 3b 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 73 6b 69 70 20 69 66 20 72 ┆ ; instruction skip if r┆
0x64e0…6500 65 67 69 73 74 65 72 20 62 69 74 73 20 7a 65 72 6f 3a 20 27 73 7a 27 2c 20 6e 75 6d 65 72 69 63 ┆egister bits zero: 'sz', numeric┆
0x6500…6520 20 63 6f 64 65 20 34 35 2e 0a 31 32 37 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ code 45. 1273 ┆
0x6520…6540 20 3b 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 ┆ ;------------------------------┆
0x6540…6560 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 ┆--------------------------------┆
0x6560…6580 2d 2d 0a 31 32 37 34 20 30 35 38 39 20 31 31 31 35 20 73 7a 2f 34 35 3a 20 20 61 6e 64 28 77 72 ┆-- 1274 0589 1115 sz/45: and(wr┆
0x6580…65a0 65 67 2c 61 64 64 72 73 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 3b 20 69 66 20 77 5f 72 ┆eg,addrs) noload ; if w_r┆
0x65a0…65c0 65 67 28 69 6e 64 65 78 29 20 61 6e 64 20 61 64 64 72 73 20 3c 3e 20 30 20 74 68 65 6e 0a 31 32 ┆eg(index) and addrs <> 0 then 12┆
0x65c0…65e0 37 35 20 30 35 39 30 20 31 31 31 36 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6e 7a 65 72 6f 2c ┆75 0590 1116 cjmp(nzero,┆
0x65e0…6600 70 66 6e 65 69 63 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 67 6f 74 6f 20 70 66 6e 65 69 63 ┆pfneic) ; goto pfneic┆
0x6600…6620 2e 0a 31 32 37 36 20 30 35 39 31 20 31 31 31 37 20 20 20 20 20 20 20 20 20 6a 6d 70 28 6e 6f 70 ┆. 1276 0591 1117 jmp(nop┆
0x6620…6640 66 6e 65 29 20 69 6e 63 74 77 6f 28 69 63 29 20 20 20 20 20 20 20 20 3b 20 69 63 20 3a 3d 20 69 ┆fne) inctwo(ic) ; ic := i┆
0x6640…6660 63 20 2b 20 32 2c 20 67 6f 74 6f 20 6e 6f 70 66 6e 65 2e 0a 31 32 37 37 20 20 20 20 20 20 20 20 ┆c + 2, goto nopfne. 1277 ┆
0x6660…6680 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 73 6b 69 70 20 69 66 ┆ ; instruction skip if┆
0x6680…66a0 20 6e 6f 20 65 78 65 70 74 69 6f 6e 3a 20 27 73 78 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 ┆ no exeption: 'sx', numeric code┆
0x66a0…66c0 20 34 36 2e 0a 31 32 37 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 2d 2d ┆ 46. 1278 ; --┆
0x66c0…66e0 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 ┆--------------------------------┆
0x66e0…6700 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 31 32 37 39 20 30 35 39 32 20 ┆--------------------- 1279 0592 ┆
0x6700…6720 31 31 32 30 20 73 78 2f 34 36 3a 20 20 61 6e 64 28 61 64 64 72 73 2c 37 29 20 20 20 20 20 20 20 ┆1120 sx/46: and(addrs,7) ┆
0x6720…6740 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 64 64 72 73 20 3a 3d 20 61 64 64 72 73 20 61 6e 64 20 ┆ ; addrs := addrs and ┆
0x6740…6760 37 2e 0a 31 32 38 30 20 30 35 39 33 20 31 31 32 31 20 20 20 20 20 20 20 20 20 61 6e 64 28 61 64 ┆7. 1280 0593 1121 and(ad┆
0x6760…6780 64 72 73 2c 65 78 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 28 65 78 ┆drs,ex) noload ; if (ex┆
0x6780…67a0 20 61 6e 64 20 61 64 64 72 73 29 20 3c 3e 20 30 20 74 68 65 6e 0a 31 32 38 31 20 30 35 39 34 20 ┆ and addrs) <> 0 then 1281 0594 ┆
0x67a0…67c0 31 31 32 32 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6e 7a 65 72 6f 2c 70 66 6e 65 69 63 29 20 ┆1122 cjmp(nzero,pfneic) ┆
0x67c0…67e0 20 20 20 20 20 20 20 20 20 20 20 3b 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a 31 32 38 32 20 30 ┆ ; goto pfneic. 1282 0┆
0x67e0…6800 35 39 35 20 31 31 32 33 20 20 20 20 20 20 20 20 20 6a 6d 70 28 6e 6f 70 66 6e 65 29 20 69 6e 63 ┆595 1123 jmp(nopfne) inc┆
0x6800…6820 74 77 6f 28 69 63 29 20 20 20 20 20 20 20 20 3b 20 69 63 20 3a 3d 20 69 63 20 2b 20 32 2c 20 67 ┆two(ic) ; ic := ic + 2, g┆
0x6820…6840 6f 74 6f 20 6e 6f 70 66 6e 65 2e 0a 31 32 38 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆oto nopfne. 1283 ┆
0x6840…6860 20 20 20 3b 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 73 6b 69 70 20 69 66 20 6e 6f 20 77 72 69 74 ┆ ; instruction skip if no writ┆
0x6860…6880 65 20 70 72 6f 74 65 63 74 69 6f 6e 3a 20 27 73 70 27 2c 20 6f 70 63 6f 64 65 20 32 31 2e 0a 31 ┆e protection: 'sp', opcode 21. 1┆
0x6880…68a0 32 38 34 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 ┆284 ; --------┆
0x68a0…68c0 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 ┆--------------------------------┆
0x68c0…68e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 31 32 38 35 20 30 35 39 36 20 31 31 32 34 ┆----------------- 1285 0596 1124┆
0x68e0…6900 20 73 70 2f 32 31 3a 20 20 73 75 62 28 61 64 64 72 73 2c 38 29 20 6e 6f 6c 6f 61 64 20 20 20 20 ┆ sp/21: sub(addrs,8) noload ┆
0x6900…6920 20 20 20 20 20 20 20 3b 20 69 66 20 73 70 20 3c 20 38 20 74 68 65 6e 0a 31 32 38 36 20 30 35 39 ┆ ; if sp < 8 then 1286 059┆
0x6920…6940 37 20 31 31 32 35 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6c 65 73 73 2c 73 70 31 29 20 61 64 ┆7 1125 cjmp(less,sp1) ad┆
0x6940…6960 64 28 71 2c 61 64 64 72 73 2c 62 61 73 65 29 3b 20 67 6f 74 6f 20 73 70 31 2c 20 71 20 3a 3d 20 ┆d(q,addrs,base); goto sp1, q := ┆
0x6960…6980 61 64 64 72 73 20 2b 20 62 61 73 65 2e 0a 31 32 38 37 20 30 35 39 38 20 31 31 32 36 20 20 20 20 ┆addrs + base. 1287 0598 1126 ┆
0x6980…69a0 20 20 20 20 20 73 75 62 28 71 2c 6c 6f 77 6c 69 6d 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 ┆ sub(q,lowlim) noload ┆
0x69a0…69c0 20 20 20 3b 20 69 66 20 61 64 64 72 73 20 2b 20 62 61 73 65 20 3c 20 6c 6f 77 65 72 5f 6c 69 6d ┆ ; if addrs + base < lower_lim┆
0x69c0…69e0 69 74 20 74 68 65 6e 0a 31 32 38 38 20 30 35 39 39 20 31 31 32 37 20 20 20 20 20 20 20 20 20 63 ┆it then 1288 0599 1127 c┆
0x69e0…6a00 6a 6d 70 28 6c 65 73 73 2c 70 66 6e 65 69 63 29 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 67 ┆jmp(less,pfneic) ; g┆
0x6a00…6a20 6f 74 6f 20 70 66 6e 65 69 63 2e 0a 31 32 38 39 20 30 36 30 30 20 31 31 33 30 20 20 20 20 20 20 ┆oto pfneic. 1289 0600 1130 ┆
0x6a20…6a40 20 20 20 73 75 62 28 71 2c 75 70 6c 69 6d 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 20 ┆ sub(q,uplim) noload ┆
0x6a40…6a60 20 3b 20 69 66 20 61 64 64 72 73 2b 62 61 73 65 20 3e 3d 0a 31 32 39 30 20 20 20 20 20 20 20 20 ┆ ; if addrs+base >= 1290 ┆
0x6a60…6a80 20 20 20 0a 31 32 39 31 20 30 36 30 31 20 31 31 33 31 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 ┆ 1291 0601 1131 cjmp(┆
0x6a80…6aa0 67 72 65 71 2c 70 66 6e 65 69 63 29 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 75 70 70 65 72 ┆greq,pfneic) ; upper┆
0x6aa0…6ac0 5f 6c 69 6d 69 74 20 74 68 65 6e 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a 31 32 39 32 20 30 36 ┆_limit then goto pfneic. 1292 06┆
0x6ac0…6ae0 30 32 20 31 31 33 32 20 20 20 20 20 20 20 20 20 6a 6d 70 28 6e 6f 70 66 6e 65 29 20 69 6e 63 74 ┆02 1132 jmp(nopfne) inct┆
0x6ae0…6b00 77 6f 28 69 63 29 20 20 20 20 20 20 20 20 3b 20 69 63 20 3a 3d 20 69 63 20 2b 32 2e 20 67 6f 74 ┆wo(ic) ; ic := ic +2. got┆
0x6b00…6b20 6f 20 6e 6f 70 66 6e 65 2e 0a 31 32 39 33 20 30 36 30 33 20 31 31 33 33 20 73 70 31 3a 20 20 20 ┆o nopfne. 1293 0603 1133 sp1: ┆
0x6b20…6b40 20 73 75 62 28 61 64 64 72 73 2c 30 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 20 20 3b ┆ sub(addrs,0) noload ;┆
0x6b40…6b60 20 69 66 20 61 64 64 72 73 20 3c 20 30 20 74 68 65 6e 0a 31 32 39 34 20 30 36 30 34 20 31 31 33 ┆ if addrs < 0 then 1294 0604 113┆
0x6b60…6b80 34 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6c 65 73 73 2c 70 66 6e 65 69 63 29 20 20 20 20 20 ┆4 cjmp(less,pfneic) ┆
0x6b80…6ba0 20 20 20 20 20 20 20 20 3b 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a 31 32 39 35 20 30 36 30 35 ┆ ; goto pfneic. 1295 0605┆
0x6ba0…6bc0 20 31 31 33 35 20 20 20 20 20 20 20 20 20 6a 6d 70 28 6e 6f 70 66 6e 65 29 20 69 6e 63 74 77 6f ┆ 1135 jmp(nopfne) inctwo┆
0x6bc0…6be0 28 69 63 29 20 20 20 20 20 20 20 20 3b 20 69 63 20 3a 3d 20 69 63 20 2b 20 32 20 2c 20 67 6f 74 ┆(ic) ; ic := ic + 2 , got┆
0x6be0…6c00 6f 20 6e 6f 70 66 6e 65 2e 0a 31 32 39 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆o nopfne. 1296 ┆
0x6c00…6c20 (12,) 20 3b 20 6d 6f 6e 69 74 6f 72 20 63 6f 6e 74 72 6f 6c 0a 31 32 39 37 20 20 20 20 20 20 20 20 20 ┆ ; monitor control 1297 ┆
0x6c20…6c40 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 0a 31 32 39 38 ┆ ; --------------- 1298┆
0x6c40…6c60 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 6f 6e ┆ ; instruction┆
0x6c60…6c80 20 67 65 6e 65 72 61 6c 20 72 65 67 69 73 74 65 72 2c 20 70 75 74 3a 20 27 67 70 27 2c 20 6e 75 ┆ general register, put: 'gp', nu┆
0x6c80…6ca0 6d 65 72 69 63 20 63 6f 64 65 20 34 37 2e 0a 31 32 39 39 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆meric code 47. 1299 ┆
0x6ca0…6cc0 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 2d ┆ ; ------------------------┆
0x6cc0…6ce0 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 ┆--------------------------------┆
0x6ce0…6d00 2d 0a 31 33 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 73 63 61 70 ┆- 1300 ; escap┆
0x6d00…6d20 65 20 70 61 74 74 65 72 6e 20 32 2e 31 30 30 30 30 30 31 0a 31 33 30 31 20 30 36 30 36 20 31 31 ┆e pattern 2.1000001 1301 0606 11┆
0x6d20…6d40 33 36 20 67 70 2f 34 37 3a 20 20 6d 6f 76 65 28 73 74 61 74 75 73 2c 73 74 61 74 75 73 29 20 20 ┆36 gp/47: move(status,status) ┆
0x6d40…6d60 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 6e 6f 74 20 69 6e 20 6d 6f 6e 69 74 6f 72 20 6d 6f 64 ┆ ; if not in monitor mod┆
0x6d60…6d80 65 20 0a 31 33 30 32 20 30 36 30 37 20 31 31 33 37 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6e ┆e 1302 0607 1137 cjmp(n┆
0x6d80…6da0 6f 74 6e 65 67 2c 70 72 67 65 78 70 29 20 73 6d 6f 76 65 28 71 2c 77 72 65 67 29 3b 20 74 68 65 ┆otneg,prgexp) smove(q,wreg); the┆
0x6da0…6dc0 6e 20 67 6f 74 6f 20 70 72 6f 67 72 61 6d 20 65 78 65 70 74 69 6f 6e 2c 0a 31 33 30 33 20 20 20 ┆n goto program exeption, 1303 ┆
0x6dc0…6de0 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 ┆ ┆
0x6de0…6e00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 71 20 3a 3d 20 77 72 65 67 28 69 6e 64 65 78 29 ┆ ; q := wreg(index)┆
0x6e00…6e20 2e 0a 31 33 30 34 20 30 36 30 38 20 31 31 34 30 20 20 20 20 20 20 20 20 20 73 75 62 28 61 64 64 ┆. 1304 0608 1140 sub(add┆
0x6e20…6e40 72 73 2c 36 34 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 61 64 64 72 ┆rs,64) noload ; if addr┆
0x6e40…6e60 73 20 3d 20 36 34 20 74 68 65 6e 0a 31 33 30 35 20 30 36 30 39 20 31 31 34 31 20 20 20 20 20 20 ┆s = 64 then 1305 0609 1141 ┆
0x6e60…6e80 20 20 20 63 6a 6d 70 28 65 71 75 61 6c 2c 67 70 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ cjmp(equal,gp2) ┆
0x6e80…6ea0 20 3b 20 67 6f 74 6f 20 67 70 32 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; goto gp2. ┆
0x6ea0…6ec0 20 20 20 20 20 20 0a 31 33 30 36 20 30 36 31 30 20 31 31 34 32 20 20 20 20 20 20 20 20 20 73 75 ┆ 1306 0610 1142 su┆
0x6ec0…6ee0 62 28 61 64 64 72 73 2c 32 36 29 20 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 3b 20 69 66 ┆b(addrs,26) noload ; if┆
0x6ee0…6f00 20 61 64 64 72 73 20 3c 3e 20 32 36 20 74 68 65 6e 0a 31 33 30 37 20 30 36 31 31 20 31 31 34 33 ┆ addrs <> 26 then 1307 0611 1143┆
0x6f00…6f20 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6e 65 71 75 61 6c 2c 70 66 6e 65 69 63 29 20 20 20 20 ┆ cjmp(nequal,pfneic) ┆
0x6f20…6f40 20 20 20 20 20 20 20 3b 20 74 68 65 6e 20 67 6f 74 6f 20 70 66 6e 65 69 63 2c 20 71 20 3a 3d 20 ┆ ; then goto pfneic, q := ┆
0x6f40…6f60 77 72 65 67 28 69 6e 64 65 78 29 2e 0a 31 33 30 38 20 30 36 31 32 20 31 31 34 34 20 20 20 20 20 ┆wreg(index). 1308 0612 1144 ┆
0x6f60…6f80 20 20 20 20 6a 6d 70 28 70 66 6e 65 69 63 29 20 6d 6f 76 65 28 69 6e 66 2c 71 29 20 20 20 20 20 ┆ jmp(pfneic) move(inf,q) ┆
0x6f80…6fa0 20 20 3b 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 72 65 67 69 73 74 65 72 20 3a 3d 20 71 2e 0a 31 ┆ ; information register := q. 1┆
0x6fa0…6fc0 33 30 39 20 20 20 20 20 20 20 20 20 20 20 0a 31 33 33 39 20 30 36 31 33 20 31 31 34 35 20 67 70 ┆309 1339 0613 1145 gp┆
0x6fc0…6fe0 32 3a 20 20 20 20 69 6e 69 6d 6d 28 68 63 32 39 30 31 2c 27 65 30 31 77 74 72 29 20 20 20 20 20 ┆2: inimm(hc2901,'e01wtr) ┆
0x6fe0…7000 20 20 20 20 3b 20 63 6c 6f 63 6b 20 68 63 32 39 30 31 20 69 6e 20 77 72 69 74 65 20 74 65 73 74 ┆ ; clock hc2901 in write test┆
0x7000…7020 0a 31 33 34 30 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 ┆ 1340 ┆
0x7020…7040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 65 67 69 73 74 65 72 ┆ ; register┆
0x7040…7060 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 31 33 34 31 20 30 36 31 34 20 31 31 34 36 20 67 70 ┆. 1341 0614 1146 gp┆
0x7060…7080 33 3a 20 20 20 20 63 6a 6d 70 28 72 65 32 39 30 31 2c 67 70 33 29 20 20 63 6c 72 65 30 31 20 20 ┆3: cjmp(re2901,gp3) clre01 ┆
0x7080…70a0 20 20 20 20 3b 20 20 6c 6f 6f 70 20 77 68 69 6c 65 20 68 63 32 39 30 31 20 69 73 20 6e 6f 74 20 ┆ ; loop while hc2901 is not ┆
0x70a0…70c0 72 65 61 64 79 0a 31 33 34 32 20 30 36 31 35 20 31 31 34 37 20 20 20 20 20 20 20 20 20 69 6e 76 ┆ready 1342 0615 1147 inv┆
0x70c0…70e0 28 68 63 32 39 30 31 2c 71 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 68 63 32 ┆(hc2901,q) ; hc2┆
0x70e0…7100 39 30 31 20 3a 3d 20 71 20 61 6e 64 20 63 6c 6f 63 6b 0a 31 33 34 33 20 30 36 31 36 20 31 31 35 ┆901 := q and clock 1343 0616 115┆
0x7100…7120 30 20 67 70 34 3a 20 20 20 20 63 6a 6d 70 28 72 65 32 39 30 31 2c 67 70 34 29 20 63 6c 72 65 30 ┆0 gp4: cjmp(re2901,gp4) clre0┆
0x7120…7140 31 20 20 20 20 20 20 20 3b 20 6c 6f 6f 70 20 75 6e 74 69 6c 20 68 63 32 39 30 31 20 69 73 20 72 ┆1 ; loop until hc2901 is r┆
0x7140…7160 65 61 64 79 2e 0a 31 33 34 34 20 30 36 31 37 20 31 31 35 31 20 20 20 20 20 20 20 20 20 6a 6d 70 ┆eady. 1344 0617 1151 jmp┆
0x7160…7180 28 70 66 6e 65 69 63 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 67 6f 74 ┆(pfneic) ; got┆
0x7180…71a0 6f 20 70 66 6e 65 69 63 2e 0a 31 33 34 35 20 20 20 20 20 20 20 20 20 20 20 0a 31 33 34 36 20 20 ┆o pfneic. 1345 1346 ┆
0x71a0…71c0 20 20 20 20 20 20 20 20 20 0a 31 33 34 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 1347 ┆
0x71c0…71e0 20 3b 20 69 6e 73 74 72 75 63 74 69 6f 6e 20 67 65 6e 65 72 61 6c 20 72 65 67 69 73 74 65 72 2c ┆ ; instruction general register,┆
0x71e0…7200 20 67 65 74 3a 20 27 67 67 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 32 38 2e 0a 31 33 34 ┆ get: 'gg', numeric code 28. 134┆
0x7200…7220 38 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 ┆8 ; ----------┆
0x7220…7240 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 ┆--------------------------------┆
0x7240…7260 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 31 33 34 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆----------- 1349 ┆
0x7260…7280 20 20 20 3b 20 65 73 63 61 70 65 20 70 61 74 74 65 72 6e 3a 20 32 2e 30 30 30 30 30 31 0a 31 33 ┆ ; escape pattern: 2.000001 13┆
0x7280…72a0 35 30 20 30 36 31 38 20 31 31 35 32 20 67 67 2f 32 38 3a 20 20 6d 6f 76 65 28 71 2c 77 72 65 67 ┆50 0618 1152 gg/28: move(q,wreg┆
0x72a0…72c0 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 61 76 65 20 77 72 65 67 28 69 ┆) ; save wreg(i┆
0x72c0…72e0 6e 64 65 78 29 2e 0a 31 33 35 31 20 30 36 31 39 20 31 31 35 33 20 20 20 20 20 20 20 20 20 73 75 ┆ndex). 1351 0619 1153 su┆
0x72e0…7300 62 28 61 64 64 72 73 2c 32 36 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 ┆b(addrs,26) noload ; if┆
0x7300…7320 20 61 64 64 72 73 20 3d 20 32 36 20 74 68 65 6e 0a 31 33 35 32 20 30 36 32 30 20 31 31 35 34 20 ┆ addrs = 26 then 1352 0620 1154 ┆
0x7320…7340 20 20 20 20 20 20 20 20 63 6a 6d 70 28 65 71 75 61 6c 2c 70 66 6e 65 69 63 29 20 6d 6f 76 65 28 ┆ cjmp(equal,pfneic) move(┆
0x7340…7360 77 72 65 67 2c 69 6e 66 29 3b 20 77 72 65 67 28 69 6e 64 65 78 29 20 3a 3d 20 69 6e 66 72 6f 6d ┆wreg,inf); wreg(index) := infrom┆
0x7360…7380 61 74 69 6f 6e 0a 31 33 35 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ation 1353 ┆
0x7380…73a0 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 3b 20 72 65 67 ┆ ; reg┆
0x73a0…73c0 69 73 74 65 72 2c 20 67 6f 74 6f 20 70 66 6e 65 69 63 2e 0a 31 33 35 34 20 30 36 32 31 20 31 31 ┆ister, goto pfneic. 1354 0621 11┆
0x73c0…73e0 35 35 20 20 20 20 20 20 20 20 20 73 75 62 28 61 64 64 72 73 2c 36 34 29 20 6e 6f 6c 6f 61 64 20 ┆55 sub(addrs,64) noload ┆
0x73e0…7400 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 61 64 64 72 65 73 20 3d 20 36 34 20 74 68 65 6e 0a 31 ┆ ; if addres = 64 then 1┆
0x7400…7420 33 35 35 20 30 36 32 32 20 31 31 35 36 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 65 71 75 61 6c ┆355 0622 1156 cjmp(equal┆
0x7420…7440 2c 67 67 32 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 68 65 6e 20 67 6f 74 6f 20 ┆,gg2) ; then goto ┆
0x7440…7460 67 67 32 2e 0a 31 33 35 36 20 30 36 32 33 20 31 31 35 37 20 20 20 20 20 20 20 20 20 73 75 62 28 ┆gg2. 1356 0623 1157 sub(┆
0x7460…7480 61 64 64 72 73 2c 36 36 29 20 6e 6f 6c 6f 61 64 20 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 61 ┆addrs,66) noload ; if a┆
0x7480…74a0 64 64 72 73 20 3d 20 36 36 20 74 68 65 6e 20 0a 31 33 35 37 20 30 36 32 34 20 31 31 36 30 20 20 ┆ddrs = 66 then 1357 0624 1160 ┆
0x74a0…74c0 20 20 20 20 20 20 20 63 6a 6d 70 28 65 71 75 61 6c 2c 67 67 33 29 20 20 20 20 20 20 20 20 20 20 ┆ cjmp(equal,gg3) ┆
0x74c0…74e0 20 20 20 20 20 3b 20 74 68 65 6e 20 67 6f 74 6f 20 67 67 33 2e 0a 31 33 35 38 20 30 36 32 35 20 ┆ ; then goto gg3. 1358 0625 ┆
0x74e0…7500 31 31 36 31 20 20 20 20 20 20 20 20 20 73 75 62 28 61 64 64 72 73 2c 31 30 30 29 20 6e 6f 6c 6f ┆1161 sub(addrs,100) nolo┆
0x7500…7520 (13,) 61 64 20 20 20 20 20 20 20 20 20 3b 20 69 66 20 61 64 64 72 73 20 3d 20 31 30 30 20 74 68 65 6e ┆ad ; if addrs = 100 then┆
0x7520…7540 0a 31 33 35 39 20 30 36 32 36 20 31 31 36 32 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 65 71 75 ┆ 1359 0626 1162 cjmp(equ┆
0x7540…7560 61 6c 2c 67 67 35 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 68 65 6e 20 67 6f 74 ┆al,gg5) ; then got┆
0x7560…7580 6f 20 67 67 35 2e 0a 31 33 36 30 20 30 36 32 37 20 31 31 36 33 20 20 20 20 20 20 20 20 20 6a 6d ┆o gg5. 1360 0627 1163 jm┆
0x7580…75a0 70 28 70 66 6e 65 69 63 29 20 6d 6f 76 65 28 77 72 65 67 2c 71 29 20 20 20 20 20 20 3b 20 69 66 ┆p(pfneic) move(wreg,q) ; if┆
0x75a0…75c0 20 6e 6f 74 20 6c 65 67 61 6c 20 74 68 65 6e 20 72 65 65 73 74 61 62 6c 69 73 68 0a 31 33 36 31 ┆ not legal then reestablish 1361┆
0x75c0…75e0 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 ┆ ┆
0x75e0…7600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 20 72 65 67 28 69 6e 64 65 78 29 20 ┆ ; w reg(index) ┆
0x7600…7620 61 6e 64 20 67 6f 74 6f 20 70 66 6e 65 69 63 0a 31 33 36 32 20 30 36 32 38 20 31 31 36 34 20 67 ┆and goto pfneic 1362 0628 1164 g┆
0x7620…7640 67 35 3a 20 20 20 20 69 6e 69 6d 6d 28 68 63 32 39 30 31 2c 27 65 30 31 72 74 63 29 20 20 20 20 ┆g5: inimm(hc2901,'e01rtc) ┆
0x7640…7660 20 20 20 20 20 3b 20 73 65 6e 64 20 61 64 64 72 73 20 6f 66 20 72 65 61 6c 20 74 69 6d 65 20 63 ┆ ; send addrs of real time c┆
0x7660…7680 6c 6f 63 6b 20 74 6f 0a 31 33 36 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆lock to 1363 ┆
0x7680…76a0 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 3b 20 68 ┆ ; h┆
0x76a0…76c0 63 32 39 30 31 2e 0a 31 33 36 34 20 30 36 32 39 20 31 31 36 35 20 20 20 20 20 20 20 20 20 6a 6d ┆c2901. 1364 0629 1165 jm┆
0x76c0…76e0 70 28 67 67 34 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 67 6f ┆p(gg4) ; go┆
0x76e0…7700 74 6f 20 67 67 34 2e 0a 31 33 36 35 20 30 36 33 30 20 31 31 36 36 20 67 67 32 3a 20 20 20 20 69 ┆to gg4. 1365 0630 1166 gg2: i┆
0x7700…7720 6e 69 6d 6d 28 68 63 32 39 30 31 2c 27 65 30 31 72 74 72 29 20 20 20 20 20 20 20 20 20 3b 20 73 ┆nimm(hc2901,'e01rtr) ; s┆
0x7720…7740 65 6e 64 30 61 64 64 72 65 73 73 20 6f 66 20 72 65 61 64 20 74 65 73 74 20 72 65 67 69 73 74 65 ┆end0address of read test registe┆
0x7740…7760 72 0a 31 33 36 36 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 ┆r 1366 ┆
0x7760…7780 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 69 74 68 20 6e 6f ┆ ; with no┆
0x7780…77a0 20 77 61 69 74 20 74 6f 20 68 63 32 39 30 31 2e 0a 31 33 36 37 20 30 36 33 31 20 31 31 36 37 20 ┆ wait to hc2901. 1367 0631 1167 ┆
0x77a0…77c0 20 20 20 20 20 20 20 20 6a 6d 70 28 67 67 34 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ jmp(gg4) ┆
0x77c0…77e0 20 20 20 20 20 20 3b 20 67 6f 74 6f 20 67 67 34 2e 0a 31 33 36 38 20 30 36 33 32 20 31 31 37 30 ┆ ; goto gg4. 1368 0632 1170┆
0x77e0…7800 20 67 67 33 3a 20 20 20 20 69 6e 69 6d 6d 28 68 63 32 39 30 31 2c 27 65 30 31 72 74 77 29 20 20 ┆ gg3: inimm(hc2901,'e01rtw) ┆
0x7800…7820 20 20 20 20 20 20 20 3b 20 63 6c 6f 63 6b 20 68 63 32 39 30 31 20 69 6e 20 72 65 61 64 20 74 65 ┆ ; clock hc2901 in read te┆
0x7820…7840 73 74 20 72 65 67 69 73 74 65 72 0a 31 33 36 39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆st register 1369 ┆
0x7840…7860 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 ┆ ┆
0x7860…7880 20 3b 20 77 69 74 68 20 77 61 69 74 2e 0a 31 33 37 30 20 30 36 33 33 20 31 31 37 31 20 67 67 34 ┆ ; with wait. 1370 0633 1171 gg4┆
0x7880…78a0 3a 20 20 20 20 63 6a 6d 70 28 72 65 32 39 30 31 2c 67 67 34 29 20 63 6c 72 65 30 31 20 20 20 20 ┆: cjmp(re2901,gg4) clre01 ┆
0x78a0…78c0 20 20 20 3b 20 6c 6f 6f 70 20 77 68 69 6c 65 20 68 63 32 39 30 31 20 69 73 20 6e 6f 74 20 72 65 ┆ ; loop while hc2901 is not re┆
0x78c0…78e0 64 79 0a 31 33 37 31 20 30 36 33 34 20 31 31 37 32 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 66 ┆dy 1371 0634 1172 jmp(pf┆
0x78e0…7900 6e 65 69 63 29 20 20 69 6e 76 28 77 72 65 67 2c 68 63 32 39 30 31 29 20 3b 20 77 5f 72 65 67 28 ┆neic) inv(wreg,hc2901) ; w_reg(┆
0x7900…7920 69 6e 64 65 78 29 20 3a 3d 20 68 63 32 39 30 31 2c 20 67 70 66 6e 65 69 63 2e 0a 31 33 37 32 20 ┆index) := hc2901, gpfneic. 1372 ┆
0x7920…7940 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 6f 6e 20 ┆ ; instruction ┆
0x7940…7960 64 61 74 61 20 6f 75 74 3a 20 27 64 6f 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 20 31 2e 0a ┆data out: 'do', numeric code 1. ┆
0x7960…7980 31 33 37 33 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 ┆1373 ; -------┆
0x7980…79a0 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 ┆--------------------------------┆
0x79a0…79c0 2d 2d 2d 2d 0a 31 33 37 34 20 30 36 33 35 20 31 31 37 33 20 64 6f 2f 31 3a 20 20 20 61 6e 64 69 ┆---- 1374 0635 1173 do/1: andi┆
0x79c0…79e0 6e 76 28 65 78 2c 37 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 78 28 32 ┆nv(ex,7) ; ex(2┆
0x79e0…7a00 31 3a 32 33 29 20 3a 3d 20 30 2c 20 63 6c 65 61 72 20 62 69 74 20 32 31 20 74 6f 0a 31 33 37 35 ┆1:23) := 0, clear bit 21 to 1375┆
0x7a00…7a20 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 ┆ ┆
0x7a20…7a40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 32 33 20 69 6e 20 65 78 20 72 65 67 69 ┆ ; 23 in ex regi┆
0x7a40…7a60 73 74 65 72 20 28 69 2e 65 2e 20 73 74 61 74 75 73 20 0a 31 33 37 36 20 20 20 20 20 20 20 20 20 ┆ster (i.e. status 1376 ┆
0x7a60…7a80 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 ┆ ┆
0x7a80…7aa0 20 20 20 20 20 20 20 20 3b 20 72 65 67 69 73 74 65 72 2e 29 0a 31 33 37 37 20 30 36 33 36 20 31 ┆ ; register.) 1377 0636 1┆
0x7aa0…7ac0 31 37 34 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6e 6f 74 6e 65 67 2c 70 72 67 65 78 70 29 20 ┆174 cjmp(notneg,prgexp) ┆
0x7ac0…7ae0 6d 6f 76 65 28 77 72 6b 31 2c 61 64 64 72 73 29 20 6c 66 74 61 6f 6c 3b 20 69 66 20 73 74 61 74 ┆move(wrk1,addrs) lftaol; if stat┆
0x7ae0…7b00 75 73 20 0a 31 33 37 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆us 1378 ┆
0x7b00…7b20 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 73 61 6d 65 ┆ ; same┆
0x7b20…7b40 20 61 73 20 65 78 29 20 69 73 20 6e 6f 74 0a 31 33 37 39 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ as ex) is not 1379 ┆
0x7b40…7b60 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 ┆ ┆
0x7b60…7b80 20 20 20 20 3b 20 6e 65 67 61 74 69 76 65 20 28 20 6e 6f 74 20 6d 6f 6e 69 74 6f 72 20 6d 6f 64 ┆ ; negative ( not monitor mod┆
0x7b80…7ba0 65 29 0a 31 33 38 30 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 ┆e) 1380 ┆
0x7ba0…7bc0 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 74 68 65 6e 20 67 ┆ ; then g┆
0x7bc0…7be0 6f 74 6f 20 70 72 6f 67 72 61 6d 20 65 78 65 70 74 69 6f 6e 20 2c 0a 31 33 38 31 20 20 20 20 20 ┆oto program exeption , 1381 ┆
0x7be0…7c00 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 ┆ ┆
0x7c00…7c20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 72 6b 31 20 3a 3d 20 61 64 64 72 73 20 2a 20 32 20 ┆ ; wrk1 := addrs * 2 ┆
0x7c20…7c40 28 20 64 65 6c 65 74 65 20 73 69 67 6e 20 62 69 74 20 29 2e 0a 31 33 38 32 20 30 36 33 37 20 31 ┆( delete sign bit ). 1382 0637 1┆
0x7c40…7c60 31 37 35 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6e 6f 74 6e 65 67 2c 64 6f 6d 65 6d 6f 29 20 ┆175 cjmp(notneg,domemo) ┆
0x7c60…7c80 6d 6f 76 65 28 77 72 6b 31 2c 77 72 6b 31 29 20 72 67 74 61 6f 6c 20 3b 20 69 66 20 61 64 64 72 ┆move(wrk1,wrk1) rgtaol ; if addr┆
0x7c80…7ca0 65 73 73 20 69 73 20 6e 6f 74 20 6e 65 67 61 74 69 76 65 0a 31 33 38 33 20 20 20 20 20 20 20 20 ┆ess is not negative 1383 ┆
0x7ca0…7cc0 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 ┆ ┆
0x7cc0…7ce0 20 20 20 20 20 20 20 20 20 20 3b 20 74 68 65 6e 20 67 6f 74 6f 20 64 61 74 61 20 69 6e 20 6d 65 ┆ ; then goto data in me┆
0x7ce0…7d00 6d 6f 72 79 20 77 6f 72 64 20 77 72 69 74 65 2c 0a 31 33 38 34 20 20 20 20 20 20 20 20 20 20 20 ┆mory word write, 1384 ┆
0x7d00…7d20 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 ┆ ┆
0x7d20…7d40 20 20 20 20 20 20 20 3b 20 77 72 6b 31 20 3a 3d 20 61 64 64 72 65 73 73 20 77 69 74 68 20 6e 6f ┆ ; wrk1 := address with no┆
0x7d40…7d60 20 73 69 67 6e 20 62 69 74 2e 0a 31 33 38 35 20 30 36 33 38 20 31 31 37 36 20 20 20 20 20 20 20 ┆ sign bit. 1385 0638 1176 ┆
0x7d60…7d80 20 20 61 6e 64 28 71 2c 77 72 6b 31 2c 37 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ and(q,wrk1,7) ┆
0x7d80…7da0 20 3b 20 71 20 3a 3d 20 6c 61 73 74 20 33 20 62 69 74 20 6f 66 20 65 66 66 65 63 74 69 76 65 20 ┆ ; q := last 3 bit of effective ┆
0x7da0…7dc0 61 64 64 72 65 73 73 2e 0a 31 33 38 36 20 30 36 33 39 20 31 31 37 37 20 20 20 20 20 20 20 20 20 ┆address. 1386 0639 1177 ┆
0x7dc0…7de0 61 64 64 28 71 2c 27 65 30 31 64 6f 62 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆add(q,'e01dob) ; ┆
0x7de0…7e00 71 20 3a 3d 20 6c 61 73 74 20 33 20 62 69 74 73 20 6f 66 20 61 64 64 72 65 73 73 20 2b 0a 31 33 ┆q := last 3 bits of address + 13┆
0x7e00…7e20 (14,) 38 37 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 ┆87 ┆
0x7e20…7e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 64 64 72 65 73 73 20 6f 66 20 ┆ ; address of ┆
0x7e40…7e60 66 69 72 73 74 20 64 61 74 61 20 6f 75 74 20 69 6e 20 0a 31 33 38 38 20 20 20 20 20 20 20 20 20 ┆first data out in 1388 ┆
0x7e60…7e80 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 ┆ ┆
0x7e80…7ea0 20 20 20 20 20 20 20 20 3b 20 68 63 32 39 30 31 20 64 61 74 61 20 6f 75 74 20 66 75 6e 63 74 69 ┆ ; hc2901 data out functi┆
0x7ea0…7ec0 6f 6e 20 74 61 62 6c 65 2e 0a 31 33 38 39 20 30 36 34 30 20 31 32 30 30 20 20 20 20 20 20 20 20 ┆on table. 1389 0640 1200 ┆
0x7ec0…7ee0 20 20 61 6e 64 69 6e 76 28 77 72 6b 31 2c 37 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ andinv(wrk1,7) ;┆
0x7ee0…7f00 20 63 6c 65 61 72 20 6c 61 73 74 20 33 20 62 69 74 20 6f 66 20 64 65 76 69 63 65 20 6e 75 6d 62 ┆ clear last 3 bit of device numb┆
0x7f00…7f20 65 72 2e 0a 31 33 39 30 20 30 36 34 31 20 31 32 30 31 20 20 20 20 20 20 20 20 20 6a 6d 70 28 77 ┆er. 1390 0641 1201 jmp(w┆
0x7f20…7f40 64 6f 31 29 20 69 6e 76 28 68 63 32 39 30 31 2c 71 29 20 20 20 20 20 20 20 3b 20 63 6c 6f 63 6b ┆do1) inv(hc2901,q) ; clock┆
0x7f40…7f60 20 68 63 32 39 30 31 20 69 6e 20 64 61 74 61 20 6f 75 74 20 66 75 6e 63 74 69 6f 6e 20 0a 31 33 ┆ hc2901 in data out function 13┆
0x7f60…7f80 39 31 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 ┆91 ┆
0x7f80…7fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 61 62 6c 65 2c 20 61 6e 64 20 ┆ ; table, and ┆
0x7fa0…7fc0 67 6f 74 6f 20 77 64 6f 31 2e 0a 31 33 39 32 20 30 36 34 32 20 31 32 30 32 20 64 6f 6d 65 6d 6f ┆goto wdo1. 1392 0642 1202 domemo┆
0x7fc0…7fe0 3a 20 69 6e 69 6d 6d 28 68 63 32 39 30 31 2c 27 65 30 31 64 6f 6d 29 20 20 20 20 20 20 20 20 20 ┆: inimm(hc2901,'e01dom) ┆
0x7fe0…8000 3b 20 63 6c 6f 63 6b 20 68 63 32 39 30 31 20 69 6e 20 64 61 74 61 20 6f 75 74 20 6d 65 6d 6f 72 ┆; clock hc2901 in data out memor┆
0x8000…8020 79 20 77 6f 72 64 2e 0a 31 33 39 33 20 20 20 20 20 20 20 20 20 20 20 20 0a 31 33 39 34 20 30 36 ┆y word. 1393 1394 06┆
0x8020…8040 34 33 20 31 32 30 33 20 77 64 6f 31 3a 20 20 20 63 6a 6d 70 28 72 65 32 39 30 31 2c 77 64 6f 31 ┆43 1203 wdo1: cjmp(re2901,wdo1┆
0x8040…8060 29 20 63 6c 72 65 30 31 20 20 20 20 20 20 3b 20 77 61 69 74 20 66 6f 72 20 68 63 32 39 30 31 2e ┆) clre01 ; wait for hc2901.┆
0x8060…8080 0a 31 33 39 35 20 20 20 20 20 20 20 20 20 20 20 2a 74 65 73 74 3a 20 62 69 74 6f 6e 0a 31 33 39 ┆ 1395 *test: biton 139┆
0x8080…80a0 36 20 30 36 34 34 20 31 32 30 34 20 20 20 20 20 20 20 20 20 69 6e 76 28 68 63 32 39 30 31 2c 77 ┆6 0644 1204 inv(hc2901,w┆
0x80a0…80c0 72 6b 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 68 63 32 39 30 31 20 3a 3d 20 64 69 76 ┆rk1) ; hc2901 := div┆
0x80c0…80e0 69 63 65 20 6e 75 6d 62 65 72 2e 0a 20 20 20 20 20 20 20 20 20 20 2e 20 31 31 31 2e 20 2e 20 31 ┆ice number. . 111. . 1┆
0x80e0…8100 20 2e 2e 2e 2e 20 31 31 2e 2e 2e 20 2e 31 2e 31 2e 20 2e 2e 20 31 2e 2e 2e 31 20 2e 2e 2e 2e 20 ┆ .... 11... .1.1. .. 1...1 .... ┆
0x8100…8120 31 2e 31 2e 20 2e 2e 2e 2e 20 2e 31 20 31 31 20 2e 2e 2e 2e 20 0a 0a 31 33 39 37 20 20 20 20 20 ┆1.1. .... .1 11 .... 1397 ┆
0x8120…8140 20 20 20 20 20 20 2a 74 65 73 74 3a 20 62 69 74 6f 66 66 0a 31 33 39 38 20 30 36 34 35 20 31 32 ┆ *test: bitoff 1398 0645 12┆
0x8140…8160 30 35 20 20 20 20 20 20 20 20 20 20 73 6d 6f 76 65 28 71 2c 77 72 65 67 29 20 20 20 20 20 20 20 ┆05 smove(q,wreg) ┆
0x8160…8180 20 20 20 20 20 20 20 20 20 3b 20 71 20 3a 3d 20 77 72 65 67 28 69 6e 64 65 78 29 2e 0a 31 33 39 ┆ ; q := wreg(index). 139┆
0x8180…81a0 39 20 30 36 34 36 20 31 32 30 36 20 77 64 6f 32 3a 20 20 20 63 6a 6d 70 28 72 65 32 39 30 31 2c ┆9 0646 1206 wdo2: cjmp(re2901,┆
0x81a0…81c0 77 64 6f 32 29 20 63 6c 72 65 30 31 20 20 20 20 20 20 3b 20 77 61 69 74 20 66 6f 72 20 68 63 32 ┆wdo2) clre01 ; wait for hc2┆
0x81c0…81e0 39 30 31 2e 0a 31 34 30 30 20 30 36 34 37 20 31 32 30 37 20 20 20 20 20 20 20 20 20 6a 6d 70 28 ┆901. 1400 0647 1207 jmp(┆
0x81e0…8200 77 64 69 33 29 20 69 6e 76 28 68 63 32 39 30 31 2c 71 29 20 20 20 20 20 20 20 3b 20 68 63 32 39 ┆wdi3) inv(hc2901,q) ; hc29┆
0x8200…8220 30 31 20 3a 3d 20 71 2c 20 63 6c 6f 63 6b 20 77 72 69 74 65 20 68 63 32 39 30 31 2c 0a 31 34 30 ┆01 := q, clock write hc2901, 140┆
0x8220…8240 31 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 ┆1 ┆
0x8240…8260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 67 6f 74 6f 20 77 64 69 33 20 28 20 ┆ ; goto wdi3 ( ┆
0x8260…8280 77 61 69 74 20 66 6f 72 20 65 78 65 70 74 69 6f 6e 20 62 69 74 73 0a 31 34 30 32 20 20 20 20 20 ┆wait for exeption bits 1402 ┆
0x8280…82a0 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 ┆ ┆
0x82a0…82c0 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 6f 6d 6d 6f 6e 20 77 69 74 68 20 64 61 74 61 20 69 ┆ ; common with data i┆
0x82c0…82e0 6e 20 69 6e 73 74 72 75 63 74 69 6f 6e 29 2e 0a 31 34 30 33 20 20 20 20 20 20 20 20 20 20 20 0a ┆n instruction). 1403 ┆
0x82e0…8300 31 34 30 34 20 20 20 20 20 20 20 20 20 20 20 0a 31 34 30 35 20 20 20 20 20 20 20 20 20 20 20 0a ┆1404 1405 ┆
0x8300…8320 31 34 30 36 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 ┆1406 ; instruc┆
0x8320…8340 74 69 6f 6e 20 64 61 74 61 20 69 6e 3a 20 27 64 69 27 2c 20 6e 75 6d 65 72 69 63 20 63 6f 64 65 ┆tion data in: 'di', numeric code┆
0x8340…8360 20 30 2e 0a 31 34 30 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 ┆ 0. 1407 ; ---┆
0x8360…8380 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 ┆--------------------------------┆
0x8380…83a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 31 34 30 38 20 30 36 34 38 20 31 32 31 30 20 64 69 2f 30 3a 20 20 ┆--------- 1408 0648 1210 di/0: ┆
0x83a0…83c0 20 61 6e 64 69 6e 76 28 65 78 2c 37 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ┆ andinv(ex,7) ;┆
0x83c0…83e0 20 65 78 28 32 31 3a 32 33 29 20 3a 3d 20 30 2c 20 63 6c 65 61 72 20 62 69 74 20 32 31 20 74 6f ┆ ex(21:23) := 0, clear bit 21 to┆
0x83e0…8400 0a 31 34 30 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 20 ┆ 1409 ┆
0x8400…8420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 32 33 20 69 6e 20 65 78 ┆ ; 23 in ex┆
0x8420…8440 20 72 65 67 69 73 74 65 72 20 28 69 2e 65 2e 20 73 74 61 74 75 73 20 0a 31 34 31 30 20 20 20 20 ┆ register (i.e. status 1410 ┆
0x8440…8460 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 ┆ ┆
0x8460…8480 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 65 67 69 73 74 65 72 2e 29 0a 31 34 31 31 20 30 ┆ ; register.) 1411 0┆
0x8480…84a0 36 34 39 20 31 32 31 31 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6e 6f 74 6e 65 67 2c 70 72 67 ┆649 1211 cjmp(notneg,prg┆
0x84a0…84c0 65 78 70 29 20 6d 6f 76 65 28 77 72 6b 31 2c 61 64 64 72 73 29 20 6c 66 74 61 6f 6c 20 3b 20 69 ┆exp) move(wrk1,addrs) lftaol ; i┆
0x84c0…84e0 66 20 73 74 61 74 75 73 20 0a 31 34 31 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆f status 1412 ┆
0x84e0…8500 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 ┆ ┆
0x8500…8520 3b 20 28 73 61 6d 65 20 61 73 20 65 78 29 20 69 73 20 6e 6f 74 0a 31 34 31 33 20 20 20 20 20 20 ┆; (same as ex) is not 1413 ┆
0x8520…8540 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 ┆ ┆
0x8540…8560 20 20 20 20 20 20 20 20 20 20 20 3b 20 6e 65 67 61 74 69 76 65 20 28 20 6e 6f 74 20 6d 6f 6e 69 ┆ ; negative ( not moni┆
0x8560…8580 74 6f 72 20 6d 6f 64 65 29 20 0a 31 34 31 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tor mode) 1414 ┆
0x8580…85a0 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 ┆ ┆
0x85a0…85c0 3b 20 74 68 65 6e 20 67 6f 74 6f 20 70 72 6f 67 72 61 6d 20 65 78 65 70 74 69 6f 6e 2c 0a 31 34 ┆; then goto program exeption, 14┆
0x85c0…85e0 31 35 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 ┆15 ┆
0x85e0…8600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 77 72 6b 31 20 3a 3d 20 61 64 64 ┆ ; wrk1 := add┆
0x8600…8620 72 73 20 2a 20 32 20 28 20 64 65 6c 65 74 65 20 70 6f 73 73 69 62 6c 65 0a 31 34 31 36 20 20 20 ┆rs * 2 ( delete possible 1416 ┆
0x8620…8640 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 ┆ ┆
0x8640…8660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 69 67 6e 20 62 69 74 29 2e 0a 31 34 31 37 20 ┆ ; sign bit). 1417 ┆
0x8660…8680 30 36 35 30 20 31 32 31 32 20 20 20 20 20 20 20 20 20 63 6a 6d 70 28 6e 6f 74 6e 65 67 2c 64 69 ┆0650 1212 cjmp(notneg,di┆
0x8680…86a0 6d 65 6d 6f 29 20 6d 6f 76 65 28 77 72 6b 31 2c 77 72 6b 31 29 20 72 67 74 61 6f 6c 20 3b 20 69 ┆memo) move(wrk1,wrk1) rgtaol ; i┆
0x86a0…86c0 66 20 61 64 64 72 73 20 69 73 20 6e 6f 74 20 6e 65 67 61 74 69 76 65 0a 31 34 31 38 20 20 20 20 ┆f addrs is not negative 1418 ┆
0x86c0…86e0 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 ┆ ┆
0x86e0…8700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 68 65 6e 20 67 6f 74 6f 20 64 69 6d 65 6d 6f ┆ ; then goto dimemo┆
0x8700…8720 (15,) 20 28 20 6d 65 6d 6f 72 79 20 77 6f 72 64 20 66 65 74 63 68 29 2c 0a 31 34 31 39 20 20 20 20 20 ┆ ( memory word fetch), 1419 ┆
0x8720…8740 20 20 20 20 20 20 0a 31 34 32 30 20 30 36 35 31 20 31 32 31 33 20 20 20 20 20 20 20 20 20 61 6e ┆ 1420 0651 1213 an┆
0x8740…8760 64 28 71 2c 61 64 64 72 73 2c 37 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 71 20 ┆d(q,addrs,7) ; q ┆
0x8760…8780 3a 3d 20 6c 61 73 74 20 33 20 62 69 74 73 20 6f 66 20 0a 31 34 32 31 20 20 20 20 20 20 20 20 20 ┆:= last 3 bits of 1421 ┆
0x8780…87a0 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 ┆ ┆
0x87a0…87c0 20 20 20 20 20 20 20 20 3b 20 65 66 66 65 63 74 69 76 65 20 61 64 64 72 65 73 73 2e 0a 31 34 32 ┆ ; effective address. 142┆
0x87c0…87e0 32 20 30 36 35 32 20 31 32 31 34 20 20 20 20 20 20 20 20 20 61 64 64 28 71 2c 27 65 30 31 64 69 ┆2 0652 1214 add(q,'e01di┆
0x87e0…8800 62 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 71 20 3a 3d 20 71 20 2b 20 61 64 64 ┆b) ; q := q + add┆
0x8800…8820 72 65 73 73 20 6f 66 20 66 69 72 73 74 0a 31 34 32 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ress of first 1423 ┆
0x8820…8840 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 ┆ ┆
0x8840…8860 20 20 20 3b 20 20 20 20 20 20 64 61 74 61 20 69 6e 20 66 75 6e 63 74 69 6f 6e 2c 20 69 6e 20 68 ┆ ; data in function, in h┆
0x8860…8880 63 32 39 30 31 2e 0a 31 34 32 34 20 30 36 35 33 20 31 32 31 35 20 20 20 20 20 20 20 20 20 61 6e ┆c2901. 1424 0653 1215 an┆
0x8880…88a0 64 69 6e 76 28 77 72 6b 31 2c 37 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 6c ┆dinv(wrk1,7) ; cl┆
0x88a0…88c0 65 61 72 20 6c 61 73 74 20 33 20 62 69 74 73 20 6f 66 20 64 65 76 69 63 65 20 6e 75 6d 62 65 72 ┆ear last 3 bits of device number┆
0x88c0…88e0 2e 0a 31 34 32 35 20 30 36 35 34 20 31 32 31 36 20 20 20 20 20 20 20 20 20 6a 6d 70 28 77 64 69 ┆. 1425 0654 1216 jmp(wdi┆
0x88e0…8900 31 29 20 69 6e 76 28 68 63 32 39 30 31 2c 71 29 20 20 20 20 20 20 20 3b 20 67 6f 74 6f 20 77 61 ┆1) inv(hc2901,q) ; goto wa┆
0x8900…8920 69 74 20 64 69 31 2c 20 63 6c 6f 63 6b 20 68 63 32 39 30 31 20 69 6e 0a 31 34 32 36 20 20 20 20 ┆it di1, clock hc2901 in 1426 ┆
0x8920…8940 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 ┆ ┆
0x8940…8960 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 64 61 74 61 20 69 6e 20 6a 75 6d 70 20 74 61 62 6c ┆ ; data in jump tabl┆
0x8960…8980 65 2e 0a 31 34 32 37 20 30 36 35 35 20 31 32 31 37 20 64 69 6d 65 6d 6f 3a 20 69 6e 69 6d 6d 28 ┆e. 1427 0655 1217 dimemo: inimm(┆
0x8980…89a0 68 63 32 39 30 31 2c 27 65 30 31 64 69 6d 29 20 20 20 20 20 20 20 20 20 3b 20 63 6c 6f 63 6b 20 ┆hc2901,'e01dim) ; clock ┆
0x89a0…89c0 68 63 32 39 30 31 20 69 6e 20 61 64 64 72 65 73 73 20 65 30 31 67 6d 77 2e 0a 31 34 32 38 20 30 ┆hc2901 in address e01gmw. 1428 0┆
0x89c0…89e0 36 35 36 20 31 32 32 30 20 77 64 69 31 3a 20 20 20 63 6a 6d 70 28 72 65 32 39 30 31 2c 77 64 69 ┆656 1220 wdi1: cjmp(re2901,wdi┆
0x89e0…8a00 31 29 20 63 6c 72 65 30 31 20 20 20 20 20 20 3b 20 77 61 69 74 20 66 6f 72 20 72 65 61 64 79 2e ┆1) clre01 ; wait for ready.┆
0x8a00…8a20 0a 31 34 32 39 20 30 36 35 37 20 31 32 32 31 20 20 20 20 20 20 20 20 20 69 6e 76 28 68 63 32 39 ┆ 1429 0657 1221 inv(hc29┆
0x8a20…8a40 30 31 2c 77 72 6b 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 68 63 32 39 30 31 20 3a 3d ┆01,wrk1) ; hc2901 :=┆
0x8a40…8a60 20 64 69 76 69 63 65 20 6e 75 6d 62 65 72 2e 0a 31 34 33 30 20 30 36 35 38 20 31 32 32 32 20 77 ┆ divice number. 1430 0658 1222 w┆
0x8a60…8a80 64 69 32 3a 20 20 20 63 6a 6d 70 28 72 65 32 39 30 31 2c 77 64 69 32 29 20 69 6e 76 28 77 72 65 ┆di2: cjmp(re2901,wdi2) inv(wre┆
0x8a80…8aa0 67 2c 68 63 32 39 30 31 29 3b 20 77 61 69 74 20 66 6f 72 20 68 63 32 39 30 31 2c 20 77 72 65 67 ┆g,hc2901); wait for hc2901, wreg┆
0x8aa0…8ac0 28 69 6e 64 65 78 29 20 3a 3d 20 68 63 32 39 30 31 2e 0a 31 34 33 31 20 30 36 35 39 20 31 32 32 ┆(index) := hc2901. 1431 0659 122┆
0x8ac0…8ae0 33 20 20 20 20 20 20 20 20 20 63 6f 6e 74 20 63 6c 77 72 30 31 20 20 20 20 20 20 20 20 20 20 20 ┆3 cont clwr01 ┆
0x8ae0…8b00 20 20 20 20 20 20 20 20 3b 20 63 6c 65 61 72 20 77 72 69 74 65 20 72 65 61 64 79 20 66 72 6f 6d ┆ ; clear write ready from┆
0x8b00…8b20 20 68 63 32 39 30 31 2e 0a 31 34 33 32 20 20 20 20 20 20 20 20 20 20 20 0a 31 34 33 33 20 30 36 ┆ hc2901. 1432 1433 06┆
0x8b20…8b40 36 30 20 31 32 32 34 20 77 64 69 33 3a 20 20 20 63 6a 6d 70 28 72 65 32 39 30 31 2c 77 64 69 33 ┆60 1224 wdi3: cjmp(re2901,wdi3┆
0x8b40…8b60 29 20 69 6e 76 28 77 72 6b 31 2c 68 63 32 39 30 31 29 3b 20 77 61 69 74 20 66 6f 72 20 68 63 32 ┆) inv(wrk1,hc2901); wait for hc2┆
0x8b60…8b80 39 30 31 2c 20 77 72 6b 31 20 3a 3d 20 68 63 32 39 30 31 2e 0a 31 34 33 34 20 30 36 36 31 20 31 ┆901, wrk1 := hc2901. 1434 0661 1┆
0x8b80…8ba0 32 32 35 20 20 20 20 20 20 20 20 20 61 6e 64 28 77 72 6b 31 2c 37 29 20 20 20 20 20 20 20 20 20 ┆225 and(wrk1,7) ┆
0x8ba0…8bc0 20 20 20 20 20 20 20 20 20 20 3b 20 77 72 6b 31 20 3a 3d 20 77 72 6b 31 28 32 31 2e 32 33 29 2e ┆ ; wrk1 := wrk1(21.23).┆
0x8bc0…8be0 0a 31 34 33 35 20 30 36 36 32 20 31 32 32 36 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 66 6e 65 ┆ 1435 0662 1226 jmp(pfne┆
0x8be0…8c00 69 63 29 20 6f 72 28 65 78 2c 77 72 6b 31 29 20 20 20 20 20 20 20 3b 20 65 78 20 3a 3d 20 77 72 ┆ic) or(ex,wrk1) ; ex := wr┆
0x8c00…8c20 6b 31 2e 0a 31 34 33 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆k1. 1436 ┆
0x8c20…8c40 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 67 6f 74 6f 20 ┆ ; goto ┆
0x8c40…8c60 70 66 6e 65 69 63 2e 0a 31 34 33 37 20 20 20 20 20 20 20 20 20 20 20 0a 31 34 33 38 20 20 20 20 ┆pfneic. 1437 1438 ┆
0x8c60…8c80 20 20 20 20 20 20 20 0a 31 34 33 39 20 20 20 20 20 20 20 20 20 20 20 0a 31 34 34 30 20 20 20 20 ┆ 1439 1440 ┆
0x8c80…8ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 6f 66 20 6d 69 63 72 6f 70 72 6f ┆ ; end of micropro┆
0x8ca0…8cc0 67 72 61 6d 0a 31 34 34 31 20 20 20 20 20 20 20 20 20 20 20 2a 65 6e 64 3a 20 20 20 0a 0a 20 20 ┆gram 1441 *end: ┆
0x8cc0…8ce0 20 39 35 20 20 20 35 36 20 20 20 37 30 20 20 33 20 75 6e 64 65 63 2e 20 6c 61 62 65 6c 20 6f 72 ┆ 95 56 70 3 undec. label or┆
0x8ce0…8d00 20 61 64 64 72 73 2e 20 0a 20 20 20 38 35 20 20 20 34 36 20 20 20 35 36 20 20 33 20 75 6e 64 65 ┆ addrs. 85 46 56 3 unde┆
0x8d00…8d20 63 2e 20 6c 61 62 65 6c 20 6f 72 20 61 64 64 72 73 2e 20 0a 20 20 20 38 34 20 20 20 34 35 20 20 ┆c. label or addrs. 84 45 ┆
0x8d20…8d40 20 35 35 20 20 33 20 75 6e 64 65 63 2e 20 6c 61 62 65 6c 20 6f 72 20 61 64 64 72 73 2e 20 0a 20 ┆ 55 3 undec. label or addrs. ┆
0x8d40…8d60 20 20 38 33 20 20 20 34 34 20 20 20 35 34 20 20 33 20 75 6e 64 65 63 2e 20 6c 61 62 65 6c 20 6f ┆ 83 44 54 3 undec. label o┆
0x8d60…8d80 72 20 61 64 64 72 73 2e 20 0a 20 20 20 38 32 20 20 20 34 33 20 20 20 35 33 20 20 33 20 75 6e 64 ┆r addrs. 82 43 53 3 und┆
0x8d80…8da0 65 63 2e 20 6c 61 62 65 6c 20 6f 72 20 61 64 64 72 73 2e 20 0a 4d 49 43 2e 20 41 53 4d 2e 20 53 ┆ec. label or addrs. MIC. ASM. S┆
0x8da0…8dc0 4f 52 52 59 21 20 20 20 35 20 65 72 72 6f 72 28 73 29 20 66 6f 75 6e 64 2e 20 20 36 36 33 20 31 ┆ORRY! 5 error(s) found. 663 1┆
0x8dc0…8de0 32 32 37 20 20 31 31 30 0a 00 19 00 6e 74 20 63 6c 77 72 30 31 20 20 20 20 20 20 20 20 20 20 20 ┆227 110 nt clwr01 ┆
0x8de0…8e00 20 20 20 20 20 20 20 20 3b 20 63 6c 65 61 72 20 77 72 69 74 65 20 72 65 61 64 79 20 66 72 6f 6d ┆ ; clear write ready from┆
0x8e00…8e20 20 68 63 32 39 30 31 2e 0a 31 34 33 32 20 20 20 20 20 20 20 20 20 20 20 0a 31 34 33 33 20 30 36 ┆ hc2901. 1432 1433 06┆
0x8e20…8e40 36 30 20 31 32 32 34 20 77 64 69 33 3a 20 20 20 63 6a 6d 70 28 72 65 32 39 30 31 2c 77 64 69 33 ┆60 1224 wdi3: cjmp(re2901,wdi3┆
0x8e40…8e60 29 20 69 6e 76 28 77 72 6b 31 2c 68 63 32 39 30 31 29 3b 20 77 61 69 74 20 66 6f 72 20 68 63 32 ┆) inv(wrk1,hc2901); wait for hc2┆
0x8e60…8e80 39 30 31 2c 20 77 72 6b 31 20 3a 3d 20 68 63 32 39 30 31 2e 0a 31 34 33 34 20 30 36 36 31 20 31 ┆901, wrk1 := hc2901. 1434 0661 1┆
0x8e80…8ea0 32 32 35 20 20 20 20 20 20 20 20 20 61 6e 64 28 77 72 6b 31 2c 37 29 20 20 20 20 20 20 20 20 20 ┆225 and(wrk1,7) ┆
0x8ea0…8ec0 20 20 20 20 20 20 20 20 20 20 3b 20 77 72 6b 31 20 3a 3d 20 77 72 6b 31 28 32 31 2e 32 33 29 2e ┆ ; wrk1 := wrk1(21.23).┆
0x8ec0…8ee0 0a 31 34 33 35 20 30 36 36 32 20 31 32 32 36 20 20 20 20 20 20 20 20 20 6a 6d 70 28 70 66 6e 65 ┆ 1435 0662 1226 jmp(pfne┆
0x8ee0…8f00 69 63 29 20 6f 72 28 65 78 2c 77 72 6b 31 29 20 20 20 20 20 20 20 3b 20 65 78 20 3a 3d 20 77 72 ┆ic) or(ex,wrk1) ; ex := wr┆
0x8f00…8f20 6b 31 2e 0a 31 34 33 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆k1. 1436 ┆
0x8f20…8f40 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 67 6f 74 6f 20 ┆ ; goto ┆
0x8f40…8f60 70 66 6e 65 69 63 2e 0a 31 34 33 37 20 20 20 20 20 20 20 20 20 20 20 0a 31 34 33 38 20 20 20 20 ┆pfneic. 1437 1438 ┆
0x8f60…8f80 20 20 20 20 20 20 20 0a 31 34 33 39 20 20 20 20 20 20 20 20 20 20 20 0a 31 34 34 30 20 20 20 20 ┆ 1439 1440 ┆
0x8f80…8fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 6f 66 20 6d 69 63 72 6f 70 72 6f ┆ ; end of micropro┆
0x8fa0…8fc0 67 72 61 6d 0a 31 34 34 31 20 20 20 20 20 20 20 20 20 20 20 2a 65 6e 64 3a 20 20 20 0a 0a 20 20 ┆gram 1441 *end: ┆
0x8fc0…8fe0 20 39 35 20 20 20 35 36 20 20 20 37 30 20 20 33 20 75 6e 64 65 63 2e 20 6c 61 62 65 6c 20 6f 72 ┆ 95 56 70 3 undec. label or┆
0x8fe0…9000 20 61 64 64 72 73 2e 20 0a 20 20 20 38 35 20 20 20 34 36 20 20 20 35 36 20 20 33 20 75 6e 64 65 ┆ addrs. 85 46 56 3 unde┆
0x9000…9020 (16,) 0a 3b 20 6d 61 73 6b 20 74 61 62 6c 65 20 73 70 65 63 69 66 79 69 6e 67 20 68 61 72 64 20 61 6e ┆ ; mask table specifying hard an┆
0x9020…9040 64 20 73 70 65 63 69 61 6c 20 65 72 72 6f 72 73 20 64 65 70 65 6e 64 69 6e 67 0a 3b 20 6f 6e 20 ┆d special errors depending ; on ┆
0x9040…9060 74 68 65 20 69 6e 64 65 78 20 73 65 6c 65 63 74 65 64 20 76 69 61 20 74 68 65 20 70 72 6f 63 65 ┆the index selected via the proce┆
0x9060…9080 73 73 20 6b 69 6e 64 0a 77 2e 20 20 0a 65 32 34 3a 20 20 38 2e 31 31 30 37 20 37 30 33 31 20 20 ┆ss kind w. e24: 8.1107 7031 ┆
0x9080…90a0 20 20 20 20 20 20 3b 20 20 20 30 3a 20 6d 74 0a 65 32 35 3a 20 20 38 2e 32 36 32 30 20 30 37 34 ┆ ; 0: mt e25: 8.2620 074┆
0x90a0…90c0 34 20 20 20 20 20 20 20 20 3b 20 20 20 0a 20 20 20 20 20 20 38 2e 37 36 37 37 20 37 33 37 35 20 ┆4 ; 8.7677 7375 ┆
0x90c0…90e0 20 20 20 20 20 20 20 3b 20 20 20 34 3a 20 68 61 72 64 20 65 72 72 6f 72 0a 20 20 20 20 20 20 38 ┆ ; 4: hard error 8┆
0x90e0…9100 2e 30 31 30 30 20 30 34 30 30 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 73 70 65 63 69 61 6c ┆.0100 0400 ; special┆
0x9100…9120 20 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 38 2e 37 32 37 37 20 37 33 33 31 20 20 20 20 20 20 20 ┆ action 8.7277 7331 ┆
0x9120…9140 20 3b 20 20 20 38 3a 20 62 61 63 6b 69 6e 67 20 73 74 6f 72 61 67 65 0a 20 20 20 20 20 20 38 2e ┆ ; 8: backing storage 8.┆
0x9140…9160 30 35 30 30 20 30 34 34 34 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 38 2e 32 37 35 37 20 ┆0500 0444 ; 8.2757 ┆
0x9160…9180 37 33 37 35 20 20 20 20 20 20 20 20 3b 20 20 31 32 3a 20 74 79 70 65 77 72 69 74 65 72 73 0a 20 ┆7375 ; 12: typewriters ┆
0x9180…91a0 20 20 20 20 20 38 2e 31 30 30 30 20 30 34 30 30 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 ┆ 8.1000 0400 ; ┆
0x91a0…91c0 38 2e 31 36 31 34 20 37 37 37 35 20 20 20 20 20 20 20 20 3b 20 20 31 36 3a 20 72 65 61 64 65 72 ┆8.1614 7775 ; 16: reader┆
0x91c0…91e0 73 0a 20 20 20 20 20 20 38 2e 30 31 30 30 20 30 30 30 30 20 20 20 20 20 20 20 20 3b 0a 20 20 20 ┆s 8.0100 0000 ; ┆
0x91e0…9200 20 20 20 38 2e 33 36 37 37 20 37 33 37 35 20 20 20 20 20 20 20 20 3b 20 20 32 30 3a 20 63 68 61 ┆ 8.3677 7375 ; 20: cha┆
0x9200…9220 72 20 6f 72 69 65 6e 74 65 64 20 6f 75 74 70 75 74 20 6d 65 64 69 61 0a 20 20 20 20 20 20 38 2e ┆r oriented output media 8.┆
0x9220…9240 31 31 30 30 20 30 34 30 30 20 20 20 20 20 20 20 20 3b 0a 65 32 38 3a 20 20 38 2e 37 37 37 37 20 ┆1100 0400 ; e28: 8.7777 ┆
0x9240…9260 34 37 37 37 20 20 20 20 20 20 20 20 3b 20 6f 66 66 69 63 69 61 6c 20 62 69 74 73 2e 0a 0a 3b 20 ┆4777 ; official bits. ; ┆
0x9260…9280 74 72 65 61 74 6d 65 6e 74 20 6f 66 20 73 74 61 74 75 73 20 62 69 74 73 20 66 6f 72 20 64 69 66 ┆treatment of status bits for dif┆
0x9280…92a0 66 65 72 65 6e 74 20 69 6e 64 69 63 65 73 2e 0a 3b 20 20 20 62 69 74 20 20 65 72 72 6f 72 20 20 ┆ferent indices. ; bit error ┆
0x92a0…92c0 20 20 20 20 20 20 20 68 61 72 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 70 65 ┆ hard spe┆
0x92c0…92e0 63 69 61 6c 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 20 20 34 20 20 38 20 ┆cial ; 0 4 8 ┆
0x92e0…9300 31 32 20 31 36 20 32 30 20 20 20 20 20 20 30 20 20 34 20 20 38 20 31 32 20 31 36 20 32 30 0a 3b ┆12 16 20 0 4 8 12 16 20 ;┆
0x9300…9320 20 20 20 20 30 20 20 20 6c 6f 63 61 6c 20 20 20 20 20 20 20 20 2a 20 20 2a 20 20 20 20 20 20 20 ┆ 0 local * * ┆
0x9320…9340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 3b 20 20 20 20 31 20 20 20 70 61 72 69 ┆ ; 1 pari┆
0x9340…9360 74 79 20 20 20 20 20 20 20 2a 20 20 2a 20 20 2a 20 20 20 20 20 2a 20 20 20 20 20 20 2a 20 20 20 ┆ty * * * * * ┆
0x9360…9380 20 20 20 20 20 20 20 20 20 20 20 20 0a 3b 20 20 20 20 32 20 20 20 74 69 6d 65 72 20 20 20 20 20 ┆ ; 2 timer ┆
0x9380…93a0 2a 20 20 2a 20 20 2a 20 20 20 20 20 2a 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a ┆* * * * * *┆
0x93a0…93c0 20 20 20 20 20 2a 0a 3b 20 20 20 20 33 20 20 20 6f 76 65 72 72 75 6e 20 20 20 20 20 20 2a 20 20 ┆ * ; 3 overrun * ┆
0x93c0…93e0 20 20 20 2a 20 20 2a 20 20 2a 20 20 20 20 20 20 2a 20 20 20 20 20 2a 20 20 20 20 20 20 0a 3b 20 ┆ * * * * * ; ┆
0x93e0…9400 20 20 20 34 20 20 20 62 6c 6f 63 6b 20 6c 2e 20 20 20 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 ┆ 4 block l. * * * * ┆
0x9400…9420 2a 20 20 20 20 20 20 2a 0a 3b 20 20 20 20 35 20 20 20 65 6e 64 20 64 6f 63 2e 20 20 2a 20 20 20 ┆* * ; 5 end doc. * ┆
0x9420…9440 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 2a 20 20 20 20 20 2a 20 ┆ * * * * ┆
0x9440…9460 20 2a 0a 3b 20 20 20 20 36 20 20 20 6c 6f 61 64 20 70 2e 20 20 20 20 20 20 2a 20 20 2a 20 20 2a ┆ * ; 6 load p. * * *┆
0x9460…9480 20 20 20 20 20 2a 20 20 20 20 20 20 0a 3b 20 20 20 20 37 20 20 20 74 61 70 65 20 6d 61 72 6b 20 ┆ * ; 7 tape mark ┆
0x9480…94a0 20 20 20 2a 20 20 2a 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 2a 0a 3b 20 20 20 20 38 20 20 ┆ * * * * ; 8 ┆
0x94a0…94c0 20 72 69 6e 67 20 20 20 20 20 20 20 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 20 20 20 ┆ ring * * * * * ┆
0x94c0…94e0 20 20 20 0a 3b 20 20 20 20 39 20 20 20 6d 6f 64 65 20 65 72 72 2e 20 2a 20 20 2a 20 20 2a 20 20 ┆ ; 9 mode err. * * * ┆
0x94e0…9500 2a 20 20 2a 20 20 2a 0a 3b 20 20 20 31 30 20 20 20 72 65 61 64 20 65 72 72 2e 20 2a 20 20 2a 20 ┆* * * ; 10 read err. * * ┆
0x9500…9520 20 2a 20 20 2a 20 20 20 20 20 2a 0a 3b 20 20 20 31 31 20 20 20 63 61 72 64 20 72 65 6a 2e 20 2a ┆ * * * ; 11 card rej. *┆
0x9520…9540 20 20 2a 20 20 2a 20 20 2a 20 20 20 20 20 2a 0a 3b 0a 3b 20 20 20 31 32 20 20 20 73 75 6d 20 65 ┆ * * * * ; ; 12 sum e┆
0x9540…9560 72 72 2e 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 0a 3b 20 20 20 31 33 20 20 20 20 ┆rr. * * * * * * ; 13 ┆
0x9560…9580 20 20 20 20 20 20 20 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 0a 3b 20 20 20 31 34 ┆ * * * * * * ; 14┆
0x9580…95a0 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 20 ┆ * * * * * * ┆
0x95a0…95c0 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 ┆ ┆
0x95c0…95e0 20 20 20 20 20 20 20 0a 3b 20 20 20 31 35 20 20 20 73 74 6f 70 20 20 20 20 20 20 20 20 20 20 20 ┆ ; 15 stop ┆
0x95e0…9600 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 20 20 20 ┆ * * * * * ┆
0x9600…9620 2a 0a 3b 20 20 20 31 36 20 20 20 64 65 66 65 63 74 20 20 20 20 20 20 20 2a 20 20 2a 20 20 2a 20 ┆* ; 16 defect * * * ┆
0x9620…9640 20 2a 20 20 2a 20 20 20 20 20 20 2a 0a 3b 20 20 20 31 37 20 20 20 70 6f 73 69 74 69 6f 6e 20 20 ┆ * * * ; 17 position ┆
0x9640…9660 20 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 20 20 20 20 2a 0a 3b 20 20 20 31 38 20 20 ┆ * * * * * * ; 18 ┆
0x9660…9680 20 6e 6f 6e 2d 65 78 69 73 74 20 20 20 20 2a 20 20 20 20 20 2a 20 20 2a 20 20 2a 20 20 20 20 20 ┆ non-exist * * * * ┆
0x9680…96a0 20 2a 20 20 20 20 20 2a 0a 3b 20 20 20 31 39 20 20 20 64 69 73 63 6f 6e 6e 2e 20 20 2a 20 20 2a ┆ * * ; 19 disconn. * *┆
0x96a0…96c0 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 20 20 20 20 0a 3b 20 20 20 32 30 20 20 20 75 6e 69 6e ┆ * * * * ; 20 unin┆
0x96c0…96e0 74 65 6c 6c 2e 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 0a 3b 20 20 20 32 31 20 20 20 ┆tell. * * * * * * ; 21 ┆
0x96e0…9700 72 65 6a 65 63 74 65 64 20 20 20 20 20 2a 20 20 20 20 20 2a 20 20 2a 20 20 2a 20 20 20 20 20 20 ┆rejected * * * * ┆
0x9700…9720 2a 20 20 20 20 20 2a 0a 3b 20 20 20 32 32 20 20 20 6e 6f 72 6d 61 6c 20 20 20 20 0a 3b 20 20 20 ┆* * ; 22 normal ; ┆
0x9720…9740 32 33 20 20 20 67 69 76 65 20 75 70 20 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 20 20 2a 0a ┆23 give up * * * * * * ┆
0x9740…9760 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 65 6e 64 20 ┆ e. ; end ┆
0x9760…9780 62 6c 6f 63 6b 20 69 6f 3b 0a 0a 0c 0a 0a 0c 0a 0a 3b 20 72 63 20 35 2e 36 2e 37 30 20 20 20 20 ┆block io; ; rc 5.6.70 ┆
0x9780…97a0 20 20 20 20 20 20 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 ┆ file processor, charac┆
0x97a0…97c0 74 65 72 20 69 6f 2c 20 70 61 67 65 20 2e 2e 2e 31 2e 2e 2e 0a 0a 3b 20 69 6e 70 75 74 2f 6f 75 ┆ter io, page ...1... ; input/ou┆
0x97c0…97e0 74 70 75 74 20 6f 6e 20 63 68 61 72 61 63 74 65 72 20 6c 65 76 65 6c 0a 3b 20 70 72 6f 63 65 64 ┆tput on character level ; proced┆
0x97e0…9800 75 72 65 73 20 20 69 6e 63 68 61 72 2c 20 6f 75 74 63 68 61 72 2c 20 6f 75 74 65 6e 64 2c 20 63 ┆ures inchar, outchar, outend, c┆
0x9800…9820 6c 6f 73 65 20 75 70 2e 0a 3b 20 72 65 67 69 73 74 65 72 73 20 20 20 20 20 20 20 20 20 69 6e 20 ┆lose up. ; registers in ┆
0x9820…9840 63 61 6c 6c 20 20 20 20 20 20 20 20 20 20 20 61 74 20 72 65 74 75 72 6e 0a 3b 20 20 20 77 30 20 ┆call at return ; w0 ┆
0x9840…9860 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 75 ┆ u┆
0x9860…9880 6e 63 68 61 6e 67 65 64 0a 3b 20 20 20 77 31 20 20 20 20 20 20 20 20 20 20 7a 6f 6e 65 20 64 65 ┆nchanged ; w1 zone de┆
0x9880…98a0 73 63 72 69 70 74 6f 72 20 20 20 20 7a 6f 6e 65 20 64 65 73 63 72 69 70 74 6f 72 0a 3b 20 20 20 ┆scriptor zone descriptor ; ┆
0x98a0…98c0 77 32 20 20 20 20 20 20 20 20 20 20 6f 75 74 3a 20 63 68 61 72 61 63 74 65 72 20 20 20 20 20 20 ┆w2 out: character ┆
0x98c0…98e0 69 6e 3a 20 63 68 61 72 61 63 74 65 72 0a 3b 20 20 20 77 33 20 20 20 20 20 20 20 20 20 20 20 20 ┆in: character ; w3 ┆
0x98e0…9900 20 20 20 6c 69 6e 6b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 0a 3b 20 61 66 74 ┆ link link ; aft┆
0x9900…9920 (17,) 65 72 20 6f 75 74 70 75 74 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 72 65 67 69 73 74 ┆er output the contents of regist┆
0x9920…9940 65 72 20 77 32 20 69 73 20 75 6e 64 65 66 69 6e 65 64 2e 0a 0a 62 2e 20 20 20 65 34 38 20 20 20 ┆er w2 is undefined. b. e48 ┆
0x9940…9960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 62 65 67 69 6e 0a 77 2e 20 20 20 20 20 20 20 20 ┆ ; begin w. ┆
0x9960…9980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 68 61 72 61 63 74 65 72 20 69 6f 3a 0a 3b ┆ ; character io: ;┆
0x9980…99a0 20 69 6e 63 68 61 72 3a 0a 20 20 20 20 20 20 61 6c 2e 20 77 31 20 20 68 32 30 2e 20 20 20 20 20 ┆ inchar: al. w1 h20. ┆
0x99a0…99c0 20 20 3b 20 28 2d 32 29 3a 20 20 7a 6f 6e 65 3a 3d 20 63 75 72 72 65 6e 74 20 69 6e 70 75 74 20 ┆ ; (-2): zone:= current input ┆
0x99c0…99e0 7a 6f 6e 65 3b 0a 68 32 35 3a 20 20 72 78 20 20 77 33 20 20 78 31 2b 68 32 2b 34 20 20 20 20 3b ┆zone; h25: rx w3 x1+h2+4 ;┆
0x99e0…9a00 20 69 6e 63 68 61 72 3a 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 20 30 20 20 20 20 20 20 20 ┆ inchar: al w2 0 ┆
0x9a00…9a20 20 20 3b 20 20 20 77 32 3a 3d 20 66 72 6f 6e 74 20 63 68 61 72 2e 70 61 72 74 69 61 6c 20 77 6f ┆ ; w2:= front char.partial wo┆
0x9a20…9a40 72 64 3b 0a 20 20 20 20 20 20 6c 64 20 20 77 33 20 20 20 38 20 20 20 20 20 20 20 20 20 3b 20 20 ┆rd; ld w3 8 ; ┆
0x9a40…9a60 20 70 61 72 74 69 61 6c 20 77 6f 72 64 3a 3d 20 70 61 72 74 69 61 6c 20 77 6f 72 64 20 73 68 69 ┆ partial word:= partial word shi┆
0x9a60…9a80 66 74 20 38 3b 0a 20 20 20 20 20 20 73 6e 20 20 77 33 20 20 20 30 20 20 20 20 20 20 20 20 20 3b ┆ft 8; sn w3 0 ;┆
0x9a80…9aa0 20 20 20 69 66 20 70 61 72 74 69 61 6c 20 77 6f 72 64 3d 30 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆ if partial word=0 then ┆
0x9aa0…9ac0 6a 6c 2e 20 20 20 20 20 65 31 2e 20 20 20 20 20 20 20 20 3b 20 20 20 6e 6f 20 6d 6f 72 65 3a 20 ┆jl. e1. ; no more: ┆
0x9ac0…9ae0 20 67 6f 74 6f 20 69 6e 77 6f 72 64 3b 0a 20 20 20 20 20 20 72 78 20 20 77 33 20 20 78 31 2b 68 ┆ goto inword; rx w3 x1+h┆
0x9ae0…9b00 32 2b 34 20 20 20 20 3b 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 6a 6c 20 20 20 20 20 ┆2+4 ; return; jl ┆
0x9b00…9b20 20 78 33 20 20 20 20 20 20 20 20 20 3b 0a 0a 65 31 3a 20 20 20 72 6c 20 20 77 33 20 20 78 31 2b ┆ x3 ; e1: rl w3 x1+┆
0x9b20…9b40 68 33 20 20 20 20 20 20 3b 20 69 6e 77 6f 72 64 3a 0a 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 ┆h3 ; inword: al w3 ┆
0x9b40…9b60 78 33 2b 32 20 20 20 20 20 20 20 3b 20 20 20 72 65 63 6f 72 64 20 62 61 73 65 20 3a 3d 20 72 65 ┆x3+2 ; record base := re┆
0x9b60…9b80 63 6f 72 64 20 62 61 73 65 20 2b 20 32 3b 0a 20 20 20 20 20 20 72 73 20 20 77 33 20 20 78 31 2b ┆cord base + 2; rs w3 x1+┆
0x9b80…9ba0 68 33 20 20 20 20 20 20 3b 20 74 65 73 74 20 65 6d 70 74 79 3a 0a 65 32 3a 20 20 20 73 6c 20 20 ┆h3 ; test empty: e2: sl ┆
0x9ba0…9bc0 77 33 20 28 78 31 2b 68 33 2b 32 29 20 20 20 3b 20 20 20 69 66 20 72 65 63 6f 72 64 20 62 61 73 ┆w3 (x1+h3+2) ; if record bas┆
0x9bc0…9be0 65 20 3e 3d 20 6c 61 73 74 20 62 79 74 65 20 74 68 65 6e 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 ┆e >= last byte then jl. ┆
0x9be0…9c00 20 20 65 36 2e 20 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 6e 65 78 74 20 62 6c 6f 63 6b ┆ e6. ; goto next block┆
0x9c00…9c20 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 33 2b 32 20 20 20 20 20 20 20 3b 20 20 20 70 ┆; rl w3 x3+2 ; p┆
0x9c20…9c40 61 72 74 69 61 6c 20 77 6f 72 64 20 3a 3d 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 30 20 20 ┆artial word := al w2 0 ┆
0x9c40…9c60 20 20 20 20 20 20 20 20 3b 20 20 20 20 72 65 63 6f 72 64 28 72 65 63 6f 72 64 20 62 61 73 65 2b ┆ ; record(record base+┆
0x9c60…9c80 32 29 3b 0a 20 20 20 20 20 20 6c 64 20 20 77 33 20 20 38 20 20 20 20 20 20 20 20 20 20 3b 20 20 ┆2); ld w3 8 ; ┆
0x9c80…9ca0 20 63 68 61 72 20 3a 3d 20 70 61 72 74 69 61 6c 20 77 6f 72 64 20 28 62 69 74 20 30 20 2d 20 37 ┆ char := partial word (bit 0 - 7┆
0x9ca0…9cc0 29 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 2b 31 20 20 20 20 20 20 20 3b 20 20 20 ┆); al w3 x3+1 ; ┆
0x9cc0…9ce0 70 61 72 74 69 61 6c 20 77 6f 72 64 20 3a 3d 20 70 61 72 74 69 61 6c 20 77 6f 72 64 0a 20 20 20 ┆partial word := partial word ┆
0x9ce0…9d00 20 20 20 72 78 20 20 77 33 20 20 78 31 2b 68 32 2b 34 20 20 20 20 3b 20 20 20 20 73 68 69 66 74 ┆ rx w3 x1+h2+4 ; shift┆
0x9d00…9d20 20 38 20 2b 20 65 6d 70 74 79 20 62 69 74 3b 0a 20 20 20 20 20 20 6a 6c 20 20 20 20 20 20 78 33 ┆ 8 + empty bit; jl x3┆
0x9d20…9d40 20 20 20 20 20 20 20 20 20 3b 20 20 20 72 65 74 75 72 6e 3b 0a 0a 65 36 3a 20 20 20 6a 6c 2e 20 ┆ ; return; e6: jl. ┆
0x9d40…9d60 77 33 20 20 68 32 32 2e 20 20 20 20 20 20 20 3b 20 6e 65 78 74 20 62 6c 6f 63 6b 3a 0a 20 20 20 ┆w3 h22. ; next block: ┆
0x9d60…9d80 20 20 20 72 6c 20 20 77 33 20 20 78 31 2b 68 33 20 20 20 20 20 20 3b 20 20 20 69 6e 62 6c 6f 63 ┆ rl w3 x1+h3 ; inbloc┆
0x9d80…9da0 6b 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 65 32 2e 20 20 20 20 20 20 20 20 3b 20 20 20 ┆k; jl. e2. ; ┆
0x9da0…9dc0 67 6f 74 6f 20 74 65 73 74 20 65 6d 70 74 79 3b 0a 0a 3b 20 6f 75 74 63 68 61 72 3a 0a 20 20 20 ┆goto test empty; ; outchar: ┆
0x9dc0…9de0 20 20 20 61 6c 2e 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 ┆ al. w1 h21. ; (-2): ┆
0x9de0…9e00 7a 6f 6e 65 3a 3d 20 63 75 72 72 65 6e 74 20 6f 75 74 70 75 74 20 7a 6f 6e 65 3b 0a 68 32 36 3a ┆zone:= current output zone; h26:┆
0x9e00…9e20 20 20 72 78 20 20 77 33 20 20 78 31 2b 68 32 2b 34 20 20 20 20 3b 20 6f 75 74 63 68 61 72 3a 0a ┆ rx w3 x1+h2+4 ; outchar: ┆
0x9e20…9e40 20 20 20 20 20 20 73 7a 2e 20 77 33 20 28 65 33 2e 29 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 ┆ sz. w3 (e3.) ; if ┆
0x9e40…9e60 6c 61 73 74 20 69 6e 20 70 61 72 74 69 61 6c 20 77 6f 72 64 0a 20 20 20 20 20 20 6a 6c 2e 20 20 ┆last in partial word jl. ┆
0x9e60…9e80 20 20 20 65 34 2e 20 20 20 20 20 20 20 20 3b 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 6f 75 74 77 ┆ e4. ; then goto outw┆
0x9e80…9ea0 6f 72 64 3b 0a 20 20 20 20 20 20 6c 73 20 20 77 33 20 20 20 38 20 20 20 20 20 20 20 20 20 3b 20 ┆ord; ls w3 8 ; ┆
0x9ea0…9ec0 20 20 70 61 72 74 69 61 6c 20 77 6f 72 64 3a 3d 20 63 68 61 72 61 63 74 65 72 0a 20 20 20 20 20 ┆ partial word:= character ┆
0x9ec0…9ee0 20 6c 6f 20 20 77 33 20 20 20 34 20 20 20 20 20 20 20 20 20 3b 20 20 20 2b 20 70 61 72 74 69 61 ┆ lo w3 4 ; + partia┆
0x9ee0…9f00 6c 20 77 6f 72 64 20 73 68 69 66 74 20 38 3b 0a 20 20 20 20 20 20 72 78 20 20 77 33 20 20 78 31 ┆l word shift 8; rx w3 x1┆
0x9f00…9f20 2b 68 32 2b 34 20 20 20 20 3b 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 6a 6c 20 20 20 ┆+h2+4 ; return; jl ┆
0x9f20…9f40 20 20 20 78 33 20 20 20 20 20 20 20 20 20 3b 0a 65 34 3a 20 20 20 6c 73 20 20 77 33 20 20 20 38 ┆ x3 ; e4: ls w3 8┆
0x9f40…9f60 20 20 20 20 20 20 20 20 20 3b 20 6f 75 74 77 6f 72 64 3a 20 20 70 61 72 74 69 61 6c 20 77 6f 72 ┆ ; outword: partial wor┆
0x9f60…9f80 64 3a 3d 0a 20 20 20 20 20 20 6c 6f 20 20 77 32 20 20 20 36 20 20 20 20 20 20 20 20 20 3b 20 20 ┆d:= lo w2 6 ; ┆
0x9f80…9fa0 20 70 61 72 74 69 61 6c 20 77 6f 72 64 20 73 68 69 66 74 20 38 20 2b 20 63 68 61 72 61 63 74 65 ┆ partial word shift 8 + characte┆
0x9fa0…9fc0 72 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 31 2b 68 33 20 20 20 20 20 20 3b 0a 20 20 ┆r; rl w3 x1+h3 ; ┆
0x9fc0…9fe0 20 20 20 20 61 6c 20 20 77 33 20 20 78 33 2b 32 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 ┆ al w3 x3+2 ; r┆
0x9fe0…a000 73 20 20 77 33 20 20 78 31 2b 68 33 20 20 20 20 20 20 3b 20 20 20 72 65 63 6f 72 64 20 62 61 73 ┆s w3 x1+h3 ; record bas┆
0xa000…a020 65 20 3a 3d 20 72 65 63 6f 72 64 20 62 61 73 65 20 2b 20 32 3b 0a 20 20 20 20 20 20 72 73 20 20 ┆e := record base + 2; rs ┆
0xa020…a040 77 32 20 20 78 33 20 20 20 20 20 20 20 20 20 3b 20 20 20 72 65 63 6f 72 64 28 72 65 63 6f 72 64 ┆w2 x3 ; record(record┆
0xa040…a060 20 62 61 73 65 29 20 3a 3d 20 70 61 72 74 69 61 6c 20 77 6f 72 64 3b 0a 20 20 20 20 20 20 61 6c ┆ base) := partial word; al┆
0xa060…a080 20 20 77 32 20 20 31 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 78 20 20 77 32 20 ┆ w2 1 ; rx w2 ┆
0xa080…a0a0 20 78 31 2b 68 32 2b 34 20 20 20 20 3b 20 20 20 70 61 72 74 69 61 6c 20 77 6f 72 64 20 3a 3d 20 ┆ x1+h2+4 ; partial word := ┆
0xa0a0…a0c0 31 3c 30 3b 20 28 65 6d 70 74 79 29 0a 20 20 20 20 20 20 72 78 20 20 77 32 20 20 36 20 20 20 20 ┆1<0; (empty) rx w2 6 ┆
0xa0c0…a0e0 20 20 20 20 20 20 3b 20 20 20 72 65 73 74 6f 72 65 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 20 20 ┆ ; restore return; ┆
0xa0e0…a100 73 6c 20 20 77 32 20 28 78 31 2b 68 33 2b 32 29 20 20 20 3b 20 20 20 69 66 20 72 65 63 6f 72 64 ┆sl w2 (x1+h3+2) ; if record┆
0xa100…a120 20 62 61 73 65 20 3e 3d 20 6c 61 73 74 20 62 79 74 65 20 74 68 65 6e 0a 20 20 20 20 20 20 6a 6c ┆ base >= last byte then jl┆
0xa120…a140 2e 20 20 20 20 20 68 32 33 2e 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 6f 75 74 62 6c 6f ┆. h23. ; goto outblo┆
0xa140…a160 63 6b 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 3b 20 20 ┆ck; jl x3 ; ┆
0xa160…a180 20 72 65 74 75 72 6e 3b 0a 0a 0a 0c 0a 0a 3b 20 72 63 20 32 36 2e 30 33 2e 37 33 20 20 20 20 20 ┆ return; ; rc 26.03.73 ┆
0xa180…a1a0 20 20 20 20 20 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 ┆ file processor, charact┆
0xa1a0…a1c0 65 72 20 69 6f 2c 20 70 61 67 65 20 2e 2e 2e 32 2e 2e 2e 0a 0a 65 33 3a 20 20 20 31 3c 31 36 20 ┆er io, page ...2... e3: 1<16 ┆
0xa1c0…a1e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6d 61 73 6b 20 66 6f 72 20 6c 61 73 74 20 69 6e ┆ ; mask for last in┆
0xa1e0…a200 20 70 61 72 74 69 61 6c 3b 0a 0a 3b 20 73 70 65 63 69 61 6c 20 65 6e 74 72 69 65 73 3a 0a 3b 20 ┆ partial; ; special entries: ; ┆
0xa200…a220 (18,) 69 6e 20 61 6c 6c 20 63 61 73 65 73 20 61 20 6a 75 6d 70 20 74 6f 20 74 68 65 20 77 6f 72 64 20 ┆in all cases a jump to the word ┆
0xa220…a240 6a 75 73 74 20 62 65 66 6f 72 65 20 74 68 65 20 6f 66 66 69 63 69 61 6c 20 65 6e 74 72 79 0a 3b ┆just before the official entry ;┆
0xa240…a260 20 77 69 6c 6c 20 73 65 6c 65 63 74 20 6f 6e 65 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 ┆ will select one of the current ┆
0xa260…a280 7a 6f 6e 65 73 20 61 73 20 74 68 65 20 7a 6f 6e 65 20 70 61 72 61 6d 65 74 65 72 20 69 6e 0a 3b ┆zones as the zone parameter in ;┆
0xa280…a2a0 20 77 31 2e 20 20 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 6f 75 74 65 6e 64 20 20 69 73 20 ┆ w1. the procedure outend is ┆
0xa2a0…a2c0 20 6f 66 74 65 6e 20 75 73 65 64 20 69 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 77 69 74 68 0a 3b ┆ often used in connection with ;┆
0xa2c0…a2e0 20 74 68 65 20 6e 75 6c 6c 20 61 6e 64 20 77 69 74 68 20 74 68 65 20 6e 6c 20 63 68 61 72 61 63 ┆ the null and with the nl charac┆
0xa2e0…a300 74 65 72 3b 20 74 68 65 72 65 66 6f 72 65 20 73 70 65 63 69 61 6c 20 65 6e 74 72 69 65 73 0a 3b ┆ter; therefore special entries ;┆
0xa300…a320 20 28 2d 36 20 20 61 6e 64 20 2d 34 29 20 61 72 65 20 70 72 6f 76 69 64 65 64 20 66 6f 72 20 74 ┆ (-6 and -4) are provided for t┆
0xa320…a340 68 6f 73 65 2e 20 20 63 75 72 72 65 6e 74 20 6f 75 74 70 75 74 20 7a 6f 6e 65 20 69 73 0a 3b 20 ┆hose. current output zone is ; ┆
0xa340…a360 61 6c 77 61 79 73 20 20 73 65 6c 65 63 74 65 64 20 77 68 65 6e 20 75 73 69 6e 67 20 74 68 65 20 ┆always selected when using the ┆
0xa360…a380 73 70 65 63 69 61 6c 20 65 6e 74 72 69 65 73 20 20 2d 36 20 61 6e 64 20 2d 34 2e 0a 0a 3b 20 6f ┆special entries -6 and -4. ; o┆
0xa380…a3a0 75 74 65 6e 64 3a 0a 68 35 39 3a 20 20 61 6d 20 20 20 20 20 20 2d 31 30 20 20 20 20 20 20 20 20 ┆utend: h59: am -10 ┆
0xa3a0…a3c0 3b 20 28 2d 36 29 3a 20 20 63 68 61 72 3a 3d 20 6e 75 6c 6c 0a 68 33 39 3a 20 20 61 6c 20 20 77 ┆; (-6): char:= null h39: al w┆
0xa3c0…a3e0 32 20 20 2b 31 30 20 20 20 20 20 20 20 20 3b 20 28 2d 34 29 3a 20 20 63 68 61 72 3a 3d 20 6e 6c ┆2 +10 ; (-4): char:= nl┆
0xa3e0…a400 0a 20 20 20 20 20 20 61 6c 2e 20 77 31 20 20 68 32 31 2e 20 20 20 20 20 20 20 3b 20 28 2d 32 29 ┆ al. w1 h21. ; (-2)┆
0xa400…a420 3a 20 20 7a 6f 6e 65 3a 3d 20 63 75 72 72 65 6e 74 20 6f 75 74 70 75 74 20 7a 6f 6e 65 3b 0a 68 ┆: zone:= current output zone; h┆
0xa420…a440 33 33 3a 20 20 72 73 2e 20 77 32 20 20 63 32 2e 20 20 20 20 20 20 20 20 3b 20 6f 75 74 65 6e 64 ┆33: rs. w2 c2. ; outend┆
0xa440…a460 3a 0a 20 20 20 20 20 20 62 7a 20 20 77 32 20 20 78 31 2b 68 31 2b 31 20 20 20 20 3b 20 20 20 69 ┆: bz w2 x1+h1+1 ; i┆
0xa460…a480 66 20 6b 69 6e 64 20 3c 3e 20 63 6f 6e 73 6f 6c 65 0a 20 20 20 20 20 20 73 65 20 20 77 32 20 20 ┆f kind <> console se w2 ┆
0xa480…a4a0 20 38 20 20 20 20 20 20 20 20 20 3b 20 20 20 6f 72 20 6b 69 6e 64 20 3c 3e 20 70 75 6e 63 68 0a ┆ 8 ; or kind <> punch ┆
0xa4a0…a4c0 20 20 20 20 20 20 73 6e 20 20 77 32 20 20 31 32 20 20 20 20 20 20 20 20 20 3b 20 20 20 6f 72 20 ┆ sn w2 12 ; or ┆
0xa4c0…a4e0 6b 69 6e 64 20 3c 3e 20 70 72 69 6e 74 65 72 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 65 38 ┆kind <> printer jl. e8┆
0xa4e0…a500 2e 20 20 20 20 20 20 20 20 3b 20 20 20 6f 72 20 6b 69 6e 64 20 3c 3e 20 69 6e 74 65 72 6e 61 6c ┆. ; or kind <> internal┆
0xa500…a520 20 70 72 6f 63 65 73 73 0a 20 20 20 20 20 20 73 65 20 20 77 32 20 20 31 34 20 20 20 20 20 20 20 ┆ process se w2 14 ┆
0xa520…a540 20 20 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 73 ┆ ; then goto outchar; s┆
0xa540…a560 6e 20 20 77 32 20 20 30 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 ┆n w2 0 ; jl. ┆
0xa560…a580 20 20 65 38 2e 20 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 61 64 6a 75 73 74 20 70 61 72 ┆ e8. ; goto adjust par┆
0xa580…a5a0 74 69 61 6c 3b 0a 20 20 20 20 20 20 72 6c 2e 20 77 32 20 20 63 32 2e 20 20 20 20 20 20 20 20 3b ┆tial; rl. w2 c2. ;┆
0xa5a0…a5c0 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 3b 0a 0a 3b 20 63 ┆ jl. w0 h26. ; ; c┆
0xa5c0…a5e0 6c 6f 73 65 20 75 70 3a 0a 63 33 37 3a 20 20 61 6c 20 20 77 32 20 20 31 30 20 20 20 20 20 20 20 ┆lose up: c37: al w2 10 ┆
0xa5e0…a600 20 20 3b 20 28 2d 34 29 3a 20 63 68 61 72 3a 3d 6e 6c 3b 0a 63 33 38 3a 20 20 61 6c 2e 20 77 31 ┆ ; (-4): char:=nl; c38: al. w1┆
0xa600…a620 20 20 68 32 31 2e 20 20 20 20 20 20 20 3b 20 28 2d 32 29 3a 20 20 7a 6f 6e 65 3a 3d 20 63 75 72 ┆ h21. ; (-2): zone:= cur┆
0xa620…a640 72 65 6e 74 20 6f 75 74 70 75 74 20 7a 6f 6e 65 3b 0a 68 33 34 3a 20 20 72 73 2e 20 77 32 20 20 ┆rent output zone; h34: rs. w2 ┆
0xa640…a660 63 32 2e 20 20 20 20 20 20 20 20 3b 20 63 6c 6f 73 65 20 75 70 3a 0a 65 38 3a 20 20 20 72 78 20 ┆c2. ; close up: e8: rx ┆
0xa660…a680 20 77 33 20 20 78 31 2b 68 32 2b 34 20 20 20 20 3b 20 61 64 6a 75 73 74 20 70 61 72 74 69 61 6c ┆ w3 x1+h2+4 ; adjust partial┆
0xa680…a6a0 20 77 6f 72 64 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 20 20 ┆ word: ld w3 8 ┆
0xa6a0…a6c0 3b 20 20 20 70 61 72 74 69 61 6c 20 77 6f 72 64 3a 3d 20 63 68 61 72 61 63 74 65 72 20 2b 0a 20 ┆; partial word:= character + ┆
0xa6c0…a6e0 20 20 20 20 20 6c 6f 2e 20 77 33 20 20 63 32 2e 20 20 20 20 20 20 20 20 3b 20 20 20 70 61 72 74 ┆ lo. w3 c2. ; part┆
0xa6e0…a700 69 61 6c 20 77 6f 72 64 20 73 68 69 66 74 20 38 3b 0a 20 20 20 20 20 20 73 6f 20 20 77 32 20 20 ┆ial word shift 8; so w2 ┆
0xa700…a720 32 2e 31 20 20 20 20 20 20 20 20 3b 20 20 20 6c 65 66 74 20 6a 75 73 74 69 66 79 20 28 70 61 72 ┆2.1 ; left justify (par┆
0xa720…a740 74 69 61 6c 20 77 6f 72 64 29 3b 0a 20 20 20 20 20 20 6c 64 20 20 77 33 20 20 20 38 20 20 20 20 ┆tial word); ld w3 8 ┆
0xa740…a760 20 20 20 20 20 3b 0a 20 20 20 20 20 20 73 6f 20 20 77 32 20 20 32 2e 31 20 20 20 20 20 20 20 20 ┆ ; so w2 2.1 ┆
0xa760…a780 3b 0a 20 20 20 20 20 20 6c 64 20 20 77 33 20 20 20 38 20 20 20 20 20 20 20 20 20 3b 0a 65 39 3a ┆; ld w3 8 ; e9:┆
0xa780…a7a0 20 20 20 61 6c 20 20 77 32 20 20 20 31 20 20 20 20 20 20 20 20 20 3b 20 61 64 6a 75 73 74 20 6d ┆ al w2 1 ; adjust m┆
0xa7a0…a7c0 65 73 73 61 67 65 3a 0a 20 20 20 20 20 20 77 61 20 20 77 32 20 20 78 31 2b 68 33 2b 30 20 20 20 ┆essage: wa w2 x1+h3+0 ┆
0xa7c0…a7e0 20 3b 20 20 20 72 65 63 20 62 61 73 65 3a 3d 20 72 65 63 20 62 61 73 65 2b 31 3b 0a 20 20 20 20 ┆ ; rec base:= rec base+1; ┆
0xa7e0…a800 20 20 72 73 20 20 77 33 20 20 78 32 2b 30 20 20 20 20 20 20 20 3b 20 20 20 77 6f 72 64 20 28 72 ┆ rs w3 x2+0 ; word (r┆
0xa800…a820 65 63 20 62 61 73 65 29 3a 3d 20 70 61 72 74 69 61 6c 20 77 6f 72 64 3b 0a 20 20 20 20 20 20 62 ┆ec base):= partial word; b┆
0xa820…a840 7a 20 20 77 33 20 20 78 31 2b 68 31 2b 31 20 20 20 20 3b 20 20 20 6c 61 73 74 20 61 64 64 72 2e ┆z w3 x1+h1+1 ; last addr.┆
0xa840…a860 75 73 65 64 20 73 68 61 72 65 3a 3d 0a 20 20 20 20 20 20 73 65 20 20 77 33 20 20 34 20 20 20 20 ┆used share:= se w3 4 ┆
0xa860…a880 20 20 20 20 20 20 3b 20 20 20 69 66 20 6b 69 6e 64 3d 62 73 0a 20 20 20 20 20 20 73 6e 20 20 77 ┆ ; if kind=bs sn w┆
0xa880…a8a0 33 20 20 31 38 20 20 20 20 20 20 20 20 20 3b 20 20 20 6f 72 20 6b 69 6e 64 3d 6d 74 0a 20 20 20 ┆3 18 ; or kind=mt ┆
0xa8a0…a8c0 20 20 20 61 6d 20 20 20 20 20 28 78 31 2b 68 30 2b 34 29 20 20 20 3b 20 20 20 74 68 65 6e 20 6c ┆ am (x1+h0+4) ; then l┆
0xa8c0…a8e0 61 73 74 2e 73 68 61 72 65 64 0a 20 20 20 20 20 20 72 6c 20 20 77 32 20 20 34 20 20 20 20 20 20 ┆ast.shared rl w2 4 ┆
0xa8e0…a900 20 20 20 20 3b 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 31 2b 68 30 ┆ ; else rl w3 x1+h0┆
0xa900…a920 2b 34 20 20 20 20 3b 20 20 20 72 65 63 6f 72 64 20 62 61 73 65 3b 0a 20 20 20 20 20 20 72 73 20 ┆+4 ; record base; rs ┆
0xa920…a940 20 77 32 20 20 78 33 2b 31 30 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 32 20 20 ┆ w2 x3+10 ; rl w2 ┆
0xa940…a960 78 33 2b 34 20 20 20 20 20 20 20 3b 20 20 20 77 32 3a 3d 6c 61 73 74 20 73 68 61 72 65 64 3b 0a ┆x3+4 ; w2:=last shared; ┆
0xa960…a980 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 68 32 33 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 ┆ jl. w3 h23. ; ┆
0xa980…a9a0 20 61 6d 20 20 20 20 20 28 78 31 2b 68 30 2b 34 29 20 20 20 3b 0a 20 20 20 20 20 20 72 73 20 20 ┆ am (x1+h0+4) ; rs ┆
0xa9a0…a9c0 77 32 20 20 31 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 6c 61 73 74 20 61 64 64 72 2e 6f 6c 64 ┆w2 10 ; last addr.old┆
0xa9c0…a9e0 20 75 73 65 64 20 73 68 61 72 65 20 3a 3d 0a 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 31 20 20 ┆ used share := al w3 1 ┆
0xa9e0…aa00 20 20 20 20 20 20 20 20 3b 20 20 20 6c 61 73 74 20 73 68 61 72 65 64 3b 0a 20 20 20 20 20 20 72 ┆ ; last shared; r┆
0xaa00…aa20 78 20 20 77 33 20 20 78 31 2b 68 32 2b 34 20 20 20 20 3b 20 20 20 70 61 72 74 69 61 6c 20 77 6f ┆x w3 x1+h2+4 ; partial wo┆
0xaa20…aa40 72 64 20 3a 3d 20 31 3c 30 3b 20 28 65 6d 70 74 79 29 0a 20 20 20 20 20 20 6a 6c 20 20 20 20 20 ┆rd := 1<0; (empty) jl ┆
0xaa40…aa60 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 0c 0a 0a 0a 0a 3b 20 ┆ x3 ; return; ; ┆
0xaa60…aa80 72 63 20 31 35 2e 36 2e 37 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 20 70 72 6f ┆rc 15.6.70 file pro┆
0xaa80…aaa0 63 65 73 73 6f 72 2c 20 63 68 61 72 61 63 74 65 72 20 69 6f 2c 20 70 61 67 65 20 2e 2e 2e 33 2e ┆cessor, character io, page ...3.┆
0xaaa0…aac0 2e 2e 0a 0a 3b 20 70 72 6f 63 65 64 75 72 65 73 20 6f 75 74 74 65 78 74 2c 20 6f 75 74 69 6e 74 ┆.. ; procedures outtext, outint┆
0xaac0…aae0 65 67 65 72 3b 0a 3b 20 72 65 67 69 73 74 65 72 73 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e ┆eger; ; registers in┆
0xaae0…ab00 20 63 61 6c 6c 20 20 20 20 20 20 20 20 20 20 61 74 20 72 65 74 75 72 6e 0a 3b 20 20 20 77 30 20 ┆ call at return ; w0 ┆
0xab00…ab20 (19,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 78 74 20 61 64 64 72 20 6f 72 20 76 61 6c 75 65 ┆ text addr or value┆
0xab20…ab40 20 20 64 65 73 74 72 6f 79 65 64 0a 3b 20 20 20 77 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ destroyed ; w1 ┆
0xab40…ab60 20 20 7a 6f 6e 65 20 64 65 73 63 72 69 70 74 6f 72 20 20 7a 6f 6e 65 20 64 65 73 63 72 69 70 74 ┆ zone descriptor zone descript┆
0xab60…ab80 6f 72 0a 3b 20 20 20 77 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆or ; w2 ┆
0xab80…aba0 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 63 68 61 6e 67 65 64 0a 3b 20 20 20 77 33 20 20 20 20 ┆ unchanged ; w3 ┆
0xaba0…abc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 6b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ link ┆
0xabc0…abe0 20 6c 69 6e 6b 0a 0a 3b 20 6f 75 74 74 65 78 74 0a 63 33 35 3a 20 20 61 6c 2e 20 77 31 20 20 68 ┆ link ; outtext c35: al. w1 h┆
0xabe0…ac00 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 20 63 75 72 72 65 ┆21. ; (-2): zone:= curre┆
0xac00…ac20 6e 74 20 6f 75 74 70 75 74 3b 0a 68 33 31 3a 20 20 64 73 2e 20 77 33 20 20 63 31 38 2e 20 20 20 ┆nt output; h31: ds. w3 c18. ┆
0xac20…ac40 20 20 20 20 3b 20 6f 75 74 74 65 78 74 3a 20 20 20 73 61 76 65 20 72 65 67 69 73 74 65 72 73 3b ┆ ; outtext: save registers;┆
0xac40…ac60 0a 65 31 31 3a 20 20 72 6c 20 20 77 33 20 20 28 30 29 20 20 20 20 20 20 20 20 3b 20 67 65 74 20 ┆ e11: rl w3 (0) ; get ┆
0xac60…ac80 74 65 78 74 20 77 6f 72 64 3a 0a 20 20 20 20 20 20 62 61 2e 20 77 30 20 20 31 20 20 20 20 20 20 ┆text word: ba. w0 1 ┆
0xac80…aca0 20 20 20 20 3b 20 20 20 70 61 72 74 69 61 6c 20 77 6f 72 64 20 3a 3d 20 77 6f 72 64 28 74 65 78 ┆ ; partial word := word(tex┆
0xaca0…acc0 74 20 61 64 64 72 29 3b 0a 20 20 20 20 20 20 62 61 2e 20 77 30 20 20 31 20 20 20 20 20 20 20 20 ┆t addr); ba. w0 1 ┆
0xacc0…ace0 20 20 3b 0a 20 20 20 20 20 20 72 73 2e 20 77 33 20 20 63 31 34 2e 20 20 20 20 20 20 20 3b 20 20 ┆ ; rs. w3 c14. ; ┆
0xace0…ad00 20 74 65 78 74 20 61 64 64 72 3a 3d 20 74 65 78 74 20 61 64 64 72 2b 32 3b 0a 20 20 20 20 20 20 ┆ text addr:= text addr+2; ┆
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 (20,) 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┆