Disk View
0x00000…00200 HomeBlock {
0x00000…00200 label = »KNY « // @0x0
0x00000…00200 bfdadr = 0x00000002 // @0x10
0x00000…00200 free_ent = 0x00000001 // @0x14
0x00000…00200 first_free = 0x00000020 // @0x18
0x00000…00200 sectors = 0x000001f4 // @0x1c
0x00000…00200 bst_size = 0x0008 // @0x20
0x00000…00200 asf_adr = 0x000001ec // @0x22
0x00000…00200 bst = 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 // @0x26
0x00000…00200 bstsz = 0x0000 // @0x1b6
0x00000…00200 unused = 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 // @0x1b8
0x00000…00200 boot_entry = 0x00000000 // @0x1ec
0x00000…00200 created = 280263aa7a02 // @0x1f0
0x00000…00200 accessed = c02466aa7a02 // @0x1f6
0x00000…00200 format = 0x0002 // @0x1fc
0x00000…00200 state = 0x0000 // @0x1fe
0x00000…00200 }
0x00200…00400 IndexBlock {pad00=0xffffffff, secno=[0x00000002, 0x00000003, 0x00000004, 0x00000005, 0x0000001a, 0x0000001c, 0x00000013, 0x00000014, 0x00000015, 0x00000016, 0x00000017, 0x00000018, 0x00000019, 0x0000001b, 0x000000ac, 0x000000af, 0x000000ba, 0x000000d3, 0x000000e7, 0x00000109, 0x0000010b, 0x0000010d, 0x00000120, 0x00000133, 0x0000013b, 0x00000188, 0x0000018c, 0x0000018f, 0x00000192, 0x00000195, 0x00000198, 0x0000019e, 0x000001bd]}
0x00400…00600 BasicFileDesc {nbr=0x0000, ok=0x0001, bfd01=0x0000, bfd02=0x0000, type=0x000e, length=0x4200, bfd05=0x0000, nsect=0x0021, bfd07=0x0000, areasz=0x0001, sector=0x0001, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xfffd, bfd0f=0x0000}
0x00600…00800 BasicFileDesc {nbr=0x0001, ok=0x0001, bfd01=0x0000, bfd02=0x0000, type=0x000a, length=0x0400, bfd05=0x0000, nsect=0x0002, bfd07=0x0000, areasz=0x0001, sector=0x0006, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4841, bfd0d=0x0000, min3=0xffff, bfd0f=0x59e1}
0x00800…00a00 BasicFileDesc {nbr=0x0002, ok=0x0001, bfd01=0x0000, bfd02=0x0000, type=0x000c, length=0x0200, bfd05=0x0000, nsect=0x0001, bfd07=0x0000, areasz=0x0000, sector=0x0008, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xfffd, bfd0f=0x0000}
0x00a00…00c00 BasicFileDesc {nbr=0x0003, ok=0x0001, bfd01=0x0000, bfd02=0x0000, type=0x000c, length=0x1000, bfd05=0x0000, nsect=0x0008, bfd07=0x0000, areasz=0x0000, sector=0x01ec, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xfffd, bfd0f=0x0000}
0x00c00…00e00 IndexBlock {pad00=0xffffffff, secno=[0x00000007, 0x00000189]}
0x00e00…00e20 SymbolicFileDesc {valid=0x0001, fname=»BFD«, file=0x0000, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x00e20…00e40 SymbolicFileDesc {valid=0x0001, fname=»MD«, file=0x0001, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x00e40…00e60 SymbolicFileDesc {valid=0x0001, fname=»BM«, file=0x0002, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x00e60…00e80 SymbolicFileDesc {valid=0x0001, fname=»ASF«, file=0x0003, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x00e80…00ea0 SymbolicFileDesc {valid=0x0001, fname=»TOS_V0701.D«, file=0x0005, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x00ea0…00ec0 SymbolicFileDesc {valid=0x0001, fname=»CMI«, file=0x000e, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x00ec0…00ee0 SymbolicFileDesc {valid=0x0001, fname=»CMI_ERROR_TEXTS«, file=0x000f, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x00ee0…00f00 SymbolicFileDesc {valid=0x0001, fname=»COPY«, file=0x0010, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x00f00…00f20 SymbolicFileDesc {valid=0x0001, fname=»DIREC«, file=0x0011, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x00f20…00f40 SymbolicFileDesc {valid=0x0001, fname=»DCOPY«, file=0x0012, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x00f40…00f60 SymbolicFileDesc {valid=0x0001, fname=»EDIT«, file=0x0013, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x00f60…00f80 SymbolicFileDesc {valid=0x0001, fname=»PASSWORDS.C«, file=0x0014, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x00f80…00fa0 SymbolicFileDesc {valid=0x0001, fname=»USERS.C«, file=0x0015, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x00fa0…00fc0 SymbolicFileDesc {valid=0x0001, fname=»OKCPU_TDXDR.C«, file=0x0016, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x00fc0…00fe0 SymbolicFileDesc {valid=0x0001, fname=»TDXDR.0109.C«, file=0x0017, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x00fe0…01000 SymbolicFileDesc {valid=0x0001, fname=»TDXTEST_SYNTAX.A«, file=0x0018, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x01000…01080 DataSector[bfd#0x0002]
[…0x3…]
0x01200…01400 IndexBlock {pad00=0xa55aa55a, secno=[0x0000000a]}
0x01400…01420 SymbolicFileDesc {valid=0x0001, fname=»TOS_COMMAND.C«, file=0x0004, sfd3=0xa1f00000, sfd4=0x024a04d8, sfd5=0x95fd0049}
0x01420…01440 SymbolicFileDesc {valid=0x0001, fname=»TOS_ERRORS.T«, file=0x0006, sfd3=0x94fd0000, sfd4=0x431a0126, sfd5=0x06c959bb}
0x01440…01460 SymbolicFileDesc {valid=0x0001, fname=»TOS_LOGIN.C«, file=0x0007, sfd3=0x00000000, sfd4=0x3cbb851a, sfd5=0x16c90619}
0x01460…01480 SymbolicFileDesc {valid=0x0001, fname=»TOS_LTUON.C«, file=0x0008, sfd3=0x85c90000, sfd4=0x58bb19fb, sfd5=0x9cfd02c8}
0x01480…014a0 SymbolicFileDesc {valid=0x0001, fname=»TOS_PRINT.C«, file=0x0009, sfd3=0x5cfb0000, sfd4=0x071a07e5, sfd5=0x0be55cfb}
0x014a0…014c0 SymbolicFileDesc {valid=0x0001, fname=»TOS_RUN.C«, file=0x000a, sfd3=0x411c0000, sfd4=0x02cddcfb, sfd5=0x59fb451a}
0x014c0…014e0 SymbolicFileDesc {valid=0x0001, fname=»TOS_SERVICE.C«, file=0x000b, sfd3=0x9cfd0000, sfd4=0x451a005f, sfd5=0x85c94119}
0x014e0…01500 SymbolicFileDesc {valid=0x0001, fname=»TOS_STATUS.C«, file=0x000c, sfd3=0x68bb0000, sfd4=0x6fbb02a8, sfd5=0x9dfd03af}
0x01500…01520 SymbolicFileDesc {valid=0x0001, fname=»TOS_TERMINALON.C«, file=0x000d, sfd3=0x024a0000, sfd4=0x95fd0049, sfd5=0x451a0228}
0x01520…01540 SymbolicFileDesc {valid=0x0000, fname=» h X v E«, file=0x94fd, sfd3=0x411c0126, sfd4=0x011a0be5, sfd5=0x21ec92bc}
0x01540…01560 SymbolicFileDesc {valid=0x0000, fname=» A " k«, file=0x0002, sfd3=0x000001d8, sfd4=0x00000000, sfd5=0x00000000}
0x01560…01580 SymbolicFileDesc {valid=0x0000, fname=»«, file=0x0005, sfd3=0x00000000, sfd4=0x000005be, sfd5=0x00000000}
0x01580…015a0 SymbolicFileDesc {valid=0x0000, fname=»«, file=0x0000, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00640000}
0x015a0…015c0 SymbolicFileDesc {valid=0x0000, fname=»«, file=0x0000, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x015c0…015e0 SymbolicFileDesc {valid=0x0000, fname=»«, file=0x0000, sfd3=0x00000000, sfd4=0x00000001, sfd5=0x00000000}
0x015e0…01600 SymbolicFileDesc {valid=0x0000, fname=»«, file=0x0000, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x01600…01680 DataSector[bfd#0x0006]
[…0x1f…]
0x02600…02800 BasicFileDesc {nbr=0x0006, ok=0x0001, bfd01=0x6f66, bfd02=0x6572, type=0x000c, length=0x0dc0, bfd05=0x0000, nsect=0x0008, bfd07=0x0000, areasz=0x0000, sector=0x000b, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x02800…02a00 BasicFileDesc {nbr=0x0007, ok=0x0001, bfd01=0x20d8, bfd02=0x861a, type=0x000c, length=0x2048, bfd05=0x0000, nsect=0x0011, bfd07=0x0000, areasz=0x0000, sector=0x0030, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x02a00…02c00 BasicFileDesc {nbr=0x0008, ok=0x0001, bfd01=0x29e5, bfd02=0x4a1a, type=0x000c, length=0x1f1c, bfd05=0x0000, nsect=0x0010, bfd07=0x0000, areasz=0x0000, sector=0x0041, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x02c00…02e00 BasicFileDesc {nbr=0x0009, ok=0x0001, bfd01=0xb7c9, bfd02=0x95fd, type=0x000c, length=0x1bcc, bfd05=0x0000, nsect=0x000e, bfd07=0x0000, areasz=0x0000, sector=0x0051, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x02e00…03000 BasicFileDesc {nbr=0x000a, ok=0x0001, bfd01=0x002a, bfd02=0x002a, type=0x000c, length=0x1c98, bfd05=0x0000, nsect=0x000f, bfd07=0x0000, areasz=0x0000, sector=0x005f, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x03000…03200 BasicFileDesc {nbr=0x000b, ok=0x0001, bfd01=0x7cca, bfd02=0x2afb, type=0x000c, length=0x22a8, bfd05=0x0000, nsect=0x0012, bfd07=0x0000, areasz=0x0000, sector=0x006e, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x03200…03400 BasicFileDesc {nbr=0x000c, ok=0x0001, bfd01=0x0507, bfd02=0x0000, type=0x000c, length=0x0f66, bfd05=0x0000, nsect=0x0008, bfd07=0x0000, areasz=0x0000, sector=0x0080, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x03400…03600 BasicFileDesc {nbr=0x0004, ok=0x0001, bfd01=0x0000, bfd02=0x0000, type=0x000c, length=0x2502, bfd05=0x0000, nsect=0x0013, bfd07=0x0000, areasz=0x0000, sector=0x001d, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x03600…03800 BasicFileDesc {nbr=0x000d, ok=0x0001, bfd01=0x07c9, bfd02=0x0448, type=0x000c, length=0x1a7c, bfd05=0x0000, nsect=0x000e, bfd07=0x0000, areasz=0x0000, sector=0x0088, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x03800…03a00 BasicFileDesc {nbr=0x0005, ok=0x0001, bfd01=0x0004, bfd02=0x0000, type=0x000a, length=0x0200, bfd05=0x0000, nsect=0x0001, bfd07=0x0000, areasz=0x0001, sector=0x0009, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4841, bfd0d=0x0000, min3=0xffff, bfd0f=0x59e1}
0x03a00…03a80 DataSector[bfd#0x0004]
[…0x4b…]
0x06000…06080 DataSector[bfd#0x0007]
[…0x43…]
0x08200…08280 DataSector[bfd#0x0008]
[…0x3f…]
0x0a200…0a280 DataSector[bfd#0x0009]
[…0x37…]
0x0be00…0be80 DataSector[bfd#0x000a]
[…0x3b…]
0x0dc00…0dc80 DataSector[bfd#0x000b]
[…0x47…]
0x10000…10080 DataSector[bfd#0x000c]
[…0x1f…]
0x11000…11080 DataSector[bfd#0x000d]
[…0x37…]
0x12c00…12c80 DataSector[bfd#0x000e]
[…0x57…]
0x15800…15a00 BasicFileDesc {nbr=0x000e, ok=0x0001, bfd01=0x0000, bfd02=0x0000, type=0x000c, length=0x2912, bfd05=0x0000, nsect=0x0016, bfd07=0x0000, areasz=0x0000, sector=0x0096, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x15a00…15a80 DataSector[bfd#0x000f]
[…0x7…]
0x15e00…16000 BasicFileDesc {nbr=0x000f, ok=0x0001, bfd01=0x0000, bfd02=0x0000, type=0x000c, length=0x02c6, bfd05=0x0000, nsect=0x0002, bfd07=0x0000, areasz=0x0000, sector=0x00ad, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x16000…16080 DataSector[bfd#0x0010]
[…0x27…]
0x17400…17600 BasicFileDesc {nbr=0x0010, ok=0x0001, bfd01=0x19c9, bfd02=0x4518, type=0x000c, length=0x1258, bfd05=0x0000, nsect=0x000a, bfd07=0x0000, areasz=0x0000, sector=0x00b0, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x17600…17680 DataSector[bfd#0x0011]
[…0x29f…]
0x1a600…1a800 BasicFileDesc {nbr=0x0011, ok=0x0001, bfd01=0x0054, bfd02=0x004f, type=0x000c, length=0x2dc8, bfd05=0x0000, nsect=0x0018, bfd07=0x0000, areasz=0x0000, sector=0x00bb, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x1a800…1a880 DataSector[bfd#0x0012]
[…0x4b…]
0x1ce00…1d000 BasicFileDesc {nbr=0x0012, ok=0x0001, bfd01=0x0000, bfd02=0x0000, type=0x000c, length=0x2454, bfd05=0x0000, nsect=0x0013, bfd07=0x0000, areasz=0x0000, sector=0x00d4, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x1d000…1d080 DataSector[bfd#0x0013]
[…0x83…]
0x21200…21400 BasicFileDesc {nbr=0x0013, ok=0x0001, bfd01=0x6efd, bfd02=0x7ffd, type=0x000c, length=0x3f9a, bfd05=0x0000, nsect=0x0021, bfd07=0x0000, areasz=0x0000, sector=0x00e8, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x21400…21480 DataSector[bfd#0x0014]
[…0x3…]
0x21600…21800 BasicFileDesc {nbr=0x0014, ok=0x0001, bfd01=0x0045, bfd02=0x0052, type=0x000c, length=0x0048, bfd05=0x0000, nsect=0x0001, bfd07=0x0000, areasz=0x0000, sector=0x010a, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x21800…21880 DataSector[bfd#0x0015]
[…0x3…]
0x21a00…21c00 BasicFileDesc {nbr=0x0015, ok=0x0001, bfd01=0x000a, bfd02=0x0007, type=0x000c, length=0x0019, bfd05=0x0000, nsect=0x0001, bfd07=0x0000, areasz=0x0000, sector=0x010c, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x21c00…21c80 DataSector[bfd#0x0016]
[…0x47…]
0x24000…24200 BasicFileDesc {nbr=0x0016, ok=0x0001, bfd01=0x0000, bfd02=0x0000, type=0x000c, length=0x22e6, bfd05=0x0000, nsect=0x0012, bfd07=0x0000, areasz=0x0000, sector=0x010e, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x24200…24280 DataSector[bfd#0x0017]
[…0x47…]
0x26600…26800 BasicFileDesc {nbr=0x0017, ok=0x0001, bfd01=0x0000, bfd02=0x0000, type=0x000c, length=0x2306, bfd05=0x0000, nsect=0x0012, bfd07=0x0000, areasz=0x0000, sector=0x0121, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x26800…26880 DataSector[bfd#0x0018]
[…0x1b…]
0x27600…27800 BasicFileDesc {nbr=0x0018, ok=0x0001, bfd01=0x01c1, bfd02=0x0099, type=0x000c, length=0x0cae, bfd05=0x0000, nsect=0x0007, bfd07=0x0000, areasz=0x0000, sector=0x0134, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x27800…27880 DataSector[bfd#0x0019]
[…0x12f…]
0x31000…31200 BasicFileDesc {nbr=0x0019, ok=0x0001, bfd01=0x0001, bfd02=0x31fd, type=0x000c, length=0x97c0, bfd05=0x0000, nsect=0x004c, bfd07=0x0000, areasz=0x0000, sector=0x013c, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x31200…31220 SymbolicFileDesc {valid=0x0001, fname=»TEST_TDX«, file=0x0019, sfd3=0xfffc0000, sfd4=0x00004801, sfd5=0x0000fffd}
0x31220…31240 SymbolicFileDesc {valid=0x0001, fname=»ATTR«, file=0x0011, sfd3=0x00000000, sfd4=0xfffd0000, sfd5=0x00000000}
0x31240…31260 SymbolicFileDesc {valid=0x0001, fname=»LIST«, file=0x0011, sfd3=0x00000000, sfd4=0x0000fffd, sfd5=0xfffd0000}
0x31260…31280 SymbolicFileDesc {valid=0x0001, fname=»CREATE«, file=0x0011, sfd3=0xfffd0000, sfd4=0x00000000, sfd5=0x0000fffd}
0x31280…312a0 SymbolicFileDesc {valid=0x0001, fname=»REMOVE«, file=0x0011, sfd3=0x00000000, sfd4=0xfffd0000, sfd5=0x00000000}
0x312a0…312c0 SymbolicFileDesc {valid=0x0001, fname=»RENAME«, file=0x0011, sfd3=0x00000000, sfd4=0x0000fffd, sfd5=0xfffd0000}
0x312c0…312e0 SymbolicFileDesc {valid=0x0001, fname=»PROTECT«, file=0x0011, sfd3=0xfffd0000, sfd4=0x00000000, sfd5=0x0000fffd}
0x312e0…31300 SymbolicFileDesc {valid=0x0001, fname=»TEST10«, file=0x001a, sfd3=0x00000000, sfd4=0xfffd0000, sfd5=0x00000000}
0x31300…31320 SymbolicFileDesc {valid=0x0001, fname=»TEST1«, file=0x001b, sfd3=0x00000000, sfd4=0x0000fffd, sfd5=0xfffd0000}
0x31320…31340 SymbolicFileDesc {valid=0x0001, fname=»CONFIG«, file=0x001c, sfd3=0xfffd0000, sfd4=0x00000000, sfd5=0x0000fffd}
0x31340…31360 SymbolicFileDesc {valid=0x0001, fname=»TEST3«, file=0x001d, sfd3=0x00000000, sfd4=0xfffd0000, sfd5=0x00000000}
0x31360…31380 SymbolicFileDesc {valid=0x0001, fname=»TEST3D«, file=0x001e, sfd3=0x00000000, sfd4=0x0000fffd, sfd5=0xfffd0000}
0x31380…313a0 SymbolicFileDesc {valid=0x0001, fname=»TESTB«, file=0x001f, sfd3=0xfffd0000, sfd4=0x00000000, sfd5=0x0000fffd}
0x313a0…313c0 SymbolicFileDesc {valid=0x0000, fname=»TEST.TRUNK.1«, file=0x0020, sfd3=0x00000000, sfd4=0xfffd0000, sfd5=0x00000000}
0x313c0…313e0 SymbolicFileDesc {valid=0x0000, fname=»«, file=0x0000, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00020000}
0x313e0…31400 SymbolicFileDesc {valid=0x0000, fname=»c z ,f z e z«, file=0x0000, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x31400…31600 IndexBlock {pad00=0x42220a0a, secno=[0x0000018b]}
0x31600…31680 DataSector[bfd#0x001a]
[…0x3…]
0x31800…31a00 BasicFileDesc {nbr=0x001a, ok=0x0001, bfd01=0x0049, bfd02=0x0052, type=0x000e, length=0x00fb, bfd05=0x0000, nsect=0x0001, bfd07=0x0000, areasz=0x0001, sector=0x018a, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x31a00…31c00 IndexBlock {pad00=0x43434122, secno=[0x0000018e]}
0x31c00…31c80 DataSector[bfd#0x001b]
[…0x3…]
0x31e00…32000 BasicFileDesc {nbr=0x001b, ok=0x0001, bfd01=0x0049, bfd02=0x004f, type=0x000e, length=0x00fc, bfd05=0x0000, nsect=0x0001, bfd07=0x0000, areasz=0x0001, sector=0x018d, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x32000…32200 IndexBlock {pad00=0x420a0a2d, secno=[0x00000191]}
0x32200…32280 DataSector[bfd#0x001c]
[…0x3…]
0x32400…32600 BasicFileDesc {nbr=0x001c, ok=0x0001, bfd01=0x434f, bfd02=0x4445, type=0x000e, length=0x001f, bfd05=0x0000, nsect=0x0001, bfd07=0x0000, areasz=0x0001, sector=0x0190, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x32600…32800 IndexBlock {pad00=0x525f5245, secno=[0x00000194]}
0x32800…32880 DataSector[bfd#0x001d]
[…0x3…]
0x32a00…32c00 BasicFileDesc {nbr=0x001d, ok=0x0001, bfd01=0x434f, bfd02=0x4445, type=0x000e, length=0x019e, bfd05=0x0000, nsect=0x0001, bfd07=0x0000, areasz=0x0001, sector=0x0193, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x32c00…32e00 IndexBlock {pad00=0x20203052, secno=[0x00000197]}
0x32e00…32e80 DataSector[bfd#0x001e]
[…0x3…]
0x33000…33200 BasicFileDesc {nbr=0x001e, ok=0x0001, bfd01=0x434f, bfd02=0x4445, type=0x000e, length=0x0145, bfd05=0x0000, nsect=0x0001, bfd07=0x0000, areasz=0x0001, sector=0x0196, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x33200…33400 IndexBlock {pad00=0x20202020, secno=[0x0000019a, 0x0000019b, 0x0000019c, 0x0000019d]}
0x33400…33480 DataSector[bfd#0x001f]
[…0xf…]
0x33c00…33e00 BasicFileDesc {nbr=0x001f, ok=0x0001, bfd01=0x3343, bfd02=0x3420, type=0x000e, length=0x068a, bfd05=0x0000, nsect=0x0004, bfd07=0x0000, areasz=0x0001, sector=0x0199, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x33e00…33e80 UnusedSector ┆---- ----- ADDRESS(CLASS1_TEXT) => R0; "REF CLASS1_TEXT ADDRESS(PRINTER_REC1.TAH_BUF) => R1 + R3; "REF TA┆
0x33e80…33f00 UnusedSector ┆H_BUFFER 0 => R4; "START IN CLASS1_TEXT CLASS1_TEXT_START => R7; "TO IN ┆
0x33f00…33f80 UnusedSector ┆TAH_BUFFER REPEAT R0@TEXT[R4] => R2; R2 => R1@TEXT[R7]; R4 + 1; R7 + 2; UNTIL R4 = CLASS1_TEXT_LENGTH; EXIT(R5); END; ┆
0x33f80…34000 UnusedSector ┆ "OF FORMAT_TAIL_HEADER "PAGE PROCEDURE PRINT_HEADER(R5); " ============ BEGIN "OF PRINT_HEADER PRINTER_POINTER ┆
0x34000…34080 UnusedSector ┆ CSS380 # ( - ! 0 5 ; > Q T ^ D e i n s { ┆
0x34080…34100 UnusedSector ┆ % : R f q ( 3 B Q \ k s v } + 0 5 8 ; ? G J M P S V Y ` b d ┆
0x34100…34180 UnusedSector ┆l ! # n p u z a * ┆
0x34180…34200 UnusedSector 0x00[128]
0x34200…34280 UnusedSector ┆ B j z '@J A Y A P AX z l= | * )P ) P PQl= @ B Y A ┆
0x34280…34300 UnusedSector ┆ B H P BX l= ~ s \ \ H` *I X _ W Ai?V T X i A H# _ k Ai?V _ X i ┆
0x34300…34380 UnusedSector ┆ A V H _ l A Y n A i X X l= | *O A , @ C Y > A C H * ! 0 C B Z B A B H ┆
0x34380…34400 UnusedSector ┆ * Bl= I X A CH A BO 0 A B H P CXB l= | *PQl= @ B Y 1 A BH ┆
0x34400…34480 UnusedSector ┆ , / H Z P B B \ Y 6 v E J Z Y BX5 / l= ) w , O` ┆
0x34480…34500 UnusedSector ┆H o m X W Ci?V i X i C V H _ l CI X _ C H# _ k C Y n C Y X X B l= '@ A ) X o ┆
0x34500…34580 UnusedSector ┆ Jd G X _ " \ ~ X \ P! T Y X [ ZI ! J AH I X a Y X [ AI ! J AH I ┆
0x34580…34600 UnusedSector ┆ YH I X Y ] % ' 'AO CJ D Y j 2DI DX O CO B i X [ dI ! J YH I X d~ ┆
0x34600…34680 UnusedSector ┆ Y ] ' s O C j 2C d C ! Z C i X [ dI ! J dH I dH: I YH I X- Z| s d~ Y ┆
0x34680…34700 UnusedSector ┆] Z A A O CJ D Y Z 2DI DX B *~ s O C j B Z 2C d Z C Z B dI !X j┆
0x34700…34780 UnusedSector ┆ Y s \ XH l= P \ I H *B X \ I J \ IH 0 ┆
0x34780…34800 UnusedSector ┆ l= P '@ , $ @ B Y % A BH s \ A B H s \ B s BX) P l= ┆
0x34800…34880 UnusedSector ┆ P \ IH / q \ B I ! J - A J ! J I \ I X2 l= P ┆
0x34880…34900 UnusedSector ┆ \ IH ( q \ B I ! J - A J ! J I \ I X2 l= ) y O ┆
0x34900…34980 UnusedSector ┆ @~ \ r l= ) x O 'B , A E Y B E H * ! J E 0 EX A┆
0x34980…34a00 UnusedSector ┆ \ H` ) , ) * j A G B } ! B GH` , X V \ Y 6 Z P j Y X$ ┆
0x34a00…34a80 UnusedSector ┆ \ r \ t \ | 'E A $ F Y B FH A X C v D J FX Z P : l= ) x O ┆
0x34a80…34b00 UnusedSector ┆ @~ s A Y ( p \ \ ZP \ Y ) \ Y X * \ I J \ A I / Z Q | V O S ┆
0x34b00…34b80 UnusedSector ┆ j Y j Y j Y j Y j A IV O C G C \ | > A A H` *I h _ W P┆
0x34b80…34c00 UnusedSector ┆i?V q X i O C P Y X _ a P GH# _ k P HH# _ k P Y n P i X X \ Y + d G F X# E┆
0x34c00…34c80 UnusedSector ┆ l sT H G F X* E kT { l= ~ ;'F \ G Y J G 0 GX \ \ H` *I h _ W ┆
0x34c80…34d00 UnusedSector ┆ Z , \ Y 6 v C J Z P B \ Y 6 v B J B l= Y 6 v B J B 'BJ C Y ┆
0x34d00…34d80 UnusedSector ┆ A C * Y 6 v C J CX B \ Y 6 v B J B \ Y 6 v B J B 'G \ $ H Y A HH ┆
0x34d80…34e00 UnusedSector ┆ A X C v C J HX 'E \ F Y A FH , ~ WO E Ji?V X i J Y X _ a J Y b ┆
0x34e00…34e80 UnusedSector ┆ B \ IH Y X v D J Ji?V X i J Y X _ a J Y b B \ IH Y X ? v D J Z P! \┆
0x34e80…34f00 UnusedSector ┆ ~ 0 Ji?V X i O E J Y X _ a J Y b B \ IH Y \ _ v D J Z P! \ ~ . Ji?V X i O ┆
0x34f00…34f80 UnusedSector ┆ E J Y X _ a J Y b B \ IH Y X = v D J Z P FX ~ Hi?V X i H Y b H Y X X ┆
0x34f80…35000 UnusedSector ┆ Y g J| s '@J A Y A Y 1A AX Y [ J~ ( AI- ! Y g J| s '@J ┆
0x35000…35080 UnusedSector ┆ A Y 2A Y 1A AX ] l= h?V mH Z ! Z ! Z P Z P Y z 0 P 'Ji?V ┆
0x35080…35100 UnusedSector ┆O ^ P! f h e _ h e W h e O h e G Y h g 'KJ L Y 2L Y 1L LX ┆
0x35100…35180 UnusedSector ┆ J| J J / s # h J| J J / J I / s d J JH I X| J| J J / ┆
0x35180…35200 UnusedSector ┆ 7 a Z ) p 5 Z 0 Y X _ m B B _ m X h AI ! J \ H I J A / s Y 0 Y 0 \┆
0x35200…35280 UnusedSector ┆ B Y 0 j?V H O l= ) $P h ] i h [ HI ! J GH I s \ $ \ ! J I ┆
0x35280…35300 UnusedSector ┆/ s Z Y z 0 Y h G| J G / s Z $ \ $ \ \ $H Y 0 J XO o l= P Y p 5 'T ┆
0x35300…35380 UnusedSector ┆ Y X B ! J I / s Z Y X B ! J I / s X < A| J4 A / s \ C H P! P! ┆
0x35380…35400 UnusedSector ┆ l= P X _ B ! J I / s i X 7 B J I / s \ CH , | J I / s Z 0┆
0x35400…35480 UnusedSector ┆ A \ IH Y X _ > B| J8 B / s Z P Z P Z P" P! l= l= ) P , , ┆
0x35480…35500 UnusedSector ┆O ( o J M X _ " \ ~ X Z )P \ \ O ( x j )P ) V O B j Y H O y \┆
0x35500…35580 UnusedSector ┆ \ H ) P ) B # l= 'a , @ c Y A c H P cX '` \ a Y A a H P a┆
0x35580…35600 UnusedSector ┆X 'a \ b Y A b H P bX 'c \ d Y = A dH` ) P ) P ) P ) _ o 6 \ )P ) H ┆
0x35600…35680 UnusedSector ┆ ) _ w A Z I HP Z n | 2 Z B ~ dXA Z ) P ) o | 2 Z P! 0 \ \ H` i X x \┆
0x35680…35700 UnusedSector ┆ mH n 5 j?V i H j A X o 5 < \ < \ Z P! Z V0IT Z P! j?V Y H Z ! Z ┆
0x35700…35780 UnusedSector ┆ P G F X' E + 9 l= O A P ) ( p 5 \ p u \ Y X p B ! s d Z ) \ ) \┆
0x35780…35800 UnusedSector ┆ ) \ ) \ ) \ ) \ ) X p 5 'g j Y 0 'w j i X B ! J I / s \ Y X ┆
0x35800…35880 UnusedSector ┆ A| J4 A / s \ f H P! d P! \ | Z Y X B ! s P#/ e e \ eH Y X ┆
0x35880…35900 UnusedSector ┆ B A| J; A / s e Y $ !X \ Y X _ 5 A| J> A / s P$ \ Y X _ A A| J A / s P% Z Y┆
0x35900…35980 UnusedSector ┆ X F A| J A / s P& Z i?V 0 Z Y O DJ E Y ! Z 2E DH A HJ0 - A Z DH A F A EX ┆
0x35980…35a00 UnusedSector ┆ Z Y H \ Y 8 _ E A| J A / s P'j?V Y H l= Y X _ E A| J! A / s P(j?V Y ┆
0x35a00…35a80 UnusedSector ┆H l= Y X _ E A| J" A / j?V Y H l= Y X _ E A| J# A / j?V Y H l= Y X _ ┆
0x35a80…35b00 UnusedSector ┆ E A| J$ A / j?V ' Y H l= Y X _ E A| J% A / j?V 7 Y H l= Y X _ E A| J& A / j?V C┆
0x35b00…35b80 UnusedSector ┆ Y H l= Y X _ E A| J' A / j?V N Y H l= Y X _ E A| J( A / j?V Y Y H l= Y X _┆
0x35b80…35c00 UnusedSector ┆ E A| J) A / s P)l= Y 6 v B J < Y 0 < Y z 0 P* ' l= ) , ) P P h?V e┆
0x35c00…35c80 UnusedSector ┆ mH Z P \ \ H` *I X _ W Ai?V k X i A Y V H _ l Ai?V x X i \ Ai?V X ┆
0x35c80…35d00 UnusedSector ┆ i Ai?V X i Ai?V X i d \ | ] Z Ah?V _ i O D B Y X _ a Bi?V X i B Y V ┆
0x35d00…35d80 UnusedSector ┆H _ l Bi?V X i B Y V H0 _ l Bi?V X i B Y V H0 _ l Bi?V X i B Y V H _ l \ ~ '┆
0x35d80…35e00 UnusedSector ┆ Z Ah?V _ i B Y V H0 _ l Bi?V X i B Y V H0 _ l Ai?V X i O C A Y z X _ a O C AI- X┆
0x35e00…35e80 UnusedSector ┆ _ A Y z X _ a AI* X _ O C A Y X _ a AI* X _ A Y X _ a O f \ $ g Y 1 Bi?V X i ┆
0x35e80…35f00 UnusedSector ┆O D B A z gO X _ a O D BI- X _ B A z g O X _ a gX5 A Y n \ Ai?V X i Ai?V ┆
0x35f00…35f80 UnusedSector ┆ X i A Y b & 'g gI ! J \ %H I !J V I X _ m B # j g~ Z %P g Z % \ % X/ \ \ ┆
0x35f80…36000 UnusedSector ┆ H` *I X _ W g| B i?V , BO v B Y z X _ u B Y z X _ j B Y z X _ _ \ ┆
0x36000…36080 UnusedSector ┆ \ H` n |S 2 j g| g Ai?V U X i A Y b 9i?V a BO Z P Z P! Z P" J I / d ┆
0x36080…36100 UnusedSector ┆ B B J I / d X B Y X X A Y X X \ j n 6 ' D D ┆
0x36100…36180 UnusedSector ┆ Z P \ X _ ~ B C J J \ \ H` * Y V J X( k k ) }P ) w o 6 Z ~I Z x n 6u Z┆
0x36180…36200 UnusedSector ┆ P* Z y n 6 Z P! Z z n 6p Z P& Z { n 6 Z P& Z | n 6 Z } j?V p Y x \ O H Z ) P ) H` ) ┆
0x36200…36280 UnusedSector ┆P ) H Z I Z P! Z )P ) P ) P ) P i?V v ( O j?V z Y z H j?V Y z H j?V Y H ┆
0x36280…36300 UnusedSector ┆j?V Y H Z $P Z %P# \ \ H` ) H A 2j?V Y H Z & )H i?V ( / Z P! kL A┆
0x36300…36380 UnusedSector ┆ \ S Y ' 0 % Y Yb[ $ # a , b[ l FI┆
0x36380…36400 UnusedSector ┆LE ] ~ k N L I O - E R R O R A T ┆
0x36400…36480 UnusedSector ┆ L I N E E R R O R T E R M I N A T E D : U P D A T I N G D I S M O U N T I N G R E L E A S I N G ┆
0x36480…36500 UnusedSector ┆ D E A S S I G N I N G S Y S T E M C L O S E D X X X X K D A R U T S T N E F S M D I N T ┆
0x36500…36580 UnusedSector ┆R M E M M G R T O S _ V X X X X . D T O S _ S E R V I C E . C T O S _ C O M M A N D . C T O S _ L O G I N . C T O S _ ┆
0x36580…36600 UnusedSector ┆R U N . C T O S _ T E R M I N A L O N . C T O S _ S T A T U S . C T O S _ L T U O N . C T O S _ P R I N T . C T O S _ E R R O R ┆
0x36600…36680 UnusedSector ┆S . T P R I N T R T O S V E R S I O N M O D E = D U A L M A S T E R S L A V E S Y S T E M _ D E V : ┆
0x36680…36700 UnusedSector ┆ N A M E = , K I N D = , U N I T = , S U B U N I T = , A D D R = S Y S D U A L _ D E V : U N I T ┆
0x36700…36780 UnusedSector ┆= , A D D R = S Y S T E M _ D I R : @ A L T F S N : L O C A L P R I N T E R N O L O C A L ┆
0x36780…36800 UnusedSector ┆ P R I N T E R S Y S D E V S Y S D U L S Y S D I R O P E N M O D E A L T F S N T R Y A G A I N S ┆
0x36800…36880 UnusedSector ┆ M D T T Y 0 0 0 F D 0 1 F I L S Y S F I L E K N Y M D D O C O N F I G W e l c o m e ┆
0x36880…36900 UnusedSector ┆t o T O S t o T O S R1 => R4; "REF START IN MESS_JOUR_BUF 0 => R7; ┆
0x36900…36980 UnusedSector ┆ "REF START IN MESS_JOUR_REC REPEAT R0@TEXT[R4] => R2; R2 => R1@TEXT[R7]; INCD(R4,R7); UNTIL R7 = MESS_JOUR_REC_L┆
0x36980…36a00 UnusedSector ┆ENGTH; R4 => POINTER1; "IF MESSAGE_JOURNAL_TYPE IS NOT EQUAL 10 THEN GOTO SKIP_PRINT "-----------------------------------------┆
0x36a00…36a80 UnusedSector ┆CLOSE S TEM N FD00 AR:8 UT:0 :FD00 KD:10 AR:8 UT:0Z "GET TYPE IF NOT R0 = 10 THEN GOTO SKIP_PRINT; "PAGE "MOVE DT┆
0x36a80…36b00 UnusedSector ┆G TO DTG_WORK_AREA "------------------------- ADDRESS(MESS_JOUR_REC) => R4 + MESS_JOUR_DTG_REF; R4@LONG => R01; ADDRESS(DTG_WORK┆
0x36b00…36b80 UnusedSector ┆_AREA) => R4 + DTG_INTEGER_REF; R01 => R4@LONG; CALL_MON_CONVDTG(R4); "TRANSFER TO MESS_JOUR_EDIT "------------------------- A┆
0x36b80…36c00 UnusedSector ┆DDRESS(DTG_WORK_AREA) => R0; "REF. DTG_WORK_AREA ADDRESS(MESS_JOUR_EDIT) => R1; "REF. MESS_JOUR_EDIT DT┆
0x36c00…36c80 UnusedSector ┆G_AS REF => R4; "REF. IN DTG_WORK_AREA LOC_MESS_JOUR_DTG => R7; "REF. IN MESS_JOUR_ED┆
0x36c80…36d00 UnusedSector ┆IT REPEAT R0@TEXT[R4] => R2; R2 => R1@TEXT[R7]; INCD(R4,R7); UNTIL R4 = DTG_ASCII_REF + DTG_ASCII_LENGTH; "PAGE "GET M┆
0x36d00…36d80 UnusedSector ┆ESS_JOUR_TEXT "------------------ ADDRESS(MESS_JOUR_REC) => R7; R7@INTEGER => R0; "MESS_JOUR_TYPE "R┆
0x36d80…36e00 UnusedSector ┆0 := MESS_JOUR_TYPE -1 * MESS_JOUR_TEXT_LENGTH "----------------------------------------------- ADDRESS(LONGVAR) => R7; R0 - 1; ┆
0x36e00…36e80 UnusedSector ┆@FILSYS-FILE*KNY *MD *LIST CDIR:@FILSYS-FILE*KNY *MD VOL:KNY ┆
0x36e80…36f00 UnusedSector ┆ CIN:@TTY000-INTR*T0 *T0 COUT:@TTY000-INTR*T0 *T0 :@*FLOPPY*HOST┆
0x36f00…36f80 UnusedSector ┆.TST _TEXT => R7; "REF IN MESS_JOUR_EDIT 0 => R3; REPEAT R0@TEXT[R4] => R2; R2 => R1@TEXT[R7]; INCD(R4,┆
0x36f80…37000 UnusedSector ┆R7); R3 + 1; UNTIL R3 = MESS_JOUR_TEXT_LENGTH; "TRANSFER MSG_ID "--------------- ADDRESS(MESS_JOUR_REC) => R0; ┆
0x37000…37080 UnusedSector ┆"REF S_JOUR_REC ADDRESS(MESS_JOUR_EDIT) => R1; "REF MESS_JOUR_EDIT MESS_JOUR_MSG_ID_REF => R4; "┆
0x37080…37100 UnusedSector ┆REF START IN MESS_JOUR_REC LOC_MESS_JOUR_MSG_ID => R7; "REF START IN MESS_JOUR_EDIT REPEAT R0@TEXT[R4] => R2; ┆
0x37100…37180 UnusedSector ┆ R2 => R1@TEXT[R7]; INCD(R4,R7); UNTIL R4 = MESS_JOUR_MSG_ID_REF + MSG_ID_LENGTH; "PAGE "GET TERMINAL NO AND TCB_BLOCK "┆
0x37180…37200 UnusedSector ┆----------------------------- ADDRESS(MESS_JOUR_REC) => R7 + MESS_JOUR_TID_REF; R7@INTEGER => R0 => TERM_NO; GET_TCB_BLOCK(R4); ┆
0x37200…37280 UnusedSector ┆@FILSYS-FILE*KNY *MD *LIST CDIR:@FILSYS-FILE*KNY *MD VOL:KNY ┆
0x37280…37300 UnusedSector ┆ CIN:@TTY000-INTR*T0 *T0 COUT:@TTY000-INTR*T0 *T0 :TEST3 FLOPPY┆
0x37300…37380 UnusedSector ┆*TEST.X21 C:A .TRUNK RANS_LOC_EDIT REPEAT R0@TEXT[R4] => R2; R2 => R1@TEXT[R7]; INCD(R4,R7); UNTIL R4 = 3; "TRANSFER ME┆
0x37380…37400 UnusedSector ┆SS_JOUR_EDIT TO TEXT_BUFFER "-------------------------------------- ADDRESS(MESS_JOUR_EDIT) => R0; "REF MESS_JOUR_E┆
0x37400…37480 UnusedSector ┆DIT TER_OFFSET => R3; ADDRESS(PRINTER_REC1.TEXT_BUF) => R1 + R3; "REF TEXT_BUF 0 => R4; ┆
0x37480…37500 UnusedSector ┆"REF START IN MESS_JOUR_EDIT POINTER2 => R7; "REF START IN TEXT_BUF REPEAT R0@TEXT[R4] => R2; R2┆
0x37500…37580 UnusedSector ┆ => R1@TEXT[R7]; INCD(R4,R7); UNTIL R4 = MESS_JOUR_EDIT_LENGTH; R7 => POINTER2; "END OF EDITING OF ONE MESS_JOUR_RECORD "----┆
0x37580…37600 UnusedSector ┆--------------------------------- "PAGE SKIP_PRINT: "IF PRINT IS TO BE SKIPPED "======== NO┆
0x37600…37680 UnusedSector ┆@FILSYS-FILE*KNY *MD *LIST CDIR:@FILSYS-FILE*FLOPPY VOL:FLOPPY CIN:@TTY┆
0x37680…37700 UnusedSector ┆000-INTR*T0 *T0 COUT:@TTY000-INTR*T0 *T0 => R7@PRINTER_REC_TYPE.READ_EN┆
0x37700…37780 UnusedSector ┆D; EXIT(R5); END; "OF FORMAT_MESS_JOUR "PAGE PROCEDURE FORMAT_MESS_LOG(R5); " =============== BEGIN "OF FORMAT┆
0x37780…37800 UnusedSector ┆_MESS_LOG 0 => R0 => POINTER1; "REF MESS_LOG_REC R0 => POINTER2; "REF MESS_L┆
0x37800…37880 UnusedSector ┆BEGI NE PATTERN 1 = 'XX0*** TEST AF TRUNK LTUX-M-FE OG M-CPU ***' DEFINE PATTERN 2 = 'XX0*** TEST TEST TEST TEST TEST ┆
0x37880…37900 UnusedSector ┆TEST TEST TEST' " "**** INIT DEVICE #2F SUBDEVICE 0+2+3 **** E"----------------------------------------------- T" CREATE 0┆
0x37900…37980 UnusedSector ┆ #1F0F 5 16 "CREATE LOG LINE SUBDEV 0" P APPEND #1F0F 0 (#0004) "SYNCRONIZE LTUX" INITRE┆
0x37980…37a00 UnusedSector ┆AD #1F0F 4 DUMP "SETUP RESPONSE READ" E APPEND #1F0F 6 (#0001 #187F #1F01) "OPEN SUBDEV 0" WAITINIT 10 CR┆
0x37a00…37c00 BasicFileDesc {nbr=0x0020, ok=0x0000, bfd01=0x0000, bfd02=0x0000, type=0x000e, length=0x068b, bfd05=0x0000, nsect=0x0001, bfd07=0x0000, areasz=0x0005, sector=0x01bc, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x37c00…37c80 UnusedSector ┆BEGIN DEFINE PATTERN 1 = #201E #4554 #5453 #4120 #2046 #544C #5855 #532D #5420 #4C45 #2045 #3130 #3332 #3534 #3736 #3A38 #0A20 ┆
0x37c80…37d00 UnusedSector ┆CREATE 0 #3A2F 2 16 " CONTROL CH. JACK 1 " 5CREATE 0 #3A3F 2 80 " DATA CH. JACK 1 " APPEND #3A3F 0 ( #0004 ) ┆
0x37d00…37d80 UnusedSector ┆CREATE 0 #3A4F 2 16 " CONTROL CH. JACK 2 " 5CREATE 0 #3A5F 2 80 " DATA CH. JACK 2 " APPEND #3A5F 0 ( #0004 ) ┆
0x37d80…37e00 UnusedSector ┆CREATE 0 #3A6F 2 16 " CONTROL CH. JACK 3 " 5CREATE 0 #3A7F 2 80 " DATA CH. JACK 3 " APPEND #3A7F 0 ( #0004 ) ┆
0x37e00…37e80 UnusedSector ┆CREATE 0 #3A8F 2 16 " CONTROL CH. JACK 4 " 5CREATE 0 #3A9F 2 80 " DATA CH. JACK 4 " APPEND #3A9F 0 ( #0004 ) ┆
0x37e80…37f00 UnusedSector ┆REPEAT 32000 BEGIN INITREAD #3A2F 2 DUMP " LAES CONTROL-CHANNEL JACK 1 " APPEND #3A3F 4 ( #021E #4E05 ) WAITINIT┆
0x37f00…37f80 UnusedSector ┆ 10 INITREAD #3A3F 34 EXPECT PATTERN 1 DUMP APPEND #3A3F 34 ( #201E #4554 #5453 #4120 #2046 #544C #5855 #532D #5420 #4C45 #2045 ┆
0x37f80…38000 UnusedSector ┆#3130 #3332 #3534 #3736 #3938 #0A20 ) WAITINIT 10 INITREAD #3A4F 2 DUMP " LAES CONTROL-CHANNEL JACK 2 " 5APPEND #3A┆
0x38000…38080 UnusedSector ┆5F 4 ( #021E #4E05 ) WAITINIT 10 INITREAD #3A5F 34 EXPECT PATTERN 1 DUMP APPEND #3A5F 34 ( #201E #4554 #5453 #4120 #2046 #544C ┆
0x38080…38100 UnusedSector ┆#5855 #532D #5420 #4C45 #2045 #3130 #3332 #3534 #3736 #3938 #0A20 ) WAITINIT 10 INITREAD #3A6F 2 DUMP " LAES CONTROL-CHAN┆
0x38100…38180 UnusedSector ┆NEL JACK 3 " 5APPEND #3A7F 4 ( #021E #4E05 ) WAITINIT 10 INITREAD #3A7F 34 EXPECT PATTERN 1 DUMP APPEND #3A7F 34 ( #201E ┆
0x38180…38200 UnusedSector ┆#4554 #5453 #4120 #2046 #544C #5855 #532D #5420 #4C45 #2045 #3130 #3332 #3534 #3736 #3938 #0A20 ) WAITINIT 10 INITREAD #3A8F 2 ┆
0x38200…38280 UnusedSector ┆ DUMP " LAES CONTROL-CHANNEL JACK 4 " 5APPEND #3A9F 4 ( #021E #4E05 ) WAITINIT 10 INITREAD #3A9F 34 EXPECT PATTERN 1┆
0x38280…38300 UnusedSector ┆ DUMP APPEND #3A9F 34 ( #201E #4554 #5453 #4120 #2046 #544C #5855 #532D #5420 #4C45 #2045 #3130 #3332 #3534 #3736 #3938 #0A20 ) ┆
0x38300…38380 UnusedSector ┆WAITINIT 10 END LIST OPERATIONS CANCEL CRID #3A2F CANCEL CRID #3A3F CANCEL CRID #3A4F CANCEL CRID #395F CANCEL CRID #396F CANCEL┆
0x38380…38400 UnusedSector ┆ CRID #397F CANCEL CRID #398F CANCEL CRID #399F DISMANTLE #392F DISMANTLE #393F DISMANTLE #394F DISMANTLE #395F DISMANTLE #396F ┆
0x38400…38480 UnusedSector ┆DISMANTLE #397F DISMANTLE #398F DISMANTLE #399F END "APPEND TESTPATTERN" WAITINIT 100 END " "**** CLEAN UP **** "----┆
0x38480…38500 UnusedSector ┆------------------ " INITREAD #1F2F 20 DUMP APPEND #1F2F 5 (#068E #5858 #31) APPEND #1F2F 1 (#00) WAITINIT 100 INITREA┆
0x38500…38580 UnusedSector ┆D #1F2F 4 DUMP "SETUP RESPONSE READ" APPEND #1F2F 1 (#89) "CLOSE TRUNK" WAITINIT 300 LIST OPER┆
0x38580…38600 UnusedSector ┆ATIONS "ALL OPERATIONS COMPLETED?" CANCEL CRID #1F3F CANCEL CRID #1F2F CANCEL CRID #1F0F DISMANTLE #┆
0x38600…38680 UnusedSector ┆1F3F DISMANTLE #1F2F DISMANTLE #1F0F END - NO_OF_RECORDS => R0 - 1 => NO_OF_RECORDS; UNTIL R0 = 0; "PRINT_OFFSET := 0; "--┆
0x38680…38700 UnusedSector ┆--------------- PRINTER_POINTER => R7; 0 => R0 => R7@PRINTER_REC_TYPE.PRINT_OFFSET; "PRINT_END := POINTER2 "-------------------┆
0x38700…38780 UnusedSector ┆-- POINTER2 => R0 => R7@PRINTER_REC_TYPE.READ_END; EXIT(R5); END; "OF FORMAT_MESS_LOG "PAGE 1 0822 ; 77.00010 1 0822 ;┆
0x38780…38800 UnusedSector ┆ INPUT: SOURCE FILE, ASECUR 77.00011 1 0822 ; OUTPUT: OBJECT FILE (REMAINING TEXT), AMSGRF, AADREF 77.00012 1 0822 ; EXIT TO:┆
0x38800…38880 UnusedSector ┆ L B F D ┆
0x38880…38900 UnusedSector ┆ M D B M A S F S D E ┆
0x38900…38980 UnusedSector ┆L I M I T E R E R R O R * * * * * S E Q . I N P U T S E Q . I N P U T P A R A M M I S S I N G P L U S P A R ┆
0x38980…38a00 UnusedSector ┆A M F I L E I D S Y N T A X E R R O R S E Q . I N P U T - F I L E N A M E O R G A N I Z A T I O N ? O R G A ┆
0x38a00…38a80 UnusedSector ┆ P ; WRITE PROGREL DATA STRING 77.00021 1 0828 MOV AS┆
0x38a80…38b00 UnusedSector ┆ECUR R0 ; GET MESSAGE SECURITY 77.00022 1 0829 JMPI S4 MI5140 ; WRITE SMF 'M' 77.00023 1 08┆
0x38b00…38b80 UnusedSector ┆2A MOVC OBJIO R6 ; GET OUTPUT FILE 77.00024 1 082B JMPI S4 MI3700 ; PROVIDE FILE ┆
0x38b80…38c00 UnusedSector ┆INDEX 77.00025 1 082C ADDC -2 R0 ; DONT COUNT ST BC ON NEXT LINE 77.00026 1 082D MOV ┆
0x38c00…38c80 UnusedSector ┆"PAGE "********************************************************************" "************************************************┆
0x38c80…38d00 UnusedSector ┆********************" " " " MODULE NAME: MARK_UTIL ┆
0x38d00…38d80 UnusedSector ┆ " " NUMBER: 522.09.00 " " ┆
0x38d80…38e00 UnusedSector ┆ " " FIKS SUBSYSTEM: PIP " " ┆
0x38e00…38e80 UnusedSector ┆ " " COPYRIGHT: CHRISTIAN ROVSING A/S ┆
0x38e80…38f00 UnusedSector ┆ " " " " APE/801001 VERSION: 03 RELEASE: 00 ┆
0x38f00…38f80 UnusedSector ┆ " " " "***********************************┆
0x38f80…39000 UnusedSector ┆*********************************" " " " DESCRIPTION: ┆
0x39000…39080 UnusedSector ┆ " " ----------- " " ME┆
0x39080…39100 UnusedSector ┆RGEFILE TO PIP.SOURCE CONTAINS THE PROCEDURES: " " ┆
0x39100…39180 UnusedSector ┆ " " MARK_ADDRESSES " " ┆
0x39180…39200 UnusedSector ┆ " " " " REFFERENCE: FIX/1152/DSP/0005 ┆
0x39200…39280 UnusedSector ┆ " " " "**********************┆
0x39280…39300 UnusedSector ┆**********************************************" " " " MOD┆
0x39300…39380 UnusedSector ┆IFICATIONS: " " ------------- ┆
0x39380…39400 UnusedSector ┆ " " REFER TO INFORMATION-FILE " " ┆
0x39400…39480 UnusedSector ┆ " "********************************************************************" " ┆
0x39480…39500 UnusedSector ┆ " " FIKS MONITOR PROCEDURES " " -----------------┆
0x39500…39580 UnusedSector ┆------ " " MON(RDF,GET_ANO_TERM) " " MON┆
0x39580…39600 UnusedSector ┆(RDF,GET_AIG_EXIST) " " MON(RDF,GET_ANO_AIG) ┆
0x39600…39680 UnusedSector ┆ " " " " COMMON DATA: ┆
0x39680…39700 UnusedSector ┆ " " ----------- " " ALL DATA USED IN PIP IS COMMON F┆
0x39700…39780 UnusedSector ┆OR EVERY MODULE/PROCEDURE " " " " MERGE FILES ┆
0x39780…39800 UnusedSector ┆ " " ----------- " " REFE┆
0x39800…39880 UnusedSector ┆R TO LIST OF PIP.S " " ┆
0x39880…39900 UnusedSector ┆ " "********************************************************************" "*****************************************************┆
0x39900…39980 UnusedSector ┆***************" "PAGE PROCEDURE MARK_ADDRESSES(R5); LABEL FINISH_AIG; PROCEDURE STEP_ONE_LINE(R4); BEGIN BUFFER_POINTER ┆
0x39980…39a00 UnusedSector ┆=> R6; R6 + 1; R0@TEXT[R6] => R3; R6 + 1; R6 + R3; R6 => BUFFER_POINTER; EXIT(R4); END; PROCEDURE SET_MARK(R4); BEGIN BUFF┆
0x39a00…39a80 UnusedSector ┆ER_POINTER => R7 + 7; 'X' => R3 => R0@TEXT[R7]; EXIT(R4); END; "PAGE PROCEDURE CHECK_ANO(R3;R4):BOOLEAN; " BY ENTRY - R3 ┆
0x39a80…39b00 UnusedSector ┆: ADDR_LIST_ELEMENT BEGIN ADDRESS(RDF_WORK_AREA) => R6; R3 => R6@GET_ANO_TERM_WORK.ANO; SETS(R6@GET_ANO_TERM_WORK.ANO,8); ┆
0x39b00…39b80 UnusedSector ┆"RETURN ACTUAL TERMINAL NO MON(RDF,GET_ANO_TERM,R6,R7); TRP(7); R6@GET_ANO_TERM_WORK.TERM_NO => R7; PRINTER_NO ┆
0x39b80…39c00 UnusedSector ┆ => R6; IF R7 = R6 THEN EXIT(R4,TRUE); EXIT(R4,FALSE); END; "PAGE BEGIN STC(6,ADDRESS(DUMP_REG[7])=>R7); PRINTER_POINT┆
0x39c00…39c80 UnusedSector ┆ER => R7; R7 => R0 + ADDRESS(0@PRINTER_REC_TYPE.TEXT_BUF); "POINTER TEXT_BUFFER R0 => R1 + ((TEXT_BUF_LENGTH - ANO_BUF_LENGTH┆
0x39c80…39d00 UnusedSector ┆)/2); "POINTER ANO_LIST R7@PRINTER_REC_TYPE.PRINT_OFFSET => R3 => BUFFER_POINTER; R7@PRINTER_REC_TYPE.FILE_OFFSET => R3; ┆
0x39d00…39d80 UnusedSector ┆ "TEST IF FIRST_LINE IF R3 << (TEXT_BUF_LENGTH -ANO_BUF_LENGTH +1) THEN STEP_ONE_LINE(R4); REPEAT R1@INTEGER => R3 =>┆
0x39d80…39e00 UnusedSector ┆ R4 => R5; "ADDRESS LIST ITEM R3 EXTRACT 8; "ANO/AIG R4 SHIFTRL 13; ┆
0x39e00…39e80 UnusedSector ┆ "ANO_TYPE R5 SHIFTRL 8 EXTRACT 5; "LOCAL_NM_ID IF (R4 = TO_ADDRESS LOGOR R4 = INFO_ADDRESS ┆
0x39e80…39f00 UnusedSector ┆LOGOR R4 = XMT_AIG_ADDRESS) THEN BEGIN IF R5 = LOCAL_NM_ID THEN BEGIN SWITCH CHECK_ANO(R3,R4): ┆
0x39f00…39f80 UnusedSector ┆ BOOLEAN TO TRUE: SET_MARK(R4); END; END; END ELSE "PAGE BEGIN IF R4 = TO_AIG_ADDRESS THE┆
0x39f80…3a000 UnusedSector ┆N BEGIN IF R3 << 100 THEN BEGIN ADDRESS(RDF_WORK_AREA) => R4; R3 => R6; MON(RDF,GET_AIG_┆
0x3a000…3a080 UnusedSector ┆EXIST,R4,R5,R6,R7); TRP(7); IF R5 = TRUE THEN BEGIN RDF_FILE_ID => R4; ADDRESS(AIG_B┆
0x3a080…3a100 UnusedSector ┆UFFER) => R5; R3 => R5@GET_ANO_AIG_WORK.AIG; ADDRESS(RDF_WORK_AREA) => R6; SWITCH MON(RDF,GET_ANO_┆
0x3a100…3a180 UnusedSector ┆AIG,R4,R5,R6,R7): ERROR_DONE TO ERR: ERROR_ROUTINE(132=>R1,R4); END; R5 ┆
0x3a180…3a200 UnusedSector ┆+ OFFSET_AIG_LOCAL_NM; "EXAMINE LOCAL PART OF AIG MAP 0 => R3; WHILE R3 << MAX_NO_OF_ANOS +┆
0x3a200…3a280 UnusedSector ┆ 1 DO BEGIN R3 => R4 EXTRACT 4; IF R4 = 0 THEN "MODOLO 16 ? ┆
0x3a280…3a300 UnusedSector ┆ BEGIN R5@INTEGER => R2; R5 + 1; END; WHILE R2 <> 0 DO BEGIN ┆
0x3a300…3a380 UnusedSector ┆ IF R2[0] THEN BEGIN SWITCH CHECK_ANO(R3,R4): BOOLEAN TO ┆
0x3a380…3a400 UnusedSector ┆ TRUE: BEGIN SET_MARK(R4); GOTO FINISH_AIG; EN┆
0x3a400…3a480 UnusedSector ┆D; END; END; R2 SHIFTRL 1; R3 + 1; END; #FFF0 ┆
0x3a480…3a500 UnusedSector ┆=> R2; R3 AND R2; R3 + 16; END; FINISH_AIG: END; END; END; END; ┆
0x3a500…3a580 UnusedSector ┆ "PAGE STEP_ONE_LINE(R4); R1 + 1; PRINTER_POINTER => R7; 2 => R2; 0 => R3; R7@PRINTER_REC_TYPE.FILE_2_ADDR.FIRST_B┆
0x3a580…3a600 UnusedSector ┆YTE + R23; R7@PRINTER_REC_TYPE.READ_END => R4; BUFFER_POINTER => R6; R7@PRINTER_REC_TYPE.NO_OF_ADDR_LINES => R2; ┆
0x3a600…3a680 UnusedSector ┆ "REMAINING LINES R2 - 1; R2 => R7@PRINTER_REC_TYPE.NO_OF_ADDR_LINES; UNTIL R6 >>= R4 LOGOR R2 = 0; UNS(6,ADDRESS(DUMP_REG┆
0x3a680…3a700 UnusedSector ┆[0])=>R7); EXIT(R5); END; MOVC 4 R2 ; 79.00039 1 0877 MOVC 3 R5 ; 79.00040 1┆
0x3a700…3a780 UnusedSector ┆ 0878 JMPI S4 MI4100 ; CONVERT NUMBER TO ASCII 79.00041 1 0879 MOVC TABBUF R5 ; 79.00┆
0x3a780…3a800 UnusedSector ┆042 1 087A MOVC OBJIO R6 ; 79.00043 1 087B JMPI S4 MI300B ; AND WRITE IT 79.00044 1 ┆
0x3a800…3a880 UnusedSector ┆ k AH Y ┆
0x3a880…3a900 UnusedSector ┆ ┆
[…0x1…]
0x3a980…3aa00 UnusedSector ┆ 9b w _ z _ z ┆
0x3aa00…3aa80 UnusedSector ┆ R0 ; GET <CR><CR> 79.00055 1 0886┆
0x3aa80…3ab00 UnusedSector ┆ SLL R0 8 ; 79.00056 1 0887 ADDC CRCHAR R0 ; 79.00057 1 0888 MOV ┆
0x3ab00…3ab80 UnusedSector ┆ R0 3. X5 ; 79.00058 1 0889 JMPI S4 MI300B ; WRITE IT ALL 79.00059 1 088A MOVC LFCHAR ┆
0x3ab80…3ac00 UnusedSector ┆ R0 ; GET <LF> 79.00060 1 088B JMPI S4 MI2040 ; WRITE <LF> 79.00061 1 088C JMPI ┆
0x3ac00…3ac80 UnusedSector ┆"PAGE "********************************************************************" "************************************************┆
0x3ac80…3ad00 UnusedSector ┆********************" " " " MODULE NAME: QACCESS_UTI┆
0x3ad00…3ad80 UnusedSector ┆L " " NUMBER: 522.11.00 " " ┆
0x3ad80…3ae00 UnusedSector ┆ " " FIKS SUBSYSTEM: PIP " " ┆
0x3ae00…3ae80 UnusedSector ┆ " " COPYRIGHT: CHRISTIAN ROVSING A/S ┆
0x3ae80…3af00 UnusedSector ┆ " " " " APE/801001 VERSION: 03 RELEASE: 00 ┆
0x3af00…3af80 UnusedSector ┆ " " " "***********************************┆
0x3af80…3b000 UnusedSector ┆*********************************" " " " DESCRIPTION: ┆
0x3b000…3b080 UnusedSector ┆ " " ----------- " " ME┆
0x3b080…3b100 UnusedSector ┆RGEFILE TO PIP.SOURCE CONTAINS THE PROCEDURES: " " ┆
0x3b100…3b180 UnusedSector ┆ " " READ_PRINTER_QUEUES " " READ_SH_QUEUE ┆
0x3b180…3b200 UnusedSector ┆ " " DELETE_QUEUE_ENTRY " " ENQUEUE_DT ┆
0x3b200…3b280 UnusedSector ┆ " " RELEASE_ACTIVE_ELEMENT " " ┆
0x3b280…3b300 UnusedSector ┆ " " WHICH IS USED AS UTILITY PROCEDURES WHEN DEALING WITH " " QAC┆
0x3b300…3b380 UnusedSector ┆CESS MONITOR PROCEDURES. " " ┆
0x3b380…3b400 UnusedSector ┆ " " REFFERENCE: FIX/1152/DSP/0005 " " ┆
0x3b400…3b480 UnusedSector ┆ " "********************************************************************" " ┆
0x3b480…3b500 UnusedSector ┆ " " MODIFICATIONS: " " ------------- ┆
0x3b500…3b580 UnusedSector ┆ " " REFER TO INFORMATION-FILE " " ┆
0x3b580…3b600 UnusedSector ┆ " "******************************************************************┆
0x3b600…3b680 UnusedSector ┆**" " " " FIKS MONITOR PROCEDURES ┆
0x3b680…3b700 UnusedSector ┆ " " ----------------------- " " MON(QACCESS,READ_GROUP_ELEMENT) ┆
0x3b700…3b780 UnusedSector ┆ " " MON(QACCESS,READ_NON_DESTRUCTIVE) " " MON(QACCESS,DELETE┆
0x3b780…3b800 UnusedSector ┆_ELEMENT) " " MON(QACCESS,WRITE_ELEMENT) " " ┆
0x3b800…3b880 UnusedSector ┆ " " COMMON DATA: ┆
0x3b880…3b900 UnusedSector ┆ " " ----------- " " ALL DATA USED IN PIP IS COMMON FOR EVERY MODULE┆
0x3b900…3b980 UnusedSector ┆/PROCEDURE " " " " MERGE FILES ┆
0x3b980…3ba00 UnusedSector ┆ " " ----------- " " REFER TO LIST OF PI┆
0x3ba00…3ba80 UnusedSector ┆P.S " " " "***********┆
0x3ba80…3bb00 UnusedSector ┆*********************************************************" "********************************************************************┆
0x3bb00…3bb80 UnusedSector ┆" "PAGE PROCEDURE READ_PRINTER_QUEUES(R5); " =================== "READ NEXT ELEMENT WITH HIGHEST PRECEDENCE IN THE Q┆
0x3bb80…3bc00 UnusedSector ┆UEUES OF THE PRINTER "---------------------------------------------------------------------- BEGIN "OF READ_PRINTER_QUEUES P┆
0x3bc00…3bc80 UnusedSector ┆RINTER_NO => R0 => QIOCB.W1; "TERMINAL NO SET_FIRST_ENTRY_ACTIVE => R0 => QIOCB.W2; "SIMPLE FLAG READ AD┆
0x3bc80…3bd00 UnusedSector ┆DRESS(QIOCB) => R4; "REF QIOCB SWITCH MON(QACCESS,READ_GROUP_ELEMENT,R4,R7): ERROR_DONE TO ERR┆
0x3bd00…3bd80 UnusedSector ┆: BEGIN IF R7 = QUEUE_EMPTY THEN BEGIN PRINTER_POINTER => R7; EMPTY_QUEUE => R0 => ┆
0x3bd80…3be00 UnusedSector ┆ "UPDATE MESSAGE_COMPLITION CODE R7@PRINTER_REC_TYPE.MSG_BUF[4]; EXIT(R6,NO_QUEUE_ENTRY); ┆
0x3be00…3be80 UnusedSector ┆ END; ERROR_ROUTINE(111=>R1,R4); END; "OF ERR END; "OF SWITCH QUEUE_ELEMENT_ACTIVE => R1; SET_STATUS┆
0x3be80…3bf00 UnusedSector ┆(R0,R1,R7,R4); EXIT(R5); END; "OF READ_PRINTER_QUEUES "PAGE PROCEDURE READ_SH_QUEUE(R5); " ============= "READ ┆
0x3bf00…3bf80 UnusedSector ┆NEXT ELEMENT IN SPECIAL HANDLING QUEUE "------------------------------------------- BEGIN "OF READ_SH_QUEUE PRINTER_NO ┆
0x3bf80…3c000 UnusedSector ┆ => R0 => QIOCB.W1; "TERM NO SH_QUEUE_NO => R0 => QIOCB.W2; "QUEUE NO FIRST_ENTRY => R0 ┆
0x3c000…3c080 UnusedSector ┆=> QIOCB.W3; SET_FIRST_ENTRY_ACTIVE => R0 => QIOCB.W4; "SIMPLE FLAG READ ADDRESS(QIOCB) => R4; SWITCH MON(QAC┆
0x3c080…3c100 UnusedSector ┆CESS,READ_NON_DESTRUCTIVE,R4,R7): ERROR_DONE TO ERR: BEGIN IF R7 = QUEUE_EMPTY THEN BEGIN PR┆
0x3c100…3c180 UnusedSector ┆INTER_POINTER => R7; EMPTY_QUEUE => R0 => "UPDATE MESSAGE_COMPLITION CODE R7@PRINTER_REC_T┆
0x3c180…3c200 UnusedSector ┆YPE.MSG_BUF[4]; EXIT(R6,NO_SH_QUEUE_ENTRY); END; ERROR_ROUTINE(112=>R1,R4); END; "OF ERR ┆
0x3c200…3c280 UnusedSector ┆ END; "OF SWITCH QUEUE_ELEMENT_ACTIVE => R1; SET_STATUS(R0,R1,R7,R4); SH_QUEUE_NO => R0 => QIOCB.W5; EXIT(R5); END; "┆
0x3c280…3c300 UnusedSector ┆OF READ_SH_QUEUE "PAGE PROCEDURE DELETE_QUEUE_ENTRY(R5); " ================== "DELETE ELEMENT FROM QUEUE AND - IF M┆
0x3c300…3c380 UnusedSector ┆ESSAGE SHALL BE DELETED (SH) THEN ENQUEUE IN PURGE QUEUE "----------------------------------------------------------------------┆
0x3c380…3c400 UnusedSector ┆---------------------- LABEL TRY_AGAIN; BEGIN "OF DELETE_QUEUE_ENTRY QUEUE_ELEMENT_ACTIVE => R1; SWITCH TEST_STATUS(R0,R1,R┆
0x3c400…3c480 UnusedSector ┆7,R4): BOOLEAN TO FALSE: EXIT(R5); END; PRINTER_POINTER => R7; PRINTER_NO => R0 => QIOCB.W1; ┆
0x3c480…3c500 UnusedSector ┆ "TERMINAL NO R7@PRINTER_REC_TYPE.QUEUE_NO => R0 => QIOCB.W2; "QUEUE NO FIRST_ENTRY => R0 => QIOCB.W3; ┆
0x3c500…3c580 UnusedSector ┆ "DELETE FIRST ENTRY ADDRESS(QIOCB) => R4; SWITCH MON(QACCESS,DELETE_ELEMENT,R4,R7): ERROR_DONE TO ERR: ERROR_ROU┆
0x3c580…3c600 UnusedSector ┆TINE(115=>R1,R4); END; QUEUE_ELEMENT_ACTIVE => R1; CLEAR_STATUS(R0,R1,R7,R4); "PAGE QIOCB.W2 => R0; ┆
0x3c600…3c680 UnusedSector ┆ "PURGE_FLAG IF R0 = PURGE_FLAG THEN BEGIN "WRITE QUEUE_ELEMENT TO PQ_QUEUE "--------------------------┆
0x3c680…3c700 UnusedSector ┆----- TRY_AGAIN: PQ_TERM_NO => R0 => QIOCB.W1; "PQ TERMINAL NO PQ_QUEUE_NO => R0 => QIOCB.W2; ┆
0x3c700…3c780 UnusedSector ┆ "PQ QUEUE NO LAST_ENTRY => R0 => QIOCB.W3; "WRITE TO THE END PRINTER_POINTER => R7; ┆
0x3c780…3c800 UnusedSector ┆ R7@PRINTER_REC_TYPE.MTCB_INDEX => R0 => QIOCB.W4; "MTCB INDEX NO_WAIT_PRIVILEGED_QACCESS => R0 => QIOCB.W5; "NO_WAIT ┆
0x3c800…3c880 UnusedSector ┆FOR ENTRY ADDRESS(QIOCB) => R4; SWITCH MON(QACCESS,WRITE_ELEMENT,R4,R7): ERROR_DONE TO ERR: BEGIN ERR┆
0x3c880…3c900 UnusedSector ┆OR_ROUTINE(116=>R1,R4); GOTO TRY_AGAIN; "AFTER LACK OF RESOURCES END; END; "THE CO┆
0x3c900…3c980 UnusedSector ┆DING OF THE THIS SEQUENCE SHALL BE UPDATED WHEN THE PROCEDURES ABOUT 'PURGE' IS SETTELED "--------------------------------------┆
0x3c980…3ca00 UnusedSector ┆-------------------------------------------------------- REAL_MTCB_RESERVED => R1; "TO ENSURE THAT THE MTCB U┆
0x3ca00…3ca80 UnusedSector ┆SE-COUNT WILL BE 1 SET_STATUS(R0,R1,R7,R4); END; EXIT(R5); END; "OF DELETE_QUEUE_ENTRY "PAGE PROCEDURE ENQUEUE_DT(R5); ┆
0x3ca80…3cb00 UnusedSector ┆" ========== "WRITE QUEUE_ELEMENT TO SUPERVISOR DT_QUEUE "------------------------------------------ LABEL TRY_AGAIN; ┆
0x3cb00…3cb80 UnusedSector ┆ BEGIN "OF ENQUEUE_DT TRY_AGAIN: DT_TERM_NO => R0 => QIOCB.W1; "DT TERMINAL NO DT_QUEUE_NO => R0 =┆
0x3cb80…3cc00 UnusedSector ┆> QIOCB.W2; "DT QUEUE NO LAST_ENTRY => R0 => QIOCB.W3; "WRITE TO THE END PRIN┆
0x3cc00…3cc80 UnusedSector ┆TER_POINTER => R7; R7@PRINTER_REC_TYPE.PSEUDO_MTCB_ID => R0 => QIOCB.W4; "MTCB INDEX NO_WAIT_PRIVILEGED_QACCESS => R0 => QIOCB┆
0x3cc80…3cd00 UnusedSector ┆.W5; "NO WAIT FOR ENTRY ADDRESS(QIOCB) => R4; SWITCH MON(QACCESS,WRITE_ELEMENT,R4,R7): ERROR_DONE TO ERR: BE┆
0x3cd00…3cd80 UnusedSector ┆GIN ERROR_ROUTINE(117=>R1,R4); GOTO TRY_AGAIN; "AFTER RESOURCE LACK END; END; EX┆
0x3cd80…3ce00 UnusedSector ┆IT(R5); END; "OF ENQUEUE_DT "PAGE PROCEDURE RELEASE_ACTIVE_ELEMENT(R5); BEGIN "OF RELEASE_ACTIVE_FLAG QUEUE_ELEMENT_A┆
0x3ce00…3ce80 UnusedSector ┆CTIVE => R1; SWITCH TEST_STATUS(R0,R1,R7,R4): BOOLEAN TO FALSE: EXIT(R5); END; PRINTER_NO => R0 => QIOCB.W1; R7@P┆
0x3ce80…3cf00 UnusedSector ┆RINTER_REC_TYPE.QUEUE_NO => R0 => QIOCB.W2; ADDRESS(QIOCB) => R4; SWITCH MON(QACCESS,RELEASE_ACTIVE_FLAG,R4,R7): ERROR_D┆
0x3cf00…3cf80 UnusedSector ┆ONE TO ERR: ERROR_ROUTINE(118=>R1,R4); END; QUEUE_ELEMENT_ACTIVE => R1; CLEAR_STATUS(R0,R1,R7,R4); EXIT(R5); END; ┆
0x3cf80…3d000 UnusedSector ┆ "OF RELEASE_ACTIVE_FLAG "HDB_FILE ? BEGIN HDB_FILE_PRINT => R1; SET_STATUS(R0,R1,R7,R4); END; REA┆
0x3d000…3d080 UnusedSector ┆ L B F D ┆
0x3d080…3d100 UnusedSector ┆ M D B M A S F S D E ┆
0x3d100…3d180 UnusedSector ┆L I M I T E R E R R O R * * * * * S E Q . I N P U T S E Q . I N P U T P A R A M M I S S I N G P L U S P A R ┆
0x3d180…3d200 UnusedSector ┆A M F I L E I D S Y N T A X E R R O R S E Q . I N P U T - F I L E N A M E O R G A N I Z A T I O N ? O R G A ┆
0x3d200…3d280 UnusedSector ┆E_2_ => R1 + R3; "REF.ADRRESS IN DATA_BASE SWITCH MON(MTCB,GETMTCBFILE,R0,R1,R4,R7): ERROR_DONE TO ERR: ERROR┆
0x3d280…3d300 UnusedSector ┆_ROUTINE(200=>R1,R4); END; PRINTER_POINTER => R7; R4 => R7@PRINTER_REC_TYPE.FILE_2_ID; "STORE FILE_ID PSEU┆
0x3d300…3d380 UnusedSector ┆DO_MTCB_FILE_OPEN => R1; SET_STATUS(R0,R1,R7,R4); "SET INITIAL OFFSETS "------------------- 0 => R0 => R7@PRINTER_REC_TYPE.FILE┆
0x3d380…3d400 UnusedSector ┆_2_OFFSET; R7@PRINTER_REC_TYPE.PSEUDO_MTCB.WORD2 => R0; "TOTAL MESSAGE_LENGTH R0 => R7@PRINTER_REC_TYPE.FILE_2_END; EXIT(R5┆
0x3d400…3d480 UnusedSector ┆NEWLARGESWELL I:PIP.A.S O:PIP.L P:PIP.P L:4 X:NO Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z ┆
0x3d480…3d500 UnusedSector ┆Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z ┆
[…0x2…]
0x3d600…3d680 UnusedSector ┆ L B F D ┆
0x3d680…3d700 UnusedSector ┆ M D B M A S F S D E ┆
0x3d700…3d780 UnusedSector ┆L I M I T E R E R R O R * * * * * S E Q . I N P U T S E Q . I N P U T P A R A M M I S S I N G P L U S P A R ┆
0x3d780…3d800 UnusedSector ┆A M F I L E I D S Y N T A X E R R O R S E Q . I N P U T - F I L E N A M E O R G A N I Z A T I O N ? O R G A ┆
0x3d800…3d880 DataSector[bfd#0x0003]
[…0x1f…]
0x3e800…3e880 UnusedSector ┆Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z Z ┆
[…0x1…]
