OctetView
0x00000…00080 UnusedSector ┆d d ░░░░░░░░░░ @g 2 d d i S d ~ H H i S d Y O \ a B O O T E ┆
0x00080…00100 UnusedSector ┆ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00100…00180 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x00180…001c0 DirEnt {filename=»«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0002, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0001, de0d=0x0000, cluster2=0x0002, 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 04 69 04 53 00 00 04 64 03 7e 04 48 04 48 04 69 04 53 00 00 04 64 00 00 00 00 03 59 04 4f 04 5c ┆ i S d ~ H H i S d Y O \┆
0x001e0…00200 00 01 04 61 00 00 00 01 00 04 00 20 00 00 00 01 00 49 00 4e 00 49 00 54 00 20 00 20 00 20 05 45 ┆ a I N I T E┆
0x00200…00280 UnusedSector ┆&:>+ ( ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00280…00300 UnusedSector ┆ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00300…00380 UnusedSector ┆) ,=66+;& ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00380…00400 UnusedSector ┆;7 &; > > ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00400…00440 DirEnt {filename=»░░ ░░«, kind=0x554f, de04=0x3150, de05=0x0000, de06=0x000e, de07=0x0000, cluster=0x0001, de09=0x0001, de0a=0x0001, de0b=0x0000, nsect=0x0000, de0d=0x0001, cluster2=0x0001, de0f=0x0000, de10=0x0001, de11=0x2002, de12=0x2003, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0010, de1f=0x0001}
0x00440…00480 DirEnt {filename=»░░ i«, kind=0x0000, de04=0x0000, de05=0x02df, de06=0x0408, de07=0x045d, cluster=0x05a1, de09=0x17ed, de0a=0x0b07, de0b=0x0300, nsect=0x0003, de0d=0x0698, cluster2=0x001d, de0f=0x07d2, de10=0x0003, de11=0x0002, de12=0x0046, de13=0x0044, de14=0x0030, de15=0x0030, de16=0x0046, de17=0x0049, de18=0x004c, de19=0x0045, de1a=0x0044, de1b=0x004d, de1c=0x0041, de1d=0x0030, de1e=0x0030, de1f=0x0030}
0x00480…004c0 DirEnt {filename=»░░ ░░«, kind=0x554f, de04=0x3150, de05=0x0000, de06=0x000e, de07=0x0000, cluster=0x0001, de09=0x0001, de0a=0x0001, de0b=0x0000, nsect=0x0000, de0d=0x0001, cluster2=0x0001, de0f=0x0000, de10=0x0001, de11=0x2002, de12=0x2003, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0010, de1f=0x0001}
0x004c0…00500 DirEnt {filename=»FMS«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0064, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x019c, de0d=0x0000, cluster2=0x0064, de0f=0x000b, de10=0x0407, de11=0x0803, de12=0x0b19, de13=0x0f15, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0029, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00500…00580 DataSector[»FMS«]
[…0x19c…]
0x0d380…0d400 UnusedSector ┆CTOR); WRITETXT('BOOT ENTRY GENERATED WITH FIRST=(:0:)'); WRITEHEX(START); WRITETXT(' BASE=(:0:)'); WRITEHEX(BASE); WRITETXT┆
0x0d400…0d480 UnusedSector ┆(' PAGE=(:0:)'); WRITEHEX(PAGE); WRITETXT('(:10:)(:0:)') END END END END END; "OF BOOT" PROCEDURE READ; VAR AREA_INF :┆
0x0d480…0d500 UnusedSector ┆ AREA_INFORMATION; F_STREAM : STREAM; SECTR : SECTOR; CURRENT_SECT, REC_LENGTH, COUNT1, I : INTEGER; TEXT_FILE, OK : BOOLEAN┆
0x0d500…0d580 UnusedSector ┆; CURRENT_BYTE : BYTE; BEGIN GET_FILENAMES(OUTPUT_MODE, AREA_INF, F_STREAM, TEXT_FILE, OK); IF OK THEN BEGIN CURRENT_SECT┆
0x0d580…0d600 UnusedSector ┆ := 0; REPEAT GET_SECTOR(CURRENT_SECT, SECTR, REC_LENGTH, AREA_INF); IF TEXT_FILE THEN BEGIN COUNT1 := 0; REPEAT CURRENT_┆
0x0d600…0d680 UnusedSector ┆BYTE := GETBITS(SECTR[COUNT1 DIV 2], 8*(COUNT1 MOD 2) + 7, 8); IF CURRENT_BYTE >= #80 THEN FOR I:=1 TO CURRENT_BYTE-#80 DO WR┆
0x0d680…0d700 UnusedSector ┆ITE_BYTE(F_STREAM, ' ', OK) ELSE IF CURRENT_BYTE = ORD(EM) THEN BEGIN AREA_INF.SIZE := CURRENT_SECT; REC_LENGTH := COUNT1 ┆
0x0d700…0d780 UnusedSector ┆END ELSE WRITE_BYTE(F_STREAM, CURRENT_BYTE, OK); COUNT1 := SUCC(COUNT1); UNTIL (COUNT1 >= REC_LENGTH) OR (NOT OK) END ELSE ┆
0x0d780…0d800 UnusedSector ┆ BEGIN OUTREC(F_STREAM, SECTR[0], REC_LENGTH, CC); IF CC <> 0 THEN BEGIN CCERROR_R; OK := FALSE END END; CURRENT_SECT :=┆
0x0d800…0d880 UnusedSector ┆ SUCC(CURRENT_SECT) UNTIL (NOT OK) OR (CURRENT_SECT > AREA_INF.SIZE); CLOSE(F_STREAM) END END; "OF READ" PROCEDURE WRITE; ┆
0x0d880…0d900 UnusedSector ┆ VAR AREA_INF : AREA_INFORMATION; F_STREAM : STREAM; ENTRY_SECT : ARRAY[SYS_1_ENTRY_POSN] OF ENTRY; SECTR : SECTOR; EAREA :┆
0x0d900…0d980 UnusedSector ┆ ENTRY_FIELD; REC_LENGTH, SECT_NUMB, AREA_NUMB, S : INTEGER; TEXT_FILE, OK, ROOM_LEFT, E_O_F : BOOLEAN; CURRENT_BYTE, TEMP_BY┆
0x0d980…0da00 UnusedSector ┆TE : BYTE; BEGIN GET_FILENAMES(INPUT_MODE, AREA_INF, F_STREAM, TEXT_FILE, OK); IF OK THEN BEGIN E_O_F := FALSE; ROOM_LEFT┆
0x0da00…0da80 UnusedSector ┆ := TRUE; "SET TO FALSE IF SYS. 1 FILE BECOMES FULL" REC_LENGTH := 128; CURRENT_BYTE := 0; SECT_NUMB := -1; REPEAT IF TEXT_┆
0x0da80…0db00 UnusedSector ┆FILE THEN BEGIN REC_LENGTH := 0; WHILE (REC_LENGTH < 128) AND (NOT E_O_F) DO BEGIN IF CURRENT_BYTE > #80 THEN CURRENT_BYTE ┆
0x0db00…0db80 UnusedSector ┆:= TEMP_BYTE ELSE INBYTE(F_STREAM, CURRENT_BYTE, CC); IF CC = EOF THEN BEGIN CURRENT_BYTE := ORD(EM); E_O_F := TRUE END E┆
0x0db80…0dc00 UnusedSector ┆LSE IF CC <> IO_OK THEN CCERROR_W ELSE IF CURRENT_BYTE = 32 THEN "BLANK READ" BEGIN CURRENT_BYTE := #80; REPEAT CURRENT_B┆
0x0dc00…0dc80 UnusedSector ┆YTE := SUCC(CURRENT_BYTE); INBYTE(F_STREAM, TEMP_BYTE, CC) UNTIL (TEMP_BYTE <> 32) OR (CURRENT_BYTE = 255) OR (CC <> 0); END┆
0x0dc80…0dd00 UnusedSector ┆ ELSE IF CURRENT_BYTE >= #80 THEN BEGIN ERROR('ILLEGAL CHARACTER IN TEXT FILE(:0:)'); E_O_F := TRUE END; PUTBITS(CURRENT_┆
0x0dd00…0dd80 UnusedSector ┆BYTE, SECTR[REC_LENGTH DIV 2], 8*(REC_LENGTH MOD 2) + 7, 8); REC_LENGTH := SUCC(REC_LENGTH) END END ELSE BEGIN INREC(F_ST┆
0x0dd80…0de00 UnusedSector ┆REAM, SECTR[0], REC_LENGTH, CC); IF CC = EOF THEN E_O_F := TRUE ELSE IF CC <> IO_OK THEN CCERROR_W END; IF (CC = IO_OK) OR ┆
0x0de00…0de80 UnusedSector ┆TEXT_FILE THEN BEGIN SECT_NUMB := SUCC(SECT_NUMB); PUT_SECTOR(SECT_NUMB, SECTR, AREA_INF, ROOM_LEFT) END UNTIL (REC_LENGTH ┆
0x0de80…0df00 UnusedSector ┆< 128) OR E_O_F OR (NOT ROOM_LEFT); IF NOT ROOM_LEFT THEN BEGIN REC_LENGTH := 128; SECT_NUMB := PRED(SECT_NUMB) END; WITH ┆
0x0df00…0df80 UnusedSector ┆AREA_INF DO BEGIN READ_SECTOR(SECT, ENTRY_SECT); ENTRY_SECT[POSN,EHIBLOCK] := SECT_NUMB DIV ENTRY_SECT[POSN, ESEGMENTS]; ENT┆
0x0df80…0e000 UnusedSector ┆RY_SECT[POSN,ECHARCOUNT] := REC_LENGTH DIV 2 + 64*(SECT_NUMB MOD ENTRY_SECT[POSN,ESEGMENTS]); EAREA := EAREA1; FOR AREA_NUMB ┆
0x0e000…0e080 UnusedSector ┆:= 0 TO 9 DO BEGIN IF (AREA_NUMB > SECT_NUMB DIV A_SIZE) AND (AREAS[AREA_NUMB] > -1) THEN BEGIN "WE NEED TO DEALLOCATE THIS ┆
0x0e080…0e100 UnusedSector ┆AREA" FOR S := AREAS[AREA_NUMB] TO AREAS[AREA_NUMB] + A_SIZE - 1 DO CLEARBIT(BIT_MAP[S DIV 16], S MOD 16); ENTRY_SECT[POSN,EA┆
0x0e100…0e180 UnusedSector ┆REA] := -1 END ELSE ENTRY_SECT[POSN,EAREA] := LOG_TRACK_SECT(AREAS[AREA_NUMB]); EAREA := SUCC(EAREA) END; WRITE_SECTOR(SECT┆
0x0e180…0e200 UnusedSector ┆, ENTRY_SECT) END; CLOSE(F_STREAM) END END; "OF WRITE" PROCEDURE DEMOUNT; VAR BIT_MAP_SECTORS : ARRAY[0..1] OF SECTOR; ┆
0x0e200…0e280 UnusedSector ┆I, J : INTEGER; BEGIN FOR I:=0 TO 1 DO BEGIN FOR J:=0 TO 63 DO BIT_MAP_SECTORS[I,J] := BIT_MAP[64*I + J]; WRITE_SECTOR(I+B┆
0x0e280…0e300 UnusedSector ┆_M_1, BIT_MAP_SECTORS[I]) END END; "OF DEMOUNT" E" PROCEDURE DEMOUNT; VAR BIT_MAP_SECTORS : ARRAY[0..1] OF SECTOR; ┆
0x0e300…0e380 UnusedSector ┆ECTORS[I]) END END; "OF DEMOUNT" TE" PROCEDURE DEMOUNT; VAR BIT_MAP_SECTORS : ARRAY[0..1] OF SECTOR; I, J : INTEGER;┆
0x0e380…0e400 UnusedSector ┆ INTEGER; BEGIN FOR I:=0 TO 1 DO BEGIN FOR J:=0 TO 63 DO BIT_MAP_SECTORS[I,J] := BIT_MAP[64*I + J]; WRITE_SECTOR(I+B_M_1, ┆
0x0e400…0e480 UnusedSector ┆BIT_MAP_SECTORS[I]) END END; "OF DEMOUNT" E" PROCEDURE DEMOUNT; VAR BIT_MAP_SECTORS : ARRAY[0..1] OF SECTOR; I, J :┆
0x0e480…0e500 UnusedSector ┆ R THIS COMMAND - (:0:)'); CASE CURRENT_STATE OF START : WRITELN('NO DISK IS MOUNTED(:0:)'); MOUNTED : WRITELN('AN UNINITI┆
0x0e500…0e580 UnusedSector ┆ 0\R&Y U (g ,` l` 0 k 0 = U X 0 We& X @ ┆
0x0e580…0e600 UnusedSector 0x00[128]
0x0e600…0e680 UnusedSector ┆ xj ) ┆
0x0e680…0e700 UnusedSector 0x00[128]
0x0e700…0e780 UnusedSector ┆ 0 dX ; 0|V < J ! N 0\V ┆
0x0e780…0e800 UnusedSector ┆, @ ┆
0x0e800…0e880 UnusedSector ┆ 0 U& c$ % ┆
0x0e880…0e900 UnusedSector 0x00[128]
0x0e900…0e980 UnusedSector ┆"CR80 SEQUENTIAL PASCAL STANDARD PREFIX. PHO /-790810" "##################################################" "*************** A M┆
0x0e980…0ea00 UnusedSector ┆ O S ****************" "##################################################" CONST NL = '(:10:)'; FF = '(:12:)'; CR = '(:13:)'; ┆
0x0ea00…0ea80 UnusedSector ┆EM = '(:25:)'; CONST NULL = '(:0:)'; SP = ' '; CONST LINELENGTH = 132; TYPE LINE = ARRAY [1..LINELENGTH] OF CHAR; TYPE TEXT = L┆
0x0ea80…0eb00 UnusedSector ┆INE; TYPE PROGRESULT = (TERMINATED, OVERFLOW, POINTERERROR, RANGEERROR, VARIANTERROR, HEAPLIMIT, STACKLIMIT, CODELIMIT, TIMEL┆
0x0eb00…0eb80 UnusedSector ┆IMIT, CALLERROR); TYPE BITPOSITION = 0..15; TYPE BITFIELDLENGTH = 0..16; TYPE BITVALUE = (LOW, HIGH); TYPE MESSAGE_BUFFER = AR┆
0x0eb80…0ec00 UnusedSector ┆RAY [1..5] OF INTEGER; TYPE WORD_ADDRESS = RECORD MEMORY_SECTION: INTEGER; WORD_DISPLACEMENT:INTEGER END; TYPE BYTE_ADDRESS┆
0x0ec00…0ec80 UnusedSector ┆ = RECORD BYTE_DISPLACEMENT: INTEGER; WORD_ADDR: WORD_ADDRESS END; TYPE FILE = INTEGER; TYPE COMPLETION_CODE = INTEGER; TYPE┆
0x0ec80…0ed00 UnusedSector ┆ ELEMENT = ARRAY [1..1] OF INTEGER; TYPE PROCESS_NAME = RECORD NAME: ARRAY [0..2] OF CHAR; NAME_IDENT: INTEGER END; TYPE FI┆
0x0ed00…0ed80 UnusedSector ┆LE_SYSTEM_NAME = RECORD PNAME: PROCESS_NAME; GNAME: ARRAY [0..1] OF CHAR END; TYPE PACKED_NAME = ARRAY [0..7] OF CHAR; TYPE V┆
0x0ed80…0ee00 UnusedSector ┆OLUME_NAME = PACKED_NAME; CONST DIRECTORY = 10; CONTIGUOUS = 12; RANDOM = 14; TYPE FILE_ORGANIZATION = DIRECTORY..RANDOM; TYPE F┆
0x0ee00…0ee80 UnusedSector ┆ILE_ATTRIBUTES = RECORD VOLUME: VOLUME_NAME; ORGANIZATION: FILE_ORGANIZATION; ALLOC_SIZE: LONG_INTEGER; AREA_SIZE: INTEGER ┆
0x0ee80…0ef00 UnusedSector ┆END; TYPE USERID = ARRAY [0..1] OF INTEGER; TYPE ACCESS_DESCRIPTION = RECORD USER: USERID; RIGHTS: ARRAY [0..1] OF INTEGER EN┆
0x0ef00…0ef80 UnusedSector ┆D; TYPE FILE_INFORMATION = ARRAY [1..32] OF INTEGER; TYPE DEVICE_NAME = ARRAY [0..1] OF CHAR; TYPE DEVICE_DESCRIPTION = RECORD ┆
0x0ef80…0f000 UnusedSector ┆DEVICE_KIND: INTEGER; DEVICE_ADDR: INTEGER; UNIT: INTEGER; SUBUNIT: INTEGER; DEVICE: DEVICE_NAME END; TYPE FILE_NAME = PACK┆
0x0f000…0f080 UnusedSector ┆ED_NAME; TYPE FILE_ADDRESS = RECORD FIRST_BYTE: LONG_INTEGER; BYTE_COUNT: LONG_INTEGER; TRANSFERRED_BYTES: LONG_INTEGER END;┆
0x0f080…0f100 UnusedSector ┆ TYPE SECTOR_ADDRESS = RECORD FIRST_SECTOR: LONG_INTEGER; SECTOR_COUNT: LONG_INTEGER; TRANSFERRED_SECTORS: LONG_INTEGER END;┆
0x0f100…0f180 UnusedSector ┆ TYPE MODE = (INPUT_MODE, OUTPUT_MODE); TYPE STREAM = INTEGER; TYPE STREAM_POSITION = LONG_INTEGER; TYPE BYTE = 0..255; TYPE OPE┆
0x0f180…0f200 UnusedSector ┆RATION_REFERENCE = INTEGER; TYPE MEMORY_PARM = INTEGER; TYPE BUFFER_LOCATION = (LOCAL, EXTERNAL); TYPE BLEPTR = @BLE; TYPE BLE ┆
0x0f200…0f280 UnusedSector ┆= RECORD LINK: BLEPTR; CASE XL: BUFFER_LOCATION OF LOCAL: (BUFADDR, BUFSIZE_IN_BYTES: INTEGER); EXTERNAL: (MEMORY: MEMORY_PA┆
0x0f280…0f300 UnusedSector ┆RM) END; TYPE EVENT_TYPE = (SIGNAL, MESSAGE, ANSWER, SYSTEM_MESSAGE, SYSTEM_ANSWER, PATH_MESSAGE, PATH_ANSWER, INTERRUPT, TI┆
0x0f300…0f380 UnusedSector ┆ME_OUT, PARENT_SIGNAL); TYPE EVENT_MASK = INTEGER; TYPE DATE_TIME_GROUP = RECORD YEAR, MONTH, DAY: INTEGER; HOUR, MIN, SEC: ┆
0x0f380…0f400 UnusedSector ┆INTEGER END; TYPE PROC_TIME = ARRAY [0..2] OF INTEGER; TYPE PROCESS_ATTRIBUTES = RECORD ACCESS_RIGHTS, STATE: INTEGER; ERRO┆
0x0f400…0f480 UnusedSector ┆R_CODE, ERROR_LOC: INTEGER; CONSUMED_TIME, CREATION_TIME: PROC_TIME END; TYPE CREATION_BLOCK = RECORD VNAME: PROCESS_NAME; ┆
0x0f480…0f500 UnusedSector ┆VPROG, VINIT, VMICRO, VCAPAB: INTEGER; VCPU, VPRIO, VLEVEL, VBASE: INTEGER; VSIZE, VBOUND, VMEMORY, VMSGS: INTEGER; VUSER: US┆
0x0f500…0f580 UnusedSector ┆ERID END; TYPE CPUPARAMETER = (VCPUNMB, VINTERRUPTMASK, VSCHEDULERESETCOUNT, VSLICESIZE, VELAPSEDTIME, VHWPRIORITY); TYPE CH┆
0x0f580…0f600 UnusedSector ┆AR_TYPE = (TSPACE, TDIGIT, TLETTER, TOTHER); CONST PAGELENGTH = 256; TYPE PAGE = ARRAY [1..PAGELENGTH] OF INTEGER; TYPE ELEMEN┆
0x0f600…0f680 UnusedSector ┆T_TYPE = (TERROR, TINTEGER, TIDENTIFIER, TSPECIAL, TLONG_INTEGER); TYPE ELEM_REC = RECORD DELIM: CHAR; BYTE_COUNT: INTEGER; ┆
0x0f680…0f700 UnusedSector ┆ CASE ELEM_TYPE: ELEMENT_TYPE OF TINTEGER: (INT: INTEGER); TLONG_INTEGER: (LINT: LONG_INTEGER); TIDENTIFIER: (NAME: PACKED_NA┆
0x0f700…0f780 UnusedSector ┆ME); TSPECIAL: (SPEC_CHAR: CHAR) END; TYPE OPERATION_DESCRIPTION = RECORD F: FILE; FILE_ADDR: FILE_ADDRESS; BLE_POINTER: B┆
0x0f780…0f800 UnusedSector ┆LEPTR; OPREF: OPERATION_REFERENCE END; TYPE POINTER = @INTEGER; TYPE PARAMTYPE = RECORD FSN: FILE_SYSTEM_NAME; "CURRENT FILE┆
0x0f800…0f880 UnusedSector ┆ SYSTEM NAME" VOL: VOLUME_NAME; "CURRENT VOLUME NAME" PFILE: FILE; "CURRENT PARAMETER FILE" DFILE: FILE; "CURRENT DIRECTORY F┆
0x0f880…0f900 UnusedSector ┆ILE" IFILE: FILE; "CURRENT INPUT FILE" OFILE: FILE; "CURRENT OUTPUT FILE" PARENT: PROCESS_NAME; "PARENT OF PROCESS" PTR: POI┆
0x0f900…0f980 UnusedSector ┆NTER END; "SOME OF THE MOST LIKELY COMPLETION CODES" CONST IO_OK = 0; EOF = #201; ILLEGAL_FILE = #203; FILE_NOT_OPEN = #20B;┆
0x0f980…0fa00 UnusedSector ┆ ILLEGAL_STREAM = #207; ILLEGAL_ORGANIZATION = #40B; ILLEGAL_ALLOC_SIZE = #40C; ILLEGAL_AREA_SIZE = #40D; ILLEGAL_RESET = #40E┆
0x0fa00…0fa80 UnusedSector ┆; ALLOC_TO_CONTIGUOUS_FILE = #40F; NO_FILE_TO_ACCEPT = #411; FILE_FULL = #41B; ILLEGAL_DIRECTORY = #420; NAME_EXISTS = #421; ┆
0x0fa80…0fb00 UnusedSector ┆NON_EXISTING_NAME = #422; NOT_ALLOCATABLE = #423; PROTECTION_FAILURE = #41D; ILLEGAL_FUNCTION = #416; DISK_FULL = NOT_ALLOCATA┆
0x0fb00…0fb80 UnusedSector ┆BLE; UNKNOWN_FILE_SYSTEM = #20D; STREAM_NOT_CONNECTED = #214; NOT_OUTPUT_MODE = #215; NOT_INPUT_MODE = #216; NON_EXISTING_VOLU┆
0x0fb80…0fc00 UnusedSector ┆ME = #407; CONST NAMELISTMAXINDEX = 10; TYPE NAMELISTTYPE = ARRAY [1..NAMELISTMAXINDEX] OF PACKED_NAME; FUNCTION IAND(MASK1, ┆
0x0fc00…0fc80 UnusedSector ┆MASK2: UNIV INTEGER): INTEGER; FUNCTION IOR(MASK1, MASK2: UNIV INTEGER): INTEGER; FUNCTION XOR(MASK1, MASK2: UNIV INTEGER): INTE┆
0x0fc80…0fd00 UnusedSector ┆GER; FUNCTION INV(MASK: UNIV INTEGER): INTEGER; FUNCTION LEFTSHIFT(BITS: UNIV INTEGER; SHIFTS: INTEGER): INTEGER; FUNCTION RIGH┆
0x0fd00…0fd80 UnusedSector ┆TSHIFT(BITS: UNIV INTEGER; SHIFTS: INTEGER): INTEGER; FUNCTION ADD(A, B: INTEGER): INTEGER; "16 BITS UNSIGNED ADD" FUNCTION SUB┆
0x0fd80…0fe00 UnusedSector ┆TRACT(A, B: INTEGER): INTEGER; "16 BITS UNSIGNED SUBTRACT" FUNCTION GETBITS(BITS: UNIV INTEGER; LEFTMOST: BITPOSITION; FIELDLE┆
0x0fe00…0fe80 UnusedSector ┆NGTH: BITFIELDLENGTH): INTEGER; PROCEDURE PUTBITS(FROM: UNIV INTEGER; VAR TO_: UNIV INTEGER; LEFTTO: BITPOSITION; FIELDLENGTH: ┆
0x0fe80…0ff00 UnusedSector ┆BITFIELDLENGTH); FUNCTION TESTBIT(BITS: UNIV INTEGER; BITNUMBER: BITPOSITION): BOOLEAN; PROCEDURE SETBIT(VAR BITS: UNIV INTEGER;┆
0x0ff00…0ff80 UnusedSector ┆ BITNUMBER: BITPOSITION); PROCEDURE CLEARBIT(VAR BITS: UNIV INTEGER; BITNUMBER: BITPOSITION); PROCEDURE SENSE_IO(DEVICE: INTEGE┆
0x0ff80…10000 UnusedSector ┆R; VAR STATUS: UNIV INTEGER); PROCEDURE READ_IO(DEVICE: INTEGER; VAR DATA: UNIV INTEGER); PROCEDURE CONTROL_IO(DEVICE: INTEGER; ┆
0x10000…10080 UnusedSector ┆STATUS: UNIV INTEGER); PROCEDURE WRITE_IO(DEVICE: INTEGER; DATA: UNIV INTEGER); PROCEDURE RESERVE_INTERRUPT(DEVPR: INTEGER; VAR┆
0x10080…10100 UnusedSector ┆ INTRPT: INTEGER); PROCEDURE RELEASE_INTERRUPT(INTRPT: INTEGER); PROCEDURE CLEAR_INTERRUPT(INTRPT: INTEGER); PROCEDURE WAIT_INTE┆
0x10100…10180 UnusedSector ┆RRUPT(DELAY: INTEGER; INTRPT: INTEGER; VAR TIMED_OUT: BOOLEAN); PROCEDURE SET_INTERRUPT(INTRPT: INTEGER); PROCEDURE SET_CYCLE(C┆
0x10180…10200 UnusedSector ┆YCLE: INTEGER); PROCEDURE SEND_MESSAGE(VAR RECEIVER: PROCESS_NAME; MSG: UNIV MESSAGE_BUFFER; VAR EVENT: INTEGER); PROCEDURE S┆
0x10200…10280 UnusedSector ┆END_SYSTEM_MESSAGE(VAR RECEIVER: PROCESS_NAME; MSG: UNIV MESSAGE_BUFFER; VAR EVENT: INTEGER); PROCEDURE SEND_ANSWER(ANS: UNIV ┆
0x10280…10300 UnusedSector ┆MESSAGE_BUFFER; EVENT: INTEGER); PROCEDURE SEND_SYSTEM_ANSWER(ANS: UNIV MESSAGE_BUFFER; EVENT: INTEGER); PROCEDURE SEND_SIGNAL(┆
0x10300…10380 UnusedSector ┆VAR RECEIVER: PROCESS_NAME); PROCEDURE IDENTIFY_SENDER(EVENT: INTEGER; VAR PROC: INTEGER); PROCEDURE GET_PROC_NAME(VAR PROC_NAM┆
0x10380…10400 UnusedSector ┆E: PROCESS_NAME); PROCEDURE GET_PROC_IDENT(VAR PROC_NAME: PROCESS_NAME; VAR FOUND: BOOLEAN); PROCEDURE WAIT_MESSAGE(DELAY: INT┆
0x10400…10480 UnusedSector ┆EGER; VAR MSG: UNIV MESSAGE_BUFFER; VAR EVENT: INTEGER; VAR EVTTYPE: EVENT_TYPE); PROCEDURE WAIT_SYSTEM_MESSAGE(DELAY: INTEGER;┆
0x10480…10500 UnusedSector ┆ VAR MSG: UNIV MESSAGE_BUFFER; VAR EVENT: INTEGER; VAR EVTTYPE: EVENT_TYPE); PROCEDURE WAIT_ANSWER(DELAY: INTEGER; EVENT: INT┆
0x10500…10580 UnusedSector ┆EGER; VAR ANS: UNIV MESSAGE_BUFFER; VAR EVTTYPE: EVENT_TYPE); PROCEDURE WAIT_SYSTEM_ANSWER(DELAY: INTEGER; EVENT: INTEGER; VA┆
0x10580…10600 UnusedSector ┆R ANS: UNIV MESSAGE_BUFFER; VAR EVTTYPE: EVENT_TYPE); PROCEDURE WAIT_EVENT(DELAY: INTEGER; EVTMSK: EVENT_MASK; VAR MSG: UNIV M┆
0x10600…10680 UnusedSector ┆ESSAGE_BUFFER; VAR EVENT: INTEGER; VAR EVTTYPE: EVENT_TYPE); PROCEDURE SAVE_EVENT(EVENT: INTEGER); PROCEDURE RESTORE_EVENTS(EV┆
0x10680…10700 UnusedSector ┆TTYPE: EVENT_TYPE); PROCEDURE TERMINATE(COMPLETION_CODE: INTEGER); PROCEDURE READ_TIME(VAR TIME: DATE_TIME_GROUP); PROCEDURE ┆
0x10700…10780 UnusedSector ┆START_PROCESS(PROC: INTEGER; VAR ILLEGAL: BOOLEAN); PROCEDURE STOP_PROCESS(PROC: INTEGER; VAR ILLEGAL: BOOLEAN); PROCEDURE PROCE┆
0x10780…10800 UnusedSector ┆SS_STATUS(PROC: INTEGER; VAR ILLEGAL: BOOLEAN; VAR PROC_ATTR: PROCESS_ATTRIBUTES); PROCEDURE REMOVE_PROCESS(PROC: INTEGER; VAR ┆
0x10800…10880 UnusedSector ┆ILLEGAL: BOOLEAN); PROCEDURE GET_NEXT_PROCESS(VAR PROC: INTEGER; VAR NONE: BOOLEAN); PROCEDURE ADOPT_PROCESS(PROC: INTEGER; VAR ┆
0x10880…10900 UnusedSector ┆NONE: BOOLEAN); PROCEDURE CREATE_PROCESS(VAR CB: CREATION_BLOCK; VAR RESULT: INTEGER); PROCEDURE GET_CPU_PARAMETER(CPU: INTEGER;┆
0x10900…10980 UnusedSector ┆ PAR: CPUPARAMETER; PRIORITY: INTEGER; VAR VAL: INTEGER; VAR OK: BOOLEAN); PROCEDURE SET_CPU_PARAMETER(CPU: INTEGER; PAR: CPUP┆
0x10980…10a00 UnusedSector ┆ARAMETER; PRIORITY: INTEGER; VAL: INTEGER; VAR OK: BOOLEAN); PROCEDURE LOOKUP_CPU(VAR CPU_NAME: PROCESS_NAME; VAR FOUND: BOOLE┆
0x10a00…10a80 UnusedSector ┆AN); PROCEDURE GET_BUFFER(WORD_CLAIM: INTEGER; VAR MEMORY: MEMORY_PARM; VAR ADDR: WORD_ADDRESS; VAR WORDS_ALLOCATED: INTEGER┆
0x10a80…10b00 UnusedSector ┆; VAR OK: BOOLEAN); PROCEDURE GET_BUFFER_ADDR(MEMORY: MEMORY_PARM; VAR ADDR: WORD_ADDRESS; VAR SIZE_IN_WORDS: INTEGER; VAR O┆
0x10b00…10b80 UnusedSector ┆K: BOOLEAN); PROCEDURE RELEASE_BUFFER(MEMORY: MEMORY_PARM; VAR OK: BOOLEAN); PROCEDURE CREATE(FSN: FILE_SYSTEM_NAME; ATTRIBUTE┆
0x10b80…10c00 UnusedSector ┆S: FILE_ATTRIBUTES; VAR F: FILE; VAR CC: COMPLETION_CODE); PROCEDURE DISMANTLE(F: FILE; VAR CC: COMPLETION_CODE); PROCEDURE PR┆
0x10c00…10c80 UnusedSector ┆OTECT(F: FILE; ACCESS: ACCESS_DESCRIPTION; VAR CC: COMPLETION_CODE); PROCEDURE RESET(F: FILE; VAR CC: COMPLETION_CODE); PROCED┆
0x10c80…10d00 UnusedSector ┆URE OFFER(F: FILE; USER: USERID; VAR CC: COMPLETION_CODE); PROCEDURE ACCEPT(FSN: FILE_SYSTEM_NAME; VAR F: FILE; VAR CC: COMPLE┆
0x10d00…10d80 UnusedSector ┆TION_CODE); PROCEDURE GET_FILE_INFORMATION(F: FILE; VAR INF: FILE_INFORMATION; VAR CC: COMPLETION_CODE); PROCEDURE ASSIGN(FSN:┆
0x10d80…10e00 UnusedSector ┆ FILE_SYSTEM_NAME; DESCRIPTION: DEVICE_DESCRIPTION; VAR CC: COMPLETION_CODE); PROCEDURE DEASSIGN(FSN: FILE_SYSTEM_NAME; DEVIC┆
0x10e00…10e80 UnusedSector ┆E: DEVICE_NAME; VAR CC: COMPLETION_CODE); PROCEDURE MOUNT(FSN: FILE_SYSTEM_NAME; DEVICE: DEVICE_NAME; VOLUME: VOLUME_NAME; V┆
0x10e80…10f00 UnusedSector ┆AR CC: COMPLETION_CODE); PROCEDURE DISMOUNT(FSN: FILE_SYSTEM_NAME; VOLUME: VOLUME_NAME; VAR CC: COMPLETION_CODE); PROCEDURE FO┆
0x10f00…10f80 UnusedSector ┆RMAT(FSN: FILE_SYSTEM_NAME; DEVICE: DEVICE_NAME; VAR SECTORADDR: SECTOR_ADDRESS; BLE_POINTER: BLEPTR; VAR CC: COMPLETION_COD┆
0x10f80…11000 UnusedSector ┆E); PROCEDURE GET_ROOT(FSN: FILE_SYSTEM_NAME; VOLUME: VOLUME_NAME; VAR F: FILE; VAR CC: COMPLETION_CODE); PROCEDURE USER_ON(F┆
0x11000…11080 UnusedSector ┆SN: FILE_SYSTEM_NAME; USER: USERID; VAR CC: COMPLETION_CODE); PROCEDURE USER_OFF(FSN: FILE_SYSTEM_NAME; USER: USERID; VAR CC┆
0x11080…11100 UnusedSector ┆: COMPLETION_CODE); PROCEDURE ENTER(DIRECTORY: FILE; SUBJECT: FILE; NAME: FILE_NAME; VAR CC: COMPLETION_CODE); PROCEDURE LOOK┆
0x11100…11180 UnusedSector ┆UP(DIRECTORY: FILE; NAME: FILE_NAME; VAR F: FILE; VAR CC: COMPLETION_CODE); PROCEDURE DESCENT(VAR F:FILE; NAME: FILE_NAME; ┆
0x11180…11200 UnusedSector ┆VAR CC: COMPLETION_CODE); PROCEDURE RENAME(DIRECTORY: FILE; OLDNAME: FILE_NAME; NEWNAME: FILE_NAME; VAR CC: COMPLETION_CODE)┆
0x11200…11280 UnusedSector ┆; PROCEDURE REMOVE(DIRECTORY: FILE; NAME: FILE_NAME; VAR CC: COMPLETION_CODE); PROCEDURE READ_SECTORS(FSN: FILE_SYSTEM_NAME; ┆
0x11280…11300 UnusedSector ┆DEVICE: DEVICE_NAME; VAR SECTORADDR: SECTOR_ADDRESS; BLE_POINTER: BLEPTR; VAR CC: COMPLETION_CODE); PROCEDURE WRITE_SECTORS(F┆
0x11300…11380 UnusedSector ┆SN: FILE_SYSTEM_NAME; DEVICE: DEVICE_NAME; VAR SECTORADDR: SECTOR_ADDRESS; BLE_POINTER: BLEPTR; VAR CC: COMPLETION_CODE); PR┆
0x11380…11400 UnusedSector ┆OCEDURE WRITE_AND_PROTECT(FSN: FILE_SYSTEM_NAME; DEVICE: DEVICE_NAME; VAR SECTORADDR: SECTOR_ADDRESS; BLE_POINTER: BLEPTR; V┆
0x11400…11480 UnusedSector ┆AR CC: COMPLETION_CODE); PROCEDURE WRITE_AND_MARK(FSN: FILE_SYSTEM_NAME; DEVICE: DEVICE_NAME; VAR SECTORADDR: SECTOR_ADDRESS; ┆
0x11480…11500 UnusedSector ┆ BLE_POINTER: BLEPTR; VAR CC: COMPLETION_CODE); PROCEDURE READ_BYTES(F: FILE; VAR FILE_ADDR: FILE_ADDRESS; BLE_POINTER: BLEPT┆
0x11500…11580 UnusedSector ┆R; VAR CC: COMPLETION_CODE); PROCEDURE MODIFY_BYTES(F: FILE; VAR FILE_ADDR: FILE_ADDRESS; BLE_POINTER: BLEPTR; VAR CC: COMPL┆
0x11580…11600 UnusedSector ┆ETION_CODE); PROCEDURE APPEND_BYTES(F: FILE; VAR FILE_ADDR: FILE_ADDRESS; BLE_POINTER: BLEPTR; VAR CC: COMPLETION_CODE); PROC┆
0x11600…11680 UnusedSector ┆EDURE INIT_READ_BYTES(F: FILE; VAR FILE_ADDR: FILE_ADDRESS; BLE_POINTER: BLEPTR; VAR OPREF: OPERATION_REFERENCE; VAR CC: COM┆
0x11680…11700 UnusedSector ┆PLETION_CODE); PROCEDURE INIT_MODIFY_BYTES(F: FILE; VAR FILE_ADDR: FILE_ADDRESS; BLE_POINTER: BLEPTR; VAR OPREF: OPERATION_RE┆
0x11700…11780 UnusedSector ┆FERENCE; VAR CC: COMPLETION_CODE); PROCEDURE INIT_APPEND_BYTES(F: FILE; VAR FILE_ADDR: FILE_ADDRESS; BLE_POINTER: BLEPTR; VA┆
0x11780…11800 UnusedSector ┆R OPREF: OPERATION_REFERENCE; VAR CC: COMPLETION_CODE); PROCEDURE WAIT_OPERATION(OPREF: OPERATION_REFERENCE; VAR CC: COMPLETIO┆
0x11800…11880 UnusedSector ┆N_CODE); PROCEDURE TEST_OPERATION(OPREF: OPERATION_REFERENCE; VAR FINISHED: BOOLEAN; VAR CC: COMPLETION_CODE); PROCEDURE CANCE┆
0x11880…11900 UnusedSector ┆L_OPERATION(OPREF: OPERATION_REFERENCE; VAR CC: COMPLETION_CODE); PROCEDURE CONNECT(F: FILE; M: MODE; VAR S: STREAM; VAR CC┆
0x11900…11980 UnusedSector ┆: COMPLETION_CODE); PROCEDURE DISCONNECT(S: STREAM; VAR F: FILE; VAR CC: COMPLETION_CODE); PROCEDURE GET_POSITION(S: STREAM; ┆
0x11980…11a00 UnusedSector ┆VAR POSITION: STREAM_POSITION; VAR CC: COMPLETION_CODE); PROCEDURE SET_POSITION(S: STREAM; POSITION: STREAM_POSITION; VAR CC:┆
0x11a00…11a80 UnusedSector ┆ COMPLETION_CODE); PROCEDURE INBYTE(S: STREAM; VAR B: UNIV BYTE; VAR CC: COMPLETION_CODE); PROCEDURE INWORD(S: STREAM; VAR WORD┆
0x11a80…11b00 UnusedSector ┆: UNIV INTEGER; VAR CC: COMPLETION_CODE); PROCEDURE BACKSPACE(S: STREAM; VAR CC: COMPLETION_CODE); PROCEDURE INREC(S: STREAM; ┆
0x11b00…11b80 UnusedSector ┆VAR FIRST_ELEMENT: UNIV ELEMENT; VAR RECORD_LENGTH_IN_BYTES: INTEGER; VAR CC: COMPLETION_CODE); PROCEDURE OUTBYTE(S: STREAM; B┆
0x11b80…11c00 UnusedSector ┆: UNIV BYTE; VAR CC: COMPLETION_CODE); PROCEDURE OUTWORD(S: STREAM; WORD: UNIV INTEGER; VAR CC: COMPLETION_CODE); PROCEDURE OU┆
0x11c00…11c80 UnusedSector ┆TREC(S: STREAM; FIRST_ELEMENT: UNIV ELEMENT; VAR RECORD_LENGTH_IN_BYTES: INTEGER; VAR CC: COMPLETION_CODE); PROCEDURE FLUSH(S┆
0x11c80…11d00 UnusedSector ┆: STREAM; VAR CC: COMPLETION_CODE); PROCEDURE INTYPE(S: STREAM; VAR CH: CHAR; VAR CH_TYPE: CHAR_TYPE; VAR CC: COMPLETION_CODE┆
0x11d00…11d80 UnusedSector ┆); PROCEDURE INELEMENT(S: STREAM; VAR ELEM: ELEM_REC; VAR CC: COMPLETION_CODE); PROCEDURE ININTEGER(S: STREAM; VAR INT: INTEG┆
0x11d80…11e00 UnusedSector ┆ER; VAR OK: BOOLEAN); PROCEDURE INLONG_INTEGER(S: STREAM; VAR LINT: LONG_INTEGER; VAR OK: BOOLEAN); PROCEDURE INNAME(S: STREA┆
0x11e00…11e80 UnusedSector ┆M; VAR N: PACKED_NAME; VAR OK: BOOLEAN); PROCEDURE OUTTEXT(S: STREAM; UNPACKED_TEXT: TEXT; VAR CC: COMPLETION_CODE); PROCED┆
0x11e80…11f00 UnusedSector ┆URE OUTSTRING(S: STREAM; UNPACKED_TEXT: TEXT; NO_OF_CHARS: INTEGER; VAR CC: COMPLETION_CODE); PROCEDURE OUTHEXA(S: STREAM; I┆
0x11f00…11f80 UnusedSector ┆NT: UNIV INTEGER; COMMAND_CHAR: CHAR; VAR CC: COMPLETION_CODE); PROCEDURE OUTINTEGER(S: STREAM; INT: UNIV INTEGER; OUTPUT_MO┆
0x11f80…12000 UnusedSector ┆DE: UNIV INTEGER; VAR CC: COMPLETION_CODE); PROCEDURE OUTLONG_INTEGER(S: STREAM; LINT: UNIV LONG_INTEGER; OUTPUT_MODE: UNIV I┆
0x12000…12080 UnusedSector ┆NTEGER; VAR CC: COMPLETION_CODE); PROCEDURE OUTNL(S: STREAM; VAR CC: COMPLETION_CODE); PROCEDURE MARK(VAR TOP: INTEGER); PROCE┆
0x12080…12100 UnusedSector ┆DURE RELEASE(TOP: INTEGER); FUNCTION FREE_SPACE: INTEGER; "WORDS BETWEEN STACK- AND HEAPTOP" FUNCTION CONTENTS(BASE_REL_ADDR: LO┆
0x12100…12180 UnusedSector ┆NG_INTEGER): INTEGER; PROCEDURE EXIT; PROCEDURE CURRENT_LEVEL(VAR LEVEL: INTEGER); PROCEDURE LONG_EXIT(LEVEL: INTEGER); FUNCTION┆
0x12180…12200 UnusedSector ┆ CURRENT_LINE: INTEGER; FUNCTION REL_ADDR(FIRST_ELEMENT: UNIV ELEMENT): INTEGER; PROCEDURE GET_ABS_ADDR(FIRST_ELEMENT: UNIV ELEM┆
0x12200…12280 UnusedSector ┆ENT; VAR WORD_ADDR: WORD_ADDRESS); PROCEDURE COPY(SOURCE, DEST: BYTE_ADDRESS; NO_OF_BYTES: INTEGER); PROCEDURE PACK(FIRST_ELEME┆
0x12280…12300 UnusedSector ┆NT_OF_UNPACKED: UNIV ELEMENT; VAR FIRST_ELEMENT_OF_PACKED: UNIV ELEMENT; NO_OF_BYTES: INTEGER); PROCEDURE UNPACK(FIRST_ELEMENT┆
0x12300…12380 UnusedSector ┆_OF_PACKED: UNIV ELEMENT; VAR FIRST_ELEMENT_OF_UNPACKED: UNIV ELEMENT; NO_OF_BYTES: INTEGER); PROCEDURE PACK_SWAPPED(FIRST_ELE┆
0x12380…12400 UnusedSector ┆MENT_OF_UNPACKED: UNIV ELEMENT; VAR FIRST_ELEMENT_OF_PACKED: UNIV ELEMENT; NO_OF_BYTES: INTEGER); PROCEDURE UNPACK_SWAPPED(FIR┆
0x12400…12480 UnusedSector ┆ST_ELEMENT_OF_PACKED: UNIV ELEMENT; VAR FIRST_ELEMENT_OF_UNPACKED: UNIV ELEMENT; NO_OF_BYTES: INTEGER); PROCEDURE RUN(F: FILE;┆
0x12480…12500 UnusedSector ┆ VAR PARAM: PARAMTYPE; VAR LINE: INTEGER; VAR RESULT: PROGRESULT); FUNCTION CREATE_LONG(LEAST, MOST: INTEGER): LONG_INTEGER; PR┆
0x12500…12580 UnusedSector ┆OCEDURE SPLIT_LONG(L: LONG_INTEGER; VAR LEAST, MOST: INTEGER); PROCEDURE ASSIGNBITS(VALUE: UNIV BITVALUE; VAR P: UNIV PAGE; FIR┆
0x12580…12600 UnusedSector ┆STBIT, NO_OF_BITS: INTEGER); PROCEDURE SKIPBITS(VALUE: UNIV BITVALUE; P: UNIV PAGE; VAR FIRSTBIT: INTEGER; NO_OF_BITS: INTEGER;┆
0x12600…12680 UnusedSector ┆ VAR BITSSKIPPED: INTEGER); PROCEDURE SET_TRACE(MASK: INTEGER; S: STREAM; VAR CC: COMPLETION_CODE); PROCEDURE PRINT_TRACE(ON: B┆
0x12680…12700 UnusedSector ┆OOLEAN); PROGRAM MAIN(VAR PARAM: PARAMTYPE); VALUE: UNIV BITVALUE; P: UNIV PAGE; VAR FIRSTBIT: INTEGER; NO_OF_BITS: INTEGER;┆
0x12700…12780 UnusedSector ┆ UNIV PAGE; FIRSTBIT, NO_OF_BITS: INTEGER); PROCEDURE SKIPBITS(VALUE: UNIV BITVALUE; P: UNIV PAGE; VAR FIRSTBIT: INTEGER; NO_O┆
0x12780…12800 UnusedSector ┆F_BITS: INTEGER; VAR BITSSKIPPED: INTEGER); PROCEDURE SET_TRACE(MASK: INTEGER; S: STREAM; VAR CC: COMPLETION_CODE); PROCEDURE P┆
0x12800…12880 UnusedSector ┆RINT_TRACE(ON: BOOLEAN); PROGRAM MAIN(VAR PARAM: PARAMTYPE); VALUE: UNIV BITVALUE; P: UNIV PAGE; VAR FIRSTBIT: INTEGER; NO_O┆
0x12880…12900 UnusedSector ┆░ j C / s░ )C H ░ j C H ░ j C / H V ░ C H ░ H V ░ ░! t░ *C(C t░ Cj )C # $ ┆
0x12900…12980 UnusedSector ┆ ░ C)Cj )C + ░ j C # $ 6 8 s ░ j C / C C j C / (C ░! s░! t░ C Cj ┆
0x12980…12a00 UnusedSector ┆ C + V ░ j C / tV `░ !C tV ░ j )C ( Ot░ #C H ░ 1C H ░ 2C t ░ U \V H ┆
0x12a00…12a80 UnusedSector ┆░ H ░ \C H ░ ^ V ░ V ░ j )C ' t░ (C ' (C t░ #C H ░ 1C H ░ 2C t ░ ej U H ┆
0x12a80…12b00 UnusedSector ┆░ H ░ \C H ░ " V ░ ░ j )C j )C / ( ░! t░ !C t░ j )C ( t░ j )C j ┆
0x12b00…12b80 UnusedSector ┆)C / ( ░ j )C / (C t░ j )C . t░ )C H ░ H V ░ V ░ 6) 9░t u░ ┆
0x12b80…12c00 UnusedSector ┆)Cj )C + 6) 8░t ░ j )C + ░! u░!Ku░ j )C / Iu░ j )C + Iu░ j )C j )C ┆
0x12c00…12c80 UnusedSector ┆(C / V ░ (C % z░ 6C (C ░ C ░ 6C 6 ░C ░ ░ ░ 0C 8ju ░ }u░! v░ C┆
0x12c80…12d00 UnusedSector ┆"******************************************************************************* * * * SYSTEM ONE / AMOS FILE CONVERSION PROGRAM┆
0x12d00…12d80 UnusedSector ┆ * * ------------------------------------------ * * * * (VERSION 1, 27/8/79) * * * * * * THIS PROGRAM CAN BE USED TO CREATE, REM┆
0x12d80…12e00 UnusedSector ┆OVE, RENAME AND LIST FILES ON A SYS- * * TEM ONE DISKETTE, WHILE RUNNING UNDER AMOS. THE DISKETTE CAN BE EITHER ONE * * WHICH HA┆
0x12e00…12e80 UnusedSector ┆S ALREADY BEEN INITIALISED AND USED UNDER SYSTEM 1 OR A NEW DISKETTE * * WHICH CAN BE INITIALISED BY THIS PROGRAM. THE PROGRAM'S┆
0x12e80…12f00 UnusedSector ┆ MAIN FUNCTION IS TO * * COPY FILES FROM SYSTEM ONE TO AMOS AND VICE VERSA. IN ADDITION, IT IS CAP- * * ABLE OF GENERATING THE B┆
0x12f00…12f80 UnusedSector ┆PROCEDURE READFILEID( VAR FROMADAM: BOOLEAN; VAR FSN:FILE_SYSTEM_NAME; VAR VOL:VOLUME_NAME; VAR NAMELIST:NAMELISTTYPE; VAR ┆
0x12f80…13000 UnusedSector ┆NAMENBR:INTEGER; VAR OK:BOOLEAN); " READ A FILE IDENTIFIER. FROMADAM:TRUE THE FILE ID IS A COMPLETE IDENTIFICATION OF THE FILE┆
0x13000…13080 UnusedSector ┆ FALSE SEARCH FROM CURRENT DIRECTORY (FSN, VOL DUMMY). FSN: FILE SYSTEM NAME. VOL: VOLUME NAME. NAMELIST: A LIST OF FILE NAM┆
0x13080…13100 UnusedSector ┆ES. NAMENBR: THE NUMBER OF FILE NAMES IN FILE ID. OK: TRUE A FILE IDENTIFICATION IS READ FALSE A FILE IDENTIFICATION IS NOT R┆
0x13100…13180 UnusedSector ┆EAD EITHER BECAUSE OF INPUT TROUBLES OR BECAUSE OF SYNTAX ERRORS IN THE INPUT STRING. " $READFI $LOOKUF : A LIST OF FILE NAM┆
0x13180…13200 UnusedSector ┆RS IN THE INPUT STRING. CC: COMPLETION CODE. " VAR ELEM: ELEM_REC; I: INTEGER; CH:CHAR; BEGIN OK:= FALSE; WITH ELEM DO B┆
0x13200…13280 UnusedSector ┆EGIN INELEMENT(PSTREAM,ELEM,CC); IF CC<>0 THEN EXIT; IF ELEM_TYPE=TSPECIAL THEN BEGIN IF SPEC_CHAR<>'@' THEN EXIT; FROMAD┆
0x13280…13300 UnusedSector ┆AM:= TRUE; NAMENBR:= 0; INELEMENT(PSTREAM,ELEM,CC); IF CC<>0 THEN EXIT; IF ELEM_TYPE=TIDENTIFIER THEN BEGIN IF (BYTE_COUNT┆
0x13300…13380 UnusedSector ┆>6) OR (DELIM<>'-') THEN EXIT; FOR I:= 0 TO 2 DO FSN.PNAME.NAME[I]:= NAME[I]; INELEMENT(PSTREAM,ELEM,CC); IF CC<>0 THEN EXIT;┆
0x13380…13400 UnusedSector ┆ IF (ELEM_TYPE<>TIDENTIFIER) OR (BYTE_COUNT>4) OR (DELIM<>'*') THEN EXIT; FOR I:= 0 TO 1 DO FSN.GNAME[I]:= NAME[I]; END ELS┆
0x13400…13480 UnusedSector ┆E IF ELEM_TYPE=TSPECIAL THEN BEGIN IF DELIM<>'*' THEN EXIT; FSN:= PARAM.FSN; END ELSE EXIT; INBYTE(PSTREAM,CH,CC); IF ┆
0x13480…13500 UnusedSector ┆CC<>0 THEN EXIT; IF ((CH>=SP) AND (CH<'0') AND (CH<>'*') AND (CH<>'.')) OR ((CH>'9') AND (CH<'@')) THEN BEGIN " FILE ID TERM┆
0x13500…13580 UnusedSector ┆INATED BY A SEPARATOR NOT CONTAINED IN A FILE ID" VOL:= PARAM.VOL; OK:= TRUE; EXIT; END; BACKSPACE(PSTREAM,CC); IF CC<>0 T┆
0x13580…13600 UnusedSector ┆HEN EXIT; INELEMENT(PSTREAM,ELEM,CC); IF CC<>0 THEN EXIT; IF ELEM_TYPE=TIDENTIFIER THEN BEGIN VOL:= NAME; END ELSE EXIT;┆
0x13600…13680 UnusedSector ┆ END ELSE IF ELEM_TYPE=TIDENTIFIER THEN BEGIN FROMADAM:= FALSE; NAMENBR:= 1; $LOOKUF BACKSPACE(PSTREAM,CC); IF CC<>0 T┆
0x13680…13700 UnusedSector ┆ WHILE DELIM='*' DO BEGIN INELEMENT(PSTREAM,ELEM,CC); IF CC<>0 THEN EXIT; IF ELEM_TYPE<>TIDENTIFIER THEN EXIT; NAMENBR:= S┆
0x13700…13780 UnusedSector ┆UCC(NAMENBR); IF NAMENBR>NAMELISTMAXINDEX THEN EXIT; NAMELIST[NAMENBR]:= NAME; END; END; OK:= TRUE; END "READFILEID"; PR┆
0x13780…13800 UnusedSector ┆OCEDURE LOOKUPFILE( FROMADAM:BOOLEAN; FSN:FILE_SYSTEM_NAME; VOL:VOLUME_NAME; NAMELIST:NAMELISTTYPE; NAMENBR:INTEGER; DIR:F┆
0x13800…13880 UnusedSector ┆ILE; VAR F:FILE; VAR CC:COMPLETION_CODE); " LOOKUP A FILE IDENTIFIED BY A FILE ID FROMADAM: TRUE FILE ID IS A COMPLETE IDENTI┆
0x13880…13900 UnusedSector ┆FICATION OF THE FILE FALSE SEARCH FROM CURRENT DIRECTORY (FSN, VOL DUMMY). FSN: NAME OF FILE SYSTEM. VOL: NAME OF VOLUME. NA┆
0x13900…13980 UnusedSector ┆MELIST: A LIST OF FILE NAMES. NAMENBR: THE NUMBER OF FILE NAMES IN THE FILE ID. DIR: CURRENT DIRECTORY (IF NOT FROMADAM). F: ┆
0x13980…13a00 UnusedSector ┆FILE DESCRIPTOR OF FILE CC: COMPLETION CODE. " VAR I:INTEGER; CCX:COMPLETION_CODE; BEGIN IF FROMADAM THEN BEGIN GET_ROOT(F┆
0x13a00…13a80 UnusedSector ┆SN,VOL,F,CC); IF CC<>0 THEN EXIT; END ELSE F:= DIR; "CURRENT DIRECTORY" FOR I:= 1 TO NAMENBR DO BEGIN IF F=DIR THEN LOOK┆
0x13a80…13b00 UnusedSector ┆UP(F,NAMELIST[I],F,CC) ELSE DESCENT(F,NAMELIST[I],CC); IF CC<>0 THEN BEGIN IF F<>DIR THEN DISMANTLE(F,CCX); EXIT; END; EN┆
0x13b00…13b80 UnusedSector ┆D; END "LOOKUPFILE"; EN EXIT; END ELSE F:= DIR; "CURRENT DIRECTORY" FOR I:= 1 TO NAMENBR DO BEGIN IF F=DIR THEN LOOK┆
0x13b80…13c00 UnusedSector ┆PROCEDURE READFILEID(PSTREAM:STREAM; VAR FROMADAM: BOOLEAN; VAR FSN:FILE_SYSTEM_NAME; VAR VOL:VOLUME_NAME; VAR NAMELIST:NAME┆
0x13c00…13c80 UnusedSector ┆LISTTYPE; VAR NAMENBR:INTEGER; VAR OK:BOOLEAN; VAR CC:COMPLETION_CODE); " READ A FILE IDENTIFIER. PSTREAM: INPUT STREAM. FR┆
0x13c80…13d00 UnusedSector ┆OMADAM:TRUE THE FILE ID IS A COMPLETE IDENTIFICATION OF THE FILE FALSE SEARCH FROM CURRENT DIRECTORY (FSN, VOL DUMMY). FSN: FI┆
0x13d00…13d80 UnusedSector ┆LE SYSTEM NAME. VOL: VOLUME NAME. NAMELIST: A LIST OF FILE NAMES. NAMENBR: THE NUMBER OF FILE NAMES IN FILE ID. OK: TRUE A F┆
0x13d80…13e00 UnusedSector ┆ILE IDENTIFICATION IS READ FALSE A FILE IDENTIFICATION IS NOT READ EITHER BECAUSE OF INPUT TROUBLES OR BECAUSE OF SYNTAX ERRO┆
0x13e00…13e80 UnusedSector ┆RS IN THE INPUT STRING. CC: COMPLETION CODE. " VAR ELEM: ELEM_REC; I: INTEGER; CH:CHAR; BEGIN OK:= FALSE; WITH ELEM DO B┆
0x13e80…13f00 UnusedSector ┆EGIN INELEMENT(PSTREAM,ELEM,CC); IF CC<>0 THEN EXIT; IF ELEM_TYPE=TSPECIAL THEN BEGIN IF SPEC_CHAR<>'@' THEN EXIT; FROMAD┆
0x13f00…13f80 UnusedSector ┆AM:= TRUE; NAMENBR:= 0; INELEMENT(PSTREAM,ELEM,CC); IF CC<>0 THEN EXIT; IF ELEM_TYPE=TIDENTIFIER THEN BEGIN IF (BYTE_COUNT┆
0x13f80…14000 UnusedSector ┆>6) OR (DELIM<>'-') THEN EXIT; FOR I:= 0 TO 2 DO FSN.PNAME.NAME[I]:= NAME[I]; INELEMENT(PSTREAM,ELEM,CC); IF CC<>0 THEN EXIT;┆
0x14000…14080 UnusedSector ┆ IF (ELEM_TYPE<>TIDENTIFIER) OR (BYTE_COUNT>4) OR (DELIM<>'*') THEN EXIT; FOR I:= 0 TO 1 DO FSN.GNAME[I]:= NAME[I]; END ELS┆
0x14080…14100 UnusedSector ┆E IF ELEM_TYPE=TSPECIAL THEN BEGIN IF DELIM<>'*' THEN EXIT; FSN:= PARAM.FSN; END ELSE EXIT; INBYTE(PSTREAM,CH,CC); IF ┆
0x14100…14180 UnusedSector ┆CC<>0 THEN EXIT; IF ((CH>=SP) AND (CH<'0') AND (CH<>'*') AND (CH<>'.')) OR ((CH>'9') AND (CH<'@')) THEN BEGIN " FILE ID TERM┆
0x14180…14200 UnusedSector ┆INATED BY A SEPARATOR NOT CONTAINED IN A FILE ID" VOL:= PARAM.VOL; OK:= TRUE; EXIT; END; BACKSPACE(PSTREAM,CC); IF CC<>0 T┆
0x14200…14280 UnusedSector ┆HEN EXIT; INELEMENT(PSTREAM,ELEM,CC); IF CC<>0 THEN EXIT; IF ELEM_TYPE=TIDENTIFIER THEN BEGIN VOL:= NAME; END ELSE EXIT;┆
0x14280…14300 UnusedSector ┆ END ELSE IF ELEM_TYPE=TIDENTIFIER THEN BEGIN FROMADAM:= FALSE; NAMENBR:= 1; NAMELIST[NAMENBR]:= NAME; END ELSE EXIT; ┆
0x14300…14380 UnusedSector ┆ WHILE DELIM='*' DO BEGIN INELEMENT(PSTREAM,ELEM,CC); IF CC<>0 THEN EXIT; IF ELEM_TYPE<>TIDENTIFIER THEN EXIT; NAMENBR:= S┆
0x14380…14400 UnusedSector ┆UCC(NAMENBR); IF NAMENBR>NAMELISTMAXINDEX THEN EXIT; NAMELIST[NAMENBR]:= NAME; END; END; OK:= TRUE; END "READFILEID"; PR┆
0x14400…14480 UnusedSector ┆OCEDURE LOOKUPFILE( FROMADAM:BOOLEAN; FSN:FILE_SYSTEM_NAME; VOL:VOLUME_NAME; NAMELIST:NAMELISTTYPE; NAMENBR:INTEGER; DIR:F┆
0x14480…14500 UnusedSector ┆ILE; VAR F:FILE; VAR CC:COMPLETION_CODE); " LOOKUP A FILE IDENTIFIED BY A FILE ID FROMADAM: TRUE FILE ID IS A COMPLETE IDENTI┆
0x14500…14580 UnusedSector ┆FICATION OF THE FILE FALSE SEARCH FROM CURRENT DIRECTORY (FSN, VOL DUMMY). FSN: NAME OF FILE SYSTEM. VOL: NAME OF VOLUME. NA┆
0x14580…14600 UnusedSector ┆MELIST: A LIST OF FILE NAMES. NAMENBR: THE NUMBER OF FILE NAMES IN THE FILE ID. DIR: CURRENT DIRECTORY (IF NOT FROMADAM). F: ┆
0x14600…14680 UnusedSector ┆FILE DESCRIPTOR OF FILE CC: COMPLETION CODE. " VAR I:INTEGER; CCX:COMPLETION_CODE; BEGIN IF FROMADAM THEN BEGIN GET_ROOT(F┆
0x14680…14700 UnusedSector ┆SN,VOL,F,CC); IF CC<>0 THEN EXIT; END ELSE F:= DIR; "CURRENT DIRECTORY" FOR I:= 1 TO NAMENBR DO BEGIN IF F=DIR THEN LOOK┆
0x14700…14780 UnusedSector ┆UP(F,NAMELIST[I],F,CC) ELSE DESCENT(F,NAMELIST[I],CC); IF CC<>0 THEN BEGIN IF F<>DIR THEN DISMANTLE(F,CCX); EXIT; END; EN┆
0x14780…14800 UnusedSector ┆D; END "LOOKUPFILE"; EN EXIT; END ELSE F:= DIR; "CURRENT DIRECTORY" FOR I:= 1 TO NAMENBR DO BEGIN IF F=DIR THEN LOOK┆
0x14800…14880 UnusedSector ┆PROCEDURE READFILEID( VAR FROMADAM: BOOLEAN; VAR FSN:FILE_SYSTEM_NAME; VAR VOL:VOLUME_NAME; VAR NAMELIST:NAMELISTTYPE; VAR ┆
0x14880…14900 UnusedSector ┆NAMENBR:INTEGER; VAR OK:BOOLEAN); " READ A FILE IDENTIFIER. FROMADAM:TRUE THE FILE ID IS A COMPLETE IDENTIFICATION OF THE FILE┆
0x14900…14980 UnusedSector ┆ FALSE SEARCH FROM CURRENT DIRECTORY (FSN, VOL DUMMY). FSN: FILE SYSTEM NAME. VOL: VOLUME NAME. NAMELIST: A LIST OF FILE NAM┆
0x14980…14a00 UnusedSector ┆ES. NAMENBR: THE NUMBER OF FILE NAMES IN FILE ID. OK: TRUE A FILE IDENTIFICATION IS READ FALSE A FILE IDENTIFICATION IS NOT R┆
0x14a00…14a80 UnusedSector ┆EAD EITHER BECAUSE OF INPUT TROUBLES OR BECAUSE OF SYNTAX ERRORS IN THE INPUT STRING. " VAR ELEM : ELEM_REC; I : INTEGER; C┆
0x14a80…14b00 UnusedSector ┆H : CHAR; BEGIN OK := FALSE; WITH ELEM DO BEGIN INELEM(ELEM); IF (ELEM_TYPE = TSPECIAL) AND (SPEC_CHAR = '@') THEN BEGIN┆
0x14b00…14b80 UnusedSector ┆ FROMADAM := TRUE; NAMENBR := 0; INELEM(ELEM); IF (ELEM_TYPE = TIDENTIFIER) AND (BYTE_COUNT <= 6) AND (DELIM='-') THEN BEGI┆
0x14b80…14c00 UnusedSector ┆N FOR I:=0 TO 2 DO FSN.PNAME.NAME[I] := NAME[I]; INELEM(ELEM); IF (ELEM_TYPE = TIDENTIFIER) AND (BYTE_COUNT <= 4) AND (DELIM┆
0x14c00…14c80 UnusedSector ┆ = '*') THEN BEGIN FOR I:=0 TO 1 DO FSN.GNAME[I] := NAME[I]; OK := TRUE END END ELSE IF (ELEM_TYPE = TSPECIAL) AND (SPEC_┆
0x14c80…14d00 UnusedSector ┆CHAR = '*') THEN BEGIN FSN := PARAM.FSN; OK := TRUE END; IF OK THEN BEGIN INELEM(ELEM); IF ELEM_TYPE = TSPECIAL THEN BE┆
0x14d00…14d80 UnusedSector ┆ALSE END END; "OF READFILEID" N INELEM(ELEM); IF ELEM_TYPE <> TIDENTIFIER THEN OK := FALSE ELSE BEGIN NAMENBR := SUCC(N┆
0x14d80…14e00 UnusedSector ┆THEN EXIT; NAMELIST[NAMENBR]:= NAME; END; END; OK:= TRUE; END "READFILEID"; PROCEDURE LOOKUPFILE( FROMADAM:BOOLEAN; FSN┆
0x14e00…14e80 UnusedSector ┆:FILE_SYSTEM_NAME; VOL:VOLUME_NAME; NAMELIST:NAMELISTTYPE; NAMENBR:INTEGER; DIR:FILE; VAR F:FILE; VAR CC:COMPLETION_CODE);┆
0x14e80…14f00 UnusedSector ┆ " LOOKUP A FILE IDENTIFIED BY A FILE ID FROMADAM: TRUE FILE ID IS A COMPLETE IDENTIFICATION OF THE FILE FALSE SEARCH FROM CUR┆
0x14f00…14f80 UnusedSector ┆RENT DIRECTORY (FSN, VOL DUMMY). FSN: NAME OF FILE SYSTEM. VOL: NAME OF VOLUME. NAMELIST: A LIST OF FILE NAMES. NAMENBR: THE┆
0x14f80…15000 UnusedSector ┆PROCEDURE FIND_FILE(COMPLETE_NAME : BOOLEAN; FSN : FILE_SYSTEM_NAME; VOL : VOLUME_NAME; NAME_LIST : NAMELISTTYPE; NUMB_NAMES :┆
0x15000…15080 UnusedSector ┆ INTEGER; DIRECTORY : FILE; VAR F : FILE; VAR CC : COMPLETION_CODE); VAR FILE_ATTRS : FILE_ATTRIBUTES; BEGIN CC := NON_EXI┆
0x15080…15100 UnusedSector ┆STING_NAME; IF COMPLETE_NAME THEN IF NUMB_NAMES = 0 THEN GET_ROOT(FSN, VOL, F, CC) ELSE EXIT; IF NUMB_NAMES <> 1 THEN EXIT; ┆
0x15100…15180 UnusedSector ┆ LOOKUP(PARAM.DFILE, NAME_LIST[1], F, CC); IF CC = NON_EXISTING_NAME THEN BEGIN WITH FILE_ATTRS DO BEGIN VOLUME := PARAM.VO┆
0x15180…15200 UnusedSector ┆L; ORGANIZATION := RANDOM; AREA_SIZE := 2 END; CREATE(PARAM.FSN, FILE_ATTRS, F, CC); IF CC = IO_OK THEN ENTER(PARAM.DFILE, ┆
0x15200…15280 UnusedSector ┆ VAR ELEM : ELEM_REC; I : INTEGER; CH : CHAR; BEGIN OK := FALSE; WITH ELEM DO BEGIN INELEM(ELEM); IF (ELEM_TYPE = TSPECI┆
0x15280…15300 UnusedSector ┆AL) AND (SPEC_CHAR = SP) THEN INELEM(ELEM); IF (ELEM_TYPE = TSPECIAL) AND (SPEC_CHAR = '@') THEN BEGIN FROMADAM := TRUE; NAM┆
0x15300…15380 UnusedSector ┆ENBR := 0; INELEM(ELEM); IF (ELEM_TYPE = TIDENTIFIER) AND (BYTE_COUNT <= 6) AND (DELIM='-') THEN BEGIN FOR I:=0 TO 2 DO FSN.┆
0x15380…15400 UnusedSector ┆PNAME.NAME[I] := NAME[I]; INELEM(ELEM); IF (ELEM_TYPE = TIDENTIFIER) AND (BYTE_COUNT <= 4) AND (DELIM = '*') THEN BEGIN FOR┆
0x15400…15480 UnusedSector ┆ I:=0 TO 1 DO FSN.GNAME[I] := NAME[I]; OK := TRUE END END ELSE IF (ELEM_TYPE = TSPECIAL) AND (SPEC_CHAR = '*') THEN BEGIN ┆
0x15480…15500 UnusedSector ┆ FSN := PARAM.FSN; OK := TRUE END; IF OK THEN BEGIN INELEM(ELEM); IF ELEM_TYPE = TSPECIAL THEN BEGIN VOL := PARAM.VOL; ┆
0x15500…15580 UnusedSector ┆IF (SPEC_CHAR = SP) OR (SPEC_CHAR = NL) THEN EXIT ELSE IF SPEC_CHAR <> '*' THEN OK := FALSE END ELSE VOL := NAME; END END ┆
0x15580…15600 UnusedSector ┆ELSE IF ELEM_TYPE = TIDENTIFIER THEN BEGIN FROMADAM := FALSE; NAMENBR := 1; NAMELIST[NAMENBR] := NAME; OK := TRUE END; W┆
0x15600…15680 UnusedSector ┆HILE OK AND (DELIM = '*') DO BEGIN INELEM(ELEM); IF ELEM_TYPE <> TIDENTIFIER THEN OK := FALSE ELSE BEGIN NAMENBR := SUCC(N┆
0x15680…15700 UnusedSector ┆AMENBR); IF NAMENBR > NAMELISTMAXINDEX THEN OK := FALSE ELSE NAMELIST[NAMENBR] := NAME END END; IF DELIM <> SP THEN OK := F┆
0x15700…15780 UnusedSector ┆ ,PARAMETER SYNTAX ERROR OBJECT FILE FULL SOURCE OPEN ERROR OBJECT OPEN ERROR lN Z ] z┆
0x15780…15800 UnusedSector ┆lN ZK# d ] NOT READY TIME OUT REJECTED ILLEGAL UNCOMPLETE ERROR END-OF-FILE PARITY ERROR READ ERROR WRITE ERROR FULL ┆
0x15800…15880 UnusedSector ┆UNKNOWN NO REFS BUSY K P U Y _ b h o u { ~ F p[s\t]v^udL_ |lNh] K: _ ]h[I q N q" . Z ] STATUS: ZjaK#┆
0x15880…15900 UnusedSector ┆ d ]k\n^L_ OO@l] d hX X E X hpR iX X X hR S| O~ X HS hX V H2I V J K Le RHS SX H@ V H (C H H I J@K V L RHWM ┆
0x15900…15980 UnusedSector ┆ SX H@ H (C H Le aV L _X Le TV L TlM YlN Y A d / d ┆
0x15980…15a00 UnusedSector ┆ PROCEDURE LOOKUPFILE( FROMADAM:BOOLEAN; FSN:FILE_SYSTEM_NAME; VOL:VOLUME_NAME; NAMELIST:NAMELISTTYPE; NAMENBR:INTEGER; V┆
0x15a00…15a80 UnusedSector ┆AR F:FILE); " LOOKUP A FILE IDENTIFIED BY A FILE ID FROMADAM: TRUE FILE ID IS A COMPLETE IDENTIFICATION OF THE FILE FALSE SEAR┆
0x15a80…15b00 UnusedSector ┆CH FROM CURRENT DIRECTORY (FSN, VOL DUMMY). FSN: NAME OF FILE SYSTEM. VOL: NAME OF VOLUME. NAMELIST: A LIST OF FILE NAMES. N┆
0x15b00…15b80 UnusedSector ┆AMENBR: THE NUMBER OF FILE NAMES IN THE FILE ID. F: FILE DESCRIPTOR OF FILE " VAR I:INTEGER; CCX:COMPLETION_CODE; BEGIN IF F┆
0x15b80…15c00 UnusedSector ┆ROMADAM THEN BEGIN GET_ROOT(FSN,VOL,F,CC); IF CC<>0 THEN EXIT; END ELSE F := PARAM.DFILE; "CURRENT DIRECTORY" FOR I:= 1 ┆
0x15c00…15c80 UnusedSector ┆TO NAMENBR DO BEGIN IF F = PARAM.DFILE THEN LOOKUP(F,NAMELIST[I],F,CC) ELSE DESCENT(F,NAMELIST[I],CC); IF CC<>0 THEN BEGIN ┆
0x15c80…15d00 UnusedSector ┆ IF F <> PARAM.DFILE THEN DISMANTLE(F,CCX); EXIT; END; END; END "LOOKUPFILE"; ARAM.DFILE; "CURRENT DIRECTORY" FOR I:= 1 ┆
0x15d00…15d80 UnusedSector ┆S INSTRUCTIONS EXPANDED MODIFIES INSERTED SKIPS PAIR CHANGED TABLE WORDS USED NOMATCHED OPP┆
0x15d80…15e00 UnusedSector ┆ARTS INSTRUCTIONS REALISED WORDS OUTPUT WORDS ASSEMBLED ASSEMBLY TERMINATED ERRORS WAR┆
0x15e00…15e80 UnusedSector ┆NINGS MESSAGES ┆
0x15e80…15f00 UnusedSector ┆ ░░ / / I _ BINCOY BIN ┆
0x15f00…15f80 UnusedSector ┆ ┆
0x15f80…16000 UnusedSector 0x00[128]
[…0x9…]
0x16480…16500 UnusedSector ┆ OC ┆
0x16500…16580 UnusedSector ┆ k s v k ┆
0x16580…16600 UnusedSector 0x00[128]
0x16600…16680 UnusedSector ┆ OC Z Z ┆
0x16680…16700 UnusedSector ┆ Z % ┆
0x16700…16780 UnusedSector 0x00[128]
0x16780…16800 UnusedSector ┆ @ ┆
0x16800…16880 UnusedSector ┆ ┆
0x16880…16900 UnusedSector 0x00[128]
[…0x3…]
0x16a80…16b00 UnusedSector ┆ ┆
0x16b00…16b80 UnusedSector ┆GIN VOL := PARAM.VOL; IF (SPEC_CHAR = SP) OR (SPEC_CHAR = NL) THEN EXIT ELSE IF SPEC_CHAR <> '*' THEN OK := FALSE END ELSE ┆
0x16b80…16c00 UnusedSector ┆VOL := NAME; END END ELSE IF ELEM_TYPE = TIDENTIFIER THEN BEGIN FROMADAM := FALSE; NAMENBR := 1; NAMELIST[NAMENBR] := NA┆
0x16c00…16c80 UnusedSector ┆ME; OK := TRUE END; WHILE OK AND (DELIM = '*') DO BEGIN INELEM(ELEM); IF ELEM_TYPE <> TIDENTIFIER THEN OK := FALSE ELSE ┆
0x16c80…16d00 UnusedSector ┆BEGIN NAMENBR := SUCC(NAMENBR); IF NAMENBR > NAMELISTMAXINDEX THEN OK := FALSE ELSE NAMELIST[NAMENBR] := NAME END END; IF ┆
0x16d00…16d80 UnusedSector ┆DELIM <> SP THEN OK := FALSE END END; "OF READFILEID" PROCEDURE LOOKUPFILE( FROMADAM:BOOLEAN; FSN:FILE_SYSTEM_NAME; VOL:V┆
0x16d80…16e00 UnusedSector ┆OLUME_NAME; NAMELIST:NAMELISTTYPE; NAMENBR:INTEGER; VAR F:FILE); " LOOKUP A FILE IDENTIFIED BY A FILE ID FROMADAM: TRUE FILE┆
0x16e00…16e80 UnusedSector ┆ ID IS A COMPLETE IDENTIFICATION OF THE FILE FALSE SEARCH FROM CURRENT DIRECTORY (FSN, VOL DUMMY). FSN: NAME OF FILE SYSTEM. ┆
0x16e80…16f00 UnusedSector ┆VOL: NAME OF VOLUME. NAMELIST: A LIST OF FILE NAMES. NAMENBR: THE NUMBER OF FILE NAMES IN THE FILE ID. F: FILE DESCRIPTOR OF ┆
0x16f00…16f80 UnusedSector ┆FILE " VAR I:INTEGER; CCX:COMPLETION_CODE; BEGIN IF FROMADAM THEN BEGIN GET_ROOT(FSN,VOL,F,CC); IF CC<>0 THEN EXIT; END ┆
0x16f80…17000 UnusedSector ┆ELSE F := PARAM.DFILE; "CURRENT DIRECTORY" FOR I:= 1 TO NAMENBR DO BEGIN IF F = PARAM.DFILE THEN LOOKUP(F,NAMELIST[I],F,CC)┆
0x17000…17080 UnusedSector ┆ ELSE DESCENT(F,NAMELIST[I],CC); IF CC<>0 THEN BEGIN IF F <> PARAM.DFILE THEN DISMANTLE(F,CCX); EXIT; END; END; END "LOOK┆
0x17080…17100 UnusedSector ┆UPFILE"; AM.DFILE; "CURRENT DIRECTORY" FOR I:= 1 TO NAMENBR DO BEGIN IF F = PARAM.DFILE THEN LOOKUP(F,NAMELIST[I],F,CC)┆
0x17100…17180 UnusedSector ┆ % # gj y & $ O c y f y i h y & % # gi y & $ L c & # gc y y & $ O c y┆
0x17180…17200 UnusedSector ┆ fb y i h y & % # gi y & $ L c & # gn y y & $ O c y f2 y i h y #=░ &┆
0x17200…17280 UnusedSector ┆<░ 1 y ! f ░ y % f ░ y y &8░ 8 c " ░ "░░ y f b ░ y i h y &:░ &=░ $ L 9 c y y #:░ $ 1 y ┆
0x17280…17300 UnusedSector ┆"CR80 SEQUENTIAL PASCAL STANDARD PREFIX. PHO /-790910" "##################################################" "*************** A M┆
0x17300…17380 UnusedSector ┆ O S ****************" "##################################################" CONST NL = '(:10:)'; FF = '(:12:)'; CR = '(:13:)'; ┆
0x17380…17400 UnusedSector ┆EM = '(:25:)'; CONST NULL = '(:0:)'; SP = ' '; CONST LINELENGTH = 132; TYPE LINE = ARRAY [1..LINELENGTH] OF CHAR; TYPE TEXT = L┆
0x17400…17480 UnusedSector ┆INE; TYPE PROGRESULT = (TERMINATED, OVERFLOW, POINTERERROR, RANGEERROR, VARIANTERROR, HEAPLIMIT, STACKLIMIT, CODELIMIT, TIMEL┆
0x17480…17500 UnusedSector ┆IMIT, CALLERROR); TYPE BITPOSITION = 0..15; TYPE BITFIELDLENGTH = 0..16; TYPE BITVALUE = (LOW, HIGH); TYPE MESSAGE_BUFFER = AR┆
0x17500…17580 UnusedSector ┆RAY [1..5] OF INTEGER; TYPE WORD_ADDRESS = RECORD MEMORY_SECTION: INTEGER; WORD_DISPLACEMENT:INTEGER END; TYPE BYTE_ADDRESS┆
0x17580…17600 UnusedSector ┆ = RECORD BYTE_DISPLACEMENT: INTEGER; WORD_ADDR: WORD_ADDRESS END; TYPE FILE = INTEGER; TYPE COMPLETION_CODE = INTEGER; TYPE┆
0x17600…17680 UnusedSector ┆ ELEMENT = ARRAY [1..1] OF INTEGER; TYPE PROCESS_NAME = RECORD NAME: ARRAY [0..2] OF CHAR; NAME_IDENT: INTEGER END; TYPE FI┆
0x17680…17700 UnusedSector ┆LE_SYSTEM_NAME = RECORD PNAME: PROCESS_NAME; GNAME: ARRAY [0..1] OF CHAR END; TYPE PACKED_NAME = ARRAY [0..7] OF CHAR; TYPE V┆
0x17700…17780 UnusedSector ┆OLUME_NAME = PACKED_NAME; CONST DIRECTORY = 10; CONTIGUOUS = 12; RANDOM = 14; TYPE FILE_ORGANIZATION = DIRECTORY..RANDOM; TYPE F┆
0x17780…17800 UnusedSector ┆ILE_ATTRIBUTES = RECORD VOLUME: VOLUME_NAME; ORGANIZATION: FILE_ORGANIZATION; ALLOC_SIZE: LONG_INTEGER; AREA_SIZE: INTEGER ┆
0x17800…17880 UnusedSector ┆END; TYPE USERID = ARRAY [0..1] OF INTEGER; TYPE ACCESS_DESCRIPTION = RECORD USER: USERID; RIGHTS: ARRAY [0..1] OF INTEGER EN┆
0x17880…17900 UnusedSector ┆D; TYPE FILE_INFORMATION = ARRAY [1..32] OF INTEGER; TYPE DEVICE_NAME = ARRAY [0..1] OF CHAR; TYPE DEVICE_DESCRIPTION = RECORD ┆
0x17900…17980 UnusedSector ┆DEVICE_KIND: INTEGER; DEVICE_ADDR: INTEGER; UNIT: INTEGER; SUBUNIT: INTEGER; DEVICE: DEVICE_NAME END; TYPE FILE_NAME = PACK┆
0x17980…17a00 UnusedSector ┆ED_NAME; TYPE FILE_ADDRESS = RECORD FIRST_BYTE: LONG_INTEGER; BYTE_COUNT: LONG_INTEGER; TRANSFERRED_BYTES: LONG_INTEGER END;┆
0x17a00…17a80 UnusedSector ┆ TYPE SECTOR_ADDRESS = RECORD FIRST_SECTOR: LONG_INTEGER; SECTOR_COUNT: LONG_INTEGER; TRANSFERRED_SECTORS: LONG_INTEGER END;┆
0x17a80…17b00 UnusedSector ┆ TYPE MODE = (INPUT_MODE, OUTPUT_MODE); TYPE STREAM = INTEGER; TYPE STREAM_POSITION = LONG_INTEGER; TYPE BYTE = 0..255; TYPE OPE┆
0x17b00…17b80 UnusedSector ┆RATION_REFERENCE = INTEGER; TYPE MEMORY_PARM = INTEGER; TYPE BUFFER_LOCATION = (LOCAL, EXTERNAL); TYPE BLEPTR = @BLE; TYPE BLE ┆
0x17b80…17c00 UnusedSector ┆= RECORD LINK: BLEPTR; CASE XL: BUFFER_LOCATION OF LOCAL: (BUFADDR, BUFSIZE_IN_BYTES: INTEGER); EXTERNAL: (MEMORY: MEMORY_PA┆
0x17c00…17c80 UnusedSector ┆RM) END; TYPE EVENT_TYPE = (SIGNAL, MESSAGE, ANSWER, SYSTEM_MESSAGE, SYSTEM_ANSWER, PATH_MESSAGE, PATH_ANSWER, INTERRUPT, TI┆
0x17c80…17d00 UnusedSector ┆ME_OUT, PARENT_SIGNAL); TYPE EVENT_MASK = INTEGER; TYPE DATE_TIME_GROUP = RECORD YEAR, MONTH, DAY: INTEGER; HOUR, MIN, SEC: ┆
0x17d00…17d80 UnusedSector ┆INTEGER END; TYPE PROC_TIME = ARRAY [0..2] OF INTEGER; TYPE PROCESS_ATTRIBUTES = RECORD ACCESS_RIGHTS, STATE: INTEGER; ERRO┆
0x17d80…17e00 UnusedSector ┆R_CODE, ERROR_LOC: INTEGER; CONSUMED_TIME, CREATION_TIME: PROC_TIME END; TYPE CREATION_BLOCK = RECORD VNAME: PROCESS_NAME; ┆
0x17e00…17e80 UnusedSector ┆VPROG, VINIT, VMICRO, VCAPAB: INTEGER; VCPU, VPRIO, VLEVEL, VBASE: INTEGER; VSIZE, VBOUND, VMEMORY, VMSGS: INTEGER; VUSER: US┆
0x17e80…17f00 UnusedSector ┆ERID END; TYPE CPUPARAMETER = (VCPUNMB, VINTERRUPTMASK, VSCHEDULERESETCOUNT, VSLICESIZE, VELAPSEDTIME, VHWPRIORITY); TYPE CH┆
0x17f00…17f80 UnusedSector ┆AR_TYPE = (TSPACE, TDIGIT, TLETTER, TOTHER); CONST PAGELENGTH = 256; TYPE PAGE = ARRAY [1..PAGELENGTH] OF INTEGER; TYPE ELEMEN┆
0x17f80…18000 UnusedSector ┆T_TYPE = (TERROR, TINTEGER, TIDENTIFIER, TSPECIAL, TLONG_INTEGER); TYPE ELEM_REC = RECORD DELIM: CHAR; BYTE_COUNT: INTEGER; ┆
0x18000…18080 UnusedSector ┆ CASE ELEM_TYPE: ELEMENT_TYPE OF TINTEGER: (INT: INTEGER); TLONG_INTEGER: (LINT: LONG_INTEGER); TIDENTIFIER: (NAME: PACKED_NA┆
0x18080…18100 UnusedSector ┆ME); TSPECIAL: (SPEC_CHAR: CHAR) END; TYPE POINTER = @INTEGER; TYPE PARAMTYPE = RECORD FSN: FILE_SYSTEM_NAME; "CURRENT FILE ┆
0x18100…18180 UnusedSector ┆SYSTEM NAME" VOL: VOLUME_NAME; "CURRENT VOLUME NAME" PFILE: FILE; "CURRENT PARAMETER FILE" DFILE: FILE; "CURRENT DIRECTORY FI┆
0x18180…18200 UnusedSector ┆MODE) AND (AREA_INFO.SIZE < 0) THEN ERROR('SYSTEM 1 FILE IS EMPTY(:0:)') ELSE BEGIN FIND_FILE(COMPLETE_NAME, FSN_2, VOL, NAM┆
0x18200…18280 UnusedSector ┆E_LIST, NUMB_NAMES, PARAM.DFILE, FILE_2, CC); IF CC <> 0 THEN IF CC = ILLEGAL_DIRECTORY THEN ERROR('BAD DIRECTORY(:0:)') ELS┆
0x18280…18300 UnusedSector ┆E IF CC = UNKNOWN_FILE_SYSTEM THEN ERROR('NO SUCH FILE SYSTEM EXISTS(:0:)') ELSE IF CC = NON_EXISTING_VOLUME THEN ERROR('NO┆
0x18300…18380 UnusedSector ┆ SUCH VOLUME EXISTS(:0:)') ELSE IF CC = NON_EXISTING_NAME THEN ERROR('AMOS FILE DOES NOT EXIST(:0:)') ELSE IF CC = PROTECTI┆
0x18380…18400 UnusedSector ┆ON_FAILURE THEN P_ERROR('FILE IS NOT ACCESSIBLE(:0:)') ELSE CCERROR_A ELSE BEGIN CONNECT(FILE_2, REQUD_MODE, F_STREAM, CC);┆
0x18400…18480 UnusedSector ┆ IF CC <> IO_OK THEN CCERROR_A ELSE BEGIN IF (REQUD_MODE = OUTPUT_MODE) THEN BEGIN " RESET(FILE_2, CC); " IF CC <> IO_O┆
0x18480…18500 UnusedSector ┆K THEN IF CC = ILLEGAL_FILE THEN ERROR('AMOS FILE IS A DIRECTORY(:0:)') ELSE IF CC = PROTECTION_FAILURE THEN P_ERROR('FILE ┆
0x18500…18580 UnusedSector ┆IS NOT RESETABLE(:0:)') ELSE CCERROR_A END; IF CC = IO_OK THEN BEGIN WRITETXT('IS IT A TEXT FILE ? (Y OR N) : (:0:)'); SKI┆
0x18580…18600 UnusedSector ┆P_BLANKS(CH, CH_TYPE); IF CH = NL THEN SKIP_BLANKS(CH, CH_TYPE); IF (CH = 'Y') OR (CH = 'N') THEN OK := TRUE ELSE ERROR('INVA┆
0x18600…18680 UnusedSector ┆LID INPUT(:0:)'); TEXT_FILE := CH = 'Y' END; IF NOT OK THEN CLOSE(F_STREAM) END END END END END END END; "OF GET_FILEN┆
0x18680…18700 UnusedSector ┆ S R D I / C L P E B X M N Z F , ; ( ) < > |pvp}pwlxpypzp{p p p p p p p p p ~p ┆
0x18700…18780 UnusedSector ┆ p P ICXCb H 4 4C g 4 4 ░ ░ ░ ░ ░ ░ ░ ! z ┆
0x18780…18800 UnusedSector ┆ n i 3 Z ; vdp u lM aL #| 0B :B 0 B X O p h m dveN\' u` OS O\ J @m`░ m` n@ ┆
0x18800…18880 UnusedSector ┆_1N\ @"* -$ / O r L t t]unX L] Al o t D 0 4t ░D ' X)L] P@mnk @X;Ll}AX> X@K/ @XCOS \o` t K @O r e┆
0x18880…18900 UnusedSector ┆' O\ H @m`░ X vdn[ l _# 8 ^ 6 7@ v[ dvguoumI _ | Kno F 7@ vmx@ &< ┆
0x18900…18980 UnusedSector ┆I ^ mo ]mm _ gtdmpV Lq E N X dtd p dI qij a qj @udv O w^J V Nw p k c O^' h j i @ h k 8 O^ # : l @┆
0x18980…18a00 UnusedSector ┆n dug [ 8 V l _ gv u tdOk} p lN _ m @ !B ~ K @V M Lh q A r B P@ P@ V M u n m d{@ V l _]0X ┆
0x18a00…18a80 UnusedSector ┆H I J K R vf ^lN \ ] fV Nq K sT | K ]LV Ml_ FILE ERR 102 lN Z ] _ FILE ERR 115 _ FILE ERR 116 V2 0H p ud┆
0x18a80…18b00 UnusedSector ┆v V M _>n d V ░ V ░ V2 2H p V M(_^O_ V h *$ ot | X | X V1 0H p V M4_t ┆
0x18b00…18b80 UnusedSector ┆ V9 0H p V MBX V MPX V3 1H p V M^X V NwV Lqtj oV LqtuV Nq' ( plpt h , G FILE ERR 103 lN Z ] hpT iX X X hT S| O┆
0x18b80…18c00 UnusedSector ┆| C| V| X V M} mX/V Mq hMV p L t V L _ K V Hq SXfV H H@ Ma PV Mu} L N NV L _ K V HumR SX|V H H@ Ma Q┆
0x18c00…18c80 UnusedSector ┆V My} h lM T V L tMV K V Hy SX V H H@ H ptMa RV M}} lN TV K V H}mR SX V H H@ H ptMa Sl \ | V L V V Mq┆
0x18c80…18d00 UnusedSector ┆ C ` | X V H CK V HqmR SX Ma Q ) ht~ qsH p p p H p V H p nuv[ mlj'@ TX V Lq Os lN ]kr _K ^V Zn[ "* ( $ n & G! ┆
0x18d00…18d80 UnusedSector ┆ [$ q O q n[ @K ( p l d 4 Ht M @} Y V X$lM c | n[ K X P`H K X I n[H p l < \t L 0 P` 8 | Pk ┆
0x18d80…18e00 UnusedSector ┆V Ao vuXgXUl BH p XZ) q i @ Yy _! $ @V @ @ Y H p H pcXnm[ V Y V@ K m[ 5 _Lc PDl H LcPD V /┆
0x18e00…18e80 UnusedSector ┆~ Y m[ V e n[Pc l H V [ n[Pg j[V E m[ V B B Y X h V V ' $ X ( pSV X PdV H m V H ┆
0x18e80…18f00 UnusedSector ┆ P`O_} T V )~ Y ) X ,| Z X V | (~ Z { n[ V q )~ X 7J r V i"*$ ,| X | X X V _ (~ Z V Z /< + ~ Z"slV P┆
0x18f00…18f80 UnusedSector ┆ )~ Z*N V Y @V D (~ | V = )~ Z:n[ V h I X N Y/ot O_ YGn[PhV vpH V Nw p pXqZuY o Hq V l kT _┆
0x18f80…19000 UnusedSector ┆Jk V V l asTI X kT F 1 F j (| rW I j i OqK h OW {O u | \ / 7 t ^ O x X X! E j ( ┆
0x19000…19080 UnusedSector ┆ h j i lV j i ░ H O u XK ░ j ( V ^ h Oq j i O hO v H Oh q l r k Oq h l Oq ~┆
0x19080…19100 UnusedSector ┆ V l kT _V OqM V U o x rV oOq ~ j i 6 ? h V . X ] I ^ _ X J ░ X N O X X ░ O X ┆
0x19100…19180 UnusedSector ┆ X [ 8V l _Ok V B _ X O L _ V H M r @ O t @M X Mk ot OsPp D q D X% IV o┆
0x19180…19200 UnusedSector ┆ N nLj l X2 X6V X9V XBV qI XHX O V OqwuV XQoq x V O Ik Oh r{@ V L _ V X Xe┆
0x19200…19280 UnusedSector ┆ mXmXn kOq x V qV V H S o hXiZmY m @I I Hq YlNaV l ` T TX V L T b lM TV M|V Na c lN T A ┆
0x19280…19300 UnusedSector ┆ EDIT S d / d ░░ ┆
0x19300…19380 UnusedSector ┆ / / { - ░░ @# ┆
0x19380…19400 UnusedSector ┆ ░ # / J Z WARNING 3 SYNTAX 2 MEM FULL 1 FILE ERR 1 SYNTAX 110 OVERFLOW 1 ┆
0x19400…19480 UnusedSector ┆NO MATCH 111 END OF EDITION. ┆
0x19480…19500 UnusedSector ┆ ┆
0x19500…19580 UnusedSector 0x00[128]
[…0x8…]
0x19980…19a00 UnusedSector ┆ OC Z Z Z ┆
0x19a00…19a80 UnusedSector 0x00[128]
0x19a80…19b00 UnusedSector ┆ OC ┆
0x19b00…19b80 UnusedSector ┆ O W > O ┆
0x19b80…19c00 UnusedSector 0x00[128]
0x19c00…19c80 UnusedSector ┆ @ ┆
0x19c80…19d00 UnusedSector ┆ Q ┆
0x19d00…19d80 UnusedSector 0x00[128]
[…0x2…]
0x19e80…19f00 UnusedSector 0x1a[128]
[…0x1…]
0x19f80…1a000 UnusedSector ┆LE" IFILE: FILE; "CURRENT INPUT FILE" OFILE: FILE; "CURRENT OUTPUT FILE" PARENT: PROCESS_NAME; "PARENT OF PROCESS" PTR: POIN┆
0x1a000…1a080 UnusedSector ┆TER END; "SOME OF THE MOST LIKELY COMPLETION CODES" CONST IO_OK = 0; EOF = #201; ILLEGAL_FILE = #203; FILE_NOT_OPEN = #20B; ┆
0x1a080…1a100 UnusedSector ┆ILLEGAL_STREAM = #207; ILLEGAL_ORGANIZATION = #40B; ILLEGAL_ALLOC_SIZE = #40C; ILLEGAL_AREA_SIZE = #40D; ILLEGAL_RESET = #40E;┆
0x1a100…1a180 UnusedSector ┆ ALLOC_TO_CONTIGUOUS_FILE = #40F; NO_FILE_TO_ACCEPT = #411; FILE_FULL = #41B; ILLEGAL_DIRECTORY = #420; NAME_EXISTS = #421; N┆
0x1a180…1a200 UnusedSector ┆ON_EXISTING_NAME = #422; NOT_ALLOCATABLE = #423; PROTECTION_FAILURE = #41D; ILLEGAL_FUNCTION = #416; DISK_FULL = NOT_ALLOCATAB┆
0x1a200…1a280 UnusedSector ┆LE; UNKNOWN_FILE_SYSTEM = #20D; STREAM_NOT_CONNECTED = #214; NOT_OUTPUT_MODE = #215; NOT_INPUT_MODE = #216; NON_EXISTING_VOLUM┆
0x1a280…1a300 UnusedSector ┆E = #407; ELEMENT_OVERFLOW = #217; SYNTAX_ERROR = #218; CONST NAMELISTMAXINDEX = 10; TYPE NAMELISTTYPE = ARRAY [1..NAMELISTMAX┆
0x1a300…1a380 UnusedSector ┆INDEX] OF PACKED_NAME; FUNCTION IAND(MASK1, MASK2: UNIV INTEGER): INTEGER; FUNCTION IOR(MASK1, MASK2: UNIV INTEGER): INTEGER; ┆
0x1a380…1a400 UnusedSector ┆FUNCTION XOR(MASK1, MASK2: UNIV INTEGER): INTEGER; FUNCTION INV(MASK: UNIV INTEGER): INTEGER; FUNCTION LEFTSHIFT(BITS: UNIV INT┆
0x1a400…1a480 UnusedSector ┆EGER; SHIFTS: INTEGER): INTEGER; FUNCTION RIGHTSHIFT(BITS: UNIV INTEGER; SHIFTS: INTEGER): INTEGER; FUNCTION ADD(A, B: INTEGER)┆
0x1a480…1a500 UnusedSector ┆: INTEGER; "16 BITS UNSIGNED ADD" FUNCTION SUBTRACT(A, B: INTEGER): INTEGER; "16 BITS UNSIGNED SUBTRACT" FUNCTION GETBITS(BITS:┆
0x1a500…1a580 UnusedSector ┆ UNIV INTEGER; LEFTMOST: BITPOSITION; FIELDLENGTH: BITFIELDLENGTH): INTEGER; PROCEDURE PUTBITS(FROM: UNIV INTEGER; VAR TO_: UNI┆
0x1a580…1a600 UnusedSector ┆V INTEGER; LEFTTO: BITPOSITION; FIELDLENGTH: BITFIELDLENGTH); FUNCTION TESTBIT(BITS: UNIV INTEGER; BITNUMBER: BITPOSITION): BOO┆
0x1a600…1a680 UnusedSector ┆LEAN; PROCEDURE SETBIT(VAR BITS: UNIV INTEGER; BITNUMBER: BITPOSITION); PROCEDURE CLEARBIT(VAR BITS: UNIV INTEGER; BITNUMBER: BI┆
0x1a680…1a700 UnusedSector ┆TPOSITION); PROCEDURE SENSE_IO(DEVICE: INTEGER; VAR STATUS: UNIV INTEGER); PROCEDURE READ_IO(DEVICE: INTEGER; VAR DATA: UNIV IN┆
0x1a700…1a780 UnusedSector ┆ENCE ;===================================================================== ; TRN: ; TURN TO TRANSMIT SEQUENCE XMTRI IVR CONT ┆
0x1a780…1a800 UnusedSector ┆ Q 5 J Ln a 0F 7 @ 6 a L| X AV L OT nW c .jW ] dKL _ jK d + _OW @ i ' [ + c 6┆
0x1a800…1a880 UnusedSector ┆ DAT TXT BIN OBJ WRK CAT ! ! a 1 X K. _ ZK. d @lM TV L T lN Z ] lN ZNZ^8 ] _ PARAMETER ERROR _ ERROR IN O┆
0x1a880…1a900 UnusedSector ┆PENING COMMAND FILE lM T_&ERROR IN OPENING PRINTER FILE _<_7ERROR IN COMMANDS _G_BERROR IN OPENING OBJECT FILE _X_OERROR IN OPE┆
0x1a900…1a980 UnusedSector ┆NING SOURCE FILE: Ln T_l_cERROR IN CONTET OF Ln T_z_qOVERLAP BETWEEN OUTPUT PART AND CONTENT OF lM T_ END-OF-FILE ON COMMAND┆
0x1a980…1aa00 UnusedSector ┆ FILE _ _ PRINTER FILE FULL Ln TV L T_ _ OBJECT FILE FULL V L TLn T_ _ END-OF-FILE ON SOURCE FILE: hX X E X hpY iX ┆
0x1aa00…1aa80 UnusedSector ┆X X hY C| P~ X H^ hX TH^K SX H@ H V L H I J K RHfM SX H@ V H {X VC P= wS VC N X {X VX H= wT VN B X |X ┆
0x1aa80…1ab00 UnusedSector ┆pU {X Nb H I OT J K J@K V L RHbM SX H@ V H hY ~Y HZ hH I J K Ln RHZ SX H@ V H a Z~ X a 0~ X V TX vX a T~ X ┆
0x1ab00…1ab80 UnusedSector ┆V LX IWhXOR pV' OT ░V L KZ _K0 dK _KTJ d ]KP _ OS Y J V ;X V L THE START ADDRESS OF ZHZNj Nj [ IS: ┆
0x1ab80…1ac00 UnusedSector ┆ ZjWK# d ]Ln a P~ X a~ X V ░ jV X ~ YL S~ X Ln TX V L OT ]KS _ ] THbjPkJ PhV hU ( NV L ] LOAD ADDRESS, BASE: ┆
0x1ac00…1ac80 UnusedSector ┆ ZjVK# dK _K#jU dK ^ TlM TlN T A 5 d / d ░░┆
0x1ac80…1ad00 UnusedSector ┆ / / 6 OC ┆
0x1ad00…1ad80 UnusedSector ┆ LP ┆
0x1ad80…1ae00 UnusedSector 0x00[128]
[…0x6…]
0x1b100…1b180 UnusedSector ┆ OC l l ┆
0x1b180…1b200 UnusedSector ┆ l ┆
0x1b200…1b280 UnusedSector 0x00[128]
0x1b280…1b300 UnusedSector ┆ OC X ` ┆
0x1b300…1b380 UnusedSector ┆ P X ┆
0x1b380…1b400 UnusedSector 0x00[128]
0x1b400…1b480 UnusedSector ┆ @ Z ┆
0x1b480…1b500 UnusedSector 0x00[128]
[…0x2…]
0x1b600…1b680 UnusedSector 0x1a[128]
0x1b680…1b700 UnusedSector ┆TEGER); PROCEDURE CONTROL_IO(DEVICE: INTEGER; STATUS: UNIV INTEGER); PROCEDURE WRITE_IO(DEVICE: INTEGER; DATA: UNIV INTEGER); P┆
0x1b700…1b780 UnusedSector ┆ROCEDURE RESERVE_INTERRUPT(DEVPR: INTEGER; VAR INTRPT: INTEGER); PROCEDURE RELEASE_INTERRUPT(INTRPT: INTEGER); PROCEDURE CLEAR_I┆
0x1b780…1b800 UnusedSector ┆NTERRUPT(INTRPT: INTEGER); PROCEDURE WAIT_INTERRUPT(DELAY: INTEGER; INTRPT: INTEGER; VAR TIMED_OUT: BOOLEAN); PROCEDURE SET_INT┆
0x1b800…1b880 UnusedSector ┆ERRUPT(INTRPT: INTEGER); PROCEDURE SET_CYCLE(CYCLE: INTEGER); PROCEDURE SEND_MESSAGE(VAR RECEIVER: PROCESS_NAME; MSG: UNIV MES┆
0x1b880…1b900 UnusedSector ┆SAGE_BUFFER; VAR EVENT: INTEGER); PROCEDURE SEND_SYSTEM_MESSAGE(VAR RECEIVER: PROCESS_NAME; MSG: UNIV MESSAGE_BUFFER; VAR EVE┆
0x1b900…1b980 UnusedSector ┆NT: INTEGER); PROCEDURE SEND_ANSWER(ANS: UNIV MESSAGE_BUFFER; EVENT: INTEGER); PROCEDURE SEND_SYSTEM_ANSWER(ANS: UNIV MESSAGE_BU┆
0x1b980…1ba00 UnusedSector ┆FFER; EVENT: INTEGER); PROCEDURE SEND_SIGNAL(VAR RECEIVER: PROCESS_NAME); PROCEDURE IDENTIFY_SENDER(EVENT: INTEGER; VAR PROC: I┆
0x1ba00…1ba80 UnusedSector ┆NTEGER); PROCEDURE GET_PROC_NAME(VAR PROC_NAME: PROCESS_NAME); PROCEDURE GET_PROC_IDENT(VAR PROC_NAME: PROCESS_NAME; VAR FOUND┆
0x1ba80…1bb00 UnusedSector ┆: BOOLEAN); PROCEDURE WAIT_MESSAGE(DELAY: INTEGER; VAR MSG: UNIV MESSAGE_BUFFER; VAR EVENT: INTEGER; VAR EVTTYPE: EVENT_TYPE);┆
0x1bb00…1bb80 UnusedSector ┆ PROCEDURE WAIT_SYSTEM_MESSAGE(DELAY: INTEGER; VAR MSG: UNIV MESSAGE_BUFFER; VAR EVENT: INTEGER; VAR EVTTYPE: EVENT_TYPE); PR┆
0x1bb80…1bc00 UnusedSector ┆OCEDURE WAIT_ANSWER(DELAY: INTEGER; EVENT: INTEGER; VAR ANS: UNIV MESSAGE_BUFFER; VAR EVTTYPE: EVENT_TYPE); PROCEDURE WAIT_SYS┆
0x1bc00…1bc80 UnusedSector ┆TEM_ANSWER(DELAY: INTEGER; EVENT: INTEGER; VAR ANS: UNIV MESSAGE_BUFFER; VAR EVTTYPE: EVENT_TYPE); PROCEDURE WAIT_EVENT(DELAY:┆
0x1bc80…1bd00 UnusedSector ┆ INTEGER; EVTMSK: EVENT_MASK; VAR MSG: UNIV MESSAGE_BUFFER; VAR EVENT: INTEGER; VAR EVTTYPE: EVENT_TYPE); PROCEDURE SAVE_EVEN┆
0x1bd00…1bd80 UnusedSector ┆T(EVENT: INTEGER); PROCEDURE RESTORE_EVENTS(EVTTYPE: EVENT_TYPE); PROCEDURE TERMINATE(COMPLETION_CODE: INTEGER); PROCEDURE REA┆
0x1bd80…1be00 UnusedSector ┆D_TIME(VAR TIME: DATE_TIME_GROUP); PROCEDURE START_PROCESS(PROC: INTEGER; VAR ILLEGAL: BOOLEAN); PROCEDURE STOP_PROCESS(PROC: I┆
0x1be00…1be80 UnusedSector ┆NTEGER; VAR ILLEGAL: BOOLEAN); PROCEDURE PROCESS_STATUS(PROC: INTEGER; VAR ILLEGAL: BOOLEAN; VAR PROC_ATTR: PROCESS_ATTRIBUTES)┆
0x1be80…1bf00 UnusedSector ┆; PROCEDURE REMOVE_PROCESS(PROC: INTEGER; VAR ILLEGAL: BOOLEAN); PROCEDURE GET_NEXT_PROCESS(VAR PROC: INTEGER; VAR NONE: BOOLEAN┆
0x1bf00…1bf80 UnusedSector ┆); PROCEDURE ADOPT_PROCESS(PROC: INTEGER; VAR NONE: BOOLEAN); PROCEDURE CREATE_PROCESS(VAR CB: CREATION_BLOCK; VAR RESULT: INTEG┆
0x1bf80…1c000 UnusedSector ┆ER); PROCEDURE GET_CPU_PARAMETER(CPU: INTEGER; PAR: CPUPARAMETER; PRIORITY: INTEGER; VAR VAL: INTEGER; VAR OK: BOOLEAN); PROCE┆
0x1c000…1c080 UnusedSector ┆DURE SET_CPU_PARAMETER(CPU: INTEGER; PAR: CPUPARAMETER; PRIORITY: INTEGER; VAL: INTEGER; VAR OK: BOOLEAN); PROCEDURE LOOKUP_CP┆
0x1c080…1c100 UnusedSector ┆U(VAR CPU_NAME: PROCESS_NAME; VAR FOUND: BOOLEAN); PROCEDURE GET_BUFFER(WORD_CLAIM: INTEGER; VAR MEMORY: MEMORY_PARM; VAR ADD┆
0x1c100…1c180 UnusedSector ┆R: WORD_ADDRESS; VAR WORDS_ALLOCATED: INTEGER; VAR OK: BOOLEAN); PROCEDURE GET_BUFFER_ADDR(MEMORY: MEMORY_PARM; VAR ADDR: WOR┆
0x1c180…1c200 UnusedSector ┆D_ADDRESS; VAR SIZE_IN_WORDS: INTEGER; VAR OK: BOOLEAN); PROCEDURE RELEASE_BUFFER(MEMORY: MEMORY_PARM; VAR OK: BOOLEAN); PROC┆
0x1c200…1c280 UnusedSector ┆EDURE CREATE(FSN: FILE_SYSTEM_NAME; ATTRIBUTES: FILE_ATTRIBUTES; VAR F: FILE; VAR CC: COMPLETION_CODE); PROCEDURE DISMANTLE(F┆
0x1c280…1c300 UnusedSector ┆: FILE; VAR CC: COMPLETION_CODE); PROCEDURE PROTECT(F: FILE; ACCESS: ACCESS_DESCRIPTION; VAR CC: COMPLETION_CODE); PROCEDURE R┆
0x1c300…1c380 UnusedSector ┆ESET(F: FILE; VAR CC: COMPLETION_CODE); PROCEDURE OFFER(F: FILE; USER: USERID; VAR CC: COMPLETION_CODE); PROCEDURE ACCEPT(FSN: F┆
0x1c380…1c400 UnusedSector ┆ILE_SYSTEM_NAME; VAR F: FILE; VAR CC: COMPLETION_CODE); PROCEDURE GET_FILE_INFORMATION(F: FILE; VAR INF: FILE_INFORMATION; V┆
0x1c400…1c480 UnusedSector ┆AR CC: COMPLETION_CODE); PROCEDURE ASSIGN(FSN: FILE_SYSTEM_NAME; DESCRIPTION: DEVICE_DESCRIPTION; VAR CC: COMPLETION_CODE); PR┆
0x1c480…1c500 UnusedSector ┆OCEDURE DEASSIGN(FSN: FILE_SYSTEM_NAME; DEVICE: DEVICE_NAME; VAR CC: COMPLETION_CODE); PROCEDURE MOUNT(FSN: FILE_SYSTEM_NAME; ┆
0x1c500…1c580 UnusedSector ┆ DEVICE: DEVICE_NAME; VOLUME: VOLUME_NAME; VAR CC: COMPLETION_CODE); PROCEDURE DISMOUNT(FSN: FILE_SYSTEM_NAME; VOLUME: VOLUME┆
0x1c580…1c600 UnusedSector ┆_NAME; VAR CC: COMPLETION_CODE); PROCEDURE FORMAT(FSN: FILE_SYSTEM_NAME; DEVICE: DEVICE_NAME; VAR SECTORADDR: SECTOR_ADDRESS;┆
0x1c600…1c680 UnusedSector ┆ BLE_POINTER: BLEPTR; VAR CC: COMPLETION_CODE); PROCEDURE GET_ROOT(FSN: FILE_SYSTEM_NAME; VOLUME: VOLUME_NAME; VAR ROOT_DIRE┆
0x1c680…1c700 UnusedSector ┆CTORY: FILE; VAR CC: COMPLETION_CODE); PROCEDURE USER_ON(FSN: FILE_SYSTEM_NAME; USER: USERID; VAR CC: COMPLETION_CODE); PROCE┆
0x1c700…1c780 UnusedSector ┆DURE USER_OFF(FSN: FILE_SYSTEM_NAME; USER: USERID; VAR CC: COMPLETION_CODE); PROCEDURE ENTER(DIRECTORY: FILE; SUBJECT: FILE; ┆
0x1c780…1c800 UnusedSector ┆ NAME: FILE_NAME; VAR CC: COMPLETION_CODE); PROCEDURE LOOKUP(DIRECTORY: FILE; NAME: FILE_NAME; VAR F: FILE; VAR CC: COMPLETI┆
0x1c800…1c880 UnusedSector ┆ON_CODE); PROCEDURE DESCENT(VAR F:FILE; NAME: FILE_NAME; VAR CC: COMPLETION_CODE); PROCEDURE FIND_FILE(FROM_ADAM: BOOLEAN; FS┆
0x1c880…1c900 UnusedSector ┆N: FILE_SYSTEM_NAME; VOLUME: VOLUME_NAME; NAMELIST: NAMELISTTYPE; NAME_NO: INTEGER; DIRECTORY: FILE; VAR F: FILE; VAR CC: ┆
0x1c900…1c980 UnusedSector ┆COMPLETION_CODE); PROCEDURE RENAME(DIRECTORY: FILE; OLDNAME: FILE_NAME; NEWNAME: FILE_NAME; VAR CC: COMPLETION_CODE); PROCEDU┆
0x1c980…1ca00 UnusedSector ┆RE REMOVE(DIRECTORY: FILE; NAME: FILE_NAME; VAR CC: COMPLETION_CODE); PROCEDURE READ_SECTORS(FSN: FILE_SYSTEM_NAME; DEVICE: D┆
0x1ca00…1ca80 UnusedSector ┆EVICE_NAME; VAR SECTORADDR: SECTOR_ADDRESS; BLE_POINTER: BLEPTR; VAR CC: COMPLETION_CODE); PROCEDURE WRITE_SECTORS(FSN: FILE_┆
0x1ca80…1cb00 UnusedSector ┆SYSTEM_NAME; DEVICE: DEVICE_NAME; VAR SECTORADDR: SECTOR_ADDRESS; BLE_POINTER: BLEPTR; VAR CC: COMPLETION_CODE); PROCEDURE W┆
0x1cb00…1cb80 UnusedSector ┆RITE_AND_PROTECT(FSN: FILE_SYSTEM_NAME; DEVICE: DEVICE_NAME; VAR SECTORADDR: SECTOR_ADDRESS; BLE_POINTER: BLEPTR; VAR CC: CO┆
0x1cb80…1cc00 UnusedSector ┆MPLETION_CODE); PROCEDURE WRITE_AND_MARK(FSN: FILE_SYSTEM_NAME; DEVICE: DEVICE_NAME; VAR SECTORADDR: SECTOR_ADDRESS; BLE_POIN┆
0x1cc00…1cc80 UnusedSector ┆TER: BLEPTR; VAR CC: COMPLETION_CODE); PROCEDURE READ_BYTES(F: FILE; VAR FILE_ADDR: FILE_ADDRESS; BLE_POINTER: BLEPTR; VAR C┆
0x1cc80…1cd00 UnusedSector ┆C: COMPLETION_CODE); PROCEDURE MODIFY_BYTES(F: FILE; VAR FILE_ADDR: FILE_ADDRESS; BLE_POINTER: BLEPTR; VAR CC: COMPLETION_COD┆
0x1cd00…1cd80 UnusedSector ┆E); PROCEDURE APPEND_BYTES(F: FILE; VAR FILE_ADDR: FILE_ADDRESS; BLE_POINTER: BLEPTR; VAR CC: COMPLETION_CODE); PROCEDURE INI┆
0x1cd80…1ce00 UnusedSector ┆T_READ_BYTES(F: FILE; VAR FILE_ADDR: FILE_ADDRESS; BLE_POINTER: BLEPTR; VAR OPREF: OPERATION_REFERENCE; VAR CC: COMPLETION_C┆
0x1ce00…1ce80 UnusedSector ┆ODE); PROCEDURE INIT_MODIFY_BYTES(F: FILE; VAR FILE_ADDR: FILE_ADDRESS; BLE_POINTER: BLEPTR; VAR OPREF: OPERATION_REFERENCE; ┆
0x1ce80…1cf00 UnusedSector ┆ VAR CC: COMPLETION_CODE); PROCEDURE INIT_APPEND_BYTES(F: FILE; VAR FILE_ADDR: FILE_ADDRESS; BLE_POINTER: BLEPTR; VAR OPREF: ┆
0x1cf00…1cf80 UnusedSector ┆OPERATION_REFERENCE; VAR CC: COMPLETION_CODE); PROCEDURE WAIT_OPERATION(OPREF: OPERATION_REFERENCE; VAR CC: COMPLETION_CODE); ┆
0x1cf80…1d000 UnusedSector ┆PROCEDURE TEST_OPERATION(OPREF: OPERATION_REFERENCE; VAR FINISHED: BOOLEAN; VAR CC: COMPLETION_CODE); PROCEDURE CANCEL_OPERATI┆
0x1d000…1d080 UnusedSector ┆ON(OPREF: OPERATION_REFERENCE; VAR CC: COMPLETION_CODE); PROCEDURE CONNECT(F: FILE; M: MODE; VAR S: STREAM; VAR CC: COMPLET┆
0x1d080…1d100 UnusedSector ┆ION_CODE); PROCEDURE DISCONNECT(S: STREAM; VAR F: FILE; VAR CC: COMPLETION_CODE); PROCEDURE GET_POSITION(S: STREAM; VAR POSIT┆
0x1d100…1d180 UnusedSector ┆ION: STREAM_POSITION; VAR CC: COMPLETION_CODE); PROCEDURE SET_POSITION(S: STREAM; POSITION: STREAM_POSITION; VAR CC: COMPLETI┆
0x1d180…1d200 UnusedSector ┆ON_CODE); PROCEDURE INBYTE(S: STREAM; VAR B: UNIV BYTE; VAR CC: COMPLETION_CODE); PROCEDURE INWORD(S: STREAM; VAR WORD: UNIV IN┆
0x1d200…1d280 UnusedSector ┆TEGER; VAR CC: COMPLETION_CODE); PROCEDURE BACKSPACE(S: STREAM; VAR CC: COMPLETION_CODE); PROCEDURE INREC(S: STREAM; VAR FIRST┆
0x1d280…1d300 UnusedSector ┆_ELEMENT: UNIV ELEMENT; VAR RECORD_LENGTH_IN_BYTES: INTEGER; VAR CC: COMPLETION_CODE); PROCEDURE OUTBYTE(S: STREAM; B: UNIV BY┆
0x1d300…1d380 UnusedSector ┆TE; VAR CC: COMPLETION_CODE); PROCEDURE OUTWORD(S: STREAM; WORD: UNIV INTEGER; VAR CC: COMPLETION_CODE); PROCEDURE OUTREC(S: S┆
0x1d380…1d400 UnusedSector ┆TREAM; FIRST_ELEMENT: UNIV ELEMENT; VAR RECORD_LENGTH_IN_BYTES: INTEGER; VAR CC: COMPLETION_CODE); PROCEDURE FLUSH(S: STREAM;┆
0x1d400…1d480 UnusedSector ┆ VAR CC: COMPLETION_CODE); PROCEDURE INTYPE(S: STREAM; VAR CH: CHAR; VAR CH_TYPE: CHAR_TYPE; VAR CC: COMPLETION_CODE); PROCED┆
0x1d480…1d500 UnusedSector ┆URE INELEMENT(S: STREAM; VAR ELEM: ELEM_REC; VAR CC: COMPLETION_CODE); PROCEDURE ININTEGER(S: STREAM; VAR INT: INTEGER; VAR ┆
0x1d500…1d580 UnusedSector ┆CC: COMPLETION_CODE); PROCEDURE INLONG_INTEGER(S: STREAM; VAR LINT: LONG_INTEGER; VAR CC: COMPLETION_CODE); PROCEDURE INNAME(S┆
0x1d580…1d600 UnusedSector ┆: STREAM; VAR N: PACKED_NAME; VAR CC: COMPLETION_CODE); PROCEDURE INFILEID(S: STREAM; VAR FROM_ADAM: BOOLEAN; VAR FSN: FILE_┆
0x1d600…1d680 UnusedSector ┆SYSTEM_NAME; VAR VOLUME: VOLUME_NAME; VAR NAMELIST: NAMELISTTYPE; VAR NAME_NO: INTEGER; VAR CC: COMPLETION_CODE); PROCEDURE ┆
0x1d680…1d700 UnusedSector ┆OUTTEXT(S: STREAM; UNPACKED_TEXT: TEXT; VAR CC: COMPLETION_CODE); PROCEDURE OUTSTRING(S: STREAM; UNPACKED_TEXT: TEXT; NO_OF_┆
0x1d700…1d780 UnusedSector ┆CHARS: INTEGER; VAR CC: COMPLETION_CODE); PROCEDURE OUTHEXA(S: STREAM; INT: UNIV INTEGER; COMMAND_CHAR: CHAR; VAR CC: COMPLE┆
0x1d780…1d800 UnusedSector ┆TION_CODE); PROCEDURE OUTINTEGER(S: STREAM; INT: UNIV INTEGER; OUTPUT_MODE: UNIV INTEGER; VAR CC: COMPLETION_CODE); PROCEDURE┆
0x1d800…1d880 UnusedSector ┆ OUTLONG_INTEGER(S: STREAM; LINT: UNIV LONG_INTEGER; OUTPUT_MODE: UNIV INTEGER; VAR CC: COMPLETION_CODE); PROCEDURE OUTNL(S: ┆
0x1d880…1d900 UnusedSector ┆STREAM; VAR CC: COMPLETION_CODE); PROCEDURE MARK(VAR TOP: INTEGER); PROCEDURE RELEASE(TOP: INTEGER); FUNCTION FREE_SPACE: INTEG┆
0x1d900…1d980 UnusedSector ┆ER; "WORDS BETWEEN STACK- AND HEAPTOP" FUNCTION CONTENTS(BASE_REL_ADDR: LONG_INTEGER): INTEGER; PROCEDURE EXIT; PROCEDURE CURREN┆
0x1d980…1da00 UnusedSector ┆T_LEVEL(VAR LEVEL: INTEGER); PROCEDURE LONG_EXIT(LEVEL: INTEGER); FUNCTION CURRENT_LINE: INTEGER; FUNCTION REL_ADDR(FIRST_ELEMEN┆
0x1da00…1da80 UnusedSector ┆T: UNIV ELEMENT): INTEGER; PROCEDURE GET_ABS_ADDR(FIRST_ELEMENT: UNIV ELEMENT; VAR WORD_ADDR: WORD_ADDRESS); PROCEDURE COPY(SOU┆
0x1da80…1db00 UnusedSector ┆RCE, DEST: BYTE_ADDRESS; NO_OF_BYTES: INTEGER); PROCEDURE PACK(FIRST_ELEMENT_OF_UNPACKED: UNIV ELEMENT; VAR FIRST_ELEMENT_OF_PA┆
0x1db00…1db80 UnusedSector ┆CKED: UNIV ELEMENT; NO_OF_BYTES: INTEGER); PROCEDURE UNPACK(FIRST_ELEMENT_OF_PACKED: UNIV ELEMENT; VAR FIRST_ELEMENT_OF_UNPACK┆
0x1db80…1dc00 UnusedSector ┆ED: UNIV ELEMENT; NO_OF_BYTES: INTEGER); PROCEDURE PACK_SWAPPED(FIRST_ELEMENT_OF_UNPACKED: UNIV ELEMENT; VAR FIRST_ELEMENT_OF_┆
0x1dc00…1dc80 UnusedSector ┆PACKED: UNIV ELEMENT; NO_OF_BYTES: INTEGER); PROCEDURE UNPACK_SWAPPED(FIRST_ELEMENT_OF_PACKED: UNIV ELEMENT; VAR FIRST_ELEMENT┆
0x1dc80…1dd00 UnusedSector ┆_OF_UNPACKED: UNIV ELEMENT; NO_OF_BYTES: INTEGER); PROCEDURE RUN(F: FILE; VAR PARAM: PARAMTYPE; VAR LINE: INTEGER; VAR RESULT:┆
0x1dd00…1dd80 UnusedSector ┆ PROGRESULT); FUNCTION CREATE_LONG(LEAST, MOST: INTEGER): LONG_INTEGER; PROCEDURE SPLIT_LONG(L: LONG_INTEGER; VAR LEAST, MOST: I┆
0x1dd80…1de00 UnusedSector ┆NTEGER); PROCEDURE ASSIGNBITS(VALUE: UNIV BITVALUE; VAR P: UNIV PAGE; FIRSTBIT, NO_OF_BITS: INTEGER); PROCEDURE SKIPBITS(VALUE:┆
0x1de00…1de80 UnusedSector ┆ UNIV BITVALUE; P: UNIV PAGE; VAR FIRSTBIT: INTEGER; NO_OF_BITS: INTEGER; VAR BITSSKIPPED: INTEGER); PROCEDURE SET_TRACE(S: ST┆
0x1de80…1df00 UnusedSector ┆REAM; MASK: INTEGER); PROCEDURE PRINT_TRACE(ON: BOOLEAN); PROGRAM MAIN(VAR PARAM: PARAMTYPE); ER); PROCEDURE SKIPBITS(VALUE:┆
0x1df00…1df80 UnusedSector ┆RINT_TRACE(ON: BOOLEAN); PROGRAM MAIN(VAR PARAM: PARAMTYPE); VALUE: UNIV BITVALUE; P: UNIV PAGE; VAR FIRSTBIT: INTEGER; NO_O┆
0x1df80…1e000 UnusedSector ┆ y i hw W y y #1░ $ , " ░ $ , $ g{ y #1░ + $ , " ░ $ , $ g{ y ! f y┆
0x1e000…1e080 UnusedSector ┆ ! fR y " ░ $ f) y $- f y " ░ $ f y #/░ $ , " ░ $ , $ g{ y ! f y " ░ $ f y┆
0x1e080…1e100 UnusedSector ┆ ! fB ! f> y ! f8 y !0 f2 y y #-░ y y " ░ % ░ ' 1 % ░ ' % ░ + ' ? y % ░ % ░ P cI y y % ░ " ░ f┆
0x1e100…1e180 UnusedSector ┆ y " ░ $ 1 $ y % ░ % ░ P c$ y y " ░ % ░ , $ , ' $ = O c y y " ░ $ 1 $ y % ░ % ░ P cD ┆
0x1e180…1e200 UnusedSector ┆ y y " ░ " ░ % ░ , % ░ , ' $ F 1 y % ░ f y " ░ " ░ % ░ , % ░ , ' $ H 1 y % ░ y f " ░┆
0x1e200…1e280 UnusedSector ┆ z b ░ y x y " ░ " ░ % ░ , $ , ' $ @ H $ F 1 y % ░ $ L c !W y f' b y y y $. fy y # ┆
0x1e280…1e300 UnusedSector ┆ % ░ , $ y f y y " ░ " ░ % ░ , $ , ' $ ? y " ░ % ░ , $ , ' D 1 y % ░ $ fl y┆
0x1e300…1e380 UnusedSector ┆ " ░ % ░ , $ , ' $ fW y " ░ % ░ , $ , ' $ y f@ y y y " ░ z b y x " ░ z b y┆
0x1e380…1e400 UnusedSector ┆ n,CONVSS ! m+ ( ,z ┆
0x1e400…1e480 UnusedSector 0x00[128]
[…0x2…]
0x1e580…1e600 UnusedSector ┆ B b * h [ y\ " a #>░ % $ F , ' % $ H / y] g 1 i h i yj "░░ $ = 1 yk yk yl "░░ %░░ ┆
0x1e600…1e680 UnusedSector ┆ 1 ym % %░░ 1 yn yn a %░░ f ░ %░░ % ' A % $ A K 9 %░░ $ K yo 9 c "░░ %░░ yp 1 b ░ yp a %░░ f ░ %░░ $ N┆
0x1e680…1e700 UnusedSector ┆ ; c ░ yq % a %░░ fw░ %░░ % ' A % $ A L 9 1 yr % ' c; "░░ % ' 1 % ' % ? $ A yr %░░ % ░ P c ys #>░ %░░┆
0x1e700…1e780 UnusedSector ┆ $ F , %░░ $ H / yt g "░░ z b ░ yt x yt i h# y "░░ % $ F 1 y " ░ % $ H $ ? 1 y " ░ %┆
0x1e780…1e800 UnusedSector ┆░░ 1 y " ░ $ % ░ $ %░░ D ? $ A $ H $ ? D $ H 1 y " ░ $ % ░ D % ░ $ ? $ H $ D ? % ░ $ A $ F ? 1 y %┆
0x1e800…1e880 UnusedSector ┆ % ░ $ F 2 y % % ░ $ H 1 y i h y % $ L c & $ # y g_ b y & % # g_ y y & $┆
0x1e880…1e900 UnusedSector ┆ O c & y g& y i h y & % $ % D $ ? # gl y & $ O c & y g& y i h y & %┆
0x1e900…1e980 UnusedSector ┆ $# / # gk y & $ O c & y g& y i h y & % % # gj y & $ O c & y g& y i h┆
0x1e980…1ea00 UnusedSector ┆ y & % # gi y & $ L c & # gb y y & $ O c & y g& y i h y #=░ &<░ 1 y !┆
0x1ea00…1ea80 UnusedSector ┆ f ░ y % f ░ y ! f ░ y y & 8 c " ░ "░░ f- b ░ y y y f i h y y y % % y f % ' y┆
0x1ea80…1eb00 UnusedSector ┆ $ O c ░ i h y "░░ & 1 y ! fg░ y % fa░ y !! f[░ y %░░ f ░ y !: fO░ y " ░ " ░ f ░ y % ░ $ L┆
0x1eb00…1eb80 UnusedSector ┆ c " ░ " ░ f ░ y y % ░ $Y L c gs y y & &=░ $ L 9 c y y # $ 1 y y y f*' y b y &=░ y $ ┆
0x1eb80…1ec00 UnusedSector ┆ L c !G f+░ y y y %░░ y g& i h y !o f y % y f ░ i h y ! y fS░ i h y░ ! y┆
0x1ec00…1ec80 UnusedSector ┆ fE░ i h y ! y f7░ i h y & $# L c y ! y f b3 y y & $ L c y ! y f b y┆
0x1ec80…1ed00 UnusedSector ┆ y & $ L c ! y f ░ b y y f ░ y y y i h y # % 1 y & $ L c ! y f[░ b y y ┆
0x1ed00…1ed80 UnusedSector ┆ fu░ y i h " y# % ' c+ y$ y% % % # g_ y& & $ O c y' y( % $ 1 y) y* f^░ y+ y+ y, y, i h ┆
0x1ed80…1ee00 UnusedSector ┆ 0 y1 & # g] y2 & $ O c y3 f ░ y3 i h 8 y9 % $ 1 y: & % # ge y; & $ O c& y< & $ ┆
0x1ee00…1ee80 UnusedSector ┆ L c y= y> f ░ y? ! y@ f yA b yA yB f yB b) yB yC % ' % K % ' % M ; c yD !░ yE f b yE % ┆
0x1ee80…1ef00 UnusedSector ┆ yF $ 1 yF yF i h J yK & % % # gc yL & $ O c yM f b. yM yN % ' $ L c yO yP # $ 1 y┆
0x1ef00…1ef80 UnusedSector ┆Q % yR $ 1 yS b yS # yT $ 1 yT yT i h Y yZ "░░ % y[ f ░ i h b yc & % # gd yd & $ O┆
0x1ef80…1f000 UnusedSector ┆ c ye f# b ye % yf % ░ ' $ L c % ░ $ 1 yf x yf yg i h n yo % "░░ # gX yp & $ L c %░░ # ┆
0x1f000…1f080 UnusedSector ┆ g6 yp yq & $ O c yr f yr i h' y % $ 1 y " ░ "░░ f y %░░ $ O c y y % $ 1 y ! y ┆
0x1f080…1f100 UnusedSector ┆ f y b y y y " ░ $ 1 $ y % ░ % ░ P c % % ░ , $ 1 " ░ z b ░ y x y " ░ $ 1 y " ░ $ 1 y ┆
0x1f100…1f180 UnusedSector ┆ y y % ░ % % ░ , % ░ / $ / g y % ░ $ L c " ░ y $ 1 b! y y % ░ $ K c y y " ░ % ░ ┆
0x1f180…1f200 UnusedSector ┆ 1 y " ░ y $ 1 y y y "░░ " ░ y fs %░░ $ L %░░ $ L y ; % ░ $. L ; % ░ $_ L ; c ░ y %░░ $ L c y y ┆
0x1f200…1f280 UnusedSector ┆ % $ , $ 1 y y f y b( y y % ░ $. O c y y % $ 1 y !; y f y b y y y "░░ " ░ f┆
0x1f280…1f300 UnusedSector ┆ y %░░ $ L c y y " ░ $ 1 y y y " ░ % ░ , % ░ 1 y " ░ % ░ $ ? 1 y "░░ " ░ y f %░░ $ O % ░ $┆
0x1f300…1f380 UnusedSector ┆ L ; c ░ y %░░ $ O % ░ $ O ; c y y f% y % $ 1 y !R y fI y bf y y y % $ 1 y " ░ $ 1 $┆
0x1f380…1f400 UnusedSector ┆ y % ░ % ░ P c3 y " ░ # % ░ , \ c y y % $ , % ░ $ D 1 y % y $ 1 y " ░ z b ░ y x ┆
0x1f400…1f480 UnusedSector ┆ y % ' 8 c !g y f y y y y b y y y f y % $ , % $ $░ y f y y y y y y ┆
0x1f480…1f500 UnusedSector ┆ y i h, y y "░░ " ░ f y fi y % $ 1 y " ░ y y " ░ fB y % ░ + ' $ O % ░ + ' $ M ; % ░ ' $┆
0x1f500…1f580 UnusedSector ┆- O ; c y !y y fe b y y y " ░ $ 1 $ y % ░ % ░ P c % % ░ , % ░ . + % ░ , ' 1 " ░ z b┆
0x1f580…1f600 UnusedSector ┆ ░ y x y "░░ f y " ░ f y % ░ + ' $ O % ░ ' $ O ; % ░ + ' $ M ; c y ! y f bD y y y " ░ $┆
0x1f600…1f680 UnusedSector ┆ 1 $ y % ░ % ░ P c % + % ░ , % ░ . + % ░ , ' 1 " ░ z b ░ y x y % y $ 1 y y y y ┆
0x1f680…1f700 UnusedSector ┆ y x i h, y "░░ " ░ f y fi y % $ 1 y " ░ y y " ░ fB y % ░ + ' $ O % ░ + ' $ M ; % ░ ' $┆
0x1f700…1f780 UnusedSector ┆ O ; c y ! y fe bB y y░ y " ░ $ 1 $ y % ░ % ░ P c % % ░ , % ░ . + % ░ , ' 1 " ░ z b┆
0x1f780…1f800 UnusedSector ┆ ░ y x y % y $ 1 y y y x i h! y % " ░ % f y # y y % ░ " ░ ) 2 y % ░ + y ! ) 2┆
0x1f800…1f880 UnusedSector ┆ x y & - . + a % $ , @ $ , ? gw 1 y #5░ #3░ # & # gJ y & $ O cI y &;░ $ L & $┆
0x1f880…1f900 UnusedSector ┆ L y & $ L ; 9 c* y y & $ L c y ! y f b y ! f y y & y gu y b y y! f y! y! ┆
0x1f900…1f980 UnusedSector ┆ i h , y- % " ░ "░ fH░ y. " $ 1 $? y. % % P c % % , ? " ░ %░ , @ % , ? y/ ' 1 " z b┆
0x1f980…1fa00 UnusedSector ┆ ░ y/ x i h! 8 y9 % " ░ "░ f ░ y: " $ 1 $? y: % % P c " ░ %░ , @ % , ? % % , ? ' 1 "┆
0x1fa00…1fa80 UnusedSector ┆ z b ░ y: x y; #5░ #3░ # & # gK y< & $ O c y= f y= i h J yK % yL yM "░░ % ░ + % % ░ + '┆
0x1fa80…1fb00 UnusedSector ┆ F , ' 1 yN %░░ % % ░ + ' H ? % f*░ yO % % ░ + ' L c % % ░ + ' yP $ D 1 b yP % yQ $ 1 yQ yR ┆
0x1fb00…1fb80 UnusedSector ┆ x i h Z y[ % $ 1 y\ % y] y^ "░░ % % ░ + ' F 1 y_ %░░ $ M c y` ya % $ 1 yb ! yc f6 yd bg ┆
0x1fb80…1fc00 UnusedSector ┆ yd ye yf " ░ % ░ + %░░ , ' 1 yg % ░ $ K c! yh yi % ░ + ' " ░ % f yj % ░ + %░░ , yk % ░ 1 yk y┆
0x1fc00…1fc80 UnusedSector ┆l % ' 8 c ! ym f b ym % ░ % % ░ + ' H ? % yn f yn yo yo yp x i h y yz " $ % $ F D % ┆
0x1fc80…1fd00 UnusedSector ┆ $ H ? y{ $ A 1 i h y " $ % $ F D % $ H ? y $ ? 1 i hH ) y y #=░ $ 1 y # $ 1 y ┆
0x1fd00…1fd80 UnusedSector ┆ # $ 1 y y y # ░ $ , $ , y y % ░ $ 1 y % ░ + y $ 1 x y "░░ $ 1 $ y %░░ % ░ P c┆
0x1fd80…1fe00 UnusedSector ┆* # ░ %░░ , $ , y y % ░ $ 1 y % ░ + y $ 1 x "░░ z b ░ y x y # ░ $ , $ , y ┆
0x1fe00…1fe80 UnusedSector ┆ y % ░ $ 1 y % ░ + y $ 1 x y "░░ $ 1 $ y %░░ % ░ P c* # ░ %░░ , $ , y y % ░ $ 1 y %┆
0x1fe80…1ff00 UnusedSector ┆ ░ + y $ 1 x "░░ z b ░ y x y # ░ $ , $ , y y % ░ $ 1 y % ░ + y $ 1 x y # ░ $ ,┆
0x1ff00…1ff80 UnusedSector ┆ $ , y y % ░ $ 1 y % ░ + y $ 1 x y # ░ $ , $ , y y % ░ $ 1 y % ░ + y ┆
0x1ff80…20000 UnusedSector ┆ $ 1 x y " ░ $ 1 y "░░ $ 1 $ y %░░ % ░ P c2 # ░ %░░ , $ , y y % ░ % ░ 1 y " ░ % ░ 1 y %┆
0x20000…20080 UnusedSector ┆ ░ + y $ 1 x "░░ z b ░ y x y # ░ $ , $ , $ 1 y # ░ $ , $ , + $ 1 y # ░ $┆
0x20080…20100 UnusedSector ┆ , $ , $ 1 y y y # 7L y & - y y % ░ + $ 1 y % ░ $ 1 y % ░ . + y $ 1 x ┆
0x20100…20180 UnusedSector ┆ y y y # $ , ! 5 y # $ , !' 5 y # $ , !. 5 y # $ , !5 5 y # ┆
0x20180…20200 UnusedSector ┆ IS FULL(:0:)') END ELSE BEGIN IF AREAS[AREA_NUMB] = UNUSED THEN ALLOCATE(A_SIZE, AREAS[AREA_NUMB], SUCCESS); IF NOT SUCCE┆
0x20200…20280 UnusedSector ┆SS THEN ERROR('DISKETTE IS FULL(:0:)') ELSE WRITE_SECTOR(AREAS[AREA_NUMB] + REL_S_NUMB MOD A_SIZE, SECTR) END END END; "OF P┆
0x20280…20300 UnusedSector ┆UT_SECTOR" END ELSE BEGIN IF AREAS[AREA_NUMB] = UNUSED THEN ALLOCATE(A_SIZE, AREAS[AREA_NUMB], SUCCESS); IF NOT SUCCE┆
0x20300…20380 UnusedSector ┆ END END END; "OF PUT_SECTOR" THEN BEGIN ALLOCATE(A_SIZE, AREA_START_ADDR, SUCCESS); AREAS[AREA_NUMB] := AREA_START_AD┆
0x20380…20400 UnusedSector ┆ ░ y y " ░ ! 5 y " ░ $ , % ░ $ , $ gz y " ░ !! 5 y " ░ $ , % ░ + $ , $ y┆
0x20400…20480 UnusedSector ┆ gz x y " ░ $ , $ = 1 " ░ $ , $ 1 y % ░ " ░ # gB y & $ O c !' f y y " ░ y y %┆
0x20480…20500 UnusedSector ┆ ░ $ 1 y % ░ + $ 1 y % ░ + $ 1 y % ░ + $ 1 y " ░ !6 5 y " ░ $ , % ░ + $ , $ y g┆
0x20500…20580 UnusedSector ┆z x y % ░ " ░ # g< y & $ O c & g& y y " ░ y y % ░ $ 1 y % ░ + $ 1 y % ░ + $ 1 y % ░ +┆
0x20580…20600 UnusedSector ┆ $ 1 y " ░ !< 5 y " ░ $ , % ░ + $ , $ y gz x y % ░ " ░ # g< y & $ O c & g& y┆
0x20600…20680 UnusedSector ┆ y % ░ + !B 5 y % ░ " ░ + % ░ + # g> y & $ O c !J f y y % ░ % ░ + % ░ + # gA y & $ ┆
0x20680…20700 UnusedSector ┆AMES" H, CH_TYPE); IF CH = NL THEN SKIP_BLANKS(CH, CH_TYPE); IF (CH = 'Y') OR (CH = 'N') THEN OK := TRUE ELSE ERROR('INVA┆
0x20700…20780 UnusedSector ┆ND; "OF GET_FILENAMES" , CH_TYPE); IF CH = NL THEN SKIP_BLANKS(CH, CH_TYPE); IF (CH = 'Y') OR (CH = 'N') THEN OK := TRUE ┆
0x20780…20800 UnusedSector ┆ # gX y & & + # y gX i h* y # gt y " ░ $ 1 y y y " ░ ! 5 y ! f y " ░ $ 1 y┆
0x20800…20880 UnusedSector ┆ " ░ " ░ fB y % ░ $ L c " ░ " ░ f3 y y y % ░ $ L % ░ $ K 9 c& y y " ░ % ░ $ ? 1 y " ░ % ░ , %┆
0x20880…20900 UnusedSector ┆ ░ 1 y " ░ " ░ y f b ░ y y % ░ $ O c y ! y f bi y y y " ░ $ 1 y " ░ $ 1 y! y! y" " ░ " ░ #┆
0x20900…20980 UnusedSector ┆ % ░ , \ 1 y# % ░ $ L c " ░ y$ $ 1 b y$ " ░ % ░ y% 1 y% % ░ % ░ ; c ░ y& % ░ c " % ░ y' 1 b y┆
0x20980…20a00 UnusedSector ┆' ! y( fp y( y) y) y* % ░ c ░ i hd : F y; % $ = 1 y< y= % $ 1 y> #1░ y? y@ " ░ % ░ ' 1 yA yA % '┆
0x20a00…20a80 UnusedSector ┆ 8 % ░ % ░ ' % ░ + ' ? K 9 c yB yC " ░ % ░ 1 yD % ░ " ░ f yE "░░ $ 1 yF yF % ' 8 %░░ $ P 9 c yG yH " ░ %┆
0x20a80…20b00 UnusedSector ┆░░ , $ , ' $ = L c$ yI yJ % ░ 8 c yK yL % % ░ 1 yM % yN %░░ 1 yO yO yP b yP yQ yR " ░ $ 1┆
0x20b00…20b80 UnusedSector ┆ " ░ $ 1 " ░ $ 1 yS yS yT a % % ░ , f( " ░ %░░ , % ░ , ' O c yU " ░ $ 1 yU yV " ░ % ░ $ ?┆
0x20b80…20c00 UnusedSector ┆F, NAME_LIST[1], CC) END END; "OF FIND_FILE" NON_EXISTING_NAME THEN BEGIN WITH FILE_ATTRS DO BEGIN VOLUME := PARAM.VO┆
0x20c00…20c80 UnusedSector 0x00[128]
[…0x2…]
0x20d80…20e00 UnusedSector ┆ y " ░ % f% y % ' c y y % $ 1 y & "R░ " ░ " ░ " ░ "W░ # gh y & $ O c1 y & $ O c y f┆
0x20e00…20e80 UnusedSector 0x00[128]
[…0x2…]
0x20f80…21000 UnusedSector ┆X░ $ 1 y "U░ $ 1 $ y %U░ %O░ P c4 y y %P░ + %U░ , a "Y░ % ░ , %X░ , ' f 1 y "X░ %X░ y ┆
0x21000…21080 UnusedSector 0x00[128]
0x21080…21100 UnusedSector ┆ENGTH,FROM,WORK); MOVC WORK R7 ; RE.WORK =>R7; MOV SR4 R4 ; RESTORE(R4); JMPI LINK ; RETURN; END MON OUTNL ; OUTNL(SH); ┆
0x21100…21180 UnusedSector ┆ N @NOT READY TIME OUT REJECTED ILLEGAL UNCOMPLETE ERROR END-OF-FILE PARITY ERROR READ ERROR WR┆
0x21180…21200 UnusedSector ┆ITE ERROR FULL RESULT BIT 11 RESULT BIT 12 UNKNOWN NO REFS BUSY # ) , 2 9 ? E H O V Z ^ V p V s V t V v V u$V L |┆
0x21200…21280 UnusedSector ┆lNV h K: _ ]V h I q Na q" . Z ] STATUS: ZV j!K# d ]V k V n V L OO@V l V $N lM a 0F 7 @ 2 a L| X ┆
0x21280…21300 UnusedSector ┆ c AV v%^ V n% | K V % | X X h_ HU V D C 0 V ░D 7 O H I J@K Li RHa S (A Hr }PARAMETER ER┆
0x21300…21380 UnusedSector ┆ROR tSOURCE FILE NOT FOUND hSOURCE FILE OPEN ERROR [WORK AREA OVERFLOW POBJECT FILE OPEN ERROR COBJECT FILE FULL 9BOOT┆
0x21380…21400 UnusedSector ┆ ENTRY NOT FOUND -ERROR AT NEWBOOTSTRAP !ERROR AT LOOKUP OF OBJECT FILE ERROR AT REMOVAL OF OBJECT FILE lN Z ] TlM TLi T A┆
0x21400…21480 UnusedSector ┆ hX X E X hp` iX X X h` O< S~ X Ha h: X nQHe hX HajPkJ P K P \ mP`Y [ _ H@ H 0N a 6 0 V ░D X X @ G┆
0x21480…21500 UnusedSector ┆ TlN SIZE OF FILE: Z K# d ]lN ENTER ADDRESS OF FIRST WORD ZK ^V ~ X c lN THE ADDRESS OF FIRST WORD: Z┆
0x21500…21580 UnusedSector ┆ K# d THE ABS. ADDRESS OF PATCHAREA: Zj 0 K# d ] lN ? ZlM c a~ X clM a> c lNK# _K ^X D P P I ┆
0x21580…21600 UnusedSector ┆N W X X3lNH H V {V i U ~ XB cV J░ lN ] 2 dKL _ #K Z 8 ' 0 @K d _ ┆
0x21600…21680 UnusedSector ┆ 5 S \#X lN' ]XcV EV 3 V KX S| Xn| X X|V 7 {X Na V IH@ H ' V H V V ~ X cH Li a Li a┆
0x21680…21700 UnusedSector ┆ : V X TX V | X V X V X ` HejPkJ P Y O Y N ?$ H H I J@K Li RHe SY H@ V H3 (A Hr┆
0x21700…21780 UnusedSector ┆ 0N k _ Li T; HejPkJ P V )mP` Y [hP NI Q V )lM TlN; ' BOOT MODULE LOAD ADDRESS: Z K# d ] >$ 2 ┆
0x21780…21800 UnusedSector ┆LAST WORD AT: ZK# d ] T A d / d ░░ ┆
0x21800…21880 UnusedSector ┆ h / / & < \ ┆
0x21880…21900 UnusedSector 0x00[128]
[…0x2…]
0x21a00…21a80 UnusedSector ┆ OC H P 0 H ┆
0x21a80…21b00 UnusedSector 0x00[128]
0x21b00…21b80 UnusedSector ┆ OC ┆
0x21b80…21c00 UnusedSector ┆ ┆
0x21c00…21c80 UnusedSector 0x00[128]
0x21c80…21d00 UnusedSector ┆ @ ┆
0x21d00…21d80 UnusedSector ┆ ┆
0x21d80…21e00 UnusedSector 0x00[128]
[…0x3…]
0x21f80…22000 UnusedSector ┆░░░░░░ n g } f ┆
0x22000…22080 UnusedSector ┆ P ERROR lN Z ZK d ] A {^ lOH K I J@ RhQM@ S^ H@ H< |^ hpR |^" h R nR lO k _ lN OUTP┆
0x22080…22100 UnusedSector ┆UT FILE FULL Z ]lO TlM TlN T A d / d ░░ ┆
0x22100…22180 UnusedSector ┆ / / S i OC ┆
0x22180…22200 UnusedSector ┆ u } u ┆
0x22200…22280 UnusedSector 0x00[128]
0x22280…22300 UnusedSector ┆ OC n n ' ┆
0x22300…22380 UnusedSector ┆ n / ' ┆
0x22380…22400 UnusedSector 0x00[128]
0x22400…22480 UnusedSector ┆ @ ┆
0x22480…22500 UnusedSector ┆ ) ┆
0x22500…22580 UnusedSector 0x00[128]
[…0x1…]
0x22600…22680 UnusedSector ┆ $ , !< 5 y # $ , !C 5 y # $ , !J 5 y # $ , !Q 5 y # $ , !X ┆
0x22680…22700 UnusedSector ┆ 5 y # $ , !_ 5 y # $ , !f 5 y y y # $ , !m 5 y # $ , !p 5 y ┆
0x22700…22780 UnusedSector ┆ # $ , !s 5 y # $ , !v 5 y # $ , !y 5 y # $ , !| 5 y y y y y ┆
0x22780…22800 UnusedSector ┆ y " ░ ! 5 y " ░ $ , " ░ $ , $ gz y " ░ $ , $ 1 " ░ $ , $ 1 " ░ $ , $ ┆
0x22800…22880 UnusedSector ┆ 1 " ░ $ , $H 1 " ░ $ , $ 1 y " ░ " ░ " ░ g y $d % ░ " ░ " ░ g" y % ░ $ O c & g& y y " ░┆
0x22880…22900 UnusedSector ┆ y y " ░ $ , % ░ $ , $ gz y " ░ ! 5 y " ░ $ , % ░ + $ , $ y gz x y " ░┆
0x22900…22980 UnusedSector ┆ ! 5 y " ░ " ░ & + # gA y & $ O c & g& y y & + & + ' 1 y & y y % ░ y y " ░ ! 5┆
0x22980…22a00 UnusedSector ┆ y " ░ $ , % ░ $ , $ gz y░ " ░ ! 5 y " ░ $ , % ░ + $ , $ y gz x y " ░ $┆
0x22a00…22a80 UnusedSector ┆ , $ = 1 " ░ $ , $ 1 y % ░ " ░ # gB y & $ O c ! f y y " ░ y y % ░ $ 1 y % ░ + ┆
0x22a80…22b00 UnusedSector ┆ $ 1 y % ░ + $ 1 y % ░ + $ 1 y " ░ ! 5 y " ░ $ , % ░ + $ , $ y gz x y % ░ " ░ #┆
0x22b00…22b80 UnusedSector ┆ g< y & $ O c & g& y y " ░ y y % ░ $ 1 y % ░ + $ 1 y % ░ + $ 1 y % ░ + $ 1 y " ░ ! ┆
0x22b80…22c00 UnusedSector ┆ 5 y " ░ $ , % ░ + $ , $ y gz x y % ░ " ░ # g< y & $ O c & g& y y % ░ + ! 5┆
0x22c00…22c80 UnusedSector ┆ y % ░ " ░ + % ░ + # g> y & $ O c ! f y y % ░ % ░ + % ░ + # gA y & $ O c ! y f y┆
0x22c80…22d00 UnusedSector ┆ x y! y" y# & + ' $ / # # gW y$ & $ O c & g& y$ y% & + ' $ / # # gW y& & $ ┆
0x22d00…22d80 UnusedSector ┆ O c & g& y& y' y( y) ! fm y* ! y+ y, fc i h 3 y4 & & + # gX y5 & & + # gX y6 " ░ $┆
0x22d80…22e00 UnusedSector ┆ , $ = 1 " ░ $ , $ 1 y7 & " ░ # gC y8 & & + # g? y9 i h* H yI # gt yJ " ░ $ 1 y┆
0x22e00…22e80 UnusedSector ┆K yK yL " ░ !% 5 yM " ░ $ 1 yN " ░ " ░ fP yO % ░ $ L c " ░ " ░ fA yO yP yP % ░ $ L % ░ $ K 9 c& yQ yR ┆
0x22e80…22f00 UnusedSector ┆ " ░ % ░ $ ? 1 yS " ░ % ░ , % ░ 1 yT " ░ " ░ yU f, b ░ yU yV % ░ $ O % ░ $ L ; c yW !, yX f bd yX yY ┆
0x22f00…22f80 UnusedSector ┆ yZ " ░ $ 1 y[ " ░ $ 1 y\ y\ y] " ░ " ░ # % ░ , \ 1 y^ % ░ 8 c+ y_ % ░ $ L c y` ya " ░ $ 1 yb !G ┆
0x22f80…23000 UnusedSector ┆ yc fn yd b yd " ░ % ░ ye 1 ye ye % ░ % ░ ; c ░ yf yf yg % ░ 8 c !W yh f yh % ░ c ░ yi " yj % ░ 1 i hb ┆
0x23000…23080 UnusedSector ┆ | D y} " ░ $ 1 y~ % $ = 1 y y % $ 1 y #1░ y y " ░ % ░ ' 1 y y % ' 8 % ░ % ░ ' % ░ + ' ? K 9 c┆
0x23080…23100 UnusedSector ┆ y y " ░ % ░ 1 y % ░ " ░ fo y " ░ $ 1 y y y " ░ % ░ , $ , ' $ = L c$ y y % ░ 8 c y ┆
0x23100…23180 UnusedSector ┆ y % % ░ 1 y % y % ░ 1 y y y b y y y % $ 1 y " ░ $ 1 $ y % ░ % ░ P c* y % % ░ , '┆
0x23180…23200 UnusedSector ┆ " ░ % ░ , % ░ , ' O c % $ 1 y " ░ z b ░ y x y % ' % $ , ' $ @ H y " ░ % ░ , $ ,┆
0x23200…23280 UnusedSector ┆ ' $ @ H L 9 c y y % % ░ 1 y % y % ░ 1 y b y % y $ 1 y y y % ░ $ L c " ░ $ 1 b y ┆
0x23280…23300 UnusedSector ┆ " ░ y $ 1 y % ' % ░ $ L y ; c ░ y b y y x i h* y % $" 1 y % c y % $ L c % % ┆
0x23300…23380 UnusedSector ┆ % % y gA b y gs y y y % $ O c gs y y & + ' % $ , % % gE y % ' $" L cY y ┆
0x23380…23400 UnusedSector ┆ y " ░ y y % ░ & + 5 y % ░ + $ 1 y % ░ + y $ 1 x y & " ░ % % g5 y % ' $ L c & + ┆
0x23400…23480 UnusedSector ┆ ' % ' % $ , % y gD y y y i h y " ░ % f/ y % ' c y y % $ 1 y "W░ "V░ f, f ┆
0x23480…23500 UnusedSector ┆ y & "U░ " ░ " ░ " ░ "Z░ # gh y & $ O c1 y & $ O c y f b y %Z░ $ M c y !Z y f b y !┆
0x23500…23580 UnusedSector ┆t y f y y b y y y " ░ "Y░ " ░ "T░ fd y %T░ 8 c ! y f bv y y y %Y░ "\░ f y % y y %S░┆
0x23580…23600 UnusedSector ┆ %Y░ 1 %S░ + % ░ 1 y %S░ + "\░ % ░ , $ , ' $ ? y "\░ % ░ , $ , ' D $ A 1 y %S░ + "\░┆
0x23600…23680 UnusedSector ┆ % ░ , $ , ' 1 y %S░ + "\░ % ░ , $ , ' 1 y "[░ $ 1 y "X░ $ 1 $ y %X░ %R░ P c4 y y┆
0x23680…23700 UnusedSector ┆ %S░ + %X░ , a "\░ % ░ , %[░ , ' f 1 y "[░ %[░ y 1 y "X░ z b ░ y x x y % $ L % +┆
0x23700…23780 UnusedSector ┆ ' $ K y 9 c ! y f b y y y %U░ / " ░ " ░ " ░ y %Z░ & + ' " ░ # f y & $ O cx y & $┆
0x23780…23800 UnusedSector ┆ L c ! y fh bc y y░ & y $ L c ! y fS bL y y & y $ L c ! y f> b5 y y & y $" ┆
0x23800…23880 UnusedSector ┆ L c ! y f) b y y & y $ L c ! y f b y y f y y y y y b y y y % ░ % / %┆
0x23880…23900 UnusedSector ┆ # gW y & $ O c y f b y y y % $ L cF y y y y y & $ O c3 y & $ L c y !- y┆
0x23900…23980 UnusedSector ┆ f b y y & $ L c y !F y f} b y y f y y y y y & $ L cN y y !\ fG y! "W░ "V░ f┆
0x23980…23a00 UnusedSector ┆ y" %W░ $ L c "W░ "V░ f y" y# %W░ $Y L %W░ $N L ; c % y$ $ 1 b y$ !| fB y$ y% % %W░ y& $Y L 1 y& ┆
0x23a00…23a80 UnusedSector ┆ y' % ' 8 c % ' y( f y( y) y) y* y* y+ y+ y, y, y- y- y. y. i h 8 y9 #5░ "~░ fM y: %~░ c y; y┆
0x23a80…23b00 UnusedSector ┆< #3░ "~░ f? y= %~░ c y> y? $ " ░ fk y@ " ░ $ , ? ' $ H $ O c #=░ yA $ 1 b yA yB yC yD " ░ $ 1┆
0x23b00…23b80 UnusedSector ┆ $? yD % ░ %}░ P c #>░ % ░ , " ░ % ░ , ? ' 1 " ░ z b ░ yD x yE $ " ░ f yF " ░ $ 1 $= yF % ░ %}░ P c ┆
0x23b80…23c00 UnusedSector ┆ #>░ % ░ $@ ? , " ░ % ░ , ? ' 1 " ░ z b ░ yF x yG yH yI $ " ░ f yJ " ░ $ , $ , ' $ @ H yK ┆
0x23c00…23c80 UnusedSector ┆ $ O c #=░ yL $ 1 b; yL #1░ yM yN %}░ a " ░ $ , $ , ' fC 1 yO %}░ + " ░ $ , $ , ┆
0x23c80…23d00 UnusedSector ┆ yP ' 1 yQ x yQ yR yR yS yS yT yT i h$ ` ya " " $ $d f yb % c= yc yd ye " $ 1 $} ye % %┆
0x23d00…23d80 UnusedSector ┆ P c #>░ % , $░░ 1 " z b ░ ye x yf #>░ $ , $ ░ 1 yg yh % $ ? $ F #1░ " fr yi yj " $ 1┆
0x23d80…23e00 UnusedSector ┆ $ yj % % P c? " $ 1 $? yj % % P c& yk " ░ % , @ % , ? #>░ $@ % D % ? , ' 1 " z b ░┆
0x23e00…23e80 UnusedSector ┆ yk x " z b ░ yk x yl ym yn "░ $ 1 $ yn %░ % P c " ░ $ , %░ , $ 1 "░ z b ░ yn x yo "┆
0x23e80…23f00 UnusedSector ┆ ░ $ , $ , $ 1 yp " ░ $ , $ , % $ ? $ F 1 yq " ░ $ , $ , $ 1 yr " ░┆
0x23f00…23f80 UnusedSector ┆ $ , $ , " ░ $ , $ , ' $ A 1 ys " ░ $ , $ , % $ ? $ F 1 yt " ░ $ , ┆
0x23f80…24000 UnusedSector ┆ $ , a #1░ ' f 1 yu "░ $ 1 $ yu %░ % P c " ░ $ , %░ , $ = 1 "░ z b ░ yu x yv y┆
0x24000…24080 UnusedSector ┆w yx #1░ + " ░ $ , $ , ' 1 yy yz y{ " ░ $ , $ , $ = 1 y| y} $ " ░ f y~ $ " ░ $┆
0x24080…24100 UnusedSector ┆ , @ f y $ " ░ $ , @ f y $ " ░ f y y y " ░ $ , $ , $ = 1 y #1░ y " % '┆
0x24100…24180 UnusedSector ┆ 1 % ' % + ' ? y % % P c y % " ░ fl " z b ░ y x x y y y i hi K y " ░ " ░ f y % ░ c ┆
0x24180…24200 UnusedSector ┆ " ░ " ░ $ y $ $ A #1░ + ' A fG y y % ░ c " ░ " ░ $ % ░ f5 y y % ░ cE y % ░ % ░ H $ O c y ! y┆
0x24200…24280 UnusedSector ┆ f/ b- y y y " ░ " ░ " ░ " ░ f y % ░ c ! y f b y y % ░ $ = L c ! y f b y y y % ░ "┆
0x24280…24300 UnusedSector ┆ ░ f y " ░ $ 1 $ y % ░ % ░ P c " ░ % ░ , % ░ , " ░ % ░ , ' 1 " ░ z b ░ y x y " ░ $ 1 $ y┆
0x24300…24380 UnusedSector ┆ % ░ % ░ P c " ░ % ░ , % ░ , $ 1 " ░ z b ░ y x y " ░ % ░ , $ , % ░ 1 y " ░ % ░ , $┆
0x24380…24400 UnusedSector ┆ , % ░ 1 y " ░ % ░ , $ , $ = 1 y " ░ % ░ , $ , % ░ % ░ F 1 y " ░ $ 1 $ y % ░ %┆
0x24400…24480 UnusedSector ┆R WITHIN THE 512-BYTE SYSTEM 2 SECTOR." VAR LT1, LS1, PT, PS, SYS_2_SINGLE_SECT : INTEGER; BEGIN LT1 := SYS_1_SECT_NUMB DIV┆
0x24480…24500 UnusedSector ┆ 26; LS1 := SYS_1_SECT_NUMB MOD 26 + 1; PT := LT1; PS := 2*((LS1 + 6*LT1 - 1) MOD 26 + 1) MOD 27; SYS_2_SINGLE_SECT := 26*PT┆
0x24500…24580 UnusedSector ┆ + ((PS+1) MOD 2)*13 + ((PS-1) DIV 2); SYS_2_SECT_NUMB := LONG(SYS_2_SINGLE_SECT DIV 4); POSITION := SYS_2_SINGLE_SECT MOD 4; ┆
0x24580…24600 UnusedSector ┆ END; "OF CONVERT" NUMB MOD 26 + 1; PT := LT1; PS := 2*((LS1 + 6*LT1 - 1) MOD 26 + 1) MOD 27; SYS_2_SINGLE_SECT := 26*PT┆
0x24600…24680 UnusedSector ┆ 0\ ,@░░ ┆
0x24680…24700 UnusedSector ┆ k q d PARAMETER ERROR INPUT OPEN ERROR OUTPUT OPEN ERROR NAME SYNTAX (CONTINUES) OUTPUTFILE FULL N lN Z┆
0x24700…24780 UnusedSector ┆ ] TlM T AN(lN Z ] NOT READY TIME OUT REJECTED ILLEGAL UNCOMPLETE ERROR END-OF-FILE PARITY ERROR READ ERROR WRITE ERROR ┆
0x24780…24800 UnusedSector ┆FULL RESULT BIT 11 RESULT BIT 12 UNKNOWN NO REFS BUSY P U Z ^ d g m t z K V p V s V t V v V u V L |lNV h K:┆
0x24800…24880 UnusedSector ┆ _ ]V h I q N q" . Z ] STATUS: ZV j K# d ]V k V n V L OO@V l V hX X E X hpR iX X X hR O| S~ X HX ┆
0x24880…24900 UnusedSector ┆ hX TH I J K L] RHXM SX H@ HU (C H H I J K lM RHS S 7H@ HQ (C H L] ` ~ K _HS K: _ ] ] ]lM a $| | L]┆
0x24900…24980 UnusedSector ┆ _X a $| X c {Y a~ X IS UX; T V X N lN Z ]lM T V X L] ` K | K ^ TlN T A q ┆
0x24980…24a00 UnusedSector ┆ d d o d ░░ [ ┆
0x24a00…24a80 UnusedSector ┆ o o } / O OC LP ┆
0x24a80…24b00 UnusedSector 0x00[128]
[…0x1…]
0x24b80…24c00 UnusedSector ┆ OC ; C ┆
0x24c00…24c80 UnusedSector ┆ ; ┆
0x24c80…24d00 UnusedSector 0x00[128]
0x24d00…24d80 UnusedSector ┆ OC z ┆
0x24d80…24e00 UnusedSector 0x00[128]
[…0x1…]
0x24e80…24f00 UnusedSector ┆ @ ┆
0x24f00…24f80 UnusedSector 0x00[128]
[…0x5…]
0x25200…25280 UnusedSector ┆░░ 2 1 2 ,░░░░░░░░░░░░░░░░░░ ░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x25280…25300 UnusedSector ┆ ░ P c " ░ % ░ , % ░ , $ = 1 " ░ z b ░ y x y % ░ " ░ f y y y y y y y i hi K y " ░ "┆
0x25300…25380 UnusedSector ┆ ░ f y % ░ c y y " ░ " ░ " ░ " ░ f y % ░ 8 c ! y f b y y y % ░ " ░ fP y y y " ░ $ 1 y y┆
0x25380…25400 UnusedSector ┆ % ░ $ P " ░ % ░ , % ░ , ' $ = O 9 cn y y " ░ a " ░ % ░ , % ░ , ' f 1 y " ░ % ░ 1 % ░ y┆
0x25400…25480 UnusedSector ┆ " ░ % ░ , $ , ' ? $ A y % ░ % ░ P c y #>░ % ░ $ F , % ░ $ H / g " ░ z b ░ y x y "┆
0x25480…25500 UnusedSector ┆ ░ % ░ y 1 bw░ y y y y " ░ % ░ , $ , $ = 1 y y % ░ " ░ f y y y y y i hk M y "┆
0x25500…25580 UnusedSector ┆ ░ " ░ f y % ░ c y y " ░ " ░ f y % ░ c y y " ░ " ░ " ░ " ░ f y % ░ c ! y f bq y y y " ░ "┆
0x25580…25600 UnusedSector ┆ ░ " ░ " ░ fx y % ░ 8 c ! y f bN y y y % ░ " ░ f y " ░ $ 1 $ y % ░ % ░ P c y " ░ % ░ , % ░┆
0x25600…25680 UnusedSector ┆ , " ░ % ░ , ' 1 " ░ z b ░ y x y % ░ " ░ y f& y y y y y y y y i hu U y y #5░ $ ,┆
0x25680…25700 UnusedSector ┆ " ░ $ , $ g{ y #5░ + $ , " ░ $ , $ g{ y ! f y " ░ $ f y $- f y " ░ $┆
0x25700…25780 UnusedSector ┆ f y #3░ $ , " ░ $ , $ g{ y !< f y " ░ $ fv y !I f y !j f y ! f y y #1░ y┆
0x25780…25800 UnusedSector ┆ y " ░ % ░ ' 1 % ░ ' % ░ + ' ? y % ░ % ░ P cr y y % ░ " ░ f y " ░ $ 1 $ y % ░ % ░ P cK y y " ░ % ░ ,┆
0x25800…25880 UnusedSector ┆ $ , ' $ = O c) y y " ░ $ 1 $ y % ░ % ░ P c6 y y " ░ % ░ , % ░ , ' $ H fZ y " ░┆
0x25880…25900 UnusedSector ┆ % ░ , % ░ , ' $ F y! fB " ░ z b ░ y! x y" " ░ " ░ % ░ , $ , ' $ @ H 1 y# % ░ $ L c ! y┆
0x25900…25980 UnusedSector ┆$ f bM y$ y% y& $. f y' " ░ % ░ $ F 1 y( % ░ $ P % ░ $ H $ L 9 c y) y* # % ░ , $ fb y+ ! y┆
0x25980…25a00 UnusedSector ┆, f} y- b y- % ░ y. f( y. y. y/ " ░ " ░ % ░ , $ , ' $ ? y0 " ░ % ░ , $ , ' D 1 y1 % ░┆
0x25a00…25a80 UnusedSector ┆ $ f y2 " ░ % ░ , $ , ' $ f y3 " ░ % ░ , $ , ' $ f y4 ! y5 f y6 y6 y7 " ░ z b┆
0x25a80…25b00 UnusedSector ┆ y7 x y8 " ░ z b y8 x x y9 " ░ $ 1 y: " ░ $ 1 $ y: % ░ % ░ P c y; a % ░ f 8 c " ░ % ░ 1 y; " ░┆
0x25b00…25b80 UnusedSector ┆ z b ░ y; x y< ! f y= % ░ $ f9 y> ! f y? % ░ ! ) E ! ) G $ f! y@ ! yA f i h R yS "|░ "┆
0x25b80…25c00 UnusedSector ┆f░ f yT %f░ c yU yV "h░ "g░ f yW fh yX %g░ $ L %h░ $# L ; c@ yY yZ "`░ "f░ $ $░ fh y[ %f░ c "b░ "f░ $ ┆
0x25c00…25c80 UnusedSector ┆ $░ fX y[ y\ %f░ c "a░ "f░ $ $░ fF y\ y] "e░ y^ $ 1 y_ b y_ "e░ $ 1 y_ y` %f░ c ya yb "|░ "d░ "i░ "f░┆
0x25c80…25d00 UnusedSector ┆ f yc %f░ 8 c ! yd f# bd yd ye yf %d░ " ░ f yg " ░ %i░ , $ , ' $ O c yh ! yi f b4 yi y┆
0x25d00…25d80 UnusedSector ┆j yk " ░ $ , $ , " ░ %i░ , $ , ' 1 yl " ░ $ , $ , " ░ %i░ , $ , '┆
0x25d80…25e00 UnusedSector ┆ 1 ym " ░ $ , $ , " ░ %i░ , $ , ' 1 yn " ░ $ , $ , " ░ %i░ , $ , '┆
0x25e00…25e80 UnusedSector ┆ 1 yo "z░ $ 1 yp "{░ $ 1 $ yp %{░ %]░ P c2 yq yr " ░ $ , %{░ , " ░ %i░ , %z░ , ' 1 ys "z░┆
0x25e80…25f00 UnusedSector ┆ %z░ yt 1 "{░ z b ░ yt x yu %e░ cA yv yw "`░ " ░ %i░ , $ , ' 1 yx "a░ " ░ %i░ , $ , ' 1 y┆
0x25f00…25f80 UnusedSector ┆y "b░ " ░ %i░ , $ , yz ' 1 yz y{ " ░ $ , $ , %`░ 1 y| " ░ $ , $ , %a░ 1 y} "┆
0x25f80…26000 UnusedSector ┆ ░ $ , $ , %b░ 1 y~ " ░ $ , $ , $@ " ░ $ , $ , ' $ ? D 1 y y y "j░ $ ┆
0x26000…26080 UnusedSector ┆ 1 y "k░ y y %]░ + " ░ $ , $ , ' 1 y %]░ + " ░ $ , $ , ' 1 y %]░ + $@ 1 y "{░┆
0x26080…26100 UnusedSector ┆ $ 1 y "^░ $ 1 $ y %^░ %\░ P c4 y y %]░ + %^░ , a " ░ $ , %{░ , ' f8 1 y "{░ %{░ y ┆
0x26100…26180 UnusedSector ┆ 1 y "^░ z b ░ y x x y "_░ $ 1 " ░ $ , $ , ' y %_░ %]░ P cf y y %_░ " ░ "c░ "k░ f y "i░ $┆
0x26180…26200 UnusedSector ┆TER TXC8: ; XMTRI R1 SYNP ; XMTRI IVR TXBUF ; MOVRB R1 NM RB7 ; SYNP TO TXBUF JMPAI TXC96 ; EXIT ; TXC12: ; READY FOR SENDI┆
0x26200…26280 UnusedSector ┆NG OFF ; --------------------- XMTRI IVR MODSEL ; XMTBI RB0 M1 1 ; SET CHANGE MODE XMTBI RB4 M1 1 ; SET FORCE DELAY MODE ; ┆
0x26280…26300 UnusedSector ┆TXC20: ; NORMAL TX MODE ; -------------- XMTRI IVR MODE ; NZTBI RB2 M1 TXC22 ; JMP IF LOOP TEST MODE MOVBR LB6 M1 R1 ; NZTR┆
0x26300…26380 UnusedSector ┆I R1 TXC30 ; JMP IF READY F.S. OFF TXC22: XMTRI IVR TXCHR2 ; NZTBI RB2 M1 TXC8 ; JMP IF UNDERRUN ; ; NEXT CHARACTER TO TXBUF┆
0x26380…26400 UnusedSector ┆ ; ----------------------- XMTRI AUX SHIFIL ; XMTRI IVR TXCHR1 ; ADDBR RB7 M3 IVR ; TXSHI, CURRENT ELEMENT $MODIFY ; MOVBR ┆
0x26400…26480 UnusedSector ┆RB7 NM R3 ; CHARACTER TO R3 $DEMOD ; XMTRI IVR TXBUF ; MOVRB R3 NM RB7 ; NEXT CHARACTER TO TXBUF ; ; UPDATE NULL DETECT FIEL┆
0x26480…26500 UnusedSector ┆9200 0 0040 LEVEL 3 NAMES: USE PROG LOCINT:= #026F LOCACT:= #826F USE #0 0 MEMARA= #0014 CREATE= #001C WAITNT= #000E LEAV┆
0x26500…26580 UnusedSector 0x00[128]
0x26580…26600 UnusedSector ┆ 0 $ L ┆
0x26600…26680 UnusedSector ┆ H \ R D I / C L P E G B X S K H M N Z F , ; ( ) < > p|p p}l~p p p p p p p p p p p p p ┆
0x26680…26700 UnusedSector ┆ p P HCWCc b 3 ( 3C h 3 3 ░ ░ ░ ░ ░ ░ ░ ┆
0x26700…26780 UnusedSector ┆ . # # . : ; # t @ vfp u lM aL #| 0B :B 0 B X O p h m fvgN]' ub OS O] J @mb░ mb┆
0x26780…26800 UnusedSector ┆ nD _1N] @"* -$ 2 / O r L t t^utX L^ Al o t D 0 4t ░D ' X)L^ P@mtk @X;Ln}AX> X@K/ @XCOS \ob t K ┆
0x26800…26880 UnusedSector ┆ @O r g' O] H @mb░ X vfn\ l _# 8 ^ 6 7D v\ fviuuuoI _ | Knu F 7@ ┆
0x26880…26900 UnusedSector ┆vox@ &< I ^ mu ]mo _ itfmvV Lp E N X V@P@ml Ttl ftf p f' qjl b rl @O O w`q ufv O w_J V N| p O_k c' h j i @┆
0x26900…26980 UnusedSector ┆k`| h k 8 # : l @i n O w fui J I [ 8 V l _ iv u tfOm} p lN _ m @ !B ~ K @V M Lj q A r B┆
0x26980…26a00 UnusedSector ┆ P@ P@ V M u n m fOj r{@ V l _]2X H I J K R H@ vh ^lN \ ] hV Nv K sT | K ]R Y J RlN T_$K Hp S K ┆
0x26a00…26a80 UnusedSector ┆ V4H0p ufv V M*_*n f V ░ V ░ V3H2p V M8_JOa lM cV e *$ oz | X | X V1 0H p ┆
0x26a80…26b00 UnusedSector ┆ V ░ V6H1p V3H1p V M`_{ ( pnpz h ! G X& hpT iX X X hT S| O| C| V| X V M~┆
0x26b00…26b80 UnusedSector ┆ mX$V Mr hMV p L t V L _ K V Hr SXRV H _ Mc PV Mv} L N V L _ K V HvmR SXfV H _ Mc QV Mz} h lM T V L tM_ K V Hz S┆
0x26b80…26c00 UnusedSector ┆X}V H _ H pzMc RV M~} lN T_ K V H~mR SX V H _ H pzMc Sl \y| $V L V V Mr C ` | X V H V Nv ^V Nv K V HvmR SX V ┆
0x26c00…26c80 UnusedSector ┆H V Mc Q ) hz~ qyV N|V Lvtl oV Lvt{V NvV@P`H p p p H p V H p n{v\ mll'@ TX V Lv Oy lN ]kx _K ^V `n\ "* ( $ n & G! ┆
0x26c80…26d00 UnusedSector ┆ [$ q O q n\ @K ( p l d 4 Ht M @} Y V X$lM c | V n\ K X P`H K X I n\H p l < \t L o 0 P` v\ P`┆
0x26d00…26d80 UnusedSector ┆ XV NvV o H[ 8 | Pk V A v{V Nv XV o X Xnl BH p Xs) q i @ Y _! $ @V @ @ Y H p H peX m\ ┆
0x26d80…26e00 UnusedSector ┆V n Y V@ K m\ 5 _Le PDl H LePD V /~ Y m\ V R n\Pc l H V H n\Pg j\V 2 m\ V B B Y X ┆
0x26e00…26e80 UnusedSector ┆h V V $ X ( pSV X PdV H m V H P`oz~ VOa V r )~ Z ) X ,| Z X V g (~ Z { n\ V \ )~ X 7J r V ┆
0x26e80…26f00 UnusedSector ┆ T"*$ ,| X | Y X V J (~ Z/V E /< + ~ Z6snV ; )~ Z>N V Y/ @V / (~ | V ( )~ ZNn\ V h I Y N YJoz Oa┆
0x26f00…26f80 UnusedSector ┆ V Ydn\PhV vvH V HvI V N| p pXqZuY o Hw V l kT _V ░V l asTI X kT R 1 R j (| rW I j i OW┆
0x26f80…27000 UnusedSector ┆ {O u | \ / 7 t O x X ^ ░ X E j ( h j i r V OwK j o ' ' z lV j i ░ H O u ┆
0x27000…27080 UnusedSector ┆XW ░ j ( V 9 h Ow j i O hO v H Oj q l r k Ow h l Ow V l kT _V q OwM V 4 o x r rV R┆
0x27080…27100 UnusedSector ┆ j i 8Ow ~ A h V 0 X ] I ^ _ X J ░ X N O X X ░ O X X [ 8V l _Om V ) _ X Ow ~O ┆
0x27100…27180 UnusedSector ┆ L _ V H M t @ O t @M X Mm oz OyPp D q D X% IV o N X. X2 V X7V ┆
0x27180…27200 UnusedSector ┆ X@V q' ZV XHO V Ovw{V XPV Mv DX ow x V ! Im Oj r{@ V L _ V X Xi mXqv V l e X~ [ TV ┆
0x27200…27280 UnusedSector ┆V HrK S[ V H V n X V X kOw x V ,V SV x H S o hXiZmY m @I I Hw Y NcV l ` T TX V L T b lM TV M~┆
0x27280…27300 UnusedSector ┆V Nc c lN T A EDIT \ d / d ░░ ┆
0x27300…27380 UnusedSector ┆ / / 4 ┆
0x27380…27400 UnusedSector ┆ ░░ OC @# , = I d t WARNING 3 SYNTAX 2 MEM FULL 1 FILE┆
0x27400…27480 UnusedSector ┆ ERR 1 OVERFLOW 1 NO MATCH 111 END OF EDITION. ┆
0x27480…27500 UnusedSector ┆ ┆
0x27500…27580 UnusedSector 0x00[128]
[…0x8…]
0x27980…27a00 UnusedSector ┆ OC h h h ┆
0x27a00…27a80 UnusedSector ┆ ┆
0x27a80…27b00 UnusedSector 0x00[128]
0x27b00…27b80 UnusedSector ┆ OC V ^ L V ┆
0x27b80…27c00 UnusedSector 0x00[128]
[…0x1…]
0x27c80…27d00 UnusedSector ┆ @ X ┆
0x27d00…27d80 UnusedSector 0x00[128]
[…0x6…]
0x28080…28100 UnusedSector ┆ L - @ 0 " 0< , L 0 - ` ┆
0x28100…28180 UnusedSector ┆; S8MNAX ; ; CR80 SYSTEM ONE, NAMES ; ; GENERATED AT 78.04.05 ; 00151000 0 000E LEVEL 2 NAMES: ITEMLH= #0005 C= #000D BMERRR=┆
0x28180…28200 UnusedSector ┆ #0020 BMFULL= #0400 BNLOCT= #000B BMSPEL= #0009 BNERRR= #0005 BNFULL= #000A DISKDS= #0002 REALTK= #0000 BMBYTE= #0004 ┆
0x28200…28280 UnusedSector ┆BMDIST= #0100 BMREJT= #0004 PROGLH= #000E BNBYTE= #0002 BMCONV= #0010 BNDIST= #0008 BNREJT= #0002 BNCONV= #0004 TIMEMK= ┆
0x28280…28300 UnusedSector ┆#6800 CONTLH= #0005 TIMESE= #0064 BMINPT= #0001 BMWORD= #0000 BMTIMR= #0002 BMPARY= #0080 BMPROM= #0002 BNTIMR= #0001 B┆
0x28300…28380 UnusedSector ┆NPARY= #0007 BNPROM= #0001 TERMIL= #0001 N= #0004 BMUNKN= #2000 DISABD= #E000 POWERE= #0001 BMSTEP= #0020 BNUNKN= #000D ┆
0x28380…28400 UnusedSector ┆ BMWRIR= #0200 BNSTEP= #0005 BNWRIR= #0009 BMREST= #0002 BMPOSN= #0010 BMERAE= #0020 BNREST= #0001 BNPOSN= #0004 BNERAE=┆
0x28400…28480 UnusedSector ┆ #0005 BMNORS= #4000 BNNORS= #000E EVERSN= #0006 IDLENH= #0004 BMBUSY= #8000 BMCLEN= #0000 BNBUSY= #000F EAREAS= #000A ┆
0x28480…28500 UnusedSector ┆BMNOEC= #0040 NAMELH= #0003 BNNOEC= #0006 BMOPUT= #0002 BMCLER= #0040 MAXDEE= #003F BNOPUT= #0001 BNCLER= #0006 BMRELE= ┆
0x28500…28580 UnusedSector ┆#0004 BMNOTY= #0001 ETYPE= #0007 BNRELE= #0002 BNNOTY= #0000 BMREAR= #0100 BNREAR= #0008 NAMEBS= #0006 BMOUTT= #0003 BM┆
0x28580…28600 UnusedSector ┆TPUT= #0001 BMSPEC= #0008 BMCONL= #0000 BMUNCE= #0010 BMEOF= #0040 BNTPUT= #0000 BNSPEC= #0003 BNUNCE= #0004 BNEOF= #000┆
0x28600…28680 UnusedSector ┆6 BMILLL= #0008 BNILLL= #0003 BNMUTX= #0000 BMNOCP= #0080 BMRESE= #0008 BNNOCP= #0007 BNRESE= #0003 BMTERE= #0080 BMDIS┆
0x28680…28700 UnusedSector ┆P= #0001 BMREET= #0001 BNTERE= #0007 BNDISP= #0000 BNREET= #0000 USE BASE BMWAC:= #0080 OLDPRC:= #001B SAVE3:= #0029 SSA┆
0x28700…28780 UnusedSector ┆VE1:= #0019 BNWAC:= #0007 SAVE4:= #002A SSAVE2:= #001A SAVE5:= #002B SBLOCK:= #000C SSAVE3:= #001B TERMIE:= #0031 SAVE6:┆
0x28780…28800 UnusedSector ┆= #002C STACKH:= #0005 SSAVE4:= #001C BMPLSB:= #0100 NEXT:= #0002 SAVE7:= #0040 PROCLH:= #0052 CATSLH:= #0040 SSAVE5:= #┆
0x28800…28880 UnusedSector ┆MP IF NOT LAST CHARACTER MOVRR AUX NR R4 ; "STORE" TRANSFER COUNTER (0) JMPAI TXF14 ; JMP (LAST CHARACTER) TXFX1: ;* JMPAI TX┆
0x28880…28900 UnusedSector ┆F96 ;* FILL0 ; TXF12: ; EMPTY ELEMENT ; ------------- ; MOVRR AUX NR R4 ; STORE TRANSFER COUNTER XMTRI R1 1 ; PREPARE INCR┆
0x28900…28980 UnusedSector ┆EMENTING ADDRR R1 NR AUX ; INCREMENT TRANSFER COUNTER ADDRR R2 NR IVR ; SHIFIL PREVIOUS ELEMENT TXF14: ; XMTRI R5 CHMSK ; RES┆
0x28980…28a00 UnusedSector ┆TORE CHANNEL NO. MASK XMTRI AUX ENQ ; PREPARE COMPARE XORBR RB7 M7 R1 ; COMPARE CHARACTER TO ENQ NZTRI R1 TXF16 ; JMP IF NOT ┆
0x28a00…28a80 UnusedSector 0x00[128]
0x28a80…28b00 UnusedSector ┆ L L NOT READY BIT1 BIT2 OVERRUN FEED ERROR STACK ERROR READ CHECK MOTION ERROR DATA NOT READY HOPP┆
0x28b00…28b80 UnusedSector ┆ER EMPTY STACKER FULL BIT11 BIT12 BIT13 BIT14 BUSY # ) / 6 > E L O R U X ,PARAMETER SYNTAX ERROR OBJECT FILE ┆
0x28b80…28c00 UnusedSector ┆FULL SOURCE OPEN ERROR OBJECT OPEN ERROR lN Z ] zlN ZK# d ] NOT READY TIME OUT REJECTED ILLEGAL UNCOMPLETE ERROR ┆
0x28c00…28c80 UnusedSector ┆END-OF-FILE PARITY ERROR READ ERROR WRITE ERROR FULL RESULT BIT 11 RESULT BIT 12 UNKNOWN NO REFS BUSY ┆
0x28c80…28d00 UnusedSector ┆ V pWV sXV tYV vZV u`V L[ |lNV hY K: _ ]V hWI q N q" . Z ] STATUS: ZV j]K# d ]V kXV nZV L[ OO@V lY┆
0x28d00…28d80 UnusedSector ┆V ` Ib yO@I @ hX X E X hpW iX X X hW O~ X HY hX HRI] E' H I J K Lq RHY SX H@ V H: (A V HB H I OV I J K ┆
0x28d80…28e00 UnusedSector ┆V L# RH]Md SX H@ Hy (C V H OV V L#K _HY K: _ ] ] ]MiugV N ' C Lq a: ~ X K C V L# \ B pgX Lq Y _'E G WX ' ┆
0x28e00…28e80 UnusedSector ┆O@hb^ lN HARDWARE STATUS: ZhdI q N[ q" . Z ] ' LAST LINE TRANSFERRED: Zmg B C \lN %TYPE T TO TERMINATE, OR TYPE┆
0x28e80…28f00 UnusedSector ┆ C TO CONTINUE, WHEN THE CARDREADER IS READY Z ]lM a | X | X0sX a | X ~ X7kX T| C~ X>PpHqI@ \ Ib yO@X K V L# _OV ┆
0x28f00…28f80 UnusedSector ┆K _Lq TV L# TlM YlN Y A L d / d ░░ ┆
0x28f80…29000 UnusedSector ┆ / / a w LP ░░ CR LP ┆
0x29000…29080 UnusedSector ┆ m i , ┆
0x29080…29100 UnusedSector 0x00[128]
[…0x5…]
0x29380…29400 UnusedSector ┆ OC ┆
0x29400…29480 UnusedSector ┆ & & & ┆
0x29480…29500 UnusedSector 0x00[128]
0x29500…29580 UnusedSector ┆ OC 5 ┆
0x29580…29600 UnusedSector ┆ = 5 ┆
0x29600…29680 UnusedSector 0x00[128]
0x29680…29700 UnusedSector ┆ @ ┆
0x29700…29780 UnusedSector ┆ 7 ┆
0x29780…29800 UnusedSector 0x00[128]
[…0x2…]
0x29900…29980 UnusedSector ┆1498L 0000 0006 0000 0000 0006 0000 0000 0007 14A0L 0000 0000 0007 0000 0000 0008 0000 0000 14A8L 0008 0000 0000 0009 0000 000┆
0x29980…29a00 UnusedSector ┆0 0009 0000 14B0L 0000 0A94 0814 3C56 A749 0356 9771 21FF 14B8L 3D27 0006 0000 0000 0007 0000 0000 0003 14C0L 0000 0000 0003 ┆
0x29a00…29a80 UnusedSector ┆0000 0000 0003 0000 0000 14C8L 0000 0000 0000 0003 0000 0000 0003 0000 14D0L 0000 0003 0000 0000 0003 0000 0000 0003 14D8L 00┆
0x29a80…29b00 UnusedSector ┆ 1 $ y %i░ %\░ P c= y "z░ $ 1 $ y %z░ %[░ P c" y "j░ a %j░ " ░ %i░ , %z░ , ' y g 1 "z░ z b ░┆
0x29b00…29b80 UnusedSector ┆ y x "i░ z b ░ y x "_░ z b ░ y x y " ░ $ , $ , %j░ 1 y y y "j░ $ 1 y "{░ $ 1 $ y %┆
0x29b80…29c00 UnusedSector ┆{░ %]░ P c y "j░ a %j░ " ░ $ , %{░ , ' g 1 "{░ z b ░ y x y " ░ $ , $ , %j░ 1 y y ┆
0x29c00…29c80 UnusedSector ┆ $ " ░ f y ! f y %`░ fe y !3 f %b░ f[ y !; f %a░ fQ y !C y f y y y y y y y y i h┆
0x29c80…29d00 UnusedSector ┆v W y $ / " ░ " ░ " ░ " ░ f y % ░ c/ y y " ░ $ 1 y y y % ░ " ░ " ░ " ░ f y % ░ c y y " ░┆
0x29d00…29d80 UnusedSector ┆ $ 1 y y y " ░ a " ░ % ░ $ F , ? ' $ % ░ $ H y D $ ? / $ / g 1 y % ░ $ N c+ y " ░ $ ┆
0x29d80…29e00 UnusedSector ┆ 1 % ░ $ A y % ░ % ░ P c % ░ $ " ░ y f " ░ z b ░ y x b3 y y % ░ $ / L c y y " ░ + % ░ 1 y "┆
0x29e00…29e80 UnusedSector ┆ ░ y % ░ 1 y b y % ░ % ░ " ░ fr y y y " ░ % ░ 1 y % ░ % ░ N % ░ 8 y ; cW░ y b3 y y y % ░ " ░ $ ,┆
0x29e80…29f00 UnusedSector ┆ ? " ░ # ga y & $ O c y y f y " ░ y $ 1 y y y y " ░ % ░ y 1 % ░ 8 % ░ " ░ + ' M ; c y┆
0x29f00…29f80 UnusedSector ┆ % ░ y f^ y y i h y $ / " ░ " ░ "j░ "i░ f8 y %i░ c3 y y "h░ $ 1 y "n░ $ 1 y "g░ $ 1 y┆
0x29f80…2a000 UnusedSector ┆ "m░ $ = 1 y y y %j░ c y y "n░ $ 1 y y %n░ $ K %e░ $ L 9 c y y %g░ $ M c y y "g░ %f░ 1 y┆
0x2a000…2a080 UnusedSector ┆ "e░ y %d░ 1 y b y % ░ "g░ "e░ g[ y y %e░ $ O %e░ $ O 9 c %e░ y f3 b y y y░ %e░ $ L c "g░ $ ┆
0x2a080…2a100 UnusedSector ┆ / 1 y░ y %g░ $ N c y y !E f y "e░ y $ 1 y bz y y y %g░ $ L c9 y y "g░ $ 1 y y y ┆
0x2a100…2a180 UnusedSector ┆ "g░ %g░ 1 y % ░ "f░ "d░ y g[ %f░ $ O %g░ $░ L y ; %d░ $ O y ; c ░ y y %g░ "p░ %n░ $ F , ? y $ %n░┆
0x2a180…2a200 UnusedSector ┆ $ H D $ ? / $ / g y "n░ %n░ y 1 y y y y y b y y b. y y y % ░ "p░ $ , ? "n░ "┆
0x2a200…2a280 UnusedSector ┆e░ g^ y %e░ $ O %e░ $ O 9 c %e░ y fH y y y %e░ $ L %j░ ; c y y "m░ %m░ 1 y %m░ "p░ " ░ "h░ y fD ┆
0x2a280…2a300 UnusedSector ┆ y! y! %n░ $ K %e░ $ O ; %h░ 8 ; cu y" %h░ 8 c y# y$ "n░ $ 1 y% "m░ %m░ y& 1 y& y' " ░ y( y) %c░ ' " ░ f ┆
0x2a300…2a380 UnusedSector ┆ y* " ░ %c░ + ' , $ , %m░ " ░ %c░ + ' , $ , ' F 1 y+ " ░ %c░ + ' , $ , %n░ $ ┆
0x2a380…2a400 UnusedSector ┆ F $@ %m░ y, " ░ %c░ + ' , $ , ' H D ? 1 y- "o░ $ 1 y. "l░ $ 1 $ y. %l░ %b░ P c y/ y0 %l░ %m░ %c░┆
0x2a400…2a480 UnusedSector ┆ + ' F M y1 %c░ + %l░ , ' $ = M 9 cm y2 y3 "k░ %c░ + %l░ , ' 1 %c░ + %l░ , ' %c░ + ' ? $ A y┆
0x2a480…2a500 UnusedSector ┆3 %k░ %a░ P c y4 #>░ %k░ $ F , %k░ $ H / g "k░ z b ░ y4 x y5 " ░ %c░ + ' , %o░ , y6 $ =┆
0x2a500…2a580 UnusedSector ┆ 1 y7 b$ y7 " ░ %c░ + ' , %o░ , a %c░ + %l░ , ' f 1 y7 y8 "o░ %o░ y9 1 "l░ z b5░ y9 x y: %┆
0x2a580…2a600 UnusedSector ┆c░ ' " ░ y; f░ x y< !d f y= % ░ y> f y? y? i h G yH " ░ $ 1 $ yH % ░ %}░ P cV yI yJ "~░ $ 1 $? y┆
0x2a600…2a680 UnusedSector ┆J %~░ %|░ P c$ " ░ % ░ , @ %~░ , ? #>░ $@ % ░ D %~░ ? , ' 1 "~░ z b ░ yJ x yK % ░ $ ? " ░ % ░ , @ yL ┆
0x2a680…2a700 UnusedSector ┆ f yM " ░ z b ░ yM x i j Q Y < e< yR f yS yS yT #<░ &=░ 1 yU #;░ a fB 1 yV # gt yW # ░ &;░ , &=░ ,┆
0x2a700…2a780 UnusedSector ┆ yX yY #=░ % + ' 1 yZ % ' bn y[ y[ fO bx y\ y\ ft bp y] y] f bh y^ y^ fC b` y_ y_ f= bX y` ┆
0x2a780…2a800 UnusedSector ┆ y` f bP ya ya fk bH yb yb fl b@ yc yc f b8 yd yd f b0 ye ye # $ 1 b% yf yf b yg yg !g yh f┆
0x2a800…2a880 UnusedSector ┆ b yh d ░ ░ ░ ░ ░ ░ ░ ░ ░ ░ ░ ░ ░ yh yi x yj !w yk f & c5░ yl ym f2 k ┆
0x2a880…2a900 UnusedSector ┆ ░░ d h ┆
0x2a900…2a980 UnusedSector ┆ ░░ E R R O R : I / O E R R O R I N F I L E C O M P L E ┆
0x2a980…2aa00 UnusedSector ┆T I O N C O D E = C O N T I N U E ? C A N N O T D E M O U N T - B I T M A P M A Y B E I N V A L I ┆
0x2aa00…2aa80 UnusedSector ┆D A M O S F I L E P R O T E C T I O N C U R R E N T I N P U T A M O S S Y S T E M O N E A M O S D I S K ┆
0x2aa80…2ab00 UnusedSector ┆F U L L A M O S F I L E F U L L F I L E I S N O T W R I T E A B L E F I L E I S N O T R E A D A B L E B ┆
0x2ab00…2ab80 UnusedSector ┆A D I N T E G E R F O R M A T I L L E G A L I N T E G E R P A R A M E T E R F I L E N A M E M U S T B E G I N ┆
0x2ab80…2ac00 UnusedSector ┆W I T H A L E T T E R B A D S Y N T A X I N F I L E N A M E B A D F I L E T Y P E S Y N T A X U N K N O W ┆
0x2ac00…2ac80 UnusedSector ┆N F I L E T Y P E B A D S Y N T A X I N D R I V E R N A M E B A D S Y N T A X I N G R O U P N A M E B ┆
0x2ac80…2ad00 UnusedSector ┆A D S Y N T A X I N D E V I C E N A M E N O S U C H F I L E S Y S T E M E X I S T S N O S U C H D E ┆
0x2ad00…2ad80 UnusedSector ┆V I C E E X I S T S S Y S T E M 1 F I L E I S F U L L D I S K E T T E I S F U L L M O U N T I N I T ┆
0x2ad80…2ae00 UnusedSector ┆ C R E A T E R E M O V E R E N A M E L I S T B O O T R E A D W R I T E D E M O U N T Q U I T ┆
0x2ae00…2ae80 UnusedSector ┆D A T T X T B I N O B J W R K C A T T T Y 0 0 0 I N T R D M A 0 0 0 F I L E C A N N O T U S E R O N ┆
0x2ae80…2af00 UnusedSector ┆ F D 0 0 0 0 F D 0 1 0 0 V C A N N O T M O U N T C A N N O T G E T R O O T S Y S T E M O N E ┆
0x2af00…2af80 UnusedSector ┆/ A M O S F I L E C O N V E R S I O N P R O G R A M ( V E R S I O N 1 , 2 7 / 8 / 7 9 B ┆
0x2af80…2b000 UnusedSector ┆A D S Y N T A X I N C O M M A N D N A M E U N K N O W N C O M M A N D # T O O M A N Y N A M E S I N F ┆
0x2b000…2b080 UnusedSector ┆I L E I D B A D S Y N T A X I N F I L E I D S Y S T E M 1 F I L E D O E S N O T E X I S T S Y S T E M ┆
0x2b080…2b100 UnusedSector ┆ 1 F I L E I S E M P T Y B A D D I R E C T O R Y N O S U C H F I L E S Y S T E M E X I S T S N O S U C ┆
0x2b100…2b180 UnusedSector ┆H V O L U M E E X I S T S A M O S F I L E D O E S N O T E X I S T F I L E I S N O T A C C E S S I B L E ┆
0x2b180…2b200 UnusedSector ┆A M O S F I L E I S A D I R E C T O R Y F I L E I S N O T R E S E T A B L E I S I T A T E X T F I L E ┆
0x2b200…2b280 UnusedSector ┆ ? ( Y O R N ) : I N V A L I D I N P U T I N C O M P A T I B L E A R E A A N D B L O C K S I Z E F I ┆
0x2b280…2b300 UnusedSector ┆L E A L R E A D Y E X I S T S C A T A L O G U E I S F U L L F I L E N O T P R E S E N T S E C O N D F I L E ┆
0x2b300…2b380 UnusedSector ┆ A L R E A D Y E X I S T S F I R S T F I L E D O E S N O T E X I S T L I S T I N G O F T H E F I L E S I ┆
0x2b380…2b400 UnusedSector ┆N F I L E S Y S T E M , O N D E V I C E F I L E N A M E S I Z E A R E A S I Z E B L O ┆
0x2b400…2b480 UnusedSector ┆C K S I Z E - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - N U ┆
0x2b480…2b500 UnusedSector ┆M B E R O F S E C T O R S A L L O C A T E D = , E Q U A L T O d % F I L E N O T P R E S E N T ┆
0x2b500…2b580 UnusedSector ┆I L L E G A L B O O T E N T R Y - B L O C K S I Z E < > 1 B O O T E N T R Y G E N E R A T E D W I T H F ┆
0x2b580…2b600 UnusedSector ┆I R S T = B A S E = P A G E = I L L E G A L C H A R A C T E R I N T E X T F I L E C I L L E G A ┆
0x2b600…2b680 UnusedSector ┆L C O M M A N D # - - - - - - - - - - - - - - - - - - - - - - - - N U ┆
0x2b680…2b700 UnusedSector ┆M B E R O F S E C T O R S A L L O C A T E D = , E Q U A L T O d % F I L E N O T P R E S E N T ┆
0x2b700…2b780 UnusedSector ┆I L L E G A L B O O T E N T R Y - B L O C K S I Z E < > 1 B O O T E N T R Y G E N E R A T E D W I T H F ┆
0x2b780…2b800 UnusedSector ┆ B A S E = P A G E = I L L E G A L C H A R A C T E R I N T E X T F I L E I L L E G A L C O M M A N D ┆
0x2b800…2b880 UnusedSector ┆ E - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - N U M B E R ┆
0x2b880…2b900 UnusedSector ┆PROCEDURE MOUNT; VAR BIT_MAP_BUFF : SECTOR; MAIN_SECTOR : ARRAY[SYS_1_ENTRY_POSN] OF ENTRY; I : INTEGER; NAME_OK : BOOLEAN;┆
0x2b900…2b980 UnusedSector ┆ BEGIN READ_FSN(FSN, NAME_OK); IF NAME_OK THEN BEGIN READ_DEVICE_NAME(DEVICE, NAME_OK); IF NAME_OK THEN BEGIN READ_SECT┆
0x2b980…2ba00 UnusedSector ┆OR(B_M_1, BIT_MAP_BUFF); IF BIT_MAP_BUFF[0] MOD 256 <> 0 THEN CURRENT_STATE := MOUNTED "NEW DIS" ELSE BEGIN "SET UP A COPY O┆
0x2ba00…2ba80 UnusedSector ┆F THE BIT MAP IN MEMORY" FOR I:=0 TO 63 DO BIT_MAP[I] := BIT_MAP_BUFF[I]; READ_SECTOR(B_M_2, BIT_MAP_BUFF); FOR I:=0 TO 61 DO┆
0x2ba80…2bb00 UnusedSector ┆ BIT_MAP[I+64] := BIT_MAP_BUFF[I]; "SET UP A COPY OF MAIN_ENTRY IN MEMORY" READ_SECTOR(M_E, MAIN_SECTOR); IF (MAIN_SECTOR[0,┆
0x2bb00…2bb80 UnusedSector ┆EIDENT] MOD #4000) <> #0600 THEN CURRENT_STATE := MOUNTED "NEW DISK" ELSE WITH MAIN_ENTRY DO BEGIN MSTART := LOG_SECT_NUMB(M┆
0x2bb80…2bc00 UnusedSector ┆AIN_SECTOR[0,EAREA1]); MHIBLOCK := MAIN_SECTOR[0,EHIBLOCK] END END END END END; "OF MOUNT" PROCEDURE INIT; VAR MAIN_SE┆
0x2bc00…2bc80 UnusedSector ┆CTOR : ARRAY[SYS_1_ENTRY_POSN] OF ENTRY; BOOT_SECTOR : ARRAY[SYS_1_ENTRY_POSN] OF BOOT_ENTRY; BIT_MAP_SECTORS : ARRAY[0..1] OF┆
0x2bc80…2bd00 UnusedSector ┆ SECTOR; EF : ENTRY_FIELD; I, J, ENTRIES : INTEGER; OKAY : BOOLEAN; BEGIN READINT(ENTRIES, OKAY, 1, MAX_ENTRIES); "CHECKS ┆
0x2bd00…2bd80 UnusedSector ┆1 <= ENTRIES <= MAX_ENTRIES" IF OKAY THEN BEGIN "INITIALISE THE BIT MAP" FOR I:=1 TO 125 DO BIT_MAP[I] := #FFFF; "NO SECTORS┆
0x2bd80…2be00 UnusedSector ┆ ALLOCATED" BIT_MAP[0] := #FF00; "THE FIRST 8 SECTORS ARE ALLOCATED TO 'MAINFILE'" "THE NEXT STATEMENT SETS ALL SECTORS CORRES┆
0x2be00…2be80 UnusedSector ┆PONDING TO THE CATOLOGUE" ALLOCATE((ENTRIES+1) DIV 2, MAIN_ENTRY.MSTART, OKAY); "THE NEXT STATEMENT SETS UP THE BIT MAP TO BE ┆
0x2be80…2bf00 UnusedSector ┆WRITTEN TO THE DISKETTE" FOR I:=0 TO 1 DO FOR J:=0 TO 63 DO BIT_MAP_SECTORS[I,J] := BIT_MAP[64*I + J]; "INITIALISE MAIN ENTR┆
0x2bf00…2bf80 UnusedSector ┆Y" FOR EF:=ENAME1 TO EDUMMY DO MAIN_SECTOR[0,EF] := 0; MAIN_SECTOR[0,EIDENT] := #0600; "SET THAT THE FILE IS OF TYPE CATALOGUE┆
0x2bf80…2c000 UnusedSector ┆" MAIN_SECTOR[0,EAREASIZE] := (ENTRIES + 1) DIV 2; MAIN_SECTOR[0,ESEGMENTS] := 1; MAIN_SECTOR[0,EHIBLOCK] := MAIN_SECTOR[0,EA┆
0x2c000…2c080 UnusedSector ┆REASIZE] - 1; MAIN_SECTOR[0,EBLOCKING] := (ENTRIES + 1) DIV 2; MAIN_SECTOR[0,EAREA1] := LOG_TRACK_SECT(MAIN_ENTRY.MSTART); FO┆
0x2c080…2c100 UnusedSector ┆R EF := EAREA2 TO EAREA10 DO MAIN_SECTOR[0,EF] := -1; "SET UP A COPY OF THE MAIN ENTRY IN MAIN MEMORY" MAIN_ENTRY.MHIBLOCK :=┆
0x2c100…2c180 UnusedSector ┆ MAIN_SECTOR[0,EHIBLOCK]; "INITIALISE BOOT ENTRY" BOOT_SECTOR[0,BAREASIZE] := -1; WRITE_SECTOR(B_E, BOOT_SECTOR); WRITE_SE┆
0x2c180…2c200 UnusedSector ┆CTOR(B_M_1, BIT_MAP_SECTORS[0]); WRITE_SECTOR(B_M_2, BIT_MAP_SECTORS[1]); WRITE_SECTOR(M_E, MAIN_SECTOR); "FINALLY, INITIALI┆
0x2c200…2c280 UnusedSector ┆SE THE CATALOGUE WITH EMPTY ENTRIES" BOOT_SECTOR[1,BAREASIZE] := -1; WITH MAIN_ENTRY DO FOR I:=MSTART TO MSTART+MHIBLOCK DO ┆
0x2c280…2c300 UnusedSector ┆WRITE_SECTOR(I,BOOT_SECTOR); "FOR BOOT ENTRY IS INITIALISED TO EMPTY" END END; "OF INIT" PROCEDURE CREATE; VAR FILENAME : ┆
0x2c300…2c380 UnusedSector ┆SYS_1_FILENAME; SECTR : ARRAY[SYS_1_ENTRY_POSN] OF ENTRY; AREASIZE, BLOCKSIZE, INSERTION_SECT : INTEGER; INSERTION_POSN : SYS┆
0x2c380…2c400 UnusedSector ┆_1_ENTRY_POSN; EF : ENTRY_FIELD; OKAY, FOUND : BOOLEAN; BEGIN READ_SYS_1_FILENAME(FILENAME, OKAY); "OUTPUTS A MESSAGE IF BA┆
0x2c400…2c480 UnusedSector ┆D SYNTAX" IF OKAY THEN READINT(AREASIZE, OKAY, 1, 2001 - MAIN_FILE_SIZE - MAIN_ENTRY.MHIBLOCK); IF OKAY THEN READINT(BLOCKSIZ┆
0x2c480…2c500 UnusedSector ┆E, OKAY, 1, AREASIZE); IF OKAY THEN IF AREASIZE MOD BLOCKSIZE <> 0 THEN ERROR('INCOMPATIBLE AREA AND BLOCK SIZE(:0:)') ELSE ┆
0x2c500…2c580 UnusedSector ┆ BEGIN SEARCH(FILENAME, INSERTION_SECT, INSERTION_POSN, FOUND); IF FOUND THEN ERROR('FILE ALREADY EXISTS(:0:)') ELSE IF INSE┆
0x2c580…2c600 UnusedSector ┆RTION_SECT = -1 THEN ERROR('CATALOGUE IS FULL(:0:)') ELSE BEGIN READ_SECTOR(INSERTION_SECT, SECTR); FOR EF:=ENAME1 TO EIDENT┆
0x2c600…2c680 UnusedSector ┆ DO SECTR[INSERTION_POSN,EF] := FILENAME[EF]; FOR EF:=EDATE1 TO EDUMMY DO SECTR[INSERTION_POSN,EF] := 0; SECTR[INSERTION_POSN,┆
0x2c680…2c700 UnusedSector ┆EAREASIZE] := AREASIZE; SECTR[INSERTION_POSN,ESEGMENTS] := BLOCKSIZE; SECTR[INSERTION_POSN,EHIBLOCK] := -1; "I THINK" SECTR[I┆
0x2c700…2c780 UnusedSector ┆NSERTION_POSN,EBLOCKING] := AREASIZE DIV BLOCKSIZE; FOR EF:=EAREA1 TO EAREA10 DO SECTR[INSERTION_POSN,EF] := -1; WRITE_SECTOR(┆
0x2c780…2c800 UnusedSector ┆INSERTION_SECT, SECTR); END END END; "OF CREATE" PROCEDURE REMOVE; VAR SECTR : ARRAY[SYS_1_ENTRY_POSN] OF ENTRY; FILENAM┆
0x2c800…2c880 UnusedSector ┆E : SYS_1_FILENAME; ENTRY_POSN : SYS_1_ENTRY_POSN; EAREA : ENTRY_FIELD; AREA_START_ADDR, SECT_NUMB, S : INTEGER; GOOD_NAME, ┆
0x2c880…2c900 UnusedSector ┆FOUND : BOOLEAN; BEGIN READ_SYS_1_FILENAME(FILENAME, GOOD_NAME); IF GOOD_NAME THEN BEGIN SEARCH(FILENAME, SECT_NUMB, ENTRY┆
0x2c900…2c980 UnusedSector ┆_POSN, FOUND); IF NOT FOUND THEN ERROR('FILE NOT PRESENT(:0:)') ELSE BEGIN READ_SECTOR(SECT_NUMB, SECTR); "DEALLOCATE ALL ┆
0x2c980…2ca00 UnusedSector ┆SECTORS ALLOCATED TO THIS FILE" EAREA := EAREA1; WHILE (EAREA <= EAREA10) AND (SECTR[ENTRY_POSN,EAREA] <> -1) DO BEGIN AREA_┆
0x2ca00…2ca80 UnusedSector ┆START_ADDR := LOG_SECT_NUMB(SECTR[ENTRY_POSN,EAREA]); FOR S := AREA_START_ADDR TO AREA_START_ADDR + SECTR[ENTRY_POSN,EAREASIZE┆
0x2ca80…2cb00 UnusedSector ┆] - 1 DO SETBIT(BIT_MAP[S DIV 16], S MOD 16); EAREA := SUCC(EAREA) END; "MARK THE FILE'S ENTRY AS UNUSED" SECTR[ENTRY_POSN┆
0x2cb00…2cb80 UnusedSector ┆,ENAME1] := -1; WRITE_SECTOR(SECT_NUMB, SECTR); END END END; "OF REMOVE" PROCEDURE RENAME; VAR SECTR : ARRAY[SYS_1_ENTR┆
0x2cb80…2cc00 UnusedSector ┆Y_POSN] OF ENTRY; OLD_NAME, NEW_NAME : SYS_1_FILENAME; EF : ENTRY_FIELD; ENTRY_POSN : SYS_1_ENTRY_POSN; SECT_NUMB : INTEGER;┆
0x2cc00…2cc80 UnusedSector ┆ GOOD_NAME, FOUND : BOOLEAN; BEGIN READ_SYS_1_FILENAME(OLD_NAME, GOOD_NAME); IF GOOD_NAME THEN BEGIN READ_SYS_1_FILENAME(┆
0x2cc80…2cd00 UnusedSector ┆NEW_NAME, GOOD_NAME); IF GOOD_NAME THEN BEGIN SEARCH(NEW_NAME, SECT_NUMB, ENTRY_POSN, FOUND); IF FOUND THEN ERROR('SECOND FI┆
0x2cd00…2cd80 UnusedSector ┆LE ALREADY EXISTS(:0:)') ELSE BEGIN SEARCH(OLD_NAME, SECT_NUMB, ENTRY_POSN, FOUND); IF NOT FOUND THEN ERROR('FIRST FILE DOES┆
0x2cd80…2ce00 UnusedSector ┆ NOT EXIST(:0:)') ELSE BEGIN READ_SECTOR(SECT_NUMB, SECTR); FOR EF := ENAME1 TO EIDENT DO SECTR[ENTRY_POSN,EF] := NEW_NAME[┆
0x2ce00…2ce80 UnusedSector ┆EF]; WRITE_SECTOR(SECT_NUMB, SECTR) END END END END END; "OF RENAME" PROCEDURE LIST; VAR SECTR : ARRAY[SYS_1_ENTRY_POS┆
0x2ce80…2cf00 UnusedSector ┆N] OF ENTRY; DRIVE_NAME : NAME; G_NAME, DEV_NAME : ARRAY[0..3] OF CHAR; CURRENT_ENTRY : SYS_1_ENTRY_POSN; EF : ENTRY_FIELD; ┆
0x2cf00…2cf80 UnusedSector ┆ CURRENT_SECTOR, SIZE, USED_SECTORS, F_TYPE, TEMP : INTEGER; BEGIN "PRINT HEADINGS" UNPACK(FSN.PNAME.NAME[0], DRIVE_NAME[0],┆
0x2cf80…2d000 UnusedSector ┆ 6); UNPACK(FSN.GNAME[0], G_NAME[0], 4); WRITETXT('LISTING OF THE FILES IN FILE SYSTEM (:0:)'); WRITESTR(DRIVE_NAME, 6); WRI┆
0x2d000…2d080 UnusedSector ┆TECH('-'); WRITESTR(G_NAME, 4); UNPACK(DEVICE[0], DEV_NAME[0], 4); WRITETXT(', ON DEVICE (:0:)'); WRITESTR(DEV_NAME, 4); WR┆
0x2d080…2d100 UnusedSector ┆ITETXT('(:10:)(:10:)FILE NAME SIZE AREASIZE (:0:)'); WRITETXT('BLOCKSIZE(:10:)--------- ---- (:0:)'); WRITETXT('-------- -----┆
0x2d100…2d180 UnusedSector ┆----(:10:)(:0:)'); WITH MAIN_ENTRY DO BEGIN FOR CURRENT_SECTOR := MSTART TO MSTART + MHIBLOCK DO BEGIN READ_SECTOR(CURRENT┆
0x2d180…2d200 UnusedSector ┆_SECTOR, SECTR); FOR CURRENT_ENTRY := 0 TO 1 DO BEGIN IF SECTR[CURRENT_ENTRY,ENAME1] <> -1 THEN BEGIN FOR EF := ENAME1 TO E┆
0x2d200…2d280 UnusedSector ┆NAME3 DO BEGIN WRITECH(SECTR[CURRENT_ENTRY,EF] MOD 256); WRITECH(SECTR[CURRENT_ENTRY,EF] DIV 256) END; TEMP := SECTR[CURREN┆
0x2d280…2d300 UnusedSector ┆T_ENTRY,EIDENT] MOD #4000; IF TEMP = 0 THEN WRITETXT(' (:0:)') ELSE BEGIN WRITECH('.'); F_TYPE := TEMP DIV #0100; IF (F_TY┆
0x2d300…2d380 UnusedSector ┆PE <= 6) AND (TEMP MOD #0100 = 0) THEN BEGIN WRITESTR(F_TYPE_TABLE[F_TYPE], 3); WRITETXT(' (:0:)') END ELSE WRITEHEX(TEMP) ┆
0x2d380…2d400 UnusedSector ┆ END; SIZE := (SECTR[CURRENT_ENTRY,EHIBLOCK] + 1) * SECTR[CURRENT_ENTRY,ESEGMENTS]; WRITEINT(SIZE, 5); WRITEINT(SECTR[CURREN┆
0x2d400…2d480 UnusedSector ┆T_ENTRY,EAREASIZE],9); WRITEINT(SECTR[CURRENT_ENTRY,ESEGMENTS],9); WRITETXT('(:10:)(:0:)') END END END END; USED_SECTORS ┆
0x2d480…2d500 UnusedSector ┆:= 0; FOR CURRENT_SECTOR := 0 TO 2001 DO IF NOT FREE(CURRENT_SECTOR) THEN USED_SECTORS := SUCC(USED_SECTORS); WRITETXT('(:10:┆
0x2d500…2d580 UnusedSector ┆)NUMBER OF SECTORS ALLOCATED =(:0:)'); WRITEINT(USED_SECTORS, 5); WRITETXT(', EQUAL TO(:0:)'); WRITEINT(SHORT(LONG(USED_SECTO┆
0x2d580…2d600 UnusedSector ┆RS) * 100L / 2002L), 3); WRITETXT('%(:10:)(:0:)') END; "OF LIST" PROCEDURE BOOT; VAR BOOT_SECTOR : ARRAY[SYS_1_ENTRY_POSN]┆
0x2d600…2d680 UnusedSector ┆ OF BOOT_ENTRY; SECTR : ARRAY[SYS_1_ENTRY_POSN] OF ENTRY; FILENAME : SYS_1_FILENAME; BEF : BOOT_E_FIELD; EF : ENTRY_FIELD; ┆
0x2d680…2d700 UnusedSector ┆AREA_INF : AREA_INFORMATION; CHECKSUM : INTEGER; E_POSN : SYS_1_ENTRY_POSN; CH : CHAR; CH_TYPE : CHAR_TYPE; OK, DEFAULT : BO┆
0x2d700…2d780 UnusedSector ┆OLEAN; ENTRY_SECT, REC_LENGTH, BASE, PAGE, START, SECT_NUMB, I : INTEGER; BEGIN READ_SYS_1_FILENAME(FILENAME, OK); IF OK TH┆
0x2d780…2d800 UnusedSector ┆EN BEGIN SKIP_BLANKS(CH, CH_TYPE); BACK_SPACE; IF (CH_TYPE = TDIGIT) OR (CH = '#') THEN BEGIN READINT(START, OK, #8000, #7┆
0x2d800…2d880 UnusedSector ┆FFF); IF OK THEN READINT(BASE, OK, #8000, #7FFF); IF OK THEN READINT(PAGE, OK, #8000, #7FFF); DEFAULT := FALSE END ELSE DEF┆
0x2d880…2d900 UnusedSector ┆AULT := TRUE; IF OK THEN BEGIN SEARCH(FILENAME, ENTRY_SECT, E_POSN, OK); IF NOT OK THEN ERROR('FILE NOT PRESENT(:0:)') ELSE┆
0x2d900…2d980 UnusedSector ┆ BEGIN READ_SECTOR(ENTRY_SECT, SECTR); IF SECTR[E_POSN,ESEGMENTS] <> 1 THEN ERROR('ILLEGAL BOOT ENTRY - BLOCKSIZE <> 1(:0:)'┆
0x2d980…2da00 UnusedSector ┆) ELSE BEGIN BOOT_SECTOR[0,BAREASIZE] := SECTR[E_POSN,EAREASIZE]; BOOT_SECTOR[0,BSEGMENTS] := SECTR[E_POSN,ESEGMENTS]; BOOT┆
0x2da00…2da80 UnusedSector ┆_SECTOR[0,BHIBLOCK] := SECTR[E_POSN,EHIBLOCK]; BOOT_SECTOR[0,BBLOCKING] := SECTR[E_POSN,EBLOCKING]; EF := EAREA1; FOR BEF := ┆
0x2da80…2db00 UnusedSector ┆BAREA1 TO BAREA10 DO BEGIN BOOT_SECTOR[0,BEF] := SECTR[E_POSN,EF]; EF := SUCC(EF) END; IF DEFAULT THEN BEGIN START := SEC┆
0x2db00…2db80 UnusedSector ┆TR[E_POSN, EFIRST]; PAGE := SECTR[E_POSN, EPAGE]; BASE := SECTR[E_POSN,EBASE] END; BOOT_SECTOR[0,BFIRST] := START; BOOT_SEC┆
0x2db80…2dc00 UnusedSector ┆TOR[0,BPAGE] := PAGE; BOOT_SECTOR[0,BBASE] := BASE; BOOT_SECTOR[0,BWORDCOUNT] := 64 * (BOOT_SECTOR[0,BHIBLOCK] + 1); "COMPUT┆
0x2dc00…2dc80 UnusedSector ┆E CHECK SUM OF DISK FILE" CHECKSUM := 0; WITH AREA_INF DO BEGIN SIZE := BOOT_SECTOR[0,BHIBLOCK]; A_SIZE := BOOT_SECTOR[0,BA┆
0x2dc80…2dd00 UnusedSector ┆REASIZE]; CH_COUNT := 64; BEF := BAREA1; FOR I:=0 TO 9 DO BEGIN AREAS[I] := LOG_SECT_NUMB(BOOT_SECTOR[0,BEF]); BEF := SUCC┆
0x2dd00…2dd80 UnusedSector ┆(BEF) END END; FOR SECT_NUMB := 0 TO BOOT_SECTOR[0,BHIBLOCK] DO BEGIN "UPDATE CHECKSUM WITH NEXT SECTOR" GET_SECTOR(SECT_NU┆
0x2dd80…2de00 UnusedSector ┆MB, SECTR, REC_LENGTH, AREA_INF); FOR E_POSN := 0 TO 1 DO FOR EF := ENAME1 TO EDUMMY DO CHECKSUM := ADD(CHECKSUM, SECTR[E_POS┆
0x2de00…2de80 UnusedSector ┆N,EF]) END; BOOT_SECTOR[0,BFILECHECK] := CHECKSUM; "COMPUTE CHECKSUM OF BOOT ENTRY" CHECKSUM := 0; FOR BEF := BAREASIZE TO┆
0x2de80…2df00 UnusedSector ┆ BFILECHECK DO CHECKSUM := ADD(CHECKSUM, BOOT_SECTOR[0,BEF]); BOOT_SECTOR[0,BENTRYCHECK] := CHECKSUM; WRITE_SECTOR(B_E, BOOT┆
0x2df00…2df80 UnusedSector ┆_SECTOR); WRITETXT('BOOT ENTRY GENERATED WITH FIRST=(:0:)'); WRITEHEX(START); WRITETXT(' BASE=(:0:)'); WRITEHEX(BASE); WRITE┆
0x2df80…2e000 UnusedSector ┆TXT(' PAGE=(:0:)'); WRITEHEX(PAGE); WRITETXT('(:10:)(:0:)') END END END END END; "OF BOOT" PROCEDURE READ; VAR AREA_IN┆
0x2e000…2e080 UnusedSector ┆F : AREA_INFORMATION; F_STREAM : STREAM; SECTR : SECTOR; CURRENT_SECT, REC_LENGTH, COUNT1, I : INTEGER; TEXT_FILE, OK : BOOL┆
0x2e080…2e100 UnusedSector ┆EAN; CURRENT_BYTE : BYTE; BEGIN GET_FILENAMES(OUTPUT_MODE, AREA_INF, F_STREAM, TEXT_FILE, OK); IF OK THEN BEGIN CURRENT_S┆
0x2e100…2e180 UnusedSector ┆ECT := 0; REPEAT GET_SECTOR(CURRENT_SECT, SECTR, REC_LENGTH, AREA_INF); IF TEXT_FILE THEN BEGIN COUNT1 := 0; REPEAT CURRE┆
0x2e180…2e200 UnusedSector ┆NT_BYTE := GETBITS(SECTR[COUNT1 DIV 2], 8*(COUNT1 MOD 2) + 7, 8); IF CURRENT_BYTE >= #80 THEN FOR I:=1 TO CURRENT_BYTE-#80 DO┆
0x2e200…2e280 UnusedSector ┆ WRITE_BYTE(F_STREAM, ' ', OK) ELSE IF CURRENT_BYTE = ORD(EM) THEN BEGIN AREA_INF.SIZE := CURRENT_SECT; REC_LENGTH := COUNT┆
0x2e280…2e300 UnusedSector ┆1 END ELSE WRITE_BYTE(F_STREAM, CURRENT_BYTE, OK); COUNT1 := SUCC(COUNT1); UNTIL (COUNT1 >= REC_LENGTH) OR (NOT OK) END EL┆
0x2e300…2e380 UnusedSector ┆SE BEGIN OUTREC(F_STREAM, SECTR[0], REC_LENGTH, CC); IF CC <> 0 THEN BEGIN CCERROR_R; OK := FALSE END END; CURRENT_SECT┆
0x2e380…2e400 UnusedSector ┆ := SUCC(CURRENT_SECT) UNTIL (NOT OK) OR (CURRENT_SECT > AREA_INF.SIZE); CLOSE(F_STREAM) END END; "OF READ" PROCEDURE WRIT┆
0x2e400…2e480 UnusedSector ┆E; VAR AREA_INF : AREA_INFORMATION; F_STREAM : STREAM; ENTRY_SECT : ARRAY[SYS_1_ENTRY_POSN] OF ENTRY; SECTR : SECTOR; EARE┆
0x2e480…2e500 UnusedSector ┆A : ENTRY_FIELD; REC_LENGTH, SECT_NUMB, AREA_NUMB, S : INTEGER; TEXT_FILE, OK, ROOM_LEFT : BOOLEAN; CURRENT_BYTE, TEMP_BYTE :┆
0x2e500…2e580 UnusedSector ┆ BYTE; CC, TEMP_CC : COMPLETION_CODE; BEGIN GET_FILENAMES(INPUT_MODE, AREA_INF, F_STREAM, TEXT_FILE, OK); IF OK THEN BEGIN┆
0x2e580…2e600 UnusedSector ┆ ROOM_LEFT := TRUE; "SET TO FALSE IF SYS. 1 FILE BECOMES FULL" REC_LENGTH := 128; CURRENT_BYTE := 0; SECT_NUMB := -1; REPEA┆
0x2e600…2e680 UnusedSector ┆T IF TEXT_FILE THEN BEGIN REC_LENGTH := 0; WHILE (REC_LENGTH < 128) AND (CC = IO_OK) DO BEGIN IF CURRENT_BYTE > #80 THEN ┆
0x2e680…2e700 UnusedSector ┆BEGIN CURRENT_BYTE := TEMP_BYTE; CC := TEMP_CC END ELSE INBYTE(F_STREAM, CURRENT_BYTE, CC); IF (CC <> IO_OK) AND (CC <> EOF┆
0x2e700…2e780 UnusedSector ┆) THEN CCERROR_W(CC) ELSE BEGIN IF CC = EOF THEN CURRENT_BYTE := ORD(EM); IF CURRENT_BYTE >= #80 THEN BEGIN ERROR('ILLEGAL┆
0x2e780…2e800 UnusedSector ┆ CHARACTER IN TEXT FILE(:0:)'); CC := EOF "TO STOP WHILE LOOP" END ELSE BEGIN IF CURRENT_BYTE = 32 THEN "BLANK READ" BEGIN┆
0x2e800…2e880 UnusedSector ┆ CURRENT_BYTE := #80; REPEAT CURRENT_BYTE := SUCC(CURRENT_BYTE); INBYTE(F_STREAM, TEMP_BYTE, TEMP_CC) UNTIL (TEMP_BYTE <> 3┆
0x2e880…2e900 UnusedSector ┆2) OR (CURRENT_BYTE = 255) OR (TEMP_CC <> IO_OK) END; PUTBITS(CURRENT_BYTE, SECTR[REC_LENGTH DIV 2], 8*(REC_LENGTH MOD 2) + ┆
0x2e900…2e980 UnusedSector ┆7, 8); REC_LENGTH := SUCC(REC_LENGTH) END END END END ELSE BEGIN INREC(F_STREAM, SECTR[0], REC_LENGTH, CC); IF (CC <> E┆
0x2e980…2ea00 UnusedSector ┆OF) AND (CC <> IO_OK) THEN CCERROR_W(CC) END; IF (CC = IO_OK) OR TEXT_FILE THEN BEGIN SECT_NUMB := SUCC(SECT_NUMB); PUT_SEC┆
0x2ea00…2ea80 UnusedSector ┆TOR(SECT_NUMB, SECTR, AREA_INF, ROOM_LEFT) END UNTIL (REC_LENGTH < 128) OR (CC <> IO_OK) OR (NOT ROOM_LEFT); IF NOT ROOM_LEFT┆
0x2ea80…2eb00 UnusedSector ┆ THEN BEGIN REC_LENGTH := 128; SECT_NUMB := PRED(SECT_NUMB) END; WITH AREA_INF DO BEGIN READ_SECTOR(SECT, ENTRY_SECT); E┆
0x2eb00…2eb80 UnusedSector ┆NTRY_SECT[POSN,EHIBLOCK] := DIV_LOGICAL(SECT_NUMB, ENTRY_SECT[POSN,ESEGMENTS]); ENTRY_SECT[POSN,ECHARCOUNT] := REC_LENGTH DIV ┆
0x2eb80…2ec00 UnusedSector ┆2 + 64*(SECT_NUMB MOD ENTRY_SECT[POSN,ESEGMENTS]); EAREA := EAREA1; FOR AREA_NUMB := 0 TO 9 DO BEGIN IF (AREA_NUMB > DIV_LO┆
0x2ec00…2ec80 UnusedSector ┆GICAL(SECT_NUMB, A_SIZE)) AND (AREAS[AREA_NUMB] <> UNUSED) THEN BEGIN "WE NEED TO DEALLOCATE THIS AREA" FOR S := AREAS[AREA_N┆
0x2ec80…2ed00 UnusedSector ┆UMB] TO AREAS[AREA_NUMB] + A_SIZE - 1 DO SETBIT(BIT_MAP[S DIV 16], S MOD 16); AREAS[AREA_NUMB] := UNUSED END; ENTRY_SECT[POS┆
0x2ed00…2ed80 UnusedSector ┆N,EAREA] := LOG_TRACK_SECT(AREAS[AREA_NUMB]); EAREA := SUCC(EAREA) END; WRITE_SECTOR(SECT, ENTRY_SECT) END; WRITETXT('C(:10┆
0x2ed80…2ee00 UnusedSector ┆:)(:0:)'); CLOSE(F_STREAM) END END; "OF WRITE" PROCEDURE DEMOUNT; VAR BIT_MAP_SECTORS : ARRAY[0..1] OF SECTOR; I, J : IN┆
0x2ee00…2ee80 UnusedSector ┆TEGER; BEGIN FOR I:=0 TO 1 DO BEGIN FOR J:=0 TO 63 DO BIT_MAP_SECTORS[I,J] := BIT_MAP[64*I + J]; WRITE_SECTOR(I+B_M_1, BIT┆
0x2ee80…2ef00 UnusedSector ┆_MAP_SECTORS[I]) END END; "OF DEMOUNT" TE" PROCEDURE DEMOUNT; VAR BIT_MAP_SECTORS : ARRAY[0..1] OF SECTOR; I, J : IN┆
0x2ef00…2ef80 UnusedSector ┆ EBLOCKING,EAREA1,EAREA2,EAREA3,EAREA4,EAREA5,EAREA6,EAREA7, EAREA8,EAREA9,EAREA10,EBASE,EFIRST,EPAGE,ECHARCOUNT,EKIND, EMODE┆
0x2ef80…2f000 UnusedSector ┆,EDUMMY); ENTRY = ARRAY[ENTRY_FIELD] OF INTEGER; BOOT_E_FIELD = (BAREASIZE,BSEGMENTS,BHIBLOCK,BBLOCKING,BAREA1,BAREA2,BAREA3, ┆
0x2f000…2f080 UnusedSector ┆ BAREA4,BAREA5,BAREA6,BAREA7,BAREA8,BAREA9,BAREA10,BFIRST, BPAGE,BBASE,BWORDCOUNT,BFILECHECK,BENTRYCHECK,BD1,BD2,BD3, BD4,BD5,┆
0x2f080…2f100 UnusedSector ┆BD6,BD7,BD8,BD9,BD10,BD11,BD12); BOOT_ENTRY = ARRAY[BOOT_E_FIELD] OF INTEGER; SYS_1_ENTRY_POSN = 0..1; SYS_2_SECT_POSN = 0..3┆
0x2f100…2f180 UnusedSector ┆; SYS_2_SECTOR = ARRAY[SYS_2_SECT_POSN] OF SECTOR; AREA_INFORMATION = RECORD SECT : INTEGER; "ADDRESS OF FILE ENTRY" POSN : ┆
0x2f180…2f200 UnusedSector ┆SYS_1_ENTRY_POSN; "POSN OF ENTRY" SIZE, A_SIZE, CH_COUNT : INTEGER; "MEASURED IN SECTORS" AREAS : ARRAY[0..9] OF INTEGER END;┆
0x2f200…2f280 UnusedSector ┆ STRING = ARRAY [1..39] OF CHAR; NAME = ARRAY[0..5] OF CHAR; TWO_CHARS = ARRAY[1..2] OF CHAR; VAR TRANSITION : ARRAY(.COMM┆
0x2f280…2f300 UnusedSector ┆AND,STATE.) OF RECORD ACT : ACTION; NEXT_STATE : STATE END; BIT_MAP : ARRAY[0..127] OF INTEGER; CURRENT_STATE, OLD_STATE : ┆
0x2f300…2f380 UnusedSector ┆STATE; CURRENT_CMD : COMMAND; FSN : FILE_SYSTEM_NAME; DEVICE : DEVICE_NAME; MAIN_ENTRY : RECORD MSTART, MHIBLOCK : INTEGER ┆
0x2f380…2f400 UnusedSector ┆ END; CMD_TABLE : ARRAY[COMMAND] OF COMMAND_NAME; F_TYPE_TABLE : ARRAY[1..6,1..3] OF CHAR; INSTREAM, OUTSTREAM : STREAM; CC ┆
0x2f400…2f480 UnusedSector ┆: COMPLETION_CODE; BLE_PTR : BLEPTR; SECT_ADDR : SECTOR_ADDRESS; FINISHED, FIRST_CCERROR, EOLN : BOOLEAN; LEVEL : INTEGER; ┆
0x2f480…2f500 UnusedSector ┆ ,CONVSS ! + ( [- ┆
0x2f500…2f580 UnusedSector 0x00[128]
[…0x2…]
0x2f680…2f700 UnusedSector ┆ B b + h c yd % $ K % $ M 9 c ye " % = $ A % F = yf $ A 1 b yf " % yg % F 1 yg i h k ┆
0x2f700…2f780 UnusedSector ┆ yl " a #>░ % $ F , ' % $ H / ym g 1 i h y yz "░░ $ = 1 y{ y{ y| "░░ %░░ 1 y} % %░░┆
0x2f780…2f800 UnusedSector ┆ 1 y~ y~ a %░░ f ░ %░░ % ' A % $ A K 9 %░░ $ K y 9 c "░░ %░░ y 1 b ░ y a %░░ f ░ %░░ $ N ; c ░ y % ┆
0x2f800…2f880 UnusedSector ┆ a %░░ fw░ %░░ % ' A % $ A L 9 1 y % ' c; "░░ % ' 1 % ' % ? $ A y %░░ % ░ P c y #>░ %░░ $ F , ┆
0x2f880…2f900 UnusedSector ┆ %░░ $ H / y g "░░ z b ░ y x y i h# y "░░ % $ F 1 y " ░ % $ H $ ? 1 y " ░ %░░ 1 y " ░ $┆
0x2f900…2f980 UnusedSector ┆ % ░ $ %░░ D ? $ A $ H $ ? D $ H 1 y " ░ $ % ░ D % ░ $ ? $ H $ D ? % ░ $ A $ F ? 1 y % % ░ $ F ┆
0x2f980…2fa00 UnusedSector ┆ 2 y % % ░ $ H 1 y i h y % $ L c & $ # y g_ b y & % # g_ y y & $ O c & y┆
0x2fa00…2fa80 UnusedSector ┆ g& y i h y & % $ % D $ ? # gl y & $ O c & y g& y i h y & % $# / #┆
0x2fa80…2fb00 UnusedSector ┆ gk y & $ O c & y g& y i h y & % % # gj y & $ O c & y g& y i h y &┆
0x2fb00…2fb80 UnusedSector ┆ % # gi y & $ L c & # gb y y & $ O c & y g& y i h y #=░ &<░ 1 y ! f ░ y % ┆
0x2fb80…2fc00 UnusedSector ┆ f ░ y ! f ░ y y & 8 c " ░ "░░ f- b ░ y y y f i h y y y % % y f % ' y $ O c ░ i┆
0x2fc00…2fc80 UnusedSector ┆ h y "░░ & 1 y ! fg░ y % fa░ y !! f[░ y %░░ f ░ y !: fO░ y " ░ " ░ f ░ y % ░ $ L c " ░ " ░ f┆
0x2fc80…2fd00 UnusedSector ┆ ░ y y % ░ $Y L c gs y y & &=░ $ L 9 c y y # $ 1 y y y fy' y b y &=░ y $ L c !G f+░┆
0x2fd00…2fd80 UnusedSector ┆ y y y %░░ y g& i h y !o f y % y f ░ i h y ! y fS░ i h y ! y fE░ i h ┆
0x2fd80…2fe00 UnusedSector ┆ y ! y f7░ i h y & $# L c y ! y f b3 y y & $ L c y ! y f b y y! & $ ┆
0x2fe00…2fe80 UnusedSector ┆ L c ! y" f ░ b y" y# f ░ y# y# y# i h ' y( # % 1 y) & $ L c ! y* f[░ b y* y+ fu░ y+ i h ┆
0x2fe80…2ff00 UnusedSector ┆ 2 y3 % ' c+ y4 y5 % % # g_ y6 & $ O c y7 y8 % $ 1 y9 y: f^░ y; y; y< y< i h @ yA & ┆
0x2ff00…2ff80 UnusedSector ┆ # g] yB & $ O c yC f ░ yC i h H yI % $ 1 yJ & % # ge yK & $ O c& yL & $ L c yM yN ┆
0x2ff80…30000 UnusedSector ┆ f ░ yO ! yP f yQ b yQ yR f yR b) yR yS % ' % K % ' % M ; c yT !░ yU f b yU % yV $ 1 yV ┆
0x30000…30080 UnusedSector ┆ yV i h Z y[ & % % # gc y\ & $ O c y] f b. y] y^ % ' $ L c y_ y` # $ 1 ya % yb $ ┆
0x30080…30100 UnusedSector ┆ 1 yc b yc # yd $ 1 yd yd i h i yj "░░ % yk f ░ i h o yp % yq yr %░░ + % 1 ys & % # g┆
0x30100…30180 UnusedSector ┆d yt & $ O & $ O 9 c f yt yu %░░ + ' $ O %░░ + ' % M ; c yv # $ 1 yv yw %░░ ' $ L c %░░ $ ┆
0x30180…30200 UnusedSector ┆ 1 yw yx # $ 1 yy %░░ + ' $ L c yz %░░ . + ' $ L c # y{ $ 1 y{ y{ y| x i h y ! fy ┆
0x30200…30280 UnusedSector ┆ y % "░░ # gX y !( fi y & $ L c %░░ # g6 y y !5 fR y & $ O c y f| y i h' y % ┆
0x30280…30300 UnusedSector ┆ $ 1 y " ░ "░░ f y %░░ $ O c y y % $ 1 y !A y fF y b y y y " ░ $ 1 $ y % ░ % ░ P c %┆
0x30300…30380 UnusedSector ┆ % ░ , $ 1 " ░ z b ░ y x y " ░ $ 1 y " ░ $ 1 y y y % ░ % % ░ , % ░ / $ / g y %┆
0x30380…30400 UnusedSector ┆ ░ $ L c " ░ y $ 1 b! y y % ░ $ K c y y " ░ % ░ 1 y " ░ y $ 1 y y y "░░ " ░ y f %░░ $ L┆
0x30400…30480 UnusedSector ┆ %░░ $ L y ; % ░ $. L ; % ░ $_ L ; c ░ y %░░ $ L c y y % $ , $ 1 y y fD y b? y y % ░ $. ┆
0x30480…30500 UnusedSector ┆ O c y y % $ 1 y !c y fW y b y y y "░░ " ░ f y %░░ $ L c y y " ░ $ 1 y y y " ░ % ░┆
0x30500…30580 UnusedSector ┆ , % ░ 1 y " ░ % ░ $ ? 1 y "░░ " ░ y fi %░░ $ O % ░ $ L ; c ░ y %░░ $ O % ░ $ O ; c y y % $ 1┆
0x30580…30600 UnusedSector ┆ y !z y f y bf y y y % $ 1 y " ░ $ 1 $ y % ░ % ░ P c3 y " ░ # % ░ , \ c y y % $┆
0x30600…30680 UnusedSector ┆ , % ░ $ D 1 y % y $ 1 y " ░ z b ░ y x y % ' 8 c ! y f~ y y y y b: y y %░░ $ L┆
0x30680…30700 UnusedSector ┆ % ░ $# L ; c y y f* y % $ , % $ $░ y f3 y b y ! y f= y y y y y y y i h, ┆
0x30700…30780 UnusedSector ┆ y "░░ " ░ fY y f y % $ 1 y y " ░ $ f y " ░ y y & $ L % ░ ' $- O ; c y ! y f b y┆
0x30780…30800 UnusedSector ┆ y y " ░ $ 1 $ y % ░ % ░ P c % % ░ , % ░ . + % ░ , ' 1 " ░ z b ░ y x y "░░ fY y " ░ $┆
0x30800…30880 UnusedSector ┆ fa y & $ L % ░ ' $ O ; c y ! y f bD y y y░ " ░ $ 1 $ y░ % ░ % ░ P c % + % ░ , % ░ .┆
0x30880…30900 UnusedSector ┆ + % ░ , ' 1 " ░ z b ░ y░ x y % y $ 1 y y y y y x i h, y "░░ " ░ fk y f y % ┆
0x30900…30980 UnusedSector ┆ $ 1 y " ░ $ f y " ░ y y & $ L % ░ ' $ O ; c y ! y f bB y y y " ░ $ 1 $ y % ░ % ░ P c┆
0x30980…30a00 UnusedSector ┆ % % ░ , % ░ . + % ░ , ' 1 " ░ z b ░ y x y % y $ 1 y y y x i h! ' y( % " ░ % ┆
0x30a00…30a80 UnusedSector ┆ fW y) # y* y+ % ░ " ░ ) 2 y, % ░ + y- ! ) 2 x y. & - . + a % $ , @ $ , ? gw 1 y/ #5░ #┆
0x30a80…30b00 UnusedSector ┆3░ # & # gJ y0 & $ O cI y1 &;░ $ L & $ L y2 & $ L ; 9 c* y3 y4 & $ L c y5 ! y6 f/ b y6 ┆
0x30b00…30b80 UnusedSector ┆ ! f' y6 y7 & y8 gu y9 b y9 y: f& y: y: i h E yF % " ░ "░ fH░ yG " $ 1 $? yG % % P c % ┆
0x30b80…30c00 UnusedSector ┆ % , ? " ░ %░ , @ % , ? yH ' 1 " z b ░ yH x i h! Q yR % " ░ "░ f ░ yS " $ 1 $? yS % % ┆
0x30c00…30c80 UnusedSector ┆ P c " ░ %░ , @ % , ? % % , ? ' 1 " z b ░ yS x yT #5░ #3░ # & # gK yU & $ O c yV f y┆
0x30c80…30d00 UnusedSector ┆V i h a yb % yc yd %░░ + % %░░ + ' F , ' % %░░ + ' H ? % f1░ ye % %░░ + ' L c % %░░ + '┆
0x30d00…30d80 UnusedSector ┆ yf $ D 1 b yf % yg $ 1 yg yh x i h p yq % $ 1 yr % ys yt "░░ % % ░ + ' F 1 yu %░░ $ M c ┆
0x30d80…30e00 UnusedSector ┆ yv yw % $ 1 yx !6 yy f yz b^ yz y{ y| % ░ + %░░ , ' $ L c y} % ░ + ' % ░ + %░░ , % f ┆
0x30e00…30e80 UnusedSector ┆ y} y~ % ' 8 c !L y f b y % ░ + %░░ , ' % % ░ + ' H ? % y f y y y y x i h y ┆
0x30e80…30f00 UnusedSector ┆ " $ a % $ g D a $░ % y g ? y $ A 1 i h y % $ L c " y $ = 1 b y " $ % $┆
0x30f00…30f80 UnusedSector ┆ F D % $ H ? y $ ? 1 y i hH ) y y #=░ $ 1 y # $ 1 y # $ 1 y y y # ░ $ , $ , ┆
0x30f80…31000 UnusedSector ┆ y y % ░ $ 1 y % ░ + y $ 1 x y "░░ $ 1 $ y %░░ % ░ P c* # ░ %░░ , $ , y y % ░ $ ┆
0x31000…31080 UnusedSector ┆ 1 y % ░ + y $ 1 x "░░ z b ░ y x y # ░ $ , $ , y y % ░ $ 1 y % ░ + y $ 1 x y "┆
0x31080…31100 UnusedSector ┆░░ $ 1 $ y %░░ % ░ P c* # ░ %░░ , $ , y y % ░ $ 1 y % ░ + y $ 1 x "░░ z b ░ y x y # ░┆
0x31100…31180 UnusedSector ┆ $ , $ , y y % ░ $ 1 y % ░ + y $ 1 x y # ░ $ , $ , y y % ░ $ 1 y % ░ +┆
0x31180…31200 UnusedSector ┆ y $ 1 x y # ░ $ , $ , y y % ░ $ 1 y % ░ + y $ 1 x y " ░ $ 1 y "░░ $ 1 $ y ┆
0x31200…31280 UnusedSector ┆ %░░ % ░ P c2 # ░ %░░ , $ , y y % ░ % ░ 1 y " ░ % ░ 1 y % ░ + y $ 1 x "░░ z b ░ y x y # ░┆
0x31280…31300 UnusedSector ┆ $ , $ , $ 1 y # ░ $ , $ , + $ 1 y # ░ $ , $ , $ 1 y y y # 7┆
0x31300…31380 UnusedSector ┆L y & - y y % ░ + $ 1 y % ░ $ 1 y % ░ . + y $ 1 x y y y # $ , !] 5 y # $┆
0x31380…31400 UnusedSector ┆ , !d 5 y # $ , !k 5 y # $ , !r 5 y # $ , !y 5 y # $ , ! 5┆
0x31400…31480 UnusedSector ┆ y # $ , ! 5 y # $ , ! 5 y # $ , ! 5 y # $ , ! 5 y # $ ,┆
0x31480…31500 UnusedSector ┆ ! 5 y y y # $ , ! 5 y # $ , ! 5 y # $ , ! 5 y # $ , !┆
0x31500…31580 UnusedSector ┆ 5 y # $ , ! 5 y # $ , ! 5 y y y y " ░ ! 5 y " ░ $ , " ░ $ , $┆
0x31580…31600 UnusedSector ┆ gz y " ░ $ , $ 1 " ░ $ , $ 1 " ░ $ , $ 1 " ░ $ , $H 1 " ░ $ , $ 1 y " ░┆
0x31600…31680 UnusedSector ┆ " ░ " ░ g y░ $d % ░ " ░ " ░ g" y % ░ $ O c & g& y y " ░ y y " ░ $ , % ░ $ , $ gz y "┆
0x31680…31700 UnusedSector ┆ ░ ! 5 y " ░ $ , % ░ + $ , $ y gz x y " ░ ! 5 y " ░ " ░ & + # gA y & $ O c ┆
0x31700…31780 UnusedSector ┆ & g& y y & + & + ' 1 y & y y % ░ y y " ░ ! 5 y " ░ $ , % ░ $ , $ gz y " ░┆
0x31780…31800 UnusedSector ┆ ! 5 y " ░ $ , % ░ + $ , $ y gz x y " ░ $ , $ = 1 " ░ $ , $ 1 y % ░ " ░ #┆
0x31800…31880 UnusedSector ┆ gB y & $ O c ! fi y y " ░ y y % ░ $ 1 y % ░ + $ 1 y % ░ + $ 1 y % ░ + $ 1 y " ░ ! ┆
0x31880…31900 UnusedSector ┆ 5 y " ░ $ , % ░ + $ , $ y gz x y % ░ " ░ # g< y! & $ O c & g& y! y" " ░ y# y$ %┆
0x31900…31980 UnusedSector ┆ ░ $ 1 y% % ░ + $ 1 y& % ░ + $ 1 y' % ░ + $ 1 y( " ░ ! 5 y) " ░ $ , % ░ + $ , $ y* g┆
0x31980…31a00 UnusedSector ┆z x y+ % ░ " ░ # g< y, & $ O c & g& y, y- % ░ + ! 5 y. % ░ " ░ + % ░ + # g> y/ & $ O c !┆
0x31a00…31a80 UnusedSector ┆░ fv y/ y0 % ░ % ░ + % ░ + # gA y1 & $ O c ! y2 fU y2 x y3 y4 y5 & + ' $ / # # gW y6 ┆
0x31a80…31b00 UnusedSector ┆ & $ O c & g& y6 y7 & + ' $ / # # gW y8 & $ O c & g& y8 y9 y: y; ! f y< !B y= y> ┆
0x31b00…31b80 UnusedSector ┆ f i h E yF & & + # gX yG & & + # gX yH " ░ $ , $ = 1 " ░ $ , $ 1 yI & " ░ #┆
0x31b80…31c00 UnusedSector ┆ gC yJ & & + # g? yK i h* Z y[ # gt y\ " ░ $ 1 y] y] y^ " ░ !d 5 y_ " ░ $ 1 y` " ░ " ░ f y┆
0x31c00…31c80 UnusedSector ┆a % ░ $ L c " ░ " ░ f ya yb yb % ░ $ L % ░ $ K 9 c& yc yd " ░ % ░ $ ? 1 ye " ░ % ░ , % ░ 1 yf " ░ " ░┆
0x31c80…31d00 UnusedSector ┆ yg f b ░ yg yh % ░ $ O % ░ $ L ; c yi !k yj fL bd yj yk yl " ░ $ 1 ym " ░ $ 1 yn yn yo " ░ " ░ # %┆
0x31d00…31d80 UnusedSector ┆ ░ , \ 1 yp % ░ 8 c+ yq % ░ $ L c yr ys " ░ $ 1 yt ! yu f yv b yv " ░ % ░ yw 1 yw yw % ░ % ░ ;┆
0x31d80…31e00 UnusedSector ┆ c ░ yx yx yy % ░ 8 c ! yz f yz % ░ c ░ y{ f y| " y} % ░ 1 i hb D y " ░ $ 1 y % $ = 1 y y %┆
0x31e00…31e80 UnusedSector ┆ $ 1 y #1░ y y " ░ % ░ ' 1 y y y " ░ % ░ 1 y % ░ " ░ fw y " ░ $ 1 y y y " ░ % ░ , $ , ┆
0x31e80…31f00 UnusedSector ┆ ' $ = L c$ y y % ░ 8 c y y % % ░ 1 y % y % ░ 1 y y y b y y y % $ 1 y " ░ $ 1 $ ┆
0x31f00…31f80 UnusedSector ┆ y % ░ % ░ P c* y % % ░ , ' " ░ % ░ , % ░ , ' O c % $ 1 y " ░ z b ░ y x y % ' % $ ,┆
0x31f80…32000 UnusedSector ┆ ' $ @ H y " ░ % ░ , $ , ' $ @ H L 9 c y y % % ░ 1 y % y % ░ 1 y b y % y $ 1 y ┆
0x32000…32080 UnusedSector ┆ y y % ░ $ L c " ░ $ 1 b y " ░ y $ 1 y % ' % ░ $ L y ; c ░ % ' % ░ % ░ ' % ░ + ' ? N y ; c y ┆
0x32080…32100 UnusedSector ┆ x i h* y % $" 1 y % c y % $ L c % % % % y gA b y gs y y y % $ O c gs y┆
0x32100…32180 UnusedSector ┆ y & + ' % $ , % % gE y % ' $" L cY y y " ░ y y % ░ & + 5 y % ░ + $ 1 y % ░ +┆
0x32180…32200 UnusedSector ┆ y $ 1 x y & " ░ % % g5 y % ' $ L c & + ' % ' % $ , % y gD y y y i h ┆
0x32200…32280 UnusedSector ┆ y " ░ % f0 y % ' c y y % $ 1 y "W░ "V░ f fV y & "U░ " ░ " ░ " ░ "Z░ # gh y & $ O c y &┆
0x32280…32300 UnusedSector ┆ $ L c ! y f_ b y y fN y b y y y " ░ "Y░ " ░ "T░ f y %T░ 8 c ! y f6 bv y y y %Y░ "┆
0x32300…32380 UnusedSector ┆\░ f y % y y %S░ %Y░ 1 %S░ + % ░ 1 y %S░ + "\░ % ░ , $ , ' $ ? y "\░ % ░ , $ , '┆
0x32380…32400 UnusedSector ┆ D $ A 1 y %S░ + "\░ % ░ , $ , ' 1 y %S░ + "\░ % ░ , $ , ' 1 y░ "[░ $ 1 y "X░ $ 1 $┆
0x32400…32480 UnusedSector ┆ y %X░ %R░ P c4 y y %S░ + %X░ , a "\░ % ░ , %[░ , ' f 1 y "[░ %[░ y 1 y "X░ z b ░ y x┆
0x32480…32500 UnusedSector ┆ x y % $ L % + ' $ K y 9 c ! y fN b y y y %U░ / " ░ " ░ " ░ y %Z░ & + ' " ░ # f y┆
0x32500…32580 UnusedSector ┆ & $ O cx y & $ L c ! y f bc y y & y $ L c ! y f░ bL y y & y $ L c ! y f┆
0x32580…32600 UnusedSector ┆ b5 y y & y $" L c !" y f b y y & y $ L c !; y f b y y f y y y y y b y┆
0x32600…32680 UnusedSector ┆ y y % ░ % / % # gW y & $ O c y f b y y y! % $ L cF y" y# y$ y% y& & $ O c3 y┆
0x32680…32700 UnusedSector ┆' & $ L c y( !R y) f[ b y) y* & $ L c y+ !k y, f) b y, y- fC y- y- y- y- y. & $ L cN y/ ┆
0x32700…32780 UnusedSector ┆ y0 ! f y1 "W░ "V░ fU y2 %W░ $ L c "W░ "V░ fF y2 y3 %W░ $Y L %W░ $N L ; c % y4 $ 1 b y4 ! f y4 y┆
0x32780…32800 UnusedSector ┆5 % %W░ y6 $Y L 1 y6 y7 % ' 8 c % ' y8 f y8 y9 y9 y: y: y; y; y< y< y= y= y> y> i h H yI #5░┆
0x32800…32880 UnusedSector ┆ "~░ fz yJ %~░ c yK yL #3░ "~░ fX yM %~░ c yN yO $ " ░ fz yP " ░ $ , ? ' $ H $ O c #=░ yQ $ 1 b ┆
0x32880…32900 UnusedSector ┆ yQ yR yS yT " ░ $ 1 $? yT % ░ %}░ P c #>░ % ░ , " ░ % ░ , ? ' 1 " ░ z b ░ yT x yU $ " ░ f# yV " ░ $┆
0x32900…32980 UnusedSector ┆ 1 $= yV % ░ %}░ P c #>░ % ░ $@ ? , " ░ % ░ , ? ' 1 " ░ z b ░ yV x yW yX yY $ " ░ f yZ " ░ $ , ┆
0x32980…32a00 UnusedSector ┆ $ , ' $ @ H y[ $ O c #=░ y\ $ 1 b; y\ #1░ y] y^ %}░ a " ░ $ , $ , ' fB 1 y_ %}░ + "┆
0x32a00…32a80 UnusedSector ┆ ░ $ , $ , y` ' 1 ya x ya yb yb yc yc yd yd i h$ p yq " " $ $d f` yr % c= ys yt y┆
0x32a80…32b00 UnusedSector ┆u " $ 1 $} yu % % P c #>░ % , $░░ 1 " z b ░ yu x yv #>░ $ , $ ░ 1 yw yx % $ ? $ F #1░┆
0x32b00…32b80 UnusedSector ┆ " f yy yz " $ 1 $ yz % % P c? " $ 1 $? yz % % P c& y{ " ░ % , @ % , ? #>░ $@ % D %┆
0x32b80…32c00 UnusedSector ┆ ? , ' 1 " z b ░ y{ x " z b ░ y{ x y| y} y~ "░ $ 1 $ y~ %░ % P c " ░ $ , %░ , $ ┆
0x32c00…32c80 UnusedSector ┆ 1 "░ z b ░ y~ x y " ░ $ , $ , $ 1 y " ░ $ , $ , % $ ? $ F 1 y " ░ $ , ┆
0x32c80…32d00 UnusedSector ┆ $ , $ 1 y " ░ $ , $ , " ░ $ , $ , ' $ A 1 y " ░ $ , $ , % $ ┆
0x32d00…32d80 UnusedSector ┆ ? $ F 1 y " ░ $ , $ , a #1░ ' f 1 y "░ $ 1 $ y %░ % P c " ░ $ , %░ , $ =┆
0x32d80…32e00 UnusedSector ┆ 1 "░ z b ░ y x y y y #1░ + " ░ $ , $ , ' 1 y y y " ░ $ , $ , $ = 1 y y ┆
0x32e00…32e80 UnusedSector ┆ $ " ░ f y $ " ░ $ , @ f y $ " ░ $ , @ f y $ " ░ f y y y " ░ $ , $ , $ ┆
0x32e80…32f00 UnusedSector ┆ = 1 y #1░ y " % ' 1 % ' % + ' ? y % % P c y % " ░ f{ " z b ░ y x x y y y i hi K y┆
0x32f00…32f80 UnusedSector ┆ " ░ " ░ f y % ░ c " ░ " ░ $ y $ $ A #1░ + ' A f y y % ░ c " ░ " ░ $ % ░ f y y % ░ cE y % ░┆
0x32f80…33000 UnusedSector ┆ % ░ H $ O c y ! y f b- y y y " ░ " ░ " ░ " ░ f y % ░ c ! y f b y y % ░ $ = L c ! y ┆
0x33000…33080 UnusedSector ┆ f b y y y % ░ " ░ f y " ░ $ 1 $ y % ░ % ░ P c " ░ % ░ , % ░ , " ░ % ░ , ' 1 " ░ z b ░ y┆
0x33080…33100 UnusedSector ┆ x y " ░ $ 1 $ y % ░ % ░ P c " ░ % ░ , % ░ , $ 1 " ░ z b ░ y x y " ░ % ░ , $ , %┆
0x33100…33180 UnusedSector ┆ ░ 1 y " ░ % ░ , $ , % ░ 1 y " ░ % ░ , $ , $ = 1 y " ░ % ░ , $ , % ░ % ░ F 1 y┆
0x33180…33200 UnusedSector ┆ " ░ $ 1 $ y % ░ % ░ P c " ░ % ░ , % ░ , $ = 1 " ░ z b ░ y x y % ░ " ░ f y y y y y y ┆
0x33200…33280 UnusedSector ┆ y i hi K y " ░ " ░ f( y % ░ c y y " ░ " ░ " ░ " ░ f y % ░ 8 c ! y fz b y y y % ░ " ░ f_ y┆
0x33280…33300 UnusedSector ┆ y y " ░ $ 1 y y % ░ $ P " ░ % ░ , % ░ , ' $ = O 9 cn y y " ░ a " ░ % ░ , % ░ , '┆
0x33300…33380 UnusedSector ┆ f 1 y " ░ % ░ 1 % ░ y " ░ % ░ , $ , ' ? $ A y % ░ % ░ P c y #>░ % ░ $ F , % ░ $ H / g┆
0x33380…33400 UnusedSector ┆ " ░ z b ░ y x y " ░ % ░ y 1 bw░ y y y y " ░ % ░ , $ , $ = 1 y y % ░ " ░ f y y y ┆
0x33400…33480 UnusedSector ┆ y y i hk M y " ░ " ░ f& y % ░ c y y " ░ " ░ f y % ░ c y y " ░ " ░ " ░ " ░ f y % ░ c ! y ┆
0x33480…33500 UnusedSector ┆ fi bq y y y " ░ " ░ " ░ " ░ f y % ░ 8 c !" y░ fJ bN y░ y y % ░ " ░ f/ y " ░ $ 1 $ y % ░ % ░ P c┆
0x33500…33580 UnusedSector ┆ y " ░ % ░ , % ░ , " ░ % ░ , ' 1 " ░ z b ░ y x y % ░ " ░ y f5 y y y y y y y y i h┆
0x33580…33600 UnusedSector ┆u U y y #5░ $ , " ░ $ , $ g{ y #5░ + $ , " ░ $ , $ g{ y !< f y " ░ $ ┆
0x33600…33680 UnusedSector ┆ fT y $- f y " ░ $ fF y #3░ $ , " ░ $ , $ g{ y !a fM y " ░ $ f" y !n f? y! ! f9 ┆
0x33680…33700 UnusedSector ┆ y" ! f3 y# y$ #1░ y% y& " ░ % ░ ' 1 % ░ ' % ░ + ' ? y& % ░ % ░ P cr y' y( % ░ " ░ f, y) " ░ $ 1 $ y) % ░ %┆
0x33700…33780 UnusedSector ┆ ░ P cK y* y+ " ░ % ░ , $ , ' $ = O c) y, y- " ░ $ 1 $ y- % ░ % ░ P c6 y. y/ " ░ % ░ , % ░ ,┆
0x33780…33800 UnusedSector ┆ ' $ H f y0 " ░ % ░ , % ░ , ' $ F y1 f " ░ z b ░ y1 x y2 " ░ " ░ % ░ , $ , ' $ @ H┆
0x33800…33880 UnusedSector ┆ 1 y3 % ░ $ L c ! y4 fi bM y4 y5 y6 $. f y7 " ░ % ░ $ F 1 y8 % ░ $ P % ░ $ H $ L 9 c y9 y: # % ░┆
0x33880…33900 UnusedSector ┆ , $ f y; ! y< f) y= b y= % ░ y> f y> y> y? " ░ " ░ % ░ , $ , ' $ ? y@ " ░ % ░ , ┆
0x33900…33980 UnusedSector ┆ $ , ' D 1 yA % ░ $ fv yB " ░ % ░ , $ , ' $ fa yC " ░ % ░ , $ , ' $ fL yD ! y┆
0x33980…33a00 UnusedSector ┆E f yF yF yG " ░ z b yG x yH " ░ z b yH x x yI " ░ $ 1 yJ " ░ $ 1 $ yJ % ░ % ░ P c yK a % ░ f} ┆
0x33a00…33a80 UnusedSector ┆ 8 c " ░ % ░ 1 yK " ░ z b ░ yK x yL ! f_ yM % ░ $ f yN ! fQ yO % ░ ! ) E ! ) G $ f yP ! yQ ┆
0x33a80…33b00 UnusedSector ┆ f7 i h b yc "|░ "f░ f yd %f░ c ye yf "h░ "g░ f yg f yh %g░ $ L %h░ $# L ; c@ yi yj "`░ "f░ $ $░ f┆
0x33b00…33b80 UnusedSector ┆ yk %f░ c "b░ "f░ $ $░ f yk yl %f░ c "a░ "f░ $ $░ f yl ym "e░ yn $ 1 yo b yo "e░ $ 1 yo yp %f░ c┆
0x33b80…33c00 UnusedSector ┆ yq yr "|░ "d░ "i░ "f░ f ys %f░ 8 c ! yt f bd yt yu yv %d░ " ░ f yw " ░ %i░ , $ , ' $ O c ┆
0x33c00…33c80 UnusedSector ┆ yx ! yy f b4 yy yz y{ " ░ $ , $ , " ░ %i░ , $ , ' 1 y| " ░ $ , $ , " ░┆
0x33c80…33d00 UnusedSector ┆ %i░ , $ , ' 1 y} " ░ $ , $ , " ░ %i░ , $ , ' 1 y~ " ░ $ , $ , " ░┆
0x33d00…33d80 UnusedSector ┆ %i░ , $ , ' 1 y "z░ $ 1 y "{░ $ 1 $ y %{░ %]░ P c2 y y " ░ $ , %{░ , " ░ %i░ , ┆
0x33d80…33e00 UnusedSector ┆ %z░ , ' 1 y "z░ %z░ y 1 "{░ z b ░ y x y %e░ cA y y "`░ " ░ %i░ , $ , ' 1 y "a░ " ░ %i░┆
0x33e00…33e80 UnusedSector ┆ , $ , ' 1 y "b░ " ░ %i░ , $ , y ' 1 y y " ░ $ , $ , %`░ 1 y " ░ $ , ┆
0x33e80…33f00 UnusedSector ┆ $ , %a░ 1 y " ░ $ , $ , %b░ 1 y " ░ $ , $ , $@ " ░ $ , $ , ' $ ┆
0x33f00…33f80 UnusedSector ┆ ? D 1 y y y "j░ $ 1 y "k░ y y %]░ + " ░ $ , $ , ' 1 y %]░ + " ░ $ , $ , ' 1┆
0x33f80…34000 UnusedSector ┆ y %]░ + $@ 1 y "{░ $ 1 y "^░ $ 1 $ y %^░ %\░ P c4 y y %]░ + %^░ , a " ░ $ , %{░ , ┆
0x34000…34080 UnusedSector ┆ ' f7 1 y "{░ %{░ y 1 y "^░ z b ░ y x x y "_░ $ 1 " ░ $ , $ , ' y %_░ %]░ P cf y y %_░┆
0x34080…34100 UnusedSector ┆ " ░ "c░ "k░ f y "i░ $ 1 $ y %i░ %\░ P c= y "z░ $ 1 $ y %z░ %[░ P c" y "j░ a %j░ " ░ %i░ , %z░ , ┆
0x34100…34180 UnusedSector ┆ ' y g 1 "z░ z b ░ y x "i░ z b ░ y x "_░ z b ░ y x y " ░ $ , $ , %j░ 1 y y y "j░ $ ┆
0x34180…34200 UnusedSector ┆ 1 y "{░ $ 1 $ y %{░ %]░ P c y "j░ a %j░ " ░ $ , %{░ , ' g 1 "{░ z b ░ y x y " ░ $ , ┆
0x34200…34280 UnusedSector ┆ $ , %j░ 1 y y $ " ░ f y !6 f` y %`░ f y !X fT %b░ f y !` fJ %a░ f y !h y f> y y y┆
0x34280…34300 UnusedSector ┆ y y y y y i hv W y $ / " ░ " ░ " ░ " ░ f y % ░ c/ y y " ░ $ 1 y y y % ░ " ░ " ░ " ░ f┆
0x34300…34380 UnusedSector ┆ y % ░ c y y " ░ $ 1 y y y " ░ a " ░ % ░ $ F , ? ' $ % ░ $ H y D $ ? / $ / g 1 y ┆
0x34380…34400 UnusedSector ┆ % ░ $ N c+ y " ░ $ 1 % ░ $ A y % ░ % ░ P c % ░ $ " ░ y fY " ░ z b ░ y x b3 y y % ░ $ / L c y┆
0x34400…34480 UnusedSector ┆ y " ░ + % ░ 1 y " ░ y % ░ 1 y b y % ░ % ░ " ░ f y y y " ░ % ░ 1 y % ░ % ░ N % ░ 8 y ; cW░ y b3 ┆
0x34480…34500 UnusedSector ┆ y y y % ░ " ░ $ , ? " ░ # ga y & $ O c y y fg y " ░ y $ 1 y y y y " ░ % ░ y 1 % ░┆
0x34500…34580 UnusedSector ┆ 8 % ░ " ░ + ' M ; c y % ░ y fb y y i h y $ / " ░ " ░ "j░ "i░ fM y %i░ c. y y "h░ $ 1 y ┆
0x34580…34600 UnusedSector ┆ "n░ $ 1 y "g░ $ 1 y░ "m░ $ = 1 y y y %j░ c y y "n░ $ 1 y y %n░ $ K %e░ $ L 9 c y y %g░ $ ┆
0x34600…34680 UnusedSector ┆ M c y y "g░ %f░ 1 y "e░ y %d░ 1 y b y % ░ "g░ "e░ g[ y y %e░ $ O %e░ $ O 9 c %e░ y f b y y ┆
0x34680…34700 UnusedSector ┆ y %e░ $ L c "g░ $ / 1 y y %g░ $ N c y y !j fG y "e░ y $ 1 y bz y y y %g░ $ L c9 y ┆
0x34700…34780 UnusedSector ┆ y "g░ $ 1 y y y "g░ %g░ 1 y % ░ "f░ "d░ y g[ %f░ $ O %g░ $░ L y ; %d░ $ O y ; c ░ y y %g░ "p░ %n░┆
0x34780…34800 UnusedSector ┆ $ F , ? y! $ %n░ $ H D $ ? / $ / g y" "n░ %n░ y# 1 y$ y$ y% y% y& b y& y' b. y' y( y) ┆
0x34800…34880 UnusedSector ┆ % ░ "p░ $ , ? "n░ "e░ g^ y* %e░ $ O %e░ $ O 9 c %e░ y+ f y+ y+ y, %e░ $ L %j░ ; c y- y. "m░ %m░ 1 y┆
0x34880…34900 UnusedSector ┆/ %m░ "p░ " ░ "h░ y0 fL y1 y1 %n░ $ K %e░ $ O ; %h░ 8 ; cu y2 %h░ 8 c y3 y4 "n░ $ 1 y5 "m░ %m░ y6 1 y6 y7 ┆
0x34900…34980 UnusedSector ┆ " ░ y8 y9 %c░ ' " ░ f y: " ░ %c░ + ' , $ , a %m░ y; " ░ %c░ + ' , $ , ' f 1 y< " ░ %┆
0x34980…34a00 UnusedSector ┆c░ + ' , $ , %n░ $ F $@ %m░ y= " ░ %c░ + ' , $ , ' H D ? 1 y> "o░ $ 1 y? "l░ $ 1 $ y┆
0x34a00…34a80 UnusedSector ┆? %l░ %b░ P c y@ yA %l░ a %m░ %c░ + ' f+ M yB %c░ + %l░ , ' $ O 9 ca yC yD "k░ %c░ + %l░ , ' 1 %┆
0x34a80…34b00 UnusedSector ┆c░ + %l░ , ' %c░ + ' ? $ A yD %k░ %a░ P c yE #>░ %k░ $ F , %k░ $ H / g "k░ z b ░ yE x yF %c░┆
0x34b00…34b80 UnusedSector ┆ + %l░ , yG $ 1 yG yH " ░ %c░ + ' , %o░ , a %c░ + %l░ , ' f 1 yI "o░ %o░ yJ 1 "l░ z b┆
0x34b80…34c00 UnusedSector ┆?░ yJ x yK %c░ ' " ░ yL f x yM ! f yN % ░ yO f yP yP i h X yY " ░ $ 1 $ yY % ░ %}░ P cV yZ y[ ┆
0x34c00…34c80 UnusedSector ┆ "~░ $ 1 $? y[ %~░ %|░ P c$ " ░ % ░ , @ %~░ , ? #>░ $@ % ░ D %~░ ? , ' 1 "~░ z b ░ y[ x y\ % ░ $ ? " ░┆
0x34c80…34d00 UnusedSector ┆ % ░ , @ y] f y^ " ░ z b ░ y^ x i j b Y < e< yc f2 yd yd ye #<░ &=░ 1 yf #;░ a f_ 1 yg # gt yh # ░ &┆
0x34d00…34d80 UnusedSector ┆;░ , &=░ , yi yj #=░ % + ' 1 yk % ' bn yl yl fT bx ym ym fy bp yn yn f bh yo yo fH b` yp ┆
0x34d80…34e00 UnusedSector ┆ yp fB bX yq yq f bP yr yr fp bH ys ys fq b@ yt yt f b8 yu yu f b0 yv yv # $ 1 b% yw yw b y┆
0x34e00…34e80 UnusedSector ┆x yx ! yy f b yy d ░ ░ ░ ░ ░ ░ ░ ░ ░ ░ ░ ░ ░ yy yz x y{ ! y| fN & c5░ y} y~ fO k ┆
0x34e80…34f00 UnusedSector ┆ ░░ d h ┆
0x34f00…34f80 UnusedSector ┆ ░░ E R R O R : I / O E R R O R I N F I L ┆
0x34f80…35000 UnusedSector ┆E C O M P L E T I O N C O D E = C O N T I N U E ? C A N N O T D E M O U N T - B I T M A P M A Y B ┆
0x35000…35080 UnusedSector ┆E I N V A L I D A M O S F I L E P R O T E C T I O N C U R R E N T I N P U T A M O S S Y S T E M O N E A M ┆
0x35080…35100 UnusedSector ┆O S D I S K F U L L A M O S F I L E F U L L F I L E I S N O T W R I T E A B L E F I L E I S N O T R E ┆
0x35100…35180 UnusedSector ┆A D A B L E B A D I N T E G E R F O R M A T I L L E G A L I N T E G E R P A R A M E T E R D I S C O N N E C T I N ┆
0x35180…35200 UnusedSector ┆G D I S M A N T L I N G D I S M A N T L E D F I L E N A M E M U S T B E G I N W I T H A L E T T E R B A ┆
0x35200…35280 UnusedSector ┆D S Y N T A X I N F I L E N A M E B A D F I L E T Y P E S Y N T A X U N K N O W N F I L E T Y P E B A D ┆
0x35280…35300 UnusedSector ┆F I L E T Y P E S Y N T A X B A D S Y N T A X I N D R I V E R N A M E B A D S Y N T A X I N G R O U P N ┆
0x35300…35380 UnusedSector ┆A M E B A D S Y N T A X I N D E V I C E N A M E N O S U C H F I L E S Y S T E M E X I S T S N O S U ┆
0x35380…35400 UnusedSector ┆C H D E V I C E E X I S T S S Y S T E M 1 F I L E I S F U L L D I S K E T T E I S F U L L M O U N T I ┆
0x35400…35480 UnusedSector ┆N I T C R E A T E R E M O V E R E N A M E L I S T B O O T R E A D W R I T E D E M O U N T Q U ┆
0x35480…35500 UnusedSector ┆I T D A T T X T B I N O B J W R K C A T T T Y 0 0 0 I N T R D M A 0 0 0 F I L E C A N N O T U S ┆
0x35500…35580 UnusedSector ┆E R O N F D 0 0 0 0 F D 0 1 0 0 V C A N N O T M O U N T C A N N O T G E T R O O T S Y S T E M ┆
0x35580…35600 UnusedSector ┆ O N E / A M O S F I L E C O N V E R S I O N P R O G R A M ( V E R S I O N 1 , 2 7 / 8 / 7 9 ) ┆
0x35600…35680 UnusedSector ┆ B A D S Y N T A X I N C O M M A N D N A M E U N K N O W N C O M M A N D # B A D S Y N A T X I ┆
0x35680…35700 UnusedSector ┆N F I L E I D S Y S T E M 1 F I L E D O E S N O T E X I S T S Y S T E M 1 F I L E I S E M P T Y B A ┆
0x35700…35780 UnusedSector ┆D D I R E C T O R Y N O S U C H F I L E S Y S T E M E X I S T S N O S U C H V O L U M E E X I S T S A M O ┆
0x35780…35800 UnusedSector ┆S F I L E D O E S N O T E X I S T F I L E I S N O T A C C E S S I B L E A M O S F I L E I S A D I R E ┆
0x35800…35880 UnusedSector ┆C T O R Y F I L E I S N O T R E S E T A B L E I S I T A T E X T F I L E ? ( Y O R N ) : I N V A ┆
0x35880…35900 UnusedSector ┆L I D I N P U T I N C O M P A T I B L E A R E A A N D B L O C K S I Z E F I L E A L R E A D Y E X I S T S C ┆
0x35900…35980 UnusedSector ┆A T A L O G U E I S F U L L F I L E N O T P R E S E N T S E C O N D F I L E A L R E A D Y E X I S T S F I R ┆
0x35980…35a00 UnusedSector ┆S T F I L E D O E S N O T E X I S T L I S T I N G O F T H E F I L E S I N F I L E S Y S T E M , O N ┆
0x35a00…35a80 UnusedSector ┆ D E V I C E F I L E N A M E S I Z E A R E A S I Z E B L O C K S I Z E - - - - - - - - - ┆
0x35a80…35b00 UnusedSector ┆ - - - - - - - - - - - - - - - - - - - - - N U M B E R O F S E C T O R S A L L ┆
0x35b00…35b80 UnusedSector ┆O C A T E D = , E Q U A L T O d % F I L E N O T P R E S E N T I L L E G A L B O O T E N T R Y ┆
0x35b80…35c00 UnusedSector ┆- B L O C K S I Z E < > 1 B O O T E N T R Y G E N E R A T E D W I T H F I R S T = B A S E = P A G ┆
0x35c00…35c80 UnusedSector ┆E = I L L E G A L C H A R A C T E R I N T E X T F I L E C I L L E G A L C O M M A N D # - - - ┆
0x35c80…35d00 UnusedSector ┆_ADDR + SECTR[ENTRY_POSN,EAREASIZE] - 1 DO CLEARBIT(BIT_MAP[S DIV 16], S MOD 16); EAREA := SUCC(EAREA) END; "MARK THE FILE┆
0x35d00…35d80 UnusedSector ┆'S ENTRY AS UNUSED" SECTR[ENTRY_POSN,ENAME1] := -1; WRITE_SECTOR(SECT_NUMB, SECTR); END END END; "OF REMOVE" PROCEDURE R┆
0x35d80…35e00 UnusedSector ┆ENAME; VAR SECTR : ARRAY[SYS_1_ENTRY_POSN] OF ENTRY; OLD_NAME, NEW_NAME : SYS_1_FILENAME; EF : ENTRY_FIELD; ENTRY_POSN : SY┆
0x35e00…35e80 UnusedSector ┆S_1_ENTRY_POSN; I, SECT_NUMB : INTEGER; GOOD_NAME, FOUND : BOOLEAN; BEGIN READ_SYS_1_FILENAME(OLD_NAME, GOOD_NAME); IF GOO┆
0x35e80…35f00 UnusedSector ┆D_NAME THEN BEGIN READ_SYS_1_FILENAME(NEW_NAME, GOOD_NAME); IF GOOD_NAME THEN BEGIN SEARCH(NEW_NAME, SECT_NUMB, ENTRY_POSN,┆
0x35f00…35f80 UnusedSector ┆ FOUND); IF FOUND THEN ERROR('SECOND FILE ALREADY EXISTS(:0:)') ELSE BEGIN SEARCH(OLD_NAME, SECT_NUMB, ENTRY_POSN, FOUND); ┆
0x35f80…36000 UnusedSector ┆IF NOT FOUND THEN ERROR('FIRST FILE DOES NOT EXIST(:0:)') ELSE BEGIN READ_SECTOR(SECT_NUMB, SECTR); I := 0; FOR EF := ENAME┆
0x36000…36080 UnusedSector ┆1 TO ENAME3 DO BEGIN I := I + 1; SECTR[ENTRY_POSN,EF] := INT(NEW_NAME.NAME[I]) END; SECTR[ENTRY_POSN,EIDENT] := NEW_NAME.ID┆
0x36080…36100 UnusedSector ┆ENT; WRITE_SECTOR(SECT_NUMB, SECTR) END END END END END; "OF RENAME" PROCEDURE LIST; VAR SECTR : ARRAY[SYS_1_ENTRY_POS┆
0x36100…36180 UnusedSector ┆N] OF ENTRY; DRIVE_NAME : NAME; G_NAME, DEV_NAME : ARRAY[0..3] OF CHAR; CURRENT_ENTRY : SYS_1_ENTRY_POSN; EF : ENTRY_FIELD; ┆
0x36180…36200 UnusedSector ┆ CH : BYTE; CURRENT_SECTOR, START, LIMIT, SIZE, USED_SECTORS, TEMP : INTEGER; BEGIN "PRINT HEADINGS" UNPACK(FSN.PNAME.NAME[┆
0x36200…36280 UnusedSector ┆0], DRIVE_NAME[0], 6); UNPACK(FSN.GNAME[0], G_NAME[0], 4); WRITELN(' (:0:)'); WRITETXT('LISTING OF THE FILES IN FILE SYSTEM (┆
0x36280…36300 UnusedSector ┆:0:)'); WRITESTR(DRIVE_NAME, 6); WRITECH('-'); WRITESTR(G_NAME, 4); UNPACK(DEVICE[0], DEV_NAME[0], 4); WRITETXT(', ON DEVIC┆
0x36300…36380 UnusedSector ┆E (:0:)'); WRITESTR(DEV_NAME, 4); WRITELN(' (:0:)'); WRITELN(' (:0:)'); WRITELN('FILE NAME SIZE AREASIZE BLOCKSIZE(:0:)'); W┆
0x36380…36400 UnusedSector ┆RITELN('--------- ---- -------- ---------(:0:)'); WITH MAIN_ENTRY DO BEGIN FOR CURRENT_SECTOR := MSTART TO MSTART + MHIBLOCK┆
0x36400…36480 UnusedSector ┆ DO BEGIN READ_SECTOR(CURRENT_SECTOR, SECTR); FOR CURRENT_ENTRY := 0 TO 1 DO BEGIN IF SECTR[CURRENT_ENTRY,ENAME1] <> -1 THE┆
0x36480…36500 UnusedSector ┆N BEGIN FOR EF := ENAME1 TO ENAME3 DO BEGIN CH := SECTR[CURRENT_ENTRY,EF] DIV 256; WRITECH(CH); CH := SECTR[CURRENT_ENTRY,┆
0x36500…36580 UnusedSector ┆EF] MOD 256; WRITECH(CH) END; TEMP := (SECTR[CURRENT_ENTRY,EIDENT] MOD #4000) DIV #0100; IF TEMP = 0 THEN WRITETXT(' (:0:)')┆
0x36580…36600 UnusedSector ┆ ELSE BEGIN WRITECH('.'); WRITESTR(F_TYPE_TABLE[TEMP], 3) END; SIZE := (SECTR[CURRENT_ENTRY,EHIBLOCK] + 1) * SECTR[CURREN┆
0x36600…36680 UnusedSector ┆T_ENTRY,ESEGMENTS]; WRITEINT(SIZE, 6); WRITEINT(SECTR[CURRENT_ENTRY,EAREASIZE], 8); WRITEINT(SECTR[CURRENT_ENTRY,ESEGMENTS], ┆
0x36680…36700 UnusedSector ┆10) END END END; USED_SECTORS := 0; FOR CURRENT_SECTOR := 0 TO 2001 DO IF TESTBIT(BIT_MAP[CURRENT_SECTOR DIV 16], CURRENT_┆
0x36700…36780 UnusedSector ┆SECTOR MOD 16) THEN USED_SECTORS := SUCC(USED_SECTORS); WRITELN(' (:0:)'); WRITETXT('NUMBER OF SECTORS ALLOCATED =(:0:)'); WR┆
0x36780…36800 UnusedSector ┆ITEINT(USED_SECTORS, 5); WRITETXT(', EQUAL TO(:0:)'); WRITEINT(USED_SECTORS * 100 DIV 2002, 3); WRITELN('%(:0:)') END END; ┆
0x36800…36880 UnusedSector ┆"OF LIST" PROCEDURE BOOT; VAR BOOT_SECTOR : ARRAY[SYS_1_ENTRY_POSN] OF BOOT_ENTRY; SECTR : ARRAY[SYS_1_ENTRY_POSN] OF ENTRY┆
0x36880…36900 UnusedSector ┆; FILENAME : SYS_1_FILENAME; BEF : BOOT_E_FIELD; EF : ENTRY_FIELD; AREA_INF : AREA_INFORMATION; CHECKSUM : LONG_INTEGER; E┆
0x36900…36980 UnusedSector ┆_POSN : SYS_1_ENTRY_POSN; CH : CHAR; CH_TYPE : CHAR_TYPE; OK, DEFAULT : BOOLEAN; ENTRY_SECT, REC_LENGTH, BASE, PAGE, START, S┆
0x36980…36a00 UnusedSector ┆ECT_NUMB, I : INTEGER; BEGIN READ_SYS_1_FILENAME(FILENAME, OK); IF OK THEN BEGIN SKIP_BLANKS(CH, CH_TYPE); BACK_SPACE; I┆
0x36a00…36a80 UnusedSector ┆F (CH_TYPE = TDIGIT) OR (CH = '#') THEN BEGIN READINT(START, OK, #8000, #7FFF); IF OK THEN READINT(BASE, OK, #8000, #7FFF); ┆
0x36a80…36b00 UnusedSector ┆IF OK THEN READINT(PAGE, OK, #8000, #7FFF); DEFAULT := FALSE END ELSE DEFAULT := TRUE; IF OK THEN BEGIN SEARCH(FILENAME, E┆
0x36b00…36b80 UnusedSector ┆NTRY_SECT, E_POSN, OK); IF NOT OK THEN ERROR('FILE NOT PRESENT(:0:)') ELSE BEGIN READ_SECTOR(ENTRY_SECT, SECTR); IF SECTR[E┆
0x36b80…36c00 UnusedSector ┆_POSN,ESEGMENTS] <> 1 THEN ERROR('ILLEGAL BOOT ENTRY - BLOCKSIZE <> 1(:0:)') ELSE BEGIN BOOT_SECTOR[0,BAREASIZE] := SECTR[E_┆
0x36c00…36c80 UnusedSector ┆POSN,EAREASIZE]; BOOT_SECTOR[0,BSEGMENTS] := SECTR[E_POSN,ESEGMENTS]; BOOT_SECTOR[0,BHIBLOCK] := SECTR[E_POSN,EHIBLOCK]; BOOT┆
0x36c80…36d00 UnusedSector ┆_SECTOR[0,BBLOCKING] := SECTR[E_POSN,EBLOCKING]; EF := EAREA1; FOR BEF := BAREA1 TO BAREA10 DO BEGIN BOOT_SECTOR[0,BEF] := S┆
0x36d00…36d80 UnusedSector ┆ECTR[E_POSN,EF]; EF := SUCC(EF) END; IF DEFAULT THEN BEGIN START := SECTR[E_POSN, EFIRST]; PAGE := SECTR[E_POSN, EPAGE]; ┆
0x36d80…36e00 UnusedSector ┆BASE := SECTR[E_POSN,EBASE] END; BOOT_SECTOR[0,BFIRST] := START; BOOT_SECTOR[0,BPAGE] := PAGE; BOOT_SECTOR[0,BBASE] := BASE;┆
0x36e00…36e80 UnusedSector ┆ BOOT_SECTOR[0,BWORDCOUNT] := 64 * (BOOT_SECTOR[0,BHIBLOCK] + 1); CHECKSUM := 0L; "COMPUTE CHECK SUM OF DISK FILE" WITH ARE┆
0x36e80…36f00 UnusedSector ┆A_INF DO BEGIN SIZE := BOOT_SECTOR[0,BHIBLOCK]; A_SIZE := BOOT_SECTOR[0,BAREASIZE]; CH_COUNT := 64; BEF := BAREA1; FOR I:=┆
0x36f00…36f80 UnusedSector ┆0 TO 9 DO BEGIN AREAS[I] := LOG_SECT_NUMB(BOOT_SECTOR[0,BEF]); BEF := SUCC(BEF) END END; FOR SECT_NUMB := 0 TO BOOT_SECTOR┆
0x36f80…37000 UnusedSector ┆[0,BHIBLOCK] DO BEGIN "UPDATE CHECKSUM WITH NEXT SECTOR" GET_SECTOR(SECT_NUMB, SECTR, REC_LENGTH, AREA_INF); FOR E_POSN := 0 ┆
0x37000…37080 UnusedSector ┆TO 1 DO BEGIN EF := ENAME1; FOR I:=1 TO REC_LENGTH DIV 2 DO BEGIN CHECKSUM := (CHECKSUM+LONG(SECTR[E_POSN,EF])) / 32768L; ┆
0x37080…37100 UnusedSector ┆IF EF <> EDUMMY THEN EF := SUCC(EF) END END END; BOOT_SECTOR[0,BFILECHECK] := SHORT(CHECKSUM); "COMPUTE CHECKSUM OF BOOT E┆
0x37100…37180 UnusedSector ┆NTRY" CHECKSUM := 0L; FOR BEF := BAREASIZE TO BFILECHECK DO CHECKSUM := CHECKSUM + LONG(BOOT_SECTOR[0,BEF]); BOOT_SECTOR[0,B┆
0x37180…37200 UnusedSector ┆ENTRYCHECK] := SHORT(CHECKSUM / 32768L); WRITE_SECTOR(B_E, BOOT_SECTOR); WRITETXT('BOOT ENTRY GENERATED WITH FIRST=(:0:)'); ┆
0x37200…37280 UnusedSector ┆WRITEHEX(START); WRITETXT(' PAGE=(:0:)'); WRITEHEX(PAGE); WRITETXT(' BASE=(:0:)'); WRITEHEX(BASE); WRITELN(' (:0:)') END EN┆
0x37280…37300 UnusedSector ┆D END END END; "OF BOOT" PROCEDURE READ; VAR AREA_INF : AREA_INFORMATION; F_STREAM : STREAM; SECTR : SECTOR; CURRENT_S┆
0x37300…37380 UnusedSector ┆ECT, REC_LENGTH, COUNT1, I : INTEGER; TEXT_FILE, OK : BOOLEAN; CURRENT_BYTE : BYTE; BEGIN GET_FILENAMES(OUTPUT_MODE, AREA_I┆
0x37380…37400 UnusedSector ┆NF, F_STREAM, TEXT_FILE, OK); IF OK THEN BEGIN CURRENT_SECT := 0; REPEAT GET_SECTOR(CURRENT_SECT, SECTR, REC_LENGTH, AREA_I┆
0x37400…37480 UnusedSector ┆NF); IF TEXT_FILE THEN BEGIN COUNT1 := -1; REPEAT COUNT1 := SUCC(COUNT1); CURRENT_BYTE := GETBITS(SECTR[COUNT1 DIV 2], 8*(┆
0x37480…37500 UnusedSector ┆COUNT1 MOD 2) + 7, 8); IF CURRENT_BYTE >= #80 THEN FOR I:=1 TO CURRENT_BYTE-#80 DO WRITE_BYTE(F_STREAM, ' ', OK) ELSE IF CU┆
0x37500…37580 UnusedSector ┆RRENT_BYTE = ORD(EM) THEN AREA_INF.SIZE := CURRENT_SECT ELSE WRITE_BYTE(F_STREAM, CURRENT_BYTE, OK) UNTIL (COUNT1 = REC_LENGTH┆
0x37580…37600 UnusedSector ┆-1) OR (NOT OK) OR (CURRENT_SECT = AREA_INF.SIZE) END ELSE BEGIN OUTREC(F_STREAM, SECTR[0], REC_LENGTH, CC); IF CC <> 0 TH┆
0x37600…37680 UnusedSector ┆EN BEGIN CCERROR_R; OK := FALSE END END; CURRENT_SECT := SUCC(CURRENT_SECT) UNTIL (NOT OK) OR (CURRENT_SECT > AREA_INF.SI┆
0x37680…37700 UnusedSector ┆ZE); CLOSE(F_STREAM) END END; "OF READ" PROCEDURE WRITE; VAR AREA_INF : AREA_INFORMATION; F_STREAM : STREAM; ENTRY_SECT┆
0x37700…37780 UnusedSector ┆ : ARRAY[SYS_1_ENTRY_POSN] OF ENTRY; SECTR : SECTOR; EAREA : ENTRY_FIELD; REC_LENGTH, SECT_NUMB, AREA_NUMB, S : INTEGER; TEX┆
0x37780…37800 UnusedSector ┆T_FILE, FULL_FILE, OK : BOOLEAN; CURRENT_BYTE, TEMP_BYTE : BYTE; BEGIN GET_FILENAMES(INPUT_MODE, AREA_INF, F_STREAM, TEXT_FI┆
0x37800…37880 UnusedSector ┆LE, OK); IF OK THEN BEGIN SECT_NUMB := -1; REC_LENGTH := 128; CURRENT_BYTE := 0; REPEAT SECT_NUMB := SUCC(SECT_NUMB); IF┆
0x37880…37900 UnusedSector ┆ TEXT_FILE THEN BEGIN REC_LENGTH := 0; WHILE (REC_LENGTH < 127) AND (CURRENT_BYTE <> ORD(EM)) DO BEGIN IF CURRENT_BYTE > #8┆
0x37900…37980 UnusedSector ┆0 THEN CURRENT_BYTE := TEMP_BYTE ELSE INBYTE(F_STREAM, CURRENT_BYTE, CC); IF CC = EOF THEN CURRENT_BYTE := ORD(EM) ELSE IF C┆
0x37980…37a00 UnusedSector ┆C <> IO_OK THEN CCERROR_W ELSE IF CURRENT_BYTE = 32 THEN "BLANK READ" BEGIN CURRENT_BYTE := #80; REPEAT CURRENT_BYTE := SU┆
0x37a00…37a80 UnusedSector ┆CC(CURRENT_BYTE); INBYTE(F_STREAM, TEMP_BYTE, CC) UNTIL (TEMP_BYTE <> 32) OR (CURRENT_BYTE = 255) OR (CC <> 0); END ELSE IF┆
0x37a80…37b00 UnusedSector ┆ CURRENT_BYTE >= #80 THEN ERROR('ILLEGAL CHARACTER IN TEXT FILE(:0:)'); PUTBITS(CURRENT_BYTE, SECTR[REC_LENGTH DIV 2], 8*(REC┆
0x37b00…37b80 UnusedSector ┆_LENGTH MOD 2) + 7, 8); REC_LENGTH := SUCC(REC_LENGTH) END END ELSE BEGIN INREC(F_STREAM, SECTR[0], REC_LENGTH, CC); IF (┆
0x37b80…37c00 UnusedSector ┆CC <> IO_OK) AND (CC <> EOF) THEN CCERROR_W END; IF (CC = IO_OK) OR TEXT_FILE THEN PUT_SECTOR(SECT_NUMB, SECTR, AREA_INF, FUL┆
0x37c00…37c80 UnusedSector ┆L_FILE) UNTIL (CC = EOF) OR FULL_FILE; WITH AREA_INF DO BEGIN READ_SECTOR(SECT, ENTRY_SECT); ENTRY_SECT[POSN,EHIBLOCK] := S┆
0x37c80…37d00 UnusedSector ┆ECT_NUMB DIV ENTRY_SECT[POSN, ESEGMENTS]; ENTRY_SECT[POSN,ECHARCOUNT] := REC_LENGTH DIV 2 + 64*(SECT_NUMB MOD ENTRY_SECT[POSN,┆
0x37d00…37d80 UnusedSector ┆ESEGMENTS]); EAREA := EAREA1; FOR AREA_NUMB := 0 TO 9 DO BEGIN IF (AREA_NUMB > SECT_NUMB DIV A_SIZE) AND (AREAS[AREA_NUMB] ┆
0x37d80…37e00 UnusedSector ┆> -1) THEN BEGIN "WE NEED TO DEALLOCATE THIS AREA" FOR S := AREAS[AREA_NUMB] TO AREAS[AREA_NUMB] + A_SIZE - 1 DO CLEARBIT(BIT┆
0x37e00…37e80 UnusedSector ┆_MAP[S DIV 16], S MOD 16); ENTRY_SECT[POSN,EAREA] := -1 END ELSE ENTRY_SECT[POSN,EAREA] := LOG_TRACK_SECT(AREAS[AREA_NUMB]); ┆
0x37e80…37f00 UnusedSector ┆ EAREA := SUCC(EAREA) END; WRITE_SECTOR(SECT, ENTRY_SECT) END; CLOSE(F_STREAM) END END; "OF WRITE" PROCEDURE DEMOUNT; ┆
0x37f00…37f80 UnusedSector ┆VAR BIT_MAP_SECTORS : ARRAY[0..1] OF SECTOR; I, J : INTEGER; BEGIN FOR I:=0 TO 1 DO BEGIN FOR J:=0 TO 63 DO BIT_MAP_SECTOR┆
0x37f80…38000 UnusedSector ┆S[I,J] := BIT_MAP[64*I + J]; WRITE_SECTOR(I+B_M_1, BIT_MAP_SECTORS[I]) END END; "OF DEMOUNT" BEGIN "MAIN BODY OF PROGRAM" ┆
0x38000…38080 UnusedSector ┆INITIALISE; REPEAT OLD_STATE := CURRENT_STATE; CURRENT_CMD := NEXT_COMMAND; CURRENT_LEVEL(LEVEL); WITH TRANSITION[CURRENT_CM┆
0x38080…38100 UnusedSector ┆D,CURRENT_STATE] DO BEGIN CURRENT_STATE := NEXT_STATE; CASE ACT OF MNT : MOUNT; INI : INIT; CRE : CREATE; REM : REMOVE; ┆
0x38100…38180 UnusedSector ┆REN : RENAME; LST : LIST; BOT : BOOT; RED : READ; WRI : WRITE; DMT : DEMOUNT; QIT : FINISHED := TRUE; NUL : ; ERR : ERRO┆
0x38180…38200 UnusedSector ┆R('ILLEGAL COMMAND(:0:)') END END UNTIL FINISHED; FINISH END. F MNT : MOUNT; INI : INIT; CRE : CREATE; REM : REMOVE; ┆
0x38200…38280 UnusedSector ┆RMSG R1 ; MON SENDMESSAGE ; MON WAITANSWER ; LHR007: ;TEST CMI INPUT QUEUE MOVC TYPCHA R3 ; MOV CMIRD R5 ; MON PROBQUE ; ┆
0x38280…38300 UnusedSector ┆JMP S4 LHR000 ;ERROR IEQ R3 0 ; JMP LHR007 ; WAIT UNTIL INZ DELIVERS DATA LHR008: ;TRANSFER CMI DATA TO LHR MOV R5 PQF1+1 ; ┆
0x38300…38380 UnusedSector ┆ MON OLTO,TPOS OR 80,PQF1 ;PRINT QUEUE MOVC RDTYP R3 ; MOVC PCBIP R4 ; MON INITPCB ; JMP S4 LHR000 ; MOV CMIRD R3 ; MON CO┆
0x38380…38400 UnusedSector ┆NNECTQUE ; JMP S4 LHR000 ; MON CONNECTPACK ; JMP S4 LHR000 ; MOV OSTRCT R3 ; MON TRANSFERPACK ; JMP S4 LHR000 ; ;TEST IF ┆
0x38400…38480 UnusedSector ┆MORE IN CMI QUEUE MOVC TYPCHA R3 ; MOV CMIRD R5 ; MON PROBQUE ; JMP S4 LHR000 ;ERROR INE R3 0 ; JMP LHR008 ; GOTO TRANSFER┆
0x38480…38500 UnusedSector ┆ CMI TO LHR ;SEND FROM LHD MOV R0 R4 ; MOV CTRWAIT R0 ; FETCH DELAY MON WAITDELAY ; MOV R4 R0 ; MOVC MSG10 R1 ; MOVC 4┆
0x38500…38580 UnusedSector ┆ R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG11 R1 ; MOVC 4 R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP ┆
0x38580…38600 UnusedSector ┆S4 LHR040 ; MOVC MSG12 R1 ; MOVC 4 R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG13 R1 ; MOVC 4 R2 ; MOV┆
0x38600…38680 UnusedSector ┆C TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG14 R1 ; MOVC 4 R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ┆
0x38680…38700 UnusedSector ┆; MOVC MSG15 R1 ; MOVC 4 R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG16 R1 ; MOVC 4 R2 ; MOVC TYPDAT R┆
0x38700…38780 UnusedSector ┆3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG17 R1 ; MOVC 4 R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MS┆
0x38780…38800 UnusedSector ┆G18 R1 ; MOVC 4 R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG19 R1 ; MOVC 4 R2 ; MOVC TYPDAT R3 ; MOV L┆
0x38800…38880 UnusedSector ┆HDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG20 R1 ; MOVC MSG20L R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG21 R┆
0x38880…38900 UnusedSector ┆1 ; MOVC MSG21L R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; ;SEND TO LHR MOV R0 R4 ; MOV CTRWAIT R0 ; MON WA┆
0x38900…38980 UnusedSector ┆ITDELAY ; MOV R4 R0 ; MOVC MSG1 R1 ; MOVC MSG1L R2 ; MOVC TYPDAT R3 ; MODC 1 ; MOV OSTR00 R5 ; TERMINAL JMP S4 LHR040 ; S┆
0x38980…38a00 UnusedSector ┆END PACKET MOVC MSG2 R1 ; MOVC MSG2L R2 ; MOVC TYPDAT R3 ; MODC 10 ; MOV OSTR00 R5 ; TERMINAL JMP S4 LHR040 ; LHR015: ;T┆
0x38a00…38a80 UnusedSector ┆EST CTR INPUT MOVC TYPCHA R3 ; MOV ISTRLH R5 ; MON PROBQUE ; JMP S4 LHR000 ;ERROR SEQP R3 0 ; IF ANY DATA THEN JMP S4 LHR0┆
0x38a80…38b00 UnusedSector ┆50 ; PRINT Q JMP LHR015 ; EMPTY QUE JMP LHR015 ; EMPTY QUE LHR080: ;WRONG INZ ANSWER MON OLTO,TPOS OR 20,0 ; JMP LHR099 ; GO┆
0x38b00…38b80 UnusedSector ┆TO STOP LHR081: ;WRONGINZ I/D MON OLTO,TPOS OR 21,0 ; JMP LHR099 ; GOTO STOP LHRERR: ;PCB-ERROR MON OLTO,TPOS OR 25,0 ; LHR09┆
0x38b80…38c00 UnusedSector ┆9: ;STOP JMP LHR099 ; GOTO STOP USE BASE XNAME0=<:CT:> XNAME1=<:R:> XBUFS=2 XREFS=2 XPRPC=LHR000 NOLIST ;$S8MXD2 LIST END GO┆
0x38c00…38c80 UnusedSector 0x1a[128]
[…0xb9…]
