|
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: 53760 (0xd200)
Types: Rc489kSubCat
Names: »diverse«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »diverse«
0x0000…0033 (0,) Rc489kSubCatEnt {f00=0x001653, f01=0x000050, f02=0x000059, filename=»tomprog «, entry_tail=0-4-0-1-1983-02-04T13:15-disc2-0x0-0x0-0x0-0x0}
0x0033…0066 Rc489kSubCatEnt {f00=0x0027d3, f01=0x000050, f02=0x000059, filename=»microwave «, entry_tail=0-4-0-16-1982-08-26T13:56-disc2-0x0-0x0-0x0-0x0}
0x0066…0099 Rc489kSubCatEnt {f00=0x01262b, f01=0x000050, f02=0x000059, filename=»bhave «, entry_tail=0-4-0-9-1982-07-14T10:19-disc2-0x0-0x0-0x0-0x0}
0x0099…00cc Rc489kSubCatEnt {f00=0x01b5ab, f01=0x000050, f02=0x000059, filename=»perq «, entry_tail=0-4-0-8-1982-07-13T11:56-disc2-0x0-0x0-0x0-0x0}
0x00cc…00ff Rc489kSubCatEnt {f00=0x0236d3, f01=0x000050, f02=0x000059, filename=»vejfest «, entry_tail=0-4-0-5-1982-05-08T17:03-disc2-0x0-0x0-0x0-0x0}
0x00ff…0132 Rc489kSubCatEnt {f00=0x028a0a, f01=0x000050, f02=0x000059, filename=»ans0 «, entry_tail=0-4-0-4-1982-04-24T17:02-disc2-0x0-0x0-0x0-0x0}
0x0132…0165 Rc489kSubCatEnt {f00=0x02c56a, f01=0x000050, f02=0x000059, filename=»jørgen «, entry_tail=0-4-0-7-1982-05-07T16:30-disc2-0x0-0x0-0x0-0x0}
0x0165…0198 Rc489kSubCatEnt {f00=0x033028, f01=0x000050, f02=0x000050, filename=»ans1 «, entry_tail=0-4-0-4-1982-05-07T16:24-disc2-0x0-0x0-0x0-0x0}
0x0198…01cb Rc489kSubCatEnt {f00=0x0373e3, f01=0x000050, f02=0x000059, filename=»ans «, entry_tail=0-4-0-4-1982-04-24T17:02-disc3-0x0-0x0-0x0-0x0}
0x01cb…01fe Rc489kSubCatEnt {f00=0x03b4db, f01=0x000050, f02=0x000059, filename=»søren «, entry_tail=0-4-0-3-1981-12-22T12:13-disc2-0x0-0x0-0x0-0x0}
0x01fe…0231 Rc489kSubCatEnt {f00=0x03e143, f01=0x000050, f02=0x000059, filename=»fux0 «, entry_tail=0-4-0-3-1981-09-08T16:30-disc2-0x0-0x0-0x0-0x0}
0x0231…0240 00 00 00 00 00 01 00 00 00 2a 76 65 72 73 69 ┆ *versi┆
0x0240…0260 6f 6e 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 29 a4 00 c0 04 00 00 1b 00 00 ┆on ) ┆
0x0260…0280 00 00 00 00 00 00 00 00 00 00 8a bd 39 80 c0 e2 00 00 00 00 29 a4 00 0b 34 00 81 34 00 80 f4 00 ┆ 9 ) 4 4 ┆
0x0280…02a0 0c 0c 00 0b 1e 00 0e 16 00 0e 26 00 0e 28 00 0e 2a 00 80 28 00 0d 40 00 0d 4e 00 06 3d 00 06 3e ┆ & ( * ( @ N = >┆
0x02a0…02c0 00 06 40 00 06 42 00 06 44 00 0e 4e 00 0e 50 00 0e 52 00 0e 54 00 0e 5e 00 06 48 00 06 4a 00 06 ┆ @ B D N P R T ^ H J ┆
0x02c0…02e0 4c 00 0e 56 00 01 68 00 01 9a 00 0c 26 00 0e 58 00 06 50 00 06 54 00 91 b2 00 a0 28 00 a0 2a 00 ┆L V h & X P T ( * ┆
0x02e0…02fd a0 2c 00 b1 b2 00 06 46 00 06 36 00 06 fc 00 06 24 00 06 32 00 06 00 00 90 22 00 90 6c ┆ , F 6 $ 2 " l┆
0x02fd…0300 0x00000b
0x0300…0600 Data for tomprog
0x0600…3600 Data for microwave
0x3600…5100 Data for bhave
0x5100…6900 Data for perq
0x6900…7800 Data for vejfest
0x7800…8400 (10,) Data for ans0
0x8400…9900 (11,) Data for jørgen
0x9900…a500 Data for ans1
0xa500…b100 Data for ans
0xb100…ba00 Data for søren
0xba00…c300 Data for fux0
0xc300…c320 32 2e 20 20 20 20 3b 20 67 6f 74 6f 20 73 74 6f 72 65 20 63 6f 6e 74 72 6f 6c 2c 20 72 65 73 65 ┆2. ; goto store control, rese┆
0xc320…c340 74 20 65 78 70 61 6e 64 20 63 6f 75 6e 74 65 72 0a 20 31 36 32 38 20 20 31 39 36 32 20 20 20 20 ┆t expand counter 1628 1962 ┆
0xc340…c360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 6e 64 20 72 65 74 75 72 ┆ ; and retur┆
0xc360…c380 6e 20 74 6f 20 6e 65 78 74 20 63 6f 6d 70 6f 73 69 74 65 2e 0a 20 31 36 32 39 20 20 31 39 36 32 ┆n to next composite. 1629 1962┆
0xc380…c3a0 20 20 20 20 20 3b 20 73 7a 20 20 20 77 31 20 20 20 20 67 32 33 20 20 20 20 3b 20 69 66 20 6e 6f ┆ ; sz w1 g23 ; if no┆
0xc3a0…c3c0 74 20 69 6e 20 63 6f 72 72 65 63 74 20 6d 6f 64 65 20 28 62 69 74 20 38 29 20 74 68 65 6e 20 73 ┆t in correct mode (bit 8) then s┆
0xc3c0…c3e0 6b 69 70 20 73 74 6f 72 65 20 2e 0a 20 31 36 33 30 20 20 31 39 36 32 20 20 20 20 3b 20 20 20 72 ┆kip store . 1630 1962 ; r┆
0xc3e0…c400 73 2e 20 20 77 31 20 20 20 66 31 30 31 2e 20 20 20 20 3b 20 63 6c 65 61 72 20 61 6c 6c 20 66 6c ┆s. w1 f101. ; clear all fl┆
0xc400…c420 61 67 20 62 69 74 73 20 66 31 30 31 2e 0a 20 31 36 33 31 20 20 31 39 36 32 20 20 20 20 3b 20 20 ┆ag bits f101. 1631 1962 ; ┆
0xc420…c440 72 6c 20 20 77 31 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 77 31 20 3a 3d 20 63 75 72 3b 0a 20 ┆rl w1 0 ; w1 := cur; ┆
0xc440…c460 31 36 33 32 20 20 31 39 36 32 20 20 20 20 3b 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 68 39 2e 20 ┆1632 1962 ; jl. h9. ┆
0xc460…c480 20 20 20 3b 20 67 6f 74 6f 20 74 61 6b 65 20 6e 65 78 74 20 63 6f 6d 70 0a 20 31 36 33 33 20 20 ┆ ; goto take next comp 1633 ┆
0xc480…c4a0 31 39 36 32 20 20 68 32 38 3a 20 73 6e 2e 20 77 32 20 20 20 20 28 66 33 37 2e 29 20 20 3b 20 20 ┆1962 h28: sn. w2 (f37.) ; ┆
0xc4a0…c4c0 20 69 66 20 62 79 74 65 20 3d 20 6e 75 6d 20 63 68 61 72 20 74 68 65 6e 20 65 78 69 74 28 72 65 ┆ if byte = num char then exit(re┆
0xc4c0…c4e0 74 75 72 6e 29 3b 0a 20 31 36 33 34 20 20 31 39 36 34 20 20 20 20 20 20 20 6a 6c 20 20 20 20 20 ┆turn); 1634 1964 jl ┆
0xc4e0…c500 20 78 33 2b 31 30 20 20 20 20 20 3b 0a 20 31 36 33 35 20 20 31 39 36 36 20 20 20 20 20 20 20 20 ┆ x3+10 ; 1635 1966 ┆
0xc500…c520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 72 61 73 69 6e 67 3a 0a 20 31 36 33 ┆ ; erasing: 163┆
0xc520…c540 36 20 20 31 39 36 36 20 20 20 20 20 20 20 72 6c 2e 20 77 31 20 20 20 20 20 66 31 30 31 2e 20 20 ┆6 1966 rl. w1 f101. ┆
0xc540…c560 3b 20 20 20 69 66 20 66 6c 61 67 20 62 69 74 20 39 20 20 69 73 20 73 65 74 0a 20 31 36 33 37 20 ┆; if flag bit 9 is set 1637 ┆
0xc560…c580 20 31 39 36 38 20 20 20 20 20 20 20 73 7a 20 20 77 31 20 20 20 20 20 67 32 32 20 20 20 20 3b 20 ┆ 1968 sz w1 g22 ; ┆
0xc580…c5a0 20 20 74 68 65 6e 0a 20 31 36 33 38 20 20 31 39 37 30 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 ┆ then 1638 1970 jl. ┆
0xc5a0…c5c0 20 20 20 20 68 33 33 2e 20 20 20 3b 20 20 20 67 6f 74 6f 20 72 65 6d 6f 76 65 20 61 6e 64 20 63 ┆ h33. ; goto remove and c┆
0xc5c0…c5e0 6f 6d 70 72 65 73 73 2e 0a 20 31 36 33 39 20 20 31 39 37 32 20 20 20 20 20 20 20 72 6c 20 20 77 ┆ompress. 1639 1972 rl w┆
0xc5e0…c600 31 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 77 31 20 3a 3d 20 63 75 72 3b 0a 20 31 36 34 ┆1 0 ; w1 := cur; 164┆
0xc600…c620 30 20 20 31 39 37 34 20 20 68 33 35 3a 20 61 6c 20 20 77 30 20 20 20 20 20 67 34 20 20 20 20 20 ┆0 1974 h35: al w0 g4 ┆
0xc620…c640 3b 2a 2a 20 62 79 74 65 20 3a 3d 20 3c 73 70 3e 3b 0a 20 31 36 34 31 20 20 31 39 37 36 20 20 20 ┆;** byte := <sp>; 1641 1976 ┆
0xc640…c660 20 20 20 20 61 6c 20 20 77 32 20 20 78 31 20 20 20 20 20 20 20 20 3b 20 20 20 63 75 72 31 20 3a ┆ al w2 x1 ; cur1 :┆
0xc660…c680 3d 20 63 75 72 3b 0a 20 31 36 34 32 20 20 31 39 37 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆= cur; 1642 1978 ┆
0xc680…c6a0 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 74 65 70 20 64 69 73 74 61 6e 63 65 3a 0a 20 31 36 34 ┆ ; step distance: 164┆
0xc6a0…c6c0 33 20 20 31 39 37 38 20 20 68 32 33 3a 20 62 6c 20 20 77 33 20 20 78 32 2b 31 20 20 20 20 20 20 ┆3 1978 h23: bl w3 x2+1 ┆
0xc6c0…c6e0 3b 20 20 20 62 79 74 65 31 20 3a 3d 20 62 79 74 65 28 63 75 72 31 20 2b 20 31 29 3b 0a 20 31 36 ┆; byte1 := byte(cur1 + 1); 16┆
0xc6e0…c700 34 34 20 20 31 39 38 30 20 20 20 20 20 20 20 73 7a 20 20 77 33 20 20 20 20 67 32 31 2b 67 32 32 ┆44 1980 sz w3 g21+g22┆
0xc700…c720 20 3b 20 20 20 69 66 20 62 79 74 65 31 20 3c 3e 20 28 3c 6e 6f 6e 67 72 3e 20 6f 72 20 3c 63 6f ┆ ; if byte1 <> (<nongr> or <co┆
0xc720…c740 6d 70 3e 29 0a 20 31 36 34 35 20 20 31 39 38 32 20 20 20 20 20 20 20 73 6e 2e 20 77 32 20 20 20 ┆mp>) 1645 1982 sn. w2 ┆
0xc740…c760 20 28 66 33 35 2e 29 20 20 3b 20 20 20 6f 72 20 63 75 72 31 20 3d 20 62 6f 74 74 6f 6d 0a 20 31 ┆ (f35.) ; or cur1 = bottom 1┆
0xc760…c780 36 34 36 20 20 31 39 38 34 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 68 32 34 2e 20 ┆646 1984 jl. h24. ┆
0xc780…c7a0 20 20 3b 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 6d 6f 76 65 3b 0a 20 31 36 34 37 20 20 31 39 38 ┆ ; then goto move; 1647 198┆
0xc7a0…c7c0 36 20 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 32 2b 31 20 20 20 20 20 20 3b 20 20 20 63 75 ┆6 al w2 x2+1 ; cu┆
0xc7c0…c7e0 72 31 20 3a 3d 20 63 75 72 31 20 2b 20 31 3b 0a 20 31 36 34 38 20 20 31 39 38 38 20 20 20 20 20 ┆r1 := cur1 + 1; 1648 1988 ┆
0xc7e0…c800 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 68 32 33 2e 20 20 20 3b 20 20 20 67 6f 74 6f 20 73 74 65 ┆ jl. h23. ; goto ste┆
0xc800…c820 70 20 64 69 73 74 61 6e 63 65 3b 0a 20 31 36 34 39 20 20 31 39 39 30 20 20 20 20 20 20 20 20 20 ┆p distance; 1649 1990 ┆
0xc820…c840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6d 6f 76 65 3a 0a 20 31 36 35 30 20 20 31 ┆ ; move: 1650 1┆
0xc840…c860 39 39 30 20 20 68 32 34 3a 20 61 6c 20 20 77 33 20 20 78 31 20 20 20 20 20 20 20 20 3b 20 20 20 ┆990 h24: al w3 x1 ; ┆
0xc860…c880 0a 20 31 36 35 31 20 20 31 39 39 32 20 20 20 20 20 20 20 77 73 20 20 77 33 20 20 20 20 20 34 20 ┆ 1651 1992 ws w3 4 ┆
0xc880…c8a0 20 20 20 20 20 3b 20 20 20 64 69 73 74 61 6e 63 65 20 3a 3d 20 63 75 72 20 2d 20 63 75 72 31 3b ┆ ; distance := cur - cur1;┆
0xc8a0…c8c0 0a 20 31 36 35 32 20 20 31 39 39 34 20 20 20 20 20 20 20 68 73 2e 20 77 33 20 20 20 20 20 69 31 ┆ 1652 1994 hs. w3 i1┆
0xc8c0…c8e0 2e 20 20 20 20 3b 0a 20 31 36 35 33 20 20 31 39 39 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆. ; 1653 1996 ┆
0xc8e0…c900 20 20 20 20 20 20 20 20 20 20 20 3b 20 74 65 73 74 20 6d 6f 76 65 3a 0a 20 31 36 35 34 20 20 31 ┆ ; test move: 1654 1┆
0xc900…c920 39 39 36 20 20 68 32 39 3a 20 73 6e 2e 20 77 32 20 20 20 20 28 66 33 35 2e 29 20 20 3b 20 20 20 ┆996 h29: sn. w2 (f35.) ; ┆
0xc920…c940 69 66 20 63 75 72 31 20 3d 20 62 6f 74 74 6f 6d 0a 20 31 36 35 35 20 20 31 39 39 38 20 20 20 20 ┆if cur1 = bottom 1655 1998 ┆
0xc940…c960 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 68 33 30 2e 20 20 20 3b 20 20 20 74 68 65 6e 20 67 6f ┆ jl. h30. ; then go┆
0xc960…c980 74 6f 20 73 65 74 20 6e 65 77 20 62 6f 74 74 6f 6d 3b 0a 20 31 36 35 36 20 20 32 30 30 30 20 20 ┆to set new bottom; 1656 2000 ┆
0xc980…c9a0 20 20 20 20 20 61 6c 20 20 77 32 20 20 78 32 2b 31 20 20 20 20 20 20 3b 20 20 20 63 75 72 31 20 ┆ al w2 x2+1 ; cur1 ┆
0xc9a0…c9c0 3a 3d 20 63 75 72 31 20 2b 20 31 3b 0a 20 31 36 35 37 20 20 32 30 30 32 20 20 20 20 20 20 20 62 ┆:= cur1 + 1; 1657 2002 b┆
0xc9c0…c9e0 6c 20 20 77 33 20 20 78 32 20 20 20 20 20 20 20 20 3b 0a 20 31 36 35 38 20 20 32 30 30 34 20 20 ┆l w3 x2 ; 1658 2004 ┆
0xc9e0…ca00 69 31 20 3d 20 6b 2b 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e 74 65 67 65 72 ┆i1 = k+1 ; integer┆
0xca00…ca20 20 64 69 73 74 61 6e 63 65 3a 0a 20 31 36 35 39 20 20 32 30 30 34 20 20 20 20 20 20 20 68 73 20 ┆ distance: 1659 2004 hs ┆
0xca20…ca40 20 77 33 20 20 78 32 2b 30 20 20 20 20 20 20 3b 20 20 20 62 79 74 65 28 63 75 72 31 20 2b 20 64 ┆ w3 x2+0 ; byte(cur1 + d┆
0xca40…ca60 69 73 74 61 6e 63 65 29 20 3a 3d 20 62 79 74 65 28 63 75 72 31 29 3b 0a 20 31 36 36 30 20 20 32 ┆istance) := byte(cur1); 1660 2┆
0xca60…ca80 30 30 36 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 68 32 39 2e 20 20 20 3b 20 20 20 ┆006 jl. h29. ; ┆
0xca80…caa0 67 6f 74 6f 20 74 65 73 74 20 6d 6f 76 65 3b 0a 20 31 36 36 31 20 20 32 30 30 38 20 20 20 20 20 ┆goto test move; 1661 2008 ┆
0xcaa0…cac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 65 74 20 6e 65 77 20 62 6f ┆ ; set new bo┆
0xcac0…cae0 74 74 6f 6d 3a 0a 20 31 36 36 32 20 20 32 30 30 38 20 20 68 33 30 3a 20 62 61 2e 20 77 32 20 20 ┆ttom: 1662 2008 h30: ba. w2 ┆
0xcae0…cb00 20 20 20 69 31 2e 20 20 20 20 3b 20 20 20 62 6f 74 74 6f 6d 20 3a 3d 20 62 6f 74 74 6f 6d 20 2b ┆ i1. ; bottom := bottom +┆
0xcb00…cb20 20 64 69 73 74 61 6e 63 65 3b 0a 20 31 36 36 33 20 20 32 30 31 30 20 20 20 20 20 20 20 72 73 2e ┆ distance; 1663 2010 rs.┆
0xcb20…cb40 20 77 32 20 20 20 20 20 66 33 35 2e 20 20 20 3b 0a 20 31 36 36 34 20 20 32 30 31 32 20 20 20 20 ┆ w2 f35. ; 1664 2012 ┆
0xcb40…cb60 20 20 20 73 6e 20 20 77 31 20 20 78 32 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 63 75 72 20 ┆ sn w1 x2 ; if cur ┆
0xcb60…cb80 3d 20 62 6f 74 74 6f 6d 0a 20 31 36 36 35 20 20 32 30 31 34 20 20 20 20 20 20 20 6a 6c 2e 20 20 ┆= bottom 1665 2014 jl. ┆
0xcb80…cba0 20 20 20 20 20 20 68 33 2e 20 20 20 20 3b 20 20 20 74 68 65 6e 20 67 6f 74 6f 20 73 74 6f 72 65 ┆ h3. ; then goto store┆
0xcba0…cbc0 3b 0a 20 31 36 36 36 20 20 32 30 31 36 20 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2b 31 ┆; 1666 2016 al w1 x1+1┆
0xcbc0…cbe0 20 20 20 20 20 20 3b 20 20 20 63 75 72 20 3a 3d 20 63 75 72 20 2b 20 31 3b 0a 20 31 36 36 37 20 ┆ ; cur := cur + 1; 1667 ┆
0xcbe0…cc00 20 32 30 31 38 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 68 31 38 2e 20 20 20 3b 20 ┆ 2018 jl. h18. ; ┆
0xcc00…cc20 (17,) 20 20 67 6f 74 6f 20 73 74 6f 72 65 20 63 6f 6d 70 3b 0a 20 31 36 36 38 20 20 32 30 32 30 20 20 ┆ goto store comp; 1668 2020 ┆
0xcc20…cc40 68 33 33 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 65 6d 6f 76 65 20 ┆h33: ; remove ┆
0xcc40…cc60 61 6e 64 20 63 6f 6d 70 72 65 73 73 3a 0a 20 31 36 36 39 20 20 32 30 32 30 20 20 20 20 20 20 20 ┆and compress: 1669 2020 ┆
0xcc60…cc80 72 6c 20 20 77 31 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 20 20 77 31 20 3a 3d 20 63 75 72 3b ┆rl w1 0 ; w1 := cur;┆
0xcc80…cca0 0a 20 31 36 37 30 20 20 32 30 32 32 20 20 20 20 20 20 20 73 6c 2e 20 77 31 20 20 20 20 28 66 33 ┆ 1670 2022 sl. w1 (f3┆
0xcca0…ccc0 35 2e 29 20 20 3b 20 69 66 20 63 75 72 20 3c 62 6f 74 74 6f 6d 20 67 6f 74 6f 20 69 6e 73 65 72 ┆5.) ; if cur <bottom goto inser┆
0xccc0…cce0 74 20 73 70 61 63 65 2e 0a 20 31 36 37 31 20 20 32 30 32 34 20 20 20 20 20 20 20 6a 6c 2e 20 20 ┆t space. 1671 2024 jl. ┆
0xcce0…cd00 20 20 20 20 20 20 68 33 35 2e 20 20 20 3b 20 20 20 72 65 70 65 61 74 20 20 20 20 20 20 20 20 20 ┆ h35. ; repeat ┆
0xcd00…cd20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 20 31 36 37 32 20 20 32 30 32 36 ┆ 1672 2026┆
0xcd20…cd40 20 20 68 33 34 3a 20 61 6c 20 20 77 31 20 20 78 31 2b 31 20 20 20 20 20 20 3b 20 63 75 72 20 3a ┆ h34: al w1 x1+1 ; cur :┆
0xcd40…cd60 3d 20 63 75 72 20 2b 20 31 0a 20 31 36 37 33 20 20 32 30 32 38 20 20 20 20 20 20 20 62 6c 20 20 ┆= cur + 1 1673 2028 bl ┆
0xcd60…cd80 77 33 20 20 78 31 2b 31 20 20 20 20 20 20 3b 20 20 20 20 63 6f 6d 70 72 65 73 73 3a 20 67 65 74 ┆w3 x1+1 ; compress: get┆
0xcd80…cda0 20 63 75 72 20 2b 20 31 0a 20 31 36 37 34 20 20 32 30 33 30 20 20 20 20 20 20 20 68 73 20 20 77 ┆ cur + 1 1674 2030 hs w┆
0xcda0…cdc0 33 20 20 78 31 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 73 74 6f 72 65 20 63 75 72 2b 31 20 69 ┆3 x1 ; store cur+1 i┆
0xcdc0…cde0 6e 20 63 75 72 0a 20 31 36 37 35 20 20 32 30 33 32 20 20 20 20 20 20 20 73 65 2e 20 77 31 20 20 ┆n cur 1675 2032 se. w1 ┆
0xcde0…ce00 20 20 20 28 66 33 35 2e 29 20 3b 20 75 6e 74 69 6c 20 63 75 72 20 3d 20 62 6f 74 74 6f 6d 2e 0a ┆ (f35.) ; until cur = bottom. ┆
0xce00…ce20 20 31 36 37 36 20 20 32 30 33 34 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 68 33 34 ┆ 1676 2034 jl. h34┆
0xce20…ce40 2e 20 20 20 3b 20 20 20 65 6e 64 3b 0a 20 31 36 37 37 20 20 32 30 33 36 20 20 20 20 20 20 20 20 ┆. ; end; 1677 2036 ┆
0xce40…ce60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 65 74 20 6e 65 77 20 62 6f 74 74 6f ┆ ; set new botto┆
0xce60…ce80 6d 20 61 6e 64 20 72 65 74 75 72 6e 2e 0a 20 31 36 37 38 20 20 32 30 33 36 20 20 20 20 20 20 20 ┆m and return. 1678 2036 ┆
0xce80…cea0 61 6c 20 20 77 31 20 20 20 20 20 78 31 2d 31 0a 20 31 36 37 39 20 20 32 30 33 38 20 20 20 20 20 ┆al w1 x1-1 1679 2038 ┆
0xcea0…cec0 20 20 72 73 2e 20 77 31 20 20 20 20 20 66 33 35 2e 20 20 20 3b 0a 20 31 36 38 30 20 20 32 30 34 ┆ rs. w1 f35. ; 1680 204┆
0xcec0…cee0 30 20 20 20 20 20 20 20 72 6c 20 20 77 31 20 20 20 20 20 30 20 20 20 20 20 20 3b 20 77 31 20 3a ┆0 rl w1 0 ; w1 :┆
0xcee0…cf00 3d 20 63 75 72 3b 0a 20 31 36 38 31 20 20 32 30 34 32 20 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 ┆= cur; 1681 2042 jl. ┆
0xcf00…cf20 20 20 20 20 68 39 2e 20 20 20 20 3b 20 67 6f 74 20 6e 65 78 74 20 63 6f 6d 70 3b 0a 20 31 36 38 ┆ h9. ; got next comp; 168┆
0xcf20…cf40 32 20 20 32 30 34 34 20 20 0a 20 31 36 38 32 20 20 32 30 34 34 20 20 65 2e 20 20 20 20 20 20 20 ┆2 2044 1682 2044 e. ┆
0xcf40…cf60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 73 70 65 63 69 61 6c 3b 0a 20 31 36 ┆ ; end special; 16┆
0xcf60…cf80 38 33 20 20 32 30 34 34 20 20 65 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆83 2044 e. ┆
0xcf80…cfa0 20 3b 20 65 6e 64 20 69 6e 70 75 74 20 6c 69 6e 65 3b 0a 20 31 36 38 34 20 20 32 30 34 34 20 20 ┆ ; end input line; 1684 2044 ┆
0xcfa0…cfc0 0c 0a 20 31 36 38 34 20 20 32 30 34 34 20 20 0a 20 31 36 38 34 20 20 32 30 34 34 20 20 3b 20 72 ┆ 1684 2044 1684 2044 ; r┆
0xcfc0…cfe0 63 20 37 36 2e 30 35 2e 31 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆c 76.05.17 ┆
0xcfe0…d000 20 20 20 20 20 20 20 20 20 20 20 65 64 69 74 6f 72 20 69 2c 20 74 61 70 65 20 32 2c 20 70 61 67 ┆ editor i, tape 2, pag┆
0xd000…d020 65 20 2e 2e 2e 31 38 2e 2e 2e 0a 20 31 36 38 35 20 20 32 30 34 34 20 20 0a 20 31 36 38 35 20 20 ┆e ...18... 1685 2044 1685 ┆
0xd020…d040 32 30 34 34 20 20 20 20 20 20 20 3b 20 70 72 6f 63 65 64 75 72 65 20 61 6c 61 72 6d 20 28 6d 65 ┆2044 ; procedure alarm (me┆
0xd040…d060 73 73 61 67 65 20 74 65 78 74 29 3b 0a 20 31 36 38 36 20 20 32 30 34 34 20 20 20 20 20 20 20 3b ┆ssage text); 1686 2044 ;┆
0xd060…d080 20 20 20 63 6f 6d 6d 65 6e 74 3a 20 66 6f 72 20 6e 6f 72 6d 61 6c 20 61 6c 61 72 6d 73 20 74 68 ┆ comment: for normal alarms th┆
0xd080…d0a0 65 20 63 75 72 72 65 6e 74 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 63 6f 72 72 65 63 74 69 6f ┆e current value of the correctio┆
0xd0a0…d0c0 6e 0a 20 31 36 38 37 20 20 32 30 34 34 20 20 20 20 20 20 20 3b 20 20 20 6e 75 6d 62 65 72 20 61 ┆n 1687 2044 ; number a┆
0xd0c0…d0e0 6e 64 20 74 68 65 20 6d 65 73 73 61 67 65 20 74 65 78 74 20 61 72 65 20 70 72 69 6e 74 65 64 20 ┆nd the message text are printed ┆
0xd0e0…d100 6f 6e 20 74 68 65 20 6d 65 73 73 61 67 65 20 64 6f 63 75 2d 0a 20 31 36 38 38 20 20 32 30 34 34 ┆on the message docu- 1688 2044┆
0xd100…d120 20 20 20 20 20 20 20 3b 20 20 20 6d 65 6e 74 2e 20 66 6f 72 20 74 68 65 20 65 64 69 74 6f 72 20 ┆ ; ment. for the editor ┆
0xd120…d140 65 72 72 6f 72 2c 20 74 68 65 20 63 61 6c 6c 20 61 64 64 72 65 73 73 20 28 74 68 65 20 76 61 6c ┆error, the call address (the val┆
0xd140…d160 75 65 20 6f 66 20 77 31 29 0a 20 31 36 38 39 20 20 32 30 34 34 20 20 20 20 20 20 20 3b 20 20 20 ┆ue of w1) 1689 2044 ; ┆
0xd160…d180 69 73 20 70 72 69 6e 74 65 64 20 69 6e 20 73 74 65 61 64 20 6f 66 20 74 68 65 20 63 6f 72 72 65 ┆is printed in stead of the corre┆
0xd180…d1a0 63 74 69 6f 6e 20 6e 75 6d 62 65 72 2e 20 69 6e 20 6f 6e 2d 6c 69 6e 65 0a 20 31 36 39 30 20 20 ┆ction number. in on-line 1690 ┆
0xd1a0…d1c0 32 30 34 34 20 20 20 20 20 20 20 3b 20 20 20 6d 6f 64 65 20 63 6f 6e 74 72 6f 6c 20 69 73 20 74 ┆2044 ; mode control is t┆
0xd1c0…d1e0 72 61 6e 73 66 65 72 65 64 20 74 6f 20 73 74 61 72 74 20 70 72 65 70 72 6f 63 65 73 73 69 6e 67 ┆ransfered to start preprocessing┆
0xd1e0…d200 2e 20 69 6e 20 6f 66 66 2d 0a 20 31 36 39 31 20 20 32 30 34 34 20 20 20 20 20 20 20 3b 20 20 20 ┆. in off- 1691 2044 ; ┆