Disk View
0x00000…00200 HomeBlock {
0x00000…00200 label = »CRD2322 « // @0x0
0x00000…00200 bfdadr = 0x00000002 // @0x10
0x00000…00200 free_ent = 0x00000000 // @0x14
0x00000…00200 first_free = 0x00000000 // @0x18
0x00000…00200 sectors = 0x000001f4 // @0x1c
0x00000…00200 bst_size = 0x0000 // @0x20
0x00000…00200 asf_adr = 0x00000000 // @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 = 000000000000 // @0x1f0
0x00000…00200 accessed = 000000000000 // @0x1f6
0x00000…00200 format = 0x0000 // @0x1fc
0x00000…00200 state = 0x0000 // @0x1fe
0x00000…00200 }
0x00200…00400 IndexBlock {pad00=0x00000000, secno=[0x00000002, 0x00000003, 0x00000004, 0x00000009, 0x0000000b, 0x0000001c, 0x00000023, 0x00000055, 0x00000089, 0x00000049, 0x0000004c, 0x0000004e, 0x00000050, 0x00000052, 0x00000092]}
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=0x00000000, secno=[0x00000006]}
0x00c00…00c20 SymbolicFileDesc {valid=0x0001, fname=»BFD«, file=0x0000, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x00c20…00c40 SymbolicFileDesc {valid=0x0001, fname=»MD«, file=0x0001, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x00c40…00c60 SymbolicFileDesc {valid=0x0001, fname=»BM«, file=0x0002, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x00c60…00c80 SymbolicFileDesc {valid=0x0001, fname=»SYSTEMMODULES.D«, file=0x0003, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x00c80…00ca0 SymbolicFileDesc {valid=0x0001, fname=»S2SYSS.S«, file=0x0007, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x00ca0…00cc0 SymbolicFileDesc {valid=0x0001, fname=»SWELLPREFIX.D«, file=0x0006, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x00cc0…00ce0 SymbolicFileDesc {valid=0x0000, fname=»«, file=0x0000, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
[…0x9…]
0x00e00…00e80 DataSector[bfd#0x0002]
[…0x3…]
0x01000…01200 IndexBlock {pad00=0xa55aa55a, secno=[0x0000000c]}
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=0xa55aa55a, secno=[0x0000000d, 0x0000000e, 0x0000000f, 0x00000010, 0x00000011, 0x00000012, 0x00000013, 0x00000014, 0x00000015, 0x00000016, 0x00000017, 0x00000018, 0x00000019, 0x0000001a]}
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=0x46630000, sfd4=0x514d0001, sfd5=0x584f0001}
0x01820…01840 SymbolicFileDesc {valid=0x0001, fname=»TTYTOP.C«, file=0x0005, sfd3=0x86870000, sfd4=0x8dfa0001, sfd5=0x918c0001}
0x01840…01860 SymbolicFileDesc {valid=0x0001, fname=»PASRTS.810203.C«, file=0x0008, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x01860…01880 SymbolicFileDesc {valid=0x0001, fname=»LPD.B«, file=0x000e, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x01880…018a0 SymbolicFileDesc {valid=0x0000, fname=»PASRTS.CODES3.S«, file=0x0008, sfd3=0x00010000, sfd4=0x00002356, sfd5=0x05530b3b}
0x018a0…018c0 SymbolicFileDesc {valid=0x0000, fname=» % l n W S CD«, file=0x3043, sfd3=0x00073030, sfd4=0x00000001, sfd5=0x00012da1}
0x018c0…018e0 SymbolicFileDesc {valid=0x0000, fname=» g#«, file=0x0000, sfd3=0x1a25e004, sfd4=0x02000002, sfd5=0x05730d1d}
0x018e0…01900 SymbolicFileDesc {valid=0x0000, fname=» t v %«, file=0x057b, sfd3=0x057b0c5c, sfd4=0x25a9057d, sfd5=0x05881d28}
0x01900…01920 SymbolicFileDesc {valid=0x0000, fname=» p %D&«, file=0x0200, sfd3=0x02000000, sfd4=0x00010000, sfd5=0x00010002}
0x01920…01940 SymbolicFileDesc {valid=0x0000, fname=» - a-«, file=0x0001, sfd3=0x45544145, sfd4=0x53415020, sfd5=0x504c4143}
0x01940…01960 SymbolicFileDesc {valid=0x0000, fname=»FIX R/5 CREATE S«, file=0x4557, sfd3=0x52204c4c, sfd4=0x490a352f, sfd5=0x41455243}
0x01960…01980 SymbolicFileDesc {valid=0x0000, fname=» SWELL.D D/2 CR«, file=0x4145, sfd3=0x53204554, sfd4=0x4c4c4557, sfd5=0x46455250}
0x01980…019a0 SymbolicFileDesc {valid=0x0000, fname=».D D/2 YCREATE L«, file=0x4e49, sfd3=0x2f52204b, sfd4=0x52430a35, sfd5=0x45544145}
0x019a0…019c0 SymbolicFileDesc {valid=0x0000, fname=»DXDRV R/5 CREATE«, file=0x0800, sfd3=0x001b3800, sfd4=0x098c05de, sfd5=0x004905de}
0x019c0…019e0 SymbolicFileDesc {valid=0x0000, fname=» ? %j/«, file=0x05f0, sfd3=0xffff00d2, sfd4=0x0a1905ee, sfd5=0x000005ee}
0x019e0…01a00 SymbolicFileDesc {valid=0x0000, fname=» % %«, file=0x0000, sfd3=0x00000200, sfd4=0x0f370600, sfd5=0x07050600}
0x01a00…01a80 DataSector[bfd#0x0004]
[…0x37…]
0x03600…03800 IndexBlock {pad00=0xa55aa55a, secno=[0x0000001d]}
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=0xa55aa55a, secno=[0x00000024, 0x00000025, 0x00000026, 0x00000027, 0x00000028, 0x00000029, 0x0000002a, 0x0000002b, 0x0000002c, 0x0000002d, 0x0000002e, 0x0000002f, 0x00000030, 0x00000031, 0x00000032]}
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=0x45485420, secno=[0x00000034, 0x00000035, 0x00000036, 0x00000037, 0x00000038, 0x00000039, 0x0000003a, 0x0000003b, 0x0000003c, 0x0000003d, 0x0000003e, 0x0000003f, 0x00000040, 0x00000041, 0x00000042, 0x00000043, 0x00000044, 0x00000045, 0x00000046]}
0x06800…06880 DataSector[bfd#0x0007]
[…0x4b…]
0x08e00…09000 IndexBlock {pad00=0x3d3d3d3d, secno=[0x0000004a]}
0x09000…09200 IndexBlock {pad00=0x3b58203e, secno=[0x00000053, 0x00000054, 0x00000056, 0x00000057, 0x00000058, 0x00000059, 0x0000005a]}
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=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x09420…09440 SymbolicFileDesc {valid=0x0001, fname=»IOSPARAMS.S«, file=0x000a, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x09440…09460 SymbolicFileDesc {valid=0x0001, fname=»FMSPARAMS.S«, file=0x000b, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x09460…09480 SymbolicFileDesc {valid=0x0001, fname=»DISKDRVPARAMS.S«, file=0x000c, sfd3=0x00000000, sfd4=0x857e26b0, sfd5=0x19a20001}
0x09480…094a0 SymbolicFileDesc {valid=0x0001, fname=»MONITORNAMES.S«, file=0x000d, sfd3=0x44430000, sfd4=0x30303043, sfd5=0x00010007}
0x094a0…094c0 SymbolicFileDesc {valid=0x0000, fname=»}«, file=0x0000, sfd3=0x05600000, sfd4=0x05600761, sfd5=0x25a90568}
0x094c0…094e0 SymbolicFileDesc {valid=0x0000, fname=» ~ r«, file=0x0000, sfd3=0x0001857e, sfd4=0x0dbb0000, sfd5=0x06930572}
0x094e0…09500 SymbolicFileDesc {valid=0x0000, fname=» ~ ~«, file=0x071d, sfd3=0x057c0000, sfd4=0x000225a9, sfd5=0x0000071d}
0x09500…09520 SymbolicFileDesc {valid=0x0000, fname=» %«, file=0x0000, sfd3=0x00000000, sfd4=0x00000000, sfd5=0x00000000}
0x09520…09540 SymbolicFileDesc {valid=0x0000, fname=» U P ~ I«, file=0x0052, sfd3=0x00430045, sfd4=0x004f0054, sfd5=0x00590052}
0x09540…09560 SymbolicFileDesc {valid=0x0000, fname=»C O N N E C T«, file=0x0044, sfd3=0x00520049, sfd4=0x00430045, sfd5=0x004f0054}
0x09560…09580 SymbolicFileDesc {valid=0x0000, fname=»Y L O O K U P«, file=0x0020, sfd3=0x00460042, sfd4=0x00000044, sfd5=0x004f004e}
0x09580…095a0 SymbolicFileDesc {valid=0x0000, fname=»F I L E S E N«, file=0x0054, sfd3=0x00520045, sfd4=0x00440045, sfd5=0x00490020}
0x095a0…095c0 SymbolicFileDesc {valid=0x0000, fname=» D I R E C T O«, file=0x0052, sfd3=0x000a0059, sfd4=0x00490000, sfd5=0x0049004e}
0x095c0…095e0 SymbolicFileDesc {valid=0x0000, fname=» ? %j/«, file=0x05f0, sfd3=0xffff0082, sfd4=0x0a1905ee, sfd5=0x000005ee}
0x095e0…09600 SymbolicFileDesc {valid=0x0000, fname=» % %«, file=0x0000, sfd3=0x00000200, sfd4=0x0f370600, sfd5=0x07050600}
0x09600…09800 IndexBlock {pad00=0x203b2020, secno=[0x00000065, 0x00000066, 0x00000067, 0x00000068, 0x00000069, 0x0000006a, 0x0000006b, 0x0000006c, 0x0000006d, 0x0000006e, 0x0000006f, 0x00000070, 0x00000071, 0x00000072, 0x00000073, 0x00000074, 0x00000075, 0x00000076, 0x00000077, 0x00000078, 0x00000079]}
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=0x20202020, secno=[0x0000007a, 0x0000007b, 0x0000007c, 0x0000007d, 0x0000007e, 0x0000007f, 0x00000080, 0x00000081, 0x00000082, 0x00000083, 0x00000084, 0x00000085, 0x00000086]}
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=0x20202020, secno=[0x0000005b, 0x0000005c, 0x0000005d, 0x0000005e, 0x0000005f, 0x00000060, 0x00000061, 0x00000062, 0x00000063, 0x00000064]}
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=0x20202020, secno=[0x00000087, 0x00000088, 0x0000008a, 0x0000008b, 0x0000008c, 0x0000008d, 0x0000008e, 0x0000008f, 0x00000090]}
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=0x3d282045, secno=[0x00000093, 0x00000094]}
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…]
