Disk View
0x00000…00200 HomeBlock {
0x00000…00200 label = »KNY « // @0x0
0x00000…00200 bfdadr = 02 00 00 00 ┆ ┆ // @0x10
0x00000…00200 free_ent = 00 00 00 00 ┆ ┆ // @0x14
0x00000…00200 first_free = 00 00 00 00 ┆ ┆ // @0x18
0x00000…00200 sectors = f4 01 00 00 ┆ ┆ // @0x1c
0x00000…00200 bst_size = 0x0008 // @0x20
0x00000…00200 asf_adr = ec 01 00 00 ┆ ┆ // @0x22
0x00000…00200 bst = 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 // @0x26
0x00000…00200 bstsz = 0x0000 // @0x1b6
0x00000…00200 unused = 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 // @0x1b8
0x00000…00200 boot_entry = 00 00 00 00 ┆ ┆ // @0x1ec
0x00000…00200 created = 280263aa7a02 // @0x1f0
0x00000…00200 accessed = 08d3f95ea102 // @0x1f6
0x00000…00200 format = 0x0002 // @0x1fc
0x00000…00200 state = 0x0003 // @0x1fe
0x00000…00200 }
0x00200…00400 IndexBlock {pad00=ff ff ff ff ┆ ┆, secno=[02 00 00 00 ┆ ┆, 03 00 00 00 ┆ ┆, 04 00 00 00 ┆ ┆, 05 00 00 00 ┆ ┆, 1a 00 00 00 ┆ ┆, 1c 00 00 00 ┆ ┆, 13 00 00 00 ┆ ┆, 14 00 00 00 ┆ ┆, 15 00 00 00 ┆ ┆, 16 00 00 00 ┆ ┆, 17 00 00 00 ┆ ┆, 18 00 00 00 ┆ ┆, 19 00 00 00 ┆ ┆, 1b 00 00 00 ┆ ┆, ac 00 00 00 ┆ ┆, af 00 00 00 ┆ ┆, ba 00 00 00 ┆ ┆, d3 00 00 00 ┆ ┆, e7 00 00 00 ┆ ┆, 09 01 00 00 ┆ ┆, 0b 01 00 00 ┆ ┆, 0d 01 00 00 ┆ ┆, 20 01 00 00 ┆ ┆, 33 01 00 00 ┆3 ┆, 3b 01 00 00 ┆; ┆, 88 01 00 00 ┆ ┆, 8c 01 00 00 ┆ ┆, 8f 01 00 00 ┆ ┆, 92 01 00 00 ┆ ┆, 95 01 00 00 ┆ ┆, 98 01 00 00 ┆ ┆, 9e 01 00 00 ┆ ┆, bd 01 00 00 ┆ ┆]}
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=ff ff ff ff ┆ ┆, secno=[07 00 00 00 ┆ ┆, 89 01 00 00 ┆ ┆]}
0x00e00…00e20 SymbolicFileDesc {valid=0x0001, fname=»BFD«, file=0x0000, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x00e20…00e40 SymbolicFileDesc {valid=0x0001, fname=»MD«, file=0x0001, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x00e40…00e60 SymbolicFileDesc {valid=0x0001, fname=»BM«, file=0x0002, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x00e60…00e80 SymbolicFileDesc {valid=0x0001, fname=»ASF«, file=0x0003, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x00e80…00ea0 SymbolicFileDesc {valid=0x0001, fname=»TOS_V0701.D«, file=0x0005, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x00ea0…00ec0 SymbolicFileDesc {valid=0x0001, fname=»CMI«, file=0x000e, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x00ec0…00ee0 SymbolicFileDesc {valid=0x0001, fname=»CMI_ERROR_TEXTS«, file=0x000f, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x00ee0…00f00 SymbolicFileDesc {valid=0x0001, fname=»COPY«, file=0x0010, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x00f00…00f20 SymbolicFileDesc {valid=0x0001, fname=»DIREC«, file=0x0011, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x00f20…00f40 SymbolicFileDesc {valid=0x0001, fname=»DCOPY«, file=0x0012, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x00f40…00f60 SymbolicFileDesc {valid=0x0001, fname=»EDIT«, file=0x0013, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x00f60…00f80 SymbolicFileDesc {valid=0x0001, fname=»PASSWORDS.C«, file=0x0014, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x00f80…00fa0 SymbolicFileDesc {valid=0x0001, fname=»USERS.C«, file=0x0015, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x00fa0…00fc0 SymbolicFileDesc {valid=0x0001, fname=»OKCPU_TDXDR.C«, file=0x0016, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x00fc0…00fe0 SymbolicFileDesc {valid=0x0001, fname=»TDXDR.0109.C«, file=0x0017, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x00fe0…01000 SymbolicFileDesc {valid=0x0001, fname=»TDXTEST_SYNTAX.A«, file=0x0018, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x01000…01080 DataSector[bfd#0x0002]
[…0x3…]
0x01200…01400 IndexBlock {pad00=5a a5 5a a5 ┆Z Z ┆, secno=[0a 00 00 00 ┆ ┆]}
0x01400…01420 SymbolicFileDesc {valid=0x0001, fname=»TOS_COMMAND.C«, file=0x0004, sfd3=00 00 f0 a1 ┆ ┆, sfd4=d8 04 4a 02 ┆ J ┆, sfd5=49 00 fd 95 ┆I ┆}
0x01420…01440 SymbolicFileDesc {valid=0x0001, fname=»TOS_ERRORS.T«, file=0x0006, sfd3=00 00 fd 94 ┆ ┆, sfd4=26 01 1a 43 ┆& C┆, sfd5=bb 59 c9 06 ┆ Y ┆}
0x01440…01460 SymbolicFileDesc {valid=0x0001, fname=»TOS_LOGIN.C«, file=0x0007, sfd3=00 00 00 00 ┆ ┆, sfd4=1a 85 bb 3c ┆ <┆, sfd5=19 06 c9 16 ┆ ┆}
0x01460…01480 SymbolicFileDesc {valid=0x0001, fname=»TOS_LTUON.C«, file=0x0008, sfd3=00 00 c9 85 ┆ ┆, sfd4=fb 19 bb 58 ┆ X┆, sfd5=c8 02 fd 9c ┆ ┆}
0x01480…014a0 SymbolicFileDesc {valid=0x0001, fname=»TOS_PRINT.C«, file=0x0009, sfd3=00 00 fb 5c ┆ \┆, sfd4=e5 07 1a 07 ┆ ┆, sfd5=fb 5c e5 0b ┆ \ ┆}
0x014a0…014c0 SymbolicFileDesc {valid=0x0001, fname=»TOS_RUN.C«, file=0x000a, sfd3=00 00 1c 41 ┆ A┆, sfd4=fb dc cd 02 ┆ ┆, sfd5=1a 45 fb 59 ┆ E Y┆}
0x014c0…014e0 SymbolicFileDesc {valid=0x0001, fname=»TOS_SERVICE.C«, file=0x000b, sfd3=00 00 fd 9c ┆ ┆, sfd4=5f 00 1a 45 ┆_ E┆, sfd5=19 41 c9 85 ┆ A ┆}
0x014e0…01500 SymbolicFileDesc {valid=0x0001, fname=»TOS_STATUS.C«, file=0x000c, sfd3=00 00 bb 68 ┆ h┆, sfd4=a8 02 bb 6f ┆ o┆, sfd5=af 03 fd 9d ┆ ┆}
0x01500…01520 SymbolicFileDesc {valid=0x0001, fname=»TOS_TERMINALON.C«, file=0x000d, sfd3=00 00 4a 02 ┆ J ┆, sfd4=49 00 fd 95 ┆I ┆, sfd5=28 02 1a 45 ┆( E┆}
0x01520…01540 SymbolicFileDesc {valid=0x0000, fname=» h X v E«, file=0x94fd, sfd3=26 01 1c 41 ┆& A┆, sfd4=e5 0b 1a 01 ┆ ┆, sfd5=bc 92 ec 21 ┆ !┆}
0x01540…01560 SymbolicFileDesc {valid=0x0000, fname=» A " k«, file=0x0002, sfd3=d8 01 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x01560…01580 SymbolicFileDesc {valid=0x0000, fname=»«, file=0x0005, sfd3=00 00 00 00 ┆ ┆, sfd4=be 05 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x01580…015a0 SymbolicFileDesc {valid=0x0000, fname=»«, file=0x0000, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 64 00 ┆ d ┆}
0x015a0…015c0 SymbolicFileDesc {valid=0x0000, fname=»«, file=0x0000, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x015c0…015e0 SymbolicFileDesc {valid=0x0000, fname=»«, file=0x0000, sfd3=00 00 00 00 ┆ ┆, sfd4=01 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x015e0…01600 SymbolicFileDesc {valid=0x0000, fname=»«, file=0x0000, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
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=00 00 fc ff ┆ ┆, sfd4=01 48 00 00 ┆ H ┆, sfd5=fd ff 00 00 ┆ ┆}
0x31220…31240 SymbolicFileDesc {valid=0x0001, fname=»ATTR«, file=0x0011, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 fd ff ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x31240…31260 SymbolicFileDesc {valid=0x0001, fname=»LIST«, file=0x0011, sfd3=00 00 00 00 ┆ ┆, sfd4=fd ff 00 00 ┆ ┆, sfd5=00 00 fd ff ┆ ┆}
0x31260…31280 SymbolicFileDesc {valid=0x0001, fname=»CREATE«, file=0x0011, sfd3=00 00 fd ff ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=fd ff 00 00 ┆ ┆}
0x31280…312a0 SymbolicFileDesc {valid=0x0001, fname=»REMOVE«, file=0x0011, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 fd ff ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x312a0…312c0 SymbolicFileDesc {valid=0x0001, fname=»RENAME«, file=0x0011, sfd3=00 00 00 00 ┆ ┆, sfd4=fd ff 00 00 ┆ ┆, sfd5=00 00 fd ff ┆ ┆}
0x312c0…312e0 SymbolicFileDesc {valid=0x0001, fname=»PROTECT«, file=0x0011, sfd3=00 00 fd ff ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=fd ff 00 00 ┆ ┆}
0x312e0…31300 SymbolicFileDesc {valid=0x0001, fname=»TEST10«, file=0x001a, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 fd ff ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x31300…31320 SymbolicFileDesc {valid=0x0001, fname=»TEST1«, file=0x001b, sfd3=00 00 00 00 ┆ ┆, sfd4=fd ff 00 00 ┆ ┆, sfd5=00 00 fd ff ┆ ┆}
0x31320…31340 SymbolicFileDesc {valid=0x0001, fname=»CONFIG«, file=0x001c, sfd3=00 00 fd ff ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=fd ff 00 00 ┆ ┆}
0x31340…31360 SymbolicFileDesc {valid=0x0001, fname=»TEST3«, file=0x001d, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 fd ff ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x31360…31380 SymbolicFileDesc {valid=0x0001, fname=»TEST3D«, file=0x001e, sfd3=00 00 00 00 ┆ ┆, sfd4=fd ff 00 00 ┆ ┆, sfd5=00 00 fd ff ┆ ┆}
0x31380…313a0 SymbolicFileDesc {valid=0x0001, fname=»TESTB«, file=0x001f, sfd3=00 00 fd ff ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=fd ff 00 00 ┆ ┆}
0x313a0…313c0 SymbolicFileDesc {valid=0x0001, fname=»TEST1_2F«, file=0x0020, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 fd ff ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x313c0…313e0 SymbolicFileDesc {valid=0x0000, fname=»«, file=0x0000, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 02 00 ┆ ┆}
0x313e0…31400 SymbolicFileDesc {valid=0x0000, fname=»c z ,f z e z«, file=0x0000, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x31400…31600 IndexBlock {pad00=0a 0a 22 42 ┆ "B┆, secno=[8b 01 00 00 ┆ ┆]}
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=22 41 43 43 ┆"ACC┆, secno=[8e 01 00 00 ┆ ┆]}
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=2d 0a 0a 42 ┆- B┆, secno=[91 01 00 00 ┆ ┆]}
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=45 52 5f 52 ┆ER_R┆, secno=[94 01 00 00 ┆ ┆]}
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=52 30 20 20 ┆R0 ┆, secno=[97 01 00 00 ┆ ┆]}
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=20 20 20 20 ┆ ┆, secno=[9a 01 00 00 ┆ ┆, 9b 01 00 00 ┆ ┆, 9c 01 00 00 ┆ ┆, 9d 01 00 00 ┆ ┆]}
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 ┆DO CONFIG 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 *TDXDR.0109.C CDIR:@FILSYS-FILE*KNY *MD VOL:KNY ┆
0x36e80…36f00 UnusedSector ┆ CIN:@TTY000-INTR*T0 *T0 COUT:@TTY000-INTR*T0 *T0 :TEST3 Y*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 *TEST_TDX CDIR:@FILSYS-FILE*KNY *MD VOL:KNY ┆
0x37280…37300 UnusedSector ┆ CIN:@TTY000-INTR*T0 *T0 COUT:@TTY000-INTR*T0 *T0 I:TEST1_2F EST┆
0x37300…37380 UnusedSector ┆.TRUNK 1 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…37a00 IndexBlock {pad00=42 45 47 49 ┆BEGI┆, secno=[be 01 00 00 ┆ ┆]}
0x37a00…37c00 BasicFileDesc {nbr=0x0020, ok=0x0001, bfd01=0x0000, bfd02=0x0000, type=0x000e, length=0x00fc, bfd05=0x0000, nsect=0x0001, bfd07=0x0000, areasz=0x0005, sector=0x01bc, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x5c07}
0x37c00…37c80 DataSector[bfd#0x0020]
[…0x13…]
0x38600…38680 UnusedSector ┆1F3F ISMANTLE #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 ┆ CSS380 # ( - ! 0 5 ; > Q T ^ D e i n s { ┆
0x38880…38900 UnusedSector ┆ % : R f q ( 3 B Q \ k s v } + 0 5 8 ; ? G J M P S V Y ` b d ┆
0x38900…38980 UnusedSector ┆l ! # n p u z a * ┆
0x38980…38a00 UnusedSector 0x00[128]
0x38a00…38a80 UnusedSector ┆ B j z '@J A Y A P AX z l= | * )P ) P PQl= @ B Y A ┆
0x38a80…38b00 UnusedSector ┆ B H P BX l= ~ s \ \ H` *I X _ W Ai?V T X i A H# _ k Ai?V _ X i ┆
0x38b00…38b80 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 ┆
0x38b80…38c00 UnusedSector ┆ * Bl= I X A CH A BO 0 A B H P CXB l= | *PQl= @ B Y 1 A BH ┆
0x38c00…38c80 UnusedSector ┆ , / H Z P B B \ Y 6 v E J Z Y BX5 / l= ) w , O` ┆
0x38c80…38d00 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 ┆
0x38d00…38d80 UnusedSector ┆ Jd G X _ " \ ~ X \ P! T Y X [ ZI ! J AH I X a Y X [ AI ! J AH I ┆
0x38d80…38e00 UnusedSector ┆ YH I X Y ] % ' 'AO CJ D Y j 2DI DX O CO B i X [ dI ! J YH I X d~ ┆
0x38e00…38e80 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 ┆
0x38e80…38f00 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┆
0x38f00…38f80 UnusedSector ┆ Y s \ XH l= P \ I H *B X \ I J \ IH 0 ┆
0x38f80…39000 UnusedSector ┆ l= P '@ , $ @ B Y % A BH s \ A B H s \ B s BX) P l= ┆
0x39000…39080 UnusedSector ┆ P \ IH / q \ B I ! J - A J ! J I \ I X2 l= P ┆
0x39080…39100 UnusedSector ┆ \ IH ( q \ B I ! J - A J ! J I \ I X2 l= ) y O ┆
0x39100…39180 UnusedSector ┆ @~ \ r l= ) x O 'B , A E Y B E H * ! J E 0 EX A┆
0x39180…39200 UnusedSector ┆ \ H` ) , ) * j A G B } ! B GH` , X V \ Y 6 Z P j Y X$ ┆
0x39200…39280 UnusedSector ┆ \ r \ t \ | 'E A $ F Y B FH A X C v D J FX Z P : l= ) x O ┆
0x39280…39300 UnusedSector ┆ @~ s A Y ( p \ \ ZP \ Y ) \ Y X * \ I J \ A I / Z Q | V O S ┆
0x39300…39380 UnusedSector ┆ j Y j Y j Y j Y j A IV O C G C \ | > A A H` *I h _ W P┆
0x39380…39400 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┆
0x39400…39480 UnusedSector ┆ l sT H G F X* E kT { l= ~ ;'F \ G Y J G 0 GX \ \ H` *I h _ W ┆
0x39480…39500 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 ┆
0x39500…39580 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 ┆
0x39580…39600 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 ┆
0x39600…39680 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! \┆
0x39680…39700 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 ┆
0x39700…39780 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 ┆
0x39780…39800 UnusedSector ┆ Y g J| s '@J A Y A Y 1A AX Y [ J~ ( AI- ! Y g J| s '@J ┆
0x39800…39880 UnusedSector ┆ A Y 2A Y 1A AX ] l= h?V mH Z ! Z ! Z P Z P Y z 0 P 'Ji?V ┆
0x39880…39900 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 ┆
0x39900…39980 UnusedSector ┆ J| J J / s # h J| J J / J I / s d J JH I X| J| J J / ┆
0x39980…39a00 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 \┆
0x39a00…39a80 UnusedSector ┆ B Y 0 j?V H O l= ) $P h ] i h [ HI ! J GH I s \ $ \ ! J I ┆
0x39a80…39b00 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 ┆
0x39b00…39b80 UnusedSector ┆ Y X B ! J I / s Z Y X B ! J I / s X < A| J4 A / s \ C H P! P! ┆
0x39b80…39c00 UnusedSector ┆ l= P X _ B ! J I / s i X 7 B J I / s \ CH , | J I / s Z 0┆
0x39c00…39c80 UnusedSector ┆ A \ IH Y X _ > B| J8 B / s Z P Z P Z P" P! l= l= ) P , , ┆
0x39c80…39d00 UnusedSector ┆O ( o J M X _ " \ ~ X Z )P \ \ O ( x j )P ) V O B j Y H O y \┆
0x39d00…39d80 UnusedSector ┆ \ H ) P ) B # l= 'a , @ c Y A c H P cX '` \ a Y A a H P a┆
0x39d80…39e00 UnusedSector ┆X 'a \ b Y A b H P bX 'c \ d Y = A dH` ) P ) P ) P ) _ o 6 \ )P ) H ┆
0x39e00…39e80 UnusedSector ┆ ) _ w A Z I HP Z n | 2 Z B ~ dXA Z ) P ) o | 2 Z P! 0 \ \ H` i X x \┆
0x39e80…39f00 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 ┆
0x39f00…39f80 UnusedSector ┆ P G F X' E + 9 l= O A P ) ( p 5 \ p u \ Y X p B ! s d Z ) \ ) \┆
0x39f80…3a000 UnusedSector ┆ ) \ ) \ ) \ ) \ ) X p 5 'g j Y 0 'w j i X B ! J I / s \ Y X ┆
0x3a000…3a080 UnusedSector ┆ A| J4 A / s \ f H P! d P! \ | Z Y X B ! s P#/ e e \ eH Y X ┆
0x3a080…3a100 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┆
0x3a100…3a180 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 ┆
0x3a180…3a200 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 ┆
0x3a200…3a280 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 _ ┆
0x3a280…3a300 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┆
0x3a300…3a380 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 _┆
0x3a380…3a400 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┆
0x3a400…3a480 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 ┆
0x3a480…3a500 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 ┆
0x3a500…3a580 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 \ ~ '┆
0x3a580…3a600 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┆
0x3a600…3a680 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 ┆
0x3a680…3a700 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 ┆
0x3a700…3a780 UnusedSector ┆ X i A Y b & 'g gI ! J \ %H I !J V I X _ m B # j g~ Z %P g Z % \ % X/ \ \ ┆
0x3a780…3a800 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 _ _ \ ┆
0x3a800…3a880 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 ┆
0x3a880…3a900 UnusedSector ┆ B B J I / d X B Y X X A Y X X \ j n 6 ' D D ┆
0x3a900…3a980 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┆
0x3a980…3aa00 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` ) ┆
0x3aa00…3aa80 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 ┆
0x3aa80…3ab00 UnusedSector ┆j?V Y H Z $P Z %P# \ \ H` ) H A 2j?V Y H Z & )H i?V ( / Z P! kL A┆
0x3ab00…3ab80 UnusedSector ┆ \ S Y ' 0 % Y Yb[ $ # a , b[ l FI┆
0x3ab80…3ac00 UnusedSector ┆LE ] ~ @ k N L I O - E R R O R A T ┆
0x3ac00…3ac80 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 ┆
0x3ac80…3ad00 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 ┆
0x3ad00…3ad80 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 _ ┆
0x3ad80…3ae00 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 ┆
0x3ae00…3ae80 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 : ┆
0x3ae80…3af00 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 ┆
0x3af00…3af80 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 ┆
0x3af80…3b000 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 ┆
0x3b000…3b080 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 ┆
0x3b080…3b100 UnusedSector ┆t o T O S .SOURCE CONTAINS THE PROCEDURES: " " ┆
0x3b100…3b180 UnusedSector ┆ " " READ_PRINTER_QUEUES " " READ_SH_QUEUE ┆
0x3b180…3b200 UnusedSector ┆ " " DELETE_QUEUE_ENTRY " " ENQUEUE_DT ┆
0x3b200…3b280 UnusedSector ┆CLOSE IG N FD00 AR:8 UT:0 " " ┆
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 ┆@FILSYS-FILE*KNY *MD *TDXDR.0109.C CDIR:@FILSYS-FILE*KNY *MD VOL:KNY ┆
0x3b680…3b700 UnusedSector ┆ CIN:@TTY000-INTR*T0 *T0 COUT:@TTY000-INTR*T0 *T0 :TEST3 F NIT┆
0x3b700…3b780 UnusedSector ┆.TELE.TEST " " 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 ┆@FILSYS-FILE*KNY *MD *ATTR CDIR:@FILSYS-FILE*KNY *MD VOL:KNY ┆
0x3ba80…3bb00 UnusedSector ┆ CIN:@TTY000-INTR*T0 *T0 COUT:@TTY000-INTR*T0 *T0 TESTB NIT┆
0x3bb00…3bb80 UnusedSector ┆.TELE.TEST .A 701.D AD_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 ┆RINT O => 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 ┆@FILSYS-FILE*KNY *MD *REMOVE CDIR:@FILSYS-FILE*KNY *MD VOL:KNY ┆
0x3be80…3bf00 UnusedSector ┆ CIN:@TTY000-INTR*T0 *T0 COUT:@TTY000-INTR*T0 *T0 TDXTST "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 0x1a[128]
[…0x1…]
