|
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: 10752 (0x2a00)
Types: Rc489kSubCat
Names: »hcøpas«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »hcøpas«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »hcøpas«
0x0000…0033 (0,) Rc489kSubCatEnt {f00=0x001ea3, f01=0x00026c, f02=0x000275, filename=»pascmaninp «, entry_tail=0-4-0-6-1980-12-03T11:58-disc2-0x0-0x0-0x0-0x0}
0x0033…0040 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x0040…0060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x0060…0080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 40 00 00 00 00 00 00 80 28 00 00 ab 00 00 ┆ @ ( ┆
0x0080…00a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00a0…00c0 00 00 00 00 00 01 cd 3e 01 c4 98 01 c1 e2 01 c4 20 01 cb e2 01 c4 1c 01 c4 0a 01 c8 ea 01 c4 00 ┆ > ┆
0x00c0…00e0 01 c1 c0 01 c4 7e 01 cc 72 01 c4 8a 01 cb 0c 01 c4 8e 01 c4 90 00 00 00 00 00 03 20 20 20 20 20 ┆ ü r ┆
0x00e0…0100 20 20 20 00 00 00 00 00 00 1f 65 78 74 20 00 00 6c 69 6e 65 00 00 0a 63 61 6c 6c 65 64 20 66 72 ┆ ext line called fr┆
0x0100…0120 6f 6d 20 20 20 20 20 00 0a 00 00 00 40 21 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆om @! ┆
0x0120…0140 00 00 00 00 00 00 2f 00 00 5f 8f c8 53 8f a8 50 3f dc a4 00 00 2c 00 00 53 3f d8 9b 40 00 9b 00 ┆ / _ S P? , S? @ ┆
0x0140…0160 0b 6b 80 83 6b 80 87 50 cf a4 a8 00 01 34 80 86 5e 8f e0 68 80 77 68 80 7b d8 10 02 dc 8f ce 50 ┆ k k P 4 ^ h wh æ P┆
0x0160…0180 10 04 5c 8f cc 34 80 76 52 cf 9c 1e 2f fc 51 20 00 50 cf 90 a2 40 00 ad 00 00 34 80 10 2f 00 00 ┆ Ø 4 vR / Q P @ 4 / ┆
0x0180…01a0 2c 00 01 5f 20 00 dc cf 70 50 cf 86 53 8f 68 34 36 82 52 cf 76 a2 00 00 34 80 10 53 cf 74 5f cf ┆, _ pP S h46 R v 4 S t_ ┆
0x01a0…01c0 66 37 cf 72 24 cf 6c 51 0f fe 2d 10 06 37 cf 5e a6 00 00 34 80 08 2c 00 10 51 cf 64 37 cf 54 53 ┆f7 r$ lQ - 7 ^ 4 , Q d7 TS┆
0x01c0…01e0 8f 46 52 3f 64 2d 3f 44 38 08 12 52 3f 68 aa 00 01 34 80 1a 52 3f 66 d9 20 04 dd 37 b4 d9 20 08 ┆ FR?d-?D8 R?h 4 R?f 7 ┆
0x01e0…0200 dd 37 b8 2f 37 b2 2d 8f 6e 38 08 10 34 80 00 2c 8f 66 37 80 0c 34 8f a2 aa 00 00 37 39 54 da cf ┆ 7 /7 - n8 4 , f7 4 79T ┆
0x0200…0220 20 37 39 64 af 30 00 34 cf 26 34 30 00 af 30 00 34 cf 12 34 30 02 2c 10 00 37 8f f2 b4 00 01 34 ┆ 79d 0 4 &40 0 4 40 , 7 4┆
0x0220…0240 80 0a 2c 20 00 37 8f f0 82 00 06 24 00 04 2c 8f 1e 37 8f e2 52 8e f8 51 27 ba a5 00 0a 34 8f cc ┆ , 7 $ , 7 R Q' 4 ┆
0x0240…0260 2d 10 01 5d 27 ba d8 27 b6 53 30 00 68 80 31 51 31 fe 11 8f 04 5d 27 c8 a1 00 02 a1 00 00 34 80 ┆- Å' ' S0 h 1Q1 Å' 4 ┆
0x0260…0280 62 2c 8f 06 ad 00 02 2c 8f 06 5c 27 c6 51 31 f8 99 0f fa 5d 8f 20 d9 31 fe 2e 02 02 9d 0f fd 5d ┆b, , Ø' Q1 Å 1 . Å┆
0x0280…02a0 8e ee 11 8e ee ad 00 1f 34 80 18 85 10 00 1d 8f 0e 2e 2f de a2 00 00 34 80 20 5d 8f 06 51 8e da ┆ 4 ./ 4 Å Q ┆
0x02a0…02c0 9d 0f fb ae 00 d0 d9 31 fa 34 8f e4 50 31 fe 2d 00 01 b4 00 04 34 80 0c 24 ce a0 53 07 b4 53 3f ┆ 1 4 P1 - 4 $ S S?┆
0x02c0…02e0 fe 51 31 f8 99 0f fa 52 8e 96 84 ce e6 5d 27 c4 64 27 c6 37 8f 76 24 ce 8c 50 07 c4 37 8f 76 82 ┆ Q1 R Å' d' 7 v$ P 7 v ┆
0x02e0…02fd 00 04 24 ce 84 50 07 c6 37 8f 6e 82 00 01 34 80 10 d9 31 fa dd 27 be d9 31 fe 21 27 c8 ┆ $ P 7 n 4 1 ' 1 !' ┆
0x02fd…0300 0x000001
0x0300…1500 Data for pascmaninp
0x1500…1520 32 37 38 38 2c 33 32 37 39 30 2c 33 32 37 39 32 2c 30 2c 30 2c 0a 33 32 37 39 34 2c 33 32 37 39 ┆2788,32790,32792,0,0, 32794,3279┆
0x1520…1540 36 2c 33 32 37 39 38 2c 33 32 38 30 30 2c 33 32 38 30 32 2c 0a 33 32 38 30 34 2c 33 32 38 30 36 ┆6,32798,32800,32802, 32804,32806┆
0x1540…1560 2c 33 32 38 30 38 2c 33 32 38 31 30 2c 33 32 38 31 32 2c 0a 33 32 38 31 34 2c 33 32 38 31 36 2c ┆,32808,32810,32812, 32814,32816,┆
0x1560…1580 33 32 38 31 38 2c 33 32 38 32 30 2c 33 32 38 32 32 2c 0a 30 2c 30 2c 30 2c 30 2c 30 2c 0a 6e 65 ┆32818,32820,32822, 0,0,0,0,0, ne┆
0x1580…15a0 77 6f 66 66 73 65 74 2c 0a 30 29 0a 2f 2c 0a 6c 2e 2f 70 72 6f 63 65 64 75 72 65 73 74 61 6e 64 ┆woffset, 0) /, l./procedurestand┆
0x15a0…15c0 61 72 64 70 72 6f 63 2f 2c 0a 6c 2e 2f 66 69 6c 70 61 72 61 6d 3a 2f 2c 72 2f 3a 2f 2c 0a 20 20 ┆ardproc/, l./filparam:/,r/:/, ┆
0x15c0…15e0 20 70 61 72 61 6d 31 2c 70 61 72 61 6d 32 2c 70 61 72 61 6d 33 2c 70 61 72 61 6d 34 3a 2f 2c 0a ┆ param1,param2,param3,param4:/, ┆
0x15e0…1600 6c 2e 2f 3a 69 6e 74 65 67 65 72 2f 2c 72 2f 3a 2f 2c 73 74 6f 72 65 69 6e 64 65 78 3a 2f 2c 0a ┆l./:integer/,r/:/,storeindex:/, ┆
0x1600…1620 6c 2e 2f 70 72 6f 63 65 64 75 72 65 72 65 61 64 2f 2c 69 2f 0a 0a 70 72 6f 63 65 64 75 72 65 20 ┆l./procedureread/,i/ procedure ┆
0x1620…1640 74 61 6b 65 70 61 72 61 6d 28 76 61 72 20 6f 6c 64 2c 6e 65 77 3a 20 70 73 65 75 64 6f 70 74 72 ┆takeparam(var old,new: pseudoptr┆
0x1640…1660 29 3b 0a 62 65 67 69 6e 0a 69 66 20 6f 6c 64 3c 3e 6e 65 77 20 74 68 65 6e 20 6e 65 77 3a 3d 6f ┆); begin if old<>new then new:=o┆
0x1660…1680 6c 64 5e 2e 6e 65 78 74 3b 0a 69 66 20 6e 65 77 5e 2e 6b 69 6e 64 3d 65 78 70 72 65 73 73 69 6f ┆ld^.next; if new^.kind=expressio┆
0x1680…16a0 6e 20 74 68 65 6e 20 65 76 61 6c 74 6f 72 65 73 75 6c 74 28 6e 65 77 2c 6e 6f 73 6b 69 70 29 3b ┆n then evaltoresult(new,noskip);┆
0x16a0…16c0 0a 69 66 20 6e 65 77 5e 2e 6b 69 6e 64 3c 3e 72 65 67 20 74 68 65 6e 20 6c 6f 61 64 28 6e 65 77 ┆ if new^.kind<>reg then load(new┆
0x16c0…16e0 29 3b 0a 65 6e 64 3b 0a 2f 2c 0a 6c 2e 2f 70 73 5f 6e 65 77 3a 2f 2c 69 2f 0a 70 73 5f 61 6c 6c ┆); end; /, l./ps_new:/,i/ ps_all┆
0x16e0…1700 6f 63 61 74 65 2c 0a 2f 2c 0a 6c 2e 2f 69 66 6c 65 6e 67 74 68 3c 6d 61 78 73 69 67 6e 65 64 68 ┆ocate, /, l./iflength<maxsignedh┆
0x1700…1720 61 6c 66 77 6f 72 64 2f 2c 0a 69 2f 0a 69 66 20 73 74 61 6e 64 61 72 64 6e 61 6d 65 3d 70 73 5f ┆alfword/, i/ if standardname=ps_┆
0x1720…1740 61 6c 6c 6f 63 61 74 65 20 74 68 65 6e 0a 62 65 67 69 6e 0a 20 20 70 61 72 61 6d 31 3a 3d 70 61 ┆allocate then begin param1:=pa┆
0x1740…1760 72 61 6d 5e 2e 6e 65 78 74 3b 0a 20 20 69 66 20 70 61 72 61 6d 31 5e 2e 6b 69 6e 64 3c 3e 72 65 ┆ram^.next; if param1^.kind<>re┆
0x1760…1780 67 20 74 68 65 6e 20 6c 6f 61 64 28 70 61 72 61 6d 31 29 3b 0a 20 20 6c 6f 61 64 72 65 67 69 73 ┆g then load(param1); loadregis┆
0x1780…17a0 74 65 72 28 30 2c 70 61 72 61 6d 31 29 3b 0a 20 20 72 65 74 75 72 6e 70 73 65 75 64 6f 28 70 61 ┆ter(0,param1); returnpseudo(pa┆
0x17a0…17c0 72 61 6d 31 29 3b 0a 65 6e 64 20 28 2a 61 6c 6c 6f 63 61 74 65 2a 29 20 65 6c 73 65 0a 2f 2c 0a ┆ram1); end (*allocate*) else /, ┆
0x17c0…17e0 6c 2e 2f 70 73 5f 72 65 70 6c 61 63 65 2c 2f 2c 6c 2d 31 2c 69 2f 0a 70 73 5f 6d 6f 6e 69 74 6f ┆l./ps_replace,/,l-1,i/ ps_monito┆
0x17e0…1800 72 6d 6f 64 65 2c 0a 70 73 5f 75 6e 73 74 61 63 6b 63 75 72 69 3a 0a 62 65 67 69 6e 0a 20 20 63 ┆rmode, ps_unstackcuri: begin c┆
0x1800…1820 61 6c 6c 73 74 61 6e 64 61 72 64 3b 0a 20 20 6d 61 6b 65 77 6f 72 64 63 6f 64 65 28 20 72 6f 75 ┆allstandard; makewordcode( rou┆
0x1820…1840 74 69 6e 65 6e 75 6d 62 65 72 29 3b 0a 65 6e 64 3b 0a 70 73 5f 77 6f 72 64 73 74 6f 72 65 3a 0a ┆tinenumber); end; ps_wordstore: ┆
0x1840…1860 62 65 67 69 6e 0a 20 20 70 61 72 61 6d 31 3a 3d 70 61 72 61 6d 5e 2e 6e 65 78 74 3b 0a 20 20 69 ┆begin param1:=param^.next; i┆
0x1860…1880 66 20 70 61 72 61 6d 5e 2e 6b 69 6e 64 3d 65 78 70 72 65 73 73 69 6f 6e 20 74 68 65 6e 20 65 76 ┆f param^.kind=expression then ev┆
0x1880…18a0 61 6c 74 6f 72 65 73 75 6c 74 28 70 61 72 61 6d 2c 6e 6f 73 6b 69 70 29 3b 0a 20 20 69 66 20 70 ┆altoresult(param,noskip); if p┆
0x18a0…18c0 61 72 61 6d 5e 2e 6b 69 6e 64 3c 3e 72 65 67 20 74 68 65 6e 20 6c 6f 61 64 28 70 61 72 61 6d 29 ┆aram^.kind<>reg then load(param)┆
0x18c0…18e0 3b 0a 20 20 69 66 20 70 61 72 61 6d 31 5e 2e 6b 69 6e 64 3c 3e 65 78 70 72 65 73 73 69 6f 6e 20 ┆; if param1^.kind<>expression ┆
0x18e0…1900 74 68 65 6e 20 65 76 61 6c 74 6f 72 65 73 75 6c 74 28 70 61 72 61 6d 31 2c 6e 6f 73 6b 69 70 29 ┆then evaltoresult(param1,noskip)┆
0x1900…1920 3b 0a 20 20 69 66 20 70 61 72 61 6d 31 5e 2e 6b 69 6e 64 3c 3e 72 65 67 20 74 68 65 6e 20 6c 6f ┆; if param1^.kind<>reg then lo┆
0x1920…1940 61 64 72 65 67 69 73 74 65 72 28 30 2c 70 61 72 61 6d 31 29 3b 0a 20 20 6c 6f 61 64 72 65 67 69 ┆adregister(0,param1); loadregi┆
0x1940…1960 73 74 65 72 28 31 2c 70 61 72 61 6d 29 3b 0a 20 20 6d 61 6b 65 69 6e 64 65 78 63 6f 64 65 28 72 ┆ster(1,param); makeindexcode(r┆
0x1960…1980 73 2c 30 2c 31 2c 30 29 3b 0a 20 20 72 65 74 75 72 6e 70 73 65 75 64 6f 28 70 61 72 61 6d 31 29 ┆s,0,1,0); returnpseudo(param1)┆
0x1980…19a0 3b 0a 65 6e 64 3b 0a 70 73 5f 73 65 6e 64 61 6e 73 77 65 72 2c 0a 70 73 5f 6d 6f 6e 63 61 6c 6c ┆; end; ps_sendanswer, ps_moncall┆
0x19a0…19c0 2c 0a 70 73 5f 66 70 70 72 6f 63 3a 0a 62 65 67 69 6e 0a 74 61 6b 65 70 61 72 61 6d 28 70 61 72 ┆, ps_fpproc: begin takeparam(par┆
0x19c0…19e0 61 6d 2c 70 61 72 61 6d 29 3b 0a 74 61 6b 65 70 61 72 61 6d 28 70 61 72 61 6d 2c 70 61 72 61 6d ┆am,param); takeparam(param,param┆
0x19e0…1a00 31 29 3b 0a 74 61 6b 65 70 61 72 61 6d 28 70 61 72 61 6d 31 2c 70 61 72 61 6d 32 29 3b 0a 74 61 ┆1); takeparam(param1,param2); ta┆
0x1a00…1a20 6b 65 70 61 72 61 6d 28 70 61 72 61 6d 32 2c 70 61 72 61 6d 33 29 3b 0a 72 65 73 65 72 76 65 63 ┆keparam(param2,param3); reservec┆
0x1a20…1a40 6f 64 65 28 35 30 29 3b 0a 6d 61 6b 65 77 72 65 6c 63 6f 64 65 28 72 73 2c 70 61 72 61 6d 5e 2e ┆ode(50); makewrelcode(rs,param^.┆
0x1a40…1a60 72 65 67 6e 6f 2c 30 29 3b 0a 6d 61 6b 65 77 72 65 6c 63 6f 64 65 28 72 73 2c 70 61 72 61 6d 32 ┆regno,0); makewrelcode(rs,param2┆
0x1a60…1a80 5e 2e 72 65 67 6e 6f 2c 30 29 3b 0a 69 66 20 73 74 61 6e 64 61 72 64 6e 61 6d 65 3d 70 73 5f 6d ┆^.regno,0); if standardname=ps_m┆
0x1a80…1aa0 6f 6e 63 61 6c 6c 20 74 68 65 6e 0a 62 65 67 69 6e 0a 20 20 74 61 6b 65 70 61 72 61 6d 28 70 61 ┆oncall then begin takeparam(pa┆
0x1aa0…1ac0 72 61 6d 33 2c 70 61 72 61 6d 34 29 3b 0a 20 20 6d 61 6b 65 77 72 65 6c 63 6f 64 65 28 72 73 2c ┆ram3,param4); makewrelcode(rs,┆
0x1ac0…1ae0 70 61 72 61 6d 34 5e 2e 72 65 67 6e 6f 2c 30 29 3b 0a 20 20 72 65 74 75 72 6e 70 73 65 75 64 6f ┆param4^.regno,0); returnpseudo┆
0x1ae0…1b00 28 70 61 72 61 6d 34 29 3b 0a 65 6e 64 3b 0a 73 74 6f 72 65 69 6e 64 65 78 3a 3d 6c 61 73 74 69 ┆(param4); end; storeindex:=lasti┆
0x1b00…1b20 (3,) 6e 64 65 78 3b 0a 6c 6f 61 64 61 64 64 72 65 73 73 28 30 2c 70 61 72 61 6d 31 29 3b 0a 6c 6f 61 ┆ndex; loadaddress(0,param1); loa┆
0x1b20…1b40 64 61 64 64 72 65 73 73 28 31 2c 70 61 72 61 6d 33 29 3b 0a 63 61 6c 6c 73 74 61 6e 64 61 72 64 ┆daddress(1,param3); callstandard┆
0x1b40…1b60 3b 0a 6d 61 6b 65 77 6f 72 64 63 6f 64 65 28 72 6f 75 74 69 6e 65 6e 75 6d 62 65 72 29 3b 0a 6d ┆; makewordcode(routinenumber); m┆
0x1b60…1b80 61 6b 65 77 6f 72 64 63 6f 64 65 28 30 29 3b 0a 6d 61 6b 65 77 6f 72 64 63 6f 64 65 28 32 29 3b ┆akewordcode(0); makewordcode(2);┆
0x1b80…1ba0 0a 69 66 20 73 74 61 6e 64 61 72 64 6e 61 6d 65 3d 70 73 5f 6d 6f 6e 63 61 6c 6c 20 74 68 65 6e ┆ if standardname=ps_moncall then┆
0x1ba0…1bc0 20 6d 61 6b 65 77 6f 72 64 63 6f 64 65 28 34 29 3b 0a 69 66 20 6c 61 73 74 69 6e 64 65 78 2d 73 ┆ makewordcode(4); if lastindex-s┆
0x1bc0…1be0 74 6f 72 65 69 6e 64 65 78 3e 3d 6d 61 78 73 69 67 6e 65 64 68 61 6c 66 77 6f 72 64 20 64 69 76 ┆toreindex>=maxsignedhalfword div┆
0x1be0…1c00 20 6f 6e 65 77 6f 72 64 20 74 68 65 6e 20 65 72 72 6f 72 28 33 31 39 29 0a 65 6c 73 65 20 63 6f ┆ oneword then error(319) else co┆
0x1c00…1c20 64 65 5e 2e 63 5b 73 74 6f 72 65 69 6e 64 65 78 5d 2e 64 69 73 70 6c 61 63 65 6d 65 6e 74 3a 3d ┆de^.cÆstoreindexÅ.displacement:=┆
0x1c20…1c40 28 6c 61 73 74 69 6e 64 65 78 2d 73 74 6f 72 65 69 6e 64 65 78 29 2a 6f 6e 65 77 6f 72 64 3b 0a ┆(lastindex-storeindex)*oneword; ┆
0x1c40…1c60 72 65 74 75 72 6e 70 73 65 75 64 6f 28 70 61 72 61 6d 31 29 3b 0a 72 65 74 75 72 6e 70 73 65 75 ┆returnpseudo(param1); returnpseu┆
0x1c60…1c80 64 6f 28 70 61 72 61 6d 32 29 3b 0a 72 65 74 75 72 6e 70 73 65 75 64 6f 28 70 61 72 61 6d 33 29 ┆do(param2); returnpseudo(param3)┆
0x1c80…1ca0 3b 0a 20 20 0a 65 6e 64 3b 0a 70 73 5f 72 65 6c 65 61 73 65 70 72 6f 63 2c 0a 70 73 5f 67 65 74 ┆; end; ps_releaseproc, ps_get┆
0x1ca0…1cc0 65 76 65 6e 74 2c 0a 70 73 5f 72 65 67 72 65 74 2c 0a 2f 2c 0a 6c 2e 2f 70 72 6f 63 65 64 75 72 ┆event, ps_regret, /, l./procedur┆
0x1cc0…1ce0 65 73 74 61 6e 64 61 72 64 66 75 6e 63 74 69 6f 6e 2f 2c 0a 6c 2e 2f 66 73 5f 73 79 73 74 65 6d ┆estandardfunction/, l./fs_system┆
0x1ce0…1d00 2f 2c 69 2f 0a 66 73 5f 66 69 72 73 74 61 64 64 72 65 73 73 3a 20 62 65 67 69 6e 0a 20 20 6c 6f ┆/,i/ fs_firstaddress: begin lo┆
0x1d00…1d20 61 64 61 64 64 72 65 73 73 28 30 2c 70 61 72 61 6d 29 3b 0a 20 20 6d 61 6b 65 72 65 67 69 73 74 ┆adaddress(0,param); makeregist┆
0x1d20…1d40 65 72 28 66 75 6e 63 74 2c 30 29 3b 0a 65 6e 64 3b 0a 66 73 5f 77 6f 72 64 6c 6f 61 64 3a 20 62 ┆er(funct,0); end; fs_wordload: b┆
0x1d40…1d60 65 67 69 6e 0a 20 20 69 66 20 70 61 72 61 6d 5e 2e 6b 69 6e 64 3c 3e 72 65 67 20 74 68 65 6e 20 ┆egin if param^.kind<>reg then ┆
0x1d60…1d80 6c 6f 61 64 28 70 61 72 61 6d 29 3b 0a 20 20 6c 6f 61 64 72 65 67 69 73 74 65 72 28 31 2c 70 61 ┆load(param); loadregister(1,pa┆
0x1d80…1da0 72 61 6d 29 3b 0a 20 20 6d 61 6b 65 69 6e 64 65 78 63 6f 64 65 28 72 6c 2c 31 2c 31 2c 30 29 3b ┆ram); makeindexcode(rl,1,1,0);┆
0x1da0…1dc0 0a 20 20 6d 61 6b 65 72 65 67 69 73 74 65 72 28 66 75 6e 63 74 2c 31 29 3b 0a 65 6e 64 3b 0a 66 ┆ makeregister(funct,1); end; f┆
0x1dc0…1de0 73 5f 69 6e 6f 72 2c 0a 66 73 5f 69 6e 61 6e 64 2c 0a 66 73 5f 69 6e 65 78 6f 72 2c 0a 66 73 5f ┆s_inor, fs_inand, fs_inexor, fs_┆
0x1de0…1e00 73 68 69 66 74 2c 0a 66 73 5f 65 78 74 72 61 63 74 3a 20 62 65 67 69 6e 0a 69 66 20 70 61 72 61 ┆shift, fs_extract: begin if para┆
0x1e00…1e20 6d 5e 2e 6b 69 6e 64 3c 3e 72 65 67 20 74 68 65 6e 20 6c 6f 61 64 28 70 61 72 61 6d 29 3b 0a 70 ┆m^.kind<>reg then load(param); p┆
0x1e20…1e40 61 72 61 6d 31 3a 3d 70 61 72 61 6d 5e 2e 6e 65 78 74 3b 0a 69 66 20 70 61 72 61 6d 31 5e 2e 6b ┆aram1:=param^.next; if param1^.k┆
0x1e40…1e60 69 6e 64 3d 65 78 70 72 65 73 73 69 6f 6e 20 74 68 65 6e 20 65 76 61 6c 74 6f 72 65 73 75 6c 74 ┆ind=expression then evaltoresult┆
0x1e60…1e80 28 70 61 72 61 6d 31 2c 6e 6f 73 6b 69 70 29 3b 0a 69 66 20 70 61 72 61 6d 31 5e 2e 6b 69 6e 64 ┆(param1,noskip); if param1^.kind┆
0x1e80…1ea0 3c 3e 72 65 67 20 74 68 65 6e 20 6c 6f 61 64 28 70 61 72 61 6d 29 3b 0a 6c 6f 61 64 72 65 67 69 ┆<>reg then load(param); loadregi┆
0x1ea0…1ec0 73 74 65 72 28 30 2c 70 61 72 61 6d 29 3b 0a 6c 6f 61 64 72 65 67 69 73 74 65 72 28 31 2c 70 61 ┆ster(0,param); loadregister(1,pa┆
0x1ec0…1ee0 72 61 6d 31 29 3b 0a 63 61 73 65 20 73 74 64 5f 66 75 6e 63 20 6f 66 0a 66 73 5f 69 6e 6f 72 3a ┆ram1); case std_func of fs_inor:┆
0x1ee0…1f00 20 6d 61 6b 65 63 6f 64 65 28 6c 6f 2c 30 2c 32 29 3b 0a 66 73 5f 69 6e 61 6e 64 3a 20 6d 61 6b ┆ makecode(lo,0,2); fs_inand: mak┆
0x1f00…1f20 65 63 6f 64 65 28 6c 61 2c 30 2c 32 29 3b 0a 66 73 5f 69 6e 65 78 6f 72 3a 20 6d 61 6b 65 63 6f ┆ecode(la,0,2); fs_inexor: makeco┆
0x1f20…1f40 64 65 28 6c 78 2c 30 2c 32 29 3b 0a 66 73 5f 73 68 69 66 74 3a 20 20 6d 61 6b 65 69 6e 64 65 78 ┆de(lx,0,2); fs_shift: makeindex┆
0x1f40…1f60 63 6f 64 65 28 6c 73 2c 30 2c 31 2c 30 29 3b 0a 66 73 5f 65 78 74 72 61 63 74 3a 20 62 65 67 69 ┆code(ls,0,1,0); fs_extract: begi┆
0x1f60…1f80 6e 0a 6d 61 6b 65 63 6f 64 65 28 61 6c 2c 33 2c 2d 31 29 3b 0a 6d 61 6b 65 69 6e 64 65 78 63 6f ┆n makecode(al,3,-1); makeindexco┆
0x1f80…1fa0 64 65 28 6c 73 2c 33 2c 31 2c 30 29 3b 0a 6d 61 6b 65 63 6f 64 65 28 6c 61 2c 30 2c 36 29 3b 0a ┆de(ls,3,1,0); makecode(la,0,6); ┆
0x1fa0…1fc0 65 6e 64 3b 0a 65 6e 64 3b 0a 6d 61 6b 65 72 65 67 69 73 74 65 72 28 66 75 6e 63 74 2c 30 29 3b ┆end; end; makeregister(funct,0);┆
0x1fc0…1fe0 0a 65 6e 64 3b 0a 66 73 5f 69 6e 63 6c 75 64 65 2c 0a 66 73 5f 65 78 63 6c 75 64 65 2c 0a 66 73 ┆ end; fs_include, fs_exclude, fs┆
0x1fe0…2000 5f 73 79 73 74 65 6d 61 64 64 72 65 73 73 2c 0a 66 73 5f 73 65 6e 64 66 75 72 74 68 65 72 2c 0a ┆_systemaddress, fs_sendfurther, ┆
0x2000…2020 66 73 5f 73 74 6f 70 69 6e 74 3a 0a 62 65 67 69 6e 0a 20 20 69 66 20 70 61 72 61 6d 5e 2e 6b 69 ┆fs_stopint: begin if param^.ki┆
0x2020…2040 6e 64 3c 3e 72 65 67 20 74 68 65 6e 20 6c 6f 61 64 28 70 61 72 61 6d 29 3b 0a 20 20 6c 6f 61 64 ┆nd<>reg then load(param); load┆
0x2040…2060 72 65 67 69 73 74 65 72 28 30 2c 70 61 72 61 6d 29 3b 0a 20 20 70 61 72 61 6d 31 3a 3d 70 61 72 ┆register(0,param); param1:=par┆
0x2060…2080 61 6d 5e 2e 6e 65 78 74 3b 0a 20 20 69 66 20 70 61 72 61 6d 31 5e 2e 6b 69 6e 64 3d 65 78 70 72 ┆am^.next; if param1^.kind=expr┆
0x2080…20a0 65 73 73 69 6f 6e 20 74 68 65 6e 20 65 76 61 6c 74 6f 72 65 73 75 6c 74 28 70 61 72 61 6d 31 2c ┆ession then evaltoresult(param1,┆
0x20a0…20c0 6e 6f 73 6b 69 70 29 3b 0a 20 20 69 66 20 70 61 72 61 6d 31 5e 2e 6b 69 6e 64 3c 3e 72 65 67 20 ┆noskip); if param1^.kind<>reg ┆
0x20c0…20e0 74 68 65 6e 20 6c 6f 61 64 28 70 61 72 61 6d 31 29 3b 0a 20 20 6c 6f 61 64 61 64 64 72 65 73 73 ┆then load(param1); loadaddress┆
0x20e0…2100 28 31 2c 70 61 72 61 6d 31 29 3b 0a 20 20 63 61 6c 6c 73 74 61 6e 64 61 72 64 3b 0a 20 20 6d 61 ┆(1,param1); callstandard; ma┆
0x2100…2120 6b 65 77 6f 72 64 63 6f 64 65 28 73 74 64 72 6f 75 74 69 6e 65 5b 73 74 64 5f 66 75 6e 63 5d 29 ┆kewordcode(stdroutineÆstd_funcÅ)┆
0x2120…2140 3b 0a 20 20 6d 61 6b 65 72 65 67 69 73 74 65 72 28 66 75 6e 63 74 2c 30 29 3b 0a 20 20 72 65 74 ┆; makeregister(funct,0); ret┆
0x2140…2160 75 72 6e 70 73 65 75 64 6f 28 70 61 72 61 6d 31 29 3b 0a 65 6e 64 3b 0a 66 73 5f 64 65 73 63 72 ┆urnpseudo(param1); end; fs_descr┆
0x2160…2180 69 70 74 69 6f 6e 2c 0a 66 73 5f 69 6e 69 74 70 72 6f 63 2c 0a 66 73 5f 72 65 73 65 72 76 65 70 ┆iption, fs_initproc, fs_reservep┆
0x2180…21a0 72 6f 63 2c 0a 66 73 5f 77 61 69 74 65 76 65 6e 74 2c 0a 66 73 5f 63 70 75 6d 61 73 6b 2c 0a 66 ┆roc, fs_waitevent, fs_cpumask, f┆
0x21a0…21c0 73 5f 63 6f 6e 6e 65 63 74 63 75 72 69 2c 0a 66 73 5f 72 65 6d 6f 76 65 70 72 6f 63 2c 0a 66 73 ┆s_connectcuri, fs_removeproc, fs┆
0x21c0…21e0 5f 73 74 61 72 74 69 6e 74 3a 20 62 65 67 69 6e 0a 20 20 69 66 20 70 61 72 61 6d 5e 2e 6b 69 6e ┆_startint: begin if param^.kin┆
0x21e0…2200 64 3c 3e 72 65 67 20 74 68 65 6e 20 6c 6f 61 64 28 70 61 72 61 6d 29 3b 0a 20 20 70 61 72 61 6d ┆d<>reg then load(param); param┆
0x2200…2220 5e 2e 74 79 70 3a 3d 69 6e 74 65 67 65 72 74 79 70 65 3b 0a 20 20 6c 6f 61 64 61 64 64 72 65 73 ┆^.typ:=integertype; loadaddres┆
0x2220…2240 73 28 30 2c 70 61 72 61 6d 29 3b 0a 20 20 63 61 6c 6c 73 74 61 6e 64 61 72 64 3b 0a 20 20 6d 61 ┆s(0,param); callstandard; ma┆
0x2240…2260 6b 65 77 6f 72 64 63 6f 64 65 28 73 74 64 72 6f 75 74 69 6e 65 5b 73 74 64 5f 66 75 6e 63 5d 29 ┆kewordcode(stdroutineÆstd_funcÅ)┆
0x2260…2280 3b 0a 20 20 6d 61 6b 65 72 65 67 69 73 74 65 72 28 66 75 6e 63 74 2c 30 29 3b 0a 65 6e 64 3b 0a ┆; makeregister(funct,0); end; ┆
0x2280…22a0 66 73 5f 63 72 65 61 74 65 69 6e 74 2c 0a 66 73 5f 6d 6f 64 69 66 79 69 6e 74 2c 0a 66 73 5f 77 ┆fs_createint, fs_modifyint, fs_w┆
0x22a0…22c0 61 69 74 61 6e 73 77 65 72 2c 0a 66 73 5f 74 65 73 74 65 76 65 6e 74 3a 20 62 65 67 69 6e 0a 20 ┆aitanswer, fs_testevent: begin ┆
0x22c0…22e0 20 69 66 20 70 61 72 61 6d 5e 2e 6b 69 6e 64 3c 3e 72 65 67 20 74 68 65 6e 20 6c 6f 61 64 28 70 ┆ if param^.kind<>reg then load(p┆
0x22e0…2300 61 72 61 6d 29 3b 0a 20 20 70 61 72 61 6d 5e 2e 74 79 70 3a 3d 69 6e 74 65 67 65 72 74 79 70 65 ┆aram); param^.typ:=integertype┆
0x2300…2320 3b 0a 20 20 6e 65 78 74 70 61 72 61 6d 3a 3d 66 75 6e 63 74 5e 2e 6c 65 66 74 6f 70 65 72 61 6e ┆; nextparam:=funct^.leftoperan┆
0x2320…2340 64 5e 2e 6c 65 66 74 6f 70 65 72 61 6e 64 3b 0a 20 20 70 61 72 61 6d 31 3a 3d 6e 65 78 74 70 61 ┆d^.leftoperand; param1:=nextpa┆
0x2340…2360 72 61 6d 5e 2e 72 69 67 68 74 6f 70 65 72 61 6e 64 3b 0a 20 20 6c 6f 61 64 61 64 64 72 65 73 73 ┆ram^.rightoperand; loadaddress┆
0x2360…2380 28 31 2c 70 61 72 61 6d 31 29 3b 0a 20 20 6c 6f 61 64 61 64 64 72 65 73 73 28 30 2c 70 61 72 61 ┆(1,param1); loadaddress(0,para┆
0x2380…23a0 6d 29 3b 0a 20 20 63 61 6c 6c 73 74 61 6e 64 61 72 64 3b 0a 20 20 6d 61 6b 65 77 6f 72 64 63 6f ┆m); callstandard; makewordco┆
0x23a0…23c0 64 65 28 73 74 64 72 6f 75 74 69 6e 65 5b 73 74 64 5f 66 75 6e 63 5d 29 3b 0a 20 20 6d 61 6b 65 ┆de(stdroutineÆstd_funcÅ); make┆
0x23c0…23e0 72 65 67 69 73 74 65 72 28 66 75 6e 63 74 2c 30 29 3b 0a 20 20 72 65 74 75 72 6e 70 73 65 75 64 ┆register(funct,0); returnpseud┆
0x23e0…2400 6f 28 70 61 72 61 6d 31 29 3b 0a 20 20 72 65 74 75 72 6e 70 73 65 75 64 6f 28 6e 65 78 74 70 61 ┆o(param1); returnpseudo(nextpa┆
0x2400…2420 (4,) 72 61 6d 29 3b 0a 20 20 65 6e 64 3b 0a 66 73 5f 73 79 73 74 69 6d 65 2c 0a 66 73 5f 73 65 6e 64 ┆ram); end; fs_systime, fs_send┆
0x2420…2440 6d 65 73 73 61 67 65 2c 0a 2f 2c 0a 6c 2e 2f 66 73 5f 6d 6f 6e 69 74 6f 72 3a 2f 2c 0a 6c 2e 2f ┆message, /, l./fs_monitor:/, l./┆
0x2440…2460 63 61 6c 6c 73 74 61 6e 64 61 72 64 2f 2c 0a 6c 2e 2f 6d 61 6b 65 72 65 67 69 73 74 65 72 2f 2c ┆callstandard/, l./makeregister/,┆
0x2460…2480 69 2f 0a 69 66 20 73 74 64 5f 66 75 6e 63 3d 66 73 5f 73 79 73 74 69 6d 65 20 74 68 65 6e 0a 62 ┆i/ if std_func=fs_systime then b┆
0x2480…24a0 65 67 69 6e 0a 20 20 6d 61 6b 65 72 65 67 69 73 74 65 72 28 66 75 6e 63 74 2c 30 29 3b 0a 20 20 ┆egin makeregister(funct,0); ┆
0x24a0…24c0 72 65 67 69 73 74 65 72 5b 31 5d 3a 3d 72 65 67 69 73 74 65 72 5b 30 5d 3b 0a 65 6e 64 20 65 6c ┆registerÆ1Å:=registerÆ0Å; end el┆
0x24c0…24e0 73 65 0a 2f 2c 66 0a 63 70 61 73 73 32 3d 65 64 69 74 20 63 6f 6d 70 61 73 73 32 0a 69 2f 0a 6f ┆se /,f cpass2=edit compass2 i/ o┆
0x24e0…2500 20 75 38 30 0a 2f 2c 0a 6c 2e 2f 74 70 61 73 63 70 61 73 73 32 2f 2c 72 2f 74 70 2f 74 6e 70 2f ┆ u80 /, l./tpascpass2/,r/tp/tnp/┆
0x2500…2520 2c 0a 72 2f 70 61 73 73 32 20 2f 70 32 20 2f 2c 0a 6c 20 62 2c 69 2f 0a 6f 20 63 0a 2f 2c 66 0a ┆, r/pass2 /p2 /, l b,i/ o c /,f ┆
0x2520…2540 73 63 6f 70 65 20 64 61 79 20 63 70 61 73 73 32 20 74 6e 70 61 73 63 70 32 0a 6d 6f 64 65 20 6c ┆scope day cpass2 tnpascp2 mode l┆
0x2540…2560 69 73 74 2e 6e 6f 0a 66 69 6e 69 73 62 0a 19 00 51 28 14 5d 28 16 2c 08 01 5c 28 14 34 80 08 51 ┆ist.no finisb Q( Å( , Ø( 4 Q┆
0x2560…2580 28 14 51 10 00 5d 28 14 34 8f e4 51 28 16 a9 08 01 34 80 1c 51 28 10 51 18 88 53 28 0e 5d 30 00 ┆( Q Å( 4 Q( 4 Q( Q S( Å0 ┆
0x2580…25a0 53 28 0e 24 68 10 5f 08 88 2c 00 00 53 28 0e 5c 30 06 2d 00 00 53 28 0e 5d 30 08 51 28 0e 51 10 ┆S( $h _ , S( Ø0 - S( Å0 Q( Q ┆
0x25a0…25c0 08 ad 00 00 34 80 4a 51 28 0e 51 10 08 24 68 10 21 08 54 a1 0b ff 34 80 3e 51 28 0e 51 10 08 24 ┆ 4 JQ( Q $h ! T 4 >Q( Q $┆
0x25c0…25e0 68 10 21 08 54 91 00 01 a1 07 ff a1 c0 9c 79 0f fe 53 28 10 53 38 54 a3 c0 92 a3 00 00 7b 0f fe ┆h ! T y S( S8T æ ┆
0x25e0…2600 93 00 01 5f 28 1a 53 28 10 53 38 28 1f 28 1a 5f 28 1a 4d 00 03 53 80 7c 9b 00 00 99 00 00 87 30 ┆ _( S( S8( ( _( M S ø 0┆
0x2600…2620 01 24 68 1a 13 0f fe 15 00 06 24 68 1a 5d 0f fe 34 80 66 2c 00 00 53 28 0e 5c 30 08 51 28 0e 51 ┆ $h $h Å 4 f, S( Ø0 Q( Q┆
0x2620…2640 10 06 5d 28 18 ad 00 00 34 80 0a 51 28 18 24 68 10 21 08 54 5d 28 18 51 28 10 51 18 54 53 28 0e ┆ Å( 4 Q( $h ! TÅ( Q( Q TS( ┆
0x2640…2660 5d 30 06 53 28 18 a3 07 ff a3 c0 48 7b 0f fe 51 28 10 51 18 54 a1 c0 3e a1 00 00 79 0f fe 91 00 ┆Å0 S( Hæ Q( Q T > y ┆
0x2660…2680 01 5d 28 1a 51 28 10 51 18 28 1d 28 1a 5d 28 1a 4f 00 07 51 80 28 99 00 00 9b 00 00 85 10 01 24 ┆ Å( Q( Q ( ( Å( O Q ( $┆
0x2680…26a0 68 1a 11 0f fe 17 00 02 24 68 1a 5f 0f fe 51 28 0e 51 10 04 51 10 06 91 0f ff 53 28 10 53 38 5a ┆h $h _ Q( Q Q S( S8Z┆
0x26a0…26c0 23 00 02 24 68 10 5f 08 5a 53 28 10 34 78 03 00 0f ff 00 17 70 ff f7 ff 5e 28 10 50 10 00 5c 28 ┆# $h _ ZS( 4x p ^( P Ø(┆
0x26c0…26e0 0e 51 28 0e 51 18 b6 5d 28 1a 53 28 0c 53 30 08 13 81 f4 34 81 c6 34 00 00 00 00 00 51 28 1a 51 ┆ Q( Q Å( S( S0 4 4 Q( Q┆
0x26e0…2700 10 04 ad 00 05 34 80 0a 51 28 1a 51 10 04 a9 00 04 34 80 22 51 28 1a 51 10 06 81 00 00 dd 28 58 ┆ 4 Q( Q 4 "Q( Q (X┆
0x2700…2720 3b 65 64 69 74 20 6f 66 20 74 70 61 73 63 61 6c 6c 69 62 20 38 30 20 30 37 20 32 39 20 31 33 20 ┆;edit of tpascallib 80 07 29 13 ┆
0x2720…2740 33 30 0a 3b 69 6e 73 65 72 74 20 64 65 73 63 72 69 70 74 69 6f 6e 0a 74 6e 70 61 73 63 61 6c 6c ┆30 ;insert description tnpascall┆
0x2740…2760 69 62 3d 73 65 74 20 31 30 0a 74 6e 70 61 73 63 61 6c 6c 69 62 3d 65 64 69 74 20 74 70 61 73 63 ┆ib=set 10 tnpascallib=edit tpasc┆
0x2760…2780 61 6c 6c 69 62 0a 6c 2e 2f 76 65 72 73 69 6f 6e 2f 2c 72 2f 38 2f 38 20 68 63 7c 20 31 0a 3b 41 ┆allib l./version/,r/8/8 hcø 1 ;A┆
0x2780…27a0 6e 64 65 72 73 20 4c 69 6e 64 67 7d 72 64 0a 3b 68 63 7c 20 38 30 20 30 37 20 32 39 20 31 33 20 ┆nders Lindgård ;hcø 80 07 29 13 ┆
0x27a0…27c0 33 30 20 30 2f 2c 0a 6c 2e 2f 73 2e 73 31 30 77 2e 2f 2c 69 2f 0a 3b 0a 3b 20 20 20 20 20 31 32 ┆30 0/, l./s.s10w./,i/ ; ; 12┆
0x27c0…27e0 20 20 20 20 64 65 73 63 72 69 70 74 69 6f 6e 20 20 20 20 20 20 20 20 20 70 61 67 65 20 38 0a 3b ┆ description page 8 ;┆
0x27e0…2800 20 20 20 20 20 20 20 20 20 20 20 69 6e 69 74 70 72 6f 63 0a 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ initproc ; ┆
0x2800…2820 72 65 73 65 72 76 65 70 72 6f 63 0a 3b 20 20 20 20 20 20 20 20 20 20 20 72 65 6c 65 61 73 65 70 ┆reserveproc ; releasep┆
0x2820…2840 72 6f 63 0a 3b 20 20 20 20 20 20 20 20 20 20 20 69 6e 63 6c 75 64 65 20 0a 3b 20 20 20 20 20 20 ┆roc ; include ; ┆
0x2840…2860 20 20 20 20 20 65 78 63 6c 75 64 65 0a 3b 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 6d 65 73 ┆ exclude ; sendmes┆
0x2860…2880 73 61 67 65 0a 3b 20 20 20 20 20 20 20 20 20 20 20 77 61 69 74 61 6e 73 77 65 72 0a 3b 20 20 20 ┆sage ; waitanswer ; ┆
0x2880…28a0 20 20 20 20 20 20 20 20 77 61 69 74 6d 65 73 73 61 67 65 0a 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ waitmessage ; ┆
0x28a0…28c0 73 65 6e 64 61 6e 73 77 65 72 0a 3b 20 20 20 20 20 20 20 20 20 20 20 77 61 69 74 65 76 65 6e 74 ┆sendanswer ; waitevent┆
0x28c0…28e0 0a 3b 20 20 20 20 20 20 20 20 20 20 20 67 65 74 65 76 65 6e 74 0a 3b 20 20 20 20 20 20 20 20 20 ┆ ; getevent ; ┆
0x28e0…2900 20 20 74 65 73 74 65 76 65 6e 74 0a 3b 20 20 20 20 20 20 20 20 20 20 20 63 72 65 61 74 65 69 6e ┆ testevent ; createin┆
0x2900…2920 74 65 72 6e 61 6c 0a 3b 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 69 6e 74 65 72 6e 61 6c ┆ternal ; startinternal┆
0x2920…2940 0a 3b 20 20 20 20 20 20 20 20 20 20 20 73 74 6f 70 69 6e 74 65 72 6e 61 6c 0a 3b 20 20 20 20 20 ┆ ; stopinternal ; ┆
0x2940…2960 20 20 20 20 20 20 6d 6f 64 69 66 79 69 6e 74 65 72 6e 61 6c 0a 3b 20 20 20 20 20 20 20 20 20 20 ┆ modifyinternal ; ┆
0x2960…2980 20 72 65 6d 6f 76 65 70 72 6f 63 65 73 73 0a 3b 20 20 20 20 20 20 20 20 20 20 20 72 65 67 72 65 ┆ removeprocess ; regre┆
0x2980…29a0 74 6d 65 73 73 61 67 65 0a 3b 20 20 20 20 20 20 20 20 20 20 28 66 70 70 72 6f 63 29 0a 3b 20 20 ┆tmessage ; (fpproc) ; ┆
0x29a0…29c0 20 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 63 75 72 69 0a 3b 20 20 20 20 20 20 20 20 20 20 ┆ connectcuri ; ┆
0x29c0…29e0 20 75 6e 73 74 61 63 6b 63 75 72 69 0a 3b 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 63 61 6c 6c ┆ unstackcuri ; moncall┆
0x29e0…2a00 0a 3b 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 6d 6f 64 65 0a 3b 20 20 20 20 20 20 ┆ ; monitormode ; ┆
0x0000…0033 (0,) Rc489kSubCatEnt {f00=0x001ea3, f01=0x00026c, f02=0x000275, filename=»pascmaninp «, entry_tail=0-4-0-6-1980-12-03T11:58-disc2-0x0-0x0-0x0-0x0}
0x0033…0040 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x0040…0060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x0060…0080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 40 00 00 00 00 00 00 80 28 00 00 ab 00 00 ┆ @ ( ┆
0x0080…00a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00a0…00c0 00 00 00 00 00 01 cd 3e 01 c4 98 01 c1 e2 01 c4 20 01 cb e2 01 c4 1c 01 c4 0a 01 c8 ea 01 c4 00 ┆ > ┆
0x00c0…00e0 01 c1 c0 01 c4 7e 01 cc 72 01 c4 8a 01 cb 0c 01 c4 8e 01 c4 90 00 00 00 00 00 03 20 20 20 20 20 ┆ ü r ┆
0x00e0…0100 20 20 20 00 00 00 00 00 00 1f 65 78 74 20 00 00 6c 69 6e 65 00 00 0a 63 61 6c 6c 65 64 20 66 72 ┆ ext line called fr┆
0x0100…0120 6f 6d 20 20 20 20 20 00 0a 00 00 00 40 21 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆om @! ┆
0x0120…0140 00 00 00 00 00 00 2f 00 00 5f 8f c8 53 8f a8 50 3f dc a4 00 00 2c 00 00 53 3f d8 9b 40 00 9b 00 ┆ / _ S P? , S? @ ┆
0x0140…0160 0b 6b 80 83 6b 80 87 50 cf a4 a8 00 01 34 80 86 5e 8f e0 68 80 77 68 80 7b d8 10 02 dc 8f ce 50 ┆ k k P 4 ^ h wh æ P┆
0x0160…0180 10 04 5c 8f cc 34 80 76 52 cf 9c 1e 2f fc 51 20 00 50 cf 90 a2 40 00 ad 00 00 34 80 10 2f 00 00 ┆ Ø 4 vR / Q P @ 4 / ┆
0x0180…01a0 2c 00 01 5f 20 00 dc cf 70 50 cf 86 53 8f 68 34 36 82 52 cf 76 a2 00 00 34 80 10 53 cf 74 5f cf ┆, _ pP S h46 R v 4 S t_ ┆
0x01a0…01c0 66 37 cf 72 24 cf 6c 51 0f fe 2d 10 06 37 cf 5e a6 00 00 34 80 08 2c 00 10 51 cf 64 37 cf 54 53 ┆f7 r$ lQ - 7 ^ 4 , Q d7 TS┆
0x01c0…01e0 8f 46 52 3f 64 2d 3f 44 38 08 12 52 3f 68 aa 00 01 34 80 1a 52 3f 66 d9 20 04 dd 37 b4 d9 20 08 ┆ FR?d-?D8 R?h 4 R?f 7 ┆
0x01e0…0200 dd 37 b8 2f 37 b2 2d 8f 6e 38 08 10 34 80 00 2c 8f 66 37 80 0c 34 8f a2 aa 00 00 37 39 54 da cf ┆ 7 /7 - n8 4 , f7 4 79T ┆
0x0200…0220 20 37 39 64 af 30 00 34 cf 26 34 30 00 af 30 00 34 cf 12 34 30 02 2c 10 00 37 8f f2 b4 00 01 34 ┆ 79d 0 4 &40 0 4 40 , 7 4┆
0x0220…0240 80 0a 2c 20 00 37 8f f0 82 00 06 24 00 04 2c 8f 1e 37 8f e2 52 8e f8 51 27 ba a5 00 0a 34 8f cc ┆ , 7 $ , 7 R Q' 4 ┆
0x0240…0260 2d 10 01 5d 27 ba d8 27 b6 53 30 00 68 80 31 51 31 fe 11 8f 04 5d 27 c8 a1 00 02 a1 00 00 34 80 ┆- Å' ' S0 h 1Q1 Å' 4 ┆
0x0260…0280 62 2c 8f 06 ad 00 02 2c 8f 06 5c 27 c6 51 31 f8 99 0f fa 5d 8f 20 d9 31 fe 2e 02 02 9d 0f fd 5d ┆b, , Ø' Q1 Å 1 . Å┆
0x0280…02a0 8e ee 11 8e ee ad 00 1f 34 80 18 85 10 00 1d 8f 0e 2e 2f de a2 00 00 34 80 20 5d 8f 06 51 8e da ┆ 4 ./ 4 Å Q ┆
0x02a0…02c0 9d 0f fb ae 00 d0 d9 31 fa 34 8f e4 50 31 fe 2d 00 01 b4 00 04 34 80 0c 24 ce a0 53 07 b4 53 3f ┆ 1 4 P1 - 4 $ S S?┆
0x02c0…02e0 fe 51 31 f8 99 0f fa 52 8e 96 84 ce e6 5d 27 c4 64 27 c6 37 8f 76 24 ce 8c 50 07 c4 37 8f 76 82 ┆ Q1 R Å' d' 7 v$ P 7 v ┆
0x02e0…02fd 00 04 24 ce 84 50 07 c6 37 8f 6e 82 00 01 34 80 10 d9 31 fa dd 27 be d9 31 fe 21 27 c8 ┆ $ P 7 n 4 1 ' 1 !' ┆
0x02fd…0300 0x000001
0x0300…1500 Data for pascmaninp
0x1500…1520 32 37 38 38 2c 33 32 37 39 30 2c 33 32 37 39 32 2c 30 2c 30 2c 0a 33 32 37 39 34 2c 33 32 37 39 ┆2788,32790,32792,0,0, 32794,3279┆
0x1520…1540 36 2c 33 32 37 39 38 2c 33 32 38 30 30 2c 33 32 38 30 32 2c 0a 33 32 38 30 34 2c 33 32 38 30 36 ┆6,32798,32800,32802, 32804,32806┆
0x1540…1560 2c 33 32 38 30 38 2c 33 32 38 31 30 2c 33 32 38 31 32 2c 0a 33 32 38 31 34 2c 33 32 38 31 36 2c ┆,32808,32810,32812, 32814,32816,┆
0x1560…1580 33 32 38 31 38 2c 33 32 38 32 30 2c 33 32 38 32 32 2c 0a 30 2c 30 2c 30 2c 30 2c 30 2c 0a 6e 65 ┆32818,32820,32822, 0,0,0,0,0, ne┆
0x1580…15a0 77 6f 66 66 73 65 74 2c 0a 30 29 0a 2f 2c 0a 6c 2e 2f 70 72 6f 63 65 64 75 72 65 73 74 61 6e 64 ┆woffset, 0) /, l./procedurestand┆
0x15a0…15c0 61 72 64 70 72 6f 63 2f 2c 0a 6c 2e 2f 66 69 6c 70 61 72 61 6d 3a 2f 2c 72 2f 3a 2f 2c 0a 20 20 ┆ardproc/, l./filparam:/,r/:/, ┆
0x15c0…15e0 20 70 61 72 61 6d 31 2c 70 61 72 61 6d 32 2c 70 61 72 61 6d 33 2c 70 61 72 61 6d 34 3a 2f 2c 0a ┆ param1,param2,param3,param4:/, ┆
0x15e0…1600 6c 2e 2f 3a 69 6e 74 65 67 65 72 2f 2c 72 2f 3a 2f 2c 73 74 6f 72 65 69 6e 64 65 78 3a 2f 2c 0a ┆l./:integer/,r/:/,storeindex:/, ┆
0x1600…1620 6c 2e 2f 70 72 6f 63 65 64 75 72 65 72 65 61 64 2f 2c 69 2f 0a 0a 70 72 6f 63 65 64 75 72 65 20 ┆l./procedureread/,i/ procedure ┆
0x1620…1640 74 61 6b 65 70 61 72 61 6d 28 76 61 72 20 6f 6c 64 2c 6e 65 77 3a 20 70 73 65 75 64 6f 70 74 72 ┆takeparam(var old,new: pseudoptr┆
0x1640…1660 29 3b 0a 62 65 67 69 6e 0a 69 66 20 6f 6c 64 3c 3e 6e 65 77 20 74 68 65 6e 20 6e 65 77 3a 3d 6f ┆); begin if old<>new then new:=o┆
0x1660…1680 6c 64 5e 2e 6e 65 78 74 3b 0a 69 66 20 6e 65 77 5e 2e 6b 69 6e 64 3d 65 78 70 72 65 73 73 69 6f ┆ld^.next; if new^.kind=expressio┆
0x1680…16a0 6e 20 74 68 65 6e 20 65 76 61 6c 74 6f 72 65 73 75 6c 74 28 6e 65 77 2c 6e 6f 73 6b 69 70 29 3b ┆n then evaltoresult(new,noskip);┆
0x16a0…16c0 0a 69 66 20 6e 65 77 5e 2e 6b 69 6e 64 3c 3e 72 65 67 20 74 68 65 6e 20 6c 6f 61 64 28 6e 65 77 ┆ if new^.kind<>reg then load(new┆
0x16c0…16e0 29 3b 0a 65 6e 64 3b 0a 2f 2c 0a 6c 2e 2f 70 73 5f 6e 65 77 3a 2f 2c 69 2f 0a 70 73 5f 61 6c 6c ┆); end; /, l./ps_new:/,i/ ps_all┆
0x16e0…1700 6f 63 61 74 65 2c 0a 2f 2c 0a 6c 2e 2f 69 66 6c 65 6e 67 74 68 3c 6d 61 78 73 69 67 6e 65 64 68 ┆ocate, /, l./iflength<maxsignedh┆
0x1700…1720 61 6c 66 77 6f 72 64 2f 2c 0a 69 2f 0a 69 66 20 73 74 61 6e 64 61 72 64 6e 61 6d 65 3d 70 73 5f ┆alfword/, i/ if standardname=ps_┆
0x1720…1740 61 6c 6c 6f 63 61 74 65 20 74 68 65 6e 0a 62 65 67 69 6e 0a 20 20 70 61 72 61 6d 31 3a 3d 70 61 ┆allocate then begin param1:=pa┆
0x1740…1760 72 61 6d 5e 2e 6e 65 78 74 3b 0a 20 20 69 66 20 70 61 72 61 6d 31 5e 2e 6b 69 6e 64 3c 3e 72 65 ┆ram^.next; if param1^.kind<>re┆
0x1760…1780 67 20 74 68 65 6e 20 6c 6f 61 64 28 70 61 72 61 6d 31 29 3b 0a 20 20 6c 6f 61 64 72 65 67 69 73 ┆g then load(param1); loadregis┆
0x1780…17a0 74 65 72 28 30 2c 70 61 72 61 6d 31 29 3b 0a 20 20 72 65 74 75 72 6e 70 73 65 75 64 6f 28 70 61 ┆ter(0,param1); returnpseudo(pa┆
0x17a0…17c0 72 61 6d 31 29 3b 0a 65 6e 64 20 28 2a 61 6c 6c 6f 63 61 74 65 2a 29 20 65 6c 73 65 0a 2f 2c 0a ┆ram1); end (*allocate*) else /, ┆
0x17c0…17e0 6c 2e 2f 70 73 5f 72 65 70 6c 61 63 65 2c 2f 2c 6c 2d 31 2c 69 2f 0a 70 73 5f 6d 6f 6e 69 74 6f ┆l./ps_replace,/,l-1,i/ ps_monito┆
0x17e0…1800 72 6d 6f 64 65 2c 0a 70 73 5f 75 6e 73 74 61 63 6b 63 75 72 69 3a 0a 62 65 67 69 6e 0a 20 20 63 ┆rmode, ps_unstackcuri: begin c┆
0x1800…1820 61 6c 6c 73 74 61 6e 64 61 72 64 3b 0a 20 20 6d 61 6b 65 77 6f 72 64 63 6f 64 65 28 20 72 6f 75 ┆allstandard; makewordcode( rou┆
0x1820…1840 74 69 6e 65 6e 75 6d 62 65 72 29 3b 0a 65 6e 64 3b 0a 70 73 5f 77 6f 72 64 73 74 6f 72 65 3a 0a ┆tinenumber); end; ps_wordstore: ┆
0x1840…1860 62 65 67 69 6e 0a 20 20 70 61 72 61 6d 31 3a 3d 70 61 72 61 6d 5e 2e 6e 65 78 74 3b 0a 20 20 69 ┆begin param1:=param^.next; i┆
0x1860…1880 66 20 70 61 72 61 6d 5e 2e 6b 69 6e 64 3d 65 78 70 72 65 73 73 69 6f 6e 20 74 68 65 6e 20 65 76 ┆f param^.kind=expression then ev┆
0x1880…18a0 61 6c 74 6f 72 65 73 75 6c 74 28 70 61 72 61 6d 2c 6e 6f 73 6b 69 70 29 3b 0a 20 20 69 66 20 70 ┆altoresult(param,noskip); if p┆
0x18a0…18c0 61 72 61 6d 5e 2e 6b 69 6e 64 3c 3e 72 65 67 20 74 68 65 6e 20 6c 6f 61 64 28 70 61 72 61 6d 29 ┆aram^.kind<>reg then load(param)┆
0x18c0…18e0 3b 0a 20 20 69 66 20 70 61 72 61 6d 31 5e 2e 6b 69 6e 64 3c 3e 65 78 70 72 65 73 73 69 6f 6e 20 ┆; if param1^.kind<>expression ┆
0x18e0…1900 74 68 65 6e 20 65 76 61 6c 74 6f 72 65 73 75 6c 74 28 70 61 72 61 6d 31 2c 6e 6f 73 6b 69 70 29 ┆then evaltoresult(param1,noskip)┆
0x1900…1920 3b 0a 20 20 69 66 20 70 61 72 61 6d 31 5e 2e 6b 69 6e 64 3c 3e 72 65 67 20 74 68 65 6e 20 6c 6f ┆; if param1^.kind<>reg then lo┆
0x1920…1940 61 64 72 65 67 69 73 74 65 72 28 30 2c 70 61 72 61 6d 31 29 3b 0a 20 20 6c 6f 61 64 72 65 67 69 ┆adregister(0,param1); loadregi┆
0x1940…1960 73 74 65 72 28 31 2c 70 61 72 61 6d 29 3b 0a 20 20 6d 61 6b 65 69 6e 64 65 78 63 6f 64 65 28 72 ┆ster(1,param); makeindexcode(r┆
0x1960…1980 73 2c 30 2c 31 2c 30 29 3b 0a 20 20 72 65 74 75 72 6e 70 73 65 75 64 6f 28 70 61 72 61 6d 31 29 ┆s,0,1,0); returnpseudo(param1)┆
0x1980…19a0 3b 0a 65 6e 64 3b 0a 70 73 5f 73 65 6e 64 61 6e 73 77 65 72 2c 0a 70 73 5f 6d 6f 6e 63 61 6c 6c ┆; end; ps_sendanswer, ps_moncall┆
0x19a0…19c0 2c 0a 70 73 5f 66 70 70 72 6f 63 3a 0a 62 65 67 69 6e 0a 74 61 6b 65 70 61 72 61 6d 28 70 61 72 ┆, ps_fpproc: begin takeparam(par┆
0x19c0…19e0 61 6d 2c 70 61 72 61 6d 29 3b 0a 74 61 6b 65 70 61 72 61 6d 28 70 61 72 61 6d 2c 70 61 72 61 6d ┆am,param); takeparam(param,param┆
0x19e0…1a00 31 29 3b 0a 74 61 6b 65 70 61 72 61 6d 28 70 61 72 61 6d 31 2c 70 61 72 61 6d 32 29 3b 0a 74 61 ┆1); takeparam(param1,param2); ta┆
0x1a00…1a20 6b 65 70 61 72 61 6d 28 70 61 72 61 6d 32 2c 70 61 72 61 6d 33 29 3b 0a 72 65 73 65 72 76 65 63 ┆keparam(param2,param3); reservec┆
0x1a20…1a40 6f 64 65 28 35 30 29 3b 0a 6d 61 6b 65 77 72 65 6c 63 6f 64 65 28 72 73 2c 70 61 72 61 6d 5e 2e ┆ode(50); makewrelcode(rs,param^.┆
0x1a40…1a60 72 65 67 6e 6f 2c 30 29 3b 0a 6d 61 6b 65 77 72 65 6c 63 6f 64 65 28 72 73 2c 70 61 72 61 6d 32 ┆regno,0); makewrelcode(rs,param2┆
0x1a60…1a80 5e 2e 72 65 67 6e 6f 2c 30 29 3b 0a 69 66 20 73 74 61 6e 64 61 72 64 6e 61 6d 65 3d 70 73 5f 6d ┆^.regno,0); if standardname=ps_m┆
0x1a80…1aa0 6f 6e 63 61 6c 6c 20 74 68 65 6e 0a 62 65 67 69 6e 0a 20 20 74 61 6b 65 70 61 72 61 6d 28 70 61 ┆oncall then begin takeparam(pa┆
0x1aa0…1ac0 72 61 6d 33 2c 70 61 72 61 6d 34 29 3b 0a 20 20 6d 61 6b 65 77 72 65 6c 63 6f 64 65 28 72 73 2c ┆ram3,param4); makewrelcode(rs,┆
0x1ac0…1ae0 70 61 72 61 6d 34 5e 2e 72 65 67 6e 6f 2c 30 29 3b 0a 20 20 72 65 74 75 72 6e 70 73 65 75 64 6f ┆param4^.regno,0); returnpseudo┆
0x1ae0…1b00 28 70 61 72 61 6d 34 29 3b 0a 65 6e 64 3b 0a 73 74 6f 72 65 69 6e 64 65 78 3a 3d 6c 61 73 74 69 ┆(param4); end; storeindex:=lasti┆
0x1b00…1b20 (3,) 6e 64 65 78 3b 0a 6c 6f 61 64 61 64 64 72 65 73 73 28 30 2c 70 61 72 61 6d 31 29 3b 0a 6c 6f 61 ┆ndex; loadaddress(0,param1); loa┆
0x1b20…1b40 64 61 64 64 72 65 73 73 28 31 2c 70 61 72 61 6d 33 29 3b 0a 63 61 6c 6c 73 74 61 6e 64 61 72 64 ┆daddress(1,param3); callstandard┆
0x1b40…1b60 3b 0a 6d 61 6b 65 77 6f 72 64 63 6f 64 65 28 72 6f 75 74 69 6e 65 6e 75 6d 62 65 72 29 3b 0a 6d ┆; makewordcode(routinenumber); m┆
0x1b60…1b80 61 6b 65 77 6f 72 64 63 6f 64 65 28 30 29 3b 0a 6d 61 6b 65 77 6f 72 64 63 6f 64 65 28 32 29 3b ┆akewordcode(0); makewordcode(2);┆
0x1b80…1ba0 0a 69 66 20 73 74 61 6e 64 61 72 64 6e 61 6d 65 3d 70 73 5f 6d 6f 6e 63 61 6c 6c 20 74 68 65 6e ┆ if standardname=ps_moncall then┆
0x1ba0…1bc0 20 6d 61 6b 65 77 6f 72 64 63 6f 64 65 28 34 29 3b 0a 69 66 20 6c 61 73 74 69 6e 64 65 78 2d 73 ┆ makewordcode(4); if lastindex-s┆
0x1bc0…1be0 74 6f 72 65 69 6e 64 65 78 3e 3d 6d 61 78 73 69 67 6e 65 64 68 61 6c 66 77 6f 72 64 20 64 69 76 ┆toreindex>=maxsignedhalfword div┆
0x1be0…1c00 20 6f 6e 65 77 6f 72 64 20 74 68 65 6e 20 65 72 72 6f 72 28 33 31 39 29 0a 65 6c 73 65 20 63 6f ┆ oneword then error(319) else co┆
0x1c00…1c20 64 65 5e 2e 63 5b 73 74 6f 72 65 69 6e 64 65 78 5d 2e 64 69 73 70 6c 61 63 65 6d 65 6e 74 3a 3d ┆de^.cÆstoreindexÅ.displacement:=┆
0x1c20…1c40 28 6c 61 73 74 69 6e 64 65 78 2d 73 74 6f 72 65 69 6e 64 65 78 29 2a 6f 6e 65 77 6f 72 64 3b 0a ┆(lastindex-storeindex)*oneword; ┆
0x1c40…1c60 72 65 74 75 72 6e 70 73 65 75 64 6f 28 70 61 72 61 6d 31 29 3b 0a 72 65 74 75 72 6e 70 73 65 75 ┆returnpseudo(param1); returnpseu┆
0x1c60…1c80 64 6f 28 70 61 72 61 6d 32 29 3b 0a 72 65 74 75 72 6e 70 73 65 75 64 6f 28 70 61 72 61 6d 33 29 ┆do(param2); returnpseudo(param3)┆
0x1c80…1ca0 3b 0a 20 20 0a 65 6e 64 3b 0a 70 73 5f 72 65 6c 65 61 73 65 70 72 6f 63 2c 0a 70 73 5f 67 65 74 ┆; end; ps_releaseproc, ps_get┆
0x1ca0…1cc0 65 76 65 6e 74 2c 0a 70 73 5f 72 65 67 72 65 74 2c 0a 2f 2c 0a 6c 2e 2f 70 72 6f 63 65 64 75 72 ┆event, ps_regret, /, l./procedur┆
0x1cc0…1ce0 65 73 74 61 6e 64 61 72 64 66 75 6e 63 74 69 6f 6e 2f 2c 0a 6c 2e 2f 66 73 5f 73 79 73 74 65 6d ┆estandardfunction/, l./fs_system┆
0x1ce0…1d00 2f 2c 69 2f 0a 66 73 5f 66 69 72 73 74 61 64 64 72 65 73 73 3a 20 62 65 67 69 6e 0a 20 20 6c 6f ┆/,i/ fs_firstaddress: begin lo┆
0x1d00…1d20 61 64 61 64 64 72 65 73 73 28 30 2c 70 61 72 61 6d 29 3b 0a 20 20 6d 61 6b 65 72 65 67 69 73 74 ┆adaddress(0,param); makeregist┆
0x1d20…1d40 65 72 28 66 75 6e 63 74 2c 30 29 3b 0a 65 6e 64 3b 0a 66 73 5f 77 6f 72 64 6c 6f 61 64 3a 20 62 ┆er(funct,0); end; fs_wordload: b┆
0x1d40…1d60 65 67 69 6e 0a 20 20 69 66 20 70 61 72 61 6d 5e 2e 6b 69 6e 64 3c 3e 72 65 67 20 74 68 65 6e 20 ┆egin if param^.kind<>reg then ┆
0x1d60…1d80 6c 6f 61 64 28 70 61 72 61 6d 29 3b 0a 20 20 6c 6f 61 64 72 65 67 69 73 74 65 72 28 31 2c 70 61 ┆load(param); loadregister(1,pa┆
0x1d80…1da0 72 61 6d 29 3b 0a 20 20 6d 61 6b 65 69 6e 64 65 78 63 6f 64 65 28 72 6c 2c 31 2c 31 2c 30 29 3b ┆ram); makeindexcode(rl,1,1,0);┆
0x1da0…1dc0 0a 20 20 6d 61 6b 65 72 65 67 69 73 74 65 72 28 66 75 6e 63 74 2c 31 29 3b 0a 65 6e 64 3b 0a 66 ┆ makeregister(funct,1); end; f┆
0x1dc0…1de0 73 5f 69 6e 6f 72 2c 0a 66 73 5f 69 6e 61 6e 64 2c 0a 66 73 5f 69 6e 65 78 6f 72 2c 0a 66 73 5f ┆s_inor, fs_inand, fs_inexor, fs_┆
0x1de0…1e00 73 68 69 66 74 2c 0a 66 73 5f 65 78 74 72 61 63 74 3a 20 62 65 67 69 6e 0a 69 66 20 70 61 72 61 ┆shift, fs_extract: begin if para┆
0x1e00…1e20 6d 5e 2e 6b 69 6e 64 3c 3e 72 65 67 20 74 68 65 6e 20 6c 6f 61 64 28 70 61 72 61 6d 29 3b 0a 70 ┆m^.kind<>reg then load(param); p┆
0x1e20…1e40 61 72 61 6d 31 3a 3d 70 61 72 61 6d 5e 2e 6e 65 78 74 3b 0a 69 66 20 70 61 72 61 6d 31 5e 2e 6b ┆aram1:=param^.next; if param1^.k┆
0x1e40…1e60 69 6e 64 3d 65 78 70 72 65 73 73 69 6f 6e 20 74 68 65 6e 20 65 76 61 6c 74 6f 72 65 73 75 6c 74 ┆ind=expression then evaltoresult┆
0x1e60…1e80 28 70 61 72 61 6d 31 2c 6e 6f 73 6b 69 70 29 3b 0a 69 66 20 70 61 72 61 6d 31 5e 2e 6b 69 6e 64 ┆(param1,noskip); if param1^.kind┆
0x1e80…1ea0 3c 3e 72 65 67 20 74 68 65 6e 20 6c 6f 61 64 28 70 61 72 61 6d 29 3b 0a 6c 6f 61 64 72 65 67 69 ┆<>reg then load(param); loadregi┆
0x1ea0…1ec0 73 74 65 72 28 30 2c 70 61 72 61 6d 29 3b 0a 6c 6f 61 64 72 65 67 69 73 74 65 72 28 31 2c 70 61 ┆ster(0,param); loadregister(1,pa┆
0x1ec0…1ee0 72 61 6d 31 29 3b 0a 63 61 73 65 20 73 74 64 5f 66 75 6e 63 20 6f 66 0a 66 73 5f 69 6e 6f 72 3a ┆ram1); case std_func of fs_inor:┆
0x1ee0…1f00 20 6d 61 6b 65 63 6f 64 65 28 6c 6f 2c 30 2c 32 29 3b 0a 66 73 5f 69 6e 61 6e 64 3a 20 6d 61 6b ┆ makecode(lo,0,2); fs_inand: mak┆
0x1f00…1f20 65 63 6f 64 65 28 6c 61 2c 30 2c 32 29 3b 0a 66 73 5f 69 6e 65 78 6f 72 3a 20 6d 61 6b 65 63 6f ┆ecode(la,0,2); fs_inexor: makeco┆
0x1f20…1f40 64 65 28 6c 78 2c 30 2c 32 29 3b 0a 66 73 5f 73 68 69 66 74 3a 20 20 6d 61 6b 65 69 6e 64 65 78 ┆de(lx,0,2); fs_shift: makeindex┆
0x1f40…1f60 63 6f 64 65 28 6c 73 2c 30 2c 31 2c 30 29 3b 0a 66 73 5f 65 78 74 72 61 63 74 3a 20 62 65 67 69 ┆code(ls,0,1,0); fs_extract: begi┆
0x1f60…1f80 6e 0a 6d 61 6b 65 63 6f 64 65 28 61 6c 2c 33 2c 2d 31 29 3b 0a 6d 61 6b 65 69 6e 64 65 78 63 6f ┆n makecode(al,3,-1); makeindexco┆
0x1f80…1fa0 64 65 28 6c 73 2c 33 2c 31 2c 30 29 3b 0a 6d 61 6b 65 63 6f 64 65 28 6c 61 2c 30 2c 36 29 3b 0a ┆de(ls,3,1,0); makecode(la,0,6); ┆
0x1fa0…1fc0 65 6e 64 3b 0a 65 6e 64 3b 0a 6d 61 6b 65 72 65 67 69 73 74 65 72 28 66 75 6e 63 74 2c 30 29 3b ┆end; end; makeregister(funct,0);┆
0x1fc0…1fe0 0a 65 6e 64 3b 0a 66 73 5f 69 6e 63 6c 75 64 65 2c 0a 66 73 5f 65 78 63 6c 75 64 65 2c 0a 66 73 ┆ end; fs_include, fs_exclude, fs┆
0x1fe0…2000 5f 73 79 73 74 65 6d 61 64 64 72 65 73 73 2c 0a 66 73 5f 73 65 6e 64 66 75 72 74 68 65 72 2c 0a ┆_systemaddress, fs_sendfurther, ┆
0x2000…2020 66 73 5f 73 74 6f 70 69 6e 74 3a 0a 62 65 67 69 6e 0a 20 20 69 66 20 70 61 72 61 6d 5e 2e 6b 69 ┆fs_stopint: begin if param^.ki┆
0x2020…2040 6e 64 3c 3e 72 65 67 20 74 68 65 6e 20 6c 6f 61 64 28 70 61 72 61 6d 29 3b 0a 20 20 6c 6f 61 64 ┆nd<>reg then load(param); load┆
0x2040…2060 72 65 67 69 73 74 65 72 28 30 2c 70 61 72 61 6d 29 3b 0a 20 20 70 61 72 61 6d 31 3a 3d 70 61 72 ┆register(0,param); param1:=par┆
0x2060…2080 61 6d 5e 2e 6e 65 78 74 3b 0a 20 20 69 66 20 70 61 72 61 6d 31 5e 2e 6b 69 6e 64 3d 65 78 70 72 ┆am^.next; if param1^.kind=expr┆
0x2080…20a0 65 73 73 69 6f 6e 20 74 68 65 6e 20 65 76 61 6c 74 6f 72 65 73 75 6c 74 28 70 61 72 61 6d 31 2c ┆ession then evaltoresult(param1,┆
0x20a0…20c0 6e 6f 73 6b 69 70 29 3b 0a 20 20 69 66 20 70 61 72 61 6d 31 5e 2e 6b 69 6e 64 3c 3e 72 65 67 20 ┆noskip); if param1^.kind<>reg ┆
0x20c0…20e0 74 68 65 6e 20 6c 6f 61 64 28 70 61 72 61 6d 31 29 3b 0a 20 20 6c 6f 61 64 61 64 64 72 65 73 73 ┆then load(param1); loadaddress┆
0x20e0…2100 28 31 2c 70 61 72 61 6d 31 29 3b 0a 20 20 63 61 6c 6c 73 74 61 6e 64 61 72 64 3b 0a 20 20 6d 61 ┆(1,param1); callstandard; ma┆
0x2100…2120 6b 65 77 6f 72 64 63 6f 64 65 28 73 74 64 72 6f 75 74 69 6e 65 5b 73 74 64 5f 66 75 6e 63 5d 29 ┆kewordcode(stdroutineÆstd_funcÅ)┆
0x2120…2140 3b 0a 20 20 6d 61 6b 65 72 65 67 69 73 74 65 72 28 66 75 6e 63 74 2c 30 29 3b 0a 20 20 72 65 74 ┆; makeregister(funct,0); ret┆
0x2140…2160 75 72 6e 70 73 65 75 64 6f 28 70 61 72 61 6d 31 29 3b 0a 65 6e 64 3b 0a 66 73 5f 64 65 73 63 72 ┆urnpseudo(param1); end; fs_descr┆
0x2160…2180 69 70 74 69 6f 6e 2c 0a 66 73 5f 69 6e 69 74 70 72 6f 63 2c 0a 66 73 5f 72 65 73 65 72 76 65 70 ┆iption, fs_initproc, fs_reservep┆
0x2180…21a0 72 6f 63 2c 0a 66 73 5f 77 61 69 74 65 76 65 6e 74 2c 0a 66 73 5f 63 70 75 6d 61 73 6b 2c 0a 66 ┆roc, fs_waitevent, fs_cpumask, f┆
0x21a0…21c0 73 5f 63 6f 6e 6e 65 63 74 63 75 72 69 2c 0a 66 73 5f 72 65 6d 6f 76 65 70 72 6f 63 2c 0a 66 73 ┆s_connectcuri, fs_removeproc, fs┆
0x21c0…21e0 5f 73 74 61 72 74 69 6e 74 3a 20 62 65 67 69 6e 0a 20 20 69 66 20 70 61 72 61 6d 5e 2e 6b 69 6e ┆_startint: begin if param^.kin┆
0x21e0…2200 64 3c 3e 72 65 67 20 74 68 65 6e 20 6c 6f 61 64 28 70 61 72 61 6d 29 3b 0a 20 20 70 61 72 61 6d ┆d<>reg then load(param); param┆
0x2200…2220 5e 2e 74 79 70 3a 3d 69 6e 74 65 67 65 72 74 79 70 65 3b 0a 20 20 6c 6f 61 64 61 64 64 72 65 73 ┆^.typ:=integertype; loadaddres┆
0x2220…2240 73 28 30 2c 70 61 72 61 6d 29 3b 0a 20 20 63 61 6c 6c 73 74 61 6e 64 61 72 64 3b 0a 20 20 6d 61 ┆s(0,param); callstandard; ma┆
0x2240…2260 6b 65 77 6f 72 64 63 6f 64 65 28 73 74 64 72 6f 75 74 69 6e 65 5b 73 74 64 5f 66 75 6e 63 5d 29 ┆kewordcode(stdroutineÆstd_funcÅ)┆
0x2260…2280 3b 0a 20 20 6d 61 6b 65 72 65 67 69 73 74 65 72 28 66 75 6e 63 74 2c 30 29 3b 0a 65 6e 64 3b 0a ┆; makeregister(funct,0); end; ┆
0x2280…22a0 66 73 5f 63 72 65 61 74 65 69 6e 74 2c 0a 66 73 5f 6d 6f 64 69 66 79 69 6e 74 2c 0a 66 73 5f 77 ┆fs_createint, fs_modifyint, fs_w┆
0x22a0…22c0 61 69 74 61 6e 73 77 65 72 2c 0a 66 73 5f 74 65 73 74 65 76 65 6e 74 3a 20 62 65 67 69 6e 0a 20 ┆aitanswer, fs_testevent: begin ┆
0x22c0…22e0 20 69 66 20 70 61 72 61 6d 5e 2e 6b 69 6e 64 3c 3e 72 65 67 20 74 68 65 6e 20 6c 6f 61 64 28 70 ┆ if param^.kind<>reg then load(p┆
0x22e0…2300 61 72 61 6d 29 3b 0a 20 20 70 61 72 61 6d 5e 2e 74 79 70 3a 3d 69 6e 74 65 67 65 72 74 79 70 65 ┆aram); param^.typ:=integertype┆
0x2300…2320 3b 0a 20 20 6e 65 78 74 70 61 72 61 6d 3a 3d 66 75 6e 63 74 5e 2e 6c 65 66 74 6f 70 65 72 61 6e ┆; nextparam:=funct^.leftoperan┆
0x2320…2340 64 5e 2e 6c 65 66 74 6f 70 65 72 61 6e 64 3b 0a 20 20 70 61 72 61 6d 31 3a 3d 6e 65 78 74 70 61 ┆d^.leftoperand; param1:=nextpa┆
0x2340…2360 72 61 6d 5e 2e 72 69 67 68 74 6f 70 65 72 61 6e 64 3b 0a 20 20 6c 6f 61 64 61 64 64 72 65 73 73 ┆ram^.rightoperand; loadaddress┆
0x2360…2380 28 31 2c 70 61 72 61 6d 31 29 3b 0a 20 20 6c 6f 61 64 61 64 64 72 65 73 73 28 30 2c 70 61 72 61 ┆(1,param1); loadaddress(0,para┆
0x2380…23a0 6d 29 3b 0a 20 20 63 61 6c 6c 73 74 61 6e 64 61 72 64 3b 0a 20 20 6d 61 6b 65 77 6f 72 64 63 6f ┆m); callstandard; makewordco┆
0x23a0…23c0 64 65 28 73 74 64 72 6f 75 74 69 6e 65 5b 73 74 64 5f 66 75 6e 63 5d 29 3b 0a 20 20 6d 61 6b 65 ┆de(stdroutineÆstd_funcÅ); make┆
0x23c0…23e0 72 65 67 69 73 74 65 72 28 66 75 6e 63 74 2c 30 29 3b 0a 20 20 72 65 74 75 72 6e 70 73 65 75 64 ┆register(funct,0); returnpseud┆
0x23e0…2400 6f 28 70 61 72 61 6d 31 29 3b 0a 20 20 72 65 74 75 72 6e 70 73 65 75 64 6f 28 6e 65 78 74 70 61 ┆o(param1); returnpseudo(nextpa┆
0x2400…2420 (4,) 72 61 6d 29 3b 0a 20 20 65 6e 64 3b 0a 66 73 5f 73 79 73 74 69 6d 65 2c 0a 66 73 5f 73 65 6e 64 ┆ram); end; fs_systime, fs_send┆
0x2420…2440 6d 65 73 73 61 67 65 2c 0a 2f 2c 0a 6c 2e 2f 66 73 5f 6d 6f 6e 69 74 6f 72 3a 2f 2c 0a 6c 2e 2f ┆message, /, l./fs_monitor:/, l./┆
0x2440…2460 63 61 6c 6c 73 74 61 6e 64 61 72 64 2f 2c 0a 6c 2e 2f 6d 61 6b 65 72 65 67 69 73 74 65 72 2f 2c ┆callstandard/, l./makeregister/,┆
0x2460…2480 69 2f 0a 69 66 20 73 74 64 5f 66 75 6e 63 3d 66 73 5f 73 79 73 74 69 6d 65 20 74 68 65 6e 0a 62 ┆i/ if std_func=fs_systime then b┆
0x2480…24a0 65 67 69 6e 0a 20 20 6d 61 6b 65 72 65 67 69 73 74 65 72 28 66 75 6e 63 74 2c 30 29 3b 0a 20 20 ┆egin makeregister(funct,0); ┆
0x24a0…24c0 72 65 67 69 73 74 65 72 5b 31 5d 3a 3d 72 65 67 69 73 74 65 72 5b 30 5d 3b 0a 65 6e 64 20 65 6c ┆registerÆ1Å:=registerÆ0Å; end el┆
0x24c0…24e0 73 65 0a 2f 2c 66 0a 63 70 61 73 73 32 3d 65 64 69 74 20 63 6f 6d 70 61 73 73 32 0a 69 2f 0a 6f ┆se /,f cpass2=edit compass2 i/ o┆
0x24e0…2500 20 75 38 30 0a 2f 2c 0a 6c 2e 2f 74 70 61 73 63 70 61 73 73 32 2f 2c 72 2f 74 70 2f 74 6e 70 2f ┆ u80 /, l./tpascpass2/,r/tp/tnp/┆
0x2500…2520 2c 0a 72 2f 70 61 73 73 32 20 2f 70 32 20 2f 2c 0a 6c 20 62 2c 69 2f 0a 6f 20 63 0a 2f 2c 66 0a ┆, r/pass2 /p2 /, l b,i/ o c /,f ┆
0x2520…2540 73 63 6f 70 65 20 64 61 79 20 63 70 61 73 73 32 20 74 6e 70 61 73 63 70 32 0a 6d 6f 64 65 20 6c ┆scope day cpass2 tnpascp2 mode l┆
0x2540…2560 69 73 74 2e 6e 6f 0a 66 69 6e 69 73 62 0a 19 00 51 28 14 5d 28 16 2c 08 01 5c 28 14 34 80 08 51 ┆ist.no finisb Q( Å( , Ø( 4 Q┆
0x2560…2580 28 14 51 10 00 5d 28 14 34 8f e4 51 28 16 a9 08 01 34 80 1c 51 28 10 51 18 88 53 28 0e 5d 30 00 ┆( Q Å( 4 Q( 4 Q( Q S( Å0 ┆
0x2580…25a0 53 28 0e 24 68 10 5f 08 88 2c 00 00 53 28 0e 5c 30 06 2d 00 00 53 28 0e 5d 30 08 51 28 0e 51 10 ┆S( $h _ , S( Ø0 - S( Å0 Q( Q ┆
0x25a0…25c0 08 ad 00 00 34 80 4a 51 28 0e 51 10 08 24 68 10 21 08 54 a1 0b ff 34 80 3e 51 28 0e 51 10 08 24 ┆ 4 JQ( Q $h ! T 4 >Q( Q $┆
0x25c0…25e0 68 10 21 08 54 91 00 01 a1 07 ff a1 c0 9c 79 0f fe 53 28 10 53 38 54 a3 c0 92 a3 00 00 7b 0f fe ┆h ! T y S( S8T æ ┆
0x25e0…2600 93 00 01 5f 28 1a 53 28 10 53 38 28 1f 28 1a 5f 28 1a 4d 00 03 53 80 7c 9b 00 00 99 00 00 87 30 ┆ _( S( S8( ( _( M S ø 0┆
0x2600…2620 01 24 68 1a 13 0f fe 15 00 06 24 68 1a 5d 0f fe 34 80 66 2c 00 00 53 28 0e 5c 30 08 51 28 0e 51 ┆ $h $h Å 4 f, S( Ø0 Q( Q┆
0x2620…2640 10 06 5d 28 18 ad 00 00 34 80 0a 51 28 18 24 68 10 21 08 54 5d 28 18 51 28 10 51 18 54 53 28 0e ┆ Å( 4 Q( $h ! TÅ( Q( Q TS( ┆
0x2640…2660 5d 30 06 53 28 18 a3 07 ff a3 c0 48 7b 0f fe 51 28 10 51 18 54 a1 c0 3e a1 00 00 79 0f fe 91 00 ┆Å0 S( Hæ Q( Q T > y ┆
0x2660…2680 01 5d 28 1a 51 28 10 51 18 28 1d 28 1a 5d 28 1a 4f 00 07 51 80 28 99 00 00 9b 00 00 85 10 01 24 ┆ Å( Q( Q ( ( Å( O Q ( $┆
0x2680…26a0 68 1a 11 0f fe 17 00 02 24 68 1a 5f 0f fe 51 28 0e 51 10 04 51 10 06 91 0f ff 53 28 10 53 38 5a ┆h $h _ Q( Q Q S( S8Z┆
0x26a0…26c0 23 00 02 24 68 10 5f 08 5a 53 28 10 34 78 03 00 0f ff 00 17 70 ff f7 ff 5e 28 10 50 10 00 5c 28 ┆# $h _ ZS( 4x p ^( P Ø(┆
0x26c0…26e0 0e 51 28 0e 51 18 b6 5d 28 1a 53 28 0c 53 30 08 13 81 f4 34 81 c6 34 00 00 00 00 00 51 28 1a 51 ┆ Q( Q Å( S( S0 4 4 Q( Q┆
0x26e0…2700 10 04 ad 00 05 34 80 0a 51 28 1a 51 10 04 a9 00 04 34 80 22 51 28 1a 51 10 06 81 00 00 dd 28 58 ┆ 4 Q( Q 4 "Q( Q (X┆
0x2700…2720 3b 65 64 69 74 20 6f 66 20 74 70 61 73 63 61 6c 6c 69 62 20 38 30 20 30 37 20 32 39 20 31 33 20 ┆;edit of tpascallib 80 07 29 13 ┆
0x2720…2740 33 30 0a 3b 69 6e 73 65 72 74 20 64 65 73 63 72 69 70 74 69 6f 6e 0a 74 6e 70 61 73 63 61 6c 6c ┆30 ;insert description tnpascall┆
0x2740…2760 69 62 3d 73 65 74 20 31 30 0a 74 6e 70 61 73 63 61 6c 6c 69 62 3d 65 64 69 74 20 74 70 61 73 63 ┆ib=set 10 tnpascallib=edit tpasc┆
0x2760…2780 61 6c 6c 69 62 0a 6c 2e 2f 76 65 72 73 69 6f 6e 2f 2c 72 2f 38 2f 38 20 68 63 7c 20 31 0a 3b 41 ┆allib l./version/,r/8/8 hcø 1 ;A┆
0x2780…27a0 6e 64 65 72 73 20 4c 69 6e 64 67 7d 72 64 0a 3b 68 63 7c 20 38 30 20 30 37 20 32 39 20 31 33 20 ┆nders Lindgård ;hcø 80 07 29 13 ┆
0x27a0…27c0 33 30 20 30 2f 2c 0a 6c 2e 2f 73 2e 73 31 30 77 2e 2f 2c 69 2f 0a 3b 0a 3b 20 20 20 20 20 31 32 ┆30 0/, l./s.s10w./,i/ ; ; 12┆
0x27c0…27e0 20 20 20 20 64 65 73 63 72 69 70 74 69 6f 6e 20 20 20 20 20 20 20 20 20 70 61 67 65 20 38 0a 3b ┆ description page 8 ;┆
0x27e0…2800 20 20 20 20 20 20 20 20 20 20 20 69 6e 69 74 70 72 6f 63 0a 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ initproc ; ┆
0x2800…2820 72 65 73 65 72 76 65 70 72 6f 63 0a 3b 20 20 20 20 20 20 20 20 20 20 20 72 65 6c 65 61 73 65 70 ┆reserveproc ; releasep┆
0x2820…2840 72 6f 63 0a 3b 20 20 20 20 20 20 20 20 20 20 20 69 6e 63 6c 75 64 65 20 0a 3b 20 20 20 20 20 20 ┆roc ; include ; ┆
0x2840…2860 20 20 20 20 20 65 78 63 6c 75 64 65 0a 3b 20 20 20 20 20 20 20 20 20 20 20 73 65 6e 64 6d 65 73 ┆ exclude ; sendmes┆
0x2860…2880 73 61 67 65 0a 3b 20 20 20 20 20 20 20 20 20 20 20 77 61 69 74 61 6e 73 77 65 72 0a 3b 20 20 20 ┆sage ; waitanswer ; ┆
0x2880…28a0 20 20 20 20 20 20 20 20 77 61 69 74 6d 65 73 73 61 67 65 0a 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ waitmessage ; ┆
0x28a0…28c0 73 65 6e 64 61 6e 73 77 65 72 0a 3b 20 20 20 20 20 20 20 20 20 20 20 77 61 69 74 65 76 65 6e 74 ┆sendanswer ; waitevent┆
0x28c0…28e0 0a 3b 20 20 20 20 20 20 20 20 20 20 20 67 65 74 65 76 65 6e 74 0a 3b 20 20 20 20 20 20 20 20 20 ┆ ; getevent ; ┆
0x28e0…2900 20 20 74 65 73 74 65 76 65 6e 74 0a 3b 20 20 20 20 20 20 20 20 20 20 20 63 72 65 61 74 65 69 6e ┆ testevent ; createin┆
0x2900…2920 74 65 72 6e 61 6c 0a 3b 20 20 20 20 20 20 20 20 20 20 20 73 74 61 72 74 69 6e 74 65 72 6e 61 6c ┆ternal ; startinternal┆
0x2920…2940 0a 3b 20 20 20 20 20 20 20 20 20 20 20 73 74 6f 70 69 6e 74 65 72 6e 61 6c 0a 3b 20 20 20 20 20 ┆ ; stopinternal ; ┆
0x2940…2960 20 20 20 20 20 20 6d 6f 64 69 66 79 69 6e 74 65 72 6e 61 6c 0a 3b 20 20 20 20 20 20 20 20 20 20 ┆ modifyinternal ; ┆
0x2960…2980 20 72 65 6d 6f 76 65 70 72 6f 63 65 73 73 0a 3b 20 20 20 20 20 20 20 20 20 20 20 72 65 67 72 65 ┆ removeprocess ; regre┆
0x2980…29a0 74 6d 65 73 73 61 67 65 0a 3b 20 20 20 20 20 20 20 20 20 20 28 66 70 70 72 6f 63 29 0a 3b 20 20 ┆tmessage ; (fpproc) ; ┆
0x29a0…29c0 20 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 63 75 72 69 0a 3b 20 20 20 20 20 20 20 20 20 20 ┆ connectcuri ; ┆
0x29c0…29e0 20 75 6e 73 74 61 63 6b 63 75 72 69 0a 3b 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 63 61 6c 6c ┆ unstackcuri ; moncall┆
0x29e0…2a00 0a 3b 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 69 74 6f 72 6d 6f 64 65 0a 3b 20 20 20 20 20 20 ┆ ; monitormode ; ┆