Disk View
0x00000…00200 HomeBlock {
0x00000…00200 label = »CRD2322 « // @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 = 0x0000 // @0x20
0x00000…00200 asf_adr = 00 00 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 = 000000000000 // @0x1f0
0x00000…00200 accessed = 000000000000 // @0x1f6
0x00000…00200 format = 0x0000 // @0x1fc
0x00000…00200 state = 0x0000 // @0x1fe
0x00000…00200 }
0x00200…00400 IndexBlock {pad00=00 00 00 00 ┆ ┆, secno=[02 00 00 00 ┆ ┆, 03 00 00 00 ┆ ┆, 04 00 00 00 ┆ ┆, 09 00 00 00 ┆ ┆, 0b 00 00 00 ┆ ┆, 1c 00 00 00 ┆ ┆, 23 00 00 00 ┆# ┆, 55 00 00 00 ┆U ┆, 89 00 00 00 ┆ ┆, 49 00 00 00 ┆I ┆, 4c 00 00 00 ┆L ┆, 4e 00 00 00 ┆N ┆, 50 00 00 00 ┆P ┆, 52 00 00 00 ┆R ┆, 92 00 00 00 ┆ ┆]}
0x00400…00600 BasicFileDesc {nbr=0x0000, ok=0x0001, bfd01=0x0000, bfd02=0x0000, type=0x000e, length=0x1e00, bfd05=0x0000, nsect=0x000f, 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=0x0200, bfd05=0x0000, nsect=0x0001, bfd07=0x0000, areasz=0x0001, sector=0x0005, bfd0a=0x0000, bfd0b=0xfffc, flags=0x59e1, bfd0d=0x0000, min3=0xfffd, bfd0f=0x0000}
0x00800…00a00 BasicFileDesc {nbr=0x0002, ok=0x0001, bfd01=0x0000, bfd02=0x0000, type=0x000c, length=0x0200, bfd05=0x0000, nsect=0x0001, bfd07=0x0000, areasz=0x0000, sector=0x0007, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xfffd, bfd0f=0x0000}
0x00a00…00c00 IndexBlock {pad00=00 00 00 00 ┆ ┆, secno=[06 00 00 00 ┆ ┆]}
0x00c00…00c20 SymbolicFileDesc {valid=0x0001, fname=»BFD«, file=0x0000, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x00c20…00c40 SymbolicFileDesc {valid=0x0001, fname=»MD«, file=0x0001, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x00c40…00c60 SymbolicFileDesc {valid=0x0001, fname=»BM«, file=0x0002, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x00c60…00c80 SymbolicFileDesc {valid=0x0001, fname=»SYSTEMMODULES.D«, file=0x0003, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x00c80…00ca0 SymbolicFileDesc {valid=0x0001, fname=»S2SYSS.S«, file=0x0007, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x00ca0…00cc0 SymbolicFileDesc {valid=0x0001, fname=»SWELLPREFIX.D«, file=0x0006, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x00cc0…00ce0 SymbolicFileDesc {valid=0x0000, fname=»«, file=0x0000, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
[…0x9…]
0x00e00…00e80 DataSector[bfd#0x0002]
[…0x3…]
0x01000…01200 IndexBlock {pad00=5a a5 5a a5 ┆Z Z ┆, secno=[0c 00 00 00 ┆ ┆]}
0x01200…01400 BasicFileDesc {nbr=0x0003, ok=0x0001, bfd01=0x0000, bfd02=0x0000, type=0x000a, length=0x0200, bfd05=0x0000, nsect=0x0001, bfd07=0x0000, areasz=0x0001, sector=0x0008, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4841, bfd0d=0x0000, min3=0xffff, bfd0f=0x79e1}
0x01400…01600 IndexBlock {pad00=5a a5 5a a5 ┆Z Z ┆, secno=[0d 00 00 00 ┆ ┆, 0e 00 00 00 ┆ ┆, 0f 00 00 00 ┆ ┆, 10 00 00 00 ┆ ┆, 11 00 00 00 ┆ ┆, 12 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 ┆ ┆, 1a 00 00 00 ┆ ┆]}
0x01600…01800 BasicFileDesc {nbr=0x0004, ok=0x0001, bfd01=0x0001, bfd02=0x2e5c, type=0x000e, length=0x1a80, bfd05=0x0000, nsect=0x000e, bfd07=0x0000, areasz=0x0001, sector=0x000a, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x7c07}
0x01800…01820 SymbolicFileDesc {valid=0x0001, fname=»IO_SYSTEM.C«, file=0x0004, sfd3=00 00 63 46 ┆ cF┆, sfd4=01 00 4d 51 ┆ MQ┆, sfd5=01 00 4f 58 ┆ OX┆}
0x01820…01840 SymbolicFileDesc {valid=0x0001, fname=»TTYTOP.C«, file=0x0005, sfd3=00 00 87 86 ┆ ┆, sfd4=01 00 fa 8d ┆ ┆, sfd5=01 00 8c 91 ┆ ┆}
0x01840…01860 SymbolicFileDesc {valid=0x0001, fname=»PASRTS.810203.C«, file=0x0008, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x01860…01880 SymbolicFileDesc {valid=0x0001, fname=»LPD.B«, file=0x000e, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x01880…018a0 SymbolicFileDesc {valid=0x0000, fname=»PASRTS.CODES3.S«, file=0x0008, sfd3=00 00 01 00 ┆ ┆, sfd4=56 23 00 00 ┆V# ┆, sfd5=3b 0b 53 05 ┆; S ┆}
0x018a0…018c0 SymbolicFileDesc {valid=0x0000, fname=» % l n W S CD«, file=0x3043, sfd3=30 30 07 00 ┆00 ┆, sfd4=01 00 00 00 ┆ ┆, sfd5=a1 2d 01 00 ┆ - ┆}
0x018c0…018e0 SymbolicFileDesc {valid=0x0000, fname=» g#«, file=0x0000, sfd3=04 e0 25 1a ┆ % ┆, sfd4=02 00 00 02 ┆ ┆, sfd5=1d 0d 73 05 ┆ s ┆}
0x018e0…01900 SymbolicFileDesc {valid=0x0000, fname=» t v %«, file=0x057b, sfd3=5c 0c 7b 05 ┆\ { ┆, sfd4=7d 05 a9 25 ┆} %┆, sfd5=28 1d 88 05 ┆( ┆}
0x01900…01920 SymbolicFileDesc {valid=0x0000, fname=» p %D&«, file=0x0200, sfd3=00 00 00 02 ┆ ┆, sfd4=00 00 01 00 ┆ ┆, sfd5=02 00 01 00 ┆ ┆}
0x01920…01940 SymbolicFileDesc {valid=0x0000, fname=» - a-«, file=0x0001, sfd3=45 41 54 45 ┆EATE┆, sfd4=20 50 41 53 ┆ PAS┆, sfd5=43 41 4c 50 ┆CALP┆}
0x01940…01960 SymbolicFileDesc {valid=0x0000, fname=»FIX R/5 CREATE S«, file=0x4557, sfd3=4c 4c 20 52 ┆LL R┆, sfd4=2f 35 0a 49 ┆/5 I┆, sfd5=43 52 45 41 ┆CREA┆}
0x01960…01980 SymbolicFileDesc {valid=0x0000, fname=» SWELL.D D/2 CR«, file=0x4145, sfd3=54 45 20 53 ┆TE S┆, sfd4=57 45 4c 4c ┆WELL┆, sfd5=50 52 45 46 ┆PREF┆}
0x01980…019a0 SymbolicFileDesc {valid=0x0000, fname=».D D/2 YCREATE L«, file=0x4e49, sfd3=4b 20 52 2f ┆K R/┆, sfd4=35 0a 43 52 ┆5 CR┆, sfd5=45 41 54 45 ┆EATE┆}
0x019a0…019c0 SymbolicFileDesc {valid=0x0000, fname=»DXDRV R/5 CREATE«, file=0x0800, sfd3=00 38 1b 00 ┆ 8 ┆, sfd4=de 05 8c 09 ┆ ┆, sfd5=de 05 49 00 ┆ I ┆}
0x019c0…019e0 SymbolicFileDesc {valid=0x0000, fname=» ? %j/«, file=0x05f0, sfd3=d2 00 ff ff ┆ ┆, sfd4=ee 05 19 0a ┆ ┆, sfd5=ee 05 00 00 ┆ ┆}
0x019e0…01a00 SymbolicFileDesc {valid=0x0000, fname=» % %«, file=0x0000, sfd3=00 02 00 00 ┆ ┆, sfd4=00 06 37 0f ┆ 7 ┆, sfd5=00 06 05 07 ┆ ┆}
0x01a00…01a80 DataSector[bfd#0x0004]
[…0x37…]
0x03600…03800 IndexBlock {pad00=5a a5 5a a5 ┆Z Z ┆, secno=[1d 00 00 00 ┆ ┆]}
0x03800…03a00 BasicFileDesc {nbr=0x0005, ok=0x0001, bfd01=0x4554, bfd02=0x2e4d, type=0x000e, length=0x0556, bfd05=0x0000, nsect=0x0001, bfd07=0x0000, areasz=0x0005, sector=0x001b, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x7c07}
0x03a00…03a80 DataSector[bfd#0x0005]
[…0x13…]
0x04400…04600 IndexBlock {pad00=5a a5 5a a5 ┆Z Z ┆, secno=[24 00 00 00 ┆$ ┆, 25 00 00 00 ┆% ┆, 26 00 00 00 ┆& ┆, 27 00 00 00 ┆' ┆, 28 00 00 00 ┆( ┆, 29 00 00 00 ┆) ┆, 2a 00 00 00 ┆* ┆, 2b 00 00 00 ┆+ ┆, 2c 00 00 00 ┆, ┆, 2d 00 00 00 ┆- ┆, 2e 00 00 00 ┆. ┆, 2f 00 00 00 ┆/ ┆, 30 00 00 00 ┆0 ┆, 31 00 00 00 ┆1 ┆, 32 00 00 00 ┆2 ┆]}
0x04600…04800 BasicFileDesc {nbr=0x0006, ok=0x0001, bfd01=0x0000, bfd02=0x0000, type=0x000a, length=0x0200, bfd05=0x0000, nsect=0x0001, bfd07=0x0000, areasz=0x0001, sector=0x0047, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4841, bfd0d=0x0000, min3=0xffff, bfd0f=0x79e1}
0x04800…04880 DataSector[bfd#0x0008]
[…0x3b…]
0x06600…06800 IndexBlock {pad00=20 54 48 45 ┆ THE┆, secno=[34 00 00 00 ┆4 ┆, 35 00 00 00 ┆5 ┆, 36 00 00 00 ┆6 ┆, 37 00 00 00 ┆7 ┆, 38 00 00 00 ┆8 ┆, 39 00 00 00 ┆9 ┆, 3a 00 00 00 ┆: ┆, 3b 00 00 00 ┆; ┆, 3c 00 00 00 ┆< ┆, 3d 00 00 00 ┆= ┆, 3e 00 00 00 ┆> ┆, 3f 00 00 00 ┆? ┆, 40 00 00 00 ┆@ ┆, 41 00 00 00 ┆A ┆, 42 00 00 00 ┆B ┆, 43 00 00 00 ┆C ┆, 44 00 00 00 ┆D ┆, 45 00 00 00 ┆E ┆, 46 00 00 00 ┆F ┆]}
0x06800…06880 DataSector[bfd#0x0007]
[…0x4b…]
0x08e00…09000 IndexBlock {pad00=3d 3d 3d 3d ┆====┆, secno=[4a 00 00 00 ┆J ┆]}
0x09000…09200 IndexBlock {pad00=3e 20 58 3b ┆> X;┆, secno=[53 00 00 00 ┆S ┆, 54 00 00 00 ┆T ┆, 56 00 00 00 ┆V ┆, 57 00 00 00 ┆W ┆, 58 00 00 00 ┆X ┆, 59 00 00 00 ┆Y ┆, 5a 00 00 00 ┆Z ┆]}
0x09200…09400 BasicFileDesc {nbr=0x0009, ok=0x0001, bfd01=0x0054, bfd02=0x004e, type=0x000e, length=0x0db9, bfd05=0x0000, nsect=0x0007, bfd07=0x0000, areasz=0x0001, sector=0x0048, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x7c07}
0x09400…09420 SymbolicFileDesc {valid=0x0001, fname=»COMONPARAMS.S«, file=0x0009, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x09420…09440 SymbolicFileDesc {valid=0x0001, fname=»IOSPARAMS.S«, file=0x000a, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x09440…09460 SymbolicFileDesc {valid=0x0001, fname=»FMSPARAMS.S«, file=0x000b, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x09460…09480 SymbolicFileDesc {valid=0x0001, fname=»DISKDRVPARAMS.S«, file=0x000c, sfd3=00 00 00 00 ┆ ┆, sfd4=b0 26 7e 85 ┆ &~ ┆, sfd5=01 00 a2 19 ┆ ┆}
0x09480…094a0 SymbolicFileDesc {valid=0x0001, fname=»MONITORNAMES.S«, file=0x000d, sfd3=00 00 43 44 ┆ CD┆, sfd4=43 30 30 30 ┆C000┆, sfd5=07 00 01 00 ┆ ┆}
0x094a0…094c0 SymbolicFileDesc {valid=0x0000, fname=»}«, file=0x0000, sfd3=00 00 60 05 ┆ ` ┆, sfd4=61 07 60 05 ┆a ` ┆, sfd5=68 05 a9 25 ┆h %┆}
0x094c0…094e0 SymbolicFileDesc {valid=0x0000, fname=» ~ r«, file=0x0000, sfd3=7e 85 01 00 ┆~ ┆, sfd4=00 00 bb 0d ┆ ┆, sfd5=72 05 93 06 ┆r ┆}
0x094e0…09500 SymbolicFileDesc {valid=0x0000, fname=» ~ ~«, file=0x071d, sfd3=00 00 7c 05 ┆ | ┆, sfd4=a9 25 02 00 ┆ % ┆, sfd5=1d 07 00 00 ┆ ┆}
0x09500…09520 SymbolicFileDesc {valid=0x0000, fname=» %«, file=0x0000, sfd3=00 00 00 00 ┆ ┆, sfd4=00 00 00 00 ┆ ┆, sfd5=00 00 00 00 ┆ ┆}
0x09520…09540 SymbolicFileDesc {valid=0x0000, fname=» U P ~ I«, file=0x0052, sfd3=45 00 43 00 ┆E C ┆, sfd4=54 00 4f 00 ┆T O ┆, sfd5=52 00 59 00 ┆R Y ┆}
0x09540…09560 SymbolicFileDesc {valid=0x0000, fname=»C O N N E C T«, file=0x0044, sfd3=49 00 52 00 ┆I R ┆, sfd4=45 00 43 00 ┆E C ┆, sfd5=54 00 4f 00 ┆T O ┆}
0x09560…09580 SymbolicFileDesc {valid=0x0000, fname=»Y L O O K U P«, file=0x0020, sfd3=42 00 46 00 ┆B F ┆, sfd4=44 00 00 00 ┆D ┆, sfd5=4e 00 4f 00 ┆N O ┆}
0x09580…095a0 SymbolicFileDesc {valid=0x0000, fname=»F I L E S E N«, file=0x0054, sfd3=45 00 52 00 ┆E R ┆, sfd4=45 00 44 00 ┆E D ┆, sfd5=20 00 49 00 ┆ I ┆}
0x095a0…095c0 SymbolicFileDesc {valid=0x0000, fname=» D I R E C T O«, file=0x0052, sfd3=59 00 0a 00 ┆Y ┆, sfd4=00 00 49 00 ┆ I ┆, sfd5=4e 00 49 00 ┆N I ┆}
0x095c0…095e0 SymbolicFileDesc {valid=0x0000, fname=» ? %j/«, file=0x05f0, sfd3=82 00 ff ff ┆ ┆, sfd4=ee 05 19 0a ┆ ┆, sfd5=ee 05 00 00 ┆ ┆}
0x095e0…09600 SymbolicFileDesc {valid=0x0000, fname=» % %«, file=0x0000, sfd3=00 02 00 00 ┆ ┆, sfd4=00 06 37 0f ┆ 7 ┆, sfd5=00 06 05 07 ┆ ┆}
0x09600…09800 IndexBlock {pad00=20 20 3b 20 ┆ ; ┆, secno=[65 00 00 00 ┆e ┆, 66 00 00 00 ┆f ┆, 67 00 00 00 ┆g ┆, 68 00 00 00 ┆h ┆, 69 00 00 00 ┆i ┆, 6a 00 00 00 ┆j ┆, 6b 00 00 00 ┆k ┆, 6c 00 00 00 ┆l ┆, 6d 00 00 00 ┆m ┆, 6e 00 00 00 ┆n ┆, 6f 00 00 00 ┆o ┆, 70 00 00 00 ┆p ┆, 71 00 00 00 ┆q ┆, 72 00 00 00 ┆r ┆, 73 00 00 00 ┆s ┆, 74 00 00 00 ┆t ┆, 75 00 00 00 ┆u ┆, 76 00 00 00 ┆v ┆, 77 00 00 00 ┆w ┆, 78 00 00 00 ┆x ┆, 79 00 00 00 ┆y ┆]}
0x09800…09a00 BasicFileDesc {nbr=0x000a, ok=0x0001, bfd01=0x5241, bfd02=0x4d41, type=0x000e, length=0x29e0, bfd05=0x0000, nsect=0x0015, bfd07=0x0000, areasz=0x0001, sector=0x004b, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x7c07}
0x09a00…09c00 IndexBlock {pad00=20 20 20 20 ┆ ┆, secno=[7a 00 00 00 ┆z ┆, 7b 00 00 00 ┆{ ┆, 7c 00 00 00 ┆| ┆, 7d 00 00 00 ┆} ┆, 7e 00 00 00 ┆~ ┆, 7f 00 00 00 ┆ ┆, 80 00 00 00 ┆ ┆, 81 00 00 00 ┆ ┆, 82 00 00 00 ┆ ┆, 83 00 00 00 ┆ ┆, 84 00 00 00 ┆ ┆, 85 00 00 00 ┆ ┆, 86 00 00 00 ┆ ┆]}
0x09c00…09e00 BasicFileDesc {nbr=0x000b, ok=0x0001, bfd01=0x5241, bfd02=0x4d41, type=0x000e, length=0x18d4, bfd05=0x0000, nsect=0x000d, bfd07=0x0000, areasz=0x0001, sector=0x004d, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x7c07}
0x09e00…0a000 IndexBlock {pad00=20 20 20 20 ┆ ┆, secno=[5b 00 00 00 ┆[ ┆, 5c 00 00 00 ┆\ ┆, 5d 00 00 00 ┆] ┆, 5e 00 00 00 ┆^ ┆, 5f 00 00 00 ┆_ ┆, 60 00 00 00 ┆` ┆, 61 00 00 00 ┆a ┆, 62 00 00 00 ┆b ┆, 63 00 00 00 ┆c ┆, 64 00 00 00 ┆d ┆]}
0x0a000…0a200 BasicFileDesc {nbr=0x000c, ok=0x0001, bfd01=0x5241, bfd02=0x4d41, type=0x000e, length=0x1320, bfd05=0x0000, nsect=0x000a, bfd07=0x0000, areasz=0x0001, sector=0x004f, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x7c07}
0x0a200…0a400 IndexBlock {pad00=20 20 20 20 ┆ ┆, secno=[87 00 00 00 ┆ ┆, 88 00 00 00 ┆ ┆, 8a 00 00 00 ┆ ┆, 8b 00 00 00 ┆ ┆, 8c 00 00 00 ┆ ┆, 8d 00 00 00 ┆ ┆, 8e 00 00 00 ┆ ┆, 8f 00 00 00 ┆ ┆, 90 00 00 00 ┆ ┆]}
0x0a400…0a600 BasicFileDesc {nbr=0x000d, ok=0x0001, bfd01=0x5241, bfd02=0x4d41, type=0x000e, length=0x1009, bfd05=0x0000, nsect=0x0009, bfd07=0x0000, areasz=0x0001, sector=0x0051, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x7c07}
0x0a600…0a680 DataSector[bfd#0x0009]
[…0x7…]
0x0aa00…0ac00 BasicFileDesc {nbr=0x0007, ok=0x0001, bfd01=0x0000, bfd02=0x0000, type=0x000e, length=0x2597, bfd05=0x0000, nsect=0x0013, bfd07=0x0000, areasz=0x0001, sector=0x0033, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x7c07}
0x0ac00…0ac80 DataSector[bfd#0x0009]
[…0x13…]
0x0b600…0b680 DataSector[bfd#0x000c]
[…0x27…]
0x0ca00…0ca80 DataSector[bfd#0x000a]
[…0x53…]
0x0f400…0f480 DataSector[bfd#0x000b]
[…0x33…]
0x10e00…10e80 DataSector[bfd#0x000d]
[…0x7…]
0x11200…11400 BasicFileDesc {nbr=0x0008, ok=0x0001, bfd01=0x4554, bfd02=0x2e4d, type=0x000e, length=0x1da6, bfd05=0x0000, nsect=0x000f, bfd07=0x0000, areasz=0x0001, sector=0x0022, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x7c07}
0x11400…11480 DataSector[bfd#0x000d]
[…0x1b…]
0x12200…12400 IndexBlock {pad00=45 20 28 3d ┆E (=┆, secno=[93 00 00 00 ┆ ┆, 94 00 00 00 ┆ ┆]}
0x12400…12600 BasicFileDesc {nbr=0x000e, ok=0x0001, bfd01=0x4554, bfd02=0x2e4d, type=0x000e, length=0x0350, bfd05=0x0000, nsect=0x0002, bfd07=0x0000, areasz=0x0001, sector=0x0091, bfd0a=0x0000, bfd0b=0xfffc, flags=0x4801, bfd0d=0x0000, min3=0xffff, bfd0f=0x7c07}
0x12600…12680 DataSector[bfd#0x000e]
[…0x7…]
0x12a00…12a80 UnusedSector ┆ FALSE => ST(S); JMP PL2060 ; GOTO PL2060 FI; INCD R0 R1 ; IN┆
0x12a80…12b00 UnusedSector ┆C(X); INC(Y); SOB R2 PL1060 ; ROF; MOVC 1 X5 ; TRUE => ST(S); PL2060: ┆
0x12b00…12b80 UnusedSector ┆ ; JMP 1. X4 ; GOTO NEXT; ;===================================================┆
0x12b80…12c00 UnusedSector ┆==================== ; GRSTRUCT(LENGTH) (A > B) ; THE STACK TOP IS ASSUMED TO CONTAIN THE ABSOLUTE ; ADDRESS OF A ST┆
0x12c00…12c80 UnusedSector ┆RUCTURE B. THE WORD BELOW THE TOP ; CONTAINS THE ABSOLUTE ADDRESS OF A STRUCTURE A. THE ; 2 ADDRESSES ARE POPPED, AND IF A > B T┆
0x12c80…12d00 UnusedSector ┆HEN TRUE (=1), ; OTHERWISE FALSE (=0), IS PUSHED ON THE STACK. PCO061: ; GRSTRUCT: PTO061: ┆
0x12d00…12d80 UnusedSector ┆ ; MOV X5 R1 ; ST(S) => Y "RE.B"; ADDC 1 R5 ; S+1 =>┆
0x12d80…12e00 UnusedSector ┆ S; MOV X5 R0 ; ST(S) => X "RE.A"; MVP X4 R2 ; PG(Q) => LENGTH; PL1061:┆
0x12e00…12e80 UnusedSector ┆ ; FOR I := 1 TO LENGTH DO IEQ X0 X1 ; IF ST(X) = ST(Y) THEN ┆
0x12e80…12f00 UnusedSector ┆ JMP PL2061 ; GOTO PL2061 FI; IGEP X0 X1 ; IF ST(X)>="IE.>"ST(Y) THEN ┆
0x12f00…12f80 UnusedSector ┆ MOVC 1 X5 ; TRUE => ST(S); JMP PL3061 ; GOTO PL3061; XT┆
0x12f80…13000 UnusedSector ┆R X5 0 ; ELSE FALSE => ST(S); JMP PL3061 ; GOTO PL3061 FI; PL2061: ┆
0x13000…13080 UnusedSector ┆ ; INCD R0 R1 ; INCR(X); INCR(Y); SOB R2 PL1061 ; R┆
0x13080…13100 UnusedSector ┆OF; XTR X5 0 ; FALSE => ST(S); PL3061: ; JMP 1. ┆
0x13100…13180 UnusedSector ┆ X4 ; GOTO NEXT; ;======================================================================= ; NLSTRUCT(LENGTH) (A ┆
0x13180…13200 UnusedSector ┆>= B) ; THE STACK TOP IS ASSUMED TO CONTAIN THE ABSOLUTE ; ADDRESS OF A STRUCTURE B. THE WORD BELOW THE TOP ; CONTAINS THE ABSO┆
0x13200…13280 UnusedSector ┆LUTE ADDRESS OF A STRUCTURE A. THE ; 2 ADDRESSES ARE POPPED, AND IF A >= B THEN TRUE (=1), ; OTHERWISE FALSE (=0), IS PUSHED ON ┆
0x13280…13300 UnusedSector ┆THE STACK. PCO062: ; NLSTRUCT: PTO062: ; MOV X5 ┆
0x13300…13380 UnusedSector ┆ R1 ; ST(S) => Y "RE.B"; ADDC 1 R5 ; S+1 => S; MOV X5 R0 ; ST(S) =>┆
0x13380…13400 UnusedSector ┆ X "RE.A"; MVP X4 R2 ; ST(Q) => LENGTH; PL1062: ; FOR I := 1 TO LENGTH┆
0x13400…13480 UnusedSector ┆ DO IEQ X0 X1 ; IF ST(X) = ST(Y) THEN JMP PL2062 ; GOTO PL2062 F┆
0x13480…13500 UnusedSector ┆I; IGEP X0 X1 ; IF ST(X)>="IE.>" ST(Y) THEN MOVC 1 X5 ; TRUE => ┆
0x13500…13580 UnusedSector ┆ST(S); JMP PL3062 ; GOTO PL3062; XTR X5 0 ; ELSE FALSE => ST(S)┆
0x13580…13600 UnusedSector ┆; JMP PL3062 ; GOTO PL3062 FI; PL2062: ; INCD R0 ┆
0x13600…13680 UnusedSector ┆ R1 ; INCR(X); INCR(Y); SOB R2 PL1062 ; ROF; MOVC 1 X5 ; TRUE => ┆
0x13680…13700 UnusedSector ┆ST(S); PL3062: ; JMP 1. X4 ; GOTO NEXT; ;==============================┆
0x13700…13780 UnusedSector ┆========================================= ; NESTRUCT(LENGTH) ( A <> B) ; THE STACK TOP IS ASSUMED TO CONTAIN THE ABS┆
0x13780…13800 UnusedSector ┆OLUTE ; ADDRESS OF A STRUCTURE B. THE WORD BELOW THE TOP ; CONTAINS THE ABSOLUTE ADDRESS OF A STRUCTURE A. THE ; 2 ADDRESSES ARE┆
0x13800…13880 UnusedSector ┆ POPPED, AND IF A <> B THEN TRUE (=1), ; OTHERWISE FALSE (=0), IS PUSHED ON THE STACK. PCO063: ; NE┆
0x13880…13900 UnusedSector ┆STRUCT: PTO063: ; MOV X5 R1 ; ST(S) => Y "RE.B"; ADDC 1 ┆
0x13900…13980 UnusedSector ┆ R5 ; S+1 => S; MOV X5 R0 ; ST(S) => X "RE.A"; MVP X4 R2 ; ┆
0x13980…13a00 UnusedSector ┆ST(Q) => LENGTH; PL1063: ; FOR I := 1 TO LENGTH DO INEP X0 X1 ; IF S┆
0x13a00…13a80 UnusedSector ┆T(X) <> ST(Y) THEN MOVC 1 X5 ; TRUE => ST(S); JMP PL2063 ; GO┆
0x13a80…13b00 UnusedSector ┆TO PL2063 FI; INCD R0 R1 ; INCR(X); INCR(Y); SOB R2 PL1063 ; ROF; ┆
0x13b00…13b80 UnusedSector ┆XTR X5 0 ; FALSE => ST(S); PL2063: ; JMP 1. X4 ; GO┆
0x13b80…13c00 UnusedSector ┆TO NEXT; ;======================================================================= ; NGSTRUCT(LENGTH) (A <= B) ; THE┆
0x13c00…13c80 UnusedSector ┆ STACK TOP IS ASSUMED TO CONTAIN THE ABSOLUTE ; ADDRESS OF A STRUCTURE B. THE WORD BELOW THE TOP ; CONTAINS THE ABSOLUTE ADDRESS┆
0x13c80…13d00 UnusedSector ┆ OF A STRUCTURE A. THE ; 2 ADDRESSES ARE POPPED, AND IF A <= B THEN TRUE (=1), ; OTHERWISE FALSE (=0), IS PUSHED ON THE STACK. ┆
0x13d00…13d80 UnusedSector ┆PCO064: ; NGSTRUCT: PTO064: ; MOV X5 R1 ; ST┆
0x13d80…13e00 UnusedSector ┆(S) => Y "RE.B"; ADDC 1 R5 ; S+1 => S; MOV X5 R0 ; ST(S) => X "RE.A"; ┆
0x13e00…13e80 UnusedSector ┆ MVP X4 R2 ; PG(Q) => LENGTH; PL1064: ; FOR I := 1 TO LENGTH DO ┆
0x13e80…13f00 UnusedSector ┆ IEQ X0 X1 ; IF ST(X) = ST(Y) THEN JMP PL2064 ; GOTO PL2064 FI; ┆
0x13f00…13f80 UnusedSector ┆ILTP X0 X1 ; IF ST(X) < ST(Y) THEN MOVC 1 X5 ; TRUE => ST(S); JM┆
0x13f80…14000 UnusedSector ┆P PL3064 ; GOTO PL3064; XTR X5 0 ; ELSE FALSE => ST(S); JMP ┆
0x14000…14080 UnusedSector ┆ PL3064 ; GOTO PL3064 FI; PL2064: ; INCD R0 R1 ; ┆
0x14080…14100 UnusedSector ┆INCR(X); INCR(Y); SOB R2 PL1064 ; ROF; MOVC 1 X5 ; TRUE => ST(S); PL3064: ┆
0x14100…14180 UnusedSector ┆ ; JMP 1. X4 ; GOTO NEXT; ;===============================================┆
0x14180…14200 UnusedSector ┆======================== ; FUNCVALUE(KIND) ; CASE KIND OF ; O: ALLOCATE SPACE FOR 1 WORD; ; 8: ALLOC┆
0x14200…14280 UnusedSector ┆ATE SPACE FOR 2 WORDS; ; OTHERWISE: ERROR; ; END; PCO065: ; FUNCVALUE: PTO065: ┆
0x14280…14300 UnusedSector ┆ ; MVP X4 R0 ; PG(Q) => KIND; JOZ R0 PL1065 ; IF KIND <> 0 THEN ┆
0x14300…14380 UnusedSector ┆ INE R0 8 ; IF KIND <> 8 THEN JMP PCRANG ; RANGEERROR; A┆
0x14380…14400 UnusedSector ┆DDC -2 R5 ; ELSE S-2 => S; JMP PL2065 ; GOTO PL2065 FI; PL1065: ┆
0x14400…14480 UnusedSector ┆ ; ELSE "KIND = 0" ADDC -1 R5 ; S-1 => S FI; PL2065: ┆
0x14480…14500 UnusedSector ┆ ; JMP 1. X4 ; GOTO NEXT; ;======================================================================┆
0x14500…14580 UnusedSector ┆= ; JUMP(DISTANCE) ; JUMPS LOCATION RELATIVE. PCO066: ; JUMP: PTO066: MVP X4 ┆
0x14580…14600 UnusedSector ┆ R0 ; DISTANCE ADD R0 R4 ; +Q => Q; JMP X4 ; RETURN; ┆
0x14600…14680 UnusedSector ┆ ;======================================================================= ; FALSEJUMP(DISTANCE) ; POPS A VALUE (1 WORD) FROM T┆
0x14680…14700 UnusedSector ┆HE STACK. IF THIS VALUE ; IS FALSE (=0), THEN THE LOCATION COUNTER IS INCREMENTED ; BY DISTANCE, OTHERWISE BY 1. PCO067: ┆
0x14700…14780 UnusedSector ┆ ; FALSEJUMP: PTO067: JON X5 PL1067 ; IF ST(S) = FALSE THEN MVP X4┆
0x14780…14800 UnusedSector ┆ R0 ; DISTANCE ADD R0 R4 ; +Q => Q; ADDC 1 R5 ; ┆
0x14800…14880 UnusedSector ┆ S+1 => S; JMP X4 ; RETURN; PL1067: ; ELSE ADDC 1 ┆
0x14880…14900 UnusedSector ┆ R5 ; S+1 => S; JMP 1. X4 ; RETURN FI; ;====================================┆
0x14900…14980 UnusedSector ┆=================================== ; CASEJUMP(MIN, MAX-MIN, DISTANCES) ; POPS A VALUE FROM THE STACK. ; CHECKS THAT IT IS WIT┆
0x14980…14a00 UnusedSector ┆HIN LIMITS, AND JUMPS TO ONE ; OF A LIST OF LABELS FOLLOWING THE INSTRUCTION. PCO068: ; CASEJUMP: P┆
0x14a00…14a80 UnusedSector ┆TO068: ; MVP X4 R0 ; PG(Q) => MIN; SUB R0 X5 ;┆
0x14a80…14b00 UnusedSector ┆ ST(S)-MIN => ST(S); ILT X5 0 ; IF ST(S) < 0 THEN JMP PCRANG ; RANG┆
0x14b00…14b80 UnusedSector ┆EERROR; MVP 1. X4 R1 ; PG(Q+1) => MAX-MIN; ILT R1 X5 ; IF MAX-MIN < ST(S) T┆
0x14b80…14c00 UnusedSector ┆HEN JMP PCRANG ; RANGEERROR FI; ADDC 2 R4 ; Q+2 => Q "REF FIRST DISTAN┆
0x14c00…14c80 UnusedSector ┆CE"; ADD X5 R4 ; Q+DISPL => Q; MVP X4 R0 ; ADD R0 ┆
0x14c80…14d00 UnusedSector ┆ R4 ; Q+PG(Q) => Q; ADDC 1 R5 ; S+1 => S; JMP X4 ; GOTO NEXT; ;==┆
0x14d00…14d80 UnusedSector ┆===================================================================== ; INITVAR(LENGTH) ; INITIALIZES THE VARIABLES OF A ROUTI┆
0x14d80…14e00 UnusedSector ┆NE TO 0. PCO069: ; INITVAR: PTO069: ; MVP X4 R┆
0x14e00…14e80 UnusedSector ┆0 ; PG(Q) => LENGTH; JOZ R0 PL2069 ; IF LENGTH=0 THEN GOTO PL2069 FI; MOV R5 ┆
0x14e80…14f00 UnusedSector ┆ R1 ; S => X; PL1069: ; FOR I := 1 TO LENGTH DO XTR X1 0 ; 0 =>┆
0x14f00…14f80 UnusedSector ┆ ST(X); ADDC 1 R1 ; X+1 => X; SOB R0 PL1069 ; ROF; PL2069: ┆
0x14f80…15000 UnusedSector ┆ ; JMP 1. X4 ; GOTO NEXT; ;===========================================================┆
0x15000…15080 UnusedSector ┆============ ; CALL(DISTANCE) ; LOCAL ROUTINE CALL. ; THE ADDRESS OF THE NEXT INSTRUCTION IS PUSHED ON ; THE STACK. A LOCATION┆
0x15080…15100 UnusedSector ┆ RELATIVE JUMP IS PERFORMED. PCO070: ; CALL: PTO070: ; MVP ┆
0x15100…15180 UnusedSector ┆ X4 R0 ; PG(Q) => DISTANCE; ADDC -1 R5 ; S-1 => S; MOV R4 X5 ┆
0x15180…15200 UnusedSector ┆ ; Q => ST(S); INC X5 ; ST(S)+1 => ST(S); ADD R0 R4 ; Q+DISTANCE =>┆
0x15200…15280 UnusedSector ┆ Q; JMP X4 ; GOTO NEXT; ;=======================================================================┆
0x15280…15300 UnusedSector ┆ ; ENTER(STACKLENGTH, POPLENGTH, LINE, VARLENGTH) ; ENTRY TO A PROCEDURE OR A FUNCTION. ; BUILDS THE DYNAMIC LINK. PCO072: ┆
0x15300…15380 UnusedSector ┆ ; ENTER: PTO072: ; IF DBTRAC>1 THEN MOV TRMASK R7 ; ┆
0x15380…15400 UnusedSector ┆ JOZ R7 PL1072 ; IF NOT TRACE THEN GOTO PL1072; IBZ R7 1 ; IF NOT ENTER-TRAC┆
0x15400…15480 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 ┆
[…0x527…]
0x3e800…3e880 UnusedSector 0x1a[128]
[…0x1…]
