OctetView
0x00000…00080 UnusedSector ┆( ( ! & ( ) + , . / 1o @a KUP READY FOR RESTART BY A NEW ATTENTION Z ] YX N) ZK ^ YlM a >> aX Y Y~ X)I J Q┆
0x00080…00100 UnusedSector ┆ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░ ░░░░░░░ ░░░░░░░░░░░░░░ ░┆
0x00100…00180 UnusedSector ┆░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ░░░░░░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░ ┆
0x00180…001c0 DirEnt {filename=»«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, de0f=0x0009, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x001c0…001e0 00 00 ff fe ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 1f ff 00 00 00 00 80 00 ff ff ff ff ┆ ░ ░░░░░░░░░░░░░░░░ ░ ░░░░┆
0x001e0…00200 ff ff 7f ff 00 00 00 00 00 00 00 00 fc 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 03 ff 00 ┆░░ ░ ░░░░░░░░░░░░░░ ░ ┆
0x00200…00280 UnusedSector ┆SLTGTEST ░░ ░░░░░░░░░░░░░░░░░░░░ BOOT0000 @ ░░░░░░░░░░ . ┆
0x00280…00300 UnusedSector ┆BOOT0001 '░░░░░░░░░░░░░░░░░░ . . ░░ASWD02 ( ( ( (░░░░░░░░░░░░ } ┆
0x00300…00380 UnusedSector ┆EDITOR00 ░░░░░░░░░░ ░░ASWD02 ( ( ( (░░░░░░░░░░░░ } ┆
0x00380…00400 UnusedSector ┆░░JECT01 ░░░░░░░░░░░░░░░░░░ ░░ASWD02 ( ( ( (░░░░░░░░░░░░ } ┆
0x00400…00440 DirEnt {filename=»PASCAL«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0071, de0d=0x0000, cluster2=0x0019, de0f=0x1a0a, de10=0x1b09, de11=0x1e14, de12=0x1f13, de13=0x2012, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0005, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00440…00480 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0019, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00480…004c0 DirEnt {filename=»PROMGN«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0016, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x00d7, de0d=0x0000, cluster2=0x0016, de0f=0x2808, de10=0x2904, de11=0x3b0a, de12=0x3c06, de13=0x3d02, de14=0x3d18, de15=0x3e14, de16=0x3f10, de17=0x2607, de18=0x4508, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x004c0…00500 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0816, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00500…00540 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0xd…]
0x00880…008c0 DirEnt {filename=»EMPTY«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0001, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0xffff, de0d=0x0000, cluster2=0x0001, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x008c0…00900 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0019, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00900…00940 DirEnt {filename=»░░NST«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0001, cluster=0x000a, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x000a, de0f=0x1306, de10=0x1310, de11=0x131a, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x003b, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00940…00980 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x2…]
0x00a00…00a40 DirEnt {filename=»COPY«, kind=0x0300, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x000a, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x000a, de0f=0x1306, de10=0x1310, de11=0x131a, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x003b, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00a40…00a80 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x6…]
0x00c00…00c80 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x00c80…00d00 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x00d00…00d80 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x00d80…00e00 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x00e00…00e80 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x00e80…00f00 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x00f00…00f80 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x00f80…01000 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01000…01080 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x01080…01100 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01100…01180 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x01180…01200 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01200…01280 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x01280…01300 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01300…01380 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x01380…01400 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01400…01480 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x01480…01500 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01500…01580 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x01580…01600 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01600…01680 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x01680…01700 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01700…01780 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x01780…01800 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01800…01880 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x01880…01900 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01900…01980 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x01980…01a00 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01a00…01a80 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x01a80…01b00 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01b00…01b80 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x01b80…01c00 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01c00…01c80 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x01c80…01d00 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01d00…01d80 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x01d80…01e00 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01e00…01e80 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x01e80…01f00 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01f00…01f80 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x01f80…02000 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x02000…02080 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x02080…02100 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x02100…02180 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x02180…02200 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x02200…02280 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x02280…02300 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x02300…02380 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x02380…02400 UnusedSector ┆░░UDAT ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x02400…02480 UnusedSector ┆░░NST ░░░░░░░░░░░░░░ ; ░░ ┆
0x02480…02500 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x02500…02580 UnusedSector ┆"PAGE" "**************************** * PASCAL I/O DECLARATIONS * ****************************" CONST TEXT_SIZE=132; TYPE TEXT=┆
0x02580…02600 UnusedSector ┆ARRAY[1..TEXT_SIZE] OF CHAR; TYPE STREAM=(INOC,OUTOC,INFILE,OUTFILE); TYPE DIRECTION=(INPUT,OUTPUT); TYPE BYTE=0..255; ┆
0x02600…02680 UnusedSector ┆0 0000 0000 0000 0000 5040L 0000 FFFF 0000 0000 0000 0000 0000 0000 5048L 0000 03F9 03FD 0000 0000 0000 0000 0000 5050L 0000 000┆
0x02680…02700 UnusedSector ┆0 0000 0000 0000 0000 0000 0000 5058L 0000 0000 0000 0000 0000 0000 0000 0000 5060L 0000 0000 0000 0000 0000 0000 0000 0000 5068┆
0x02700…02780 UnusedSector ┆L 0000 0000 0000 826F 826F 01B7 0269 031B 5070L 03CD 03ED 0000 0000 0000 0000 0000 0000 5078L 0000 0000 0000 0000 0000 0000 0000┆
0x02780…02800 UnusedSector ┆"PAGE" "*********************** * PASCAL I/O PACKAGE * ***********************" PROCEDURE XXXERROR(T: TEXT); VAR I:INTEGER; BE┆
0x02800…02880 UnusedSector ┆GIN DISPLAY(NL); DISPLAY('?'); DISPLAY('?'); I:=1; WHILE T[I]<>NULL DO BEGIN DISPLAY(T[I]); I:=SUCC(I); END; DISPLAY(N┆
0x02880…02900 UnusedSector ┆L); HALT; END "XXXERROR"; "OPEN AND CLOSE STREAMS" "----------------------" PROCEDURE OPEN(VAR S:STREAM; NAME:TEXT; DIR:DIRE┆
0x02900…02980 UnusedSector ┆CTION); CONST OC='OC '; VAR ID:IDENTIFIER; CTRL:INTEGER; ARG:ARGTYPE; BEGIN IF NOT (DIR IN [INPUT,OUTPUT]) THEN XXXERROR('ILLE┆
0x02980…02a00 UnusedSector ┆GAL DIRECTION(:0:)'); FOR CTRL:=1 TO IDLENGTH DO ID[CTRL]:=' '; CTRL:=1; WHILE (NAME[CTRL]<>'(:0:)') AND (CTRL<SUCC(IDLENGT┆
0x02a00…02a80 UnusedSector ┆H)) DO BEGIN ID[CTRL]:=NAME[CTRL]; CTRL:=SUCC(CTRL); END; IF ID=OC THEN IF DIR=INPUT THEN S:=INOC ELSE S:=OUTOC ELSE B┆
0x02a80…02b00 UnusedSector ┆EGIN ARG.TAG:=IDTYPE; ARG.ID:=ID; IF DIR=INPUT THEN BEGIN S:=INFILE; WRITEARG(INP,ARG); END ELSE BEGIN S:=OUTFILE; WR┆
0x02b00…02b80 UnusedSector ┆ITEARG(OUT,ARG); END; END; END "OPEN"; PROCEDURE CLOSE(S:STREAM); VAR ARG:ARGTYPE; BEGIN CASE S OF INOC,OUTOC: ; INFILE:┆
0x02b80…02c00 UnusedSector ┆ READARG(INP,ARG); OUTFILE: READARG(OUT,ARG) END "CASE"; END "CLOSE"; "I/O OF BYTES (CHARACTERS)" "-----------------------┆
0x02c00…02c80 UnusedSector ┆--" PROCEDURE OUTBYTE(S:STREAM; B:UNIV CHAR); BEGIN CASE S OF OUTOC: DISPLAY(B); OUTFILE: WRITE(B); INOC,INFILE: XXXERRO┆
0x02c80…02d00 UnusedSector ┆R('OUTPUT TO AN INPUT STREAM(:0:)') END "CASE"; END "OUTBYTE"; PROCEDURE INBYTE(S:STREAM; VAR B:UNIV CHAR); BEGIN CASE S OF ┆
0x02d00…02d80 UnusedSector ┆ INOC: ACCEPT(B); INFILE: READ(B); OUTOC,OUTFILE: XXXERROR('INPUT FROM AN OUTPUT STREAM(:0:)') END "CASE"; END "INBYTE"; ┆
0x02d80…02e00 UnusedSector ┆ PROCEDURE OUTNL(S:STREAM); BEGIN OUTBYTE(S,NL); END "OUTNL"; PROCEDURE BACKSPACE(S:STREAM); BEGIN " UNIMPLEMENTED " END "BA┆
0x02e00…02e80 UnusedSector ┆CKSPACE"; "I/O OF TEXT STRINGS" "-------------------" PROCEDURE INLINE(S:STREAM; VAR T:TEXT); VAR CH:CHAR; I:INTEGER; BEGIN ┆
0x02e80…02f00 UnusedSector ┆I:=1; REPEAT INBYTE(S,CH); T[I]:=CH; I:=SUCC(I); UNTIL (CH=NL) OR (CH=EM) OR (I>=TEXT_SIZE); T[I]:=NULL; END "INLINE"; P┆
0x02f00…02f80 UnusedSector ┆ROCEDURE OUTBYTES(S:STREAM; B:UNIV CHAR; COUNT:INTEGER); VAR CTRL:INTEGER; BEGIN FOR CTRL:=1 TO COUNT DO OUTBYTE(S,B); END "OU┆
0x02f80…03000 UnusedSector ┆TBYTES"; PROCEDURE OUTSTRING(S:STREAM; T:TEXT); VAR DONE:BOOLEAN; I:INTEGER; BEGIN I:=1; DONE:=FALSE; WHILE NOT DONE DO IF ┆
0x03000…03080 UnusedSector ┆T[I]<>NULL THEN IF I<=TEXT_SIZE THEN BEGIN OUTBYTE(S,T[I]); I:=SUCC(I); END ELSE DONE:=TRUE ELSE DONE:=TRUE; END "OUTSTRI┆
0x03080…03100 UnusedSector ┆NG"; PROCEDURE OUTTEXT(S:STREAM; T:TEXT; SIZE:INTEGER); VAR CTRL:INTEGER; BEGIN IF SIZE>TEXT_SIZE THEN XXXERROR('TEXT TOO LA┆
0x03100…03180 UnusedSector ┆RGE(:0:)'); FOR CTRL:=1 TO SIZE DO OUTBYTE(S,T[CTRL]); END "OUTTEXT"; "I/O OF INTEGERS" "---------------" FUNCTION BIN_TO_A┆
0x03180…03200 UnusedSector ┆SCII(INT:INTEGER):CHAR; BEGIN IF INT<10 THEN BIN_TO_ASCII:=CHR(INT+ORD('0')) ELSE BIN_TO_ASCII:=CHR(INT-10+ORD('A')); END "BI┆
0x03200…03280 UnusedSector ┆N_TO_ASCII"; PROCEDURE OUTHEXA(S:STREAM; INT:UNIV INTEGER; WIDTH:INTEGER); VAR T:TEXT; CTRL:INTEGER; TEMP:INTEGER; BEGIN FOR ┆
0x03280…03300 UnusedSector ┆CTRL:=1 TO TEXT_SIZE DO T[CTRL]:=SP; TEMP:=INT; FOR CTRL:=1 TO 4 DO BEGIN T[CTRL]:=BIN_TO_ASCII(GETBITS(TEMP,3,4)); TEMP:=┆
0x03300…03380 UnusedSector ┆RIGHTSHIFT(TEMP,4); END; T[5]:='#'; IF WIDTH<5 THEN FOR CTRL:=1 TO WIDTH DO T[CTRL]:='*'; FOR CTRL:=WIDTH DOWNTO 1 DO OUT┆
0x03380…03400 UnusedSector ┆BYTE(S,T[CTRL]); END "OUTHEXA"; PROCEDURE OUTINTEGER(S:STREAM; INT:UNIV INTEGER; WIDTH:INTEGER); VAR T:TEXT; CTRL:INTEGER; NE┆
0x03400…03480 UnusedSector ┆GATIVE:BOOLEAN; TEMP:INTEGER; BEGIN FOR CTRL:=1 TO TEXT_SIZE DO T[CTRL]:=SP; IF INT=#8000 THEN BEGIN "HANDLE SPECIAL CASE" ┆
0x03480…03500 UnusedSector ┆ END ELSE BEGIN TEMP:=INT; NEGATIVE:=TEMP<0; IF NEGATIVE THEN TEMP:=-TEMP; CTRL:=1; REPEAT T[CTRL]:=BIN_TO_ASCII(TEMP MO┆
0x03500…03580 UnusedSector ┆D 10); TEMP:=TEMP DIV 10; CTRL:=SUCC(CTRL); UNTIL TEMP=0; IF NEGATIVE THEN T[CTRL]:='-' ELSE CTRL:=PRED(CTRL); END; IF W┆
0x03580…03600 UnusedSector ┆IDTH<CTRL THEN FOR CTRL:=1 TO WIDTH DO T[CTRL]:='*'; FOR CTRL:= WIDTH DOWNTO 1 DO OUTBYTE(S,T[CTRL]); END "OUTINTEGER"; FU┆
0x03600…03680 UnusedSector ┆NCTION XXXDIGIT(CH:CHAR):BOOLEAN; BEGIN XXXDIGIT:=('0'<=CH) AND (CH<='9'); END "XXXDIGIT"; FUNCTION XXXHEXADIGIT(CH:CHAR):BOO┆
0x03680…03700 UnusedSector ┆LEAN; BEGIN XXXHEXADIGIT:=XXXDIGIT(CH) OR (('A'<=CH) AND (CH<='F')); END "HEXADIGIT"; FUNCTION ASCII_TO_BIN(CH:CHAR):INTEGER┆
0x03700…03780 UnusedSector ┆; BEGIN IF XXXDIGIT(CH) THEN ASCII_TO_BIN:=ORD(CH)-ORD('0') ELSE IF XXXHEXADIGIT(CH) THEN ASCII_TO_BIN:= ORD(CH)-ORD('A')+10┆
0x03780…03800 UnusedSector ┆ ELSE XXXERROR('ILLEGAL CHARACTER CONVERSION(:0:)'); END "ASCII_TO_BIN"; PROCEDURE INHEXA(S:STREAM; VAR INT:INTEGER); VAR CH:┆
0x03800…03880 UnusedSector ┆CHAR; BEGIN "SKIP INITIAL GARBAGE" REPEAT INBYTE(S,CH); IF CH=EM THEN XXXERROR('INPUT STREAM TERMINATED(:0:)'); UNTIL XXXHE┆
0x03880…03900 UnusedSector ┆XADIGIT(CH); "ASSEMBLE VALUE" INT:=0; WHILE XXXHEXADIGIT(CH) DO BEGIN INT:=LEFTSHIFT(INT,4); PUTBITS(ASCII_TO_BIN(CH),INT,┆
0x03900…03980 UnusedSector ┆3,4); INBYTE(S,CH); END; END "INHEXA"; PROCEDURE ININTEGER(S:STREAM; VAR INT:INTEGER); VAR CH:CHAR; POSITIVE:BOOLEAN; BEGIN ┆
0x03980…03a00 UnusedSector ┆ "SKIP INITIAL GARBAGE" REPEAT INBYTE(S,CH); IF CH=EM THEN XXXERROR('INPUT STREAM TERMINATED(:0:)'); UNTIL (CH='#') OR (CH='┆
0x03a00…03a80 UnusedSector ┆-') OR XXXDIGIT(CH); "GO HANDLE HEXADECIMAL CASE" IF CH='#' THEN BEGIN INHEXA(S,INT); EXIT; END; "CHECK FOR SIGN" POSITI┆
0x03a80…03b00 UnusedSector ┆VE:=TRUE; IF CH='-' THEN BEGIN POSITIVE:=FALSE; INBYTE(S,CH); END; "ASSEMBLE VALUE" INT:=0; WHILE XXXDIGIT(CH) DO BEGIN┆
0x03b00…03b80 UnusedSector ┆ INT:=INT*10-ASCII_TO_BIN(CH); INBYTE(S,CH); END; "REVERSE SIGN IF POSITIVE" IF POSITIVE THEN INT:=-INT; END "ININTEGER"; ┆
0x03b80…03c00 UnusedSector ┆PROCEDURE IN_LONG_INTEGER(S: STREAM; VAR LINT: LONG_INTEGER); VAR CH: CHAR; POSITIVE: BOOLEAN; BEGIN "SKIP INITTIAL GARBAGE" ┆
0x03c00…03c80 UnusedSector ┆ REPEAT INBYTE(S,CH); IF CH=EM THEN XXXERROR('INPUT STREAM TERMINATED(:0:)'); UNTIL (CH='#') OR (CH='-') OR XXXDIGIT(CH); "H┆
0x03c80…03d00 UnusedSector ┆ANDLE HEXADECIMAL CASE" IF CH='#' THEN BEGIN EXIT; END; "HANDLE SIGN" POSITIVE:= TRUE; IF CH='-' THEN BEGIN POSITIVE:= ┆
0x03d00…03d80 UnusedSector ┆FALSE; INBYTE(S,CH); END; "ASSEMBLE VALUE, NEGATIVE" LINT:= 0L; WHILE XXXDIGIT(CH) DO BEGIN LINT:= LINT*10L-LONG(ASCII_TO┆
0x03d80…03e00 UnusedSector ┆_BIN(CH)); INBYTE(S,CH); END; "REVERSE SIGN IF POSITIVE" IF POSITIVE THEN LINT:= -LINT; END "IN_LONG_INTEGER"; PROCEDURE O┆
0x03e00…03e80 UnusedSector ┆UT_LONG_INTEGER(S: STREAM; LINT: LONG_INTEGER; WIDTH: INTEGER); VAR T: TEXT; I: INTEGER; NEGATIVE: BOOLEAN; TEMP: LONG_INTEG┆
0x03e80…03f00 UnusedSector ┆ER; BEGIN FOR I:= 1 TO TEXT_SIZE DO T[I]:= SP; IF LINT=#80000000L THEN BEGIN "HANDLE SPECIAL CASE" END ELSE BEGIN TEMP:┆
0x03f00…03f80 UnusedSector ┆= LINT; NEGATIVE:= TEMP<0L; IF NEGATIVE THEN TEMP:= -TEMP; I:= 1; REPEAT T[I]:= BIN_TO_ASCII(SHORT(TEMP-(TEMP/10L)*10L)); ┆
0x03f80…04000 UnusedSector ┆ TEMP:= TEMP/10L; I:= SUCC(I); UNTIL TEMP= 0L; IF NEGATIVE THEN T[I]:= '-' ELSE I:= PRED(I); END; IF WIDTH<I THEN FOR I┆
0x04000…04080 UnusedSector ┆:= 1 TO WIDTH DO T[I]:= '*'; FOR I:= WIDTH DOWNTO 1 DO OUTBYTE(S,T[I]); END "OUT_LONG_INTEGER"; RT(TEMP-(TEMP/10L)*10L)); ┆
0x04080…04100 UnusedSector ┆DF 000A 1A68L 01DF 0020 0A94 0814 004C DA85 FDD0 FFD2 1A70L D860 FBD0 2868 FA80 2874 644A 668A 195E 1A78L 63D8 62D8 FA18 2870 FB┆
0x04100…04180 UnusedSector ┆60 D8D0 FF62 FD60 1A80L DA12 3248 4769 05A6 D812 40BF 42A6 E160 1A88L E187 8CF2 9BF0 E318 81F2 8CD8 2C68 81F2 1A90L DE87 FE56 E7┆
0x04180…04200 UnusedSector ┆DE 4769 00A6 E127 E227 75A6 1A98L E018 81F2 41D8 0A48 77A6 4769 78A6 0EA6 1AA0L 1A58 00BE 03D8 FE56 D5DE 0E58 C11A 70F3 1AA8L 04┆
0x04200…04280 UnusedSector ┆D8 73B3 072D D28B 28D8 A2B2 6D48 1BA6 1AB0L 6849 45A6 6CD8 E327 E118 85F0 71F3 03D8 1AB8L E287 11A6 2358 C11A 47A6 18D8 E419 DB1┆
0x04280…04300 UnusedSector ┆8 1AC0L 8DF2 71F3 0EA4 2056 2E48 E480 97F2 10F8 1AC8L 05D8 69BB F218 823C 675E 1EBB 76F3 DF27 1AD0L 71F3 7DE4 F15E 1EA4 20E4 08A┆
0x04300…04380 UnusedSector ┆4 7850 FE56 1AD8L A1DE 44A6 DF87 4B58 0A48 19A6 E027 FE56 1AE0L 99DE E018 87B0 7E5E E827 E427 3D48 46E4 1AE8L C190 664E 7F5E 18A┆
0x04380…04400 UnusedSector ┆4 C027 D04E 004A FE56 1AF0L F1DE 0458 1758 DC27 01AE D74A 628B 004B 1AF8L 8093 01CE 03C2 EB27 6848 1AA6 36D8 DE27 1B00L 0894 1D7┆
0x04400…04480 UnusedSector ┆E 0ED8 02DF 3A2E 0000 9D5E 014A 1B08L D04E FE56 D7DE 0558 3158 30AB DB83 AA5E 1B10L 8058 6848 6549 0BA6 3248 77A6 0DA6 10A6 1B18┆
0x04480…04500 UnusedSector ┆Z01540 T1549 P 1540L 2930 15F3 18C3 1B43 1C83 1E73 2013 27F3 0000 S0 ┆
0x04500…04580 UnusedSector ┆. Z02013 T261A P 2010L 0000 0000 0000 0000 02E0 2018L 0000 0000 4E45 5254 5359 0000 0000 0000 2020L 0000 0000 0000 0000 0000 000┆
0x04580…04600 UnusedSector ┆ ORIGINATED BY: EMH PROJECT NO: 1553 DATE: 810116 MODULE: TARA FLOPPY DI┆
0x04600…04680 UnusedSector ┆SC NO CR/D/1621 SOURCE TEXT AND VERSION: TARA AREASIZE: 4096 AREA START ┆
0x04680…04700 UnusedSector ┆ADDRESS: 0 PROMSIZE: 2048 PROMWIDTH: 8 PROM FILE: PROM1 PROMID: 1 VERSION: 1 PARITY BIT: 5 PROM INPUT FILE: TARAH PARAM INPUT F┆
0x04700…04780 UnusedSector ┆ILE: PROMP 07 07 07 07 07 07 01 01 01 02 02 01 02 02 02 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00┆
0x04780…04800 UnusedSector ┆ 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 00 00 00 00 00 ┆
0x04800…04880 UnusedSector ┆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 00 00 00 00 00 0┆
0x04880…04900 UnusedSector ┆0 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 00 00 00 00 ┆
0x04900…04980 UnusedSector ┆ 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 3┆
0x04980…04a00 UnusedSector ┆5 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 32 33 30 4B 00 00 0A 00 30 43 30┆
0x04a00…04a80 UnusedSector ┆ 00 00 0A 00 30 0D 00 00 03 0D 00 00 00 00 00 0A 44 4C 54 0D 00 00 00 32 44 30 30 00 32 43 30 30 54 53 46 00 32 ┆
0x04a80…04b00 UnusedSector ┆44 54 53 00 32 43 54 53 00 32 53 00 06 F7 06 F7 07 F8 08 F9 0C FD 0C FE 0E FF 0E FF 0E 18 C0 0B 09 14 9F┆
0x04b00…04b80 UnusedSector ┆ 47 04 00 10 06 01 01 48 91 07 30 02 1C 37 F6 08 01 E5 67 09 18 94 94 23 01 04 6A 81 00 3E 56 FE 80 3E 56 91 02 ┆
0x04b80…04c00 UnusedSector ┆5E DA 13 90 01 06 04 06 12 04 49 07 04 02 14 04 01 02 10 03 D5 6D 80 3E 56 00 DE 40 02 17 20 05 01 05 0D 09 1C 9┆
0x04c00…04c80 UnusedSector ┆9 04 17 07 04 01 DE 02 1C 0F 2A 01 01 48 0D 1F CE 40 0C 08 68 09 02 01 86 01 00 D1 A1 05 10 5C 50 03 30 5C DC ┆
0x04c80…04d00 UnusedSector ┆ 50 5C DC 50 5C DC 50 5C DC 50 5C DC 50 5C DC 50 5C DC 50 5C DC 50 5C DC 50 5C DC 50 5C DC 50 5C DC 50 5C D┆
0x04d00…04d80 UnusedSector ┆C 50 5C DC 50 5C DC 50 5C DC 50 84 82 5E 0D 82 84 87 52 03 6A 08 84 84 8D 01 84 02 82 0F C7 CF 05 1A D0 D0 0B 03┆
0x04d80…04e00 UnusedSector ┆ 28 AC C1 52 25 04 C0 50 A8 D0 5F 03 D5 C1 09 02 54 C0 10 B9 20 00 D0 0E 02 04 37 04 12 01 05 0D 4B 51 02 B0 03 ┆
0x04e00…04e80 UnusedSector ┆00 8A 05 04 00 8A 01 8A 20 00 04 F0 03 49 4A 4E 01 12 08 82 00 01 00 01 94 20 00 0B 09 14 90 3A 1B C0 40┆
0x04e80…04f00 UnusedSector ┆ 03 0B 0B 06 73 B0 F3 08 36 17 02 01 18 D0 0D 00 02 01 01 16 9E 04 01 01 00 03 01 01 02 03 04 06 0F 0B 05 73 B0 ┆
0x04f00…04f80 UnusedSector ┆F3 07 04 31 16 04 01 03 04 01 04 05 01 20 01 D7 20 01 01 20 01 D7 40 01 00 BA 01 01 24 01 01 20 80 42 43 46 B8 1┆
0x04f80…05000 UnusedSector ┆# MODULE TARA PT/IF # WORDSIZE 8 # PROMSIZE 512 # PROMWIDTH 8 # PARITYPROMS 0 ┆
0x05000…05080 UnusedSector 0x00[128]
[…0x1…]
0x05100…05180 UnusedSector ┆ "PAGE" "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" " " " MODULE NUMBER CSS/103/L-D/0100 NAME PR┆
0x05180…05200 UnusedSector ┆OMGEN PROGRAM LISTING " " " " GENERAL PURPOSE PROM GENERATING PROGRAM " " " " ROVSING FH/790822 RELEASE 01 VERSION 001 " " " "XX┆
0x05200…05280 UnusedSector ┆XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" " " " FUNCTION " " " " THE PROMGEN PROGRAM GENERATES PROMD┆
0x05280…05300 UnusedSector ┆ESCRIPTIONS FROM A GIVEN " " HEXADECIMAL INPUT DISC FILE. " " THE PROMDESCRIPTIONS DEFINES THE CONTENT OF A NUMBER OF " " PROMS ┆
0x05300…05380 UnusedSector ┆EACH CONTAINED IN ITS OWN DISCFILE. " " THESE DISCFILES HAVE TO BE CREATED PRIOR TO PROMGEN EXECUTION " " THE PROMDESCRIPTION IS┆
0x05380…05400 UnusedSector ┆%SUMMARY %LIST %WORKAREA=25000 $PMODULE %NOLIST $PREFIX %LIST $IODEC $PDEC %NOLIST $IO %LIST $PPROC $PPROG ┆
0x05400…05480 UnusedSector ┆#MODULE TARA #WORDSIZE 16 #PROMSIZE 2048 #PROMWIDTH 8 #PARITYPROMS 1 #1 PROM1 1 1 5 #2 PROM2 2 1 2 #3 PROM3 3 1 4 #4 PROM4 4 1 1┆
0x05480…05500 UnusedSector ┆ #1 PARITY 1 1 ┆
0x05500…05580 UnusedSector ┆ELEASE 01 VERSION 001 " " " "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" " " " FUNCTION " " " " THE ┆
0x05580…05600 UnusedSector ┆PROMGEN PROGRAM GENERATES PROMDESCRIPTIONS FROM A GIVEN " " HEXADECIMAL INPUT DISC FILE. " " THE PROMDESCRIPTIONS DEFINES THE CO┆
0x05600…05680 UnusedSector ┆NTENT OF A NUMBER OF " " PROMS EACH CONTAINED IN ITS OWN DISCFILE. " " THESE DISCFILES HAVE TO BE CREATED PRIOR TO PROMGEN EXECU┆
0x05680…05700 UnusedSector ┆TION " " THE PROMDESCRIPTION IS AFTER A COPY TO A MAGNETIC TAPE , " " DIRECT USABLE AS INPUT TO A 'DATA I/O' PROM PROGRAMMER. " ┆
0x05700…05780 UnusedSector ┆" PROMGEN TAKES FIXED INPUT PARAMETERS FROM A DISCFILE( " " SPECIFIED IN THE PROMGEN CALL) AND DYNAMIC PARAMETERS FROM " " THE O┆
0x05780…05800 UnusedSector ┆PERATORS CONSOLE. " " " "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" "PAGE" " " "XXXXXXXXXXXXXXXXX┆
0x05800…05880 UnusedSector ┆XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" " " " INTERFACE " " INVOCATION " " PROGRAM CALL: PROMGEN S:<PDATA> P:<PAR┆
0x05880…05900 UnusedSector ┆AM> " " PROMGEN: THE ASSEMBLED PROGRAM. " " PDATA : THE HEXADECIMAL INPUTFILE TO BE PROMMED. " " PARAM : FIXED INPUT PARAMETER F┆
0x05900…05980 UnusedSector ┆ILE. " " " " THE PROGRAM REQUIRES INPUT PARAMETERS FROM OC: " " " " ORIGINATED BY: <IDENTIFIER> " " PROJECT NO: <LONG INTEGER> "┆
0x05980…05a00 UnusedSector ┆ " DATE: <LONG INTEGER> " " FLOPPY DISC NO,CR/D/: <INTEGER> " " SOURCETEXT AND VERSION: <TEXT> " " AREASIZE: <INTEGER> " " AREAS┆
0x05a00…05a80 UnusedSector ┆TART ADDRESS: <INTEGER> " " WHERE THE TEXT BEFORE : IS SUPPLIED BY THE PROGRAM. " " THE < > IS SUPPLIED AS AN ANSWER BY THE OPER┆
0x05a80…05b00 UnusedSector ┆ATOR. " " " " FORMAT OF THE PARAM DISCFILE: " " " " # MODULE <TEXT> " " # WORDSIZE <INTEGER> " " # PROMSIZE <INTEGER> " " # PROM┆
0x05b00…05b80 UnusedSector ┆WIDTH <INTEGER> " " # PARITYPROMS <INTEGER> " " [ # <SEQNO> <PROMFILE> <PROMID> <VERSION> <PARITYBIT> ]X " " [ # <SEQNO> <PARITY┆
0x05b80…05c00 UnusedSector ┆FILE> <PROMID> <VERSION> ]Y " " WHERE X= NUMBER OF PROMS(PARITY PROMS EXCLUDED). " " Y= NUMBER OF PARITY PROMS. " " X AND Y ARE ┆
0x05c00…05c80 UnusedSector ┆REPETITIONS FACTORS. " " " " OUTPUT " " " " FOR EACH GENERATED PROM , THE PROGRAM WRITES ON THE " " OPERATORS CONSOLE: " " " " P┆
0x05c80…05d00 UnusedSector ┆ROMID: <INTEGER> VERSION: <INTEGER> " " CHECKSUM: <HEXADECIMAL NUMBER> " " " " EXIT " " THE PROGRAM RELINQUISHES CONTROL, WHEN A┆
0x05d00…05d80 UnusedSector ┆LL THE SPECIFIED " " PROMS ARE CREATED OR IF A PARAMETER ERROR IS FOUND. " " " "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX┆
0x05d80…05e00 UnusedSector ┆XXXXXXXXXXXXXXXXXXXXXX" " " " EXCEPTIONS " " " " IF A PARAMETER IS ILLEGAL, THE PROGRAM STOPS AND " " ISSUES AN APPROPRIATE ERRO┆
0x05e00…05e80 UnusedSector ┆RMESSAGE. " " " "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" "PAGE" "XXXXXXXXXXXXXXXXXXXXXXXXXXXXX┆
0x05e80…05f00 UnusedSector ┆XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" " " " PROGRAM GENERATION " " THE SOURCE PROGRAM CONSISTS OF THE FOLLOWING FILES: " " ┆
0x05f00…05f80 UnusedSector ┆" " PMODULE : MODULE HEADER " " PREFIX : PREFIX ROUTINES " " IODEC : IO DECLARATIONS AND CONSTANTS " " PDEC : PROMGEN DECLARATIO┆
0x05f80…06000 UnusedSector ┆NS AND CONSTANTS " " IO : IO PROCEDURES " " PPROC : PROMGEN PROCEDURES " " PPROG : PROMGEN MAIN PROGRAM " " " " THESE SOURCE PRO┆
0x06000…06080 UnusedSector ┆GRAMS ARE MERGED: " " MERGE S: PMERGE1 O:PS1 " " " " HEREAFTER THE COMPILER IS CALLED: " " COMPILE S:PS1 O:GENOBJ P:PLIST1 " " "┆
0x06080…06100 UnusedSector ┆E 1E C0 00 74 01 05 46 01 24 01 20 02 01 27 80 9D 44 BA 43 0E E0 5F 42 26 01 01 27 01 22 01 40 01 D5 20 03 03 ┆
0x06100…06180 UnusedSector ┆ D5 00 65 19 80 01 01 3A 38 20 32 03 01 EA 5B 02 01 EA 39 0D 38 8B 04 75 94 94 01 06 12 06 01 9A 04 75 06 0┆
0x06180…06200 UnusedSector ┆1 9A 37 03 01 9A 31 03 01 37 EA 01 EF E6 C0 31 3B 6A 67 46 46 1E 1E 35 6B 40 45 03 D5 00 65 31 08 6A 67 15 E0 03┆
0x06200…06280 UnusedSector ┆ 01 45 07 30 55 82 82 58 45 45 43 06 41 B6 00 01 27 01 ED 64 03 01 27 1E EC 06 96 6C 30 6E 31 70 6A 67 33 02 35 ┆
0x06280…06300 UnusedSector ┆03 15 EA 79 6B EF F0 80 EF EB 80 81 45 E0 BA 00 01 01 24 01 01 20 80 8D 43 41 45 45 E6 00 01 27 01 ED 98┆
0x06300…06380 UnusedSector ┆ 03 01 27 1E EC 06 CA A0 45 45 43 03 41 15 1E F2 0E D5 04 01 27 AE 45 E0 BA B2 03 D5 00 65 30 B8 82 E5 BB 01 BD ┆
0x06380…06400 UnusedSector ┆00 01 27 C1 30 C3 82 F0 C6 E9 C8 E9 04 CB 04 CC 04 CE 00 04 CD E0 00 E0 23 01 60 00 C0 00 E0 04 C9 8C 03 D5 82 6┆
0x06400…06480 UnusedSector ┆D 80 54 DE 81 54 81 00 0F A9 04 CA 04 CE 80 E9 04 CB 04 CC 04 CE 01 04 CD E0 00 E0 23 01 60 00 C0 00 E0 04 C9 ┆
0x06480…06500 UnusedSector ┆ 8B 03 D5 82 6D 80 54 DE 81 54 81 00 A9 04 CE 80 1C 80 04 01 D4 5E 89 02 61 01 07 00 00 89 01 00 07 E9 11 8┆
0x06500…06580 UnusedSector ┆7 80 1F 11 88 4D 00 D0 41 90 8D 49 78 42 C1 43 C2 44 C3 45 C4 46 C5 47 C6 48 01 56 03 11 8A 01 0A DC A9 80 E9 02┆
0x06580…06600 UnusedSector ┆[1..MAXARG] OF ARGTYPE; CONST S = 2; P = 3; O = 4; N = 5; D = 6; L = 7; TYPE ARGSEQ = (INP, OUT); TYPE PROGRESULT = (TERMINATE┆
0x06600…06680 UnusedSector ┆D, OVERFLOW, POINTERERROR, RANGEERROR, VARIANTERROR, HEAPLIMIT, STACKLIMIT, CODELIMIT, TIMELIMIT, CALLERROR); TYPE BITPOSITIO┆
0x06680…06700 UnusedSector ┆N = 0..15; TYPE BITFIELDLENGTH = 0..16; TYPE BITVALUE = (LOW, HIGH); TYPE MESSAGE_BUFFER = ARRAY (.1..5.) OF INTEGER; TYPE EVEN┆
0x06700…06780 UnusedSector ┆T_TYPE = (TIME_OUT, ANSWER, MESSAGE, INTERRUPT); TYPE WORD_ADDRESS = RECORD MEMORY_SECTION: INTEGER; WORD_DISPLACEMENT:INTEGE┆
0x06780…06800 UnusedSector ┆R END; TYPE BYTE_ADDRESS = RECORD BYTE_DISPLACEMENT: INTEGER; WORD_ADDR: WORD_ADDRESS END; TYPE PROCESS_NAME = RECORD NAM┆
0x06800…06880 UnusedSector ┆. Z0FE00 T00A5 P FE00L 0148 0349 9896 0896 0BF0 0658 00BF 0148 FE08L F8D7 00BF EABE 0C5D 065D AABE 40BF EABE FE10L 04EC 8A46 07A┆
0x06880…06900 UnusedSector ┆8 37C8 0B5E AABE 40BF EABE FE18L 0449 84A2 0C5E 03C1 AABE 40BF EABE 4023 FE20L C51D 4120 195E 60BC 1B5E C516 07C3 AABE FE28L 41B┆
0x06900…06980 UnusedSector ┆F EABE 0D5E 0004 0A0D 0000 0000 0000 FE30L AABE 40BF 01A4 014E 1F69 204A D3BC 3A8D FE38L EABC E07C 18FB E17C 89BB E3BC 01C9 1F71┆
0x06980…06a00 UnusedSector ┆ FE40L 94F0 2BFB 04CB 0CE4 BAE9 00BF 0777 E056 FE48L 004F E7BC 076F 00BF 2CBE 0F70 0048 1170 FE50L 1470 154F 164E 8FBB 4CE4 E006┆
0x06a00…06a80 UnusedSector ┆ 7EE9 0458 FE58L 40BC C848 01C0 1448 0051 15D8 4B4F 375E FE60L 435E 0009 4E49 5449 4149 494C 4953 474E FE68L 4320 5550 203D D0BC┆
0x06a80…06b00 UnusedSector ┆4 04 05 05 06 03 03 03 03 03 04 04 04 04 05 05 00 00 00 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 02┆
0x06b00…06b80 UnusedSector ┆ 02 02 02 02 02 06 06 E0 E0 AA 80 55 40 20 12 12 CD 10 08 04 01 FF FF EF 1D 54 E0 11 83 1D 20 10 02 10 1┆
0x06b80…06c00 UnusedSector ┆# MODULE SCM CR80100 # WORDSIZE 16 # PROMSIZE 2048 # PROMWIDTH 8 # PARITYPROMS 1 # 1 PMSB 1 1 2 # 2 PLSB 2 1 5 # 1 PARITY 3 1 ┆
0x06c00…06c80 UnusedSector ┆ # 1 PARITY 5 1 ┆
0x06c80…06d00 UnusedSector ┆ ORIGINATED BY: BBP PROJECT NO: 1558 DATE: 810209 MODULE: TARA PT/IF FLOPPY DI┆
0x06d00…06d80 UnusedSector ┆SC NO CR/D/ 16 SOURCE TEXT AND VERSION: VEMDAT AREASIZE: 512 AREA START AD┆
0x06d80…06e00 UnusedSector ┆DRESS: 0 PROMSIZE: 512 PROMWIDTH: 8 PROM FILE: OUTPRO PROMID: 1 VERSION: 1 PARITY BIT: 1 PROM INPUT FILE: VEMRME PARAM INPUT FI┆
0x06e00…06e80 UnusedSector ┆LE: KOMPGE 00 0B 00 32 00 A0 00 64 01 2C 00 01 00 15 00 A1 01 18 00 C8 01 CC 00 02 00 1F 00 F0 01 7C 01 CD 02┆
0x06e80…06f00 UnusedSector ┆ 44 00 04 00 29 01 2C 02 99 02 45 03 98 00 05 00 47 01 B8 02 99 03 99 05 78 00 11 00 00 00 16 00 A1 01 18 00 FA ┆
0x06f00…06f80 UnusedSector ┆01 F4 02 58 05 14 00 03 00 2A 00 C8 03 E8 00 64 00 96 01 2C 05 78 00 06 01 FF 01 04 01 C2 01 F4 03 E8 03 84 07 0┆
0x06f80…07000 UnusedSector ┆8 00 08 00 00 00 2B 00 64 02 BC 00 64 01 4F 00 64 00 FA 01 90 05 78 00 07 02 00 00 C8 01 C2 01 50 03 70 00 64 ┆
0x07000…07080 UnusedSector ┆"##################################################" "CR80 SEQUENTIAL PASCAL STANDARD PREFIX. PHO-790330" "#####################┆
0x07080…07100 UnusedSector ┆#############################" CONST NL = '(:10:)'; FF = '(:12:)'; CR = '(:13:)'; EM = '(:25:)'; CONST NULL = '(:0:)'; SP = ' '┆
0x07100…07180 UnusedSector ┆; CONST PAGELENGTH = 256; TYPE PAGE = ARRAY [1..PAGELENGTH] OF INTEGER; CONST LINELENGTH = 132; TYPE LINE = ARRAY [1..LINELEN┆
0x07180…07200 UnusedSector ┆GTH] OF CHAR; CONST IDLENGTH = 12; TYPE IDENTIFIER = ARRAY [1..IDLENGTH] OF CHAR; TYPE FILE = 1..2; TYPE ARGTAG = (NILTYPE, B┆
0x07200…07280 UnusedSector ┆OOLTYPE, INTTYPE, IDTYPE, PTRTYPE); TYPE POINTER = @BOOLEAN; TYPE ARGTYPE = RECORD CASE TAG: ARGTAG OF NILTYPE, BOOLTYPE: (B┆
0x07280…07300 UnusedSector ┆░░ ░░ ┆
0x07300…07380 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x07380…07400 UnusedSector ┆░░ ░░ ┆
0x07400…07480 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x07480…07500 UnusedSector ┆░░ ░░ ┆
0x07500…07580 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x07580…07600 UnusedSector ┆░░ ░░ ┆
0x07600…07680 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x07680…07700 UnusedSector ┆░░ ░░ ┆
0x07700…07780 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x07780…07800 UnusedSector ┆░░ ░░ ┆
0x07800…07880 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x07880…07900 UnusedSector ┆░░ ░░ ┆
0x07900…07980 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x07980…07a00 UnusedSector ┆░░ ░░ ┆
0x07a00…07a80 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x07a80…07b00 UnusedSector ┆░░ ░░ ┆
0x07b00…07b80 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x07b80…07c00 UnusedSector ┆░░ ░░ ┆
0x07c00…07c80 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x07c80…07d00 UnusedSector ┆░░ ░░ ┆
0x07d00…07d80 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x07d80…07e00 UnusedSector ┆░░ ░░ ┆
0x07e00…07e80 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x07e80…07f00 UnusedSector ┆░░ ░░ ┆
0x07f00…07f80 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x07f80…08000 UnusedSector ┆░░ ░░ ┆
0x08000…08080 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x08080…08100 UnusedSector ┆░░ ░░ ┆
0x08100…08180 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x08180…08200 UnusedSector ┆░░ ░░ ┆
0x08200…08280 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x08280…08300 UnusedSector ┆░░ ░░ ┆
0x08300…08380 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x08380…08400 UnusedSector ┆░░ ░░ ┆
0x08400…08480 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x08480…08500 UnusedSector ┆░░ ░░ ┆
0x08500…08580 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x08580…08600 UnusedSector ┆░░ ░░ ┆
0x08600…08680 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x08680…08700 UnusedSector ┆░░ ░░ ┆
0x08700…08780 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x08780…08800 UnusedSector ┆░░ ░░ ┆
0x08800…08880 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x08880…08900 UnusedSector ┆░░ ░░ ┆
0x08900…08980 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x08980…08a00 UnusedSector ┆░░ ░░ ┆
0x08a00…08a80 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x08a80…08b00 UnusedSector ┆░░ ░░ ┆
0x08b00…08b80 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x08b80…08c00 UnusedSector ┆6 4F 7A 92 8E A8 C3 27 56 74 56 70 4F 56 77 BF BB 1B F2 18 BB 7C D8 1C 5F 4F 56 77 D8 5F 56 4B 56 73 4B BC 56 ┆
0x08c00…08c80 UnusedSector ┆ 4E CE E3 4E 16 56 4A 97 F0 D8 4E 56 4A 97 4E 56 4A 97 F0 D8 BB 24 EC 49 24 A0 8D 4A 88 56 4A 97 D8 49 56 4┆
0x08c80…08d00 UnusedSector ┆A 97 49 56 4A 97 58 56 4A 4E 97 4A 56 E4 12 F0 58 97 EC 1B 16 56 4D 8A BB 93 58 56 4E CE 11 F0 D8 97 EC E4 7E D8┆
0x08d00…08d80 UnusedSector ┆ 4B 83 D8 F0 58 F2 5F 58 1B 81 1E 8B 86 F2 4F 56 77 4E BB 58 4F 56 77 56 4C 48 5F 58 F0 58 F0 58 97 EC F2 D8 F0 ┆
0x08d80…08e00 UnusedSector ┆D8 4E 97 58 BB 56 E4 1E 56 E4 12 58 1E 7C 97 93 CC 56 74 A8 56 70 7E 58 1E 86 1E 81 F2 4F 56 77 4E BB 58┆
0x08e00…08e80 UnusedSector ┆ 4F 56 77 56 4C 48 5F 58 1E 83 1B 8B 83 58 56 4C 48 5F 4F 56 77 58 1E 7C 97 58 56 4E CE 11 F0 58 F2 5F 58 4B BB ┆
0x08e80…08f00 UnusedSector ┆4F 56 77 58 F0 58 F2 5F 58 5F 58 BE 56 70 56 71 56 72 48 56 70 56 48 BC BE 56 48 BC 56 48 BC 56 68 F0 56 4E 1C F┆
0x08f00…08f80 UnusedSector ┆B F0 88 BB 1D 52 85 FF 58 BE 56 69 56 6A BF BE 56 70 56 71 56 72 48 56 70 56 48 BC BE 56 48 BC 56 48 BC 56 68 ┆
0x08f80…09000 UnusedSector ┆ F0 56 4E 1C FB F0 88 BB 1D 52 85 FF BE 56 6A BF 4E 16 49 CD F3 FB 1E CE E3 CD C1 68 69 96 58 16 BC BE 56 6┆
0x09000…09080 UnusedSector ┆8 7C D8 56 4C FB 4E BC 80 18 BB 87 FB 80 18 80 18 80 18 80 18 80 18 80 18 80 1E FA D8 56 4D D8 CD BB BE BF BE 56┆
0x09080…09100 UnusedSector ┆ 48 56 49 4A 4B 8D 97 4A 4B 8D 56 4D BB CC CD 4B BB 97 EC 97 EC BC 8D 7C D8 7C D8 BB CC CB C0 D8 83 7C D8 CD 58 ┆
0x09100…09180 UnusedSector ┆56 4C 4B 97 EC 97 EC BC 8D 7C D8 BB CC C0 D8 CB 7C D8 7C D8 D8 56 4C 58 56 4C 58 BE BF 58 4D 99 81 56 4C┆
0x09180…09200 UnusedSector ┆ 48 49 BB CC C0 56 4F 56 4C 48 BB CC C0 56 4C 56 4D BB 56 48 80 5F 2C 56 48 FB 8E C0 56 4C 56 48 FB 8E C0 56 4D ┆
0x09200…09280 UnusedSector ┆18 7E D8 56 48 D8 27 56 48 56 4C 4B 49 A0 CC BB A0 7A FA D8 CB 8A F7 58 56 4C 19 7C D8 19 40 D8 19 56 4A F6 D8 D┆
0x09280…09300 UnusedSector ┆8 29 4A BB CB BB C9 C3 BE 56 4C 56 4D BB 56 48 80 5F 4D 99 81 49 4A 48 56 4C 4B 56 4D 96 1E 7E D8 EC 82 BB CE ┆
0x09300…09380 UnusedSector ┆ 8A 50 16 C8 4A C9 27 C3 BE BB CB FB BB C9 56 4D 7F D8 BB CD CB C9 C2 BE 56 49 8B FB 49 EB 4E 49 EB BB 56 4┆
0x09380…09400 UnusedSector ┆B BB EA FB 56 4E 4B 56 4C CC 7D D8 FB BB 86 86 81 BE A9 56 4A 48 BB EA FB 8A 80 56 48 7C D8 56 49 BB 8A C2 80 56┆
0x09400…09480 UnusedSector ┆ 48 7C D8 49 BB 8A C2 80 56 48 7C D8 49 BB 8A C2 80 56 48 7C D8 49 BB 8A C2 80 56 48 7C D8 49 BB 8A C2 80 56 48 ┆
0x09480…09500 UnusedSector ┆7C D8 49 BB 8A C2 80 BE 8A CC CB C2 56 4C 49 81 56 4C BE 49 A0 4B CC BB A0 93 CB 8A F7 58 D8 56 4C 16 56┆
0x09500…09580 UnusedSector ┆ 48 56 49 4A BB C8 C1 2E 56 49 BB 56 49 81 56 49 81 56 49 81 56 49 81 48 56 4A 4E 4C 84 56 49 81 82 56 49 81 56 ┆
0x09580…09600 UnusedSector ┆4B 83 80 80 4E 49 81 49 81 49 81 56 49 81 56 49 81 82 56 4D 85 83 80 80 4E 49 81 49 81 49 81 56 49 81 56 49 81 8┆
0x09600…09680 UnusedSector ┆2 85 83 80 80 4E 49 81 49 81 49 81 56 49 81 56 49 81 82 85 83 80 80 4E 49 81 49 81 49 81 56 49 81 56 49 81 82 ┆
0x09680…09700 UnusedSector ┆ 85 83 80 80 4E 49 81 56 49 81 56 4D 85 82 56 49 81 83 80 80 4E 49 81 85 56 49 81 56 49 C9 81 82 56 49 81 8┆
0x09700…09780 UnusedSector ┆3 80 80 56 4E 84 56 49 81 80 80 82 56 49 81 83 56 4E 4C 84 56 4D 85 80 80 82 56 49 81 83 56 4E 84 85 80 80 82 56┆
0x09780…09800 UnusedSector ┆ 49 81 83 56 4E 56 49 81 56 49 81 80 80 56 49 81 82 83 56 4E 49 81 49 81 56 4D 80 80 82 85 83 56 4E 56 4D 56 49 ┆
0x09800…09880 UnusedSector ┆BB CD C1 49 56 71 49 56 71 49 56 71 49 56 71 49 56 71 56 49 56 71 56 49 56 71 56 49 56 71 56 49 56 71 56┆
0x09880…09900 UnusedSector ┆ DF 56 4C 56 4D 1D A5 18 BB 48 56 4C 90 90 48 90 48 E4 90 48 49 4A 56 4E 90 91 CE C2 48 56 70 48 56 70 56 48 56 ┆
0x09900…09980 UnusedSector ┆49 4A FB 8E C2 56 49 4A FB 8E C2 56 4C 49 E4 BB E4 BB 56 4C 56 49 81 56 49 81 56 49 81 56 49 81 56 49 81 56 49 8┆
0x09980…09a00 UnusedSector ┆1 56 49 81 56 49 81 56 49 81 56 49 81 56 49 81 49 81 56 49 81 56 49 81 56 4C 49 81 49 81 56 4C 49 4A 56 48 56 ┆
0x09a00…09a80 UnusedSector ┆ 4B 56 4D BB 80 83 85 C9 C8 CB CD CC C2 56 48 C8 4A 56 4C 7D D8 FB 1D CD 85 C8 CC C2 56 4C 4A 49 81 82 56 4┆
0x09a80…09b00 UnusedSector ┆C 49 81 82 56 4C 49 81 82 56 4C 49 81 82 56 4C 48 49 4A BB 80 BB CB 83 83 BB AD CB C5 83 C8 56 CC C1 56 4C 48 49┆
0x09b00…09b80 UnusedSector ┆ BB C8 CC C1 56 4C 48 49 4A BB 80 BB CB 83 83 BB AD CB C5 83 C8 CC C1 56 4C 48 99 56 4A CC BB 81 CC CA C0 56 4C ┆
0x09b80…09c00 UnusedSector ┆99 BB 56 4C 99 BB 56 4C 99 BB 56 4C 18 7C D8 49 48 8D 97 BB 56 4C 1A 8B 42 BC 1B 4A EB 42 D8 1B 8A 4D 4E┆
0x09c00…09c80 UnusedSector ┆ E4 42 D8 CD 8B 58 BE F2 18 8A E5 42 D8 16 48 80 83 BE BE BB 49 1B EB 42 D8 1B 8A E4 42 D8 19 C9 E4 42 D8 48 80 ┆
0x09c80…09d00 UnusedSector ┆19 C9 E5 42 D8 49 81 09 D8 83 D8 81 D8 81 49 8B 83 BE 80 56 4B 19 1A BB EA 8B 80 56 49 48 97 56 49 48 97 56 49 4┆
0x09d00…09d80 UnusedSector ┆8 97 49 56 4A 8D 48 97 49 56 4C CC 4B 7D D8 4A 97 C2 C9 CC C3 48 4E 56 49 81 56 4A 82 99 81 56 49 81 99 81 80 ┆
0x09d80…09e00 UnusedSector ┆ 80 56 4C 48 80 48 BC BE 56 48 BC 56 4C 18 49 FB F2 D8 C9 24 C0 D8 1A 4B 18 F2 D8 CB 24 C0 BE CC BB A0 8A B┆
0x09e00…09e80 UnusedSector ┆B 56 4C CC BB A0 8A FB BB 56 4C 81 27 4D F6 D8 CE BB C8 FB 56 48 BC 56 4C 48 1A E4 44 FC CC C0 56 4C 19 F0 D8 19┆
0x09e80…09f00 UnusedSector ┆ 56 E4 44 FC BE BF 56 48 BC 58 BE 56 6C FB 56 4D 56 48 BC 18 52 80 FB 88 BB 56 48 BC FF 56 75 1C 56 48 BC 1A FB ┆
0x09f00…09f80 UnusedSector ┆13 19 CHECKSUM: #8112 27 4D F6 D8 CE BB C8 FB 56 48 BC 56 4C 48 1A E4 44 FC CC C0 56 4C 19 F0 D8 19┆
0x09f80…0a000 UnusedSector ┆ ORIGINATED BY: EMH PROJECT NO: 1553 DATE: 810116 MODULE: TARA FLOPPY DI┆
0x0a000…0a080 UnusedSector ┆SC NO CR/D/1621 SOURCE TEXT AND VERSION: TARA AREASIZE: 4096 AREA START ┆
0x0a080…0a100 UnusedSector ┆ADDRESS: 0 PROMSIZE: 2048 PROMWIDTH: 8 PROM FILE: PROM3 PROMID: 3 VERSION: 1 PARITY BIT: 4 PROM INPUT FILE: TARAH PARAM INPUT F┆
0x0a100…0a180 UnusedSector ┆ILE: PROMP 21 02 01 02 4A 08 03 C0 00 E0 A9 80 0D 9C 05 0D 9C 0B 30 08 01 90 F1 93 04 09 06 08 0B 09 1A A0 07┆
0x0a180…0a200 UnusedSector ┆ 0A 01 06 08 07 1A 09 0B 01 90 F1 C9 90 05 06 91 00 0A 14 9B 0D 42 1D 9E 83 0A 11 6A 01 00 6E 89 02 63 EF E0 40 ┆
0x0a200…0a280 UnusedSector ┆07 02 10 39 01 3B 0B 01 3E 03 0B 0D 07 21 0F 5E 2D BC 1C 49 97 0D 9C 07 21 0C 50 0D 10 02 01 55 0B 01 58 03 5A 0┆
0x0a280…0a300 UnusedSector ┆B 10 02 02 5F 0C 01 62 04 0D 07 21 0F 01 2A 0F 21 05 02 9B 42 0D 9C 84 EE 00 AE 01 1E 0D 9C 82 46 80 4D 0D 9C ┆
0x0a300…0a380 UnusedSector ┆ 03 0F 2B 01 0F BA 2B 03 AE 9A 03 10 0F 2B 01 0F BA 2B 03 01 DA 04 96 0C 10 99 01 9B 9C EA 20 D1 2F 03 11 0┆
0x0a380…0a400 UnusedSector ┆4 03 62 40 41 AA 80 02 BD 80 90 69 1D A0 06 00 90 01 40 01 4D 80 06 00 B0 01 40 01 4D 80 A0 05 01 40 00 01 4D 02┆
0x0a400…0a480 UnusedSector ┆ BD 80 80 4B 0D A0 06 00 80 01 40 01 4D 01 00 D0 01 01 DD 02 3D 01 5B AD 80 90 34 1D 80 06 00 A0 01 40 01 4D 01 ┆
0x0a480…0a500 UnusedSector ┆00 D0 01 01 40 01 DD 02 1D 01 8D 80 A0 1C 2D 01 00 D0 01 40 01 1D 02 1D 01 40 42 00 44 23 07 1F A0 04 1F┆
0x0a500…0a580 UnusedSector ┆ 21 01 80 80 00 44 80 80 D0 0A 01 DD 01 FD 40 51 01 5E 01 01 40 01 40 5E 01 01 41 40 B0 08 92 93 01 D3 01 9D B0 ┆
0x0a580…0a600 UnusedSector ┆1D 90 08 90 91 01 D1 01 9D 90 13 B0 A0 14 A0 0E 23 39 12 38 29 41 A4 90 91 01 D1 40 00 80 80 00 00 80 01 DF 01 E┆
0x0a600…0a680 UnusedSector ┆F 00 00 21 53 0B 53 42 08 24 35 41 90 01 01 01 04 41 1F 01 01 12 7E 01 7D 01 50 2C 03 D5 8E 03 D5 01 64 FE 07 ┆
0x0a680…0a700 UnusedSector ┆ 07 11 6A 49 4B 01 B0 4F 3C 01 45 4B 42 49 43 80 4A E9 02 0E 81 A1 00 68 26 80 0E 86 02 13 02 95 02 96 00 0┆
0x0a700…0a780 UnusedSector ┆3 D5 90 43 7D A9 02 81 03 44 E9 4E 2C 01 08 05 82 EF 81 E2 03 AF E9 0F 5A FE EC 40 02 97 80 98 A9 0F 5A AD 02 01┆
0x0a780…0a800 UnusedSector ┆ 17 A9 02 E9 4E 84 02 81 E2 53 0F 5A FE D3 40 02 97 80 B1 A9 0F 5A 02 94 26 4A 04 2E 4B 01 2E 4C 20 01 20 11 74 ┆
0x0a800…0a880 UnusedSector ┆82 41 83 42 84 43 EB 02 C3 44 87 02 13 28 01 09 81 06 6C C8 04 81 00 0A 28 4A 01 5B 05 BC 0E 01 CB 0B 34┆
0x0a880…0a900 UnusedSector ┆ 07 5B 0A BC 05 01 CB 02 01 09 44 01 39 B1 04 32 2C 1B 13 4D AB 6A EB 05 28 01 81 05 02 8B 8C 40 01 3D 03 05 8E ┆
0x0a900…0a980 UnusedSector ┆00 40 01 3D 09 03 03 0F 5A 89 01 29 96 80 06 45 46 83 09 02 62 09 11 74 68 88 58 89 41 01 9E 42 81 66 42 81 10 6┆
0x0a980…0aa00 UnusedSector ┆2 03 13 03 EA D0 1F E9 40 6A 00 0F 5A FE C1 A9 40 41 0F 5A 40 02 99 00 E9 FE 34 A9 40 02 9A 00 E9 FE AD A9 59 ┆
0x0aa00…0aa80 UnusedSector ┆ 82 AA 02 03 26 05 13 09 03 D0 09 E9 40 6D 01 FE 0C A9 40 41 02 03 0E 09 01 45 06 45 45 46 08 07 01 02 01 0┆
0x0aa80…0ab00 UnusedSector ┆A 09 0C 12 02 4B 01 0B 09 08 09 06 68 3C 42 09 42 FF 00 10 00 4B 9D 01 03 09 42 E0 00 E2 01 43 46 01 02 14 02 58┆
0x0ab00…0ab80 UnusedSector ┆ 07 43 42 C0 00 E2 AB 03 D5 01 64 FC B1 51 01 FF 54 05 6A 02 24 EB 95 03 D5 01 64 03 D5 00 04 E1 00 74 E9 04 05 ┆
0x0ab80…0ac00 UnusedSector ┆0A 48 00 38 30 40 01 06 A9 80 E9 05 01 0A 0F E9 49 02 E9 04 01 00 30 0F 5A 15 01 40 62 AB 0B B4 0A AB 0B┆
0x0ac00…0ac80 UnusedSector ┆ 38 01 0B C4 A9 80 0F 6D 81 0A 01 F8 4C EC E9 0F 6D 81 0A 01 F8 43 A9 80 E9 0F 60 81 0C 01 F8 39 A9 80 E9 0C 0F ┆
0x0ac80…0ad00 UnusedSector ┆66 02 02 1C 0F 66 81 0E 01 F8 29 A9 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 E9 04 05 E9 02 E9 04 D1 0┆
0x0ad00…0ad80 UnusedSector ┆5 01 4E 64 A4 89 40 C4 08 A9 80 E9 4E 06 E9 4E 02 E9 04 D1 00 40 30 80 17 80 0E 8A 03 11 80 09 8A 07 C4 04 01 ┆
0x0ad80…0ae00 UnusedSector ┆ 11 C4 A9 81 A9 80 0F 14 11 74 09 D1 02 02 92 C9 02 03 96 01 C9 03 02 9B 02 C9 02 02 A0 03 C9 11 74 1A 00 0┆
0x0ae00…0ae80 UnusedSector ┆9 04 E0 00 E3 A9 12 03 03 40 32 00 3A 11 74 05 0F 5A 07 0F 5A 03 29 19 13 06 00 04 C0 00 E0 33 E9 00 0F 14 28 8D┆
0x0ae80…0af00 UnusedSector ┆ 01 03 A9 80 E9 0F 14 0E 1E 28 0A C2 A1 03 ED 05 05 4A 4C 8A 2C 04 20 40 01 B9 45 11 1E 28 3C 00 F7 7F 1C 1E 28 ┆
0x0af00…0af80 UnusedSector ┆3C 00 F7 78 A9 80 01 D7 0F 72 81 08 01 F7 6D 1E 28 50 00 F7 3E 0F 14 08 54 53 80 84 44 44 80 25 43 44 80┆
0x0af80…0b000 UnusedSector ┆ 27 41 44 80 23 4D 44 80 4F 4D 4C 80 5C 50 4C 80 6A 4D 4E 80 77 54 44 80 8E 50 44 80 8A 58 45 80 D6 3E 11 74 04 ┆
0x0b000…0b080 UnusedSector ┆01 6B 43 93 46 0F 15 01 D6 4B 11 6A 5A 01 5E 00 E4 03 01 06 56 41 44 80 06 5E 89 4B 01 87 5F 5E 82 10 0A 30 E0 0┆
0x0b080…0b100 UnusedSector ┆0 E0 CA 42 03 C0 00 E0 0A 30 10 01 9B 73 9A 76 0F 15 FE FD 7B 4A 02 FE F8 80 4B 2C 00 AC 84 1B 06 B2 0F 15 FE ┆
0x0b100…0b180 UnusedSector ┆ EB 8D 4A 02 FE E6 92 CA 01 02 07 96 97 99 0F 15 01 FE D6 9F 4A 1E 2B FE 67 49 01 0D A7 93 AA 0F 15 01 FE C┆
0x0b180…0b200 UnusedSector ┆5 B0 4A 00 01 B3 03 E6 8D 41 42 E0 00 E0 22 E0 00 C0 00 E0 80 96 C5 18 0F 15 01 FE A9 CC 04 03 EA 1D 00 D4 03 12┆
0x0b200…0b280 UnusedSector ┆ 06 D6 1D 0F 14 54 44 E0 14 45 0C 60 88 E0 00 E0 9A 12 03 C0 00 E0 0C 60 88 01 FE E8 F0 84 09 5B 1E 2B 02 FE 0F ┆
0x0b280…0b300 UnusedSector ┆3D 4B B1 10 43 21 0D 7B E0 00 E0 CA 42 03 C0 00 E0 0D 7B 01 FE C9 10 FE C6 12 92 15 00 00 0F 14 1E 28 8C┆
0x0b300…0b380 UnusedSector ┆ 01 F6 2D A5 01 45 91 02 0F 14 D0 12 85 90 09 0F 14 4D 54 D0 32 01 44 54 D0 0B FD FC 04 3A 01 D0 0D 41 FD FE 2B ┆
0x0b380…0b400 UnusedSector ┆43 43 D0 05 43 52 D0 01 28 03 D5 00 66 04 3A 85 9E 03 E1 1E 28 40 80 56 04 04 3A 00 01 D1 4A 1D 9A 01 01 F6 0F 5┆
0x0b400…0b480 UnusedSector ┆1 1D 9C 01 01 F6 08 1E 28 01 01 F5 D9 90 15 A6 17 11 6A 41 49 3C 0F 0C E8 CD 45 03 31 0A 40 85 87 42 1D 9E 82 ┆
0x0b480…0b500 UnusedSector ┆ 0A 40 85 1D 9E 80 01 F5 E1 A7 1E 28 01 01 F5 B1 90 3D A4 12 11 6A 41 49 3C 0C E8 0F DC 45 03 47 1D 9E 82 8┆
0x0b500…0b580 UnusedSector ┆3 84 9B A3 53 0A E9 0A 0F 0C E8 1D AA 06 49 00 09 30 40 01 06 0E 01 0B A9 80 E9 C0 22 C1 00 01 00 08 32 A1 02 01┆
0x0b580…0b600 UnusedSector ┆ 02 0A 1E B4 09 0A 00 39 21 38 30 40 5C 82 29 0A 1E B4 45 C5 03 40 00 45 04 A9 80 E9 FE 00 49 1A 19 02 A9 0F 5A ┆
0x0b600…0b680 UnusedSector ┆AC 02 FD 06 02 9C 03 FD 01 A9 80 04 3A 85 80 85 0C 04 3D 02 01 FD 64 8D C4 8B 4A 01 04 11 6A 4B 00 04 3A┆
0x0b680…0b700 UnusedSector ┆ 01 61 11 6A 01 24 0F D7 06 AA 79 4D 4B 29 90 53 EA 40 0F 96 30 30 9D 01 05 1F 2C 11 6A 05 02 FC C6 02 C4 4C 00 ┆
0x0b700…0b780 UnusedSector ┆01 FC BF 01 C2 58 05 01 02 FC B7 02 01 4B 4C FD 0C 3C 04 01 45 05 02 04 FC A8 04 01 96 03 01 02 FC A0 02 01 0E 4┆
0x0b780…0b800 UnusedSector ┆C 41 0E 0F 96 40 30 30 9D 01 05 1F 2C 1C 0F FC 7F 01 05 05 38 2D AA 00 9A 4C 12 02 4B 5B 4A 01 4D 4B 60 04 3A ┆
0x0b800…0b880 UnusedSector ┆ 88 80 E2 D6 10 00 04 3A 01 01 C1 03 D5 00 06 C1 FC A1 9A 43 0F 02 1D D1 02 FC CB 80 48 18 02 1D D1 02 FC C┆
0x0b880…0b900 UnusedSector ┆2 80 CF AA 22 E9 55 11 01 0F 92 02 9D 15 9D 0F 92 8A B8 02 A9 81 C1 A9 80 C1 02 32 34 90 98 80 A9 80 E9 04 3A 02┆
0x0b900…0b980 UnusedSector ┆ 86 AC 81 02 00 41 01 F4 98 41 0C 03 D5 00 06 D3 03 D5 01 56 F8 A8 0E 04 3A 04 3E 5A 43 43 A0 0C 41 30 30 A0 07 ┆
0x0b980…0ba00 UnusedSector ┆86 00 A0 08 86 00 29 04 3E C1 A9 81 04 3D C1 A9 80 E9 04 3A 88 80 80 0F 0F 80 0A 45 4C 04 3A 88 80 89 1C┆
0x0ba00…0ba80 UnusedSector ┆ 06 CE 46 03 04 3A 89 C1 1D 01 42 30 30 A0 08 0F 66 32 34 82 0F 66 2F 02 D1 FB D1 80 02 4A 02 FB CB 80 19 C0 03 ┆
0x0ba80…0bb00 UnusedSector ┆01 00 01 01 00 4C A0 04 19 C0 01 01 1D 02 02 D1 0F 5A 0F 5A FB AC 02 AC FB A8 D1 02 3C FC 01 A9 81 C1 A9 80 E9 0┆
0x0bb00…0bb80 UnusedSector ┆4 3A 88 80 89 01 0F 85 04 03 E8 60 03 0F 85 10 A7 16 19 E9 04 3A 02 87 AC B0 03 C1 A9 81 87 00 A0 19 87 00 0B ┆
0x0bb80…0bc00 UnusedSector ┆ 02 EE 0F 8D 0A 0A 02 BA 23 BA C6 0D 8E 0B 01 01 9B 13 9B AE C1 22 C1 A9 80 AE 05 EA E0 00 E0 11 81 00 51 8┆
0x0bc00…0bc80 UnusedSector ┆1 05 82 05 83 08 08 00 06 01 C1 04 05 01 02 50 01 AA 80 20 F3 E8 E0 00 E0 00 00 89 01 0D 00 00 00 00 00 00 00 00┆
0x0bc80…0bd00 UnusedSector ┆ 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 F1 F4 00 E0 00 FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆
0x0bd00…0bd80 UnusedSector ┆FF 00 CHECKSUM: #6C44 05 01 02 50 01 AA 80 20 F3 E8 E0 00 E0 00 00 89 01 0D 00 00 00 00 00 00 00 00┆
0x0bd80…0be00 UnusedSector ┆ ORIGINATED BY: EMH PROJECT NO: 1553 DATE: 810116 MODULE: TARA FLOPPY DI┆
0x0be00…0be80 UnusedSector ┆SC NO CR/D/1621 SOURCE TEXT AND VERSION: TARA AREASIZE: 4096 AREA START ┆
0x0be80…0bf00 UnusedSector ┆ADDRESS: 0 PROMSIZE: 2048 PROMWIDTH: 8 PROM FILE: PROM4 PROMID: 4 VERSION: 1 PARITY BIT: 1 PROM INPUT FILE: TARAH PARAM INPUT F┆
0x0bf00…0bf80 UnusedSector ┆ILE: PROMP F4 D8 CA D8 BB CA 82 56 48 BC BE BF 56 75 4D 56 6C 80 5F 19 8B 42 BC 42 D8 27 27 80 D8 1A E4 42 D8┆
0x0bf80…0c000 UnusedSector ┆ 27 4A 82 1A 82 4A 82 19 8B 42 BC E4 40 4D 19 7C 4D 19 E5 42 D8 49 56 4E 91 27 56 4E CE 36 FB 1E CE E3 56 E4 12 ┆
0x0c000…0c080 UnusedSector ┆19 C9 F4 58 4D 58 19 F4 58 4D 19 81 1A 8B 56 4C 4B BB EA FB 24 56 6C 1A 8A 81 58 19 F4 D8 4D 58 19 F4 58 4D 58 1┆
0x0c080…0c100 UnusedSector ┆9 F4 D8 4D 58 19 F4 58 4D 19 1A 8B 4C AC E5 1A F4 58 56 4A 8A 56 6E 1E BE 49 8A E4 D4 56 6E 1E 8A 16 BB 56 6C ┆
0x0c100…0c180 UnusedSector ┆ 1A CA BB AB 4E FB 8E C6 BE BB 1A CA CA BB AB 4E FB 8E C6 CD BB 4D 58 19 F4 58 4D 58 58 BE 48 A0 F2 D8 A1 C┆
0x0c180…0c200 UnusedSector ┆0 D8 BC 92 90 BE BF CD BB 56 7C DD EA 40 D8 4C 42 2C 09 E4 D4 40 D8 4C 42 2C 0B E4 D4 42 40 D8 4C 0C 4C E4 D4 AD┆
0x0c200…0c280 UnusedSector ┆ BB 56 7C DD EA 40 D8 4C 42 2C 08 E4 D4 CD 4B 43 2B E4 8A E4 D4 AD FB BB 56 7C DD EA 40 D8 4C 42 2C 0A E4 D4 CD ┆
0x0c280…0c300 UnusedSector ┆49 43 29 A4 33 E4 D4 E4 D4 AD BB 56 7C DD EA CD 49 43 29 0B E4 D4 E4 D4 AD 60 62 4C 8A FA D8 B2 7C D8 B0┆
0x0c300…0c380 UnusedSector ┆ 7C D8 BF 56 4C 8A BF 56 7D D8 E4 FB E4 BC 27 65 CD 67 AD BF 27 CD 27 E3 AD BF 27 27 40 D8 BC BC CA D4 E4 BC 42 ┆
0x0c380…0c400 UnusedSector ┆D8 40 D8 BC BC C8 D4 E4 BC 42 D8 7C 42 D8 7C D8 EE EB EE EB BB 1A F2 BC BC C8 D4 D0 C8 BF 56 48 8A BF AF BB AF B┆
0x0c400…0c480 UnusedSector ┆B 4C 4D 4E F6 D8 B8 F7 D8 8B D5 A1 42 CC A1 C8 D8 A1 F2 CC A1 C6 FB CF FB CF 50 58 56 4E 1C 56 4E CE E3 56 DF ┆
0x0c480…0c500 UnusedSector ┆ C4 56 4C FB BB CB 7D D9 FB 1D 3A D9 3B D9 1E 3A D9 BE 1D CD 1A A0 CA BB 8A 62 BB 60 8B D5 56 68 56 69 4C 5┆
0x0c500…0c580 UnusedSector ┆6 4E 32 D4 5F BE 1D 1A AA 82 BE 60 BB AC CE CD 62 BE 18 8B D5 BE BE 56 4D 56 DF 60 56 4E 62 5F BE 56 4A FB CE CD┆
0x0c580…0c600 UnusedSector ┆ C4 BE 1D BE 60 62 CE 1D 8B D5 56 4D 56 DF 60 56 4E 62 5F BE 56 6E 56 6A 8B 86 1A FB 86 CA FB 86 50 AA 50 56 4E ┆
0x0c600…0c680 UnusedSector ┆1A 82 1A 82 1A 82 BE 56 4E 18 42 D8 4E D8 A8 BB A0 8A FB B2 C8 1A 4B EB BB BB CC BB CB F6 D8 CC F6 D8 8E┆
0x0c680…0c700 UnusedSector ┆ C1 BB CB F6 D8 CC F6 D8 1E D8 1B AB BB A0 CB 8A BB C0 4E 86 BE BB BE 1D BB A8 A0 8A 1E 19 1B 09 E4 D4 1D 8A 19 ┆
0x0c700…0c780 UnusedSector ┆4B 09 E4 D4 1E CE 48 56 49 BB AA EA 8A 16 1D 1D 18 F2 1E CE E3 1E 56 4D FB F0 FB A0 19 8D BB 18 80 D8 18 19 F8 D┆
0x0c780…0c800 UnusedSector ┆8 1D 4A CE BE 7D D8 BE 60 FB 4B 56 4D 56 DF BE 27 27 56 4D 60 56 6A 4B BE 56 DF BE 60 56 6A 4B BE 56 DF BE FB ┆
0x0c800…0c880 UnusedSector ┆ 81 BE CD CE C2 1D 48 1E CE 7D D8 BE 61 BB CD 56 DF BE 27 27 CD CE C0 1E 1D 27 1D 1D 27 27 18 19 F6 D8 49 8┆
0x0c880…0c900 UnusedSector ┆1 19 1A F5 D8 C9 D8 19 81 16 1E 1D BB C8 80 1D 18 56 49 8C 49 4A BB CD C2 1D 80 56 4A BC 1D 18 19 F4 D8 C8 D8 BB┆
0x0c900…0c980 UnusedSector ┆ C8 80 13 56 4A BC BE 56 4E CE E3 56 DF 59 CB 56 C1 D8 BB CA E3 BE 58 56 4E CE E3 56 4E CE 49 89 FF 59 BE CD 4A ┆
0x0c980…0ca00 UnusedSector ┆4B FB 49 EB C9 91 AD C2 BE BF BE 8A AD BB 58 BE BB D8 BE 49 48 4C 4E 56 4B 8A AD 7A 8B BB EA 8A 4A BB EA┆
0x0ca00…0ca80 UnusedSector ┆ FB AD C1 84 BE BF 56 48 A0 49 4A 56 DF D9 BE 56 48 A0 49 4A 56 DF BE BF BE 56 48 A0 49 4A 56 DF BE BF BE BB 56 ┆
0x0ca80…0cb00 UnusedSector ┆4D CD 48 DF 56 48 A0 49 4A 56 DF BE BF 30 31 32 33 34 35 36 37 38 39 41 42 43 44 45 46 BE 48 D8 BE D8 BE 48 A0 8┆
0x0cb00…0cb80 UnusedSector ┆A AD BB EC E5 22 92 24 C0 BE BF BE BB D8 BE BB D8 BE 4E A0 4C 78 A8 00 E4 40 D8 42 D8 E4 42 D8 40 A8 A0 8A CD ┆
0x0cb80…0cc00 UnusedSector ┆ C6 84 BE BF BE BF 56 4D 56 49 C9 A0 CD 4C 5F BB CD 4C 5F E4 BB CD 4C 5F E4 BB CD 4C 5F E4 BB 56 49 BB C9 C┆
0x0cc00…0cc80 UnusedSector ┆A 48 56 4B BC FB 8E C0 4A 4B 8D 4B 97 56 4C 83 56 49 18 56 70 1A EA FB 8B 83 48 80 56 48 BC D8 BE 48 56 4D 49 BB┆
0x0cc80…0cd00 UnusedSector ┆ CD C1 BE BF BE 56 4D 5F 56 4D 48 1A 7E D8 5F CD D8 BB FB 5F BB CD 49 91 AB F2 8E C0 56 48 49 4A 56 DF 58 56 48 ┆
0x0cd00…0cd80 UnusedSector ┆49 4A 56 DF BE BF D8 5F 56 48 A0 49 4A 56 DF 56 48 49 4A 56 DF 56 48 FB 56 E4 7C 58 56 E4 7C D8 56 E4 7C┆
0x0cd80…0ce00 UnusedSector ┆ D8 56 E4 7C D8 56 E4 7C D8 56 E4 7C D8 56 E4 7C D8 56 E4 7C D8 56 E4 7C D8 56 E4 7C D8 56 E4 7C D8 58 56 4C 4B ┆
0x0ce00…0ce80 UnusedSector ┆4A 5F 58 7E 58 56 4D 4C 5F 58 56 4D FB CD FB CE F8 D8 CD C2 58 56 E4 7E D8 FB 1C 4B 4A 5F 58 FB 1C 4B 56 4A 56 4┆
0x0ce80…0cf00 UnusedSector ┆8 BC FB 8E C3 56 48 BC 56 4C 4B 4A 5F 58 7E 58 56 4D 56 DF 58 BB CD 56 DF 58 BB BB 4A 5F 58 BB AB 24 56 4D 56 ┆
0x0cf00…0cf80 UnusedSector ┆ DF 58 BB CD 56 DF 58 BB CA CD C3 58 7E 58 56 4D 4C 56 DF 58 BB 56 4D 56 DF BB 48 DF 58 7E 58 56 4D 4C 56 D┆
0x0cf80…0d000 UnusedSector ┆F 58 BB 48 DF 58 56 4D BB 81 82 56 48 BC BE 48 BC 56 48 BC BF 40 58 BB 56 4D 4C 56 DF 58 4E 56 49 BB CD F8 D8 C9┆
0x0d000…0d080 UnusedSector ┆ C6 58 BB 56 4E 56 E4 7F D8 19 56 4A 4B 56 48 BC FB 8E C3 56 48 BC 56 4C 4B 4A 56 DF 58 42 D8 BB 56 4D 4C 56 DF ┆
0x0d080…0d100 UnusedSector ┆BB BB 42 4B 1C 49 56 4A 56 48 BC FB 8E C1 56 48 BC 56 4C 4A 56 DF CC 56 DF 59 7E 59 D8 48 56 70 56 48 49┆
0x0d100…0d180 UnusedSector ┆ 4A 56 DF 7E D8 D8 42 5A 56 6D 7C 58 E4 40 5A 56 4D 56 E4 7D 59 CD 56 E4 7F D8 56 DF 56 4D CD 7D D8 48 56 DF 58 ┆
0x0d180…0d200 UnusedSector ┆56 E4 7D D8 56 E4 7D D8 5A 56 4E CE E3 56 4E E4 BB CE A0 56 4D 78 90 8E C1 56 4D CD 49 89 58 56 48 49 4A 56 DF 5┆
0x0d200…0d280 UnusedSector ┆8 56 48 49 4A 56 DF 56 48 49 4A 56 DF 7E 58 7E 58 56 4D 1D 1C CC 4E 56 4D FB 8E C6 DF 56 4E 18 F2 48 56 4E 90 ┆
0x0d280…0d300 UnusedSector ┆ 56 4E 27 56 48 49 4A 56 DF B0 56 48 49 4A 56 DF 7E 58 7E D8 56 4D 1D 1C CC 56 4D 4E 8B 8E C6 48 56 4E 90 9┆
0x0d300…0d380 UnusedSector ┆0 90 58 7E 58 58 BE 48 4B 56 4C 56 4D 4E FB 4A EB CA 92 AD C6 CD CC C3 BE BF BE 7D D8 A0 78 7A 49 4B 8B 42 D8 A1┆
0x0d380…0d400 UnusedSector ┆ C2 4B 56 4D CD 4C 4A EB EE EB C9 91 8E F2 BB 58 56 4D 8A 1C 48 79 91 8E C0 BE BF BE 56 48 FB BB EC 8C 24 56 4C ┆
0x0d400…0d480 UnusedSector ┆BB 48 56 DF CD BB 48 56 DF BE BF 56 4E E4 18 7E D8 56 4D CD 4C 56 DF D8 40 D8 BB 4B D8 56 4C FB 4A 56 4E┆
0x0d480…0d500 UnusedSector ┆ CE E3 56 4C CC 8A 56 48 49 DF D8 FB 1A FB 7C D8 BE 48 56 4D 56 49 BB CD C0 56 4D 56 4C CC 48 56 DF CD 1C FB CC ┆
0x0d500…0d580 UnusedSector ┆48 56 DF CD 1C 5F CD CC 48 56 DF CD CC BB FB 56 DF BB CD CC CD 4A 4B 48 56 DF CD CC 5F CD CC 48 56 DF CD CC C2 D┆
0x0d580…0d600 UnusedSector ┆F D8 4A 56 4D 48 56 49 BB CD C0 56 4D C3 4A 56 DF CC CD C2 DF D8 BE 49 BB 19 F8 D8 CA 58 27 CC FB 1A C3 56 4E ┆
0x0d600…0d680 UnusedSector ┆ E4 1E F2 DF D8 48 56 4C CC 49 89 56 4C CC 49 89 56 DF 58 48 58 C9 BB A0 4C 56 DF F0 BB 58 C9 BB A0 4C 56 D┆
0x0d680…0d700 UnusedSector ┆F F0 BB BE 58 BE DF D8 C9 56 4D CD FB 8E FB 56 48 49 DF D8 BE BF 81 BE BF 81 C9 56 E4 7D DF F0 BE BF BE 56 4C 4A┆
0x0d700…0d780 UnusedSector ┆ E4 BB A0 27 CC E3 4A 56 DF F1 D8 56 4D CD 4B 89 56 4D CD E3 56 DF 58 56 4C 56 4D FB 56 E4 7E D8 1A 56 E4 7C D8 ┆
0x0d780…0d800 UnusedSector ┆E4 1A 7C D8 E4 13 58 56 49 81 BE BF 56 49 81 BE BF BE 56 4E E4 18 7E D8 56 48 49 5F D8 56 4E E4 16 CE BB┆
0x0d800…0d880 UnusedSector ┆ 48 FB 8E C0 56 49 C9 81 BB CD 1A 56 E4 7C D8 56 4E 56 49 81 56 49 D8 4C A0 56 DF F0 CD BB 4C 56 DF F0 E4 7E D8 ┆
0x0d880…0d900 UnusedSector ┆CA 4C D8 CC 4B E4 7E D8 E4 7E D8 4B BB CD 48 A0 56 74 56 4C 56 DF AD BB 56 DF 24 CD BB 56 DF BE BF 81 BE BF BE 5┆
0x0d900…0d980 UnusedSector ┆6 4E E4 27 CE CE 56 48 C8 49 FB 8E C1 56 48 49 5F 58 58 BE 56 4C 4A E4 BB 5F D8 81 BE BF E4 1A 7C D8 E4 13 BB ┆
0x0d980…0da00 UnusedSector ┆ CB BE 56 48 49 BB CA FB 8E FB 5F D8 5F D8 C9 AB FB 8E FB BE 19 58 81 BE BF BE 58 BE 56 48 BC 56 4C 4D 18 7┆
0x0da00…0da80 UnusedSector ┆C D8 7C D8 7C D8 D8 16 D8 16 19 81 16 D8 16 1E CE BE BF BE 56 DF 56 48 BC 48 49 96 C0 98 BC 00 00 00 00 00 00 00┆
0x0da80…0db00 UnusedSector ┆ 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 20 0A 1C 00 00 00 AB 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆
0x0db00…0db80 UnusedSector ┆C6 00 CHECKSUM: #352E 16 D8 16 1E CE BE BF BE 56 DF 56 48 BC 48 49 96 C0 98 BC 00 00 00 00 00 00 00┆
0x0db80…0dc00 UnusedSector ┆ ORIGINATED BY: EMH PROJECT NO: 1553 DATE: 810116 MODULE: TARA FLOPPY DI┆
0x0dc00…0dc80 UnusedSector ┆SC NO CR/D/1621 SOURCE TEXT AND VERSION: TARA AREASIZE: 4096 AREA START ┆
0x0dc80…0dd00 UnusedSector ┆ADDRESS: 0 PROMSIZE: 2048 PROMWIDTH: 8 PROM FILE: PARITY PROMID: 1 VERSION: 1 PROM INPUT FILE: TARAH PARAM INPUT FILE: PROMP ┆
0x0dd00…0dd80 UnusedSector ┆ DD CF CB CB CB CB DF DB DF C9 DB CD CF D9 DB CF FF ED FB E9 EB FB E9 FF EF FF FF ED EF F9 EF FF EF FF ED FF ED ┆
0x0dd80…0de00 UnusedSector ┆EB ED FF ED EF FF ED FF FD FF FD E9 FB F9 F9 EB EB F9 FB EB E9 FB FB FB E9 FB E9 EB E9 F9 EB EB EB E9 EB E9 F9 E┆
0x0de00…0de80 UnusedSector ┆B E9 E9 E9 E9 FB E9 EB E9 FB FB E9 FB EB E9 E9 EB EB FB E9 F9 FB F9 E9 E9 EB EB F9 E9 E9 E9 FB F9 E9 E9 EB EB F9┆
0x0de80…0df00 UnusedSector ┆ F9 E9 E9 EB E9 E9 FB F9 EB E9 F9 F9 F9 EB E9 F9 EB F9 FB FB F9 E9 EB FB EB F9 FB E9 E9 FB EB FF FD DF D┆
0x0df00…0df80 UnusedSector ┆F ED DF ED FF DF CF FF F9 CB DB FB C9 FB E9 DB DB E9 EB CB D9 F9 C9 F9 EB C9 D9 EB EF DF CD FF DD EF FF CD CD FF┆
0x0df80…0e000 UnusedSector ┆ FB C9 C9 FB CB F9 FB D9 D9 FB FD DF CD EF CF FF ED DF DD EF ED CD CF FF EB F9 FB ED EF FD EB DB ED FB EF ED FF ┆
0x0e000…0e080 UnusedSector ┆E9 DD FF FD EF C9 ED EF FF E9 FF ED EB CB D9 CB EF ED ED CB EB FD EF FD C9 DB FD FF C9 EF CB FF C9 F9 C9 ┆
0x0e080…0e100 UnusedSector ┆ ED ED CB CB DB EF FF C9 FB EF FD CB FD C9 D9 CD CD ED EF DF EF DF C9 EB D9 FD D9 EB EB CF FD EB E9 FD CF E9 CB ┆
0x0e100…0e180 UnusedSector ┆FD DD CD EF CF DF EF D9 CB CD EF CB CD CD C9 ED EB CD CF CD CD CD FF EF ED CF ED D9 CF CF EF CD CF DB DD CF FD C┆
0x0e180…0e200 UnusedSector ┆D E9 DB EB ED DF CF CD DF DF F9 CF CB DF DF EF CF DD CD DD ED ED FB CD DD E9 CF FB DD E9 CB EF CB EF DD FF DF DF┆
0x0e200…0e280 UnusedSector ┆ CF FF D9 CB FB D9 DD DF EF CD C9 CF D9 ED CF CD FF DD CB DD CB FF E9 DF EF D9 FB EB E9 ED EB C9 E9 FB D┆
0x0e280…0e300 UnusedSector ┆9 E9 FB C9 EB E9 D9 EB EB D9 F9 E9 CB EB E9 CB EB E9 D9 EB FB CB E9 E9 CB EB EB C9 EB F9 CB FB F9 DB EB F9 CB FB┆
0x0e300…0e380 UnusedSector ┆ FB CB F9 FB DB EB FB EF CB CD F9 FD EB DB FF FD DF EF FF FF CB ED CF EF EB CD EF FB DF DD CD CD ED FD FF CF CB ┆
0x0e380…0e400 UnusedSector ┆DF DD ED FF DB D9 FB FF CB CD EF CF CB E9 DF DF DF F9 CF CB CB CD C9 DD F9 CB FD CD EB CB CB DF FF FD DF ┆
0x0e400…0e480 UnusedSector ┆ ED DF FD CF DF CB DF FB DF EF EF DB C9 FB DF F9 DD EB E9 DD FF DF DB CF EB CF FD EB EF EF EB EB CF ED CB DD EB ┆
0x0e480…0e500 UnusedSector ┆DF CF EB CF EF FF DF C9 FF DF CD E9 CF DB CF D9 CF DF DB DF FF ED DF DD CB FD CF EB EF CF FB DD DD FB CF CB CB D┆
0x0e500…0e580 UnusedSector ┆F DD DB FF DD CF CF E9 DD C9 DF EF CB C9 DF C9 CD FF DB DB ED DB CD CF FD CB CF DB D9 FB DF DD E9 EF FB E9 F9 EF┆
0x0e580…0e600 UnusedSector ┆ CB EF CF CF FD DF DB DB CF ED DB CF FF DB DF CF CB FF FB CF CB CD FF CF EF DF DF CF CB CD FB FD DF FB E┆
0x0e600…0e680 UnusedSector ┆9 DD C9 DF CB FB DD CF DF EF C9 CB CD CF D9 DB EF DF CD FD CB DB CF CF DF EB EF EF CB E9 CF CB ED DB F9 D9 FF CB┆
0x0e680…0e700 UnusedSector ┆ FB CB ED DB CD DB DB CF DD FD DF DB FB D9 CD D9 FD EF E9 DD DF D9 EF DD F9 EF CF CD E9 CB DD CF EF CD C9 DD FF ┆
0x0e700…0e780 UnusedSector ┆F9 F9 EF DB CF CD CD FF F9 CB E9 DF ED DF FF CB F9 DF FD FF CB ED ED FB EF D9 CD D9 FB DB EB CD FD FF DD ┆
0x0e780…0e800 UnusedSector ┆ D9 CB DF CD ED DD DF ED CF F9 CD DB D9 EF CF CF EF C9 CF D9 DF FB DF E9 CD CD CB EB CD FD DD EF C9 E9 CD ED EF ┆
0x0e800…0e880 UnusedSector ┆DB ED FF EB DF D9 CD EF E9 C9 EF DB CF DF D9 CD EF C9 DF C9 CB FB FF DF F9 ED EF F9 FB CD EB DF FF FB CD EF C9 F┆
0x0e880…0e900 UnusedSector ┆F FB FB ED E9 CF C9 DF CD DB DD FD DF DD FF DF D9 DD FF DB DF DD FF F9 FD EF CB DF EB CF EF CF FB D9 CD DF ED ED┆
0x0e900…0e980 UnusedSector ┆ CB E9 EF EB FF CD EF DF DF CB DF CF CB CF FF DD CF DD CF DB CD EF CB DF DF EF FB ED ED CB CD E9 FF EF D┆
0x0e980…0ea00 UnusedSector ┆F F9 DB CD DF FF FF D9 FB FF ED CD CF DB CD D9 DB CB FF D9 CD CB CB DB C9 E9 FF DF DB FB D9 CF FF FB CB CF FF E9┆
0x0ea00…0ea80 UnusedSector ┆ F9 FF DB F9 EF EF DF F9 FB DD D9 DF F9 EF DB DD D9 ED E9 EF F9 DF ED FF FF CD DF EB DF FF DB DD DF ED DD FB E9 ┆
0x0ea80…0eb00 UnusedSector ┆EF DF FB EB DF DF DF ED EF FF DB FD DF CB E9 EB CB C9 CD E9 CD E9 EF FF DF DB DD FD EB E9 CD DB DB DD D9 ┆
0x0eb00…0eb80 UnusedSector ┆ EF D9 FB E9 CB DB DF FB DF ED CD CF CD DB FB FD F9 CF ED DF FB C9 CF DB E9 FD DB FB ED CF CF FF C9 DF FB FF CD ┆
0x0eb80…0ec00 UnusedSector ┆EF FF FB ED EB FF EF CD FF FF EB ED DF DF FF CD DB CF DB CD FF DB FF ED CF CB CF ED CB ED FF FD EF ED CF ED DF C┆
0x0ec00…0ec80 UnusedSector ┆D FF EF CD CF FD DB DF F9 ED CD FD FD FB CD FD D9 FB DB EB FF E9 C9 FB CD FB D9 ED D9 EF DB FD CF FF C9 F9 DF DB┆
0x0ec80…0ed00 UnusedSector ┆ FF DF ED DF FD EB ED CF CD FF CD DB EF EF CD DD CB E9 EF ED E9 DF EF FD DF FD DF DD DB FF EF EB F9 DD E┆
0x0ed00…0ed80 UnusedSector ┆B C9 EB CD ED DF EF ED EB D9 CF DD FF CF E9 CF CD D9 CB DF DB CF ED CB CF C9 E9 FF FD FB CF ED EF FD CD CB DB ED┆
0x0ed80…0ee00 UnusedSector ┆ CD FF EF FB DF FF EF FB ED FB CB FD DF DF ED E9 FD FD FB FB EB C9 CF DD D9 EF DF E9 FF D9 D9 FB FF FF C9 DF DB ┆
0x0ee00…0ee80 UnusedSector ┆FF CB DB E9 DF CD DB DD DB EF DB C9 D9 DF FF DB DF C9 FF D9 DB C9 CF DD D9 DF DB EF DB DB E9 EF DD CB DF ┆
0x0ee80…0ef00 UnusedSector ┆ FB EF C9 D9 CB FD EB DF C9 F9 FF F9 DB DF ED CB FD E9 EF DD CF EF FD FF CB EB DB DB DF FD FB FB ED CD DF F9 FB ┆
0x0ef00…0ef80 UnusedSector ┆CF CB EB CF DF F9 CD DD CB FD DF DB FF DF EB CF CF E9 FF CF CD EB CF F9 CF DF C9 EF CF DF EB ED DD EF EB EB DB C┆
0x0ef80…0f000 UnusedSector ┆F EB CF CB FF FB CF FD D9 CF FF CB EF DD DF FF FB EB EB DB ED CB DF F9 ED D9 CD FF DB CD ED FB FD CD FB FB E9 C9┆
0x0f000…0f080 UnusedSector ┆ DF E9 DF FB ED C9 DF CD FB CD DF D9 FF DF FB E9 FB DB FF FB CD CB FF E9 DF CF EB DD DF DB EF DF FB EB E┆
0x0f080…0f100 UnusedSector ┆B DB EF C9 ED FF D9 ED FF DF C9 CD DF D9 FF E9 EB DB DF DB FF C9 DF FB DF FF EB CF FF DF DF CB FF EB FB C9 DF FD┆
0x0f100…0f180 UnusedSector ┆ DD EF FB FF FB D9 DF DF DB ED F9 DF DF C9 ED DF ED CB EB DB CD CF DB FF EB DF CD FD CB EB CB CF CD E9 FF FB DF ┆
0x0f180…0f200 UnusedSector ┆FD FD D9 FF FF EB DF E9 DB FD EB FD DF FB CD DD FB ED D9 EF EF FF E9 CB CF FB E9 CF ED CD DF DF F9 FF CB ┆
0x0f200…0f280 UnusedSector ┆ EB D9 CD FF FB CF CD DB CD EF FB CF EF EB DF CF CF E9 CD CF CD DB CD FF CF CB CF DF DD D9 DD EF DF C9 CD FB FD ┆
0x0f280…0f300 UnusedSector ┆EF DD FF DF DD FD EF D9 DD ED FD DF EF EF DF DF FB D9 EF ED DF EB CB DB DD DF CB DF DD C9 ED CD FF EB FB C9 CD E┆
0x0f300…0f380 UnusedSector ┆9 EF D9 CB CB DF F9 CD EB DB CD EF FD FF ED CB CD F9 EF CF DB ED CD EB DF DD CB EF DF D9 CD CF E9 CD FF C9 FF FF┆
0x0f380…0f400 UnusedSector ┆ CB DF FD EB ED DF CB CF CF D9 FF C9 EF DD D9 CD FF FB DD FF E9 D9 CF DB CD EF CB F9 D9 FF CF FF DF CF D┆
0x0f400…0f480 UnusedSector ┆D ED EB FB CB DD EB E9 C9 FF E9 FF FD C9 DB ED D9 CF DD CB DF FB C9 DB ED EB FF D9 EB DB DF ED FF E9 CB DF FF DD┆
0x0f480…0f500 UnusedSector ┆ CB D9 DF EF DF CB C9 CD EF CD DB EF C9 D9 EF DB FD CB FB C9 EF CB EB CF FB C9 CF FF E9 EF EB FD C9 CF DB DF CB ┆
0x0f500…0f580 UnusedSector ┆FF D9 ED CB C9 FD DB FF CB F9 DB ED DB CB CD D9 CB ED C9 EF D9 CF CF FD CB EF FF DF DD FF FF DD CB EF FD ┆
0x0f580…0f600 UnusedSector ┆ FD EB CF FD ED CB ED EF FF F9 EF C9 CF FB CD CF EB FF FF EB EB FF FF CB DD EB EF CF DF DF C9 ED EF FF CD EF DB ┆
0x0f600…0f680 UnusedSector ┆EF F9 CF EB DF E9 D9 FF DF F9 CF DB DB EF CD FF FB DD CF ED FF EF F9 EF CD CF C9 CF ED EF CF FF DB CB DD CB CF D┆
0x0f680…0f700 UnusedSector ┆F CB DF EF EF FB EF CF DF CD EB DF FB FF FB FD EF D9 E9 DF EB CD FB CD DB DF C9 FF D9 CF DB ED CB CF DB FB CF E9┆
0x0f700…0f780 UnusedSector ┆ ED FF CB C9 FD F9 DF DD FF EF C9 EB C9 CD CF CF DD ED DF FB EF DF EB DF FD FF FD F9 EF DF DD EB C9 FF D┆
0x0f780…0f800 UnusedSector ┆B DF D9 DF EB CD CF ED DB EF DB EF EB C9 C9 CF CD CF ED FD CB FF ED CB DD CB CF FF CD FF DD FF CB FD FF D9 FF ED┆
0x0f800…0f880 UnusedSector ┆ EF CB D9 FF ED C9 CF DD EF CD DF C9 FF E9 EB FF FD CB FF C9 DF D9 CF EF CD FD FF DF FB DB FF FF DB FF DF FF DF ┆
0x0f880…0f900 UnusedSector ┆FF DB FF FF DB FB DF DF FF DB FF DD DD EF C9 FF CB FB D9 DF FF FF FF DB FF DF FB DB DF FF DB FB FB DB DB ┆
0x0f900…0f980 UnusedSector ┆ CHECKSUM: #2138 F DD EF CD DF C9 FF E9 EB FF FD CB FF C9 DF D9 CF EF CD FD FF DF FB DB FF FF DB FF DF FF DF ┆
0x0f980…0fa00 DataSector[»COPY«]
[…0x16…]
0x10500…10580 UnusedSector ┆1 03 D5 11 2C 4F 11 32 0A 9C 00 06 D1 FD B9 66 1D 98 01 01 F5 FE 6D 1D 9A 01 01 F5 F7 1E 1C 01 01 F5 C8 90 ┆
0x10580…10600 UnusedSector ┆ 15 A6 17 11 65 41 49 3C 0F 0C E7 CD 45 03 31 0A 3F 85 87 42 1D 9C 82 0A 3F 85 1D 9C 80 01 F5 D0 A7 1E 1C 01 0┆
0x10600…10680 UnusedSector ┆1 F5 A0 90 3D A4 12 11 65 41 49 3C 0C E7 0F DC 45 03 47 1D 9C 82 83 84 B7 A3 53 0A E9 0A 0F 0C E7 1D A8 06 49 00┆
0x10680…10700 UnusedSector ┆ 09 30 40 01 06 0E 01 0B A9 80 E9 C0 22 C1 00 01 00 08 32 A1 02 01 02 0A 1E A8 09 0A 00 39 21 38 30 40 5C 82 29 ┆
0x10700…10780 UnusedSector ┆09 1E A8 45 C5 03 40 00 45 04 A9 80 E9 FE 00 49 1A 19 02 62 0F 54 AC 02 FC EA 02 9C 03 FC E5 A9 80 04 3A┆
0x10780…10800 UnusedSector ┆ 85 80 83 0C 04 3D 01 01 FD 48 88 C4 86 4A 01 04 11 65 4B 00 04 3A 01 61 11 65 01 24 0F D2 06 94 75 4D 4B 29 90 ┆
0x10800…10880 UnusedSector ┆53 EA 40 0F 91 30 30 9D 01 05 1F 22 11 65 05 02 FC AA 02 C4 4C 00 01 FC A3 01 C2 58 05 01 02 FC 9B 02 01 4B 4C F┆
0x10880…10900 UnusedSector ┆ 00 FA 03 84 07 08 00 09 02 63 00 FA 02 BC 00 C8 02 8A 00 FA 04 1A 03 20 07 D0 00 0C 00 00 02 01 00 C8 01 C┆
0x10900…10980 UnusedSector ┆2 00 96 03 20 00 64 00 F5 00 64 00 F5 03 84 07 08 00 0A 02 09 00 C8 01 C2 00 64 00 F5 01 5E 02 BC 00 64 00 F5 03┆
0x10980…10a00 UnusedSector ┆ 84 07 08 00 0B 02 64 00 FA 02 BC 00 F6 02 8A 00 F6 03 84 00 64 00 F5 03 20 07 D0 00 0D 02 6D 00 C8 03 E8 00 64 ┆
0x10a00…10a80 UnusedSector ┆00 C8 00 C8 02 8A 00 F6 02 EE 03 20 07 D0 00 0E 00 00 02 6E 00 C8 03 E8 00 64 00 C8 00 C8 02 8A 00 C8 02┆
0x10a80…10b00 UnusedSector ┆ EE 00 64 00 96 03 20 07 D0 00 0F 02 77 00 64 02 BC 00 64 02 8A 00 64 02 58 00 C8 02 8A 00 C8 04 4C 03 20 07 D0 ┆
0x10b00…10b80 UnusedSector ┆00 10 FF FF 00 01 00 07 00 32 00 AA 01 CC 03 E8 07 08 0C E4 15 18 20 08 2E E0 46 50 61 A8 80 E8 BB 80 FF FF 00 0┆
0x10b80…10c00 UnusedSector ┆2 00 19 00 32 00 4B 00 64 00 7D 00 96 00 AF 00 C8 00 E1 00 FA 01 13 01 2C 01 45 01 5E FF FF 00 FA B3 40 09 D5 ┆
0x10c00…10c80 UnusedSector ┆ A1 20 00 07 00 24 03 E8 FF FF 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 0┆
0x10c80…10d00 UnusedSector ┆0 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 00 00 00 00 00┆
0x10d00…10d80 UnusedSector ┆ 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 00 00 00 00 00 ┆
0x10d80…10e00 UnusedSector ┆00 00 CHECKSUM: #6A53 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┆
0x10e00…10e80 UnusedSector ┆00 CHECKSUM: #6C9E 4 05 01 02 50 01 AA 80 20 F3 EE E0 00 E0 00 00 89 01 0D 00 00 00 00 00 00 00 00 00┆
0x10e80…10f00 UnusedSector ┆03 0F D1 04 89 01 03 04 3A 02 86 9C 87 9C 03 D5 10 00 03 10 32 05 10 64 07 10 96 09 10 C8 0B 10 FA 0D 11 2C 0F 0┆
0x10f00…10f80 UnusedSector ┆3 EA 04 03 FC 06 04 0E 08 04 20 0A 07 0C 02 F4 0E 18 00 10 11 6F 02 07 6B 08 03 EA 00 04 0A 3F 0C F6 04 32 ┆
0x10f80…11000 UnusedSector ┆OOL: BOOLEAN); INTTYPE: (INT: INTEGER); IDTYPE: (ID: IDENTIFIER); PTRTYPE: (PTR: POINTER) END; CONST MAXARG = 10; TYPE ARGL┆
0x11000…11080 UnusedSector ┆IST = ARRAY [1..MAXARG] OF ARGTYPE; CONST S = 2; P = 3; O = 4; N = 5; D = 6; L = 7; TYPE ARGSEQ = (INP, OUT); TYPE PROGRESULT ┆
0x11080…11100 UnusedSector ┆= (TERMINATED, OVERFLOW, POINTERERROR, RANGEERROR, VARIANTERROR, HEAPLIMIT, STACKLIMIT, CODELIMIT, TIMELIMIT, CALLERROR); TYP┆
0x11100…11180 UnusedSector ┆E BITPOSITION = 0..15; TYPE BITFIELDLENGTH = 0..16; TYPE BITVALUE = (LOW, HIGH); TYPE MESSAGE_BUFFER = ARRAY (.1..5.) OF INTEGE┆
0x11180…11200 UnusedSector ┆R; TYPE EVENT_TYPE = (TIME_OUT, ANSWER, MESSAGE, INTERRUPT); TYPE WORD_ADDRESS = RECORD MEMORY_SECTION: INTEGER; WORD_DISPLAC┆
0x11200…11280 UnusedSector ┆ 7EDB 38FE 0A58 1ABB 034C 37FE 0288L B7DB A4A0 128A 05C4 ABBB 01CB 1458 36FE 0290L AFDB 8B48 0F70 3ABB E65E 6BDB 7948 0F70 0298L┆
0x11280…11300 UnusedSector ┆ AFTER A COPY TO A MAGNETIC TAPE , " " DIRECT USABLE AS INPUT TO A 'DATA I/O' PROM PROGRAMMER. " " PROMGEN TAKES FIXED INPUT PAR┆
0x11300…11380 UnusedSector ┆AMETERS FROM A DISCFILE( " " SPECIFIED IN THE PROMGEN CALL) AND DYNAMIC PARAMETERS FROM " " THE OPERATORS CONSOLE. " " " "XXXXXX┆
0x11380…11400 UnusedSector ┆XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" "PAGE" " " "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX┆
0x11400…11480 UnusedSector ┆XXXXXXXXXXXXXXXXXXXXXX" " " " INTERFACE " " INVOCATION " " PROGRAM CALL: PROMGEN S:<PDATA> P:<PARAM> " " PROMGEN: THE ASSEMBLED ┆
0x11480…11500 UnusedSector ┆PROGRAM. " " PDATA : THE HEXADECIMAL INPUTFILE TO BE PROMMED. " " PARAM : FIXED INPUT PARAMETER FILE. " " " " THE PROGRAM REQUIR┆
0x11500…11580 UnusedSector ┆░░ ░░ ┆
0x11580…11600 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x11600…11680 UnusedSector ┆░░ ░░ ┆
0x11680…11700 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x11700…11780 UnusedSector ┆░░ ░░ ┆
0x11780…11800 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x11800…11880 UnusedSector ┆░░ ░░ ┆
0x11880…11900 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x11900…11980 UnusedSector ┆░░ ░░ ┆
0x11980…11a00 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x11a00…11a80 UnusedSector ┆░░ ░░ ┆
0x11a80…11b00 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x11b00…11b80 UnusedSector ┆░░ ░░ ┆
0x11b80…11c00 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x11c00…11c80 UnusedSector ┆░░ ░░ ┆
0x11c80…11d00 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x11d00…11d80 UnusedSector ┆░░ ░░ ┆
0x11d80…11e00 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x11e00…11e80 UnusedSector ┆░░ ░░ ┆
0x11e80…11f00 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x11f00…11f80 UnusedSector ┆░░ ░░ ┆
0x11f80…12000 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x12000…12080 UnusedSector ┆░░ ░░ ┆
0x12080…12100 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x12100…12180 UnusedSector ┆░░ ░░ ┆
0x12180…12200 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x12200…12280 UnusedSector ┆░░ ░░ ┆
0x12280…12300 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x12300…12380 UnusedSector ┆░░ ░░ ┆
0x12380…12400 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x12400…12480 UnusedSector ┆░░ ░░ ┆
0x12480…12500 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x12500…12580 UnusedSector ┆░░ ░░ ┆
0x12580…12600 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x12600…12680 UnusedSector ┆░░ ░░ ┆
0x12680…12700 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x12700…12780 UnusedSector ┆░░ ░░ ┆
0x12780…12800 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x12800…12880 UnusedSector ┆░░ ░░ ┆
0x12880…12900 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x12900…12980 UnusedSector ┆░░ ░░ ┆
0x12980…12a00 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x12a00…12a80 UnusedSector ┆░░ ░░ ┆
0x12a80…12b00 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x12b00…12b80 UnusedSector ┆░░ ░░ ┆
0x12b80…12c00 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x12c00…12c80 UnusedSector ┆░░ ░░ ┆
0x12c80…12d00 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x12d00…12d80 UnusedSector ┆░░ ░░ ┆
0x12d80…12e00 UnusedSector ┆░░OMGN ( ) ; < = = > ? & E @ ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x12e00…12e80 UnusedSector ┆XT AND VERSION: (:0:)' ); "200" 1229 OUTTEXT( S , ID_RECORD.SOURCE_TEXT ,60 ); "210" 1230 1231 OUTNL(S); "220" 1232 OUTSTRING( ┆
0x12e80…12f00 UnusedSector ┆S , 'AREASIZE: (:0:)' ); "230" 1233 OUT_LONG_INTEGER( S , PROM_AREA.SIZE , 7 ); "240" 1234 1235 OUTNL(S); "250" 1236 OUTSTRING(┆
0x12f00…12f80 UnusedSector ┆ S , 'AREA START ADDRESS: (:0:)' ); "260" 1237 OUT_LONG_INTEGER( S , PROM_AREA.START_ADDRESS , 7 ); "270" 1238 1239 OUTNL(S); "┆
0x12f80…13000 UnusedSector ┆280" 1240 OUTSTRING( S , 'PROMSIZE: (:0:)' ); "290" 1241 OUT_LONG_INTEGER( S , PHYS_PROM.SIZE , 6) ; "300" 1242 1243 OUTNL(S); ┆
0x13000…13080 UnusedSector ┆"310" 1244 OUTSTRING( S , 'PROMWIDTH: (:0:)' ); "320" 1245 OUTINTEGER( S , PHYS_PROM.WIDTH , 4 ); "330" 1246 1247 OUTNL(S); "34┆
0x13080…13100 UnusedSector ┆0" 1248 OUTSTRING( S , 'PROM FILE: (:0:)' ); "350" 1249 OUTSTRING( S , PROM[ PROM_NO ].FILE ); "360" 1250 1251 OUTNL(S); "370" ┆
0x13100…13180 UnusedSector ┆1252 OUTSTRING( S , 'PROMID: (:0:)' ); "380" 1253 OUTINTEGER( S ,PROM[ PROM_NO ].IDNO , 5 ); "390" 1254 1255 OUTSTRING( S , ' V┆
0x13180…13200 UnusedSector ┆ERSION: (:0:)' ); "400" 1256 OUTINTEGER( S , PROM[ PROM_NO ].VERSION , 3 ); "410" 1257 1258 IF PROM_NO <= NO_OF_PROMS "420" 125┆
0x13200…13280 UnusedSector ┆9 THEN "422" 1260 BEGIN "423" 1261 OUTSTRING( S , ' PARITY BIT: (:0:)' ); "424" 1262 OUTINTEGER( S , PROM[ PROM_NO ].PARITY_BIT ┆
0x13280…13300 UnusedSector ┆, 2 ); "425" 1263 END; "427" 1264 1265 OUTNL(S); "440" 1266 OUTSTRING( S , 'PROM INPUT FILE: (:0:)' ); "450" 1267 OUTTEXT( S , ┆
0x13300…13380 UnusedSector ┆PROM_INPUT_FILE , IDLENGTH ) ; "460" 1268 1269 OUTNL( S ); "465" 1270 OUTSTRING( S , 'PARAM INPUT FILE: (:0:)' ); "470" 1271 OU┆
0x13380…13400 UnusedSector ┆TTEXT( S , PARAM_INPUT_FILE , IDLENGTH ) ; "480" 1272 1273 OUTNL(S); "540" 1274 END "PRINT_ID_RECORD"; "550" 1275 1276 1277 "┆
0x13400…13480 UnusedSector ┆PAGE" 1278 PROCEDURE OC_CHECKSUM( PROM_NO : INTEGER ) ; "10" 1279 VAR S : STREAM ; "15" 1280 BEGIN "20" 1281 OPEN( S , 'OC(:0:┆
0x13480…13500 UnusedSector ┆)' , OUTPUT ) ; "30" 1282 OUTNL(S); "500" 1283 OUTSTRING( S , 'PROMID: (:0:)' ); "380" 1284 OUTINTEGER( S ,PROM[ PROM_NO ].IDNO ┆
0x13500…13580 UnusedSector ┆, 5 ); "390" 1285 1286 OUTSTRING( S , ' VERSION: (:0:)' ); "400" 1287 OUTINTEGER( S , PROM[ PROM_NO ].VERSION , 3 ); "410" 1288┆
0x13580…13600 UnusedSector ┆ OUTNL(S); "370" 1289 OUTSTRING( S , 'CHECKSUM: (:0:)' ); "520" 1290 OUTHEXA( S , SHORT1( PROM[ PROM_NO ].CHECKSUM ) , 5 ) ; "53┆
0x13600…13680 UnusedSector ┆0" 1291 1292 OUTNL( S ) ; "535" 1293 CLOSE( S ) ; "536" 1294 END "OC CHECKSUM" ; "540" 1295 "PAGE" 1296 "XXXXXXXXXXXXXXXXXXXX┆
0x13680…13700 UnusedSector ┆XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 1297 " MAIN PROGRAM " 1298 "************************************************┆
0x13700…13780 UnusedSector ┆**********************" 1299 1300 BEGIN "10" 1301 OPEN( S_IN , 'OC(:0:)' , INPUT ); "20" 1302 OPEN( S_OUT, 'OC(:0:)' , OUTPUT )┆
0x13780…13800 UnusedSector ┆; "30" 1303 GET_OC_PARAMS( S_IN , S_OUT ) ; "40" 1304 CLOSE( S_IN); "50" 1305 CLOSE( S_OUT ) ; "60" 1306 IF PARAM[P].TAG = IDTYP┆
0x13800…13880 UnusedSector ┆E "62" 1307 THEN PARAM_INPUT_FILE := PARAM[ P ].ID "63" 1308 ELSE PARAM_INPUT_FILE := 'OC(:0:) ' ; "65" 1309 IF PARAM[S].TAG = I┆
0x13880…13900 UnusedSector ┆DTYPE "66" 1310 THEN PROM_INPUT_FILE := PARAM[S].ID "67" 1311 ELSE PROM_INPUT_FILE := 'OC(:0:) ' ; "69" 1312 OPEN( S_IN , PARAM_┆
0x13900…13980 UnusedSector ┆INPUT_FILE , INPUT ) ; "70" 1313 GET_DISC_PARAMS( S_IN ); "80" 1314 CLOSE( S_IN ) ; "90" 1315 CHECK_PARAMS ; "95" 1316 DEFINE_CO┆
0x13980…13a00 UnusedSector ┆NSTANTS ; "100" 1317 FOR I:=1 TO ( NO_OF_PROMS + NO_OF_PARITY_PROMS ) DO "110" 1318 BEGIN "120" 1319 OPEN( S_IN , PROM_INPUT_FIL┆
0x13a00…13a80 UnusedSector ┆E , INPUT ); "130" 1320 OPEN( S_OUT , PROM[I].FILE , OUTPUT ) ; "140" 1321 PRINT_ID_RECORD( S_OUT , I ); "150" 1322 IF I <= NO_O┆
0x13a80…13b00 UnusedSector ┆F_PROMS "162" 1323 THEN EXTRACT_PROM( S_OUT , S_IN , I ) "164" 1324 ELSE EXTRACT_PARITY_PROM( S_OUT , I); "166" 1325 CLOSE( S_IN┆
0x13b00…13b80 UnusedSector ┆ ) ; "170" 1326 CLOSE( S_OUT ) ; "180" 1327 OC_CHECKSUM( I ); "185" 1328 END; "190" 1329 END. "200" SUMMARY COMPILER RELEASE: ┆
0x13b80…13c00 UnusedSector ┆2 PROGRAM PART: 7363 DATA PART: 6407 PASCAL CODE SIZE: 7106 OVERLAY AREA SIZE: 0 SYSTEM AREA SIZE: 2820 LINE STATISTICS: 2┆
0x13c00…13c80 UnusedSector ┆660 SIZE OF CONSTANTS: 927 WORK AREA CLAIM: 25000 PROGRAM STATE: REENTRANT "190" 1329 END. "200" SUMMARY COMPILER RELEASE: ┆
0x13c80…13d00 UnusedSector ┆ ; 1 6 6 0 < 1 ; 1 ░ ┆
0x13d00…13d80 UnusedSector ┆ 6 1 ░ 1 1 { % 1 ░░ " 6 0 - 1 ┆
0x13d80…13e00 UnusedSector ┆░░ ░░ ┆
0x13e00…13e80 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x13e80…13f00 UnusedSector ┆░░ ░░ ┆
0x13f00…13f80 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x13f80…14000 UnusedSector ┆░░ ░░ ┆
0x14000…14080 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x14080…14100 UnusedSector ┆░░ ░░ ┆
0x14100…14180 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x14180…14200 UnusedSector ┆░░ ░░ ┆
0x14200…14280 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x14280…14300 UnusedSector ┆░░ ░░ ┆
0x14300…14380 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x14380…14400 UnusedSector ┆░░ ░░ ┆
0x14400…14480 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x14480…14500 UnusedSector ┆░░ ░░ ┆
0x14500…14580 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x14580…14600 UnusedSector ┆░░ ░░ ┆
0x14600…14680 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x14680…14700 UnusedSector ┆░░ ░░ ┆
0x14700…14780 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x14780…14800 UnusedSector ┆░░ ░░ ┆
0x14800…14880 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x14880…14900 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ ┆
0x14900…14980 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x14980…14a00 UnusedSector ┆░░ ░░ ┆
0x14a00…14a80 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x14a80…14b00 UnusedSector ┆░░ ░░ ┆
0x14b00…14b80 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x14b80…14c00 UnusedSector ┆░░ ░░ ┆
0x14c00…14c80 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x14c80…14d00 UnusedSector ┆░░ ░░ ┆
0x14d00…14d80 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x14d80…14e00 UnusedSector ┆░░ ░░ ┆
0x14e00…14e80 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x14e80…14f00 UnusedSector ┆░░ ░░ ┆
0x14f00…14f80 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x14f80…15000 UnusedSector ┆░░ ░░ ┆
0x15000…15080 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x15080…15100 UnusedSector ┆░░ ░░ ┆
0x15100…15180 UnusedSector ┆░░SCAL q ░░░░░░░░░░░░░░░░░░░░ ░░SB ; ! " #░░░░░░░░░░░░░░ ┆
0x15180…15200 UnusedSector ┆░░SB ; $ , .░░░░░░░░░░░░░░ ░░RITY ; : B C░░░░░░░░░░░░░░ ┆
0x15200…15280 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x15280…15300 UnusedSector ┆░░ ░░ ┆
0x15300…15380 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x15380…15400 UnusedSector ┆░░ ░░ ┆
0x15400…15480 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x15480…15500 UnusedSector ┆░░ ░░ ┆
0x15500…15580 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x15580…15600 UnusedSector ┆░░ ░░ ┆
0x15600…15680 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░O 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x15680…15700 DataSector[»PASCAL«]
[…0x31…]
0x16f80…17000 UnusedSector ┆ 9C 05 03 04 01 88 21 02 12 0A 11 65 01 04 03 EA 80 04 0D 49 3C 02 01 12 09 03 EA 03 01 01 0F 03 FC 02 01 0F 0┆
0x17000…17080 UnusedSector ┆4 0E 04 01 0F 04 20 08 01 0F 04 CF 00 04 10 AC 01 4B 07 03 04 2D 01 14 02 06 01 01 48 0F 09 EF 00 04 8C 01 10 04┆
0x17080…17100 UnusedSector ┆ 0A 3F 00 04 80 AC 01 4B 08 03 04 2D 01 01 02 07 01 88 0E 0F D5 04 04 03 EA 30 AC 01 02 12 06 10 CE 06 9C 11 00 ┆
0x17100…17180 UnusedSector ┆08 9C 11 32 0A 9C 11 7C 03 80 54 03 40 01 09 09 11 6F 05 21 90 F1 08 00 39 91 16 02 13 00 18 18 B0 03 01┆
0x17180…17200 UnusedSector ┆ 63 06 EF D8 01 50 16 8E 02 00 01 01 02 AF EF 28 00 07 38 81 1D 03 03 3C B0 10 02 01 18 90 0D 00 02 01 01 16 9E ┆
0x17200…17280 UnusedSector ┆08 01 01 00 05 03 06 02 01 01 3C 13 03 AF 05 0F 54 07 03 AB 1B B0 06 02 01 5B 89 06 01 75 89 03 01 37 89 03 04 0┆
0x17280…17300 UnusedSector ┆0 21 00 89 10 11 65 01 04 C0 03 40 09 02 01 01 08 20 00 10 00 87 F1 0B 8A 03 8B C0 00 8D 0E 8F 88 89 03 D5 ┆
0x17300…17380 UnusedSector ┆FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF┆
0x17380…17400 UnusedSector ┆EMENT:INTEGER END; TYPE BYTE_ADDRESS = RECORD BYTE_DISPLACEMENT: INTEGER; WORD_ADDR: WORD_ADDRESS END; TYPE PROCESS_NAME =┆
0x17400…17480 UnusedSector ┆ RECORD NAME: ARRAY [0..2] OF CHAR; NAME_IDENT:INTEGER; PROC_IDENT:INTEGER END; PROCEDURE READ(VAR C: CHAR); PROCEDURE WRIT┆
0x17480…17500 UnusedSector ┆E(C: CHAR); PROCEDURE OPEN(F: FILE; ID: IDENTIFIER; VAR FOUND: BOOLEAN); PROCEDURE CLOSE(F: FILE); PROCEDURE GET(F: FILE; P: INT┆
0x17500…17580 UnusedSector ┆EGER; VAR BLOCK: UNIV PAGE); PROCEDURE PUT(F: FILE; P: INTEGER; VAR BLOCK: UNIV PAGE); PROCEDURE READARG(S: ARGSEQ; VAR ARG: ARG┆
0x17580…17600 UnusedSector ┆TYPE); PROCEDURE WRITEARG(S: ARGSEQ; ARG: ARGTYPE); PROCEDURE ACCEPT(VAR C:CHAR); PROCEDURE DISPLAY(C: CHAR); PROCEDURE MARK(VA┆
0x17600…17680 UnusedSector ┆ 0440L 5453 0000 014A 43FE 7748 0F70 2368 086E 0448L 226F 678B F6BC 2469 6FE9 6FE9 6FE9 6FE9 0450L 6FE9 6FE9 6FE9 6FE9 6FE9 6FE9┆
0x17680…17700 UnusedSector ┆E: ARRAY [0..2] OF CHAR; NAME_IDENT:INTEGER; PROC_IDENT:INTEGER END; PROCEDURE READ(VAR C: CHAR); PROCEDURE WRITE(C: CHAR); ┆
0x17700…17780 UnusedSector ┆PROCEDURE OPEN(F: FILE; ID: IDENTIFIER; VAR FOUND: BOOLEAN); PROCEDURE CLOSE(F: FILE); PROCEDURE GET(F: FILE; P: INTEGER; VAR BL┆
0x17780…17800 UnusedSector ┆OCK: UNIV PAGE); PROCEDURE PUT(F: FILE; P: INTEGER; VAR BLOCK: UNIV PAGE); PROCEDURE READARG(S: ARGSEQ; VAR ARG: ARGTYPE); PROCE┆
0x17800…17880 UnusedSector ┆DURE WRITEARG(S: ARGSEQ; ARG: ARGTYPE); PROCEDURE ACCEPT(VAR C:CHAR); PROCEDURE DISPLAY(C: CHAR); PROCEDURE MARK(VAR TOP: INTEG┆
0x17880…17900 UnusedSector ┆ER); PROCEDURE RELEASE(TOP: INTEGER); PROCEDURE RUN(ID: IDENTIFIER; VAR PARAM: ARGLIST; VAR LINE: INTEGER; VAR RESULT: PROGRES┆
0x17900…17980 UnusedSector ┆ULT); PROCEDURE EXIT; PROCEDURE HALT; PROCEDURE SET_TRACE(MASK: INTEGER; DEVICE:IDENTIFIER); PROCEDURE PRINT_TRACE(ON: BOOLEAN)┆
0x17980…17a00 UnusedSector ┆; FUNCTION IAND(MASK1, MASK2: UNIV INTEGER): INTEGER; FUNCTION IOR(MASK1, MASK2: UNIV INTEGER): INTEGER; FUNCTION XOR(MASK1, MA┆
0x17a00…17a80 UnusedSector ┆SK2: UNIV INTEGER): INTEGER; FUNCTION INV(MASK: UNIV INTEGER): INTEGER; FUNCTION LEFTSHIFT(BITS: UNIV INTEGER; SHIFTS: INTEGER)┆
0x17a80…17b00 UnusedSector ┆: INTEGER; FUNCTION RIGHTSHIFT(BITS: UNIV INTEGER; SHIFTS: INTEGER): INTEGER; FUNCTION GETBITS(BITS: UNIV INTEGER; LEFTMOST: BI┆
0x17b00…17b80 UnusedSector ┆TPOSITION; FIELDLENGTH: BITFIELDLENGTH): INTEGER; PROCEDURE PUTBITS(FROM: UNIV INTEGER; VAR TO_: UNIV INTEGER; LEFTTO: BITPOSI┆
0x17b80…17c00 UnusedSector ┆TION; FIELDLENGTH: BITFIELDLENGTH); FUNCTION TESTBIT(BITS: UNIV INTEGER; BITNUMBER: BITPOSITION): BOOLEAN; PROCEDURE SETBIT(VAR ┆
0x17c00…17c80 UnusedSector ┆BITS: UNIV INTEGER; BITNUMBER: BITPOSITION); PROCEDURE CLEARBIT(VAR BITS: UNIV INTEGER; BITNUMBER: BITPOSITION); PROCEDURE PACK┆
0x17c80…17d00 UnusedSector ┆(UNPACKED, PACKED: IDENTIFIER; NO_OF_BYTES: INTEGER); PROCEDURE UNPACK(PACKED, UNPACKED: IDENTIFIER; NO_OF_BYTES: INTEGER); PROC┆
0x17d00…17d80 UnusedSector ┆EDURE PACK_SWAPPED(UNPACKED, PACKED: IDENTIFIER; NO_OF_BYTES: INTEGER); PROCEDURE UNPACK_SWAPPED(PACKED, UNPACKED: IDENTIFIER; N┆
0x17d80…17e00 UnusedSector ┆O_OF_BYTES: INTEGER); PROCEDURE RESERVE_INTERRUPT(DEVPR: INTEGER; VAR INTRPT: INTEGER); PROCEDURE RELEASE_INTERRUPT(INTRPT: INT┆
0x17e00…17e80 UnusedSector ┆EGER); PROCEDURE CLEAR_INTERRUPT(INTRPT: INTEGER; VAR COUNT: INTEGER); PROCEDURE WAIT_INTERRUPT(DELAY: INTEGER; INTRPT: INTEGER;┆
0x17e80…17f00 UnusedSector ┆ VAR TIMED_OUT: BOOLEAN; VAR COUNT: INTEGER); PROCEDURE SENSE_IO(DEVICE: INTEGER; VAR STATUS: INTEGER); PROCEDURE READ_IO(DEVI┆
0x17f00…17f80 UnusedSector ┆CE: INTEGER; VAR DATA: INTEGER); PROCEDURE CONTROL_IO(DEVICE: INTEGER; STATUS: INTEGER); PROCEDURE WRITE_IO(DEVICE: INTEGER; DAT┆
0x17f80…18000 UnusedSector ┆A: INTEGER); PROCEDURE SEND_MESSAGE(RECEIVER: PROCESS_NAME; MSG:UNIV MESSAGE_BUFFER; VAR EVENT: INTEGER); PROCEDURE SEND_ANSWE┆
0x18000…18080 UnusedSector ┆R(ANS: UNIV MESSAGE_BUFFER; EVENT: INTEGER); PROCEDURE WAIT_ANSWER(DELAY: INTEGER; EVENT: INTEGER; VAR ANS: UNIV MESSAGE_BUFFER┆
0x18080…18100 UnusedSector ┆; VAR TIMED_OUT: BOOLEAN); PROCEDURE WAIT_MESSAGE(DELAY: INTEGER; VAR MSG: UNIV MESSAGE_BUFFER; VAR EVENT: INTEGER; VAR TIMED_O┆
0x18100…18180 UnusedSector ┆UT: BOOLEAN); PROCEDURE WAIT_EVENT(DELAY: INTEGER; INTRPT: INTEGER; VAR MSG: UNIV MESSAGE_BUFFER; VAR EVENT: INTEGER; VAR EVTT┆
0x18180…18200 UnusedSector ┆YPE: EVENT_TYPE; VAR COUNT: INTEGER; VAR TIMED_OUT: BOOLEAN); PROCEDURE RESUME_EVENT; PROCEDURE COPY(SOURCE, DEST: BYTE_ADDRES┆
0x18200…18280 UnusedSector ┆S; NO_OF_BYTES: INTEGER); PROCEDURE GET_ABS_ADDR(STRUCTURE: LINE; VAR WORD_ADDR: WORD_ADDRESS); PROCEDURE GET_ABS_ADDR1(STRUCTUR┆
0x18280…18300 UnusedSector ┆E: LINE; VAR WORD_ADDR: WORD_ADDRESS); PROCEDURE GET_ABS_ADDR2(STRUCTURE: LINE; VAR WORD_ADDR: WORD_ADDRESS); FUNCTION CURRENT_L┆
0x18300…18380 UnusedSector ┆INE: INTEGER; PROCEDURE CURRENT_LEVEL(VAR LEVEL: INTEGER); PROCEDURE LONG_EXIT(LEVEL: INTEGER); PROCEDURE ASSIGNBITS(VALUE: UNIV┆
0x18380…18400 UnusedSector ┆ BITVALUE; VAR P: UNIV PAGE; FIRSTBIT, NO_OF_BITS: INTEGER); PROCEDURE SKIPBITS(VALUE: UNIV BITVALUE; P: UNIV PAGE; VAR FIRSTB┆
0x18400…18480 UnusedSector ┆IT: INTEGER; NO_OF_BITS: INTEGER; VAR BITSSKIPPED: INTEGER); PROGRAM MAIN(VAR PARAM: ARGLIST); %LIST "PAGE" "****************┆
0x18480…18500 UnusedSector ┆************ * PASCAL I/O DECLARATIONS * ****************************" CONST TEXT_SIZE=132; TYPE TEXT=ARRAY[1..TEXT_SIZE] OF CH┆
0x18500…18580 UnusedSector ┆AR; TYPE STREAM=(INOC,OUTOC,INFILE,OUTFILE); TYPE DIRECTION=(INPUT,OUTPUT); TYPE BYTE=0..255; "********************************┆
0x18580…18600 UnusedSector ┆**************************************" " CONSTANTS " "**********************************************************************" ┆
0x18600…18680 UnusedSector ┆ CONST MAX_PARITY_PROMS = 4 ; "20" MAX_PROMS = 64 ; "30" STX = '(:2:)' ; "40" ETX = '(:3:)' ; "50" MIN_AREASIZE = 8 ; "60" ┆
0x18680…18700 UnusedSector ┆MIN_PROMSIZE = 8 ; "80" MAX_AREASIZE = 16384 ; "70" MAX_PROMSIZE = 16384 ; "90" MIN_PROMWIDTH = 4 ; "100" MAX_PROMWIDTH = 16┆
0x18700…18780 UnusedSector ┆ ; "110" MIN_WORDSIZE = 4 ; "120" MAX_WORDSIZE = 16 ; "130" "****************************************************************┆
0x18780…18800 UnusedSector ┆******" " MAIN VARIABLES " "**********************************************************************" TYPE PROMTYPE = RECORD "10┆
0x18800…18880 UnusedSector ┆" FILE : IDENTIFIER ; "20" IDNO : INTEGER ; "30" VERSION : INTEGER ; "40" PARITY_BIT : INTEGER ; "50" CHECKSUM : LONG_INTEG┆
0x18880…18900 UnusedSector ┆ER "60" END; "70" TYPE LONG1 = RECORD LSB : INTEGER ; MSB : INTEGER END; TYPE ID_RECORD_TYPE = RECORD "100" ORIGINATOR┆
0x18900…18980 UnusedSector ┆ : IDENTIFIER ; "110" PROJECT_NO : LONG_INTEGER ; "120" DATE : LONG_INTEGER ; "130" MODULE : TEXT ; "140" FLOPPY_DISC_NO : I┆
0x18980…18a00 UnusedSector ┆NTEGER ; "150" SOURCE_TEXT : TEXT "160" END; "170" TYPE PROM_AREA_TYPE = RECORD "190" SIZE : LONG_INTEGER ; "200" START_AD┆
0x18a00…18a80 UnusedSector ┆DRESS : LONG_INTEGER ; "210" WIDTH : INTEGER ; "220" PARITY_BITS_IN_USE : INTEGER "230" END; "240" TYPE PHYS_PROM_TYPE = RE┆
0x18a80…18b00 UnusedSector ┆ 60BC 03EC 605E 475E FE70L 184E 8027 03D8 1028 40BC 0158 004E 2076 FE78L 1F76 114D 0048 8DBB 4B5D D9F1 1F4E E6B1 FE80L 1F4E 2068┆
0x18b00…18b80 UnusedSector ┆ 04EC 8224 8BB0 4B4F 15D8 184E FE88L D23D DEFB 585D D37F 0F58 1F4E 68FB 0CEC FE90L 0E8B 1056 0048 0E8A E1F3 185C 204E 6BFB FE98L┆
0x18b80…18c00 UnusedSector ┆ 04CB 0CE4 BEE9 1E58 7F5E 0007 454D 4F4D FEA0L 5952 5020 5241 5449 2059 1868 86F2 8A5E FEA8L 0003 5245 4F52 0052 03D8 905E 0001 ┆
0x18c00…18c80 UnusedSector ┆4B4F FEB0L 885E 0048 01EC 1570 202F A8BE E9BE 1594 FEB8L 2056 004A B2DF 004B 2B73 2073 4C4C 1F74 FEC0L 234D 5CDF B0DF C9DF 004E ┆
0x18c80…18d00 UnusedSector ┆2B76 4C4D 4E60 FEC8L 9FD0 99D0 5060 9BD0 5218 1D70 134B 004C FED0L D48A 01CD 03C3 5DFB 45FA 0FD8 4C4D 2A73 FED8L 45DF 2A6B 02E4 ┆
0x18d00…18d80 UnusedSector ┆3DBA 01CB 0758 94DF ADDF FEE0L 05D8 2BF0 01D8 01A4 01A4 01A4 0449 1594 FEE8L 1668 01FA 03D8 1568 01C8 3C58 1594 1671 FEF0L 4B4F ┆
0x18d80…18e00 UnusedSector ┆D45E 0004 5244 5649 3D45 0020 1568 FEF8L EA5E 917C 05D8 927C 0CD8 937C 11D8 99D8 FF00L E35E 0006 202C 4F4E 2054 4552 4441 0059 F┆
0x18e00…18e80 UnusedSector ┆F08L 11D8 EC5E 0004 202C 4146 4C55 0054 0AD8 FF10L F35E 0008 202C 4F4E 4220 4F4F 2054 4F4D FF18L 5544 454C F25E 1568 01C8 6C58 2┆
0x18e80…18f00 UnusedSector ┆976 5EBB FF20L 4319 91F0 3E5C 0A4A 31F6 04D8 138B 01CE FF28L 05C2 4558 8418 017C 4858 FF56 004A 028C FF30L 08EC BAF2 411F 708A 0┆
0x18f00…18f80 UnusedSector ┆2C3 1BE4 8042 04D8 FF38L 1AA8 0156 00CA 0758 208A 4119 0ABB A724 FF40L 2BBB 238A 238A 1AE4 B000 1AAB 0458 0ABB FF48L A824 286E 2┆
0x18f80…19000 DataSector[»PASCAL«]
[…0x3f…]
0x1af80…1b000 UnusedSector ┆ o o g g S q ┆
0x1b000…1b080 UnusedSector ┆ Q LPT ┆
0x1b080…1b100 UnusedSector 0x00[128]
[…0x2…]
0x1b200…1b280 UnusedSector ┆ ░░ ┆
0x1b280…1b300 UnusedSector 0x00[128]
[…0x4…]
0x1b500…1b580 UnusedSector ┆ 4D 5F 56 4D 48 1A 7E D8 5F CD D8 BB FB 5F BB CD 49 91 AB F2 8E C0 56 48 49 4A 56 DF 58 56 48 49 4A 56 DF BE BF ┆
0x1b580…1b600 UnusedSector ┆D8 5F 56 48 A0 49 4A 56 DF 56 48 49 4A 56 DF 56 48 FB 56 E4 7C 58 56 E4 7C D8 56 E4 7C D8 56 E4 7C D8 56┆
0x1b600…1b680 UnusedSector ┆ E4 7C D8 56 E4 7C D8 56 E4 7C D8 56 E4 7C D8 56 E4 7C D8 56 E4 7C D8 56 E4 7C D8 58 56 4C 4B 4A 5F 58 7E 58 56 ┆
0x1b680…1b700 UnusedSector ┆4D 4C 5F 58 56 4D FB CD FB CE F8 D8 CD C2 58 56 E4 7E D8 FB 1C 4B 4A 5F 58 FB 1C 4B 56 4A 56 48 BC FB 8E C3 56 4┆
0x1b700…1b780 UnusedSector ┆8 BC 56 4C 4B 4A 5F 58 7E 58 56 4D 56 DF 58 BB CD 56 DF 58 BB BB 4A 5F 58 BB AB 24 56 4D 56 DF 58 BB CD 56 ┆
0x1b780…1b800 UnusedSector ┆ DF 58 BB CA CD C3 58 7E 58 56 4D 4C 56 DF 58 BB 56 4D 56 DF BB 48 DF 58 7E 58 56 4D 4C 56 DF 58 BB 48 DF 58 5┆
0x1b800…1b880 UnusedSector ┆6 4D BB 81 82 56 48 BC BE 48 BC 56 48 BC BF 40 58 BB 56 4D 4C 56 DF 58 4E 56 49 BB CD F8 D8 C9 C6 58 BB 56 4E 56┆
0x1b880…1b900 UnusedSector ┆ E4 7F D8 19 56 4A 4B 56 48 BC FB 8E C3 56 48 BC 56 4C 4B 4A 56 DF 58 42 D8 BB 56 4D 4C 56 DF BB BB 42 4B 1C 49 ┆
0x1b900…1b980 UnusedSector ┆56 4A 56 48 BC FB 8E C1 56 48 BC 56 4C 4A 56 DF CC 56 DF 59 7E 59 D8 48 56 70 56 48 49 4A 56 DF 7E D8 D8┆
0x1b980…1ba00 UnusedSector ┆ 42 5A 56 6D 7C 58 E4 40 5A 56 4D 56 E4 7D 59 CD 56 E4 7F D8 56 DF 56 4D CD 7D D8 48 56 DF 58 56 E4 7D D8 56 E4 ┆
0x1ba00…1ba80 UnusedSector ┆7D D8 56 E4 7F D8 CD 56 E4 7D D8 5A 56 4E CE E3 56 4E E4 BB CE A0 56 4D 78 90 8E C1 56 4D CD 49 89 58 56 4D CD 1┆
0x1ba80…1bb00 UnusedSector ┆1 56 4D 56 49 81 56 4C 99 BB CD 49 89 56 DF 58 56 48 49 4A 56 DF 58 56 48 49 4A 56 DF 56 48 49 4A 56 DF 7E ┆
0x1bb00…1bb80 UnusedSector ┆ 58 7E 58 56 4D 1D 1C CC 4E 56 4D FB 8E C6 DF 56 4E 18 F2 48 56 4E 90 56 4E 27 56 48 49 4A 56 DF B0 56 48 49 4┆
0x1bb80…1bc00 UnusedSector ┆A 56 DF 7E 58 7E D8 56 4D 1D 1C CC 56 4D 4E 8B 8E C6 48 56 4E 90 90 90 58 7E 58 58 BE 48 4B 56 4C 56 4D 4E FB 4A┆
0x1bc00…1bc80 UnusedSector ┆ EB CA 92 AD C6 CD CC C3 BE BF BE 7D D8 A0 78 7A 49 4B 8B 42 D8 A1 C2 4B 56 4D CD 4C 4A EB EE EB C9 91 8E F2 BB ┆
0x1bc80…1bd00 UnusedSector ┆58 56 4D 8A 1C 48 79 91 8E C0 BE BF BE 56 48 FB BB EC 8C BC 56 4C BB 48 56 DF CD BB 48 56 DF BE BF 56 4E┆
0x1bd00…1bd80 UnusedSector ┆ E4 18 7E D8 56 4D CD 4C 56 DF D8 40 D8 BB 4B D8 56 4C FB 4A 56 4E CE E3 56 4C CC 8A 56 48 49 DF D8 FB 1A FB 7C ┆
0x1bd80…1be00 UnusedSector ┆D8 BE 48 56 4D 56 49 BB CD C0 56 4D 56 4C CC 48 56 DF CD 1C FB CC 48 56 DF CD 1C 5F CD CC 48 56 DF CD CC BB FB 5┆
0x1be00…1be80 UnusedSector ┆6 DF BB CD CC CD 4A 4B 48 56 DF CD CC 5F CD CC 48 56 DF CD CC C2 DF D8 4A 56 4D 48 56 49 BB CD C0 56 4D C3 ┆
0x1be80…1bf00 UnusedSector ┆ 4A 56 DF CC CD C2 DF D8 BE 49 BB 19 F8 D8 CA 58 27 CC FB 1A C3 DF D8 48 56 4C CC 49 89 56 4C CC 49 89 56 DF 5┆
0x1bf00…1bf80 UnusedSector ┆8 BE 48 58 C9 BB A0 4C 56 DF F0 BB BE 58 BE DF D8 C9 56 4D CD FB 8E FB 56 48 49 DF D8 BE BF 81 BE BF BE 56 4C 4A┆
0x1bf80…1c000 UnusedSector ┆ E4 BB A0 27 CC E3 4A 56 DF F1 D8 56 4D CD 4B 89 56 4D CD E3 56 DF 58 56 4C 56 4D FB 56 E4 7E D8 1A 56 E4 7C D8 ┆
0x1c000…1c080 UnusedSector ┆E4 1A 7C D8 E4 13 58 56 49 81 BE BF 56 49 81 BE BF BE 56 4E E4 18 7E D8 56 48 49 5F D8 56 4E E4 16 CE BB┆
0x1c080…1c100 UnusedSector ┆ 48 FB 8E C0 56 49 C9 81 BB CD 1A 56 E4 7C D8 56 4E 56 49 81 56 49 D8 4C A0 56 DF F0 CD BB 4C 56 DF F0 E4 7E D8 ┆
0x1c100…1c180 UnusedSector ┆CA 4C D8 CC 4B E4 7E D8 E4 7E D8 4B BB CD 48 A0 56 74 56 4C 56 DF AD BB 56 DF 24 CD BB 56 DF BE BF 81 BE BF BE 5┆
0x1c180…1c200 UnusedSector ┆6 4E E4 27 CE CE 56 48 C8 49 FB 8E C1 56 48 49 5F 58 58 BE 56 4C 4A E4 BB 5F D8 81 BE BF E4 1A 7C D8 E4 13 ┆
0x1c200…1c280 UnusedSector ┆ BB CB BE 56 48 49 BB CA FB 8E FB 5F D8 5F D8 C9 AB FB 8E FB BE 19 58 BE BF BE 58 BE 56 48 BC 56 4C 4D 18 7C D┆
0x1c280…1c300 UnusedSector ┆8 7C D8 7C D8 D8 16 D8 16 19 81 16 D8 16 1E CE BE BF BE 56 DF 56 48 BC 48 49 96 C0 98 BC 00 00 00 00 00 00 00 00┆
0x1c300…1c380 UnusedSector ┆ 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 20 0B 22 00 00 00 AB 00 00 00 00 00 00 00 00 00 00 00 00 00 00 C6 ┆
0x1c380…1c400 UnusedSector ┆00 CHECKSUM: #3206 1 16 D8 16 1E CE BE BF BE 56 DF 56 48 BC 48 49 96 C0 98 BC 00 00 00 00 00 00 00 00┆
0x1c400…1c480 UnusedSector ┆ ORIGINATED BY: LI PROJECT NO: 1556 DATE: 801124 MODULE: TARA FLOPPY DIS┆
0x1c480…1c500 UnusedSector ┆C NO CR/D/ 0 SOURCE TEXT AND VERSION: TARA AREASIZE: 4096 AREA START ADD┆
0x1c500…1c580 UnusedSector ┆RESS: 0 PROMSIZE: 2048 PROMWIDTH: 8 PROM FILE: PARITY PROMID: 5 VERSION: 1 PROM INPUT FILE: TARAH PARAM INPUT FILE: PROMP 97┆
0x1c580…1c600 UnusedSector ┆ 97 9F B7 BF B7 93 BF 9B 9F 93 B7 9F 9F 93 B7 DB DF F7 D3 F7 D7 F7 FF DB DF FB DF FF D7 FF DB FF DB DF DB FF D3 ┆
0x1c600…1c680 UnusedSector ┆DF FF DB FF FB FF FB DB FF FB F3 D7 D7 F3 F7 F7 D3 F7 F7 F7 D3 F7 D3 D7 D3 F3 D7 D7 D7 D3 D7 D3 F3 D7 D3 D3 D3 D┆
0x1c680…1c700 UnusedSector ┆3 F7 D3 D7 D3 F7 F7 D3 F7 D7 D3 D3 D7 D7 D7 D3 F3 F7 F3 D3 D3 D7 D7 F3 D3 D3 D3 F7 F3 D3 D3 D7 D7 F3 F3 D3 D3 ┆
0x1c700…1c780 UnusedSector ┆ D7 D3 D3 F7 F3 D7 D3 F3 F3 F3 D7 D3 F3 D7 D3 F7 F7 F3 D3 D7 F7 D7 D3 F7 D3 D3 F7 D7 D7 F3 F7 FF DB BF 9B F┆
0x1c780…1c800 UnusedSector ┆F BF DF FF BB 9F FF F7 93 B7 D3 B7 F7 D3 97 97 F3 F3 93 B3 D7 93 F3 D7 97 B7 D3 FF BB 9F FF 9B DB FF BF 9B DB F7┆
0x1c800…1c880 UnusedSector ┆ 97 B3 F7 B3 F3 F7 B3 B7 D3 DF 9F BF DB BF FB DF 9B 9B DF FF 9F BB FF D3 D7 F3 DF FF DB F7 97 DB F7 DB FB FF F3 ┆
0x1c880…1c900 UnusedSector ┆9F DB DB DF B7 DB FF DB D7 DF FB D7 97 93 93 DF DF FB 97 F3 DB FF FB B7 93 DF DF B7 DB B3 DB 93 D3 97 DF┆
0x1c900…1c980 UnusedSector ┆ FF 97 B7 93 FF DF FB 97 F3 DB F3 93 D3 9B D7 BF 97 FF D3 97 B3 B3 B3 D7 9F DF BB D7 D3 BB DF D3 D7 BB BB D3 97 ┆
0x1c980…1ca00 UnusedSector ┆DF BF 9F FB 9F 9B DF 97 93 DB DB 93 9F 9B 97 DB D3 9B BF DF 9B 9F DB FB DF 9F DF 93 9F BF FB 9F BB 93 9B BF 97 9┆
0x1ca00…1ca80 UnusedSector ┆3 F7 DF 9B BF BF BB 9F D7 BF B7 9F 9F FB 9B BB 9B 9B FF DB F3 9B 9F F7 BB D3 9F D7 97 DF B3 FF BF FF 9F BF BB ┆
0x1ca80…1cb00 UnusedSector ┆ DF B7 B3 F3 B7 9F 9B DB 9F B3 9B 97 DB BF FB DF BB 97 BF 93 FF D7 BB FF D7 D3 D3 D7 D3 D3 F7 F3 D3 F7 D3 D┆
0x1cb00…1cb80 UnusedSector ┆7 F3 F3 D7 D7 D3 F3 F3 D7 D7 F3 D7 D7 D3 F3 D7 F7 D7 D3 D3 D7 DF D7 93 D7 F3 97 F7 F3 B7 D7 F3 97 F7 F7 97 F3 F7┆
0x1cb80…1cc00 UnusedSector ┆ B7 D7 F7 97 D7 D3 B3 F3 D7 B7 F7 F3 B7 D7 F7 97 D7 D3 97 D7 D7 93 D7 F7 B7 D3 D3 93 D3 F3 B7 D7 D7 FF B3 9B F7 ┆
0x1cc00…1cc80 UnusedSector ┆FF F3 B7 DF DF 9B DF DF DF 93 FF BF FF D3 9F DF D7 9B 9B BB BB DF FB DB 9F 97 9F BF FF FB B7 93 F7 FB 97┆
0x1cc80…1cd00 UnusedSector ┆ BF FF 9F B7 F7 9B BF BF F3 BB B3 B7 9B B3 BF F7 B7 DF 9F D7 B3 97 9F DF DF 9F DF 9B DF BB 9F B7 9F D7 9F DF FF ┆
0x1cd00…1cd80 UnusedSector ┆B7 93 F7 BF D3 9B D7 F7 9F FB 9F B7 BF F7 BF DB F7 FB DF F3 D7 9F DF 97 BF F3 BB BF D7 9F DF FF BB B7 FF 9B 9F D┆
0x1cd80…1ce00 UnusedSector ┆7 9B B3 9B B7 9F 9F 93 BF DB DB BF BF B7 DB BF D3 FB BB D7 9F BF F3 BF B7 B3 9B 9F B7 DB BB 9F 9F D7 9F 97 BB ┆
0x1ce00…1ce80 UnusedSector ┆ FF B7 97 9F B3 BF DF B7 B7 DF 97 9F BF FF 97 9F B3 B7 D7 9F FF BF 9F 97 B3 BF FB B7 BF DB B3 9B BF 97 BF F┆
0x1ce80…1cf00 UnusedSector ┆3 9F B7 9F DB 9F DB 9F 9B BF 97 BF D3 FB 9F F7 D7 9F B7 9F 97 D7 9F 9B 9F DF 93 B7 BB BB B7 97 FF 9F 9B FF 93 B7┆
0x1cf00…1cf80 UnusedSector ┆ BF 9F BB F3 FF FF B7 F3 9B B3 FB 97 D3 B3 FF B3 D7 B3 FB 97 9F 93 93 9F BB DF D7 DB 9B F3 FF BB BB D7 B7 9F 9B ┆
0x1cf80…1d000 UnusedSector ┆DB BF 93 9F DB B7 D3 BF F7 9F BB BF FB F7 97 D3 9B FF 9F FB D3 F3 BF FF DF 93 FB FF B3 FB D7 BF D3 D3 B3┆
0x1d000…1d080 UnusedSector ┆ F7 9B DF FB 9B B7 B3 9F 9F DF 9F 9B DF BB B7 BF 97 93 DB 9B 9F DF 93 BB B3 9F D3 9B D3 9B 9F B7 D3 BF DF BF FB ┆
0x1d080…1d100 UnusedSector ┆D3 D7 9B DB DF B7 DF BF F3 9B 97 BB FF D3 97 FF B7 BF FB 93 9F FB F7 9B 97 B7 B7 FF 9B D7 DB FF B7 F7 9B 93 9F D┆
0x1d100…1d180 UnusedSector ┆B F7 9B FF B3 FB F7 F3 FF F7 FB F3 BF BF B7 BB FF BB BB DF 9F B7 9F DF 97 9F BF FB D3 FF DB 93 9F D3 9F DF BF ┆
0x1d180…1d200 UnusedSector ┆ D3 97 BF BF DF FF 97 D7 DF F7 FB 9F FB 9F BF 93 9F 9F B7 BF DF BF 9B 9B 9F 93 9B FF 97 BF BB FF D3 FF DF B┆
0x1d200…1d280 UnusedSector ┆7 BB F7 FF DB 9B D7 B7 D3 BB FF DF B7 F3 DB DF 9F BF 93 9B B7 B7 B7 FF B3 9F B7 B7 97 97 F7 DB BB B7 F7 B3 9F DF┆
0x1d280…1d300 UnusedSector ┆ F7 B3 BF FB B3 F7 DB 97 F7 DB FB 9B D3 D7 BB B7 9B F7 FF 93 BF 97 FF F7 DF F3 BF DB FB FF 9B 9F F7 9F DF B7 9F ┆
0x1d300…1d380 UnusedSector ┆BF DB 9F F7 F7 FB BF D7 D3 9F 9F 9B DB DB DB 93 DF BF B7 D7 F3 B3 97 9B D3 BF D7 FB FB 9F 93 BF DB D7 F7┆
0x1d380…1d400 UnusedSector ┆ BF B7 B7 9B 93 DF B3 F7 D7 B3 B3 9F D3 BF DF 9B 9F BF 93 F3 FF F7 9B DF 9F F7 93 BF B7 F7 DB 97 F7 FF 9B 9F FF ┆
0x1d400…1d480 UnusedSector ┆D7 9B F7 FF 9F DB FF F7 FF 93 FF DF BF DB FF B7 FF 9B 9F DF 9F 93 9F 93 BF FB 97 DB DF 9B B7 9B FF B7 DB DF FB B┆
0x1d480…1d500 UnusedSector ┆F FF BB DB 9B BB FB FF 9B BB FB F7 BF D7 FF 9B DB FF D3 BF FB 93 F3 97 F7 DB 97 B7 D3 FB F7 B7 FF B7 DB F7 DB ┆
0x1d500…1d580 UnusedSector ┆ 9F 9B 97 D3 BF DB BF FF 9F DB B3 DF 9B 9F DB 9B B7 9F FB BF BB B7 F3 FF FF F7 9F FB BB 9F DB 9F 9B 93 FF D┆
0x1d580…1d600 UnusedSector ┆F D3 D7 BB D7 B3 F7 BF DB 9F DB FB D7 B7 9F 9F DB 9F D7 9B 9B B7 B3 BF B7 9B DF F3 9B 97 F7 DB D3 FF 9F BF FF FF┆
0x1d600…1d680 UnusedSector ┆ DF FF DB F7 9F FB FF F7 DB D3 B3 FB BF BF FF 93 DF FB F3 D7 F7 93 BF FB B3 FF BF F7 DB B7 B7 D7 DF BF 93 BF 93 ┆
0x1d680…1d700 UnusedSector ┆FF B3 B7 D7 BF DB B3 BF B7 FF B7 93 B7 BB BF 93 9F B3 FB B7 B7 97 BF 9F 93 9F B3 DF B7 B7 D7 DB BB 97 9B┆
0x1d700…1d780 UnusedSector ┆ D7 FF 93 B3 B7 FB F7 BF 93 D7 DB D3 DF F3 DF 9F BB FF DF DF B7 F7 B7 93 BF DF 93 D3 FF 9B BF 97 D7 9F 97 F7 9B ┆
0x1d780…1d800 UnusedSector ┆9B F3 9F BB B7 FF 9F B7 DF 9F D7 9B BF D7 DB 9F 9F B3 9F F7 9B 9F D7 FF 9F 9B B3 DF 9F DF D7 D7 97 9F F7 9F B7 D┆
0x1d800…1d880 UnusedSector ┆B F7 9B FF D7 9F FF 97 FF 9F BB BB D7 F7 D7 97 FB B7 BF D7 DF 97 BF DB 97 BF FB D3 FB BB D7 F7 D3 97 BF D7 BF ┆
0x1d880…1d900 UnusedSector ┆ D3 DF B7 9B BF B7 BB BB B3 DF 9B F3 F7 D7 93 DB F7 9B 93 FF F7 9B 9B F7 9B BF 97 DB 9B F7 D3 F7 93 FF B3 F┆
0x1d900…1d980 UnusedSector ┆F FF B7 DB FF BF B7 BF 9B D7 FF D3 F7 B7 9F B3 FF B7 BF F7 BF FF D7 BF FF 9B 9B B7 DB D3 F7 97 9B DB BF FB F7 DB┆
0x1d980…1da00 UnusedSector ┆ D7 B7 BF BF B7 DB F7 BF BF B7 DF 9F FF B7 F7 B7 BF 9F F7 FB F7 BB BB DF B7 F7 B7 BB BF 97 FF D3 BB FF FF 93 DB ┆
0x1da00…1da80 UnusedSector ┆FF D3 9F D7 B7 DB D7 FF BF D7 BF 9B F3 DF 97 DF DF 9B D3 B7 BF D7 F3 BB FB BF BF 9F F7 DB B7 F3 97 BB FF┆
0x1da80…1db00 UnusedSector ┆ D7 9B BB B7 9B FB D7 9F FF D3 9F 9F BF D3 9F 9B 9B 93 BF DB BF 97 BF 9B 9B B7 BF FF 9B F7 9B 97 FF DF 9F DF BF ┆
0x1db00…1db80 UnusedSector ┆9F DF DB D3 9F FB FF 9B DF DF 9F 9F F7 B3 FB BB 9F F7 93 93 BF BB D7 BB BF B7 FB 9B DF F3 B3 93 BB F7 DF D7 B7 9┆
0x1db80…1dc00 UnusedSector ┆7 BF F3 9F D3 B7 9F FF FF FB FF 97 BF F3 DB 9B 93 FF 9F B7 BB 9B D3 DF BB 97 9F BF D3 9B DF B7 DB FF B3 BF DB ┆
0x1dc00…1dc80 UnusedSector ┆ D7 DB BB 97 9F BF 93 DB 97 FF BB 97 9F FF F3 9B DF D3 B3 9F 93 BF DF 97 F7 B3 DF DB FF DF BF 9F FB F7 F3 9┆
0x1dc80…1dd00 UnusedSector ┆7 BB F3 F3 97 FF F3 FF DB B3 97 FF 93 9F 9F B3 BB F7 B3 B7 FF D7 FB 97 D3 93 BF DB FF F3 93 BF DB BB B7 97 9B DF┆
0x1dd00…1dd80 UnusedSector ┆ BF B7 93 BF DB 9F F7 FF 93 97 DB 97 DF B7 D7 93 DB 97 D3 BF D7 93 BB DF F7 FB 97 FF 93 9F 97 BB 93 DF F7 FF 97 ┆
0x1dd80…1de00 UnusedSector ┆B7 FB 93 DF 93 F3 B7 FF 97 B3 BF 93 B7 DF 93 FB 97 9B 9B DF B3 DF DF BB 9F DF FF BF B3 FF FF FB D7 9F FB┆
0x1de00…1de80 UnusedSector ┆ FB 97 DF FB DB 97 DB 97 BF F3 9F 9B D7 FF DB D7 D7 FF FF 97 9F F7 FF 9F BB 9F 97 DF FF FF 9B DB 97 FF D3 9F F7 ┆
0x1de80…1df00 UnusedSector ┆9F F3 97 DF BF D3 BB B7 B7 FB 9F FF D7 9F 9B FF FF FB D7 DB BF 9F 93 9F DB DF 9B DF B3 97 9F B7 BF 9F B3 9F DF F┆
0x1df00…1df80 UnusedSector ┆F D7 FF 9F 9F BF D7 9F F7 DB D7 FF BF 97 F7 9B D7 BB D3 BF 97 9B B7 DB B7 9F 93 FF B3 9F B7 D3 9F D7 FF FF 97 ┆
0x1df80…1e000 UnusedSector ┆ 93 DB F7 9F 9B FB FB B7 F3 B7 9F 9B 9F 9B DB 9F D7 FB 9B B7 BF DF FF DF F7 FB BF BB F3 97 FF B3 9F 93 BF F┆
0x1e000…1e080 UnusedSector ┆7 BF BB FF 97 DB 97 DB F7 B7 B7 BF 9F 9B DB DF 93 DF DB B3 BF 93 9F DB 9F DF BF DB B7 DB FF 97 FB FF FB B7 93 DF┆
0x1e080…1e100 UnusedSector ┆ DF B3 BF 9B DB 9F BB 97 DB F7 D3 FF DB 97 FF B3 9F B7 9B FF BB DF DF 9B F3 B7 FF FF B7 FF BF FF BF FF B7 FF FF ┆
0x1e100…1e180 UnusedSector ┆B7 F7 BF BF BF B7 FF BF BF FF B3 FB 93 D7 B7 9F FF FB FF B7 FF BF B7 B7 BF FF B7 F7 F7 B7 B7 F7 BF BF ┆
0x1e180…1e200 UnusedSector ┆CHECKSUM: #48C0 BB 97 DB F7 D3 FF DB 97 FF B3 9F B7 9B FF BB DF DF 9B F3 B7 FF FF B7 FF BF FF BF FF B7 FF FF ┆
0x1e200…1e280 UnusedSector ┆FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF F┆
0x1e280…1e300 UnusedSector ┆F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF┆
0x1e300…1e380 UnusedSector ┆ FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF F┆
0x1e380…1e400 UnusedSector ┆F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF┆
0x1e400…1e480 UnusedSector ┆ FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ┆
0x1e480…1e500 UnusedSector ┆FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ┆
0x1e500…1e580 UnusedSector ┆ FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ┆
0x1e580…1e600 UnusedSector ┆FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF F┆
0x1e600…1e680 UnusedSector ┆F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF┆
0x1e680…1e700 UnusedSector ┆ FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF F┆
0x1e700…1e780 UnusedSector ┆40 60 83 10 84 14 85 0A 3F 86 03 EA 87 8A F1 7A 8B 8D 88 89 60 80 83 11 84 15 85 0A C7 86 03 FC 87 8A 8B 8D 88 8┆
0x1e780…1e800 UnusedSector ┆9 80 A0 83 12 84 16 85 0B 4F 86 04 0E 87 8A 8B 8D 88 89 A0 C0 83 13 84 17 85 0B D7 86 04 20 87 8A 8B 8D 88 ┆
0x1e800…1e880 UnusedSector ┆ 89 C0 10 82 03 E6 84 03 EA 85 8A F2 0C 8B 8D 88 89 E0 1A 84 85 04 3A 86 11 65 01 87 8A F2 23 8B 8D 88 89 01 0┆
0x1e880…1e900 UnusedSector ┆0 83 11 6F 84 88 89 8A F2 34 8B 8D 01 20 01 82 04 C9 85 88 89 8A F2 A0 8B 8D 01 40 82 85 88 89 8A F2 8C 8B 8D 01┆
0x1e900…1e980 UnusedSector ┆ 60 03 EA 84 11 65 85 88 89 F3 A6 8B 8A 8D 01 80 1D 84 20 87 F3 B5 88 89 8A 8B 8D 01 A0 01 94 01 00 ED 01 03 40 ┆
0x1e980…1ea00 UnusedSector ┆02 17 60 02 64 80 02 65 A0 02 66 C0 02 67 01 00 01 94 01 20 01 D7 01 40 01 D5 01 80 01 D4 FD BE 0E CE 11┆
0x1ea00…1ea80 UnusedSector ┆ 65 45 F9 40 8C 47 1D 9C 02 03 42 04 03 3F 01 0D 0A 10 1D A1 80 81 08 04 15 0E CC 02 0E CD F0 B0 0F 5A 37 89 01 ┆
0x1ea80…1eb00 UnusedSector ┆03 0F D1 04 89 01 03 04 3A 02 86 9C 87 9C 03 D5 10 00 03 10 32 05 10 64 07 10 96 09 10 C8 0B 10 FA 0D 11 2C 0F 0┆
0x1eb00…1eb80 UnusedSector ┆3 EA 04 03 FC 06 04 0E 08 04 20 0A 07 0C 02 F4 0E 18 00 10 11 6F 02 07 6B 08 03 EA 00 04 0A 3F 0C F6 04 32 ┆
0x1eb80…1ec00 UnusedSector ┆ 9C 05 03 04 01 88 21 02 12 0A 11 65 01 04 03 EA 80 04 0D 49 3C 02 01 12 09 03 EA 03 01 01 0F 03 FC 02 01 0F 0┆
0x1ec00…1ec80 UnusedSector ┆R TOP: INTEGER); PROCEDURE RELEASE(TOP: INTEGER); PROCEDURE RUN(ID: IDENTIFIER; VAR PARAM: ARGLIST; VAR LINE: INTEGER; VAR RES┆
0x1ec80…1ed00 UnusedSector ┆ULT: PROGRESULT); PROCEDURE EXIT; PROCEDURE HALT; PROCEDURE SET_TRACE(MASK: INTEGER; DEVICE:IDENTIFIER); PROCEDURE PRINT_TRACE(┆
0x1ed00…1ed80 UnusedSector ┆ON: BOOLEAN); FUNCTION IAND(MASK1, MASK2: UNIV INTEGER): INTEGER; FUNCTION IOR(MASK1, MASK2: UNIV INTEGER): INTEGER; FUNCTION X┆
0x1ed80…1ee00 UnusedSector ┆OR(MASK1, MASK2: UNIV INTEGER): INTEGER; FUNCTION INV(MASK: UNIV INTEGER): INTEGER; FUNCTION LEFTSHIFT(BITS: UNIV INTEGER; SHIF┆
0x1ee00…1ee80 UnusedSector ┆TS: INTEGER): INTEGER; FUNCTION RIGHTSHIFT(BITS: UNIV INTEGER; SHIFTS: INTEGER): INTEGER; FUNCTION GETBITS(BITS: UNIV INTEGER; ┆
0x1ee80…1ef00 UnusedSector ┆ES INPUT PARAMETERS FROM OC: " " " " ORIGINATED BY: <IDENTIFIER> " " PROJECT NO: <LONG INTEGER> " " DATE: <LONG INTEGER> " " FLO┆
0x1ef00…1ef80 UnusedSector ┆PPY DISC NO,CR/D/: <INTEGER> " " SOURCETEXT AND VERSION: <TEXT> " " AREASIZE: <INTEGER> " " AREASTART ADDRESS: <INTEGER> " " WHE┆
0x1ef80…1f000 UnusedSector ┆RE THE TEXT BEFORE : IS SUPPLIED BY THE PROGRAM. " " THE < > IS SUPPLIED AS AN ANSWER BY THE OPERATOR. " " " " FORMAT OF THE PAR┆
0x1f000…1f080 UnusedSector ┆AM DISCFILE: " " " " # MODULE <TEXT> " " # WORDSIZE <INTEGER> " " # PROMSIZE <INTEGER> " " # PROMWIDTH <INTEGER> " " # PARITYPRO┆
0x1f080…1f100 UnusedSector ┆MS <INTEGER> " " [ # <SEQNO> <PROMFILE> <PROMID> <VERSION> <PARITYBIT> ]X " " [ # <SEQNO> <PARITYFILE> <PROMID> <VERSION> ]Y " "┆
0x1f100…1f180 DataSector[»PROMGN«]
[…0x15…]
0x1fc00…1fc80 UnusedSector ┆6F8 06D8 2872 25DF 286A 2056 FF50L 00CA 1BDF 20DF 0ABB 28EC 328A 1BE4 A040 FF58L 1AAA 228A 1BE4 A040 1BAA 1056 00CA 0DDF FF60L 2┆
0x1fc80…1fd00 UnusedSector ┆B6C C07E 2ADF 2B76 01A9 907C 29E7 E6C8 FF68L 07B0 01C8 2D58 E5A8 1B58 156F F8A0 728A FF70L 024F AF96 80BF 024F 3C4C 01C4 8056 4F┆
0x1fd00…1fd80 UnusedSector ┆D6 FF78L 46F3 0458 404C 604A 2FD7 01CA 03C4 2F96 FF80L 20F2 01AA A1F0 80BF 27F0 A558 41F3 10E5 FF88L 4056 004A 1B5F 195F 4F58 4B┆
0x1fd80…1fe00 UnusedSector ┆4F E9BE 604D FF90L 404F 58FB 01CD FE56 9EDD 05C7 444F A9BE FF98L 80BF 004D 1C6F 5960 5FD0 F07C 14D8 FE56 FFA0L 91DD 058A 04C7 1D┆
0x1fe00…1fe80 UnusedSector ┆68 05F8 0DD8 4B4F FE56 FFA8L 75DE 0008 4320 4548 4B43 5553 204D 5245 FFB0L 4F52 0052 9958 4B4F FE56 68DE 0007 4F20 FFB8L 2C4B 50┆
0x1fe80…1ff00 UnusedSector ┆20 4F52 4543 5353 203D 1B68 FE56 FFC0L 56DE FE56 66DE 1B68 40BC E056 0048 0869 FFC8L E0BC 31BD 0571 F056 0048 40BC FFFF FFFF FFD┆
0x1ff00…1ff80 UnusedSector ┆0L FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFD8L FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFE0L 0046 0001 0001 0000 0001 0001 FFF┆
0x1ff80…20000 UnusedSector ┆F 0029 FFE8L 0000 0000 FE00 FE4C 0000 E000 0000 FFFF FFF0L FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFF8L 0020 0020 FE00 FE75 000┆
0x20000…20080 UnusedSector ┆0 A000 FFC5 FFC5 S0 FFF FFFF FFFF FFFF FFD8L FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFE0L 0046 0001 0001 0000 0001 0001 FFF┆
0x20080…20100 UnusedSector ┆ PROMSIZE: 2048 PROMWIDTH: 8 PROM FILE: PROM2 PROMID: 2 VERSION: 1 PARITY BIT: 6 PROM INPUT FILE: PDATA PARAM INPUT FILE: PARAM┆
0x20100…20180 UnusedSector ┆LEFTMOST: BITPOSITION; FIELDLENGTH: BITFIELDLENGTH): INTEGER; PROCEDURE PUTBITS(FROM: UNIV INTEGER; VAR TO_: UNIV INTEGER; LEF┆
0x20180…20200 UnusedSector ┆TTO: BITPOSITION; FIELDLENGTH: BITFIELDLENGTH); FUNCTION TESTBIT(BITS: UNIV INTEGER; BITNUMBER: BITPOSITION): BOOLEAN; PROCEDURE┆
0x20200…20280 UnusedSector ┆ SETBIT(VAR BITS: UNIV INTEGER; BITNUMBER: BITPOSITION); PROCEDURE CLEARBIT(VAR BITS: UNIV INTEGER; BITNUMBER: BITPOSITION); PR┆
0x20280…20300 UnusedSector ┆OCEDURE PACK(UNPACKED, PACKED: IDENTIFIER; NO_OF_BYTES: INTEGER); PROCEDURE UNPACK(PACKED, UNPACKED: IDENTIFIER; NO_OF_BYTES: IN┆
0x20300…20380 UnusedSector ┆TEGER); PROCEDURE PACK_SWAPPED(UNPACKED, PACKED: IDENTIFIER; NO_OF_BYTES: INTEGER); PROCEDURE UNPACK_SWAPPED(PACKED, UNPACKED: I┆
0x20380…20400 UnusedSector ┆DENTIFIER; NO_OF_BYTES: INTEGER); PROCEDURE RESERVE_INTERRUPT(DEVPR: INTEGER; VAR INTRPT: INTEGER); PROCEDURE RELEASE_INTERRUPT┆
0x20400…20480 UnusedSector ┆(INTRPT: INTEGER); PROCEDURE CLEAR_INTERRUPT(INTRPT: INTEGER; VAR COUNT: INTEGER); PROCEDURE WAIT_INTERRUPT(DELAY: INTEGER; INTR┆
0x20480…20500 UnusedSector ┆PT: INTEGER; VAR TIMED_OUT: BOOLEAN; VAR COUNT: INTEGER); PROCEDURE SENSE_IO(DEVICE: INTEGER; VAR STATUS: INTEGER); PROCEDURE ┆
0x20500…20580 UnusedSector ┆READ_IO(DEVICE: INTEGER; VAR DATA: INTEGER); PROCEDURE CONTROL_IO(DEVICE: INTEGER; STATUS: INTEGER); PROCEDURE WRITE_IO(DEVICE: ┆
0x20580…20600 UnusedSector ┆INTEGER; DATA: INTEGER); PROCEDURE SEND_MESSAGE(RECEIVER: PROCESS_NAME; MSG:UNIV MESSAGE_BUFFER; VAR EVENT: INTEGER); PROCEDUR┆
0x20600…20680 UnusedSector ┆4 0E 04 01 0F 04 20 08 01 0F 04 CF 00 04 10 AC 01 4B 07 03 04 2D 01 14 02 06 01 01 48 0F 09 EF 00 04 8C 01 10 04┆
0x20680…20700 UnusedSector ┆ 0A 3F 00 04 80 AC 01 4B 08 03 04 2D 01 01 02 07 01 88 0E 0F D5 04 04 03 EA 30 AC 01 02 12 06 10 CE 06 9C 11 00 ┆
0x20700…20780 UnusedSector ┆08 9C 11 32 0A 9C 11 7C 03 80 54 03 40 01 09 09 11 6F 05 21 90 F1 08 00 39 91 16 02 13 00 18 18 B0 03 01┆
0x20780…20800 UnusedSector ┆ 63 06 EF D8 01 50 16 8E 02 00 01 01 02 AF EF 28 00 07 38 81 1D 03 03 3C B0 10 02 01 18 90 0D 00 02 01 01 16 9E ┆
0x20800…20880 UnusedSector ┆08 01 01 00 05 03 06 02 01 01 3C 13 03 AF 05 0F 54 07 03 AB 1B B0 06 02 01 5B 89 06 01 75 89 03 01 37 89 03 04 0┆
0x20880…20900 UnusedSector ┆0 21 00 89 10 11 65 01 04 C0 03 40 09 02 01 01 08 20 00 10 00 87 F1 0B 8A 03 8B C0 00 8D 0E 8F 88 89 03 D5 ┆
0x20900…20980 UnusedSector ┆ 01 01 20 00 E9 E0 00 E0 03 D5 0C 00 4A 20 04 01 A1 05 39 01 00 0C 20 04 01 A1 05 01 03 3D D1 54 FC 03 D5 03 1┆
0x20980…20a00 UnusedSector ┆D D1 54 4F 4E 03 D5 02 01 03 51 04 01 78 05 E8 C0 00 E0 03 EA 04 0E 64 A0 0E 12 06 04 3A 01 11 05 02 4E 20 90 0E┆
0x20a00…20a80 UnusedSector ┆ A9 80 C0 00 E0 4B E9 0D 9B 49 03 D5 E0 00 E0 41 01 41 58 01 8D C0 00 E0 00 0D 9B 45 E0 00 E0 03 AF 02 07 21 02 ┆
0x20a80…20b00 UnusedSector ┆01 CHECKSUM: #156E 1 04 01 78 05 E8 C0 00 E0 03 EA 04 0E 64 A0 0E 12 06 04 3A 01 11 05 02 4E 20 90 0E┆
0x20b00…20b80 UnusedSector ┆FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF F┆
0x20b80…20c00 DataSector[»PROMGN«]
[…0x2b…]
0x22180…22200 UnusedSector ┆E SEND_ANSWER(ANS: UNIV MESSAGE_BUFFER; EVENT: INTEGER); PROCEDURE WAIT_ANSWER(DELAY: INTEGER; EVENT: INTEGER; VAR ANS: UNIV ME┆
0x22200…22280 UnusedSector ┆SSAGE_BUFFER; VAR TIMED_OUT: BOOLEAN); PROCEDURE WAIT_MESSAGE(DELAY: INTEGER; VAR MSG: UNIV MESSAGE_BUFFER; VAR EVENT: INTEGER;┆
0x22280…22300 UnusedSector ┆ VAR TIMED_OUT: BOOLEAN); PROCEDURE WAIT_EVENT(DELAY: INTEGER; INTRPT: INTEGER; VAR MSG: UNIV MESSAGE_BUFFER; VAR EVENT: INTEG┆
0x22300…22380 UnusedSector ┆ER; VAR EVTTYPE: EVENT_TYPE; VAR COUNT: INTEGER; VAR TIMED_OUT: BOOLEAN); PROCEDURE RESUME_EVENT; PROCEDURE COPY(SOURCE, DEST:┆
0x22380…22400 UnusedSector ┆ BYTE_ADDRESS; NO_OF_BYTES: INTEGER); PROCEDURE GET_ABS_ADDR(STRUCTURE: LINE; VAR WORD_ADDR: WORD_ADDRESS); PROCEDURE GET_ABS_AD┆
0x22400…22480 UnusedSector ┆DR1(STRUCTURE: LINE; VAR WORD_ADDR: WORD_ADDRESS); PROCEDURE GET_ABS_ADDR2(STRUCTURE: LINE; VAR WORD_ADDR: WORD_ADDRESS); FUNCTI┆
0x22480…22500 UnusedSector ┆ON CURRENT_LINE: INTEGER; PROCEDURE CURRENT_LEVEL(VAR LEVEL: INTEGER); PROCEDURE LONG_EXIT(LEVEL: INTEGER); PROCEDURE ASSIGNBITS┆
0x22500…22580 UnusedSector ┆(VALUE: UNIV BITVALUE; VAR P: UNIV PAGE; FIRSTBIT, NO_OF_BITS: INTEGER); PROCEDURE SKIPBITS(VALUE: UNIV BITVALUE; P: UNIV PAGE;┆
0x22580…22600 UnusedSector ┆ VAR FIRSTBIT: INTEGER; NO_OF_BITS: INTEGER; VAR BITSSKIPPED: INTEGER); PROGRAM MAIN(VAR PARAM: ARGLIST); EDURE ASSIGNBITS┆
0x22600…22680 UnusedSector ┆ 00 30 40 29 00 3C 1F 01 B9 05 27 08 40 C0 5F 09 02 1B 03 05 C0 B4 13 05 C1 22 3A 97 90 40 03 9A 07 10 90 90 41 ┆
0x22680…22700 UnusedSector ┆40 20 1D 04 C4 49 14 9A 07 37 15 08 40 0D 11 0A 0F 00 0D 0C 0B 0A 40 08 08 0A 04 0D 51 08 18 17 08 08 0B┆
0x22700…22780 UnusedSector ┆ 04 08 98 80 1B 00 17 98 0C 00 61 17 93 11 01 0B 01 08 5C 5D 82 03 DC 80 1D E8 17 41 41 46 55 54 41 20 44 00 08 ┆
0x22780…22800 UnusedSector ┆1C B4 4A 24 20 41 4C 20 4F 44 00 19 54 1A 56 24 01 C2 A9 40 1D E8 38 41 45 46 55 54 41 00 17 4B B1 02 B2 01 6C 1┆
0x22800…22880 UnusedSector ┆A 0F 1D E8 4B 44 20 41 4C 20 54 41 52 00 08 1C B4 7E 4C 01 C1 A9 40 5F 5F 45 20 53 3A 00 07 30 33 07 20 01 ┆
0x22880…22900 UnusedSector ┆L % / # + f yL yM b yN yN yO "k░ yP !n _ c !z yQ f\ b yQ % / # + fQ yQ yR b yS y┆
0x22900…22980 UnusedSector ┆S yT "k░ yU ! _ c ! yV f1 b yV % / # f yV yW ba yX yX yY "k░ yZ ! _ c ! y[ f b y[ ┆
0x22980…22a00 UnusedSector ┆"PAGE" "**********************************************************************" " MAIN PROCEDURES " "*************************┆
0x22a00…22a80 UnusedSector ┆*********************************************" PROCEDURE DEFINE_CONSTANTS ; "10" VAR L : LONG_INTEGER ; "15" I : INTEGER ; "┆
0x22a80…22b00 UnusedSector ┆16" BEGIN "20" PROMS_PR_ROW := PROM_AREA.WIDTH DIV PHYS_PROM.WIDTH ; "30" PROMS_PR_COLOUMN := SHORT(( PROM_AREA.SIZE / "40" ┆
0x22b00…22b80 UnusedSector ┆PHYS_PROM.SIZE ) ); "45" NO_OF_PROMS := PROMS_PR_ROW * PROMS_PR_COLOUMN ; "50" HEXA_PR_ROW := PROM_AREA.WIDTH DIV 4 ; "60" HE┆
0x22b80…22c00 UnusedSector ┆XA_PR_SINGLE_PROM := PHYS_PROM.WIDTH DIV 4 ; "70" L := LONG(HEXA_PR_ROW) * PHYS_PROM.SIZE ; "75" HEXA_PR_PROM_ROW := SHORT( L ┆
0x22c00…22c80 UnusedSector ┆); "80" FOR I := 0 TO SHORT( PHYS_PROM.SIZE ) - 1 DO "82" PARITY_AREA[ I ] := -1 ; "84" PARITY_BITS_IN_USE := 0 ; "86" FOR ┆
0x22c80…22d00 UnusedSector ┆I:= 1 TO (NO_OF_PROMS + NO_OF_PARITY_PROMS ) DO "100" PROM[ I ].CHECKSUM := 0L ; "110" END ; "90" "**************************┆
0x22d00…22d80 UnusedSector ┆********************************************" "PAGE" PROCEDURE READ_FROM_PARITY_AREA( LEFT_BIT , "10" ROW : INTEGER ; "20" ┆
0x22d80…22e00 UnusedSector ┆ VAR HEXA : CHAR ) ; "40" VAR BIN : INTEGER ; "50" BEGIN "60" BIN := GETBITS( PARITY_AREA[ ROW ] , "70" LEFT_BIT , "80" 4 )┆
0x22e00…22e80 UnusedSector ┆ ; "90" HEXA := BIN_TO_ASCII( BIN ) ; "100" END "READ FROM PARITY AREA" ; "110" PROCEDURE READ_HEXA( S : STREAM ; "10" VA┆
0x22e80…22f00 UnusedSector ┆R HEXA : CHAR ; "20" VAR NO : INTEGER ) ; "30" VAR CH : CHAR ; "40" BEGIN "50" IF NO MOD 32 = 0 "60" THEN "70" BEGIN "80" ┆
0x22f00…22f80 UnusedSector ┆ REPEAT "90" INBYTE( S , CH ); "100" UNTIL "110" CH = 'L' ; "120" END; "130" REPEAT "140" INBYTE( S , CH ) "150" UNTIL "┆
0x22f80…23000 UnusedSector ┆160" XXXHEXADIGIT( CH ); "170" HEXA := CH ; "180" NO := NO + 1 ; "190" END "READ HEXA"; "200" PROCEDURE IN_IDENT( S: STR┆
0x23000…23080 UnusedSector ┆EAM ; "10" VAR IDF: IDENTIFIER ); "20" VAR CH: CHAR; "30" I : INTEGER; "40" BEGIN "50" FOR I:= 1 TO IDLENGTH DO "60" IDF[I┆
0x23080…23100 UnusedSector ┆] := NULL; "70" REPEAT "80" INBYTE( S , CH ); "90" UNTIL "100" NOT ( (CH=NL) OR (CH=SP) OR (CH=EM)) ; "110" IDF[1] := CH ; ┆
0x23100…23180 UnusedSector ┆"120" I:=1; "130" REPEAT "140" INBYTE( S , CH ); "150" I:= I + 1 ; "160" IDF[ I ] := CH ; "170" UNTIL "180" (CH=NL) OR (C┆
0x23180…23200 UnusedSector ┆H=SP) OR (CH=EM) OR (I>=IDLENGTH) ; "190" IDF[ I ] := NULL ; "195" END "IN_IDENT" ; "200" "PAGE" PROCEDURE GET_OC_PARAMS┆
0x23200…23280 UnusedSector ┆( OC_IN , OC_OUT : STREAM ); "10" BEGIN "20" OUTNL( OC_OUT ); "30" OUTSTRING( OC_OUT, 'ORIGINATED BY: (:0:)'); "40" OUTNL( O┆
0x23280…23300 UnusedSector ┆C_OUT ); "50" IN_IDENT( OC_IN , ID_RECORD.ORIGINATOR ); "60" OUTNL(OC_OUT); "70" OUTSTRING( OC_OUT, 'PROJECT NO: (:0:)' ); ┆
0x23300…23380 UnusedSector ┆"80" OUTNL(OC_OUT); "90" IN_LONG_INTEGER( OC_IN , ID_RECORD.PROJECT_NO); "100" OUTNL(OC_OUT); "110" OUTSTRING( OC_OUT , 'DA┆
0x23380…23400 UnusedSector ┆TE: (:0:)' ); "120" OUTNL(OC_OUT); "130" IN_LONG_INTEGER( OC_IN , ID_RECORD.DATE ); "140" OUTNL(OC_OUT); "150" OUTSTRING(OC┆
0x23400…23480 UnusedSector ┆_OUT, 'FLOPPY DISC NO, CR/D: (:0:)' ); "160" OUTNL(OC_OUT); "170" ININTEGER( OC_IN , ID_RECORD.FLOPPY_DISC_NO ); "180" OUTNL┆
0x23480…23500 UnusedSector ┆(OC_OUT); "190" OUTSTRING( OC_OUT ,'SOURCE TEXT AND VERSION: (:0:)' ); "200" OUTNL(OC_OUT); "210" INLINE(OC_IN , ID_RECORD.SO┆
0x23500…23580 UnusedSector ┆URCE_TEXT ); "220" OUTNL(OC_OUT); "230" OUTSTRING( OC_OUT, 'AREASIZE: (:0:)' ); "240" OUTNL(OC_OUT); "250" IN_LONG_INTEGER(┆
0x23580…23600 UnusedSector ┆ OC_IN , PROM_AREA.SIZE ); "260" OUTNL(OC_OUT); "270" OUTSTRING( OC_OUT, 'AREA STARTADDRESS: (:0:)' ); "280" OUTNL(OC_OUT); ┆
0x23600…23680 UnusedSector ┆"290" IN_LONG_INTEGER( OC_IN, PROM_AREA.START_ADDRESS); "300" END "GET_OC_PARAMS" ; "310" "PAGE" PROCEDURE GET_DISC_PARA┆
0x23680…23700 UnusedSector ┆MS( S: STREAM ); "10" VAR I , SEQ_NO, PROM_NO, "20" P_NO : INTEGER ; "25" CH : CHAR ; "30" TXT : TEXT ; "40" IDF : IDENTIFI┆
0x23700…23780 UnusedSector ┆ER ; "50" BEGIN "60" FOR I:= 1 TO 5 DO "70" BEGIN "80" REPEAT "90" INBYTE( S , CH ); "100" UNTIL "110" CH= '#'; "120" I┆
0x23780…23800 UnusedSector ┆N_IDENT( S , IDF ) ; "130" CASE I OF "140" 1: BEGIN "150" IF IDF <> 'MODULE(:0:)(:0:)(:0:)(:0:)(:0:)(:0:)' "160" THEN XXXER┆
0x23800…23880 UnusedSector ┆ROR('MODULE PARAM(:0:)') "170" ELSE INLINE( S , ID_RECORD.MODULE ); "180" END; "190" 2: BEGIN "200" IF IDF <> 'WORDSIZE(:0:)┆
0x23880…23900 UnusedSector ┆(:0:)(:0:)(:0:)' "210" THEN XXXERROR('WORDSIZE PARAM(:0:)') "220" ELSE ININTEGER( S , PROM_AREA.WIDTH ); "230" END; "240" 3:┆
0x23900…23980 UnusedSector ┆ BEGIN "250" IF IDF <> 'PROMSIZE(:0:)(:0:)(:0:)(:0:)' "260" THEN XXXERROR('PROMSIZE PARAM(:0:)' ) "270" ELSE IN_LONG_INTEGER(┆
0x23980…23a00 UnusedSector ┆ S , PHYS_PROM.SIZE ); "280" END; "290" 4: BEGIN "300" IF IDF <> 'PROMWIDTH(:0:)(:0:)(:0:)' "310" THEN XXXERROR('PROMWIDTH P┆
0x23a00…23a80 UnusedSector ┆ARAM(:0:)' ) "320" ELSE ININTEGER( S , PHYS_PROM.WIDTH ); "330" END ; "340" 5: BEGIN "341" IF IDF <> 'PARITYPROMS(:0:)' "342┆
0x23a80…23b00 UnusedSector ┆" THEN XXXERROR('PARITY PROM PARAM(:0:)' ) "343" ELSE ININTEGER( S , NO_OF_PARITY_PROMS ) ; "344" END "345" END "CASE"; "350┆
0x23b00…23b80 UnusedSector ┆" END "FOR I"; "360" NO_OF_PROMS := ( PROM_AREA.WIDTH DIV PHYS_PROM.WIDTH) * "320" SHORT( PROM_AREA.SIZE / PHYS_PROM.SIZE ); ┆
0x23b80…23c00 UnusedSector ┆"380" PROM_NO := 0; "390" P_NO := 0 ; "395" REPEAT "400" PROM_NO := PROM_NO + 1 ; "410" IF PROM_NO = NO_OF_PROMS + 1 "412"┆
0x23c00…23c80 UnusedSector ┆ THEN P_NO := 0; "414" P_NO := P_NO + 1 ; "416" REPEAT "420" INBYTE( S , CH ); "430" UNTIL "440" CH='#'; "450" ININTEGE┆
0x23c80…23d00 UnusedSector ┆R( S , SEQ_NO ); "460" IF SEQ_NO <> P_NO "470" THEN XXXERROR('PARAM PROM SEQUENCE ERROR(:0:)' ); "475" IN_IDENT( S , PROM[ PR┆
0x23d00…23d80 UnusedSector ┆OM_NO ].FILE ); "480" ININTEGER( S, PROM[ PROM_NO ].IDNO ); "490" ININTEGER( S , PROM[ PROM_NO ].VERSION ); "500" IF PROM_NO ┆
0x23d80…23e00 UnusedSector ┆ ORIGINATED BY: LI PROJECT NO: 1556 DATE: 801124 MODULE: TARA FLOPPY DIS┆
0x23e00…23e80 UnusedSector ┆C NO CR/D/ 0 SOURCE TEXT AND VERSION: TARA AREASIZE: 4096 AREA START ADD┆
0x23e80…23f00 UnusedSector ┆RESS: 0 PROMSIZE: 2048 PROMWIDTH: 8 PROM FILE: PROM3 PROMID: 3 VERSION: 1 PARITY BIT: 5 PROM INPUT FILE: TARAH PARAM INPUT FILE┆
0x23f00…23f80 UnusedSector ┆: PROMP 02 4A 08 03 C0 00 E0 A9 80 0D 9B 05 0D 9B 0B 30 08 01 90 F1 93 04 09 06 08 0B 09 1A A0 07 0A 01 06 08┆
0x23f80…24000 UnusedSector ┆ 07 1A 09 0B 01 90 F1 C9 90 05 06 91 00 0A 14 9B 0D 42 1D 9C 83 0A 11 65 01 00 6E 89 02 63 EF E0 40 07 02 10 39 ┆
0x24000…24080 UnusedSector ┆01 3B 0B 01 3E 03 0B 0D 07 21 0F 58 2D BC 1C 49 97 0D 9B 07 21 0C 50 0D 10 02 01 55 0B 01 58 03 5A 0B 10 02 02 5┆
0x24080…24100 UnusedSector ┆F 0C 01 62 04 0D 07 21 0F 01 2A 0F 21 05 02 9B 42 0D 9B 84 EE 00 AE 01 1E 0D 9B 82 46 80 4D 0D 9B 03 0F 2B ┆
0x24100…24180 UnusedSector ┆ 01 0F BA 2B 03 AE 9A 03 10 0F 2B 01 0F BA 2B 03 01 DA 04 96 0C 10 99 01 9B 9C EA 20 D1 2F 03 11 04 03 62 40 41┆
0x24180…24200 UnusedSector ┆ AA 80 02 BD 80 90 69 1D A0 06 00 90 01 40 01 4D 80 06 00 B0 01 40 01 4D 80 A0 05 01 40 00 01 4D 02 BD 80 80 4B ┆
0x24200…24280 UnusedSector ┆0D A0 06 00 80 01 40 01 4D 01 00 D0 01 01 DD 02 3D 01 5B AD 80 90 34 1D 80 06 00 A0 01 40 01 4D 01 00 D0 01 01 4┆
0x24280…24300 UnusedSector ┆0 01 DD 02 1D 01 8D 80 A0 1C 2D 01 00 D0 01 40 01 1D 02 1D 01 40 42 00 44 23 07 1F A0 04 1F 21 01 80 80 ┆
0x24300…24380 UnusedSector ┆00 44 80 80 D0 0A 01 DD 01 FD 40 51 01 5E 01 01 40 01 40 5E 01 01 41 40 B0 08 92 93 01 D3 01 9D B0 1D 90 08 90 9┆
0x24380…24400 UnusedSector ┆1 01 D1 01 9D 90 13 B0 A0 14 A0 0E 23 39 12 38 29 41 A4 90 91 01 D1 40 00 80 80 00 00 80 01 DF 01 EF 00 00 21 53┆
0x24400…24480 UnusedSector ┆ 0B 53 42 08 24 35 41 90 01 01 01 04 41 1F 01 01 12 7E 01 7D 01 50 2C 03 D5 8E 03 D5 01 64 FE 07 07 11 65 ┆
0x24480…24500 UnusedSector ┆ 49 4B 01 B0 4D 3C 01 45 49 42 47 43 80 48 E9 02 0E 81 A1 00 68 26 80 0E 86 02 13 02 95 02 96 00 03 D5 90 43 7D ┆
0x24500…24580 UnusedSector ┆A9 02 81 03 44 E9 4E 2C 01 08 05 82 EF 81 E2 03 AF E9 0F 54 FE EC 40 02 97 80 98 A9 0F 54 AD 02 01 17 A9 02 E9 4┆
0x24580…24600 UnusedSector ┆E 84 02 81 E2 53 0F 54 FE D3 40 02 97 80 B1 A9 0F 54 02 94 26 4A 04 2E 4B 01 2E 4C 20 01 20 11 6F 82 41 83 42 84┆
0x24600…24680 UnusedSector ┆ 43 12 EB 02 C3 44 01 09 81 06 6C C0 22 04 81 00 0A 28 4A 01 5B 05 BC 0E 01 CB 0B 34 07 5B 0A BC 05 01 C┆
0x24680…24700 UnusedSector ┆B 02 01 09 44 01 39 B1 04 32 2C 1B 13 4D AB 6A EB 05 28 01 81 05 02 8B 8C 40 01 3D 03 05 8E 00 40 01 3D 09 03 03┆
0x24700…24780 UnusedSector ┆ 0F 54 89 01 29 96 80 06 45 46 83 09 02 62 09 11 6F 68 88 58 60 41 01 9E 42 81 66 42 81 10 62 03 13 03 EA D0 1F ┆
0x24780…24800 UnusedSector ┆E9 40 6A 00 0F 54 FE C3 A9 40 41 0F 54 40 02 99 00 E9 FE 36 A9 40 02 9A 00 E9 FE AF A9 59 82 AA 02 03 26 ┆
0x24800…24880 UnusedSector ┆05 13 09 03 D0 09 E9 40 6D 01 FE 0E A9 40 41 02 03 0E 09 01 45 06 45 45 46 08 07 01 02 01 0A 09 0C 12 02 4B 01 0┆
0x24880…24900 UnusedSector ┆B 09 08 09 06 68 3C 42 09 42 FF 00 10 00 4B 9D 01 03 09 42 E0 00 E2 01 43 46 01 02 14 02 58 07 43 42 C0 00 E2 AB┆
0x24900…24980 UnusedSector ┆ 03 D5 01 64 FC B3 4F 01 FF 52 05 6A 02 24 EB 95 03 D5 01 64 03 D5 00 04 E1 00 72 E9 04 05 0A 48 00 38 30 40 01 ┆
0x24980…24a00 UnusedSector ┆ 06 A9 80 E9 05 01 0A 0F E9 49 02 E9 04 01 00 30 0F 54 15 01 40 62 AB 0B B4 0A AB 0B 38 01 0B C4 A9 80 0F┆
0x24a00…24a80 UnusedSector ┆ 67 81 0A 01 F8 57 EC E9 0F 67 81 0A 01 F8 4E A9 80 E9 0F 5A 81 0C 01 F8 44 A9 80 E9 0C 0F 60 01 02 1C 0F 60 81 ┆
0x24a80…24b00 UnusedSector ┆0E 01 F8 34 A9 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 E9 04 05 E9 02 E9 04 D1 05 01 4E 64 A4 83 40 C┆
0x24b00…24b80 UnusedSector ┆4 08 A9 80 E9 4E 06 E9 4E 02 E9 04 D1 00 40 30 80 17 80 0E 8A 03 11 80 09 8A 07 C4 04 01 11 C4 A9 81 A9 8┆
0x24b80…24c00 UnusedSector ┆0 0F 0E 11 6F 09 D1 02 02 92 C9 02 03 96 01 C9 03 02 9B 02 C9 02 02 A0 03 C9 11 6F 1A 00 09 04 E0 00 E3 A9 12 03┆
0x24c00…24c80 UnusedSector ┆ 03 40 32 00 3A 11 6F 05 0F 54 07 0F 54 03 29 19 13 06 00 04 C0 00 E0 33 E9 00 0F 0E 28 8D 01 03 A9 80 E9 0F 0E ┆
0x24c80…24d00 UnusedSector ┆0E 1E 1C 0A C2 A1 03 ED 05 05 4A 4C 8A 2C 04 20 40 01 B9 45 11 1E 1C 3C 00 F7 8A 1C 1E 1C 3C 00 F7 83 A9 80 01 ┆
0x24d00…24d80 UnusedSector ┆ D7 0F 6C 81 08 01 F7 78 1E 1C 50 00 F7 49 0F 0E 08 54 53 80 84 44 44 80 25 43 44 80 27 41 44 80 23 4D 44 ┆
0x24d80…24e00 UnusedSector ┆80 4F 4D 4C 80 5C 50 4C 80 6A 4D 4E 80 77 54 44 80 8E 50 44 80 8A 58 45 80 D6 3E 11 6F 04 01 6B 43 93 46 0F 0F 0┆
0x24e00…24e80 UnusedSector ┆1 D6 4B 11 65 5A 01 5E 00 E4 03 01 06 56 41 44 80 06 5E 89 4B 01 87 5F 5E 82 10 0A 2F E0 00 E0 CA 42 03 C0 00 E0┆
0x24e80…24f00 UnusedSector ┆ 0A 2F 10 01 9B 73 9A 76 0F 0F FE FD 7B 4A 02 FE F8 80 4B 2C 00 AC 84 1B 06 B2 0F 0F FE EB 8D 4A 02 FE E6┆
0x24f00…24f80 UnusedSector ┆ 92 CA 01 02 07 96 97 99 0F 0F 01 FE D6 9F 4A 1E 1F FE 67 49 01 0D A7 93 AA 0F 0F 01 FE C5 B0 4A 00 01 B3 03 E6 ┆
0x24f80…25000 UnusedSector ┆8D 41 42 E0 00 E0 22 E0 00 C0 00 E0 80 96 C5 18 0F 0F 01 FE A9 CC 04 03 EA 1D 00 D4 03 12 06 D6 1D 0F 0E 54 44 E┆
0x25000…25080 UnusedSector ┆0 14 45 0C 5F 88 E0 00 E0 9A 12 03 C0 00 E0 0C 5F 88 01 FE E8 F0 84 09 5B 1E 1F 02 FE 0F 3D 4B B1 10 43 21 0D ┆
0x25080…25100 UnusedSector ┆ 7A E0 00 E0 CA 42 03 C0 00 E0 0D 7A 01 FE C9 10 FE C6 12 92 15 00 00 0F 0E 1E 1C 8C 01 F6 38 A5 01 61 91 0┆
0x25100…25180 UnusedSector ┆2 0F 0E D0 12 85 90 09 0F 0E 4D 54 D0 32 01 44 54 D0 0B FD FC 04 3A 01 D0 16 41 FD FE 2B 43 43 D0 0E 43 52 D0 0A┆
0x25180…25200 UnusedSector ┆ 54 53 D0 05 01 50 4F D0 17 31 03 D5 00 66 04 3A 85 9E 03 E1 1E 1C 40 80 56 04 04 3A 00 01 D1 53 04 3A 01 51 03 ┆
0x25200…25280 UnusedSector ┆D5 11 2C 4F 11 32 0A 9C 00 06 D1 FD B9 66 1D 98 01 01 F5 FE 6D 1D 9A 01 01 F5 F7 1E 1C 01 01 F5 C8 90 15 ┆
0x25280…25300 UnusedSector ┆A6 17 11 65 41 49 3C 0F 0C E7 CD 45 03 31 0A 3F 85 87 42 1D 9C 82 0A 3F 85 1D 9C 80 01 F5 D0 A7 1E 1C 01 01 F5 A┆
0x25300…25380 UnusedSector ┆0 90 3D A4 12 11 65 41 49 3C 0C E7 0F DC 45 03 47 1D 9C 82 83 84 B7 A3 53 0A E9 0A 0F 0C E7 1D A8 06 49 00 09 30┆
0x25380…25400 UnusedSector ┆ 40 01 06 0E 01 0B A9 80 E9 C0 22 C1 00 01 00 08 32 A1 02 01 02 0A 1E A8 09 0A 00 39 21 38 30 40 5C 82 29 09 ┆
0x25400…25480 UnusedSector ┆ 1E A8 45 C5 03 40 00 45 04 A9 80 E9 FE 00 49 1A 19 02 62 0F 54 AC 02 FC EA 02 9C 03 FC E5 A9 80 04 3A 85 80┆
0x25480…25500 UnusedSector ┆ 83 0C 04 3D 01 01 FD 48 88 C4 86 4A 01 04 11 65 4B 00 04 3A 01 61 11 65 01 24 0F D2 06 94 75 4D 4B 29 90 53 EA ┆
0x25500…25580 UnusedSector ┆40 0F 91 30 30 9D 01 05 1F 22 11 65 05 02 FC AA 02 C4 4C 00 01 FC A3 01 C2 58 05 01 02 FC 9B 02 01 4B 4C FC F5 3┆
0x25580…25600 UnusedSector ┆C 04 01 45 05 02 04 FC 8C 04 01 96 03 01 02 FC 84 02 01 0E 3F 34 0E 0F 91 40 30 30 9D 01 05 1F 22 1C 0F F┆
0x25600…25680 UnusedSector ┆C 63 01 05 05 2B 20 AA 00 9A 4C 12 02 4B 5B 4A 01 4D 4B 60 C5 11 00 04 3A 01 01 C1 03 D5 00 06 C1 FC 8A 95 AA 43┆
0x25680…25700 UnusedSector ┆ 10 01 1D D1 02 FC B3 80 CF AA 1A E9 4C 0E 01 0F 8C 02 9D 15 9D 0F 8C 8C AF 02 A9 81 C1 A9 80 E9 04 3A 02 86 AC ┆
0x25700…25780 UnusedSector ┆81 02 00 41 01 F4 9D 41 0C 03 D5 00 06 D3 03 D5 01 56 F8 A4 0E 04 3A 04 3E 5A 43 43 A0 0C 41 30 30 A0 07 86 ┆
0x25780…25800 UnusedSector ┆ 00 A0 08 86 00 29 04 3E C1 A9 81 04 3D C1 A9 80 E9 04 3A 88 80 80 0F 0F 7A 0A 45 4C 04 3A 88 80 89 1C 06 CE ┆
0x25800…25880 UnusedSector ┆46 03 04 3A 89 C1 1D 01 42 30 30 A0 08 0F 61 32 34 81 0F 60 2F 02 D1 FB CB 80 02 4A 02 FB C5 80 19 C0 03 01 00 0┆
0x25880…25900 UnusedSector ┆1 01 00 4C A0 04 19 C0 01 01 1D 02 02 D1 0F 54 0F 54 FB A6 02 AC FB A2 D1 02 3C FB FB A9 81 C1 A9 80 E9 04 3A 88┆
0x25900…25980 UnusedSector ┆ 80 89 01 0F 7F 04 03 E8 60 03 0F 7F 10 A7 16 19 E9 04 3A 02 87 AC B0 03 C1 A9 81 87 00 A0 19 87 00 0B 01┆
0x25980…25a00 UnusedSector ┆ EE 0F 87 0A 0A 02 BA 23 BA C6 0C 8E 0A 01 01 9B 13 9B AE C1 22 A9 80 AE 04 EA E0 00 E0 11 7C 00 51 81 05 82 05 ┆
0x25a00…25a80 UnusedSector ┆83 08 08 00 06 01 C1 04 05 01 02 50 01 AA 80 20 F3 EE E0 00 E0 00 00 89 01 0D 00 00 00 00 00 00 00 00 00 00 00 0┆
0x25a80…25b00 UnusedSector ┆0 00 00 00 00 00 00 00 00 00 00 00 00 00 F1 F4 00 E0 00 FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FF 00 ┆
0x25b00…25b80 UnusedSector ┆ CHECKSUM: #6C9E 05 01 02 50 01 AA 80 20 F3 EE E0 00 E0 00 00 89 01 0D 00 00 00 00 00 00 00 00 00 00 00 0┆
0x25b80…25c00 UnusedSector ┆ 14 CC 69 BC FB 99 BC 5E CB 73 6C F7 D8 56 48 96 F2 D8 EC 7E 58 58 5E BB 14 CD 2E 14 CE E9 AD 83 83 83 B┆
0x25c00…25c80 UnusedSector ┆C 5E BC 5E 99 56 48 97 99 8A 56 48 97 D8 49 71 9B 4E BB 8B 9A 72 BC 56 48 FB BB CD C0 9A BC 9A 72 56 CE 7E 58 4A┆
0x25c80…25d00 UnusedSector ┆ 8A BB EC 7E 58 99 BC 69 7C D8 49 56 DF D8 99 BC 69 7E D8 49 71 BC 58 3C BC 58 D8 56 DE 49 56 DF 6C 56 DE 56 DE ┆
0x25d00…25d80 UnusedSector ┆68 BC 56 DE 4B E4 49 56 DF C3 28 BC 49 56 DF D8 99 56 48 97 99 C9 56 48 97 99 56 48 97 A3 97 6C 56 DE 49 56 ┆
0x25d80…25e00 UnusedSector ┆ DF 56 DF 56 DF E4 7C 58 E4 7C 58 E4 7C 58 BE 4D 9E 86 56 48 70 E4 7C 59 E4 7C 58 E4 7C 59 E4 7C 59 E4 7C 59 ┆
0x25e00…25e80 UnusedSector ┆E4 7C 58 E4 7C 58 58 58 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 0┆
0x25e80…25f00 UnusedSector ┆0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 E0 E0 00 7C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 6E┆
0x25f00…25f80 UnusedSector ┆ 00 CHECKSUM: #EDD0 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 0┆
0x25f80…26000 UnusedSector ┆ ░ 6 0 P 1 ; 1 ░ 1 z 6 6 ┆
0x26000…26080 UnusedSector ┆ 0 U 6 1 ; 1 ; 0 - 1 ░ ┆
0x26080…26100 UnusedSector ┆ . 1 1 z 6 6 6 1 ░ 1 6 1 ┆
0x26100…26180 UnusedSector ┆ 1 ░ # 1 # 1 { % ░ 6 0 P 1 ; 1 ░ ┆
0x26180…26200 UnusedSector ┆ 1 z 6 1 ░ 1 ░ 1 i 8 " 6 ┆
0x26200…26280 UnusedSector ┆6 0 > 1 ; 6 0 B 1 ; 1 k 8 C H E C K S ┆
0x26280…26300 UnusedSector ┆U M : 6 0 E 1 ; 0 V - 1 @ 1 5 @ ┆
0x26300…26380 UnusedSector ┆ 3 . 1 6 0 > 1 ┆
0x26380…26400 UnusedSector ┆ ; 6 0 < 1 ; 1 6 6 1 ░ 1 @ ┆
0x26400…26480 UnusedSector ┆ 1 5 @ 3 6 1 ░ 1 1 ░ 1 6 ┆
0x26480…26500 UnusedSector ┆) 0 1 1 ░ ; 6 6 6 6 6 6 Y 6 0 ┆
0x26500…26580 UnusedSector ┆> 1 ; 6 0 B 1 ; 1 v 8 O R I G I N A T E D ┆
0x26580…26600 UnusedSector ┆ B Y : 6 0 B 1 ; 1 3 6 6 ┆
0x26600…26680 UnusedSector ┆ 0 > 1 ; 6 0 B 1 ; 1 8 P R O J E C T ┆
0x26680…26700 UnusedSector ┆ N O : 6 0 M 1 ; 1 3 1 ┆
0x26700…26780 UnusedSector ┆ ORIGINATED BY: LI PROJECT NO: 1556 DATE: 801124 MODULE: TARA FLOPPY DIS┆
0x26780…26800 UnusedSector ┆C NO CR/D/ 0 SOURCE TEXT AND VERSION: TARA AREASIZE: 4096 AREA START ADD┆
0x26800…26880 UnusedSector ┆RESS: 0 PROMSIZE: 2048 PROMWIDTH: 8 PROM FILE: PROM2 PROMID: 2 VERSION: 1 PARITY BIT: 3 PROM INPUT FILE: TARAH PARAM INPUT FILE┆
0x26880…26900 UnusedSector ┆: PROMP 38 3E 53 5D 99 9E C8 C9 F0 36 45 04 05 24 2A 32 00 00 01 02 02 02 02 00 00 00 00 00 00 02 00 00 00 00┆
0x26900…26980 UnusedSector ┆ 00 00 00 02 00 00 00 00 00 00 00 00 00 00 04 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 ┆
0x26980…26a00 UnusedSector ┆01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 0┆
0x26a00…26a80 UnusedSector ┆1 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 03 ┆
0x26a80…26b00 UnusedSector ┆ 30 30 30 30 30 30 30 30 30 30 31 31 31 31 31 31 31 31 31 31 32 32 32 32 32 32 32 32 32 32 33 33 33 33 33 33 3┆
0x26b00…26b80 UnusedSector ┆3 33 33 33 34 34 34 34 34 34 34 34 34 34 35 35 35 35 35 35 35 35 35 35 36 36 36 36 02 4F 0D 00 00 03 02 43 30 0D┆
0x26b80…26c00 UnusedSector ┆ 00 00 03 02 3F 00 00 0A 3E 00 00 0A 0D 00 00 2A 45 45 45 00 00 0A 02 52 30 30 03 02 57 30 30 54 53 46 03 02 57 ┆
0x26c00…26c80 UnusedSector ┆56 49 18 8D 56 49 31 C9 BB 48 BC 27 58 1F 4E F8 D8 CD CB C6 D8 FB 83 32 7E D8 48 96 D8 56 48 96 18 97 48┆
0x26c80…26d00 UnusedSector ┆ BC 48 7D D8 16 16 16 CF CD C0 16 16 56 48 56 70 48 BC 96 BB EC 7E D8 4F 16 48 8D 97 BB 1F 8B 42 BC 1E F6 D8 1D ┆
0x26d00…26d80 UnusedSector ┆CD E4 42 D8 49 81 19 C9 E5 42 D8 4A 82 0A D8 81 D8 85 27 27 80 D8 BB 1F 8B 42 BC 1E 19 8A F6 D8 4A 0A 27 D8 81 8┆
0x26d80…26e00 UnusedSector ┆0 56 49 56 71 49 BC 56 49 56 71 49 BC 7B 97 CC 56 74 A8 56 70 BF 1C 56 74 18 56 70 4F 56 77 BF BB 1B F2 18 ┆
0x26e00…26e80 UnusedSector ┆ ; 6 0 B 1 ; 1 8 P R O M S I Z E : 6 ┆
0x26e80…26f00 UnusedSector ┆ WHERE X= NUMBER OF PROMS(PARITY PROMS EXCLUDED). " " Y= NUMBER OF PARITY PROMS. " " X AND Y ARE REPETITIONS FACTORS. " " " " OU┆
0x26f00…26f80 UnusedSector ┆TPUT " " " " FOR EACH GENERATED PROM , THE PROGRAM WRITES ON THE " " OPERATORS CONSOLE: " " " " PROMID: <INTEGER> VERSION: <INTE┆
0x26f80…27000 UnusedSector ┆GER> " " CHECKSUM: <HEXADECIMAL NUMBER> " " " " EXIT " " THE PROGRAM RELINQUISHES CONTROL, WHEN ALL THE SPECIFIED " " PROMS ARE ┆
0x27000…27080 UnusedSector ┆CREATED OR IF A PARAMETER ERROR IS FOUND. " " " "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" " " " E┆
0x27080…27100 UnusedSector ┆XCEPTIONS " " " " IF A PARAMETER IS ILLEGAL, THE PROGRAM STOPS AND " " ISSUES AN APPROPRIATE ERRORMESSAGE. " " " "XXXXXXXXXXXXXX┆
0x27100…27180 UnusedSector 0x00[128]
[…0x2…]
0x27280…27300 UnusedSector ┆<= NO_OF_PROMS "504" THEN ININTEGER( S , PROM[ PROM_NO ].PARITY_BIT ) ; "510" UNTIL "520" PROM_NO >= NO_OF_PROMS + NO_OF_PARI┆
0x27300…27380 UnusedSector ┆TY_PROMS ; "530" END "GET DISC PARAMS"; "540" "PAGE" PROCEDURE CHECK_PARAMS; VAR TEST : INTEGER ; BEGIN TEST := SHORT( ┆
0x27380…27400 UnusedSector ┆PROM_AREA.SIZE ) ; "40" IF ( TEST < MIN_AREASIZE ) OR ( TEST > MAX_AREASIZE ) THEN XXXERROR('AREASIZE CONTENT(:0:)' ); TES┆
0x27400…27480 UnusedSector ┆T := SHORT( PHYS_PROM.SIZE ) ; "80" IF ( TEST < MIN_PROMSIZE ) OR ( TEST > MAX_PROMSIZE ) OR ( TEST > SHORT( PROM_AREA.SIZE ) ┆
0x27480…27500 UnusedSector ┆) "100" OR ( SHORT( PROM_AREA.SIZE) MOD TEST <> 0 ) "110" THEN XXXERROR( 'PROMSIZE CONTENT(:0:)' ); TEST := SHORT( PROM_ARE┆
0x27500…27580 UnusedSector ┆A.START_ADDRESS ) ; "130" IF ( TEST < 0 ) OR ( TEST >= SHORT( PROM_AREA.SIZE ) ) "140" THEN XXXERROR( ' START ADDRESS CONTENT(┆
0x27580…27600 UnusedSector ┆:0:)' ); TEST := PROM_AREA.WIDTH ; IF ( TEST < MIN_WORDSIZE ) OR (TEST > MAX_WORDSIZE ) OR (TEST MOD 4 <>0 ) THEN XXXERROR┆
0x27600…27680 UnusedSector ┆( 'WORDSIZE CONTENT(:0:)' ); TEST := PHYS_PROM.WIDTH ; IF ( TEST < MIN_PROMWIDTH ) OR (TEST > MAX_PROMWIDTH ) OR ( TEST MOD ┆
0x27680…27700 UnusedSector ┆4 <> 0 ) OR ( TEST > PROM_AREA.WIDTH ) "230" THEN XXXERROR( 'PROMWIDTH CONTENT(:0:)' ); END " CHECK PARAMS"; "PAGE" PRO┆
0x27700…27780 UnusedSector ┆CEDURE PROM_WORD_TREATMENT( F_OUT , F_IN : STREAM ; "10" ROW, "20" PROM_NO : INTEGER ; "40" VAR HEXA_NO : INTEGER ) ; "50" C┆
0x27780…27800 UnusedSector ┆ONST CR = '(:10:)' ; VAR I, "60" J , "62" ADDR , "66" LEFT_BIT , "68" HEXAS_OUTPUT, "70" BIN, "80" WORD, "90" P_BIT , "9┆
0x27800…27880 UnusedSector ┆5" ONES : INTEGER ; "100" HEXA : CHAR ; "110" BEGIN "120" ADDR := SHORT( PROM_AREA.START_ADDRESS ) ; "130" IF ( ROW= ADDR )┆
0x27880…27900 UnusedSector ┆ AND ( ADDR > 0 ) AND ( PROM_NO <= PROMS_PR_ROW ) "135" THEN "140" BEGIN "150" I:= PHYS_PROM.WIDTH ; IF I=4 THEN WORD := #F┆
0x27900…27980 UnusedSector ┆ ELSE IF I=8 THEN WORD:= #FF ELSE WORD := #FFFF ; FOR I :=0 TO (ADDR - 1 ) DO PROM[PROM_NO].CHECKSUM := PROM[PROM_NO].CHECK┆
0x27980…27a00 UnusedSector ┆SUM + LONG( WORD ) ; OUTBYTE(F_OUT , STX ) ; "151" OUTBYTE( F_OUT , CR ) ; "152" ADDR := ADDR*HEXA_PR_SINGLE_PROM ; "153" ┆
0x27a00…27a80 UnusedSector ┆ FOR J := 1 TO ADDR DIV 32 DO "154" BEGIN "155" FOR I:= 1 TO 32 DO "156" BEGIN "157" OUTBYTE( F_OUT , 'F' ); "158" IF ( I ┆
0x27a80…27b00 UnusedSector ┆MOD HEXA_PR_SINGLE_PROM = 0 ) "158.5" THEN OUTBYTE( F_OUT , SP ) ; "159" END; "160" OUTBYTE( F_OUT , CR ); "161" OUTBYTES( F┆
0x27b00…27b80 UnusedSector ┆_OUT , NULL , 7 ); "162" END; "163" FOR J:= 1 TO ADDR MOD 32 DO "165" BEGIN "166" OUTBYTE( F_OUT , 'F' ) ; "167" IF ( J MO┆
0x27b80…27c00 UnusedSector ┆D HEXA_PR_SINGLE_PROM = 0 ) "168" THEN OUTBYTE( F_OUT , SP ) ; "169" END; "170" END; "195" WORD := 0 ; "200" FOR I:= 1 TO ┆
0x27c00…27c80 UnusedSector ┆HEXA_PR_SINGLE_PROM DO "210" BEGIN "220" IF PROM_NO > NO_OF_PROMS "230" THEN "231" BEGIN "232" LEFT_BIT := "233" (PROM_NO-┆
0x27c80…27d00 UnusedSector ┆NO_OF_PROMS)*PHYS_PROM.WIDTH -4*(I-1) - 1 ; "234" READ_FROM_PARITY_AREA( LEFT_BIT , ROW , HEXA ) ; "235" END "237" ELSE READ_┆
0x27d00…27d80 UnusedSector ┆HEXA( F_IN , HEXA , HEXA_NO ) ; "236" IF (I=1) AND (ROW=0 ) THEN "240" BEGIN "250" OUTBYTE( F_OUT , STX ) ; "260" OUTBYTE( ┆
0x27d80…27e00 UnusedSector ┆F_OUT , CR ); "270" END; "280" OUTBYTE( F_OUT , HEXA ); "290" HEXAS_OUTPUT := ROW*HEXA_PR_SINGLE_PROM + I ; "300" IF ( LONG(┆
0x27e00…27e80 UnusedSector ┆ ROW ) = PHYS_PROM.SIZE - 1L ) AND "310" ( I = HEXA_PR_SINGLE_PROM ) "320" THEN "325" BEGIN "330" OUTBYTE( F_OUT , SP ) ; "3┆
0x27e80…27f00 UnusedSector ┆35" OUTBYTE(F_OUT , ETX ); "350" OUTBYTES( F_OUT , NULL , 7 ) ; "354" OUTNL( F_OUT ) ; "356" END "360" ELSE "370" BEGIN "3┆
0x27f00…27f80 UnusedSector ┆80" IF ((HEXAS_OUTPUT MOD 32) = 0 ) "400" THEN "410" BEGIN "420" OUTBYTE( F_OUT , SP ) ; "425" OUTBYTE( F_OUT , CR ); "430"┆
0x27f80…28000 UnusedSector ┆ OUTBYTES( F_OUT , NULL , 7 ); "440" END "450" ELSE "460" BEGIN "470" IF HEXAS_OUTPUT MOD HEXA_PR_SINGLE_PROM = 0 "480" TH┆
0x28000…28080 UnusedSector ┆EN OUTBYTE( F_OUT , SP ); "490" END; "500" END; "510" BIN := ASCII_TO_BIN( HEXA ) ; "520" WORD := LEFTSHIFT( WORD , 4 ) + B┆
0x28080…28100 UnusedSector ┆IN ; "530" END "FOR I " ; "540" PROM[ PROM_NO].CHECKSUM := "600" PROM[PROM_NO].CHECKSUM + LONG( WORD ) ; "610" IF PROM_NO ┆
0x28100…28180 UnusedSector ┆<= NO_OF_PROMS "612" THEN "613" P_BIT := PROM[ PROM_NO ].PARITY_BIT ; "614" IF (PROM_NO <= NO_OF_PROMS ) AND ( P_BIT >=0) AN┆
0x28180…28200 UnusedSector ┆D ( P_BIT <= 15) "620" THEN "630" BEGIN "640" ONES := 0; "650" FOR I := 0 TO PHYS_PROM.WIDTH -1 DO "660" IF TESTBIT( WORD ,┆
0x28200…28280 UnusedSector ┆ I ) "670" THEN ONES := ONES + 1 ; "680" IF TESTBIT(PARITY_BITS_IN_USE , P_BIT ) "690" THEN "700" BEGIN "710" IF GETBITS( O┆
0x28280…28300 UnusedSector ┆NES , 0 , 1 ) <> "720" GETBITS( PARITY_AREA[ROW] , P_BIT , 1 ) "730" THEN SETBIT( PARITY_AREA[ ROW ] , P_BIT ) "740" ELSE CLE┆
0x28300…28380 UnusedSector ┆ARBIT(PARITY_AREA[ROW ] , P_BIT ) "750" END "760" ELSE "770" BEGIN "780" IF TESTBIT( ONES , 0 ) "790" THEN CLEARBIT( PARITY┆
0x28380…28400 UnusedSector ┆_AREA[ROW], P_BIT ) "800" ELSE SETBIT( PARITY_AREA[ROW] , P_BIT ) "810" END; "820" END; "830" END "PROMWORD TREATMENT" ; "84┆
0x28400…28480 UnusedSector ┆0" "PAGE" FUNCTION SHORT1( L_INT: UNIV LONG1 ) : INTEGER ; "10" BEGIN "20" SHORT1 := L_INT.LSB ; "30" END; "40" "PAGE"┆
0x28480…28500 UnusedSector ┆ PROCEDURE EXTRACT_PARITY_PROM( F_OUT : STREAM ; "10" PROM_NO : INTEGER ) ; "20" VAR J, "30" COL : INTEGER ; "40" BEGIN ┆
0x28500…28580 UnusedSector ┆"50" COL := 16 DIV PHYS_PROM.WIDTH - PROM_NO ; "60" J:= 0 ; "70" REPEAT "80" PROM_WORD_TREATMENT( F_OUT , S_IN , J , "110" ┆
0x28580…28600 UnusedSector ┆PROM_NO , HEXA_NO ) ; "115" J := J + 1 ; "120" UNTIL "130" J >=SHORT( PHYS_PROM.SIZE ) ; "140" OUTNL( F_OUT ) ; "142" OUTS┆
0x28600…28680 UnusedSector ┆TRING( F_OUT , 'CHECKSUM: (:0:)' ); OUTHEXA( F_OUT ,SHORT1( PROM[ PROM_NO ].CHECKSUM ) , 5 ) ; "146" OUTNL( F_OUT ) ; OUTBYTE┆
0x28680…28700 UnusedSector ┆( F_OUT , EM ); "149" END " EXTRACT PARITY PROM" ; "150" "PAGE" PROCEDURE EXTRACT_PROM( F_OUT,F_IN : STREAM ; "10" PROM_N┆
0x28700…28780 UnusedSector ┆O : INTEGER ); "20" VAR ROW , COL , I , S : INTEGER ; "30" HEXA : CHAR ; "40" START,J ,OFFSET_NO : LONG_INTEGER ; "50" BEGI┆
0x28780…28800 UnusedSector ┆N "60" HEXA_NO := 0 ; "70" ROW := ( PROM_NO - 1 ) DIV PROMS_PR_ROW ; "80" COL := ( PROM_NO - 1 ) MOD PROMS_PR_ROW ; "90" IF┆
0x28800…28880 UnusedSector ┆ ROW=0 "110" THEN START := PROM_AREA.START_ADDRESS "120" ELSE START := 0L ; "130" IF ROW >= 1 "140" THEN "150" BEGIN "160"┆
0x28880…28900 UnusedSector ┆ J := PHYS_PROM.SIZE - PROM_AREA.START_ADDRESS ; "170" " ROW POSITIONING " "175" OFFSET_NO := J * LONG( HEXA_PR_ROW ) "180" ┆
0x28900…28980 UnusedSector ┆+ LONG( HEXA_PR_PROM_ROW * ( ROW-1 ) ); "185" J := 0L ; "190" REPEAT "200" J:= J + 1L ; "205" READ_HEXA( F_IN , HEXA , HEXA_┆
0x28980…28a00 UnusedSector ┆NO ) ; "210" UNTIL "215" J >= OFFSET_NO ; "218" END " ROW > 1 " ; "220" J := START ; "230" WHILE "235" J < PHYS_PROM.SIZE┆
0x28a00…28a80 UnusedSector ┆ DO "240" BEGIN "245" "POSITION IN THE PROMAREA WORD " "250" FOR S := 1 TO COL*HEXA_PR_SINGLE_PROM DO "260" READ_HEXA( F_IN ┆
0x28a80…28b00 UnusedSector ┆, HEXA , HEXA_NO ); "270" PROM_WORD_TREATMENT( "280" F_OUT , F_IN , SHORT(J) , PROM_NO , HEXA_NO ); "285" " SKIP THE REST O┆
0x28b00…28b80 UnusedSector ┆F THE LINE " "290" FOR S := 1 TO "300" (PROMS_PR_ROW - COL - 1 )* HEXA_PR_SINGLE_PROM DO "305" READ_HEXA( F_IN , HEXA, HEXA_N┆
0x28b80…28c00 UnusedSector ┆O ); "310" J := J + 1L ; "320" END; "330" OUTNL( F_OUT ) ; "331" OUTSTRING( F_OUT , 'CHECKSUM: (:0:)' ); "332" OUTHEXA( F_O┆
0x28c00…28c80 UnusedSector ┆UT ,SHORT1( PROM[ PROM_NO ].CHECKSUM ) , 5 ) ; "334" OUTNL( F_OUT ) ; "336" OUTBYTE( F_OUT , EM ) ; "340" I := PROM[ PROM_NO┆
0x28c80…28d00 UnusedSector ┆ ].PARITY_BIT ; "342" IF ( I>=0) AND ( I<=15 ) "344" THEN SETBIT( PARITY_BITS_IN_USE , I ) ; "346" END " EXTRACT PROM" ; "350┆
0x28d00…28d80 UnusedSector ┆" "PAGE" PROCEDURE PRINT_ID_RECORD( S: STREAM; "10" PROM_NO: INTEGER ); "20" BEGIN "30" OUTNL(S); "40" OUTSTRING( S , 'O┆
0x28d80…28e00 UnusedSector ┆RIGINATED BY: (:0:)' ); "50" OUTSTRING( S , ID_RECORD.ORIGINATOR ); "60" OUTNL(S); "70" OUTSTRING( S , 'PROJECT NO: (:0:)' )┆
0x28e00…28e80 UnusedSector ┆; "80" OUT_LONG_INTEGER( S , ID_RECORD.PROJECT_NO , 8 ); "90" OUTNL(S); "100" OUTSTRING( S , 'DATE: (:0:)' ); "110" OUT_LON┆
0x28e80…28f00 UnusedSector ┆G_INTEGER( S , ID_RECORD.DATE , 8 ); "120" OUTNL( S ) ; "130" OUTSTRING( S , 'MODULE: (:0:)' ); "140" OUTTEXT( S , ID_RECORD┆
0x28f00…28f80 UnusedSector ┆.MODULE , 60 ) ; "150" OUTNL(S); "160" OUTSTRING( S , 'FLOPPY DISC NO CR/D/(:0:)' ); "170" OUTINTEGER( S , ID_RECORD.FLOPPY_┆
0x28f80…29000 UnusedSector ┆DISC_NO , 4 ); "180" OUTNL(S); "190" OUTSTRING( S, 'SOURCE TEXT AND VERSION: (:0:)' ); "200" OUTTEXT( S , ID_RECORD.SOURCE_T┆
0x29000…29080 UnusedSector ┆EXT ,60 ); "210" OUTNL(S); "220" OUTSTRING( S , 'AREASIZE: (:0:)' ); "230" OUT_LONG_INTEGER( S , PROM_AREA.SIZE , 7 ); "240"┆
0x29080…29100 UnusedSector ┆ OUTNL(S); "250" OUTSTRING( S , 'AREA START ADDRESS: (:0:)' ); "260" OUT_LONG_INTEGER( S , PROM_AREA.START_ADDRESS , 7 ); "2┆
0x29100…29180 UnusedSector ┆70" OUTNL(S); "280" OUTSTRING( S , 'PROMSIZE: (:0:)' ); "290" OUT_LONG_INTEGER( S , PHYS_PROM.SIZE , 6) ; "300" OUTNL(S); ┆
0x29180…29200 UnusedSector ┆"310" OUTSTRING( S , 'PROMWIDTH: (:0:)' ); "320" OUTINTEGER( S , PHYS_PROM.WIDTH , 4 ); "330" OUTNL(S); "340" OUTSTRING( S ┆
0x29200…29280 UnusedSector ┆, 'PROM FILE: (:0:)' ); "350" OUTSTRING( S , PROM[ PROM_NO ].FILE ); "360" OUTNL(S); "370" OUTSTRING( S , 'PROMID: (:0:)' );┆
0x29280…29300 UnusedSector ┆ "380" OUTINTEGER( S ,PROM[ PROM_NO ].IDNO , 5 ); "390" OUTSTRING( S , ' VERSION: (:0:)' ); "400" OUTINTEGER( S , PROM[ PROM┆
0x29300…29380 UnusedSector ┆_NO ].VERSION , 3 ); "410" IF PROM_NO <= NO_OF_PROMS "420" THEN "422" BEGIN "423" OUTSTRING( S , ' PARITY BIT: (:0:)' ); "4┆
0x29380…29400 UnusedSector ┆24" OUTINTEGER( S , PROM[ PROM_NO ].PARITY_BIT , 2 ); "425" END; "427" OUTNL(S); "440" OUTSTRING( S , 'PROM INPUT FILE: (:0┆
0x29400…29480 UnusedSector ┆:)' ); "450" OUTTEXT( S , PROM_INPUT_FILE , IDLENGTH ) ; "460" OUTNL( S ); "465" OUTSTRING( S , 'PARAM INPUT FILE: (:0:)' );┆
0x29480…29500 UnusedSector ┆ "470" OUTTEXT( S , PARAM_INPUT_FILE , IDLENGTH ) ; "480" OUTNL(S); "540" END "PRINT_ID_RECORD"; "550" "PAGE" PROCEDURE┆
0x29500…29580 UnusedSector ┆ OC_CHECKSUM( PROM_NO : INTEGER ) ; "10" VAR S : STREAM ; "15" BEGIN "20" OPEN( S , 'OC(:0:)' , OUTPUT ) ; "30" OUTNL(S); "5┆
0x29580…29600 UnusedSector ┆00" OUTSTRING( S , 'PROMID: (:0:)' ); "380" OUTINTEGER( S ,PROM[ PROM_NO ].IDNO , 5 ); "390" OUTSTRING( S , ' VERSION: (:0:)┆
0x29600…29680 UnusedSector ┆' ); "400" OUTINTEGER( S , PROM[ PROM_NO ].VERSION , 3 ); "410" OUTNL(S); "370" OUTSTRING( S , 'CHECKSUM: (:0:)' ); "520" OU┆
0x29680…29700 UnusedSector ┆THEXA( S , SHORT1( PROM[ PROM_NO ].CHECKSUM ) , 5 ) ; "530" OUTNL( S ) ; "535" CLOSE( S ) ; "536" END "OC CHECKSUM" ; "540" ┆
0x29700…29780 UnusedSector ┆ ); "400" OUTINTEGER( S , PROM[ PROM_NO ].VERSION , 3 ); "410" OUTNL(S); "370" OUTSTRING( S , 'CHECKSUM: (:0:)' ); "520" OU┆
0x29780…29800 UnusedSector 0x00[128]
0x29800…29880 UnusedSector ┆ OC ┆
0x29880…29900 UnusedSector ┆1]:=ERROR; 0417 MESSAGE1[2]:=QHEAD[Q_SER].LTH ; 0418 MESSAGE1[3]:=MESSAGE1[2] ; 0419 " INCREMENT MTCB QUEUE COUNTER: " 0420 CREA┆
0x29900…29980 UnusedSector ┆TE_MTCB( QPOOL[WORK_PNT].MTCB_INDEX ); 0421 " DISPLAY NEW QUEUE LENGTH IF REQUIRED " 0422 IF TESTBIT( QHEAD[Q_SER ].CNTL, 15 ) T┆
0x29980…29a00 UnusedSector ┆ ░░ ░O @ % j - % ┆
0x29a00…29a80 UnusedSector 0x00[128]
0x29a80…29b00 UnusedSector ┆"**********************************************************************" " CONSTANTS " "****************************************┆
0x29b00…29b80 UnusedSector ┆******************************" CONST MAX_PARITY_PROMS = 4 ; "20" MAX_PROMS = 64 ; "30" STX = '(:2:)' ; "40" ETX = '(:3:)' ┆
0x29b80…29c00 UnusedSector ┆; "50" MIN_AREASIZE = 8 ; "60" MIN_PROMSIZE = 8 ; "80" MAX_AREASIZE = 16384 ; "70" MAX_PROMSIZE = 16384 ; "90" MIN_PROMWIDT┆
0x29c00…29c80 UnusedSector ┆H = 4 ; "100" MAX_PROMWIDTH = 16 ; "110" MIN_WORDSIZE = 4 ; "120" MAX_WORDSIZE = 16 ; "130" "*******************************┆
0x29c80…29d00 UnusedSector ┆***************************************" " MAIN VARIABLES " "*******************************************************************┆
0x29d00…29d80 UnusedSector ┆***" TYPE PROMTYPE = RECORD "10" FILE : IDENTIFIER ; "20" IDNO : INTEGER ; "30" VERSION : INTEGER ; "40" PARITY_BIT : INTE┆
0x29d80…29e00 UnusedSector ┆GER ; "50" CHECKSUM : LONG_INTEGER "60" END; "70" TYPE LONG1 = RECORD LSB : INTEGER ; MSB : INTEGER END; TYPE ID_RECOR┆
0x29e00…29e80 UnusedSector ┆D_TYPE = RECORD "100" ORIGINATOR : IDENTIFIER ; "110" PROJECT_NO : LONG_INTEGER ; "120" DATE : LONG_INTEGER ; "130" MODULE :┆
0x29e80…29f00 UnusedSector ┆ TEXT ; "140" FLOPPY_DISC_NO : INTEGER ; "150" SOURCE_TEXT : TEXT "160" END; "170" TYPE PROM_AREA_TYPE = RECORD "190" SIZE┆
0x29f00…29f80 UnusedSector ┆ : LONG_INTEGER ; "200" START_ADDRESS : LONG_INTEGER ; "210" WIDTH : INTEGER ; "220" PARITY_BITS_IN_USE : INTEGER "230" END;┆
0x29f80…2a000 UnusedSector ┆ "240" TYPE PHYS_PROM_TYPE = RECORD "260" SIZE : LONG_INTEGER ; "270" WIDTH : INTEGER "280" END; "290" VAR PROM : ARRAY [1┆
0x2a000…2a080 UnusedSector ┆..MAX_PROMS] OF PROMTYPE ; "292" ID_RECORD : ID_RECORD_TYPE ; "296" PROM_AREA : PROM_AREA_TYPE ; "298" PHYS_PROM : PHYS_PROM_┆
0x2a080…2a100 UnusedSector ┆TYPE ; "300" PARITY_AREA : ARRAY [0..MAX_PROMSIZE] OF INTEGER ; "310" S_IN , S_OUT : STREAM ; "320" PROM_INPUT_FILE : IDENTIF┆
0x2a100…2a180 UnusedSector ┆IER ; "330" PARAM_INPUT_FILE : IDENTIFIER ; "340" PROMS_PR_ROW , "350" PROMS_PR_COLOUMN , "360" NO_OF_PROMS , "370" PARITY_┆
0x2a180…2a200 UnusedSector ┆BITS_IN_USE , "315" NO_OF_PARITY_PROMS , "375" HEXA_PR_ROW , "380" HEXA_PR_PROM_ROW , "390" HEXA_PR_SINGLE_PROM , "400" HEX┆
0x2a200…2a280 UnusedSector ┆A_NO , "410" ROW_NO , "420" COLOUMN_NO , "430" I , J : INTEGER ; "440" "PAGE" OUMN , "360" NO_OF_PROMS , "370" PARITY_┆
0x2a280…2a300 UnusedSector ┆_PR_SINGLE_PROM , "400" HEXA_NO , "410" ROW_NO , "420" COLOUMN_NO , "430" I , J : INTEGER ; "440" S_PR_COLOUMN , "360" ┆
0x2a300…2a380 UnusedSector ┆ 1 ░ ; 1 ░ 1 6 " 0 F 1 ░ ┆
0x2a380…2a400 UnusedSector ┆ ; 1 ░ 1 6 # 0 F 1 ░ ; 1 ░┆
0x2a400…2a480 UnusedSector ┆ 1 6 $ 0 F 1 ░ ; 1 ░ 3 ┆
0x2a480…2a500 UnusedSector ┆ 1 6 % 0 M 1 ░ ; 1 ░ 3 ┆
0x2a500…2a580 UnusedSector ┆ 1 6 & 0 > 1 ░ ; 6 ' 6 ( w x 6 ) 6 * ┆
0x2a580…2a600 UnusedSector ┆ ; 1 ░ 1 6 # 0 F 1 ░ ; 1 ░┆
0x2a600…2a680 UnusedSector ┆ 1 6 $ 0 F 1 ░ ; 1 ░ 3 ┆
0x2a680…2a700 UnusedSector ┆]:=ERROR; 0451 MESSAGE1[2]:=QHEAD[Q_SER].LTH ; 0452 END 0453 END "CASE" 0454 ELSE 0455 MESSAGE1[1]:=ERROR; 0456 " SEND ANSWER TO┆
0x2a700…2a780 UnusedSector ┆ ░░ ░O @ % j - % ┆
0x2a780…2a800 UnusedSector 0x00[128]
0x2a800…2a880 UnusedSector ┆ OC ┆
0x2a880…2a900 UnusedSector ┆ CALLING APPLICATION MODULE: " 0457 DISPLAY(CHR(MESSAGE1[1])); 0458 DISPLAY(CHR(MESSAGE1[2])); 0459 DISPLAY(CHR(MESSAGE1[3])); 0┆
0x2a900…2a980 UnusedSector ┆460 DISPLAY(CHR(MESSAGE1[4])); 0461 DISPLAY(CHR(MESSAGE1[5])); 0462 DISPLAY(NL); 0463 DISPLAY('I'); 0464 DISPLAY(NL); 0465 SEND_┆
0x2a980…2aa00 UnusedSector ┆"PAGE" "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" " MAIN PROGRAM " "****************************┆
0x2aa00…2aa80 UnusedSector ┆******************************************" BEGIN "10" OPEN( S_IN , 'OC(:0:)' , INPUT ); "20" OPEN( S_OUT, 'OC(:0:)' , OUTPU┆
0x2aa80…2ab00 UnusedSector ┆T ); "30" GET_OC_PARAMS( S_IN , S_OUT ) ; "40" CLOSE( S_IN); "50" CLOSE( S_OUT ) ; "60" IF PARAM[P].TAG = IDTYPE "62" THEN ┆
0x2ab00…2ab80 UnusedSector ┆PARAM_INPUT_FILE := PARAM[ P ].ID "63" ELSE PARAM_INPUT_FILE := 'OC(:0:) ' ; "65" IF PARAM[S].TAG = IDTYPE "66" THEN PROM_INP┆
0x2ab80…2ac00 UnusedSector ┆UT_FILE := PARAM[S].ID "67" ELSE PROM_INPUT_FILE := 'OC(:0:) ' ; "69" OPEN( S_IN , PARAM_INPUT_FILE , INPUT ) ; "70" GET_DISC┆
0x2ac00…2ac80 UnusedSector ┆_PARAMS( S_IN ); "80" CLOSE( S_IN ) ; "90" CHECK_PARAMS ; "95" DEFINE_CONSTANTS ; "100" FOR I:=1 TO ( NO_OF_PROMS + NO_OF_PA┆
0x2ac80…2ad00 UnusedSector ┆RITY_PROMS ) DO "110" BEGIN "120" OPEN( S_IN , PROM_INPUT_FILE , INPUT ); "130" OPEN( S_OUT , PROM[I].FILE , OUTPUT ) ; "140"┆
0x2ad00…2ad80 UnusedSector ┆ PRINT_ID_RECORD( S_OUT , I ); "150" IF I <= NO_OF_PROMS "162" THEN EXTRACT_PROM( S_OUT , S_IN , I ) "164" ELSE EXTRACT_PARI┆
0x2ad80…2ae00 UnusedSector ┆TY_PROM( S_OUT , I); "166" CLOSE( S_IN ) ; "170" CLOSE( S_OUT ) ; "180" OC_CHECKSUM( I ); "185" END; "190" END. "200" "***┆
0x2ae00…2ae80 UnusedSector ┆*******************************************************************" " END OF PROGRAM " "***************************************┆
0x2ae80…2af00 UnusedSector ┆*******************************" "PAGE" "170" CLOSE( S_OUT ) ; "180" OC_CHECKSUM( I ); "185" END; "190" END. "200" "***┆
0x2af00…2af80 UnusedSector ┆ PROCEDURE SEND_ANSWER(ANS: UNIV MESSAGE_BUFFER; EVENT: INTEGER); PROCEDURE WAIT_ANSWER(DELAY: INTEGER; EVENT: INTEGER; VAR ANS┆
0x2af80…2b000 UnusedSector ┆: UNIV MESSAGE_BUFFER; VAR TIMED_OUT: BOOLEAN); PROCEDURE WAIT_MESSAGE(DELAY: INTEGER; VAR MSG: UNIV MESSAGE_BUFFER; VAR EVENT:┆
0x2b000…2b080 UnusedSector ┆ INTEGER; VAR TIMED_OUT: BOOLEAN); PROCEDURE WAIT_EVENT(DELAY: INTEGER; INTRPT: INTEGER; VAR MSG: UNIV MESSAGE_BUFFER; VAR EVE┆
0x2b080…2b100 UnusedSector ┆ "UNPACK_L_INT"; "*******************************************" " " " " QACCESS PASCAL PREFIX PROCEDURE " " " "****************┆
0x2b100…2b180 UnusedSector ┆***************************" PROCEDURE QACCESS(OPCODE:OPC; "OPERATION CODE " Q_ID:QIDTYPE; "QUEUE IDENTIFICATION " VAR ENTRY┆
0x2b180…2b200 UnusedSector ┆_NO:INTEGER; "ENTRY NO IN QUEUE " VAR Q_ELEMENT:MTCBPNTRTYPE; "TIMETAGGED MTCB INDEX " VAR Q_LTH:INTEGER; "ACTUAL LENGTH OF QU┆
0x2b200…2b280 UnusedSector ┆EUE " VAR COMP_CODE:INTEGER); "COMPLETION CODE " "*******************************************" " " " LOCAL DECLARATIONS OF QAC┆
0x2b280…2b300 UnusedSector ┆CESS PASCAL " " PREFIX PROCEDURE " " " "*******************************************" CONST STDDELAY=100; "STANDARD DELAY FOR "┆
0x2b300…2b380 UnusedSector ┆ "WAIT ANSWER " NAMELENGTH=6; "LENGTH OF PROCESS NAME " QACCNAME='QACCES'; "PROCESS NAME OF QACCESS " VAR GEN_L_INT:L_INT; ┆
0x2b380…2b400 UnusedSector ┆"GENERAL LONG INTEGER FOR " "INPUT TO UNPACK_L_INT " MESSAGE:MESSAGE_BUFFER; " " EVENT:INTEGER; " VARIABLES FOR SEND_ " DELA┆
0x2b400…2b480 UnusedSector ┆Y:INTEGER; " MESSAGE/WAIT_ANSWER " QACC:PROCESS_NAME; " " TIMEOUT:BOOLEAN; " " "*******************************************" ┆
0x2b480…2b500 UnusedSector ┆" " " START OF QACCESS " " " "*******************************************" BEGIN "*******************************************┆
0x2b500…2b580 UnusedSector ┆" " " " INITIALISE STANDARD VARIABLES " " " "*******************************************" DELAY:=STDDELAY; PACK(QACCNAME,QACC┆
0x2b580…2b600 UnusedSector ┆.NAME,NAMELENGTH); "*******************************************" " " " BUILD MESSAGE BUFFER " " " "****************************┆
0x2b600…2b680 UnusedSector ┆***************" MESSAGE[2]:=Q_ID[1]; "PACK TERMINAL ID " MESSAGE[3]:=Q_ID[2]; "PACK QUEUE ID " CASE OPCODE OF RD: BEGIN ┆
0x2b680…2b700 UnusedSector ┆"READ CASE " MESSAGE[1]:=OPCODE_READ; "PACK OPCODE " MESSAGE[4]:=ENTRY_NO; "PACK ENTRY NUMBER " END; DEL :BEGIN "DELETE CAS┆
0x2b700…2b780 UnusedSector ┆E " MESSAGE[1]:=OPCODE_DELETE; "PACK OPCODE " MESSAGE[4]:=ENTRY_NO; "PACK ENTRY NUMBER " END; WR : BEGIN "WRITE CASE " MES┆
0x2b780…2b800 UnusedSector ┆SAGE[1]:=OPCODE_WRITE; "PACK OPCODE AND MTCB NO " MESSAGE[4]:=Q_ELEMENT.MTCB_INDEX; END; LTH: MESSAGE[1]:=OPCODE_LENGTH "LEN┆
0x2b800…2b880 UnusedSector ┆GTH CASE, PACK OPCODE " END "CASE"; "*******************************************" " " " SEND MESSAGE BUFFER TO QACCESS PROGRA┆
0x2b880…2b900 UnusedSector ┆CORD "260" SIZE : LONG_INTEGER ; "270" WIDTH : INTEGER "280" END; "290" VAR PROM : ARRAY [1..MAX_PROMS] OF PROMTYPE ; "292" ┆
0x2b900…2b980 UnusedSector ┆ ID_RECORD : ID_RECORD_TYPE ; "296" PROM_AREA : PROM_AREA_TYPE ; "298" PHYS_PROM : PHYS_PROM_TYPE ; "300" PARITY_AREA : ARRAY┆
0x2b980…2ba00 UnusedSector ┆ [0..MAX_PROMSIZE] OF INTEGER ; "310" S_IN , S_OUT : STREAM ; "320" PROM_INPUT_FILE : IDENTIFIER ; "330" PARAM_INPUT_FILE : I┆
0x2ba00…2ba80 UnusedSector ┆DENTIFIER ; "340" PROMS_PR_ROW , "350" PROMS_PR_COLOUMN , "360" NO_OF_PROMS , "370" PARITY_BITS_IN_USE , "315" NO_OF_PARITY┆
0x2ba80…2bb00 UnusedSector ┆_PROMS , "375" HEXA_PR_ROW , "380" HEXA_PR_PROM_ROW , "390" HEXA_PR_SINGLE_PROM , "400" HEXA_NO , "410" ROW_NO , "420" COL┆
0x2bb00…2bb80 UnusedSector ┆OUMN_NO , "430" I , J : INTEGER ; "440" "PAGE" %NOLIST "PAGE" "*********************** * PASCAL I/O PACKAGE * *************┆
0x2bb80…2bc00 UnusedSector ┆**********" PROCEDURE XXXERROR(T: TEXT); VAR I:INTEGER; BEGIN DISPLAY(NL); DISPLAY('?'); DISPLAY('?'); I:=1; WHILE T[I]<>N┆
0x2bc00…2bc80 UnusedSector ┆ULL DO BEGIN DISPLAY(T[I]); I:=SUCC(I); END; DISPLAY(NL); HALT; END "XXXERROR"; "OPEN AND CLOSE STREAMS" "--------------┆
0x2bc80…2bd00 UnusedSector ┆--------" PROCEDURE OPEN(VAR S:STREAM; NAME:TEXT; DIR:DIRECTION); CONST OC='OC '; VAR ID:IDENTIFIER; CTRL:INTEGER; ARG:ARGTYPE;┆
0x2bd00…2bd80 UnusedSector ┆ BEGIN IF NOT (DIR IN [INPUT,OUTPUT]) THEN XXXERROR('ILLEGAL DIRECTION(:0:)'); FOR CTRL:=1 TO IDLENGTH DO ID[CTRL]:=' '; CT┆
0x2bd80…2be00 UnusedSector ┆RL:=1; WHILE (NAME[CTRL]<>'(:0:)') AND (CTRL<SUCC(IDLENGTH)) DO BEGIN ID[CTRL]:=NAME[CTRL]; CTRL:=SUCC(CTRL); END; IF ID=┆
0x2be00…2be80 UnusedSector ┆OC THEN IF DIR=INPUT THEN S:=INOC ELSE S:=OUTOC ELSE BEGIN ARG.TAG:=IDTYPE; ARG.ID:=ID; IF DIR=INPUT THEN BEGIN S:=INF┆
0x2be80…2bf00 UnusedSector ┆ILE; WRITEARG(INP,ARG); END ELSE BEGIN S:=OUTFILE; WRITEARG(OUT,ARG); END; END; END "OPEN"; PROCEDURE CLOSE(S:STREAM);┆
0x2bf00…2bf80 UnusedSector ┆ VAR ARG:ARGTYPE; BEGIN CASE S OF INOC,OUTOC: ; INFILE: READARG(INP,ARG); OUTFILE: READARG(OUT,ARG) END "CASE"; END "CLO┆
0x2bf80…2c000 UnusedSector ┆SE"; "I/O OF BYTES (CHARACTERS)" "-------------------------" PROCEDURE OUTBYTE(S:STREAM; B:UNIV CHAR); BEGIN CASE S OF OUTO┆
0x2c000…2c080 UnusedSector ┆C: DISPLAY(B); OUTFILE: WRITE(B); INOC,INFILE: XXXERROR('OUTPUT TO AN INPUT STREAM(:0:)') END "CASE"; END "OUTBYTE"; PRO┆
0x2c080…2c100 UnusedSector ┆CEDURE INBYTE(S:STREAM; VAR B:UNIV CHAR); BEGIN CASE S OF INOC: ACCEPT(B); INFILE: READ(B); OUTOC,OUTFILE: XXXERROR('INPU┆
0x2c100…2c180 UnusedSector ┆T FROM AN OUTPUT STREAM(:0:)') END "CASE"; END "INBYTE"; PROCEDURE OUTNL(S:STREAM); BEGIN OUTBYTE(S,NL); END "OUTNL"; PROC┆
0x2c180…2c200 UnusedSector ┆EDURE BACKSPACE(S:STREAM); BEGIN " UNIMPLEMENTED " END "BACKSPACE"; "I/O OF TEXT STRINGS" "-------------------" PROCEDURE IN┆
0x2c200…2c280 UnusedSector ┆LINE(S:STREAM; VAR T:TEXT); VAR CH:CHAR; I:INTEGER; BEGIN I:=1; REPEAT INBYTE(S,CH); T[I]:=CH; I:=SUCC(I); UNTIL (CH=NL) O┆
0x2c280…2c300 UnusedSector ┆R (CH=EM) OR (I>=TEXT_SIZE); T[I]:=NULL; END "INLINE"; PROCEDURE OUTBYTES(S:STREAM; B:UNIV CHAR; COUNT:INTEGER); VAR CTRL:INT┆
0x2c300…2c380 UnusedSector ┆EGER; BEGIN FOR CTRL:=1 TO COUNT DO OUTBYTE(S,B); END "OUTBYTES"; PROCEDURE OUTSTRING(S:STREAM; T:TEXT); VAR DONE:BOOLEAN; I┆
0x2c380…2c400 UnusedSector ┆:INTEGER; BEGIN I:=1; DONE:=FALSE; WHILE NOT DONE DO IF T[I]<>NULL THEN IF I<=TEXT_SIZE THEN BEGIN OUTBYTE(S,T[I]); I:=SU┆
0x2c400…2c480 UnusedSector ┆CC(I); END ELSE DONE:=TRUE ELSE DONE:=TRUE; END "OUTSTRING"; PROCEDURE OUTTEXT(S:STREAM; T:TEXT; SIZE:INTEGER); VAR CTRL:IN┆
0x2c480…2c500 UnusedSector ┆TEGER; BEGIN IF SIZE>TEXT_SIZE THEN XXXERROR('TEXT TOO LARGE(:0:)'); FOR CTRL:=1 TO SIZE DO OUTBYTE(S,T[CTRL]); END "OUTTEXT┆
0x2c500…2c580 UnusedSector ┆"; "I/O OF INTEGERS" "---------------" FUNCTION BIN_TO_ASCII(INT:INTEGER):CHAR; BEGIN IF INT<10 THEN BIN_TO_ASCII:=CHR(INT+┆
0x2c580…2c600 UnusedSector ┆ORD('0')) ELSE BIN_TO_ASCII:=CHR(INT-10+ORD('A')); END "BIN_TO_ASCII"; PROCEDURE OUTHEXA(S:STREAM; INT:UNIV INTEGER; WIDTH:IN┆
0x2c600…2c680 UnusedSector ┆TEGER); VAR T:TEXT; CTRL:INTEGER; TEMP:INTEGER; BEGIN FOR CTRL:=1 TO TEXT_SIZE DO T[CTRL]:=SP; TEMP:=INT; FOR CTRL:=1 TO 4 D┆
0x2c680…2c700 UnusedSector ┆O BEGIN T[CTRL]:=BIN_TO_ASCII(GETBITS(TEMP,3,4)); TEMP:=RIGHTSHIFT(TEMP,4); END; T[5]:='#'; IF WIDTH<5 THEN FOR CTRL:=1 T┆
0x2c700…2c780 UnusedSector ┆O WIDTH DO T[CTRL]:='*'; FOR CTRL:=WIDTH DOWNTO 1 DO OUTBYTE(S,T[CTRL]); END "OUTHEXA"; PROCEDURE OUTINTEGER(S:STREAM; INT:┆
0x2c780…2c800 UnusedSector ┆UNIV INTEGER; WIDTH:INTEGER); VAR T:TEXT; CTRL:INTEGER; NEGATIVE:BOOLEAN; TEMP:INTEGER; BEGIN FOR CTRL:=1 TO TEXT_SIZE DO T[C┆
0x2c800…2c880 UnusedSector ┆TRL]:=SP; IF INT=#8000 THEN BEGIN "HANDLE SPECIAL CASE" END ELSE BEGIN TEMP:=INT; NEGATIVE:=TEMP<0; IF NEGATIVE THEN TE┆
0x2c880…2c900 UnusedSector ┆MP:=-TEMP; CTRL:=1; REPEAT T[CTRL]:=BIN_TO_ASCII(TEMP MOD 10); TEMP:=TEMP DIV 10; CTRL:=SUCC(CTRL); UNTIL TEMP=0; IF NEGA┆
0x2c900…2c980 UnusedSector ┆TIVE THEN T[CTRL]:='-' ELSE CTRL:=PRED(CTRL); END; IF WIDTH<CTRL THEN FOR CTRL:=1 TO WIDTH DO T[CTRL]:='*'; FOR CTRL:= WI┆
0x2c980…2ca00 UnusedSector ┆DTH DOWNTO 1 DO OUTBYTE(S,T[CTRL]); END "OUTINTEGER"; FUNCTION XXXDIGIT(CH:CHAR):BOOLEAN; BEGIN XXXDIGIT:=('0'<=CH) AND (CH<┆
0x2ca00…2ca80 UnusedSector ┆='9'); END "XXXDIGIT"; FUNCTION XXXHEXADIGIT(CH:CHAR):BOOLEAN; BEGIN XXXHEXADIGIT:=XXXDIGIT(CH) OR (('A'<=CH) AND (CH<='F'))┆
0x2ca80…2cb00 UnusedSector ┆; END "HEXADIGIT"; FUNCTION ASCII_TO_BIN(CH:CHAR):INTEGER; BEGIN IF XXXDIGIT(CH) THEN ASCII_TO_BIN:=ORD(CH)-ORD('0') ELSE I┆
0x2cb00…2cb80 UnusedSector ┆F XXXHEXADIGIT(CH) THEN ASCII_TO_BIN:= ORD(CH)-ORD('A')+10 ELSE XXXERROR('ILLEGAL CHARACTER CONVERSION(:0:)'); END "ASCII_TO_B┆
0x2cb80…2cc00 UnusedSector ┆IN"; PROCEDURE INHEXA(S:STREAM; VAR INT:INTEGER); VAR CH:CHAR; BEGIN "SKIP INITIAL GARBAGE" REPEAT INBYTE(S,CH); IF CH=EM ┆
0x2cc00…2cc80 UnusedSector ┆THEN XXXERROR('INPUT STREAM TERMINATED(:0:)'); UNTIL XXXHEXADIGIT(CH); "ASSEMBLE VALUE" INT:=0; WHILE XXXHEXADIGIT(CH) DO B┆
0x2cc80…2cd00 UnusedSector ┆EGIN INT:=LEFTSHIFT(INT,4); PUTBITS(ASCII_TO_BIN(CH),INT,3,4); INBYTE(S,CH); END; END "INHEXA"; PROCEDURE ININTEGER(S:STRE┆
0x2cd00…2cd80 UnusedSector ┆AM; VAR INT:INTEGER); VAR CH:CHAR; POSITIVE:BOOLEAN; BEGIN "SKIP INITIAL GARBAGE" REPEAT INBYTE(S,CH); IF CH=EM THEN XXXERRO┆
0x2cd80…2ce00 UnusedSector ┆R('INPUT STREAM TERMINATED(:0:)'); UNTIL (CH='#') OR (CH='-') OR XXXDIGIT(CH); "GO HANDLE HEXADECIMAL CASE" IF CH='#' THEN B┆
0x2ce00…2ce80 UnusedSector ┆EGIN INHEXA(S,INT); EXIT; END; "CHECK FOR SIGN" POSITIVE:=TRUE; IF CH='-' THEN BEGIN POSITIVE:=FALSE; INBYTE(S,CH); EN┆
0x2ce80…2cf00 UnusedSector ┆D; "ASSEMBLE VALUE" INT:=0; WHILE XXXDIGIT(CH) DO BEGIN INT:=INT*10-ASCII_TO_BIN(CH); INBYTE(S,CH); END; "REVERSE SIGN I┆
0x2cf00…2cf80 UnusedSector ┆F POSITIVE" IF POSITIVE THEN INT:=-INT; END "ININTEGER"; PROCEDURE IN_LONG_INTEGER(S: STREAM; VAR LINT: LONG_INTEGER); VAR CH┆
0x2cf80…2d000 UnusedSector ┆: CHAR; POSITIVE: BOOLEAN; BEGIN "SKIP INITTIAL GARBAGE" REPEAT INBYTE(S,CH); IF CH=EM THEN XXXERROR('INPUT STREAM TERMINAT┆
0x2d000…2d080 UnusedSector ┆ED(:0:)'); UNTIL (CH='#') OR (CH='-') OR XXXDIGIT(CH); "HANDLE HEXADECIMAL CASE" IF CH='#' THEN BEGIN EXIT; END; "HANDLE ┆
0x2d080…2d100 UnusedSector ┆SIGN" POSITIVE:= TRUE; IF CH='-' THEN BEGIN POSITIVE:= FALSE; INBYTE(S,CH); END; "ASSEMBLE VALUE, NEGATIVE" LINT:= 0L; ┆
0x2d100…2d180 UnusedSector ┆WHILE XXXDIGIT(CH) DO BEGIN LINT:= LINT*10L-LONG(ASCII_TO_BIN(CH)); INBYTE(S,CH); END; "REVERSE SIGN IF POSITIVE" IF POSIT┆
0x2d180…2d200 UnusedSector ┆IVE THEN LINT:= -LINT; END "IN_LONG_INTEGER"; PROCEDURE OUT_LONG_INTEGER(S: STREAM; LINT: LONG_INTEGER; WIDTH: INTEGER); VAR ┆
0x2d200…2d280 UnusedSector ┆T: TEXT; I: INTEGER; NEGATIVE: BOOLEAN; TEMP: LONG_INTEGER; BEGIN FOR I:= 1 TO TEXT_SIZE DO T[I]:= SP; IF LINT=#80000000L ┆
0x2d280…2d300 UnusedSector ┆THEN BEGIN "HANDLE SPECIAL CASE" END ELSE BEGIN TEMP:= LINT; NEGATIVE:= TEMP<0L; IF NEGATIVE THEN TEMP:= -TEMP; I:= 1;┆
0x2d300…2d380 UnusedSector ┆ REPEAT T[I]:= BIN_TO_ASCII(SHORT(TEMP-(TEMP/10L)*10L)); TEMP:= TEMP/10L; I:= SUCC(I); UNTIL TEMP= 0L; IF NEGATIVE THEN T┆
0x2d380…2d400 UnusedSector ┆[I]:= '-' ELSE I:= PRED(I); END; IF WIDTH<I THEN FOR I:= 1 TO WIDTH DO T[I]:= '*'; FOR I:= WIDTH DOWNTO 1 DO OUTBYTE(S,T┆
0x2d400…2d480 UnusedSector ┆[I]); END "OUT_LONG_INTEGER"; %LIST "PAGE" "**********************************************************************" " MAIN PRO┆
0x2d480…2d500 UnusedSector ┆CEDURES " "**********************************************************************" PROCEDURE DEFINE_CONSTANTS ; "10" VAR L : ┆
0x2d500…2d580 UnusedSector ┆LONG_INTEGER ; "15" I : INTEGER ; "16" BEGIN "20" PROMS_PR_ROW := PROM_AREA.WIDTH DIV PHYS_PROM.WIDTH ; "30" PROMS_PR_COLOUM┆
0x2d580…2d600 UnusedSector ┆N := SHORT(( PROM_AREA.SIZE / "40" PHYS_PROM.SIZE ) ); "45" NO_OF_PROMS := PROMS_PR_ROW * PROMS_PR_COLOUMN ; "50" HEXA_PR_ROW┆
0x2d600…2d680 UnusedSector ┆ := PROM_AREA.WIDTH DIV 4 ; "60" HEXA_PR_SINGLE_PROM := PHYS_PROM.WIDTH DIV 4 ; "70" L := LONG(HEXA_PR_ROW) * PHYS_PROM.SIZE ;┆
0x2d680…2d700 UnusedSector ┆ "75" HEXA_PR_PROM_ROW := SHORT( L ); "80" FOR I := 0 TO SHORT( PHYS_PROM.SIZE ) - 1 DO "82" PARITY_AREA[ I ] := -1 ; "84" P┆
0x2d700…2d780 UnusedSector ┆ARITY_BITS_IN_USE := 0 ; "86" FOR I:= 1 TO (NO_OF_PROMS + NO_OF_PARITY_PROMS ) DO "100" PROM[ I ].CHECKSUM := 0L ; "110" END┆
0x2d780…2d800 UnusedSector ┆ ; "90" "**********************************************************************" "PAGE" PROCEDURE READ_FROM_PARITY_AREA( LE┆
0x2d800…2d880 UnusedSector ┆FT_BIT , "10" ROW : INTEGER ; "20" VAR HEXA : CHAR ) ; "40" VAR BIN : INTEGER ; "50" BEGIN "60" BIN := GETBITS( PARITY_AREA┆
0x2d880…2d900 UnusedSector ┆[ ROW ] , "70" LEFT_BIT , "80" 4 ) ; "90" HEXA := BIN_TO_ASCII( BIN ) ; "100" END "READ FROM PARITY AREA" ; "110" PROCED┆
0x2d900…2d980 UnusedSector ┆URE READ_HEXA( S : STREAM ; "10" VAR HEXA : CHAR ; "20" VAR NO : INTEGER ) ; "30" VAR CH : CHAR ; "40" BEGIN "50" IF NO MOD┆
0x2d980…2da00 UnusedSector ┆ 32 = 0 "60" THEN "70" BEGIN "80" REPEAT "90" INBYTE( S , CH ); "100" UNTIL "110" CH = 'L' ; "120" END; "130" REPEAT "1┆
0x2da00…2da80 UnusedSector ┆40" INBYTE( S , CH ) "150" UNTIL "160" XXXHEXADIGIT( CH ); "170" HEXA := CH ; "180" NO := NO + 1 ; "190" END "READ HEXA";┆
0x2da80…2db00 UnusedSector ┆ "200" PROCEDURE IN_IDENT( S: STREAM ; "10" VAR IDF: IDENTIFIER ); "20" VAR CH: CHAR; "30" I : INTEGER; "40" BEGIN "50" ┆
0x2db00…2db80 UnusedSector ┆FOR I:= 1 TO IDLENGTH DO "60" IDF[I] := NULL; "70" REPEAT "80" INBYTE( S , CH ); "90" UNTIL "100" NOT ( (CH=NL) OR (CH=SP) ┆
0x2db80…2dc00 UnusedSector ┆OR (CH=EM)) ; "110" IDF[1] := CH ; "120" I:=1; "130" REPEAT "140" INBYTE( S , CH ); "150" I:= I + 1 ; "160" IDF[ I ] := CH┆
0x2dc00…2dc80 UnusedSector ┆ ; "170" UNTIL "180" (CH=NL) OR (CH=SP) OR (CH=EM) OR (I>=IDLENGTH) ; "190" IDF[ I ] := NULL ; "195" END "IN_IDENT" ; "200" ┆
0x2dc80…2dd00 UnusedSector ┆ "PAGE" PROCEDURE GET_OC_PARAMS( OC_IN , OC_OUT : STREAM ); "10" BEGIN "20" OUTNL( OC_OUT ); "30" OUTSTRING( OC_OUT, 'OR┆
0x2dd00…2dd80 UnusedSector ┆IGINATED BY: (:0:)'); "40" OUTNL( OC_OUT ); "50" IN_IDENT( OC_IN , ID_RECORD.ORIGINATOR ); "60" OUTNL(OC_OUT); "70" OUTSTR┆
0x2dd80…2de00 UnusedSector ┆ING( OC_OUT, 'PROJECT NO: (:0:)' ); "80" OUTNL(OC_OUT); "90" IN_LONG_INTEGER( OC_IN , ID_RECORD.PROJECT_NO); "100" OUTNL(OC_┆
0x2de00…2de80 UnusedSector ┆OUT); "110" OUTSTRING( OC_OUT , 'DATE: (:0:)' ); "120" OUTNL(OC_OUT); "130" IN_LONG_INTEGER( OC_IN , ID_RECORD.DATE ); "140" ┆
0x2de80…2df00 UnusedSector ┆ OUTNL(OC_OUT); "150" OUTSTRING(OC_OUT, 'FLOPPY DISC NO, CR/D: (:0:)' ); "160" OUTNL(OC_OUT); "170" ININTEGER( OC_IN , ID_RE┆
0x2df00…2df80 UnusedSector ┆CORD.FLOPPY_DISC_NO ); "180" OUTNL(OC_OUT); "190" OUTSTRING( OC_OUT ,'SOURCE TEXT AND VERSION: (:0:)' ); "200" OUTNL(OC_OUT)┆
0x2df80…2e000 UnusedSector ┆; "210" INLINE(OC_IN , ID_RECORD.SOURCE_TEXT ); "220" OUTNL(OC_OUT); "230" OUTSTRING( OC_OUT, 'AREASIZE: (:0:)' ); "240" OU┆
0x2e000…2e080 UnusedSector ┆TNL(OC_OUT); "250" IN_LONG_INTEGER( OC_IN , PROM_AREA.SIZE ); "260" OUTNL(OC_OUT); "270" OUTSTRING( OC_OUT, 'AREA STARTADDRE┆
0x2e080…2e100 UnusedSector ┆SS: (:0:)' ); "280" OUTNL(OC_OUT); "290" IN_LONG_INTEGER( OC_IN, PROM_AREA.START_ADDRESS); "300" END "GET_OC_PARAMS" ; "310"┆
0x2e100…2e180 UnusedSector ┆ "PAGE" PROCEDURE GET_DISC_PARAMS( S: STREAM ); "10" VAR I , SEQ_NO, PROM_NO, "20" P_NO : INTEGER ; "25" CH : CHAR ; "30┆
0x2e180…2e200 UnusedSector ┆" TXT : TEXT ; "40" IDF : IDENTIFIER ; "50" BEGIN "60" FOR I:= 1 TO 5 DO "70" BEGIN "80" REPEAT "90" INBYTE( S , CH ); "1┆
0x2e200…2e280 UnusedSector ┆00" UNTIL "110" CH= '#'; "120" IN_IDENT( S , IDF ) ; "130" CASE I OF "140" 1: BEGIN "150" IF IDF <> 'MODULE(:0:)(:0:)(:0┆
0x2e280…2e300 UnusedSector ┆:)(:0:)(:0:)(:0:)' "160" THEN XXXERROR('MODULE PARAM(:0:)') "170" ELSE INLINE( S , ID_RECORD.MODULE ); "180" END; "190" 2: B┆
0x2e300…2e380 UnusedSector ┆EGIN "200" IF IDF <> 'WORDSIZE(:0:)(:0:)(:0:)(:0:)' "210" THEN XXXERROR('WORDSIZE PARAM(:0:)') "220" ELSE ININTEGER( S , PROM┆
0x2e380…2e400 UnusedSector ┆_AREA.WIDTH ); "230" END; "240" 3: BEGIN "250" IF IDF <> 'PROMSIZE(:0:)(:0:)(:0:)(:0:)' "260" THEN XXXERROR('PROMSIZE PARAM(┆
0x2e400…2e480 UnusedSector ┆:0:)' ) "270" ELSE IN_LONG_INTEGER( S , PHYS_PROM.SIZE ); "280" END; "290" 4: BEGIN "300" IF IDF <> 'PROMWIDTH(:0:)(:0:)(:0:┆
0x2e480…2e500 UnusedSector ┆)' "310" THEN XXXERROR('PROMWIDTH PARAM(:0:)' ) "320" ELSE ININTEGER( S , PHYS_PROM.WIDTH ); "330" END ; "340" 5: BEGIN "341┆
0x2e500…2e580 UnusedSector ┆" IF IDF <> 'PARITYPROMS(:0:)' "342" THEN XXXERROR('PARITY PROM PARAM(:0:)' ) "343" ELSE ININTEGER( S , NO_OF_PARITY_PROMS ) ┆
0x2e580…2e600 UnusedSector ┆; "344" END "345" END "CASE"; "350" END "FOR I"; "360" NO_OF_PROMS := ( PROM_AREA.WIDTH DIV PHYS_PROM.WIDTH) * "320" SHORT(┆
0x2e600…2e680 UnusedSector ┆ PROM_AREA.SIZE / PHYS_PROM.SIZE ); "380" PROM_NO := 0; "390" P_NO := 0 ; "395" REPEAT "400" PROM_NO := PROM_NO + 1 ; "410"┆
0x2e680…2e700 UnusedSector ┆ IF PROM_NO = NO_OF_PROMS + 1 "412" THEN P_NO := 0; "414" P_NO := P_NO + 1 ; "416" REPEAT "420" INBYTE( S , CH ); "430" U┆
0x2e700…2e780 UnusedSector ┆NTIL "440" CH='#'; "450" ININTEGER( S , SEQ_NO ); "460" IF SEQ_NO <> P_NO "470" THEN XXXERROR('PARAM PROM SEQUENCE ERROR(:0┆
0x2e780…2e800 UnusedSector ┆:)' ); "475" IN_IDENT( S , PROM[ PROM_NO ].FILE ); "480" ININTEGER( S, PROM[ PROM_NO ].IDNO ); "490" ININTEGER( S , PROM[ PRO┆
0x2e800…2e880 UnusedSector ┆M_NO ].VERSION ); "500" IF PROM_NO <= NO_OF_PROMS "504" THEN ININTEGER( S , PROM[ PROM_NO ].PARITY_BIT ) ; "510" UNTIL "520" ┆
0x2e880…2e900 UnusedSector ┆ PROM_NO >= NO_OF_PROMS + NO_OF_PARITY_PROMS ; "530" END "GET DISC PARAMS"; "540" "PAGE" PROCEDURE CHECK_PARAMS; VAR TEST ┆
0x2e900…2e980 UnusedSector ┆: INTEGER ; BEGIN TEST := SHORT( PROM_AREA.SIZE ) ; "40" IF ( TEST < MIN_AREASIZE ) OR ( TEST > MAX_AREASIZE ) THEN XXXERR┆
0x2e980…2ea00 UnusedSector ┆OR('AREASIZE CONTENT(:0:)' ); TEST := SHORT( PHYS_PROM.SIZE ) ; "80" IF ( TEST < MIN_PROMSIZE ) OR ( TEST > MAX_PROMSIZE ) ┆
0x2ea00…2ea80 UnusedSector ┆OR ( TEST > SHORT( PROM_AREA.SIZE ) ) "100" OR ( SHORT( PROM_AREA.SIZE) MOD TEST <> 0 ) "110" THEN XXXERROR( 'PROMSIZE CONTENT┆
0x2ea80…2eb00 UnusedSector ┆(:0:)' ); TEST := SHORT( PROM_AREA.START_ADDRESS ) ; "130" IF ( TEST < 0 ) OR ( TEST >= SHORT( PROM_AREA.SIZE ) ) "140" THE┆
0x2eb00…2eb80 UnusedSector ┆N XXXERROR( ' START ADDRESS CONTENT(:0:)' ); TEST := PROM_AREA.WIDTH ; IF ( TEST < MIN_WORDSIZE ) OR (TEST > MAX_WORDSIZE ) ┆
0x2eb80…2ec00 UnusedSector ┆ OR (TEST MOD 4 <>0 ) THEN XXXERROR( 'WORDSIZE CONTENT(:0:)' ); TEST := PHYS_PROM.WIDTH ; IF ( TEST < MIN_PROMWIDTH ) OR (TE┆
0x2ec00…2ec80 UnusedSector ┆ST > MAX_PROMWIDTH ) OR ( TEST MOD 4 <> 0 ) OR ( TEST > PROM_AREA.WIDTH ) "230" THEN XXXERROR( 'PROMWIDTH CONTENT(:0:)' ); ┆
0x2ec80…2ed00 UnusedSector ┆END " CHECK PARAMS"; "PAGE" PROCEDURE PROM_WORD_TREATMENT( F_OUT , F_IN : STREAM ; "10" ROW, "20" PROM_NO : INTEGER ; "40┆
0x2ed00…2ed80 UnusedSector ┆" VAR HEXA_NO : INTEGER ) ; "50" CONST CR = '(:10:)' ; VAR I, "60" J , "62" ADDR , "66" LEFT_BIT , "68" HEXAS_OUTPUT, "70┆
0x2ed80…2ee00 UnusedSector ┆" BIN, "80" WORD, "90" P_BIT , "95" ONES : INTEGER ; "100" HEXA : CHAR ; "110" BEGIN "120" ADDR := SHORT( PROM_AREA.START┆
0x2ee00…2ee80 UnusedSector ┆_ADDRESS ) ; "130" IF ( ROW= ADDR ) AND ( ADDR > 0 ) AND ( PROM_NO <= PROMS_PR_ROW ) "135" THEN "140" BEGIN "150" I:= PHYS_┆
0x2ee80…2ef00 UnusedSector ┆PROM.WIDTH ; IF I=4 THEN WORD := #F ELSE IF I=8 THEN WORD:= #FF ELSE WORD := #FFFF ; FOR I :=0 TO (ADDR - 1 ) DO PROM[PROM┆
0x2ef00…2ef80 UnusedSector ┆_NO].CHECKSUM := PROM[PROM_NO].CHECKSUM + LONG( WORD ) ; OUTBYTE(F_OUT , STX ) ; "151" OUTBYTE( F_OUT , CR ) ; "152" ADDR ┆
0x2ef80…2f000 UnusedSector ┆:= ADDR*HEXA_PR_SINGLE_PROM ; "153" FOR J := 1 TO ADDR DIV 32 DO "154" BEGIN "155" FOR I:= 1 TO 32 DO "156" BEGIN "157" OU┆
0x2f000…2f080 UnusedSector ┆TBYTE( F_OUT , 'F' ); "158" IF ( I MOD HEXA_PR_SINGLE_PROM = 0 ) "158.5" THEN OUTBYTE( F_OUT , SP ) ; "159" END; "160" OUTBY┆
0x2f080…2f100 UnusedSector ┆TE( F_OUT , CR ); "161" OUTBYTES( F_OUT , NULL , 7 ); "162" END; "163" FOR J:= 1 TO ADDR MOD 32 DO "165" BEGIN "166" OUTBY┆
0x2f100…2f180 UnusedSector ┆TE( F_OUT , 'F' ) ; "167" IF ( J MOD HEXA_PR_SINGLE_PROM = 0 ) "168" THEN OUTBYTE( F_OUT , SP ) ; "169" END; "170" END; "195┆
0x2f180…2f200 UnusedSector ┆" WORD := 0 ; "200" FOR I:= 1 TO HEXA_PR_SINGLE_PROM DO "210" BEGIN "220" IF PROM_NO > NO_OF_PROMS "230" THEN "231" BEGIN┆
0x2f200…2f280 UnusedSector ┆ "232" LEFT_BIT := "233" (PROM_NO-NO_OF_PROMS)*PHYS_PROM.WIDTH -4*(I-1) - 1 ; "234" READ_FROM_PARITY_AREA( LEFT_BIT , ROW , H┆
0x2f280…2f300 UnusedSector ┆EXA ) ; "235" END "237" ELSE READ_HEXA( F_IN , HEXA , HEXA_NO ) ; "236" IF (I=1) AND (ROW=0 ) THEN "240" BEGIN "250" OUTBY┆
0x2f300…2f380 UnusedSector ┆TE( F_OUT , STX ) ; "260" OUTBYTE( F_OUT , CR ); "270" END; "280" OUTBYTE( F_OUT , HEXA ); "290" HEXAS_OUTPUT := ROW*HEXA_PR┆
0x2f380…2f400 UnusedSector ┆_SINGLE_PROM + I ; "300" IF ( LONG( ROW ) = PHYS_PROM.SIZE - 1L ) AND "310" ( I = HEXA_PR_SINGLE_PROM ) "320" THEN "325" BEG┆
0x2f400…2f480 UnusedSector ┆IN "330" OUTBYTE( F_OUT , SP ) ; "335" OUTBYTE(F_OUT , ETX ); "350" OUTBYTES( F_OUT , NULL , 7 ) ; "354" OUTNL( F_OUT ) ; "3┆
0x2f480…2f500 UnusedSector ┆ ORIGINATED BY: PMO PROJECT NO: 1170 DATE: 800610 MODULE: SCM HAWK FLOPPY DI┆
0x2f500…2f580 UnusedSector ┆SC NO CR/D/4711 SOURCE TEXT AND VERSION: PD 1 AREASIZE: 2048 AREA START ┆
0x2f580…2f600 UnusedSector ┆ADDRESS: 1536 PROMSIZE: 2048 PROMWIDTH: 8 PROM FILE: PARITY PROMID: 3 VERSION: 1 PROM INPUT FILE: PD PARAM INPUT FILE: PARA ┆
0x2f600…2f680 UnusedSector ┆FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF F┆
0x2f680…2f700 UnusedSector ┆F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF┆
0x2f700…2f780 UnusedSector ┆ FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ┆
0x2f780…2f800 UnusedSector ┆ FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF┆
0x2f800…2f880 UnusedSector ┆ FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ┆
0x2f880…2f900 UnusedSector ┆FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF F┆
0x2f900…2f980 UnusedSector ┆F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ┆
0x2f980…2fa00 UnusedSector ┆FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF F┆
0x2fa00…2fa80 UnusedSector ┆F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF┆
0x2fa80…2fb00 UnusedSector ┆ FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ┆
0x2fb00…2fb80 UnusedSector ┆ FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF┆
0x2fb80…2fc00 UnusedSector ┆ FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ┆
0x2fc00…2fc80 UnusedSector ┆FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF F┆
0x2fc80…2fd00 UnusedSector ┆F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ┆
0x2fd00…2fd80 UnusedSector ┆FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF F┆
0x2fd80…2fe00 UnusedSector ┆F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF┆
0x2fe00…2fe80 UnusedSector ┆ FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ┆
0x2fe80…2ff00 UnusedSector ┆ FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF┆
0x2ff00…2ff80 UnusedSector ┆ FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ┆
0x2ff80…30000 UnusedSector ┆FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF F┆
0x30000…30080 UnusedSector ┆F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ┆
0x30080…30100 UnusedSector ┆FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF F┆
0x30100…30180 UnusedSector ┆5D 2F 52 D8 5D 2F 45 BF FF A9 B2 A9 7C BF 7C BF FC 76 48 70 68 FE FE FE 4E 97 FE E7 76 FE 48 70 68 FE 49 6E BC 6┆
0x30180…30200 UnusedSector ┆A FB CE C2 C1 4E 97 FE E7 76 FE 48 70 68 FE FE FE FE FE FE E7 76 FE 48 70 68 FE FE FE FE FE E7 76 6E BC 4B BB 7C┆
0x30200…30280 UnusedSector ┆ 4A 7C 4A BB A0 68 8A 98 BC 4F BE FE 4F BE 49 BB 98 A0 8A BC F8 D8 FB D8 D8 FB D8 98 BC FE C9 42 58 CB 4┆
0x30280…30300 UnusedSector ┆T := ROW*HEXA_PR_SINGLE_PROM + I ; "300" IF ( LONG( ROW ) = PHYS_PROM.SIZE - 1L ) AND "310" ( I = HEXA_PR_SINGLE_PROM ) "320" ┆
0x30300…30380 UnusedSector ┆ THEN "325" BEGIN "330" OUTBYTE( F_OUT , SP ) ; "335" OUTBYTE(F_OUT , ETX ); "350" OUTBYTES( F_OUT , NULL , 7 ) ; "354" OUT┆
0x30380…30400 DataSector[»PROMGN«]
[…0x83…]
0x34580…34600 UnusedSector ┆54 53 03 02 57 54 53 03 00 02 52 03 89 94 8A 95 FE 09 79 84 0B 16 15 20 D5 E0 BB C6 A0 4F 16 96 BB EC 40┆
0x34600…34680 UnusedSector ┆ D8 4D 4F F2 D8 CF 56 CC 24 C5 D8 19 F4 D8 A0 F2 4E A0 8A BB EC 24 42 D8 C9 1E BB 81 4D BB 8D 97 4D BB 8D A0 CA ┆
0x34680…34700 UnusedSector ┆97 BB CA C1 19 1A FA D8 BB C9 81 D8 49 09 49 09 4E 56 4D 8D 4D BB 8D 4D 97 4D 56 75 4D BC 4E 86 58 BB EC 24 4D F┆
0x34700…34780 UnusedSector ┆A D8 1E 4D BB 19 F4 58 58 CF 56 CC C5 58 27 16 96 F0 D8 F0 D8 49 81 49 48 1A 7E D8 97 8A 97 8A 97 8A 97 8A ┆
0x34780…34800 UnusedSector ┆ 97 8A 97 8A 97 8A 97 8A 97 8A 97 8A 97 8A 97 8A 97 8A 97 8A 97 8A 97 8A D8 97 97 8A 97 97 8A 97 97 8A 97 97 8┆
0x34800…34880 UnusedSector ┆A 97 97 8A 97 97 8A 97 97 8A 97 97 8A 97 97 8A 97 97 8A 97 97 8A 97 97 8A 97 97 8A 97 97 8A 97 97 8A 97 97 8A 26┆
0x34880…34900 UnusedSector ┆ 1D F4 D8 16 1D 1A F7 D8 BB CA 82 1D BB 4A 0A D8 27 58 1D 35 F7 D8 1D 7E D8 48 96 24 1D 8C FA D8 4D 8D 97 16 C1 ┆
0x34900…34980 UnusedSector ┆56 49 18 8D 56 49 31 C9 BB 48 BC 27 58 1F 4E F8 D8 CD CB C6 D8 FB 83 32 7E D8 48 96 D8 56 48 96 18 97 48┆
0x34980…34a00 UnusedSector ┆ BC 48 7D D8 16 16 16 CF CD C0 16 16 56 48 56 70 48 BC 96 BB EC 7E D8 4F 16 48 8D 97 BB 1F 8B 42 BC 1E F6 D8 1D ┆
0x34a00…34a80 UnusedSector ┆CD E4 42 D8 49 81 19 C9 E5 42 D8 4A 82 0A D8 81 D8 85 27 27 80 D8 BB 1F 8B 42 BC 1E 19 8A F6 D8 4A 0A 27 D8 81 8┆
0x34a80…34b00 UnusedSector ┆83 7C D8 CD 58 56 4C 4B 97 EC 97 EC BC 8D 7C D8 BB CC C0 D8 CB 7C D8 7C D8 D8 56 4C 58 56 4C 58 BE BF 58┆
0x34b00…34b80 UnusedSector ┆ 4D 99 81 56 4C 48 49 BB CC C0 56 4F 56 4C 48 BB CC C0 56 4C 56 4D BB 56 48 80 5F 2C 56 48 FB 8E C0 56 4C 56 48 ┆
0x34b80…34c00 UnusedSector ┆FB 8E C0 56 4D 18 7E D8 56 48 D8 27 56 48 56 4C 4B 49 A0 CC BB A0 7A FA D8 CB 8A F7 58 56 4C 19 7C D8 19 40 D8 1┆
0x34c00…34c80 UnusedSector ┆9 56 4A F6 D8 D8 29 4A BB BB C9 C3 BE 56 4C 56 4D BB 56 48 80 5F 4D 99 81 49 4A 48 56 4C 4B 56 4D 96 1E 7E ┆
0x34c80…34d00 UnusedSector ┆D D R E S S : P R O M S I Z E : P R O M W I D T H : P R O M F I L E : P R O M I D : V E R S I O N : ┆
0x34d00…34d80 UnusedSector ┆ P A R I T Y B I T : P R O M I N P U T F I L E : P A R A M I N P U T F I L E : O C P R O M I D : ┆
0x34d80…34e00 UnusedSector ┆ V E R S I O N : C H E C K S U M : O C O C O C O C E : F L O P P Y ┆
0x34e00…34e80 UnusedSector ┆ D I S C N O C R / D / S O U R C E T E X T A N D V E R S I O N : A R E A S I Z E : A R E A S T A R T A ┆
0x34e80…34f00 UnusedSector 0x00[128]
[…0x3…]
0x35080…35100 UnusedSector ┆ O C I ┆
0x35100…35180 UnusedSector ┆L L E G A L D I R E C T I O N O U T P U T T O A N I N P U T S T R E A M I N P U T F R O M A N O U T P U T ┆
0x35180…35200 UnusedSector ┆S T R E A M T E X T T O O L A R G E I L L E G A L C H A R A C T E R C O N V E R S I O N I N P U T S T R E A M ┆
0x35200…35280 UnusedSector ┆T E R M I N A T E D I N P U T S T R E A M T E R M I N A T E D I N P U T S T R E A M T E R M I N A T E D ┆
0x35280…35300 UnusedSector ┆ O R I G I N A T E D B Y : P R O J E C T N O : D A T E : F L O P P Y D I S C N O ┆
0x35300…35380 UnusedSector ┆, C R / D : S O U R C E T E X T A N D V E R S I O N : A R E A S I Z E : A R E A S T A R T A D D R E S S : ┆
0x35380…35400 UnusedSector ┆ M O D U L E M O D U L E P A R A M W O R D S I Z E W O R D S I Z E P A R A M P R O M S I Z E ┆
0x35400…35480 UnusedSector ┆ P R O M S I Z E P A R A M P R O M W I D T H P R O M W I D T H P A R A M P A R I T Y P R O M S P A R I T Y ┆
0x35480…35500 UnusedSector ┆P R O M P A R A M P A R A M P R O M S E Q U E N C E E R R O R A R E A S I Z E C O N T E N T P R O M S I Z E C ┆
0x35500…35580 UnusedSector ┆O N T E N T S T A R T A D D R E S S C O N T E N T W O R D S I Z E C O N T E N T P R O M W I D T H C O N T E N T ┆
0x35580…35600 UnusedSector ┆ C H E C K S U M : C H E C K S U M : O R I G I N A T E D B Y : P R O J E C T N O : D A ┆
0x35600…35680 UnusedSector ┆T E : M O D U L E : F L O P P Y D I S C N O C R / D / S O U R C E T E X T A N D V E R S I O N : A R E ┆
0x35680…35700 UnusedSector ┆A S I Z E : A R E A S T A R T A D D R E S S : P R O M S I Z E : P R O M W I D T H : P R O M F I L E : ┆
0x35700…35780 UnusedSector ┆P R O M I D : V E R S I O N : P A R I T Y B I T : P R O M I N P U T F I L E : P A R A M I N P U ┆
0x35780…35800 UnusedSector ┆T F I L E : O C P R O M I D : V E R S I O N : C H E C K S U M : O C O C O C O C ┆
0x35800…35880 UnusedSector ┆ E : F L O P P Y D I S C N O C R / D / S O U R C E T E X T A N D V E R S I O N : A R E ┆
0x35880…35900 UnusedSector 0x00[128]
0x35900…35980 UnusedSector ┆ ░░ % ░░ n 4 MES┆
0x35980…35a00 UnusedSector ┆SAGES 42DC 0003 8C56 C6DC 0004 7356 ASSEMBLY O┆
0x35a00…35a80 UnusedSector ┆K? 03C8 ┆
0x35a80…35b00 UnusedSector ┆ } } @ m } u m ┆
0x35b00…35b80 UnusedSector 0x00[128]
0x35b80…35c00 UnusedSector ┆ } ░░░░░░░░┆
0x35c00…35c80 UnusedSector ┆░░░░░░░░░░░░ ONE1 8 | . ┆
0x35c80…35d00 UnusedSector ┆F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF┆
0x35d00…35d80 UnusedSector ┆ FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ┆
0x35d80…35e00 UnusedSector ┆ FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF┆
0x35e00…35e80 UnusedSector ┆ FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ┆
0x35e80…35f00 UnusedSector ┆FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF F┆
0x35f00…35f80 UnusedSector ┆F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ┆
0x35f80…36000 UnusedSector ┆FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF F┆
0x36000…36080 UnusedSector ┆F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF┆
0x36080…36100 UnusedSector ┆ FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ┆
0x36100…36180 UnusedSector ┆ FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF┆
0x36180…36200 UnusedSector ┆ FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ┆
0x36200…36280 UnusedSector ┆FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF F┆
0x36280…36300 UnusedSector ┆F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ┆
0x36300…36380 UnusedSector ┆FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF F┆
0x36380…36400 UnusedSector ┆F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF┆
0x36400…36480 UnusedSector ┆ FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ┆
0x36480…36500 UnusedSector ┆ FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF┆
0x36500…36580 UnusedSector ┆ FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ┆
0x36580…36600 UnusedSector ┆FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF F┆
0x36600…36680 UnusedSector ┆F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF ┆
0x36680…36700 UnusedSector ┆DB DF FF DF FF FF FF FF DF FF FB DF DB DF FB FF DB DB FB DF DF FF DB DB DB FF DF FB FB FB DB DF DF FF FF FB DB F┆
0x36700…36780 UnusedSector ┆B DF FB FB DB DF DF DF FF FB DF DB DB DF FF DB FB DB FF FF DF DF FB FB FB DB FF FF DF DB FF FF DB FF FF FF DF DB┆
0x36780…36800 UnusedSector ┆ DB DB FF DB DB DF FB FF DF DF DF DB DB DB FF FB DF FB DF FF FF DF DB DF FB DF FF FF FF DB FB DB DF DB FB FB FB ┆
0x36800…36880 UnusedSector ┆ DB DF FF FF DF DB DB FB DF DF FB FF DF FF DF DB DF FB DB FF DF DF FB FB DF FF DF FB DF FB FF FB FF FB FF┆
0x36880…36900 UnusedSector ┆ FF FF DF DF FB DF DF FF DF DB DF FB FB FF FB DF FF FB DB FF FB FF DB DF FF DF FB FB FF DF FF FB FF DB FF FF DB ┆
0x36900…36980 UnusedSector ┆FF DF FB FB FF DF FF DF FB FF DF DF FB DF FB DB FF FB DF FF FB DB FF FB DF FB FF FF DF FB FB FF FF FF FB FB DB D┆
0x36980…36a00 UnusedSector ┆F FF FF DB DB DF FF FF FF DF FF FF FF FF FF DB FF FF FF DF DB FF DB DB DF DB DB DB FF FB DB DF FB FF DF ┆
0x36a00…36a80 UnusedSector ┆FF FF FB DB FF FB FB DB FB DF DB DF DF DF FF DB FF FB DF FB FB FB DF DF FB DF DF FB DB DB FB DB FB DB FB DB DB F┆
0x36a80…36b00 UnusedSector ┆F DF DF DB FF DB FF DF DB FF FB FF FB FF DF DF DF FF DB DF FF FB DF DB DF FF FB FF FF DF FB DF DB DB DB FF FB FF┆
0x36b00…36b80 UnusedSector ┆ DB FF FB FF FB FF DB DF DB FF FF FB FF DF DF DB FF DB DB FF DB DB FF DF DF DB DF FB FF DF FF DF DF DB DB DF FF ┆
0x36b80…36c00 UnusedSector ┆ FF FF FB DF DB DF DF DB FB DF FB FF FF DF DF DB FF FF FF DF DB DF FF DF DB FF DB DF DF FF DB DF FB DF DB┆
0x36c00…36c80 UnusedSector ┆ DF FB DF FB DB FF FB DB DF FB DB DF FF DB FB DF DF FB DF FB FF FF FB DB DF FB DF FF FB FF DF FB FF FF FB FB FF ┆
0x36c80…36d00 UnusedSector ┆FB FB DB DB FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF F┆
0x36d00…36d80 UnusedSector ┆F FF FF FF FF FF FF FF FF FF FF DB DB DF FB FF DF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FB FF ┆
0x36d80…36e00 UnusedSector ┆ CHECKSUM: #D948 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF F┆
0x36e00…36e80 UnusedSector ┆! 0 S 1 ; 6 " 0 ; 1 ; 6 # 0 T 6 $ 0 N ┆
0x36e80…36f00 UnusedSector ┆ 6 % 1 w 1 1 1 ~ " u 6 & 6 ' 0 : 1 1 ┆
0x36f00…36f80 UnusedSector ┆ 1 ; 6 ( 0 : 1 1 @ 1 w ┆
0x36f80…37000 UnusedSector ┆ 5 @ 3 1 ; 6 ) 0 Y 1 ┆
0x37000…37080 UnusedSector ┆ ; 1 w 6 * 1 w 1 6 + 0 X 1 ; ┆
0x37080…37100 UnusedSector 0x00[128]
[…0x3…]
0x37280…37300 UnusedSector ┆ O C I ┆
0x37300…37380 UnusedSector ┆L L E G A L D I R E C T I O N O U T P U T T O A N I N P U T S T R E A M I N P U T F R O M A N O U T P U T ┆
0x37380…37400 UnusedSector ┆S T R E A M T E X T T O O L A R G E I L L E G A L C H A R A C T E R C O N V E R S I O N I N P U T S T R E A M ┆
0x37400…37480 UnusedSector ┆T E R M I N A T E D I N P U T S T R E A M T E R M I N A T E D I N P U T S T R E A M T E R M I N A T E D ┆
0x37480…37500 UnusedSector ┆ O R I G I N A T E D B Y : P R O J E C T N O : D A T E : F L O P P Y D I S C N O ┆
0x37500…37580 UnusedSector ┆, C R / D : S O U R C E T E X T A N D V E R S I O N : A R E A S I Z E : A R E A S T A R T A D D R E S S : ┆
0x37580…37600 UnusedSector ┆0 56 49 56 71 49 BC 56 49 56 71 49 BC 7B 97 CC 56 74 A8 56 70 BF 1C 56 74 18 56 70 4F 56 77 BF BB 1B F2 18 ┆
0x37600…37680 UnusedSector ┆ BB 7C D8 1C 5F 4F 56 77 D8 5F 56 4B 56 73 4B BC 56 4E CE E3 4E 16 56 4A 97 F0 D8 4E 56 4A 97 4E 56 4A 97 F0 D┆
0x37680…37700 UnusedSector ┆8 BB 24 EC 49 24 A0 8D 4A 88 56 4A 97 D8 49 56 4A 97 49 56 4A 97 58 56 4A 4E 97 4A 56 E4 12 58 56 4E CE 11 F0 D8┆
0x37700…37780 UnusedSector ┆ 97 EC E4 7E D8 4B 83 D8 F0 58 F2 5F 58 1B 81 1E 8B 86 F2 4F 56 77 4E BB 58 4F 56 77 56 4C 48 5F 58 F0 58 F0 58 ┆
0x37780…37800 UnusedSector ┆97 EC F2 D8 F0 D8 4E 97 58 BB 56 E4 1E 56 E4 12 58 1E 7C 97 93 CC 56 74 A8 56 70 7E 58 1E 86 1E 81 F2 4F┆
0x37800…37880 UnusedSector ┆ 56 77 4E BB 58 4F 56 77 56 4C 48 5F 58 1E 83 1B 8B 83 58 56 4C 48 5F 4F 56 77 58 1E 7C 97 58 56 4E CE 11 F0 58 ┆
0x37880…37900 UnusedSector ┆F2 5F 58 4B BB 4F 56 77 58 F0 58 F2 5F 58 5F 58 BE 56 70 56 71 56 72 48 56 70 56 48 BC BE 56 48 BC 56 48 BC 56 6┆
0x37900…37980 UnusedSector ┆8 F0 56 4E 1C FB F0 88 BB 1D 52 85 FF 58 BE 56 69 56 6A BF BE 56 70 56 71 56 72 48 56 70 56 48 BC BE 56 48 ┆
0x37980…37a00 UnusedSector ┆ BC 56 48 BC 56 68 F0 56 4E 1C FB 49 88 BB 1D 52 85 FF BE 56 6A BF 4E 16 49 CD F3 FB 1E CE E3 CD C1 68 69 96 5┆
0x37a00…37a80 UnusedSector ┆8 16 BC BE 56 68 7C D8 56 4C FB 4E BC 80 18 BB 87 FB 80 18 80 18 80 18 80 18 80 18 80 18 80 1E FA D8 56 4D D8 CD┆
0x37a80…37b00 UnusedSector ┆ BB BE BF BE 56 48 56 49 4A 4B 8D 97 4A 4B 8D 56 4D BB CC CD 4B BB 97 EC 97 EC BC 8D 7C D8 7C D8 BB CC CB C0 D8 ┆
0x37b00…37b80 UnusedSector ┆83 7C D8 CD 58 56 4C 4B 97 EC 97 EC BC 8D 7C D8 BB CC C0 D8 CB 7C D8 7C D8 D8 56 4C 58 56 4C 58 BE BF 58┆
0x37b80…37c00 UnusedSector ┆ 4D 99 81 56 4C 48 49 BB CC C0 56 4F 56 4C 48 BB CC C0 56 4C 56 4D BB 56 48 80 5F 2C 56 48 FB 8E C0 56 4C 56 48 ┆
0x37c00…37c80 UnusedSector ┆FB 8E C0 56 4D 18 7E D8 56 48 D8 27 56 48 56 4C 4B 49 A0 CC BB A0 7A FA D8 CB 8A F7 58 56 4C 19 7C D8 19 40 D8 1┆
0x37c80…37d00 UnusedSector ┆9 56 4A F6 D8 D8 29 4A BB BB C9 C3 BE 56 4C 56 4D BB 56 48 80 5F 4D 99 81 49 4A 48 56 4C 4B 56 4D 96 1E 7E ┆
0x37d00…37d80 UnusedSector ┆ D8 EC 82 BB CE 8A 50 16 C8 4A C9 27 C3 BE BB CB FB BB C9 56 4D 7F D8 BB CD CB C9 C2 BE 56 49 8B FB 49 EB 4C 4┆
0x37d80…37e00 UnusedSector ┆E BB EB BB 56 4E 4B 56 4C CC 7D D8 FB BB 86 86 81 BE A9 56 4A 48 BB EA FB 8A 80 56 48 7C D8 56 49 BB 8A C2 80 56┆
0x37e00…37e80 UnusedSector ┆ 48 7C D8 49 BB 8A C2 80 56 48 7C D8 49 BB 8A C2 80 56 48 7C D8 49 BB 8A C2 80 56 48 7C D8 49 BB 8A C2 80 56 48 ┆
0x37e80…37f00 UnusedSector ┆7C D8 49 BB 8A C2 80 BE 8A CC CB C2 56 4C BE 49 A0 4B CC BB A0 93 CB 8A F7 58 D8 56 4C 16 56 48 56 49 4A┆
0x37f00…37f80 UnusedSector ┆ BB C8 C1 2E 56 49 BB 56 49 81 56 49 81 56 49 81 56 49 81 48 56 4A 4E 4C 84 56 49 81 82 56 49 81 56 4B 83 80 80 ┆
0x37f80…38000 UnusedSector ┆4E 49 81 49 81 49 81 56 49 81 56 49 81 82 56 4D 85 83 80 80 4E 49 81 49 81 49 81 56 49 81 56 49 81 82 85 83 80 8┆
0x38000…38080 UnusedSector ┆0 4E 49 81 49 81 49 81 56 49 81 56 49 81 82 85 83 80 80 4E 49 81 49 81 49 81 56 49 81 56 49 81 82 85 83 80 ┆
0x38080…38100 UnusedSector ┆ 80 4E 49 81 56 49 81 56 4D 85 82 56 49 81 83 80 80 4E 49 81 85 56 49 81 56 49 C9 81 82 56 49 81 83 80 80 56 4┆
0x38100…38180 UnusedSector ┆E 84 56 49 81 80 80 82 56 49 81 83 56 4E 4C 84 56 4D 85 80 80 82 56 49 81 83 56 4E 84 85 80 80 82 56 49 81 83 56┆
0x38180…38200 UnusedSector ┆ 4E 56 49 81 56 49 81 80 80 56 49 81 82 83 56 4E 49 81 49 81 56 4D 80 80 82 85 83 56 4E 56 4D 56 49 BB CD C1 49 ┆
0x38200…38280 UnusedSector ┆56 71 49 56 71 49 56 71 49 56 71 49 56 71 56 49 56 71 56 49 56 71 56 49 56 71 56 49 56 71 56 DF 56 4C 56┆
0x38280…38300 UnusedSector ┆ 4D 1D A5 18 BB 48 56 4C 90 90 48 90 48 E4 90 48 49 4A 56 4E 90 91 CE C2 48 56 70 48 56 70 56 48 56 49 4A FB 8E ┆
0x38300…38380 UnusedSector ┆C2 56 49 4A FB 8E C2 56 4C 49 E4 BB E4 BB 56 4C 56 49 81 56 49 81 56 49 81 56 49 81 56 49 81 56 49 81 56 49 81 5┆
0x38380…38400 UnusedSector ┆6 49 81 56 49 81 56 49 81 56 49 81 49 81 56 49 81 56 49 81 56 4C 49 81 49 81 56 4C 49 4A 56 48 56 4B 56 4D ┆
0x38400…38480 UnusedSector ┆ BB 80 83 85 C9 C8 CB CD CC C2 56 48 C8 4A 56 4C 7D D8 FB 1D CD 85 C8 CC C2 56 4C 4A 49 81 82 56 4C 49 81 82 5┆
0x38480…38500 DataSector[»PROMGN«]
[…0x11…]
0x38d80…38e00 UnusedSector ┆A2 04 D2 57 00 03 D6 52 00 20 04 DB 57 UUUUUUU00 03 DF 52 00 C0 3B 20 93 2C 9B 41 96 40 52 28 UUUUUUU00 27 26 48 45 45 07 1E 4┆
0x38e00…38e80 UnusedSector ┆7 28 28 44 01 27 26 48 UUUUUUU02 08 F6 21 6B 01 03 07 07 1E 47 28 28 44 02 27 UUUUUUU26 45 49 45 45 4A 47 28 28 44 03 27 26 45┆
0x38e80…38f00 UnusedSector ┆ 49 47 UUUUUUU47 4A 28 29 08 F6 00 3A B1 02 B2 01 2C A5 2A 02 UUUUUUU54 E0 1D E9 43 16 A9 00 1A 54 A2 20 E0 13 03 68 UUUUUUU0┆
0x38f00…38f80 UnusedSector ┆3 05 68 03 54 E0 42 01 94 12 01 B4 26 54 E0 29 UUUUUUU0A DD 08 40 89 36 C6 43 3B 4C 90 01 05 53 90 7E UUUUUUU38 0A 1A 03 37 B7┆
0x38f80…39000 UnusedSector ┆56" END "360" ELSE "370" BEGIN "380" IF ((HEXAS_OUTPUT MOD 32) = 0 ) "400" THEN "410" BEGIN "420" OUTBYTE( F_OUT , SP ) ;┆
0x39000…39080 UnusedSector ┆ "425" OUTBYTE( F_OUT , CR ); "430" OUTBYTES( F_OUT , NULL , 7 ); "440" END "450" ELSE "460" BEGIN "470" IF HEXAS_OUTPUT M┆
0x39080…39100 UnusedSector ┆OD HEXA_PR_SINGLE_PROM = 0 "480" THEN OUTBYTE( F_OUT , SP ); "490" END; "500" END; "510" BIN := ASCII_TO_BIN( HEXA ) ; "520┆
0x39100…39180 UnusedSector ┆" WORD := LEFTSHIFT( WORD , 4 ) + BIN ; "530" END "FOR I " ; "540" PROM[ PROM_NO].CHECKSUM := "600" PROM[PROM_NO].CHECKSUM ┆
0x39180…39200 UnusedSector ┆+ LONG( WORD ) ; "610" IF PROM_NO <= NO_OF_PROMS "612" THEN "613" P_BIT := PROM[ PROM_NO ].PARITY_BIT ; "614" IF (PROM_NO ┆
0x39200…39280 UnusedSector ┆<= NO_OF_PROMS ) AND ( P_BIT >=0) AND ( P_BIT <= 15) "620" THEN "630" BEGIN "640" ONES := 0; "650" FOR I := 0 TO PHYS_PROM.W┆
0x39280…39300 UnusedSector ┆IDTH -1 DO "660" IF TESTBIT( WORD , I ) "670" THEN ONES := ONES + 1 ; "680" IF TESTBIT(PARITY_BITS_IN_USE , P_BIT ) "690" TH┆
0x39300…39380 UnusedSector ┆EN "700" BEGIN "710" IF GETBITS( ONES , 0 , 1 ) <> "720" GETBITS( PARITY_AREA[ROW] , P_BIT , 1 ) "730" THEN SETBIT( PARITY_A┆
0x39380…39400 UnusedSector ┆REA[ ROW ] , P_BIT ) "740" ELSE CLEARBIT(PARITY_AREA[ROW ] , P_BIT ) "750" END "760" ELSE "770" BEGIN "780" IF TESTBIT( ONE┆
0x39400…39480 UnusedSector ┆S , 0 ) "790" THEN CLEARBIT( PARITY_AREA[ROW], P_BIT ) "800" ELSE SETBIT( PARITY_AREA[ROW] , P_BIT ) "810" END; "820" END; "┆
0x39480…39500 UnusedSector ┆830" END "PROMWORD TREATMENT" ; "840" "PAGE" FUNCTION SHORT1( L_INT: UNIV LONG1 ) : INTEGER ; "10" BEGIN "20" SHORT1 := ┆
0x39500…39580 UnusedSector ┆L_INT.LSB ; "30" END; "40" "PAGE" PROCEDURE EXTRACT_PARITY_PROM( F_OUT : STREAM ; "10" PROM_NO : INTEGER ) ; "20" VAR J┆
0x39580…39600 UnusedSector ┆, "30" COL : INTEGER ; "40" BEGIN "50" COL := 16 DIV PHYS_PROM.WIDTH - PROM_NO ; "60" J:= 0 ; "70" REPEAT "80" PROM_WORD_T┆
0x39600…39680 UnusedSector ┆REATMENT( F_OUT , S_IN , J , "110" PROM_NO , HEXA_NO ) ; "115" J := J + 1 ; "120" UNTIL "130" J >=SHORT( PHYS_PROM.SIZE ) ; ┆
0x39680…39700 UnusedSector ┆"140" OUTNL( F_OUT ) ; "142" OUTSTRING( F_OUT , 'CHECKSUM: (:0:)' ); OUTHEXA( F_OUT ,SHORT1( PROM[ PROM_NO ].CHECKSUM ) , 5 ┆
0x39700…39780 UnusedSector ┆) ; "146" OUTNL( F_OUT ) ; OUTBYTE( F_OUT , EM ); "149" END " EXTRACT PARITY PROM" ; "150" "PAGE" PROCEDURE EXTRACT_PROM┆
0x39780…39800 UnusedSector ┆( F_OUT,F_IN : STREAM ; "10" PROM_NO : INTEGER ); "20" VAR ROW , COL , I , S : INTEGER ; "30" HEXA : CHAR ; "40" START,J ,O┆
0x39800…39880 UnusedSector ┆FFSET_NO : LONG_INTEGER ; "50" BEGIN "60" HEXA_NO := 0 ; "70" ROW := ( PROM_NO - 1 ) DIV PROMS_PR_ROW ; "80" COL := ( PROM_N┆
0x39880…39900 UnusedSector ┆O - 1 ) MOD PROMS_PR_ROW ; "90" IF ROW=0 "110" THEN START := PROM_AREA.START_ADDRESS "120" ELSE START := 0L ; "130" IF ROW┆
0x39900…39980 UnusedSector ┆ >= 1 "140" THEN "150" BEGIN "160" J := PHYS_PROM.SIZE - PROM_AREA.START_ADDRESS ; "170" " ROW POSITIONING " "175" OFFSET_N┆
0x39980…39a00 UnusedSector ┆O := J * LONG( HEXA_PR_ROW ) "180" + LONG( HEXA_PR_PROM_ROW * ( ROW-1 ) ); "185" J := 0L ; "190" REPEAT "200" J:= J + 1L ; "┆
0x39a00…39a80 UnusedSector ┆205" READ_HEXA( F_IN , HEXA , HEXA_NO ) ; "210" UNTIL "215" J >= OFFSET_NO ; "218" END " ROW > 1 " ; "220" J := START ; "2┆
0x39a80…39b00 UnusedSector ┆30" WHILE "235" J < PHYS_PROM.SIZE DO "240" BEGIN "245" "POSITION IN THE PROMAREA WORD " "250" FOR S := 1 TO COL*HEXA_PR_SI┆
0x39b00…39b80 UnusedSector ┆NGLE_PROM DO "260" READ_HEXA( F_IN , HEXA , HEXA_NO ); "270" PROM_WORD_TREATMENT( "280" F_OUT , F_IN , SHORT(J) , PROM_NO , ┆
0x39b80…39c00 UnusedSector ┆HEXA_NO ); "285" " SKIP THE REST OF THE LINE " "290" FOR S := 1 TO "300" (PROMS_PR_ROW - COL - 1 )* HEXA_PR_SINGLE_PROM DO "┆
0x39c00…39c80 UnusedSector ┆305" READ_HEXA( F_IN , HEXA, HEXA_NO ); "310" J := J + 1L ; "320" END; "330" OUTNL( F_OUT ) ; "331" OUTSTRING( F_OUT , 'CHE┆
0x39c80…39d00 UnusedSector ┆CKSUM: (:0:)' ); "332" OUTHEXA( F_OUT ,SHORT1( PROM[ PROM_NO ].CHECKSUM ) , 5 ) ; "334" OUTNL( F_OUT ) ; "336" OUTBYTE( F_OUT┆
0x39d00…39d80 UnusedSector ┆ , EM ) ; "340" I := PROM[ PROM_NO ].PARITY_BIT ; "342" IF ( I>=0) AND ( I<=15 ) "344" THEN SETBIT( PARITY_BITS_IN_USE , I )┆
0x39d80…39e00 UnusedSector ┆ ; "346" END " EXTRACT PROM" ; "350" "PAGE" PROCEDURE PRINT_ID_RECORD( S: STREAM; "10" PROM_NO: INTEGER ); "20" BEGIN "30┆
0x39e00…39e80 UnusedSector ┆" OUTNL(S); "40" OUTSTRING( S , 'ORIGINATED BY: (:0:)' ); "50" OUTSTRING( S , ID_RECORD.ORIGINATOR ); "60" OUTNL(S); "70" ┆
0x39e80…39f00 UnusedSector ┆OUTSTRING( S , 'PROJECT NO: (:0:)' ); "80" OUT_LONG_INTEGER( S , ID_RECORD.PROJECT_NO , 8 ); "90" OUTNL(S); "100" OUTSTRING(┆
0x39f00…39f80 UnusedSector ┆ S , 'DATE: (:0:)' ); "110" OUT_LONG_INTEGER( S , ID_RECORD.DATE , 8 ); "120" OUTNL( S ) ; "130" OUTSTRING( S , 'MODULE: (:0┆
0x39f80…3a000 UnusedSector ┆:)' ); "140" OUTTEXT( S , ID_RECORD.MODULE , 60 ) ; "150" OUTNL(S); "160" OUTSTRING( S , 'FLOPPY DISC NO CR/D/(:0:)' ); "170┆
0x3a000…3a080 UnusedSector ┆" OUTINTEGER( S , ID_RECORD.FLOPPY_DISC_NO , 4 ); "180" OUTNL(S); "190" OUTSTRING( S, 'SOURCE TEXT AND VERSION: (:0:)' ); "2┆
0x3a080…3a100 UnusedSector ┆00" OUTTEXT( S , ID_RECORD.SOURCE_TEXT ,60 ); "210" OUTNL(S); "220" OUTSTRING( S , 'AREASIZE: (:0:)' ); "230" OUT_LONG_INTE┆
0x3a100…3a180 UnusedSector ┆GER( S , PROM_AREA.SIZE , 7 ); "240" OUTNL(S); "250" OUTSTRING( S , 'AREA START ADDRESS: (:0:)' ); "260" OUT_LONG_INTEGER( S┆
0x3a180…3a200 UnusedSector ┆ , PROM_AREA.START_ADDRESS , 7 ); "270" OUTNL(S); "280" OUTSTRING( S , 'PROMSIZE: (:0:)' ); "290" OUT_LONG_INTEGER( S , PHYS┆
0x3a200…3a280 UnusedSector ┆_PROM.SIZE , 6) ; "300" OUTNL(S); "310" OUTSTRING( S , 'PROMWIDTH: (:0:)' ); "320" OUTINTEGER( S , PHYS_PROM.WIDTH , 4 ); "3┆
0x3a280…3a300 UnusedSector ┆30" OUTNL(S); "340" OUTSTRING( S , 'PROM FILE: (:0:)' ); "350" OUTSTRING( S , PROM[ PROM_NO ].FILE ); "360" OUTNL(S); "370┆
0x3a300…3a380 UnusedSector ┆" OUTSTRING( S , 'PROMID: (:0:)' ); "380" OUTINTEGER( S ,PROM[ PROM_NO ].IDNO , 5 ); "390" OUTSTRING( S , ' VERSION: (:0:)' ┆
0x3a380…3a400 UnusedSector ┆); "400" OUTINTEGER( S , PROM[ PROM_NO ].VERSION , 3 ); "410" IF PROM_NO <= NO_OF_PROMS "420" THEN "422" BEGIN "423" OUTST┆
0x3a400…3a480 UnusedSector ┆RING( S , ' PARITY BIT: (:0:)' ); "424" OUTINTEGER( S , PROM[ PROM_NO ].PARITY_BIT , 2 ); "425" END; "427" OUTNL(S); "440" ┆
0x3a480…3a500 UnusedSector ┆OUTSTRING( S , 'PROM INPUT FILE: (:0:)' ); "450" OUTTEXT( S , PROM_INPUT_FILE , IDLENGTH ) ; "460" OUTNL( S ); "465" OUTSTRI┆
0x3a500…3a580 UnusedSector ┆NG( S , 'PARAM INPUT FILE: (:0:)' ); "470" OUTTEXT( S , PARAM_INPUT_FILE , IDLENGTH ) ; "480" OUTNL(S); "540" END "PRINT_ID_┆
0x3a580…3a600 UnusedSector ┆RECORD"; "550" "PAGE" PROCEDURE OC_CHECKSUM( PROM_NO : INTEGER ) ; "10" VAR S : STREAM ; "15" BEGIN "20" OPEN( S , 'OC(:┆
0x3a600…3a680 UnusedSector ┆0:)' , OUTPUT ) ; "30" OUTNL(S); "500" OUTSTRING( S , 'PROMID: (:0:)' ); "380" OUTINTEGER( S ,PROM[ PROM_NO ].IDNO , 5 ); "39┆
0x3a680…3a700 UnusedSector ┆0" OUTSTRING( S , ' VERSION: (:0:)' ); "400" OUTINTEGER( S , PROM[ PROM_NO ].VERSION , 3 ); "410" OUTNL(S); "370" OUTSTRING┆
0x3a700…3a780 UnusedSector ┆( S , 'CHECKSUM: (:0:)' ); "520" OUTHEXA( S , SHORT1( PROM[ PROM_NO ].CHECKSUM ) , 5 ) ; "530" OUTNL( S ) ; "535" CLOSE( S )┆
0x3a780…3a800 UnusedSector ┆ ; "536" END "OC CHECKSUM" ; "540" "PAGE" "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" " MAIN PRO┆
0x3a800…3a880 UnusedSector ┆GRAM " "**********************************************************************" BEGIN "10" OPEN( S_IN , 'OC(:0:)' , INPUT ); ┆
0x3a880…3a900 UnusedSector ┆"20" OPEN( S_OUT, 'OC(:0:)' , OUTPUT ); "30" GET_OC_PARAMS( S_IN , S_OUT ) ; "40" CLOSE( S_IN); "50" CLOSE( S_OUT ) ; "60" ┆
0x3a900…3a980 UnusedSector ┆IF PARAM[P].TAG = IDTYPE "62" THEN PARAM_INPUT_FILE := PARAM[ P ].ID "63" ELSE PARAM_INPUT_FILE := 'OC(:0:) ' ; "65" IF PARAM┆
0x3a980…3aa00 UnusedSector ┆[S].TAG = IDTYPE "66" THEN PROM_INPUT_FILE := PARAM[S].ID "67" ELSE PROM_INPUT_FILE := 'OC(:0:) ' ; "69" OPEN( S_IN , PARAM_I┆
0x3aa00…3aa80 UnusedSector ┆NPUT_FILE , INPUT ) ; "70" GET_DISC_PARAMS( S_IN ); "80" CLOSE( S_IN ) ; "90" CHECK_PARAMS ; "95" DEFINE_CONSTANTS ; "100" ┆
0x3aa80…3ab00 UnusedSector ┆FOR I:=1 TO ( NO_OF_PROMS + NO_OF_PARITY_PROMS ) DO "110" BEGIN "120" OPEN( S_IN , PROM_INPUT_FILE , INPUT ); "130" OPEN( S_O┆
0x3ab00…3ab80 UnusedSector ┆UT , PROM[I].FILE , OUTPUT ) ; "140" PRINT_ID_RECORD( S_OUT , I ); "150" IF I <= NO_OF_PROMS "162" THEN EXTRACT_PROM( S_OUT ,┆
0x3ab80…3ac00 UnusedSector ┆ S_IN , I ) "164" ELSE EXTRACT_PARITY_PROM( S_OUT , I); "166" CLOSE( S_IN ) ; "170" CLOSE( S_OUT ) ; "180" OC_CHECKSUM( I );┆
0x3ac00…3ac80 UnusedSector ┆ "185" END; "190" END. "200" "**********************************************************************" " END OF PROGRAM " "***┆
0x3ac80…3ad00 UnusedSector ┆*******************************************************************" "PAGE" "170" CLOSE( S_OUT ) ; "180" OC_CHECKSUM( I );┆
0x3ad00…3ad80 UnusedSector ┆FA D8 4F BE FD 56 4C 45 46 55 44 41 20 44 00 6C 6B 8A FE FF 4A 82 BE CE C2 DA FD 54 4D 4E 20 45 54 4A FE┆
0x3ad80…3ae00 UnusedSector ┆ 48 70 FE 6E 4D 8B FB 49 96 F0 58 DA FD 41 44 45 53 43 45 4B 48 70 FE 6E BC 69 48 FB 7E FE BB FB FA FE CE C8 C1 ┆
0x3ae00…3ae80 UnusedSector ┆FE 48 70 99 6E 8B 6D 8B FB FE CE C1 DA FD 43 45 4B 52 4F 52 20 45 54 48 70 98 99 6E BC BB 4A D0 CF C2 4B 73 6A 2┆
0x3ae80…3af00 UnusedSector ┆4 AA E9 C2 6E BC 4F 77 6A 63 F8 FA FE CE C2 DA FD 52 46 45 48 54 53 00 48 70 48 49 C1 C0 6E BC 98 99 6A 63 ┆
0x3af00…3af80 UnusedSector ┆ F8 FA FE CE C2 DA FD 4D 57 54 53 00 48 70 4A 4B 6E BC 4F BE FE 4F BE BB A0 8A 49 FA D8 FB D8 FE D8 FB FE 98 8┆
0x3af80…3b000 UnusedSector ┆A C1 CA C3 4A 72 FF DA FD 4D 57 54 53 00 48 70 4A 4B 6E BC 4F BE FE 4F BE BB A0 8A 49 F8 D8 FB D8 FE D8 FB FE 98┆
0x3b000…3b080 UnusedSector ┆ 8A C1 CA C3 4A 4B 6E BC 4F BE CA FE 4F BE BB A0 8A 49 FA D8 FB D8 FE D8 FB FE 98 8A C1 CA C3 4A 72 FF D9 FD 4D ┆
0x3b080…3b100 UnusedSector ┆57 54 53 00 48 70 4A 4B 6E BC 4F BE FE 4F BE BB A0 8A 49 F8 D8 FB D8 FE D8 FB FE 98 8A C1 CA C3 4A 72 FF┆
0x3b100…3b180 UnusedSector ┆ 4A FE 9C 6E 8B BC 49 98 BC 46 D8 FB D8 D8 FB D8 98 BC FE 98 8A C1 98 BC D9 FD 53 45 44 54 53 00 4A FE 48 70 68 ┆
0x3b180…3b200 UnusedSector ┆6E 6F 8B BC 69 E9 E9 E9 E9 E9 E9 E9 E9 E9 E9 E9 E9 E9 E9 E9 E9 C1 C0 49 FF D9 FD 46 53 20 44 52 49 56 52 20 45 5┆
0x3b200…3b280 UnusedSector ┆4 48 70 FE 6E 6F AF 8B BC 69 FB FB EE FB EE FA FE CE AF C1 D9 FD 42 54 45 45 43 53 00 48 70 48 6E BC 6A 4C ┆
0x3b280…3b300 UnusedSector ┆ 52 BB FB FA FE CE C2 C8 F0 58 D9 FD 42 54 20 45 54 48 70 6E BC 98 49 6A BB 4B BB 14 93 9C FB FA FE 4B BB 14 9┆
0x3b300…3b380 UnusedSector ┆3 9C FB FA FE BB 14 7B 4C FA FE BB 14 7B 4C FA FE CE C9 C2 D9 6A F2 D9 FD 44 55 4C 20 43 45 53 54 53 00 FD 52 54┆
0x3b380…3b400 UnusedSector ┆ 20 55 42 53 20 50 3A 4D 49 42 53 48 70 F0 E4 48 70 FF FF FF FF 68 C8 F0 58 D9 69 F0 D9 FD 42 4F 4B 4F 45 54 53 ┆
0x3b400…3b480 UnusedSector ┆00 48 70 48 70 FF FF FF FF D8 69 F0 D9 FD 42 4F 4B 4F 45 54 4D 4E 20 45 54 48 70 48 70 FE FF DC F0 58 FE┆
0x3b480…3b500 UnusedSector ┆ D8 68 F2 D9 48 70 FE E4 4C FE CC FE D9 EC 73 DF D8 BD D8 FC FC FC FC FD 43 41 47 20 55 20 43 45 53 20 FF A9 B0 ┆
0x3b500…3b580 UnusedSector ┆D8 FD 52 4D 54 53 20 4E 00 D8 4E 13 D8 4E 16 94 94 FC FE D8 A0 6A 8A BF 98 6C BB 8B BC 49 4A BB BB 8E C2 AC BB 8┆
0x3b580…3b600 UnusedSector ┆0 80 80 BF FE D8 EC 73 D8 5D 96 FE D8 5D 97 FE D8 5D BB FE D8 96 D8 5D BB FE D8 97 D8 E4 E4 E4 48 70 5D BB ┆
0x3b600…3b680 UnusedSector ┆ 68 F0 97 F2 96 B0 FE FE 48 96 F0 58 D8 E4 48 70 5D BB FE D8 69 F0 97 F2 96 48 96 F0 58 D8 94 4B 5F 68 9D 8B 8┆
0x3b680…3b700 UnusedSector ┆0 94 BB BE 48 BC 6A B2 24 7E D8 96 F0 58 BE D8 D8 FD 44 56 BB FE FD 20 20 69 EC C9 FF 58 FD 2E 00 FF A9 B2 BE D8┆
0x3b700…3b780 UnusedSector ┆ 58 A9 7C 58 7C 58 7C 58 7C 58 7C 58 7C 58 7C 58 7C 58 7C 58 7C 58 7C 58 7C 58 7C 58 7C D8 49 FF 58 FD 54 53 20 ┆
0x3b780…3b800 UnusedSector ┆░░ ░░ ┆
0x3b800…3b880 UnusedSector ┆░░ 2 1 2 I░░░░░░░░░░░░░░░░░░ ░░ ┆
0x3b880…3b900 UnusedSector ┆░░ ░░ ┆
0x3b900…3b980 UnusedSector ┆░░ 2 1 2 I░░░░░░░░░░░░░░░░░░ ░░ ┆
0x3b980…3ba00 UnusedSector ┆░░ ░░ ┆
0x3ba00…3ba80 UnusedSector ┆░░ 2 1 2 I░░░░░░░░░░░░░░░░░░ ░░ ┆
0x3ba80…3bb00 UnusedSector ┆░░ ░░ ┆
0x3bb00…3bb80 UnusedSector ┆░░ 2 1 2 I░░░░░░░░░░░░░░░░░░ ░░ ┆
0x3bb80…3bc00 UnusedSector ┆░░ ░░ ┆
0x3bc00…3bc80 UnusedSector ┆░░MPGN ░░░░░░░░░░░░░░░░░░ ( ░░ ┆
0x3bc80…3bd00 UnusedSector ┆░░ ░░ ┆
0x3bd00…3bd80 UnusedSector ┆░░ 2 1 2 I░░░░░░░░░░░░░░░░░░ ░░ ┆
0x3bd80…3be00 UnusedSector ┆░░ ░░ ┆
0x3be00…3be80 UnusedSector ┆░░ 2 1 2 I░░░░░░░░░░░░░░░░░░ ░░ ┆
0x3be80…3bf00 UnusedSector ┆░░ ░░ ┆
0x3bf00…3bf80 UnusedSector ┆░░ 2 1 2 I░░░░░░░░░░░░░░░░░░ ░░ ┆
0x3bf80…3c000 UnusedSector ┆░░ ░░ ┆
0x3c000…3c080 UnusedSector ┆░░ 2 1 2 I░░░░░░░░░░░░░░░░░░ ░░ ┆
0x3c080…3c100 UnusedSector ┆░░ ░░ ┆
0x3c100…3c180 UnusedSector ┆░░ 2 1 2 I░░░░░░░░░░░░░░░░░░ ░░ ┆
0x3c180…3c200 UnusedSector ┆░░ ░░ ┆
0x3c200…3c280 UnusedSector ┆░░ 2 1 2 I░░░░░░░░░░░░░░░░░░ ░░ ┆
0x3c280…3c300 UnusedSector ┆░░ ░░ ┆
0x3c300…3c380 UnusedSector ┆░░ 2 1 2 I░░░░░░░░░░░░░░░░░░ ░░ ┆
0x3c380…3c400 UnusedSector ┆░░ ░░ ┆
0x3c400…3c480 UnusedSector ┆░░ 2 1 2 I░░░░░░░░░░░░░░░░░░ ░░ ┆
0x3c480…3c500 UnusedSector ┆░░ ░░ ┆
0x3c500…3c580 UnusedSector ┆░░ 2 1 2 I░░░░░░░░░░░░░░░░░░ ░░ ┆
0x3c580…3c600 UnusedSector ┆░░ ░░ ┆
0x3c600…3c680 UnusedSector ┆░░ 2 1 2 I░░░░░░░░░░░░░░░░░░ ░░ ┆
0x3c680…3c700 UnusedSector ┆░░ ░░ ┆
0x3c700…3c780 UnusedSector ┆░░ 2 1 2 I░░░░░░░░░░░░░░░░░░ ░░ ┆
0x3c780…3c800 UnusedSector ┆░░ ░░ ┆
0x3c800…3c880 UnusedSector ┆░░TPRO ░░░░░░░░░░░░░░ ░░ ┆
0x3c880…3c900 UnusedSector ┆░░ ░░ ┆
0x3c900…3c980 UnusedSector ┆░░ 2 1 2 I░░░░░░░░░░░░░░░░░░ ░░ ┆
0x3c980…3ca00 UnusedSector ┆░░ ░░ ┆
0x3ca00…3ca80 UnusedSector ┆░░ 2 1 2 I░░░░░░░░░░░░░░░░░░ ░░ ┆
0x3ca80…3cb00 UnusedSector ┆░░ ░░ ┆
0x3cb00…3cb80 UnusedSector ┆░░OM1 ; ░░░░░░░░ ░░OM2 ; ░░░░░░░░ ┆
0x3cb80…3cc00 UnusedSector ┆░░OM3 ; ░░░░░░░░ ░░OM4 ; ░░░░░░░░ ┆
0x3cc00…3cc80 UnusedSector ┆░░RITY ; ░░░░░░░░ ░░OMP ░░░░░░░░░░░░░░░░░░ ┆
0x3cc80…3cd00 UnusedSector ┆░░ ░░ ┆
0x3cd00…3cd80 UnusedSector ┆░░ 2 1 2 I░░░░░░░░░░░░░░░░░░ ░░ ┆
0x3cd80…3ce00 UnusedSector ┆░░ ░░ ┆
0x3ce00…3ce80 UnusedSector ┆░░ 2 1 2 I░░░░░░░░░░░░░░░░░░ ░░ ┆
0x3ce80…3cf00 UnusedSector ┆░░ ░░ ┆
0x3cf00…3cf80 UnusedSector ┆░░ 2 1 2 I░░░░░░░░░░░░░░░░░░ ░░ ┆
0x3cf80…3d000 UnusedSector ┆░░ ░░ ┆
0x3d000…3d080 UnusedSector ┆░░ 2 1 2 I░░░░░░░░░░░░░░░░░░ ░░ ┆
0x3d080…3d100 UnusedSector ┆6 4C 49 81 82 56 4C 49 81 82 56 4C 48 49 4A BB 80 BB CB 83 83 BB AD CB C5 83 C8 56 CC C1 56 4C 48 49 BB C8 CC C1┆
0x3d100…3d180 UnusedSector ┆ 56 4C 48 49 4A BB 80 BB CB 83 83 BB AD CB C5 83 C8 CC C1 56 4C 48 99 56 4A CC BB 81 CC CA C0 56 4C 99 BB 56 4C ┆
0x3d180…3d200 UnusedSector ┆99 BB 56 4C 99 BB 56 4C 18 7C D8 49 48 8D 97 BB 56 4C 1A 8B 42 BC 1B 4A EB 42 D8 1B 8A 4D 4E E4 42 D8 CD┆
0x3d200…3d280 UnusedSector ┆ 8B 58 BE F2 18 8A E5 42 D8 16 48 80 83 BE BE BB 49 1B EB 42 D8 1B 8A E4 42 D8 19 C9 E4 42 D8 48 80 19 C9 E5 42 ┆
0x3d280…3d300 UnusedSector ┆D8 49 81 09 D8 83 D8 81 D8 81 49 8B 83 BE 80 56 4B 19 1A BB EA 8B 80 56 49 48 97 56 49 48 97 56 49 48 97 49 56 4┆
0x3d300…3d380 UnusedSector ┆A 8D 48 97 49 56 4C CC 4B 7D D8 4A 97 C2 C9 CC C3 48 4E 56 49 81 56 4A 82 99 81 56 49 81 99 81 80 80 56 4C ┆
0x3d380…3d400 UnusedSector ┆ 48 80 48 BC BE 56 48 BC 56 4C 18 49 FB F2 D8 C9 24 C0 D8 1A 4B 18 F2 D8 CB 24 C0 BE CC BB A0 8A BB 56 4C CC B┆
0x3d400…3d480 UnusedSector ┆B A0 8A FB BB 56 4C 81 27 4D F6 D8 CE BB C8 FB 56 48 BC 56 4C 48 1A E4 44 FC CC C0 56 4C 19 F0 D8 19 56 E4 44 FC┆
0x3d480…3d500 UnusedSector ┆ BE BF 56 48 BC 58 BE 56 6C FB 56 4D 56 48 BC 18 52 80 FB 88 BB 56 48 BC FF 56 75 1C 56 48 BC 1A FB 13 19 F4 D8 ┆
0x3d500…3d580 UnusedSector ┆CA CHECKSUM: #81D7 6 D8 CE BB C8 FB 56 48 BC 56 4C 48 1A E4 44 FC CC C0 56 4C 19 F0 D8 19 56 E4 44 FC┆
0x3d580…3d600 UnusedSector ┆ ORIGINATED BY: LI PROJECT NO: 1556 DATE: 801124 MODULE: TARA FLOPPY DIS┆
0x3d600…3d680 UnusedSector ┆C NO CR/D/ 0 SOURCE TEXT AND VERSION: TARA AREASIZE: 4096 AREA START ADD┆
0x3d680…3d700 UnusedSector ┆RESS: 0 PROMSIZE: 2048 PROMWIDTH: 8 PROM FILE: PROM3 PROMID: 3 VERSION: 1 PARITY BIT: 5 PROM INPUT FILE: TARAH PARAM INPUT FILE┆
0x3d700…3d780 UnusedSector ┆: PROMP 02 4A 08 03 C0 00 E0 A9 80 0D 9B 05 0D 9B 0B 30 08 01 90 F1 93 04 09 06 08 0B 09 1A A0 07 0A 01 06 08┆
0x3d780…3d800 UnusedSector ┆ 07 1A 09 0B 01 90 F1 C9 90 05 06 91 00 0A 14 9B 0D 42 1D 9C 83 0A 11 65 01 00 6E 89 02 63 EF E0 40 07 02 10 39 ┆
0x3d800…3d880 UnusedSector ┆01 3B 0B 01 3E 03 0B 0D 07 21 0F 58 2D BC 1C 49 97 0D 9B 07 21 0C 50 0D 10 02 01 55 0B 01 58 03 5A 0B 10 02 02 5┆
0x3d880…3d900 UnusedSector ┆F 0C 01 62 04 0D 07 21 0F 01 2A 0F 21 05 02 9B 42 0D 9B 84 EE 00 AE 01 1E 0D 9B 82 46 80 4D 0D 9B 03 0F 2B ┆
0x3d900…3d980 UnusedSector ┆ 01 0F BA 2B 03 AE 9A 03 10 0F 2B 01 0F BA 2B 03 01 DA 04 96 0C 10 99 01 9B 9C EA 20 D1 2F 03 11 04 03 62 40 4┆
0x3d980…3da00 UnusedSector ┆1 AA 80 02 BD 80 90 69 1D A0 06 00 90 01 40 01 4D 80 06 00 B0 01 40 01 4D 80 A0 05 01 40 00 01 4D 02 BD 80 80 4B┆
0x3da00…3da80 UnusedSector ┆ 0D A0 06 00 80 01 40 01 4D 01 00 D0 01 01 DD 02 3D 01 5B AD 80 90 34 1D 80 06 00 A0 01 40 01 4D 01 00 D0 01 01 ┆
0x3da80…3db00 UnusedSector ┆F E9 40 6A 00 0F 54 FE C3 A9 40 41 0F 54 40 02 99 00 E9 FE 36 A9 40 02 9A 00 E9 FE AF A9 59 82 AA 02 03 26 ┆
0x3db00…3db80 UnusedSector ┆ 05 13 09 03 D0 09 E9 40 6D 01 FE 0E A9 40 41 02 03 0E 09 01 45 06 45 45 46 08 07 01 02 01 0A 09 0C 12 02 4B 0┆
0x3db80…3dc00 UnusedSector ┆1 0B 09 08 09 06 68 3C 42 09 42 FF 00 10 00 4B 9D 01 03 09 42 E0 00 E2 01 43 46 01 02 14 02 58 07 43 42 C0 00 E2┆
0x3dc00…3dc80 UnusedSector ┆ AB 03 D5 01 64 FC B3 4F 01 FF 52 05 6A 02 24 EB 95 03 D5 01 64 03 D5 00 04 E1 00 72 E9 04 05 0A 48 00 38 30 40 ┆
0x3dc80…3dd00 UnusedSector ┆01 06 A9 80 E9 05 01 0A 0F E9 49 02 E9 04 01 00 30 0F 54 15 01 40 62 AB 0B B4 0A AB 0B 38 01 0B C4 A9 80┆
0x3dd00…3dd80 UnusedSector ┆ 0F 67 81 0A 01 F8 57 EC E9 0F 67 81 0A 01 F8 4E A9 80 E9 0F 5A 81 0C 01 F8 44 A9 80 E9 0C 0F 60 01 02 1C 0F 60 ┆
0x3dd80…3de00 UnusedSector ┆81 0E 01 F8 34 A9 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 E9 04 05 E9 02 E9 04 D1 05 01 4E 64 A4 83 4┆
0x3de00…3de80 UnusedSector ┆0 C4 08 A9 80 E9 4E 06 E9 4E 02 E9 04 D1 00 40 30 80 17 80 0E 8A 03 11 80 09 8A 07 C4 04 01 11 C4 A9 81 A9 ┆
0x3de80…3df00 UnusedSector ┆XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" "PAGE" "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX┆
0x3df00…3df80 UnusedSector ┆XXXXXXXXXX" " " " PROGRAM GENERATION " " THE SOURCE PROGRAM CONSISTS OF THE FOLLOWING FILES: " " " " PMODULE : MODULE HEADER " "┆
0x3df80…3e000 UnusedSector ┆ PREFIX : PREFIX ROUTINES " " IODEC : IO DECLARATIONS AND CONSTANTS " " PDEC : PROMGEN DECLARATIONS AND CONSTANTS " " IO : IO PR┆
0x3e000…3e080 UnusedSector ┆OCEDURES " " PPROC : PROMGEN PROCEDURES " " PPROG : PROMGEN MAIN PROGRAM " " " " THESE SOURCE PROGRAMS ARE MERGED: " " MERGE S: ┆
0x3e080…3e100 UnusedSector ┆PMERGE1 O:PS1 " " " " HEREAFTER THE COMPILER IS CALLED: " " COMPILE S:PS1 O:GENOBJ P:PLIST1 " " " " THE BLOCKSIZE IS CHANGED: " ┆
0x3e100…3e180 UnusedSector ┆ 80 0F 0E 11 6F 09 D1 02 02 92 C9 02 03 96 01 C9 03 02 9B 02 C9 02 02 A0 03 C9 11 6F 1A 00 09 04 E0 00 E3 A9 1┆
0x3e180…3e200 UnusedSector ┆2 03 03 40 32 00 3A 11 6F 05 0F 54 07 0F 54 03 29 19 13 06 00 04 C0 00 E0 33 E9 00 0F 0E 28 8D 01 03 A9 80 E9 0F┆
0x3e200…3e280 UnusedSector ┆ 0E 0E 1E 1C 0A C2 A1 03 ED 05 05 4A 4C 8A 2C 04 20 40 01 B9 45 11 1E 1C 3C 00 F7 8A 1C 1E 1C 3C 00 F7 83 A9 80 ┆
0x3e280…3e300 UnusedSector ┆01 D7 0F 6C 81 08 01 F7 78 1E 1C 50 00 F7 49 0F 0E 08 54 53 80 84 44 44 80 25 43 44 80 27 41 44 80 23 4D┆
0x3e300…3e380 UnusedSector ┆ 44 80 4F 4D 4C 80 5C 50 4C 80 6A 4D 4E 80 77 54 44 80 8E 50 44 80 8A 58 45 80 D6 3E 11 6F 04 01 6B 43 93 46 0F ┆
0x3e380…3e400 UnusedSector ┆0F 01 D6 4B 11 65 5A 01 5E 00 E4 03 01 06 56 41 44 80 06 5E 89 4B 01 87 5F 5E 82 10 0A 2F E0 00 E0 CA 42 03 C0 0┆
0x3e400…3e480 UnusedSector ┆0 E0 0A 2F 10 01 9B 73 9A 76 0F 0F FE FD 7B 4A 02 FE F8 80 4B 2C 00 AC 84 1B 06 B2 0F 0F FE EB 8D 4A 02 FE ┆
0x3e480…3e500 UnusedSector ┆" CONV41 S:GENOBJ O:PROMGEN.BIN " " " "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" " " " PROGRAM STO┆
0x3e500…3e580 UnusedSector ┆RAGE " " " " CR/D/1327 " " " "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" " " " REFERENCE DOCUMENTS ┆
0x3e580…3e600 UnusedSector ┆" " VERSION DESCRIPTION DOCUMENT: CSS/103/VDD/0018 " " USERS MANUAL: CSS/103/USM/0025 " " LISTING : CSS/103/LST/0001 " " " "XXXX┆
0x3e600…3e680 UnusedSector ┆XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" "PAGE" XXXXXXXXXXXXXXXXXXXX" " " " REFERENCE DOCUMENTS ┆
0x3e680…3e700 UnusedSector ┆XXXXXXXXXXXXXX" "PAGE" XXXXXXXXXXXXXXXXXXXX" " " " REFERENCE DOCUMENTS " " VERSION DESCRIPTION DOCUMENT: CSS/103/VDD/0018 "┆
0x3e700…3e780 UnusedSector 0x1a[128]
[…0x3…]
