|
DataMuseum.dkPresents historical artifacts from the history of: Bogika Butler |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Bogika Butler Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 33280 (0x8200)
Names: »EFL1.B«
└─⟦e1c0a41a6⟧ Bits:30009789/_.ft.Ibm2.50007344.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »EFL1.B«
0x0000…0020 78 74 28 6c 69 6e 65 2c 63 72 4c 66 29 3b 00 24 94 63 68 65 63 6b 28 74 65 72 6d 49 6f 28 73 74 ┆xt(line,crLf); $ check(termIo(st┆
0x0020…0040 64 69 6f 2c 57 72 69 74 65 53 65 71 2c 6c 69 6e 65 29 29 3b 00 05 92 65 6e 64 3b 00 00 0f 90 65 ┆dio,WriteSeq,line)); end; e┆
0x0040…0060 6e 64 81 65 6c 73 65 81 62 65 67 69 6e 00 00 13 92 69 66 81 63 75 72 43 6f 6d 3d 73 70 65 65 64 ┆nd else begin if curCom=speed┆
0x0060…0080 43 6f 6d 00 00 40 8d 74 68 65 6e 81 63 68 65 63 6b 4f 6b 28 73 74 75 62 52 65 66 2e 53 70 65 65 ┆Com @ then checkOk(stubRef.Spee┆
0x0080…00a0 64 55 70 4f 62 6a 28 3b 81 62 75 66 5b 6e 61 6d 65 73 74 61 72 74 2e 2e 6e 61 6d 65 73 74 6f 70 ┆dUpObj(; bufÆnamestart..namestop┆
0x00a0…00c0 5d 29 2c 27 27 29 00 3f 8d 65 6c 73 65 81 63 68 65 63 6b 4f 6b 28 73 74 75 62 52 65 66 2e 41 62 ┆Å),'') ? else checkOk(stubRef.Ab┆
0x00c0…00e0 6f 72 74 4f 62 6a 28 3b 81 62 75 66 5b 6e 61 6d 65 73 74 61 72 74 2e 2e 6e 61 6d 65 73 74 6f 70 ┆ortObj(; bufÆnamestart..namestop┆
0x00e0…0100 5d 29 2c 27 27 29 3b 00 00 11 92 63 6c 65 61 72 54 65 78 74 28 6c 69 6e 65 29 3b 00 00 28 92 70 ┆Å),''); clearText(line); ( p┆
0x0100…0120 75 74 54 65 78 74 28 6c 69 6e 65 2c 62 75 66 5b 6e 61 6d 65 73 74 61 72 74 2e 2e 6e 61 6d 65 73 ┆utText(line,bufÆnamestart..names┆
0x0120…0140 74 6f 70 5d 29 3b 00 19 92 70 75 74 54 65 78 74 28 6c 69 6e 65 2c 27 81 6b 69 6c 6c 65 64 27 29 ┆topÅ); putText(line,' killed')┆
0x0140…0160 3b 00 00 0d 92 70 75 74 4e 4c 28 6c 69 6e 65 29 3b 00 00 24 92 63 68 65 63 6b 28 74 65 72 6d 49 ┆; putNL(line); $ check(termI┆
0x0160…0180 6f 28 73 74 64 69 6f 2c 57 72 69 74 65 53 65 71 2c 6c 69 6e 65 29 29 3b 00 05 90 65 6e 64 3b 00 ┆o(stdio,WriteSeq,line)); end; ┆
0x0180…01a0 00 0f 8e 65 6e 64 3b 81 7b 6b 69 6c 6c 43 6f 6d 7d 00 00 01 20 00 00 0b 8c 73 79 6e 74 61 78 43 ┆ end; ækillComå syntaxC┆
0x01a0…01c0 6f 6d 3a 00 00 06 8e 62 65 67 69 6e 00 11 90 63 6c 65 61 72 54 65 78 74 28 6c 69 6e 65 29 3b 00 ┆om: begin clearText(line); ┆
0x01c0…01e0 00 1b 90 70 75 74 54 65 78 74 28 6c 69 6e 65 2c 27 2a 2a 2a 73 79 6e 74 61 78 27 29 3b 00 00 0d ┆ putText(line,'***syntax'); ┆
0x01e0…0200 90 70 75 74 4e 4c 28 6c 69 6e 65 29 3b 00 00 24 90 63 68 65 63 6b 28 74 65 72 6d 49 6f 28 73 74 ┆ putNL(line); $ check(termIo(st┆
0x0200…0220 64 69 6f 2c 57 72 69 74 65 53 65 71 2c 6c 69 6e 65 29 29 3b 00 11 8e 65 6e 64 3b 81 7b 73 79 6e ┆dio,WriteSeq,line)); end; æsyn┆
0x0220…0240 74 61 78 43 6f 6d 7d 00 00 01 20 00 00 09 8c 65 78 65 63 43 6f 6d 3a 00 00 06 8e 62 65 67 69 6e ┆taxComå execCom: begin┆
0x0240…0260 00 23 90 69 66 81 6a 6f 62 53 74 61 74 65 3d 70 72 6f 67 52 75 6e 6e 69 6e 67 81 74 68 65 6e 81 ┆ # if jobState=progRunning then ┆
0x0260…0280 62 65 67 69 6e 00 00 11 92 63 6c 65 61 72 54 65 78 74 28 6c 69 6e 65 29 3b 00 00 19 92 70 75 74 ┆begin clearText(line); put┆
0x0280…02a0 54 65 78 74 28 6c 69 6e 65 2c 27 2a 2a 2a 62 75 73 79 27 29 3b 00 00 0d 92 70 75 74 4e 4c 28 6c ┆Text(line,'***busy'); putNL(l┆
0x02a0…02c0 69 6e 65 29 3b 00 00 24 92 63 68 65 63 6b 28 74 65 72 6d 49 6f 28 73 74 64 69 6f 2c 57 72 69 74 ┆ine); $ check(termIo(stdio,Writ┆
0x02c0…02e0 65 53 65 71 2c 6c 69 6e 65 29 29 3b 00 0f 90 65 6e 64 81 65 6c 73 65 81 62 65 67 69 6e 00 00 00 ┆eSeq,line)); end else begin ┆
0x02e0…0300 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 ┆ ┆
0x0300…0320 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x1f…]
0x0700…0720 00 2f 92 63 68 65 63 6b 4f 6b 28 73 74 75 62 52 65 66 2e 43 72 65 61 74 65 28 6f 75 74 81 70 72 ┆ / checkOk(stubRef.Create(out pr┆
0x0720…0740 6f 67 72 4f 62 6a 3b 81 69 6e 81 6a 6f 62 49 64 2c 00 00 1b a9 62 75 66 5b 6e 61 6d 65 73 74 61 ┆ogrObj; in jobId, bufÆnamesta┆
0x0740…0760 72 74 2e 2e 6e 61 6d 65 73 74 6f 70 5d 29 2c 00 00 1b a9 62 75 66 5b 6e 61 6d 65 73 74 61 72 74 ┆rt..namestopÅ), bufÆnamestart┆
0x0760…0780 2e 2e 6e 61 6d 65 73 74 6f 70 5d 29 3b 00 00 28 92 66 6f 72 81 69 3a 3d 31 81 74 6f 81 31 36 81 ┆..namestopÅ); ( for i:=1 to 16 ┆
0x0780…07a0 64 6f 81 70 72 6f 67 72 49 64 5b 69 5d 3a 3d 6a 6f 62 49 64 5b 69 5d 3b 00 13 92 70 72 6f 67 72 ┆do progrIdÆiÅ:=jobIdÆiÅ; progr┆
0x07a0…07c0 49 64 4c 65 6e 67 74 68 3a 3d 31 36 3b 00 00 15 92 69 6e 81 7b 70 72 6f 67 72 61 6d 81 63 72 65 ┆IdLength:=16; in æprogram cre┆
0x07c0…07e0 61 74 65 64 7d 00 00 15 94 7b 63 72 65 61 74 65 81 6a 6f 62 81 70 72 6f 63 65 73 73 7d 00 00 26 ┆atedå æcreate job processå &┆
0x07e0…0800 94 63 68 65 63 6b 4f 6b 28 73 63 68 65 64 52 65 66 2e 4e 65 77 50 72 6f 63 28 6f 75 74 81 6a 6f ┆ checkOk(schedRef.NewProc(out jo┆
0x0800…0820 62 50 72 6f 63 3b 00 3a 7b 81 33 34 30 30 30 2c 35 30 30 30 81 69 6e 63 72 65 61 73 65 64 81 62 ┆bProc; :æ 34000,5000 increased b┆
0x0820…0840 79 81 76 69 72 81 7d 8e 6d 61 6b 65 53 69 7a 65 28 34 30 30 30 30 2c 36 30 30 30 29 29 2c 27 27 ┆y vir å makeSize(40000,6000)),''┆
0x0840…0860 29 3b 00 22 94 63 68 65 63 6b 4f 6b 28 44 65 63 6c 50 72 6f 63 28 6a 6f 62 50 72 6f 63 2c 72 75 ┆); " checkOk(DeclProc(jobProc,ru┆
0x0860…0880 6e 55 73 65 72 3b 00 29 a2 69 6e 81 62 75 66 5b 6e 61 6d 65 73 74 6f 70 2b 31 2e 2e 67 65 74 4c ┆nUser; ) in bufÆnamestop+1..getL┆
0x0880…08a0 65 6e 67 74 68 28 62 75 66 29 5d 29 2c 27 27 29 3b 00 00 17 94 6a 6f 62 53 74 61 74 65 3a 3d 70 ┆ength(buf)Å),''); jobState:=p┆
0x08a0…08c0 72 6f 67 52 75 6e 6e 69 6e 67 3b 00 00 09 92 64 6f 81 62 65 67 69 6e 00 00 21 94 72 65 73 3a 3d ┆rogRunning; do begin ! res:=┆
0x08c0…08e0 73 74 75 62 52 65 66 2e 44 65 6c 65 74 65 49 74 65 6d 28 3b 6a 6f 62 49 64 29 3b 00 00 1f 94 72 ┆stubRef.DeleteItem(;jobId); r┆
0x08e0…0900 65 73 3a 3d 44 65 61 6c 6c 6f 63 28 6a 6f 62 50 72 6f 63 2c 6a 6f 62 50 72 6f 63 29 3b 00 00 05 ┆es:=Dealloc(jobProc,jobProc); ┆
0x0900…0920 92 65 6e 64 3b 00 00 05 90 65 6e 64 3b 00 00 0f 8e 65 6e 64 3b 81 7b 65 78 65 63 43 6f 6d 7d 00 ┆ end; end; end; æexecComå ┆
0x0920…0940 00 01 20 00 00 44 8c 6f 74 68 65 72 77 69 73 65 81 70 72 69 6e 74 54 65 78 74 28 27 2f 2f 2f 2f ┆ D otherwise printText('////┆
0x0940…0960 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 75 6e 6b 6e 6f 77 6e 81 63 6f 6d 6d ┆////////////////////unknown comm┆
0x0960…0980 61 6e 64 2f 2f 2f 2f 27 29 3b 00 01 20 00 00 0c 8a 65 6e 64 81 7b 63 61 73 65 7d 3b 00 00 00 00 ┆and////'); end æcaseå; ┆
0x0980…09a0 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 ┆ ┆
[…0x3…]
0x0a00…0a20 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x27…]
0x0f00…0f20 00 29 88 64 6f 81 62 65 67 69 6e 81 7b 63 68 65 63 6b 4f 4b 81 68 61 73 81 68 61 6e 64 6c 65 64 ┆ ) do begin æcheckOK has handled┆
0x0f20…0f40 81 65 78 63 65 70 74 69 6f 6e 7d 00 00 12 72 65 73 3a 3d 67 65 74 45 78 63 65 70 74 69 6f 6e 3b ┆ exceptionå res:=getException;┆
0x0f40…0f60 00 44 7b 70 72 69 6e 74 56 61 72 28 27 5f 5f 5f 5f 5f 5f 5f 69 6e 74 65 72 70 72 65 74 65 72 81 ┆ DæprintVar('_______interpreter ┆
0x0f60…0f80 6c 6f 6f 70 81 65 78 63 65 70 74 69 6f 6e 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 72 65 73 3d 81 27 2c 72 ┆loop exception__________res= ',r┆
0x0f80…0fa0 65 73 29 3b 83 7d 00 18 8a 63 68 65 63 6b 28 73 74 64 69 6f 2e 57 61 69 74 52 65 61 64 79 29 3b ┆es); å check(stdio.WaitReady);┆
0x0fa0…0fc0 00 05 88 65 6e 64 3b 00 00 25 86 75 6e 74 69 6c 81 71 75 69 74 3b 82 7b 72 65 61 64 81 6e 65 78 ┆ end; % until quit; æread nex┆
0x0fc0…0fe0 74 81 63 6f 6d 6d 61 6e 64 81 6c 69 6e 65 7d 00 00 1d 86 69 66 81 6a 6f 62 53 74 61 74 65 3d 70 ┆t command lineå if jobState=p┆
0x0fe0…1000 72 6f 67 52 75 6e 6e 69 6e 67 81 74 68 65 6e 00 00 33 88 72 65 73 3a 3d 73 74 75 62 52 65 66 2e ┆rogRunning then 3 res:=stubRef.┆
0x1000…1020 41 62 6f 72 74 4f 62 6a 28 3b 70 72 6f 67 72 49 64 5b 31 2e 2e 70 72 6f 67 72 49 64 4c 65 6e 67 ┆AbortObj(;progrIdÆ1..progrIdLeng┆
0x1020…1040 74 68 5d 29 3b 00 00 0d 84 75 6e 74 69 6c 81 66 61 6c 73 65 3b 00 00 18 82 65 6e 64 3b 82 7b 77 ┆thÅ); until false; end; æw┆
0x1040…1060 69 74 68 81 6c 6f 63 61 6c 64 61 74 61 5e 5e 7d 00 09 82 64 6f 81 62 65 67 69 6e 00 00 25 86 7b ┆ith localdata^^å do begin % æ┆
0x1060…1080 73 6f 6d 65 81 65 72 72 6f 72 81 69 6e 81 72 65 61 64 69 6e 67 81 63 6f 6d 6d 61 6e 64 81 6c 69 ┆some error in reading command li┆
0x1080…10a0 6e 65 2c 00 00 13 87 73 74 6f 70 81 74 68 65 81 70 72 6f 63 65 73 73 81 7d 00 00 12 72 65 73 3a ┆ne, stop the process å res:┆
0x10a0…10c0 3d 67 65 74 45 78 63 65 70 74 69 6f 6e 3b 00 4b 7b 70 72 69 6e 74 56 61 72 28 27 5f 5f 81 5f 81 ┆=getException; KæprintVar('__ _ ┆
0x10c0…10e0 5f 81 5f 81 5f 81 5f 81 5f 82 5f 81 4a 81 43 81 4c 82 45 81 58 81 43 81 45 81 50 81 54 81 49 81 ┆_ _ _ _ _ _ J C L E X C E P T I ┆
0x10e0…1100 4f 81 4e 5f 81 5f 81 5f 81 5f 81 5f 81 72 65 73 3d 81 27 2c 72 65 73 29 3b 81 7d 00 00 1a 86 6f ┆O N_ _ _ _ _ res= ',res); å o┆
0x1100…1120 62 6a 52 65 74 75 72 6e 81 28 67 65 74 45 78 63 65 70 74 69 6f 6e 29 3b 00 0d 82 65 6e 64 3b 82 ┆bjReturn (getException); end; ┆
0x1120…1140 7b 65 72 72 6f 72 7d 00 00 0d 65 6e 64 3b 82 7b 52 75 6e 4a 6f 62 7d 00 00 01 20 00 00 18 70 72 ┆æerrorå end; æRunJobå pr┆
0x1140…1160 69 76 61 74 65 20 72 75 6e 55 73 65 72 20 7b 70 61 72 61 6d 73 7d 00 0c 82 77 69 74 68 81 72 65 ┆ivate runUser æparamså with re┆
0x1160…1180 63 6f 72 64 00 07 84 74 74 3a 5e 5e 3b 00 00 16 84 66 69 6c 65 45 6e 76 3a 81 72 65 66 50 74 72 ┆cord tt:^^; fileEnv: refPtr┆
0x1180…11a0 41 72 72 61 79 3b 00 0d 84 74 65 6d 70 4f 77 6e 3a 81 5e 5e 3b 00 00 05 82 65 6e 64 3b 00 00 10 ┆Array; tempOwn: ^^; end; ┆
0x11a0…11c0 82 76 61 72 81 69 3a 81 69 6e 74 65 67 65 72 3b 00 1b 86 70 6f 73 2c 81 73 74 61 72 74 2c 81 73 ┆ var i: integer; pos, start, s┆
0x11c0…11e0 74 6f 70 3a 81 69 6e 74 65 67 65 72 3b 00 00 11 86 72 65 73 3a 81 72 65 73 75 6c 74 54 79 70 65 ┆top: integer; res: resultType┆
0x11e0…1200 3b 00 00 05 62 65 67 69 6e 00 00 1c 82 77 69 74 68 81 64 3d 6c 6f 63 61 6c 64 61 74 61 5e 5e 81 ┆; begin with d=localdata^^ ┆
0x1200…1220 64 6f 81 62 65 67 69 6e 00 03 84 69 6e 00 00 17 86 7b 63 72 65 61 74 65 81 66 69 6c 65 81 65 6e ┆do begin in æcreate file en┆
0x1220…1240 76 65 6c 6f 70 65 7d 00 00 42 86 63 68 65 63 6b 4f 6b 28 61 6c 6c 6f 63 52 65 66 2e 4e 65 77 4f ┆velopeå B checkOk(allocRef.NewO┆
0x1240…1260 62 6a 28 6f 75 74 81 74 65 6d 70 4f 77 6e 3b 81 6d 61 6b 65 53 69 7a 65 28 30 2c 35 30 30 29 2c ┆bj(out tempOwn; makeSize(0,500),┆
0x1260…1280 81 6f 75 74 81 69 29 2c 27 27 29 3b 00 3a 86 63 68 65 63 6b 4f 6b 28 44 65 63 6c 45 6e 76 28 74 ┆ out i),''); : checkOk(DeclEnv(t┆
0x1280…12a0 65 6d 70 4f 77 6e 2c 66 69 6c 65 45 6e 76 2c 66 69 6c 65 45 6e 76 2c 72 65 66 73 28 70 74 72 41 ┆empOwn,fileEnv,fileEnv,refs(ptrA┆
0x12a0…12c0 72 72 61 79 29 2c 30 2c 00 25 99 6d 61 6b 65 53 69 7a 65 28 30 2c 30 29 2c 81 6d 61 6b 65 53 69 ┆rray),0, % makeSize(0,0), makeSi┆
0x12c0…12e0 7a 65 28 2d 31 2c 2d 31 29 29 2c 27 27 29 3b 00 00 26 86 63 68 65 63 6b 4f 6b 28 43 6f 70 79 28 ┆ze(-1,-1)),''); & checkOk(Copy(┆
0x12e0…1300 73 74 64 69 6f 2c 66 69 6c 65 45 6e 76 5e 5e 5b 31 5d 29 2c 27 27 29 3b 00 26 86 63 68 65 63 6b ┆stdio,fileEnv^^Æ1Å),''); & check┆
0x1300…1320 4f 6b 28 43 6f 70 79 28 73 74 64 69 6f 2c 66 69 6c 65 45 6e 76 5e 5e 5b 32 5d 29 2c 27 27 29 3b ┆Ok(Copy(stdio,fileEnv^^Æ2Å),'');┆
0x1320…1340 00 26 86 63 68 65 63 6b 4f 6b 28 43 6f 70 79 28 73 74 64 69 6f 2c 66 69 6c 65 45 6e 76 5e 5e 5b ┆ & checkOk(Copy(stdio,fileEnv^^Æ┆
0x1340…1360 33 5d 29 2c 27 27 29 3b 00 08 86 70 6f 73 3a 3d 31 3b 00 3e 86 72 65 73 3a 3d 70 72 6f 67 72 4f ┆3Å),''); pos:=1; > res:=progrO┆
0x1360…1380 62 6a 2e 52 75 6e 28 66 69 6c 65 45 6e 76 2c 65 67 6f 3b 81 64 2e 70 72 6f 67 72 49 64 5b 31 2e ┆bj.Run(fileEnv,ego; d.progrIdÆ1.┆
0x1380…13a0 2e 64 2e 70 72 6f 67 72 49 64 4c 65 6e 67 74 68 5d 2c 00 43 8b 77 68 69 6c 65 81 6e 65 78 74 50 ┆.d.progrIdLengthÅ, C while nextP┆
0x13a0…13c0 61 72 61 6d 28 70 61 72 61 6d 73 2c 70 6f 73 2c 73 74 61 72 74 2c 73 74 6f 70 29 81 64 6f 81 28 ┆aram(params,pos,start,stop) do (┆
0x13c0…13e0 70 61 72 61 6d 73 5b 73 74 61 72 74 2e 2e 73 74 6f 70 5d 29 81 29 3b 00 00 16 86 69 66 81 28 72 ┆paramsÆstart..stopÅ) ); if (r┆
0x13e0…1400 65 73 2e 6d 61 69 6e 3c 3e 6f 6b 29 81 61 6e 64 00 38 89 6e 6f 74 81 28 28 72 65 73 2e 66 61 6d ┆es.main<>ok) and 8 not ((res.fam┆
0x1400…1420 69 6c 79 3d 55 6e 69 76 65 72 73 61 6c 29 81 61 6e 64 81 28 72 65 73 2e 6d 61 69 6e 3d 47 69 76 ┆ily=Universal) and (res.main=Giv┆
0x1420…1440 65 55 70 29 29 81 74 68 65 6e 00 11 88 63 68 65 63 6b 4f 6b 28 72 65 73 2c 27 27 29 3b 00 00 0e ┆eUp)) then checkOk(res,''); ┆
0x1440…1460 84 64 6f 81 7b 6e 6f 74 68 69 6e 67 7d 3b 00 3a 84 72 65 73 3a 3d 73 74 75 62 52 65 66 2e 44 65 ┆ do ænothingå; : res:=stubRef.De┆
0x1460…1480 6c 65 74 65 49 74 65 6d 28 3b 81 64 2e 70 72 6f 67 72 49 64 5b 31 2e 2e 64 2e 70 72 6f 67 72 49 ┆leteItem(; d.progrIdÆ1..d.progrI┆
0x1480…14a0 64 4c 65 6e 67 74 68 5d 29 3b 00 19 84 64 2e 6a 6f 62 53 74 61 74 65 3a 3d 70 72 6f 67 52 65 6d ┆dLengthÅ); d.jobState:=progRem┆
0x14a0…14c0 6f 76 65 64 3b 00 00 21 84 73 69 67 6e 61 6c 45 76 65 6e 74 3b 81 7b 73 74 61 72 74 81 69 6e 74 ┆oved; ! signalEvent; æstart int┆
0x14c0…14e0 65 72 70 72 65 74 65 72 7d 00 00 0c 82 65 6e 64 3b 81 7b 77 69 74 68 7d 00 1c 65 6e 64 20 7b 2a ┆erpreterå end; æwithå end æ*┆
0x14e0…1500 2a 2a 70 72 69 76 61 74 65 20 72 75 6e 55 73 65 72 2a 2a 2a 7d 3b 00 00 00 00 00 00 00 00 00 00 ┆**private runUser***å; ┆
0x1500…1520 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x1700…1720 00 01 20 00 00 29 6f 74 68 65 72 77 69 73 65 20 75 6e 6b 6e 4a 6f 62 20 77 69 74 68 20 72 65 63 ┆ )otherwise unknJob with rec┆
0x1720…1740 6f 72 64 20 74 74 3a 5e 5e 3b 20 65 6e 64 3b 00 00 0a 62 65 67 69 6e 20 65 6e 64 3b 00 01 20 00 ┆ord tt:^^; end; begin end; ┆
0x1740…1760 00 13 65 6e 64 3b 82 7b 4a 6f 62 49 6d 70 6c 65 6d 65 6e 74 7d 00 00 01 20 00 00 3a 7b 2a 2a 2a ┆ end; æJobImplementå :æ***┆
0x1760…1780 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 49 6d 70 6c 65 6d 65 6e 74 20 4a 63 6c 53 79 73 4f 62 6a ┆*************Implement JclSysObj┆
0x1780…17a0 65 63 74 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 7d 00 01 20 00 00 38 70 72 6f 67 ┆ect******************å 8prog┆
0x17a0…17c0 72 61 6d 20 4a 63 6c 53 79 73 49 6d 70 6c 65 6d 65 6e 74 20 6f 62 6a 65 63 74 20 4a 6f 62 53 79 ┆ram JclSysImplement object JobSy┆
0x17c0…17e0 73 20 77 69 74 68 20 6a 63 6c 53 79 73 4c 6f 63 61 6c 73 3b 00 01 20 00 00 25 82 70 72 69 76 61 ┆s with jclSysLocals; % priva┆
0x17e0…1800 74 65 81 4c 6f 67 4f 75 74 54 65 72 6d 81 28 69 6e 81 6f 62 6a 81 3a 81 6f 77 6e 53 65 74 3b 00 ┆te LogOutTerm (in obj : ownSet; ┆
0x1800…1820 00 14 96 69 6e 81 65 6e 76 81 3a 81 72 65 66 45 6e 76 81 29 81 3b 00 01 20 00 00 18 45 4e 54 52 ┆ in env : refEnv ) ; ENTR┆
0x1820…1840 59 20 4e 65 77 54 65 72 6d 20 7b 66 69 6c 65 4e 61 6d 65 7d 00 0c 84 77 69 74 68 81 72 65 63 6f ┆Y NewTerm æfileNameå with reco┆
0x1840…1860 72 64 00 09 86 74 74 89 3a 81 5e 5e 3b 00 00 18 86 74 65 6d 70 45 6e 76 84 3a 81 5e 5e 81 6a 6f ┆rd tt : ^^; tempEnv : ^^ jo┆
0x1860…1880 62 4c 6f 63 61 6c 73 3b 00 14 86 66 69 6c 65 53 79 73 84 3a 81 5e 5e 81 49 6f 53 79 73 3b 00 05 ┆bLocals; fileSys : ^^ IoSys; ┆
0x1880…18a0 84 65 6e 64 3b 00 00 04 82 76 61 72 00 19 84 69 2c 81 6b 69 6e 64 2c 81 75 73 65 64 81 3a 81 69 ┆ end; var i, kind, used : i┆
0x18a0…18c0 6e 74 65 67 65 72 3b 00 00 11 84 73 69 7a 65 81 3a 81 73 69 7a 65 54 79 70 65 3b 00 00 12 84 72 ┆nteger; size : sizeType; r┆
0x18c0…18e0 65 73 81 3a 81 72 65 73 75 6c 74 54 79 70 65 3b 00 05 62 65 67 69 6e 00 00 45 86 63 68 65 63 6b ┆es : resultType; begin E check┆
0x18e0…1900 28 73 74 75 62 52 65 66 2e 47 65 74 52 65 66 28 6f 75 74 81 66 69 6c 65 53 79 73 3b 81 69 6e 81 ┆(stubRef.GetRef(out fileSys; in ┆
0x1900…1920 66 69 6c 65 4e 61 6d 65 2c 81 6f 75 74 81 75 73 65 64 2c 81 6f 75 74 81 6b 69 6e 64 29 29 3b 00 ┆fileName, out used, out kind)); ┆
0x1920…1940 00 13 84 7b 61 6c 6c 6f 63 81 4a 6f 62 81 4f 62 6a 65 63 74 7d 00 00 10 28 2a 84 43 6c 65 61 72 ┆ æalloc Job Objectå (* Clear┆
0x1940…1960 81 28 73 69 7a 65 29 3b 00 20 86 41 64 64 45 6e 76 81 28 73 69 7a 65 2c 81 72 65 66 73 28 4a 6f ┆ (size); AddEnv (size, refs(Jo┆
0x1960…1980 62 4c 6f 63 61 6c 73 29 29 3b 00 1f 86 41 64 64 53 65 67 81 28 73 69 7a 65 2c 81 62 79 74 65 73 ┆bLocals)); AddSeg (size, bytes┆
0x1980…19a0 28 6a 6f 62 44 61 74 61 29 29 3b 00 00 02 2a 29 00 42 86 63 68 65 63 6b 28 61 6c 6c 6f 63 52 65 ┆(jobData)); *) B check(allocRe┆
0x19a0…19c0 66 2e 4e 65 77 4f 62 6a 28 6f 75 74 81 6a 6f 62 4f 77 6e 53 65 74 3b 81 6d 61 6b 65 53 69 7a 65 ┆f.NewObj(out jobOwnSet; makeSize┆
0x19c0…19e0 28 32 30 30 30 2c 35 30 30 29 2c 81 6f 75 74 81 69 29 29 3b 00 16 84 7b 4d 61 6b 65 81 47 65 6e ┆(2000,500), out i)); æMake Gen┆
0x19e0…1a00 65 72 61 6c 81 4f 62 6a 65 63 74 7d 00 13 28 2a 84 43 6c 65 61 72 81 28 73 69 7a 65 29 3b 82 2a ┆eral Objectå (* Clear (size); *┆
0x1a00…1a20 29 00 00 15 86 73 69 7a 65 3a 3d 6d 61 6b 65 53 69 7a 65 28 30 2c 30 29 3b 00 00 2b 86 63 68 65 ┆) size:=makeSize(0,0); + che┆
0x1a20…1a40 63 6b 28 44 65 63 6c 47 65 6e 28 6a 6f 62 4f 77 6e 53 65 74 2c 6a 6f 62 4d 61 6e 53 65 74 2c 74 ┆ck(DeclGen(jobOwnSet,jobManSet,t┆
0x1a40…1a60 65 6d 70 45 6e 76 2c 00 00 34 94 72 65 66 73 28 6a 6f 62 4c 6f 63 61 6c 73 29 2c 81 4c 6f 67 4f ┆empEnv, 4 refs(jobLocals), LogO┆
0x1a60…1a80 75 74 54 65 72 6d 2c 81 73 69 7a 65 2c 81 6d 61 6b 65 53 69 7a 65 28 2d 31 2c 2d 31 29 2c 00 2c ┆utTerm, size, makeSize(-1,-1), ,┆
0x1a80…1aa0 94 72 65 66 73 28 4a 6f 62 49 6d 70 6c 65 6d 65 6e 74 29 2c 81 62 79 74 65 73 28 4a 6f 62 49 6d ┆ refs(JobImplement), bytes(JobIm┆
0x1aa0…1ac0 70 6c 65 6d 65 6e 74 29 2c 81 30 2c 00 21 94 61 64 64 72 28 4a 6f 62 49 6d 70 6c 65 6d 65 6e 74 ┆plement), 0, ! addr(JobImplement┆
0x1ac0…1ae0 29 2c 73 69 7a 65 2c 81 74 72 75 65 29 29 3b 00 00 0b 84 7b 49 6e 69 74 81 4a 6f 62 7d 00 00 22 ┆),size, true)); æInit Jobå "┆
0x1ae0…1b00 86 63 68 65 63 6b 28 43 6f 70 79 28 63 6f 64 65 2c 74 65 6d 70 45 6e 76 5e 5e 2e 63 6f 64 65 29 ┆ check(Copy(code,tempEnv^^.code)┆
0x1b00…1b20 29 3b 00 28 86 63 68 65 63 6b 28 43 6f 70 79 28 73 74 75 62 52 65 66 2c 74 65 6d 70 45 6e 76 5e ┆); ( check(Copy(stubRef,tempEnv^┆
0x1b20…1b40 5e 2e 73 74 75 62 52 65 66 29 29 3b 00 2a 86 63 68 65 63 6b 28 43 6f 70 79 28 61 6c 6c 6f 63 52 ┆^.stubRef)); * check(Copy(allocR┆
0x1b40…1b60 65 66 2c 74 65 6d 70 45 6e 76 5e 5e 2e 61 6c 6c 6f 63 52 65 66 29 29 3b 00 2a 86 63 68 65 63 6b ┆ef,tempEnv^^.allocRef)); * check┆
0x1b60…1b80 28 43 6f 70 79 28 73 63 68 65 64 52 65 66 2c 74 65 6d 70 45 6e 76 5e 5e 2e 73 63 68 65 64 52 65 ┆(Copy(schedRef,tempEnv^^.schedRe┆
0x1b80…1ba0 66 29 29 3b 00 33 86 63 68 65 63 6b 28 4e 65 77 53 65 67 28 74 65 6d 70 45 6e 76 5e 5e 2e 6c 6f ┆f)); 3 check(NewSeg(tempEnv^^.lo┆
0x1ba0…1bc0 63 61 6c 64 61 74 61 2c 62 79 74 65 73 28 6a 6f 62 44 61 74 61 29 29 29 3b 00 00 20 86 77 69 74 ┆caldata,bytes(jobData))); wit┆
0x1bc0…1be0 68 81 64 3d 74 65 6d 70 45 6e 76 5e 5e 2e 6c 6f 63 61 6c 64 61 74 61 5e 5e 81 64 6f 00 06 86 62 ┆h d=tempEnv^^.localdata^^ do b┆
0x1be0…1c00 65 67 69 6e 00 17 88 64 2e 6a 6f 62 53 74 61 74 65 81 3a 3d 81 6e 6f 74 49 6e 69 74 3b 00 00 14 ┆egin d.jobState := notInit; ┆
0x1c00…1c20 86 65 6e 64 3b 82 7b 49 6e 69 74 81 6a 6f 62 44 61 74 61 7d 00 17 84 7b 6f 70 65 6e 81 74 65 72 ┆ end; æInit jobDataå æopen ter┆
0x1c20…1c40 6d 69 6e 61 6c 81 64 72 69 76 65 72 7d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆minal driverå ┆
0x1c40…1c60 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 ┆ ┆
[…0x5…]
0x1d00…1d20 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x1f00…1f20 00 2a 86 63 68 65 63 6b 28 66 69 6c 65 53 79 73 2e 41 73 73 69 67 6e 28 6f 75 74 81 74 65 6d 70 ┆ * check(fileSys.Assign(out temp┆
0x1f20…1f40 45 6e 76 5e 5e 2e 73 74 64 69 6f 3b 00 32 9d 66 69 6c 65 4e 61 6d 65 5b 75 73 65 64 2b 31 2e 2e ┆Env^^.stdio; 2 fileNameÆused+1..┆
0x1f40…1f60 65 6c 65 6d 65 6e 74 73 28 66 69 6c 65 4e 61 6d 65 29 5d 2c 52 65 61 64 57 72 69 74 65 29 29 3b ┆elements(fileName)Å,ReadWrite));┆
0x1f60…1f80 00 2d 86 63 68 65 63 6b 28 73 74 75 62 52 65 66 2e 49 6e 73 65 72 74 50 6f 69 6e 74 65 72 28 74 ┆ - check(stubRef.InsertPointer(t┆
0x1f80…1fa0 65 6d 70 45 6e 76 5e 5e 2e 73 74 64 69 6f 3b 00 00 28 9d 66 69 6c 65 4e 61 6d 65 5b 75 73 65 64 ┆empEnv^^.stdio; ( fileNameÆused┆
0x1fa0…1fc0 2b 31 2e 2e 65 6c 65 6d 65 6e 74 73 28 66 69 6c 65 4e 61 6d 65 29 5d 29 29 3b 00 32 86 63 68 65 ┆+1..elements(fileName)Å)); 2 che┆
0x1fc0…1fe0 63 6b 28 73 63 68 65 64 52 65 66 2e 4e 65 77 47 61 74 65 28 6f 75 74 81 74 65 6d 70 45 6e 76 5e ┆ck(schedRef.NewGate(out tempEnv^┆
0x1fe0…2000 5e 2e 65 76 65 6e 74 47 61 74 65 29 29 3b 00 39 86 63 68 65 63 6b 28 74 65 6d 70 45 6e 76 5e 5e ┆^.eventGate)); 9 check(tempEnv^^┆
0x2000…2020 2e 65 76 65 6e 74 47 61 74 65 2e 4e 65 77 43 6f 6e 64 28 6f 75 74 81 74 65 6d 70 45 6e 76 5e 5e ┆.eventGate.NewCond(out tempEnv^^┆
0x2020…2040 2e 65 76 65 6e 74 29 29 3b 00 00 18 86 63 68 65 63 6b 28 74 65 6d 70 45 6e 76 2e 4a 6f 62 49 6e ┆.event)); check(tempEnv.JobIn┆
0x2040…2060 69 74 29 3b 00 0e 86 72 65 73 2e 6d 61 69 6e 3a 3d 6f 6b 3b 00 11 86 4f 62 6a 52 65 74 75 72 6e ┆it); res.main:=ok; ObjReturn┆
0x2060…2080 81 28 72 65 73 29 3b 00 00 14 65 6e 64 20 7b 2a 2a 2a 49 6e 63 6c 75 64 65 2a 2a 2a 7d 3b 00 01 ┆ (res); end æ***Include***å; ┆
0x2080…20a0 20 00 00 2a 70 72 69 76 61 74 65 20 4c 6f 67 4f 75 74 54 65 72 6d 20 77 69 74 68 20 72 65 63 6f ┆ *private LogOutTerm with reco┆
0x20a0…20c0 72 64 20 74 74 3a 5e 5e 3b 20 65 6e 64 3b 00 0a 62 65 67 69 6e 20 65 6e 64 3b 00 01 20 00 00 0e ┆rd tt:^^; end; begin end; ┆
0x20c0…20e0 65 6e 74 72 79 20 47 65 74 50 61 72 61 6d 00 17 82 77 69 74 68 81 72 65 63 6f 72 64 81 74 74 3a ┆entry GetParam with record tt:┆
0x20e0…2100 5e 5e 81 65 6e 64 3b 00 00 39 62 65 67 69 6e 20 7b 65 78 63 65 70 74 69 6f 6e 28 67 65 6e 52 65 ┆^^ end; 9begin æexception(genRe┆
0x2100…2120 73 28 45 6e 74 72 79 49 6c 6c 65 67 61 6c 2c 55 6e 69 76 65 72 73 61 6c 2c 32 29 29 3b 7d 20 65 ┆s(EntryIllegal,Universal,2));å e┆
0x2120…2140 6e 64 3b 00 00 01 20 00 00 2d 6f 74 68 65 72 77 69 73 65 20 75 6e 6b 6e 4a 63 6c 53 79 73 20 77 ┆nd; -otherwise unknJclSys w┆
0x2140…2160 69 74 68 20 72 65 63 6f 72 64 20 74 74 3a 20 5e 5e 3b 20 65 6e 64 3b 00 00 0a 62 65 67 69 6e 20 ┆ith record tt: ^^; end; begin ┆
0x2160…2180 65 6e 64 3b 00 01 20 00 00 16 65 6e 64 3b 82 7b 4a 63 6c 53 79 73 49 6d 70 6c 65 6d 65 6e 74 7d ┆end; end; æJclSysImplementå┆
0x2180…21a0 00 01 20 00 00 24 69 6e 69 74 69 61 6c 69 7a 65 20 4a 63 6c 53 79 73 49 6d 70 6c 65 6d 65 6e 74 ┆ $initialize JclSysImplement┆
0x21a0…21c0 20 27 6a 6f 62 73 79 73 27 3a 00 3c 8b 73 74 75 62 52 65 66 81 27 6f 62 6a 64 69 72 27 2c 81 61 ┆ 'jobsys': < stubRef 'objdir', a┆
0x21c0…21e0 6c 6c 6f 63 52 65 66 81 27 61 6c 6c 6f 63 61 74 65 27 2c 81 73 63 68 65 64 52 65 66 81 27 73 63 ┆llocRef 'allocate', schedRef 'sc┆
0x21e0…2200 68 65 64 75 6c 65 72 27 00 0a 65 6e 64 2e 82 7b 4a 43 4c 7d 00 01 20 00 00 01 20 00 00 01 20 00 ┆heduler' end. æJCLå ┆
0x2200…2220 00 01 20 00 00 01 20 00 00 01 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x2220…2240 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 ┆ ┆
[…0x6…]
0x2300…2320 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x1f…]
0x2700…2720 00 01 20 00 00 42 7b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ Bæ*************************┆
0x2720…2740 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x2740…2760 2a 2a 2a 2a 2a 2a 2a 2a 00 12 98 43 6f 70 79 72 69 67 68 74 81 31 39 38 34 81 62 79 00 10 98 4e ┆******** Copyright 1984 by N┆
0x2760…2780 43 52 81 43 6f 72 70 6f 72 61 74 69 6f 6e 00 14 98 44 61 79 74 6f 6e 2c 81 4f 68 69 6f 82 55 2e ┆CR Corporation Dayton, Ohio U.┆
0x2780…27a0 53 2e 41 2e 00 14 98 41 6c 6c 81 52 69 67 68 74 73 81 52 65 73 65 72 76 65 64 00 42 2a 2a 2a 2a ┆S.A. All Rights Reserved B****┆
0x27a0…27c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x27c0…27e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 1a ┆****************************** ┆
0x27e0…2800 98 45 4f 53 81 53 6f 66 74 77 61 72 65 81 70 72 6f 64 75 63 65 64 81 62 79 3a 00 25 98 4e 43 52 ┆ EOS Software produced by: % NCR┆
0x2800…2820 81 53 79 73 74 65 6d 73 81 45 6e 67 69 6e 65 65 72 69 6e 67 81 2d 81 43 6f 70 65 6e 68 61 67 65 ┆ Systems Engineering - Copenhage┆
0x2820…2840 6e 00 00 0b 98 43 6f 70 65 6e 68 61 67 65 6e 00 00 08 98 44 45 4e 4d 41 52 4b 00 42 2a 2a 2a 2a ┆n Copenhagen DENMARK B****┆
0x2840…2860 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x2860…2880 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 7d 00 01 ┆*****************************å ┆
0x2880…28a0 20 00 00 35 7b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 28 49 6e 69 74 43 6f 6e 66 69 67 29 20 2a 2a 2a ┆ 5æ********** (InitConfig) ***┆
0x28a0…28c0 20 76 65 72 20 30 2e 30 37 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 7d 00 00 35 7b 2a 2a 2a ┆ ver 0.07 **************å 5æ***┆
0x28c0…28e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x28e0…2900 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 7d 00 00 01 20 00 00 01 20 00 00 17 4f 42 4a 45 ┆****************å OBJE┆
0x2900…2920 43 54 20 50 52 4f 47 52 41 4d 20 4a 43 4c 43 6f 6e 66 3b 00 00 01 20 00 00 13 7b 24 46 3d 46 41 ┆CT PROGRAM JCLConf; æ$F=FA┆
0x2920…2940 4d 49 4c 59 2e 55 4e 49 56 2e 49 44 7d 00 00 13 7b 24 46 3d 46 41 4d 49 4c 59 2e 4b 4e 45 4c 2e ┆MILY.UNIV.IDå æ$F=FAMILY.KNEL.┆
0x2940…2960 49 44 7d 00 00 15 7b 24 46 3d 46 41 4d 49 4c 59 2e 4f 42 4a 44 49 52 2e 49 44 7d 00 00 14 7b 24 ┆IDå æ$F=FAMILY.OBJDIR.IDå æ$┆
0x2960…2980 46 3d 46 41 4d 49 4c 59 2e 49 4f 53 59 53 2e 49 44 7d 00 14 7b 24 46 3d 46 41 4d 49 4c 59 2e 4a ┆F=FAMILY.IOSYS.IDå æ$F=FAMILY.J┆
0x2980…29a0 4f 42 48 41 2e 49 44 7d 00 01 20 00 00 2d 50 52 4f 43 45 44 55 52 45 20 50 72 69 6e 74 54 65 78 ┆OBHA.IDå -PROCEDURE PrintTex┆
0x29a0…29c0 74 20 28 74 65 78 74 20 3a 20 66 75 6c 6c 49 64 29 3b 20 46 4f 52 57 41 52 44 3b 00 00 3f 50 52 ┆t (text : fullId); FORWARD; ?PR┆
0x29c0…29e0 4f 43 45 44 55 52 45 81 50 72 69 6e 74 56 61 72 82 28 74 65 78 74 81 3a 81 66 75 6c 6c 49 64 3b ┆OCEDURE PrintVar (text : fullId;┆
0x29e0…2a00 81 55 4e 49 56 81 76 81 3a 81 62 6c 6f 63 6b 50 74 72 29 3b 81 46 4f 52 57 41 52 44 3b 00 00 01 ┆ UNIV v : blockPtr); FORWARD; ┆
0x2a00…2a20 20 00 00 04 54 59 50 45 00 29 82 66 75 6c 6c 4e 61 6d 65 81 3d 81 50 41 43 4b 45 44 81 41 52 52 ┆ TYPE ) fullName = PACKED ARR┆
0x2a20…2a40 41 59 81 5b 31 2e 2e 34 38 5d 81 4f 46 81 63 68 61 72 3b 00 00 21 82 72 65 66 41 72 72 61 79 81 ┆AY Æ1..48Å OF char; ! refArray ┆
[…truncated at 200 lines…]