DataMuseum.dk

Presents historical artifacts from the history of:

RC3500

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC3500

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦49c420295⟧

    Length: 96000 (0x17700)
    Names: »tpascallib«

Derivation

└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
    └─⟦6b41451d2⟧ 
        └─⟦this⟧ »tpascallib« 

Hex Dump

0x00000…00020 (0,)  3b 20 70 61 73 63 61 6c 20 6c 69 62 72 61 72 79 0a 3b 0a 3b 20 76 65 72 73 69 6f 6e 20 38 0a 3b   ┆; pascal library ; ; version 8 ;┆
0x00020…00040       20 64 61 74 65 20 37 39 20 30 37 20 30 33 0a 3b 0a 3b 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20   ┆ date 79 07 03 ; ; the contents ┆
0x00040…00060       69 73 20 66 6f 72 20 74 68 65 20 74 69 6d 65 20 62 65 69 6e 67 20 3a 0a 3b 20 20 73 65 67 6d 6e   ┆is for the time being : ;  segmn┆
0x00060…00080       6f 20 20 65 6e 74 72 69 65 73 0a 3b 20 20 20 20 30 2d 31 20 20 20 20 72 75 6e 74 69 6d 65 20 65   ┆o  entries ;    0-1    runtime e┆
0x00080…000a0       72 72 6f 72 20 0a 3b 0a 3b 20 20 20 20 32 20 20 20 20 20 20 6c 6e 0a 3b 20 20 20 20 20 20 20 20   ┆rror  ; ;    2      ln ;        ┆
0x000a0…000c0       20 20 20 65 78 70 0a 3b 20 20 20 20 20 20 20 20 20 20 20 73 69 6e 68 0a 3b 20 20 20 20 20 20 20   ┆   exp ;           sinh ;       ┆
0x000c0…000e0       20 20 20 20 73 79 73 74 65 6d 0a 3b 20 20 20 20 20 20 20 20 20 20 20 63 6c 6f 63 6b 0a 3b 0a 3b   ┆    system ;           clock ; ;┆
0x000e0…00100       20 20 20 20 33 20 20 20 20 20 20 61 72 63 73 69 6e 0a 3b 20 20 20 20 20 20 20 20 20 20 20 73 71   ┆    3      arcsin ;           sq┆
0x00100…00120       72 74 0a 3b 20 20 20 20 20 20 20 20 20 20 20 64 61 74 65 0a 3b 20 20 20 20 20 20 20 20 20 20 20   ┆rt ;           date ;           ┆
0x00120…00140       74 69 6d 65 0a 3b 0a 3b 20 20 20 20 34 20 20 20 20 20 20 61 72 63 74 61 6e 0a 3b 20 20 20 20 20   ┆time ; ;    4      arctan ;     ┆
0x00140…00160       20 20 20 20 20 20 61 72 67 0a 3b 20 20 20 20 20 20 20 20 20 20 20 63 6f 73 0a 3b 20 20 20 20 20   ┆      arg ;           cos ;     ┆
0x00160…00180       20 20 20 20 20 20 73 69 6e 0a 3b 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 0a 3b 0a   ┆      sin ;           monitor ; ┆
0x00180…001a0       3b 20 20 20 20 35 2d 36 20 20 20 20 66 69 6c 65 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 0a   ┆;    5-6    file initialization ┆
0x001a0…001c0       3b 20 20 20 20 20 20 20 20 20 20 20 72 65 73 65 74 0a 3b 20 20 20 20 20 20 20 20 20 20 20 72 65   ┆;           reset ;           re┆
0x001c0…001e0       77 72 69 74 65 0a 3b 20 20 20 20 20 20 20 20 20 20 20 63 6c 6f 73 65 0a 3b 20 20 20 20 20 20 20   ┆write ;           close ;       ┆
0x001e0…00200       20 20 20 20 72 65 6d 6f 76 65 0a 3b 20 20 20 20 20 20 20 20 20 20 20 72 65 70 6c 61 63 65 0a 3b   ┆    remove ;           replace ;┆
0x00200…00220       0a 3b 20 20 20 20 37 2d 38 20 20 20 77 72 69 74 65 20 28 74 65 78 74 29 0a 3b 20 20 20 20 20 20   ┆ ;    7-8   write (text) ;      ┆
0x00220…00240       20 20 20 20 20 72 65 61 6c 0a 3b 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 0a 3b 20   ┆     real ;           integer ; ┆
0x00240…00260       20 20 20 20 20 20 20 20 20 20 62 6f 6f 6c 65 61 6e 0a 3b 20 20 20 20 20 20 20 20 20 20 20 63 68   ┆          boolean ;           ch┆
0x00260…00280       61 72 61 63 74 65 72 0a 3b 20 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 0a 3b 20 20 20 20   ┆aracter ;           string ;    ┆
0x00280…002a0       20 20 20 20 20 20 70 75 74 0a 3b 0a 3b 20 20 20 20 20 39 2d 31 30 20 72 65 61 64 20 28 74 65 78   ┆      put ; ;     9-10 read (tex┆
0x002a0…002c0       74 29 0a 3b 20 20 20 20 20 20 20 20 20 20 20 69 73 6f 0a 3b 20 20 20 20 20 20 20 20 20 20 20 67   ┆t) ;           iso ;           g┆
0x002c0…002e0       65 74 0a 3b 20 20 20 20 20 20 20 20 20 20 20 63 68 61 72 0a 3b 20 20 20 20 20 20 20 20 20 20 20   ┆et ;           char ;           ┆
0x002e0…00300       69 6e 74 65 67 65 72 0a 3b 20 20 20 20 20 20 20 20 20 20 20 72 65 61 6c 0a 3b 0a 3b 20 20 20 20   ┆integer ;           real ; ;    ┆
0x00300…00320       20 31 31 20 20 20 72 65 61 64 2f 77 72 69 74 65 20 28 62 69 6e 61 72 79 29 0a 3b 20 20 20 20 20   ┆ 11   read/write (binary) ;     ┆
0x00320…00340       20 20 20 20 20 70 61 63 6b 0a 3b 20 20 20 20 20 20 20 20 20 20 75 6e 70 61 63 6b 0a 73 2e 20 73   ┆     pack ;          unpack s. s┆
0x00340…00360       31 30 20 77 2e 0a 70 2e 3c 3a 66 70 6e 61 6d 65 73 3a 3e 0a 0a 3b 20 64 65 66 69 6e 69 74 69 6f   ┆10 w. p.<:fpnames:>  ; definitio┆
0x00360…00380       6e 20 6f 66 20 7a 6f 6e 65 20 73 74 61 74 65 73 0a 3b 20 28 76 61 6c 75 65 73 20 61 6c 6d 6f 73   ┆n of zone states ; (values almos┆
0x00380…003a0       74 20 61 73 20 69 6e 20 61 6c 67 6f 6c 29 0a 73 31 20 3d 20 31 20 3b 20 61 66 74 65 72 20 72 65   ┆t as in algol) s1 = 1 ; after re┆
0x003a0…003c0       61 64 20 63 68 61 72 0a 73 33 20 3d 20 33 20 3b 20 61 66 74 65 72 20 77 72 69 74 65 20 63 68 61   ┆ad char s3 = 3 ; after write cha┆
0x003c0…003e0       72 0a 73 34 20 3d 20 34 20 3b 20 61 66 74 65 72 20 64 65 63 6c 61 72 61 74 69 6f 6e 0a 73 35 20   ┆r s4 = 4 ; after declaration s5 ┆
0x003e0…00400       3d 20 35 20 3b 20 61 66 74 65 72 20 72 65 61 64 20 62 69 6e 61 72 79 0a 73 36 20 3d 20 36 20 3b   ┆= 5 ; after read binary s6 = 6 ;┆
0x00400…00420       20 61 66 74 65 72 20 77 72 69 74 65 20 62 69 6e 61 72 79 0a 73 38 20 3d 20 38 20 3b 20 61 66 74   ┆ after write binary s8 = 8 ; aft┆
0x00420…00440       65 72 20 6f 70 65 6e 0a 0c 0a 3b 20 73 65 67 6d 65 6e 74 20 30 2d 31 0a 3b 20 74 68 65 20 76 69   ┆er open   ; segment 0-1 ; the vi┆
0x00440…00460       72 74 75 61 6c 20 70 61 72 74 20 6f 66 20 72 75 6e 74 69 6d 65 20 65 72 72 6f 72 0a 3b 20 63 61   ┆rtual part of runtime error ; ca┆
0x00460…00480       6c 6c 20 3a 0a 3b 20 20 77 30 20 3d 20 61 62 73 20 61 64 64 72 20 6f 66 20 66 69 72 73 74 20 6f   ┆ll : ;  w0 = abs addr of first o┆
0x00480…004a0       66 20 70 72 6f 63 65 64 75 72 65 20 74 61 62 6c 65 0a 3b 20 20 77 31 20 3d 20 61 62 73 20 61 64   ┆f procedure table ;  w1 = abs ad┆
0x004a0…004c0       64 72 20 6f 66 20 69 6e 74 65 72 72 75 70 74 20 72 6f 75 74 69 6e 65 0a 3b 20 20 77 32 20 3d 20   ┆dr of interrupt routine ;  w2 = ┆
0x004c0…004e0       61 62 73 20 61 64 64 72 20 6f 66 20 66 69 72 73 74 20 6f 66 20 6c 69 62 72 61 72 79 20 74 61 62   ┆abs addr of first of library tab┆
0x004e0…00500       6c 65 0a 3b 20 20 77 33 20 3d 20 61 62 73 20 61 64 64 72 20 6f 66 20 70 61 72 61 6d 2d 61 72 65   ┆le ;  w3 = abs addr of param-are┆
0x00500…00520       61 0a 3b 0a 3b 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 77 72 69 74 65 73 20 6f 75 74 20 61   ┆a ; ; the procedure writes out a┆
0x00520…00540       20 74 65 78 74 20 69 6e 64 69 63 61 74 69 6e 67 20 61 20 72 75 6e 74 69 6d 65 0a 3b 20 65 72 72   ┆ text indicating a runtime ; err┆
0x00540…00560       6f 72 20 61 6e 64 20 61 20 6c 69 6e 65 20 6e 75 6d 62 65 72 2c 20 74 68 65 6e 20 66 70 2d 65 6e   ┆or and a line number, then fp-en┆
0x00560…00580       64 20 69 73 20 63 61 6c 6c 65 64 20 74 6f 20 74 65 72 6d 69 6e 61 74 65 20 6e 6f 72 6d 61 6c 6c   ┆d is called to terminate normall┆
0x00580…005a0       79 2e 0a 3b 0a 0a 62 2e 20 63 35 30 2c 20 67 32 20 77 2e 0a 67 30 3a 20 20 20 20 20 20 20 20 20   ┆y. ;  b. c50, g2 w. g0:         ┆
0x005a0…005c0       20 20 20 20 20 20 20 20 20 20 20 3b 20 73 74 61 72 74 20 6f 66 20 62 75 66 66 65 72 0a 20 20 20   ┆           ; start of buffer    ┆
0x005c0…005e0       20 20 6a 6c 2e 20 20 20 20 20 20 20 20 67 31 2e 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 69 6e 69   ┆  jl.        g1.    ;   goto ini┆
0x005e0…00600       74 3b 0a 30 2c 20 6d 2e 2a 2a 2a 2a 2a 20 6d 69 64 6c 65 72 74 69 64 69 67 74 20 30 20 61 2e 68   ┆t; 0, m.***** midlertidigt 0 a.h┆
0x00600…00620       2e 74 2e 20 69 6e 69 74 63 6f 64 65 20 69 20 70 61 73 73 32 0a 0a 67 32 3a 20 20 20 20 20 20 20   ┆.t. initcode i pass2  g2:       ┆
0x00620…00640       20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 74 61 72 74 20 6f 66 20 74 65 78 74 2d 74 61 62   ┆             ; start of text-tab┆
0x00640…00660       6c 65 0a 68 2e 0a 20 20 20 20 20 20 63 30 2e 2c 20 63 31 2e 2c 20 63 32 2e 2c 20 63 33 2e 2c 20   ┆le h.       c0., c1., c2., c3., ┆
0x00660…00680       63 34 2e 2c 20 63 35 2e 2c 20 63 36 2e 2c 20 63 37 2e 2c 20 63 38 2e 2c 20 63 39 2e 2c 0a 20 20   ┆c4., c5., c6., c7., c8., c9.,   ┆
0x00680…006a0       20 20 20 63 31 30 2e 2c 63 31 31 2e 2c 63 31 32 2e 2c 63 31 33 2e 2c 63 31 34 2e 2c 63 31 35 2e   ┆   c10.,c11.,c12.,c13.,c14.,c15.┆
0x006a0…006c0       2c 63 31 36 2e 2c 63 31 37 2e 2c 63 31 38 2e 2c 63 31 39 2e 2c 0a 20 20 20 20 20 63 32 30 2e 2c   ┆,c16.,c17.,c18.,c19.,      c20.,┆
0x006c0…006e0       63 32 31 2e 2c 63 32 32 2e 2c 63 32 33 2e 2c 63 32 34 2e 2c 63 32 35 2e 0a 77 2e 0a 63 30 3a 3c   ┆c21.,c22.,c23.,c24.,c25. w. c0:<┆
0x006e0…00700       3a 65 6e 64 3c 30 3e 3a 3e 0a 63 31 3a 3c 3a 70 72 6f 63 65 73 73 20 74 6f 6f 20 73 6d 61 6c 6c   ┆:end<0>:> c1:<:process too small┆
0x00700…00720       3c 30 3e 3a 3e 0a 63 32 3a 3c 3a 69 6e 64 65 78 20 6f 72 20 73 75 62 72 61 6e 67 65 20 6f 75 74   ┆<0>:> c2:<:index or subrange out┆
0x00720…00740       20 6f 66 20 62 6f 75 6e 64 73 2c 20 76 61 6c 75 65 20 69 73 3a 20 3c 30 3e 3a 3e 0a 63 33 3a 3c   ┆ of bounds, value is: <0>:> c3:<┆
0x00740…00760       3a 77 72 6f 6e 67 20 61 6e 73 77 65 72 20 6f 6e 20 69 6e 70 75 74 20 72 65 71 75 65 73 74 3c 30   ┆:wrong answer on input request<0┆
0x00760…00780       3e 3a 3e 0a 63 34 3a 3c 3a 77 72 6f 6e 67 20 6e 6f 20 6f 66 20 68 61 6c 66 77 6f 72 64 73 20 74   ┆>:> c4:<:wrong no of halfwords t┆
0x00780…007a0       72 61 6e 73 66 65 72 72 65 64 3c 30 3e 3a 3e 0a 63 35 3a 3c 3a 62 72 65 61 6b 3c 30 3e 3a 3e 0a   ┆ransferred<0>:> c5:<:break<0>:> ┆
0x007a0…007c0       63 36 3a 3c 3a 63 61 6e 6e 6f 74 20 66 69 6e 64 20 70 72 6f 63 65 64 75 72 65 3c 30 3e 3a 3e 0a   ┆c6:<:cannot find procedure<0>:> ┆
0x007c0…007e0       63 37 3a 3c 3a 6e 65 67 61 74 69 76 65 20 66 69 65 6c 64 20 77 69 64 74 68 3c 30 3e 3a 3e 0a 63   ┆c7:<:negative field width<0>:> c┆
0x007e0…00800       38 3a 3c 3a 72 65 70 6c 61 63 65 20 66 69 6c 65 20 6e 6f 74 20 6f 6b 3c 30 3e 3a 3e 0a 63 39 3a   ┆8:<:replace file not ok<0>:> c9:┆
0x00800…00820       3c 3a 76 61 6c 75 65 20 69 6e 69 74 20 6e 6f 74 20 6f 6b 3c 30 3e 3a 3e 0a 63 31 30 3a 3c 3a 6e   ┆<:value init not ok<0>:> c10:<:n┆
0x00820…00840       65 67 61 74 69 76 65 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 6c 6e 20 6f 72 20 73 71 72 74 3c 30   ┆egative argument to ln or sqrt<0┆
0x00840…00860       3e 3a 3e 0a 63 31 31 3a 3c 3a 69 6c 6c 65 67 61 6c 20 61 72 67 75 6d 65 6e 74 20 74 6f 20 65 78   ┆>:> c11:<:illegal argument to ex┆
0x00860…00880       70 20 6f 72 20 73 69 6e 68 3c 30 3e 3a 3e 0a 63 31 32 3a 3c 3a 69 6c 6c 65 67 61 6c 20 61 72 67   ┆p or sinh<0>:> c12:<:illegal arg┆
0x00880…008a0       75 6d 65 6e 74 20 74 6f 20 61 72 63 73 69 6e 3c 30 3e 3a 3e 0a 63 31 33 3a 20 3c 3a 69 6c 6c 65   ┆ument to arcsin<0>:> c13: <:ille┆
0x008a0…008c0       67 61 6c 20 7a 6f 6e 65 73 74 61 74 65 3c 30 3e 3a 3e 0a 63 31 34 3a 3c 3a 65 6f 66 20 74 72 6f   ┆gal zonestate<0>:> c14:<:eof tro┆
0x008c0…008e0       75 62 6c 65 3c 30 3e 3a 3e 0a 63 31 35 3a 3c 3a 66 69 6c 65 20 63 61 6e 6e 6f 74 20 62 65 20 63   ┆uble<0>:> c15:<:file cannot be c┆
0x008e0…00900       6f 6e 6e 65 63 74 65 64 20 66 6f 72 20 69 2f 6f 3c 30 3e 3a 3e 0a 63 31 36 3a 3c 3a 66 69 6c 65   ┆onnected for i/o<0>:> c16:<:file┆
0x00900…00920       20 63 61 6e 6e 6f 74 20 62 65 20 72 65 6d 6f 76 65 64 3c 30 3e 3a 3e 0a 63 31 37 3a 3c 3a 66 69   ┆ cannot be removed<0>:> c17:<:fi┆
0x00920…00940       6c 65 20 64 65 73 63 2e 20 63 61 6e 6e 6f 74 20 62 65 20 63 68 61 6e 67 65 64 3c 30 3e 3a 3e 0a   ┆le desc. cannot be changed<0>:> ┆
0x00940…00960       63 31 38 3a 3c 3a 66 69 6c 65 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 3c 30 3e 3a 3e 0a 63   ┆c18:<:file does not exist<0>:> c┆
0x00960…00980       31 39 3a 3c 3a 66 69 6c 65 20 63 61 6e 6e 6f 74 20 62 65 20 6c 6f 6f 6b 65 64 20 75 70 3c 30 3e   ┆19:<:file cannot be looked up<0>┆
0x00980…009a0       3a 3e 0a 63 32 30 3a 3c 3a 62 2c 6f 20 6f 72 20 68 20 65 78 70 65 63 74 65 64 3c 30 3e 3a 3e 0a   ┆:> c20:<:b,o or h expected<0>:> ┆
0x009a0…009c0       63 32 31 3a 3c 3a 64 69 67 69 74 20 65 78 70 65 63 74 65 64 3c 30 3e 3a 3e 0a 63 32 32 3a 3c 3a   ┆c21:<:digit expected<0>:> c22:<:┆
0x009c0…009e0       74 72 79 20 74 6f 20 72 65 61 64 20 70 61 73 74 20 65 6f 66 3c 30 3e 3a 3e 0a 63 32 33 3a 3c 3a   ┆try to read past eof<0>:> c23:<:┆
0x009e0…00a00       69 6e 74 65 67 65 72 20 6f 76 65 72 66 6c 6f 77 3c 30 3e 3a 3e 0a 63 32 34 3a 3c 3a 3a 3e 0a 63   ┆integer overflow<0>:> c24:<::> c┆
0x00a00…00a20       32 35 3a 3c 3a 64 69 73 70 6f 73 65 20 6f 75 74 73 69 64 65 20 75 73 65 64 20 61 72 65 61 3c 30   ┆25:<:dispose outside used area<0┆
0x00a20…00a40       3e 3a 3e 0a 0a 20 20 20 20 20 30 2c 20 72 2e 20 28 3a 28 3a 6b 2b 35 31 31 3a 29 3e 39 3c 39 2d   ┆>:>       0, r. (:(:k+511:)>9<9-┆
0x00a40…00a60       6b 3a 29 3e 31 20 2b 20 31 20 20 3b 20 66 69 6c 6c 20 75 70 20 74 6f 20 77 68 6f 6c 65 20 73 65   ┆k:)>1 + 1  ; fill up to whole se┆
0x00a60…00a80       67 6d 65 6e 74 0a 0a 62 2e 20 61 32 30 2c 20 62 33 30 2c 20 64 35 30 2c 20 66 31 30 2c 20 6d 35   ┆gment  b. a20, b30, d50, f10, m5┆
0x00a80…00aa0       30 2c 20 70 31 30 20 77 2e 0a 0a 3b 20 64 2d 6e 61 6d 65 73 20 61 6e 64 20 66 2d 6e 61 6d 65 73   ┆0, p10 w.  ; d-names and f-names┆
0x00aa0…00ac0       20 61 72 65 20 72 65 6c 61 74 69 76 65 20 74 6f 20 63 61 6c 6c 20 69 6e 20 72 65 73 69 64 65 6e   ┆ are relative to call in residen┆
0x00ac0…00ae0       74 20 63 6f 64 65 0a 0a 64 33 38 20 3d 20 20 30 20 20 3b 20 65 72 72 6f 72 20 6e 75 6d 62 65 72   ┆t code  d38 =  0  ; error number┆
0x00ae0…00b00       0a 64 33 39 20 3d 20 20 32 20 20 3b 20 73 74 61 63 6b 72 65 66 20 77 68 65 6e 20 65 72 72 6f 72   ┆ d39 =  2  ; stackref when error┆
0x00b00…00b20       20 6f 63 63 75 72 65 64 0a 64 34 30 20 3d 20 20 34 20 20 3b 20 61 62 73 20 72 65 74 75 72 6e 61   ┆ occured d40 =  4  ; abs returna┆
0x00b20…00b40       64 64 72 20 77 68 65 72 65 20 65 72 72 6f 72 20 6f 63 63 75 72 65 64 0a 64 34 31 20 3d 20 20 36   ┆ddr where error occured d41 =  6┆
0x00b40…00b60       20 20 3b 20 72 65 74 75 72 6e 20 70 6f 69 6e 74 3a 20 61 62 73 20 70 72 6f 63 20 74 61 62 6c 65   ┆  ; return point: abs proc table┆
0x00b60…00b80       20 65 6e 74 72 79 0a 64 34 32 20 3d 20 20 38 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ entry d42 =  8  ;              ┆
0x00b80…00ba0       20 72 65 6c 20 72 65 74 75 72 6e 20 61 64 64 72 0a 64 34 33 20 3d 20 31 30 20 20 3b 20 63 75 72   ┆ rel return addr d43 = 10  ; cur┆
0x00ba0…00bc0       72 65 6e 74 20 70 61 73 63 61 6c 20 70 72 6f 63 65 64 75 72 65 0a 66 39 20 20 3d 20 31 32 20 20   ┆rent pascal procedure f9  = 12  ┆
0x00bc0…00be0       3b 20 65 6e 74 65 72 20 66 70 2d 62 72 65 61 6b 0a 66 30 20 20 3d 20 31 34 20 20 3b 20 74 72 61   ┆; enter fp-break f0  = 14  ; tra┆
0x00be0…00c00       6e 73 66 65 72 20 66 72 6f 6d 20 70 72 6f 67 72 61 6d 20 66 69 6c 65 0a 64 34 34 20 3d 20 31 36   ┆nsfer from program file d44 = 16┆
0x00c00…00c20 (1,)  20 20 3b 20 62 6c 6f 63 6b 73 72 65 61 64 0a 0a 3b 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66   ┆  ; blocksread  ; description of┆
0x00c20…00c40       20 70 72 6f 63 65 64 75 72 65 20 74 61 62 6c 65 20 65 6e 74 72 79 0a 0a 70 30 20 20 3d 20 20 30   ┆ procedure table entry  p0  =  0┆
0x00c40…00c60       20 20 3b 20 73 65 67 6d 65 6e 74 20 6e 75 6d 62 65 72 20 69 6e 20 70 72 6f 67 72 61 6d 20 66 69   ┆  ; segment number in program fi┆
0x00c60…00c80       6c 65 0a 70 32 20 20 3d 20 20 32 20 20 3b 20 74 6f 70 20 6f 66 20 70 72 6f 63 0a 70 34 20 20 3d   ┆le p2  =  2  ; top of proc p4  =┆
0x00c80…00ca0       20 20 34 20 20 3b 20 73 69 7a 65 20 6f 66 20 73 74 61 63 6b 2d 73 70 61 63 65 0a 70 36 20 20 3d   ┆  4  ; size of stack-space p6  =┆
0x00ca0…00cc0       20 20 36 20 20 3b 20 66 69 72 73 74 20 6f 66 20 70 72 6f 63 0a 70 38 20 20 3d 20 20 38 20 20 3b   ┆  6  ; first of proc p8  =  8  ;┆
0x00cc0…00ce0       20 76 69 72 74 75 61 6c 20 61 64 64 72 20 6f 66 20 66 69 72 73 74 20 65 72 72 6f 72 20 6c 69 6e   ┆ virtual addr of first error lin┆
0x00ce0…00d00       65 0a 0a 62 30 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 62 73 20   ┆e  b0:  0                 ; abs ┆
0x00d00…00d20       73 74 61 72 74 20 6f 66 20 70 72 6f 63 65 64 75 72 65 20 74 61 62 6c 65 0a 62 31 3a 20 20 30 20   ┆start of procedure table b1:  0 ┆
0x00d20…00d40       20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 62 73 20 61 64 64 72 20 6f 66 20 69 6e   ┆                ; abs addr of in┆
0x00d40…00d60       74 65 72 72 75 70 74 20 72 6f 75 74 69 6e 65 0a 62 32 3a 20 20 30 20 20 20 20 20 20 20 20 20 20   ┆terrupt routine b2:  0          ┆
0x00d60…00d80       20 20 20 20 20 20 20 3b 20 61 62 73 20 73 74 61 72 74 20 6f 66 20 6c 69 62 72 61 72 79 20 74 61   ┆       ; abs start of library ta┆
0x00d80…00da0       62 6c 65 0a 62 33 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 73 2d   ┆ble b3:  0                 ; rs-┆
0x00da0…00dc0       70 61 72 61 6d 20 61 64 64 72 65 73 73 0a 0a 62 35 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆param address  b5:              ┆
0x00dc0…00de0       20 20 20 20 20 20 3b 20 61 62 73 20 61 64 64 72 65 73 73 65 73 20 69 6e 20 66 70 0a 20 20 6d 33   ┆      ; abs addresses in fp   m3┆
0x00de0…00e00       30 3a 20 68 33 30 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 75 6e 73 74 61 63 6b 20 7a 6f 6e   ┆0: h30             ; unstack zon┆
0x00e00…00e20       65 0a 20 20 6d 33 31 3a 20 68 33 31 2d 32 20 20 20 20 20 20 20 20 20 20 20 3b 20 6f 75 74 74 65   ┆e   m31: h31-2           ; outte┆
0x00e20…00e40       78 74 0a 20 20 6d 33 32 3a 20 68 33 32 2d 32 20 20 20 20 20 20 20 20 20 20 20 3b 20 6f 75 74 69   ┆xt   m32: h32-2           ; outi┆
0x00e40…00e60       6e 74 65 67 65 72 0a 20 20 6d 32 36 3a 20 68 32 36 2d 32 20 20 20 20 20 20 20 20 20 20 20 3b 20   ┆nteger   m26: h26-2           ; ┆
0x00e60…00e80       6f 75 74 63 68 61 72 0a 20 20 6d 37 3a 20 20 68 37 20 2d 32 20 20 20 20 20 20 20 20 20 20 20 3b   ┆outchar   m7:  h7 -2           ;┆
0x00e80…00ea0       20 65 6e 64 2d 70 72 6f 67 72 61 6d 0a 62 36 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ end-program b6:                ┆
0x00ea0…00ec0       20 20 20 20 3b 20 28 65 6e 64 20 6f 66 20 74 61 62 6c 65 29 0a 0a 62 39 3a 20 20 3c 3a 3c 31 30   ┆    ; (end of table)  b9:  <:<10┆
0x00ec0…00ee0       3e 62 6c 6f 63 6b 73 72 65 61 64 20 3d 20 3c 30 3e 3a 3e 0a 62 31 30 3a 20 3c 3a 3c 31 30 3e 6f   ┆>blocksread = <0>:> b10: <:<10>o┆
0x00ee0…00f00       63 63 75 72 65 64 20 69 6e 20 20 3c 30 3e 3a 3e 0a 62 31 31 3a 20 3c 3a 3c 31 30 3e 63 61 6c 6c   ┆ccured in  <0>:> b11: <:<10>call┆
0x00f00…00f20       65 64 20 66 72 6f 6d 20 3c 30 3e 3a 3e 0a 62 31 32 3a 20 30 2d 30 2d 30 20 20 20 20 20 20 20 20   ┆ed from <0>:> b12: 0-0-0        ┆
0x00f20…00f40       20 20 20 20 20 3b 20 61 62 73 20 6c 69 6e 65 20 6e 75 6d 62 65 72 0a 62 31 33 3a 20 3c 3a 20 3d   ┆     ; abs line number b13: <: =┆
0x00f40…00f60       20 6c 69 6e 65 20 3c 30 3e 3a 3e 0a 62 31 34 3a 20 30 2d 30 2d 30 20 20 20 20 20 20 20 20 20 20   ┆ line <0>:> b14: 0-0-0          ┆
0x00f60…00f80       20 20 20 3b 20 72 65 6c 20 6c 69 6e 65 20 6e 75 6d 62 65 72 0a 62 31 35 3a 20 3c 3a 20 6f 66 20   ┆   ; rel line number b15: <: of ┆
0x00f80…00fa0       3c 30 3e 3a 3e 0a 62 31 36 3a 20 30 2c 20 72 2e 34 2c 20 30 20 20 20 20 20 20 20 20 20 3b 20 70   ┆<0>:> b16: 0, r.4, 0         ; p┆
0x00fa0…00fc0       72 6f 63 65 64 75 72 65 20 6e 61 6d 65 20 28 74 65 72 6d 69 6e 61 74 65 64 20 77 69 74 68 20 7a   ┆rocedure name (terminated with z┆
0x00fc0…00fe0       65 72 6f 29 0a 62 31 37 3a 20 3c 3a 20 20 20 3a 3e 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 28   ┆ero) b17: <:   :>            ; (┆
0x00fe0…01000       74 68 72 65 65 20 73 70 61 63 65 73 2c 20 74 6f 20 63 6f 6e 76 65 72 74 20 63 61 70 69 74 61 6c   ┆three spaces, to convert capital┆
0x01000…01020       20 74 6f 20 73 6d 61 6c 6c 20 6c 65 74 74 65 72 73 29 0a 0a 62 31 38 3a 20 3c 3a 20 72 65 6c 20   ┆ to small letters)  b18: <: rel ┆
0x01020…01040       6f 66 20 73 65 67 6d 20 3c 30 3e 3a 3e 0a 0a 62 32 30 3a 20 2d 31 20 2d 31 3c 32 33 20 20 20 20   ┆of segm <0>:>  b20: -1 -1<23    ┆
0x01040…01060       20 20 20 20 20 20 3b 20 6d 61 78 20 6c 65 76 65 6c 20 28 69 6e 69 74 69 61 6c 6c 79 3a 20 6d 61   ┆      ; max level (initially: ma┆
0x01060…01080       78 29 0a 62 32 31 3a 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 75 72 72   ┆x) b21: 0                 ; curr┆
0x01080…010a0       65 6e 74 20 6c 65 76 65 6c 20 28 69 6e 69 74 69 61 6c 6c 79 3a 20 7a 65 72 6f 29 0a 62 32 32 3a   ┆ent level (initially: zero) b22:┆
0x010a0…010c0       20 30 2d 30 2d 30 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 70 72 6f 63 65 64 75 72 65 20 74   ┆ 0-0-0             ; procedure t┆
0x010c0…010e0       61 62 6c 65 20 65 6e 74 72 79 0a 62 32 33 3a 20 30 2d 30 2d 30 20 20 20 20 20 20 20 20 20 20 20   ┆able entry b23: 0-0-0           ┆
0x010e0…01100       20 20 3b 20 72 65 6c 20 70 72 6f 63 20 61 64 64 72 0a 62 32 34 3a 20 30 2d 30 2d 30 20 20 20 20   ┆  ; rel proc addr b24: 0-0-0    ┆
0x01100…01120       20 20 20 20 20 20 20 20 20 3b 20 63 75 72 20 76 69 72 74 20 65 72 72 6f 72 20 74 61 62 6c 65 20   ┆         ; cur virt error table ┆
0x01120…01140       61 64 64 72 0a 62 32 35 3a 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 69 6e   ┆addr b25: 0                 ; in┆
0x01140…01160       64 65 78 2d 76 61 6c 75 65 20 28 69 6e 69 74 69 61 6c 6c 79 20 7a 65 72 6f 29 0a 62 32 36 3a 20   ┆dex-value (initially zero) b26: ┆
0x01160…01180       30 2d 30 2d 30 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 74 61 63 6b 72 65 66 0a 62 32 37   ┆0-0-0             ; stackref b27┆
0x01180…011a0       3a 20 3c 3a 20 6f 66 20 6c 69 62 72 61 72 79 3c 30 3e 3a 3e 0a 62 32 38 3a 20 3c 3a 20 6f 66 20   ┆: <: of library<0>:> b28: <: of ┆
0x011a0…011c0       70 72 6f 67 72 61 6d 3c 30 3e 3a 3e 0a 0a 0a 3b 20 70 72 6f 63 65 64 75 72 65 20 67 65 74 20 73   ┆program<0>:>   ; procedure get s┆
0x011c0…011e0       74 61 63 6b 20 69 74 65 6d 0a 3b 0a 3b 20 63 61 6c 6c 3a 20 77 30 20 3d 20 77 61 6e 74 65 64 20   ┆tack item ; ; call: w0 = wanted ┆
0x011e0…01200       69 74 65 6d 20 6e 6f 0a 3b 20 20 20 20 20 20 20 77 33 20 3d 20 72 65 74 75 72 6e 0a 3b 0a 3b 20   ┆item no ;       w3 = return ; ; ┆
0x01200…01220       65 78 69 74 3a 20 77 30 20 3d 20 61 63 74 75 61 6c 20 69 74 65 6d 20 6e 6f 0a 3b 20 20 20 20 20   ┆exit: w0 = actual item no ;     ┆
0x01220…01240       20 20 77 31 20 3d 20 70 6f 69 6e 74 3a 20 70 72 6f 63 20 74 61 62 6c 65 20 65 6e 74 72 79 0a 3b   ┆  w1 = point: proc table entry ;┆
0x01240…01260       20 20 20 20 20 20 20 77 32 20 3d 20 20 20 20 20 20 20 20 72 65 6c 20 70 72 6f 63 20 72 65 74 75   ┆       w2 =        rel proc retu┆
0x01260…01280       72 6e 0a 3b 20 20 20 20 20 20 20 77 33 20 3d 20 73 74 61 63 6b 72 65 66 0a 0a 62 2e 20 69 31 30   ┆rn ;       w3 = stackref  b. i10┆
0x01280…012a0       2c 20 6a 31 30 20 77 2e 0a 0a 6a 30 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆, j10 w.  j0:  0                ┆
0x012a0…012c0       20 3b 20 73 61 76 65 64 20 72 65 74 75 72 6e 0a 6a 31 3a 20 20 30 20 20 20 20 20 20 20 20 20 20   ┆ ; saved return j1:  0          ┆
0x012c0…012e0       20 20 20 20 20 20 20 3b 20 77 61 6e 74 65 64 20 69 74 65 6d 20 6e 6f 0a 0a 6d 30 3a 20 20 20 20   ┆       ; wanted item no  m0:    ┆
0x012e0…01300       20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 64 73 2e 20 77 30 20 20 20   ┆                ;      ds. w0   ┆
0x01300…01320       20 20 6a 31 2e 20 20 20 20 3b 20 20 20 73 61 76 65 20 28 72 65 74 75 72 6e 2c 20 77 61 6e 74 65   ┆  j1.    ;   save (return, wante┆
0x01320…01340       64 20 69 74 65 6d 20 6e 6f 29 3b 0a 0a 20 20 20 20 20 61 6c 20 20 77 30 20 20 20 20 20 30 20 20   ┆d item no);       al  w0     0  ┆
0x01340…01360       20 20 20 20 3b 20 20 20 61 63 74 75 61 6c 20 69 74 65 6d 20 6e 6f 20 3a 3d 20 30 3b 0a 0a 20 20   ┆    ;   actual item no := 0;    ┆
0x01360…01380       20 20 20 72 6c 2e 20 77 33 20 20 20 20 20 62 33 2e 20 20 20 20 3b 0a 20 20 20 20 20 64 6c 20 20   ┆   rl. w3     b3.    ;      dl  ┆
0x01380…013a0       77 32 20 20 78 33 2b 64 34 32 20 20 20 20 3b 20 20 20 77 31 77 32 20 3a 3d 20 72 65 74 75 72 6e   ┆w2  x3+d42    ;   w1w2 := return┆
0x013a0…013c0       20 70 6f 69 6e 74 20 77 68 65 72 65 20 65 72 72 6f 72 20 6f 63 63 75 72 65 64 3b 0a 20 20 20 20   ┆ point where error occured;     ┆
0x013c0…013e0       20 72 6c 20 20 77 33 20 20 78 33 2b 64 33 39 20 20 20 20 3b 20 20 20 77 33 20 3a 3d 20 73 74 61   ┆ rl  w3  x3+d39    ;   w3 := sta┆
0x013e0…01400       63 6b 72 65 66 20 77 68 65 6e 20 65 72 72 6f 72 20 6f 63 63 75 72 65 64 3b 0a 0a 69 31 3a 20 20   ┆ckref when error occured;  i1:  ┆
0x01400…01420       20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 65 70 3a 0a 20 20 20 20 20 73 65   ┆                  ; rep:      se┆
0x01420…01440       2e 20 77 30 20 20 20 20 28 6a 31 2e 29 20 20 20 3b 20 20 20 69 66 20 61 63 74 20 69 74 65 6d 20   ┆. w0    (j1.)   ;   if act item ┆
0x01440…01460       6e 6f 20 3d 20 77 61 6e 74 65 64 20 69 74 65 6d 20 6e 6f 0a 20 20 20 20 20 73 68 20 20 77 32 20   ┆no = wanted item no      sh  w2 ┆
0x01460…01480       20 20 20 2d 31 20 20 20 20 20 20 3b 20 20 20 6f 72 20 72 65 6c 20 72 65 74 75 72 6e 20 61 64 64   ┆   -1      ;   or rel return add┆
0x01480…014a0       72 20 3c 20 30 20 74 68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 28 6a 30 2e 29 20   ┆r < 0 then      jl.       (j0.) ┆
0x014a0…014c0       20 20 3b 20 20 20 20 20 72 65 74 75 72 6e 3b 0a 0a 20 20 20 20 20 64 6c 20 20 77 32 20 20 78 33   ┆  ;     return;       dl  w2  x3┆
0x014c0…014e0       2d 32 30 34 31 20 20 20 3b 20 20 20 77 31 77 32 20 3a 3d 20 72 65 74 75 72 6e 70 6f 69 6e 74 20   ┆-2041   ;   w1w2 := returnpoint ┆
0x014e0…01500       28 73 74 61 63 6b 72 65 66 29 3b 0a 20 20 20 20 20 72 78 20 20 77 31 20 20 20 20 20 34 20 20 20   ┆(stackref);      rx  w1     4   ┆
0x01500…01520       20 20 20 3b 0a 20 20 20 20 20 72 6c 20 20 77 33 20 20 78 33 2d 32 30 33 37 20 20 20 3b 20 20 20   ┆   ;      rl  w3  x3-2037   ;   ┆
0x01520…01540       77 33 20 3a 3d 20 64 79 6e 61 6d 69 63 20 6c 69 6e 6b 20 28 73 74 61 63 6b 72 65 66 29 3b 0a 20   ┆w3 := dynamic link (stackref);  ┆
0x01540…01560       20 20 20 20 62 61 2e 20 77 30 20 20 20 20 20 31 20 20 20 20 20 20 3b 20 20 20 69 6e 63 72 65 61   ┆    ba. w0     1      ;   increa┆
0x01560…01580       73 65 20 28 61 63 74 20 69 74 65 6d 20 6e 6f 29 3b 0a 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20   ┆se (act item no);       jl.     ┆
0x01580…015a0       20 20 20 69 31 2e 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 72 65 70 3b 0a 0a 65 2e 20 20 20 20 20   ┆   i1.    ;   goto rep;  e.     ┆
0x015a0…015c0       20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 0a 0a 3b 20 70 72 6f 63 65 64 75 72 65 20   ┆                ;   ; procedure ┆
0x015c0…015e0       67 65 74 20 6e 65 78 74 20 76 69 72 74 0a 3b 0a 3b 20 63 61 6c 6c 3a 20 77 33 20 3d 20 72 65 74   ┆get next virt ; ; call: w3 = ret┆
0x015e0…01600       75 72 6e 0a 3b 0a 3b 20 65 78 69 74 3a 20 77 30 20 3d 20 77 6f 72 64 0a 3b 20 20 20 20 20 20 20   ┆urn ; ; exit: w0 = word ;       ┆
0x01600…01620       77 32 20 3d 20 75 6e 63 68 61 6e 67 65 64 0a 0a 62 2e 20 69 31 30 2c 20 6a 31 30 20 77 2e 0a 0a   ┆w2 = unchanged  b. i10, j10 w.  ┆
0x01620…01640       6a 30 3a 20 20 2d 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 75 72 72 65 6e 74   ┆j0:  -1                ; current┆
0x01640…01660       20 73 65 67 6d 65 6e 74 20 28 69 6e 69 74 69 61 6c 6c 79 3a 20 75 6e 64 65 66 29 0a 6a 31 3a 20   ┆ segment (initially: undef) j1: ┆
0x01660…01680       20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 61 76 65 64 20 77 32 0a 6a 32   ┆ 0                 ; saved w2 j2┆
0x01680…016a0       3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 65 74 75 72 6e 0a 6a 33   ┆:  0                 ; return j3┆
0x016a0…016c0       3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 72 65 6c 20 6c 69 6e 65 62   ┆:  0                 ; rel lineb┆
0x016c0…016e0       75 66 66 65 72 0a 0a 6d 31 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a   ┆uffer  m1:                    ; ┆
0x016e0…01700       20 20 20 20 20 64 73 2e 20 77 33 20 20 20 20 20 6a 32 2e 20 20 20 20 3b 20 20 20 73 61 76 65 20   ┆     ds. w3     j2.    ;   save ┆
0x01700…01720       28 77 32 2c 20 72 65 74 75 72 6e 29 3b 0a 0a 20 20 20 20 20 72 6c 2e 20 77 31 20 20 20 20 20 62   ┆(w2, return);       rl. w1     b┆
0x01720…01740       32 34 2e 20 20 20 3b 0a 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2b 32 20 20 20 20 20 20 3b   ┆24.   ;      al  w1  x1+2      ;┆
0x01740…01760       20 20 20 69 6e 63 72 65 61 73 65 20 28 63 75 72 20 76 69 72 74 20 61 64 64 72 29 3b 0a 20 20 20   ┆   increase (cur virt addr);    ┆
0x01760…01780       20 20 72 73 2e 20 77 31 20 20 20 20 20 62 32 34 2e 20 20 20 3b 0a 0a 20 20 20 20 20 61 6c 20 20   ┆  rs. w1     b24.   ;       al  ┆
0x01780…017a0       77 30 20 20 78 31 2d 32 20 20 20 20 20 20 3b 20 20 20 73 65 67 6d 65 6e 74 20 3a 3d 20 70 72 65   ┆w0  x1-2      ;   segment := pre┆
0x017a0…017c0       76 69 6f 75 73 20 76 69 72 74 0a 20 20 20 20 20 6c 64 20 20 77 31 20 20 20 20 2d 39 20 20 20 20   ┆vious virt      ld  w1    -9    ┆
0x017c0…017e0       20 20 3b 20 20 20 20 20 20 20 20 20 20 20 64 69 76 69 64 65 64 20 62 79 20 35 31 32 3b 0a 20 20   ┆  ;           divided by 512;   ┆
0x017e0…01800       20 20 20 6c 73 20 20 77 31 20 20 20 20 2d 32 34 2b 39 20 20 20 3b 20 20 20 72 65 6c 20 6c 69 6e   ┆   ls  w1    -24+9   ;   rel lin┆
0x01800…01820 (2,)  65 62 75 66 66 65 72 20 3a 3d 20 70 72 65 76 69 6f 75 73 20 76 69 72 74 0a 20 20 20 20 20 72 73   ┆ebuffer := previous virt      rs┆
0x01820…01840       2e 20 77 31 20 20 20 20 20 6a 33 2e 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 20   ┆. w1     j3.    ;           mod ┆
0x01840…01860       35 31 32 3b 0a 0a 20 20 20 20 20 73 6e 2e 20 77 30 20 20 20 20 28 6a 30 2e 29 20 20 20 3b 20 20   ┆512;       sn. w0    (j0.)   ;  ┆
0x01860…01880       20 69 66 20 73 65 67 6d 65 6e 74 20 3c 3e 20 63 75 72 72 65 6e 74 20 73 65 67 6d 65 6e 74 20 74   ┆ if segment <> current segment t┆
0x01880…018a0       68 65 6e 0a 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 20 20 20 69 31 2e 20 20 20 20 3b 20 20 20 20   ┆hen      jl.        i1.    ;    ┆
0x018a0…018c0       20 62 65 67 69 6e 0a 0a 20 20 20 20 20 72 73 2e 20 77 30 20 20 20 20 20 6a 30 2e 20 20 20 20 3b   ┆ begin       rs. w0     j0.    ;┆
0x018c0…018e0       20 20 20 20 20 63 75 72 72 65 6e 74 20 73 65 67 6d 65 6e 74 20 3a 3d 20 73 65 67 6d 65 6e 74 3b   ┆     current segment := segment;┆
0x018e0…01900       0a 20 20 20 20 20 72 6c 2e 20 77 32 20 20 20 20 20 62 33 2e 20 20 20 20 3b 0a 20 20 20 20 20 6a   ┆      rl. w2     b3.    ;      j┆
0x01900…01920       6c 20 20 77 32 20 20 78 32 2b 66 30 20 20 20 20 20 3b 20 20 20 20 20 74 72 61 6e 73 66 65 72 20   ┆l  w2  x2+f0     ;     transfer ┆
[…truncated at 200 lines…]