00000000  0d 0a 2f 2f 20 43 6f 70  79 72 69 67 68 74 20 52  |..// Copyright R|
00000010  49 43 48 41 52 44 53 20  43 4f 4d 50 55 54 45 52  |ICHARDS COMPUTER|
00000020  20 50 52 4f 44 55 43 54  53 20 28 43 29 20 31 39  | PRODUCTS (C) 19|
00000030  38 32 0d 0a 2f 2f 20 53  59 53 48 44 52 0d 0a 47  |82..// SYSHDR..G|
00000040  4c 4f 42 41 4c 20 24 28  0d 0a 4d 41 58 47 4c 4f  |LOBAL $(..MAXGLO|
00000050  42 3a 30 3b 41 42 4f 52  54 43 4f 44 45 3a 34 3b  |B:0;ABORTCODE:4;|
00000060  41 42 4f 52 54 4c 41 42  45 4c 3a 35 3b 41 42 4f  |ABORTLABEL:5;ABO|
00000070  52 54 4c 45 56 45 4c 3a  36 3b 53 54 4f 52 45 46  |RTLEVEL:6;STOREF|
00000080  49 4c 45 53 3a 31 36 3b  53 54 52 45 41 4d 43 48  |ILES:16;STREAMCH|
00000090  41 49 4e 3a 31 37 0d 0a  53 59 53 49 4e 44 45 58  |AIN:17..SYSINDEX|
000000a0  3a 31 38 3b 54 52 41 50  53 54 41 43 4b 3a 31 39  |:18;TRAPSTACK:19|
000000b0  3b 4d 41 49 4e 53 54 41  43 4b 3a 32 30 3b 4c 41  |;MAINSTACK:20;LA|
000000c0  53 54 45 52 52 4f 52 3a  32 31 3b 43 55 52 52 43  |STERROR:21;CURRC|
000000d0  4f 3a 32 32 3b 45 4e 44  50 52 4f 47 3a 32 34 0d  |O:22;ENDPROG:24.|
000000e0  0a 53 54 41 43 4b 53 49  5a 45 3a 33 30 3b 43 4c  |.STACKSIZE:30;CL|
000000f0  49 49 4e 53 54 52 3a 33  33 3b 45 4e 44 54 52 41  |IINSTR:33;ENDTRA|
00000100  50 3a 33 34 3b 46 53 54  59 50 45 3a 33 39 3b 57  |P:34;FSTYPE:39;W|
00000110  52 49 54 45 54 3a 34 30  3b 57 52 49 54 45 55 3a  |RITET:40;WRITEU:|
00000120  34 31 3b 48 45 41 50 3a  34 38 0d 0a 48 45 41 50  |41;HEAP:48..HEAP|
00000130  45 4e 44 3a 35 34 3b 45  52 52 4f 52 53 54 52 45  |END:54;ERRORSTRE|
00000140  41 4d 3a 35 38 3b 43 4f  4d 4d 4f 4e 32 3a 36 32  |AM:58;COMMON2:62|
00000150  3b 43 4f 4d 4d 4f 4e 33  3a 36 33 3b 44 45 4c 58  |;COMMON3:63;DELX|
00000160  46 49 4c 45 3a 36 35 3b  46 49 4e 44 58 49 4e 50  |FILE:65;FINDXINP|
00000170  55 54 3a 36 38 0d 0a 46  49 4e 44 58 4f 55 54 50  |UT:68..FINDXOUTP|
00000180  55 54 3a 36 39 3b 57 52  49 54 45 41 3a 38 36 3b  |UT:69;WRITEA:86;|
00000190  57 52 49 54 45 42 41 3a  38 37 3b 57 52 49 54 45  |WRITEBA:87;WRITE|
000001a0  44 42 3a 38 39 3b 57 52  49 54 45 4f 43 54 3a 39  |DB:89;WRITEOCT:9|
000001b0  33 3b 45 58 54 53 46 49  4c 45 3a 31 30 32 0d 0a  |3;EXTSFILE:102..|
000001c0  55 4e 4c 4f 41 44 53 45  47 3a 31 30 35 3b 4c 49  |UNLOADSEG:105;LI|
000001d0  4e 4b 45 44 46 49 4c 45  53 3a 31 31 34 3b 56 44  |NKEDFILES:114;VD|
000001e0  55 49 4e 46 4f 3a 31 31  36 3b 4c 49 42 42 41 53  |UINFO:116;LIBBAS|
000001f0  45 3a 31 31 37 3b 54 52  41 50 53 54 41 52 54 3a  |E:117;TRAPSTART:|
00000200  31 32 32 0d 0a 41 50 54  4f 56 45 43 3a 31 32 37  |122..APTOVEC:127|
00000210  3b 43 4f 4e 54 50 52 47  3a 31 34 39 3b 43 4f 4c  |;CONTPRG:149;COL|
00000220  49 53 54 3a 31 36 36 3b  45 52 52 4f 52 4d 53 47  |IST:166;ERRORMSG|
00000230  3a 32 30 32 3b 53 48 55  46 46 4c 45 3a 32 30 33  |:202;SHUFFLE:203|
00000240  3b 46 41 55 4c 54 52 4f  55 54 49 4e 45 3a 32 30  |;FAULTROUTINE:20|
00000250  35 0d 0a 54 49 44 59 53  54 41 54 45 3a 32 30 38  |5..TIDYSTATE:208|
00000260  3b 4d 4f 56 45 42 59 54  45 3a 32 31 33 3b 42 41  |;MOVEBYTE:213;BA|
00000270  43 4b 4d 56 42 59 3a 32  31 38 3b 42 41 43 4b 4d  |CKMVBY:218;BACKM|
00000280  4f 56 45 3a 32 31 39 0d  0a 24 29 0d 0a 4d 41 4e  |OVE:219..$)..MAN|
00000290  49 46 45 53 54 20 24 28  0d 0a 42 49 54 53 50 45  |IFEST $(..BITSPE|
000002a0  52 57 4f 52 44 3d 31 36  3b 42 59 54 45 53 50 45  |RWORD=16;BYTESPE|
000002b0  52 57 4f 52 44 3d 32 3b  0d 0a 4d 41 58 49 4e 54  |RWORD=2;..MAXINT|
000002c0  3d 33 32 37 36 37 3b 4d  49 4e 49 4e 54 3d 2d 33  |=32767;MININT=-3|
000002d0  32 37 36 37 0d 0a 49 2e  4c 49 42 42 41 53 45 3d  |2767..I.LIBBASE=|
000002e0  30 3b 49 2e 49 4e 54 42  41 53 45 3d 31 3b 49 2e  |0;I.INTBASE=1;I.|
000002f0  54 52 53 54 3d 32 3b 49  2e 46 4c 41 47 53 3d 33  |TRST=2;I.FLAGS=3|
00000300  0d 0a 49 2e 4c 49 4d 49  54 3d 34 3b 49 2e 43 53  |..I.LIMIT=4;I.CS|
00000310  54 41 54 45 3d 35 3b 49  2e 54 53 54 41 54 45 3d  |TATE=5;I.TSTATE=|
00000320  36 3b 49 2e 52 53 54 41  54 45 3d 37 0d 0a 49 2e  |6;I.RSTATE=7..I.|
00000330  54 49 4d 45 3d 38 3b 49  2e 4a 41 44 44 3d 39 3b  |TIME=8;I.JADD=9;|
00000340  49 2e 54 4f 44 3d 31 30  3b 49 2e 44 41 54 45 3d  |I.TOD=10;I.DATE=|
00000350  31 31 0d 0a 49 2e 44 45  46 53 50 41 43 45 3d 31  |11..I.DEFSPACE=1|
00000360  32 3b 49 2e 52 45 53 54  41 52 54 3d 31 33 0d 0a  |2;I.RESTART=13..|
00000370  52 2e 4d 43 53 54 3d 30  3b 52 2e 43 55 52 52 43  |R.MCST=0;R.CURRC|
00000380  4f 3d 31 3b 52 2e 53 50  3d 32 3b 52 2e 50 43 3d  |O=1;R.SP=2;R.PC=|
00000390  33 3b 52 2e 41 3d 34 3b  52 2e 42 3d 35 3b 52 2e  |3;R.A=4;R.B=5;R.|
000003a0  43 3d 36 0d 0a 4d 2e 54  49 4d 45 44 3d 31 3b 4d  |C=6..M.TIMED=1;M|
000003b0  2e 54 52 41 50 45 53 43  3d 32 3b 4d 2e 54 52 41  |.TRAPESC=2;M.TRA|
000003c0  50 47 56 3d 34 3b 4d 2e  54 52 41 50 46 4c 41 47  |PGV=4;M.TRAPFLAG|
000003d0  53 3d 23 58 38 30 3b 4d  2e 54 52 41 50 50 45 44  |S=#X80;M.TRAPPED|
000003e0  3d 23 58 31 30 30 0d 0a  46 2e 49 4e 53 54 3d 30  |=#X100..F.INST=0|
000003f0  3b 46 2e 4a 55 4d 50 3d  31 3b 46 2e 43 41 4c 4c  |;F.JUMP=1;F.CALL|
00000400  3d 32 3b 46 2e 43 4f 55  4e 54 3d 33 3b 46 2e 4c  |=2;F.COUNT=3;F.L|
00000410  41 53 54 54 52 41 50 3d  34 3b 46 2e 4a 50 54 49  |ASTTRAP=4;F.JPTI|
00000420  4d 45 3d 35 0d 0a 4a 2e  46 52 4f 4d 3d 30 3b 4a  |ME=5..J.FROM=0;J|
00000430  2e 54 4f 3d 31 0d 0a 45  4e 54 52 59 57 4f 52 44  |.TO=1..ENTRYWORD|
00000440  3d 23 58 44 46 44 46 0d  0a 53 45 43 54 57 4f 52  |=#XDFDF..SECTWOR|
00000450  44 3d 23 58 46 44 44 46  3b 4e 45 45 44 53 57 4f  |D=#XFDDF;NEEDSWO|
00000460  52 44 3d 23 58 46 45 45  44 0d 0a 54 2e 45 4e 44  |RD=#XFEED..T.END|
00000470  3d 39 39 32 3b 54 2e 48  55 4e 4b 3d 31 30 30 30  |=992;T.HUNK=1000|
00000480  3b 54 2e 4d 43 3d 31 30  30 31 3b 54 2e 52 45 4c  |;T.MC=1001;T.REL|
00000490  4f 43 3d 31 30 30 32 0d  0a 53 2e 54 59 50 45 3d  |OC=1002..S.TYPE=|
000004a0  34 0d 0a 53 46 2e 42 53  49 5a 45 3d 31 30 0d 0a  |4..SF.BSIZE=10..|
000004b0  44 56 2e 53 3d 37 3b 44  56 2e 46 3d 38 0d 0a 24  |DV.S=7;DV.F=8..$|
000004c0  29 0d 0a 0d 0a                                    |)....|
000004c5