OctetView
0x00000…00080 UnusedSector ┆( ( ░░░░░░░░░░░░░░░░░░ p p@ b ( ( i S d ~ H H i S d Y O \ a B O O T E ┆
0x00080…00100 UnusedSector ┆ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00100…00180 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x00180…001c0 DirEnt {filename=»«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0005, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0004, de0d=0x0000, cluster2=0x0005, de0f=0x0009, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x001c0…001e0 04 69 04 53 00 00 04 64 03 7e 04 48 04 48 04 69 04 53 00 00 04 64 00 00 00 00 03 59 04 4f 04 5c ┆ i S d ~ H H i S d Y O \┆
0x001e0…00200 00 01 04 61 00 00 00 01 00 04 00 20 00 00 00 01 00 49 00 4e 00 49 00 54 00 20 00 20 00 20 05 45 ┆ a I N I T E┆
0x00200…00280 UnusedSector 0x00[128]
[…0x3…]
0x00400…00440 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0005, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0004, de0d=0x0000, cluster2=0x0005, de0f=0x0009, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00440…00480 DirEnt {filename=»░░S«, kind=0x0464, de04=0x037e, de05=0x0448, de06=0x0448, de07=0x0469, cluster=0x0453, de09=0x0000, de0a=0x0464, de0b=0x0000, nsect=0x0000, de0d=0x0359, cluster2=0x044f, de0f=0x045c, de10=0x0001, de11=0x0461, de12=0x0000, de13=0x0001, de14=0x0004, de15=0x0020, de16=0x0000, de17=0x0001, de18=0x0049, de19=0x004e, de1a=0x0049, de1b=0x0054, de1c=0x0020, de1d=0x0020, de1e=0x0020, de1f=0x0545}
0x00480…004c0 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0005, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0004, de0d=0x0000, cluster2=0x0005, de0f=0x0009, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x004c0…00500 DirEnt {filename=»░░S«, kind=0x0464, de04=0x037e, de05=0x0448, de06=0x0448, de07=0x0469, cluster=0x0453, de09=0x0000, de0a=0x0464, de0b=0x0000, nsect=0x0000, de0d=0x0359, cluster2=0x044f, de0f=0x045c, de10=0x0001, de11=0x0461, de12=0x0000, de13=0x0001, de14=0x0004, de15=0x0020, de16=0x0000, de17=0x0001, de18=0x0049, de19=0x004e, de1a=0x0049, de1b=0x0054, de1c=0x0020, de1d=0x0020, de1e=0x0020, de1f=0x0545}
0x00500…00540 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0005, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0004, de0d=0x0000, cluster2=0x0005, de0f=0x0009, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00540…00580 DirEnt {filename=»░░S«, kind=0x0464, de04=0x037e, de05=0x0448, de06=0x0448, de07=0x0469, cluster=0x0453, de09=0x0000, de0a=0x0464, de0b=0x0000, nsect=0x0000, de0d=0x0359, cluster2=0x044f, de0f=0x045c, de10=0x0001, de11=0x0461, de12=0x0000, de13=0x0001, de14=0x0004, de15=0x0020, de16=0x0000, de17=0x0001, de18=0x0049, de19=0x004e, de1a=0x0049, de1b=0x0054, de1c=0x0020, de1d=0x0020, de1e=0x0020, de1f=0x0545}
0x00580…005c0 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0005, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0004, de0d=0x0000, cluster2=0x0005, de0f=0x0009, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x005c0…00600 DirEnt {filename=»░░S«, kind=0x0464, de04=0x037e, de05=0x0448, de06=0x0448, de07=0x0469, cluster=0x0453, de09=0x0000, de0a=0x0464, de0b=0x0000, nsect=0x0000, de0d=0x0359, cluster2=0x044f, de0f=0x045c, de10=0x0001, de11=0x0461, de12=0x0000, de13=0x0001, de14=0x0004, de15=0x0020, de16=0x0000, de17=0x0001, de18=0x0049, de19=0x004e, de1a=0x0049, de1b=0x0054, de1c=0x0020, de1d=0x0020, de1e=0x0020, de1f=0x0545}
0x00600…00640 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0005, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0004, de0d=0x0000, cluster2=0x0005, de0f=0x0009, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00640…00680 DirEnt {filename=»BOOT«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0028, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0004, de0d=0x0000, cluster2=0x0028, de0f=0x000e, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0006, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00680…00700 DataSector[»BOOT«]
[…0x4…]
0x00900…00980 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x00980…00a00 UnusedSector ┆░░ ░░░░░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00a00…00a80 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x00a80…00b00 UnusedSector ┆░░ ░░░░░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00b00…00b80 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x00b80…00c00 UnusedSector ┆░░ ░░░░░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00c00…00c80 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x00c80…00d00 UnusedSector ┆░░L 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00d00…00d80 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x00d80…00e00 UnusedSector ┆░░L 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00e00…00e80 UnusedSector ┆B8ASNN ░░ ░░░░░░░░░░░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x00e80…00f00 UnusedSector ┆░░L 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00f00…00f80 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x00f80…01000 UnusedSector ┆░░L 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x01000…01080 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x01080…01100 UnusedSector ┆KM1SRC > G > ░░░░░░░░░░░░░░░░ - KM1MRG )░░░░░░░░░░░░░░░░ ┆
0x01100…01180 UnusedSector ┆CM1SIM > = > ░░░░░░░░░░░░░░░░░░ ? CM1SM1 A = A ░░░░░░░░░░░░░░░░░░ # ┆
0x01180…01200 UnusedSector ┆CM1SRC A = A ░░░░░░░░░░░░░░░░░░ CM1MRG > > ░░░░░░░░░░░░ ┆
0x01200…01280 UnusedSector ┆CM1HEX ░░░░░░░░░░░░░░ CM1HEX ░░░░░░░░░░░░░░░░░░ ┆
0x01280…01300 UnusedSector ┆CM1PNT F m F ░░░░░░░░░░░░░░░░ ? KM1HEX " 2 3░░░░░░░░░░░░░░░░ ┆
0x01300…01380 UnusedSector ┆KM1PNT n n 4 8░░░░░░░░░░░░░░░░ " KM1HEX <░░░░░░░░░░░░░░░░░░ ┆
0x01380…01400 UnusedSector ┆░░2SRC H G H =░░░░░░░░░░░░░░░░░░ ░░2PNT ░░ ░░░░░░░░░░░░░░░░░░░░ ┆
0x01400…01480 UnusedSector ┆░░2HEX K░░░░░░░░░░░░░░░░░░ 8 ░░2HEX # " # J░░░░░░░░░░░░░░░░░░ ┆
0x01480…01500 UnusedSector ┆░░2MRG @░░░░░░░░░░░░░░░░░░ ! ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x01500…01580 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x01580…01600 UnusedSector ┆░░L 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x01600…01680 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x01680…01700 UnusedSector ┆░░L 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x01700…01780 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x01780…01800 UnusedSector ┆░░L 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x01800…01880 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x01880…01900 UnusedSector ┆░░L 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x01900…01980 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x01980…01a00 UnusedSector ┆░░L 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x01a00…01a80 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x01a80…01b00 UnusedSector ┆░░L 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x01b00…01b80 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x01b80…01c00 UnusedSector ┆░░L 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x01c00…01c80 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x01c80…01d00 UnusedSector ┆░░L 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x01d00…01d80 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x01d80…01e00 UnusedSector ┆░░L 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x01e00…01e80 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x01e80…01f00 UnusedSector ┆░░L 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x01f00…01f80 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x01f80…02000 UnusedSector ┆░░0011 ░░░░░░░░░░░░░░░░░░ 2 ░░0010 ░░░░░░░░░░░░░░░░░░ 2 ┆
0x02000…02080 UnusedSector ┆░░0009 4░░░░░░░░░░░░░░░░░░ 2 ░░0014 4░░░░░░░░░░░░░░░░░░ 2 ┆
0x02080…02100 UnusedSector ┆░░L 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x02100…02180 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x02180…02200 UnusedSector ┆░░L 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x02200…02280 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x02280…02300 UnusedSector ┆░░L 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x02300…02380 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x02380…02400 UnusedSector ┆░░L 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x02400…02480 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x02480…02500 UnusedSector ┆░░L 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x02500…02580 UnusedSector ┆ LIST BEGIN MODULE LOCCTR ;---------------------------------------------------------------------- ;MODULE IDENTIFICATION: ICL-IS┆
0x02580…02600 UnusedSector ┆B/CTRSIM/145 ;DATED: 790731/PSC ;VERSION: 01 ;---------------------------------------------------------------------- ;--------┆
0x02600…02680 UnusedSector ┆-------------------------------------------------------------- ;THE SIMULATOR WILL REPLACE THE NORMAL SURROUNDINGS FOR LHR:CTR A┆
0x02680…02700 UnusedSector ┆ND LHR ;THE CTR SIMULATOR WILL SEND THE DEFAULT TABLE WHEN RECEIVED FROM INZ. ;FURTHER IT WILL GENERATE DATA TO VIDEOS. ;THE CTR┆
0x02700…02780 UnusedSector ┆ SIMULATOR WILL PRINT ALL RECEIVED INPUT ;THE LHD SIMULATOR WILL SEND ALL POSSIBLE INPUT TO LHR. ;------------------------------┆
0x02780…02800 UnusedSector ┆---------------------------------------- USE BASE NOLIST ;$ICLPRD LIST CTRWAIT: 3000 ; DELAY BEFORE LHD IS STARTED ISTRLH: 0 ; ┆
0x02800…02880 UnusedSector ┆INPUT QUE-FROM LHR CMIRD: 0 ; INPUT QUEUE FROM CMI OSTRCT: 0 ; OUTPUT CONTROL QUE TO LHR LHDIPQ: 0 ; LHD QUEUE TO LHR OSTR00: 0 ┆
0x02880…02900 UnusedSector ┆; OUTPUT QUEUES TO TERMINALS REPEAT FPTERM ; XQUEL=LOC-ISTRLH R1GEM: 0 ; R2GEM: 0 ; R3GEM: 0 ; R4GEM: 0 ; R5GEM: 0 ; STCPTR:┆
0x02900…02980 UnusedSector ┆ 0,REPEAT 5 ; PCBIP: 0,REPEAT (PCBLGT-1) ; INPUT QUEUE PCB PCBOP: 0,REPEAT (PCBLGT-1) ; PCB FOR OUTPUT PCBLHD: 0,REPEAT (PCBLG┆
0x02980…02a00 UnusedSector ┆T-1) ; PCB TO LHD ;---------------------------------------------------------------------- ;INPUT TO CTR: ; <LL><6 BYTES DON!T ┆
0x02a00…02a80 UnusedSector ┆CARE><DATA> ;OUTPUT FROM CTR: ; <DATA> ; <CONTROL> ;---------------------------------------------------------------------- ;┆
0x02a80…02b00 UnusedSector ┆---------------------------------------------------------------------- MSG1: ;DATA <:DATA TO TERMINAL 1:> MSG1L=LOC-MSG1 ; MS┆
0x02b00…02b80 UnusedSector ┆G2: ;DATA <:DATA TO TERMINAL 10:> MSG2L=LOC-MSG2 ; TSTDIR: 0,1,2,3,4,5,6,7,8,9 ; TST DIRECTORY CTROLD: <:OLD:>,0,0,0,0 ; CTRMS┆
0x02b80…02c00 UnusedSector ┆G: MSGSTA ; TSTDIR ; 0 ; 0 ; MSGSTA ; ;---------------------------------------------------------------------- ;DATA FROM LH┆
0x02c00…02c80 UnusedSector ┆D ;---------------------------------------------------------------------- MSG10: RLTULNUP OR 1<8,0,0 ,0 ; LINE 1 UP MSG11: RLT┆
0x02c80…02d00 UnusedSector ┆ULNUP OR 2<8,0,0 ,0 ; LINE 2 UP MSG12: RLTUCLSUP OR 1<8,#2020,0,0 ; CLUSTER 1 UP MSG13: RLTUCLSUP OR 2<8,#2020,0,0 ; CLUSTER 2 U┆
0x02d00…02d80 UnusedSector ┆P MSG14: RLTUTRMUP OR 1<8,#3020,0,0 ; TERMINAL 1 UP MSG15: RLTUTRMUP OR 1<8,#3120,0,0 ; TERMINAL 2 UP MSG16: RLTUTRMUP OR 1<8,#4┆
0x02d80…02e00 UnusedSector ┆020,0,0 ; TERMINAL 9 UP MSG17: RLTUTRMUP OR 2<8,#3020,0,0 ; TERMINAL 10 UP MSG18: RLTUTRMUP OR 2<8,#3120,0,0 ; TERMINAL 11 UP MS┆
0x02e00…02e80 UnusedSector ┆G19: RLTUTRMUP OR 2<8,#4020,0,0 ; TERMINAL 18 UP MSG20: RLTUTEXT OR 1<8, #3120,0,0; TEXT TO TERMINAL 2 <:DATA TO TERMINAL 2:> ;┆
0x02e80…02f00 UnusedSector ┆ MSG20L=LOC-MSG20 MSG21: RLTUTEXT OR 1<8, #3020,0,0; TEXT TO TERMINAL 9 <:DATA TO TERMINAL 9:> ; MSG21L=LOC-MSG21 0,REPEAT ┆
0x02f00…02f80 UnusedSector ┆31 ; SPARE TO MORE INPUT ;---------------------------------------------------------------------- ;-------------------------┆
0x02f80…03000 UnusedSector ┆--------------------------------------------- FILDEC1: RELFIL OR ASCDAT OR ((SIZMEAN-1)/4)<RCLGTS OR 4 OSTRCT <:QCTR:> FILDEC┆
0x03000…03080 UnusedSector ┆3: RELFIL OR BINDAT OR (1-1)<RCLGTS OR XQUEL ISTRLH <:FIL3:> TT:=BUFQUE OR BINDAT OR (BUFWDS-1)<RCLGTS OR 1 PQF1: TT 0 <:QU┆
0x03080…03100 UnusedSector ┆E1:> USE PROG ; TPOS:=1<TPLS OR TCTR<SMXS ;FF ;----------------------------------------------------------------------- ;--┆
0x03100…03180 UnusedSector ┆--------------------------------------------------------------------- ;PROCEDURE TO SEND PACKET ;REGISTERS CALL EXIT ;R1 MSGNO ;┆
0x03180…03200 UnusedSector ┆R2 MSGLGT ;R3 TYPE ;R4 LINK LINK ;R5 QUEUE ;----------------------------------------------------------------------- ;BEGIN LH┆
0x03200…03280 UnusedSector ┆R040: ;SEND STC R4 X0 ; MOV R1 R1GEM ; MOV R2 R2GEM ; MOV R3 R3GEM ; MOV R5 R5GEM ; MOVC PRI0 R1 ; MOVC SIZMEAN R2 ; MOV┆
0x03280…03300 UnusedSector ┆C WRTYP R3 ; MOVC PCBIP R4 ; MON INITPCB ; JMP& LHRERR ; S/W-ERROR MOV R5GEM R3 ; MOV R3 PQF1+1 ; SAVE ABS POINTER FOR OLTO┆
0x03300…03380 UnusedSector ┆ MON OLTO,TPOS OR 2,0 ; PRINT LTN,XQUEP MON CONNECTQUE JMP& LHRERR ; S/W-ERROR MOV R3GEM R3 ; MON CONNECTPACK ; JMP& LHRER┆
0x03380…03400 UnusedSector ┆R ; S/W-ERROR MOV R2GEM R2 ; SLL R2 1 ; *2 MOV R1GEM R3 ; MON WRITEBLOCK JMP& LHRERR ; S/W-ERROR MON TERMPACK JMP& LHRERR┆
0x03400…03480 UnusedSector ┆ ; S/W-ERROR MON OLTO,TPOS OR 4,PQF1 ; PRINT QUE UNS R4 X0 ; JMP X4 ;END ;--------------------------------------------------┆
0x03480…03500 UnusedSector ┆-------------------- ;---------------------------------------------------------------------- ;PROCEDURE PRINT QUEUE(QUE) ;REGIST┆
0x03500…03580 UnusedSector ┆ERS CALL EXIT ;R4 LINK LINK ;R5 QUE ;---------------------------------------------------------------------- ;-------------------┆
0x03580…03600 UnusedSector ┆--------------------------------------------------- ;BEGIN LHR050: ;PRINT QUE STC R4 X0 ; MOV R5 PQF1+1 ; MON OLTO,TPOS OR┆
0x03600…03680 UnusedSector ┆ 100,PQF1 ; MOVC RDTYP R3 ; MOVC PCBIP R4 ; MON INITPCB ; JMP& LHRERR ; MOV R5 R3 ; MON CONNECTQUE ; JMP& LHRERR ; MON C┆
0x03680…03700 UnusedSector ┆ONNECTPACK ; JMP& LHRERR ; MON TERMPACK ; JMP& LHRERR ; UNS R4 X0 ; JMP X4 ;END ;FF LHR000: ;WAITINZ MON OLTO,TPOS OR┆
0x03700…03780 UnusedSector ┆ 0,0 ; TEST MOVC STCPTR R0 ; MON WAITEVENT ; JMP S4 LHR000 ;ERROR MOV MSGID. X7 R4 ; SEQ R4 MSGINZ ; IF NOT INZ THEN JMP S┆
0x03780…03800 UnusedSector ┆4 LHR000 ;ERROR MON SENDANSWER ; MOV MSGNO. X7 R3 ; POINTER TO TABLE MON OLTO,TPOS OR 240 ,0 ; MODN CBASE-C ; MOV FPCDAT R5┆
0x03800…03880 UnusedSector ┆ ; SUB CBASE-C R5 ; MOV QOCIN. X5 R3 ; MOV R3 CMIRD ; SAVE CMI INPUT QUEUE MOV QTMCOP.X5 R3 ; MOV R3 OSTRCT ; MOV QTMIN. X┆
0x03880…03900 UnusedSector ┆5 R3 ; MOV R3 ISTRLH ; MOVC FPTERM R6 ; MOVC OSTR00 R4 ; ADDC 1 R4 ; MOVC 0 R2 ; LHR005: ;TERMQUES MOD R2 MOV QTMLOP.X5 R┆
0x03900…03980 UnusedSector ┆3 ; MOV R3 X4 ; ADDC 1 R4 ; ADDC 1 R2 ; SOB R6 LHR005 ; MOV QLHDIP.X5 R3 ; LHD INPUT QUEUE MOV R3 LHDIPQ ; MON OLTO,TPOS ┆
0x03980…03a00 UnusedSector ┆OR 1,FILDEC3;T PRINT QUE ADD MOVC CTROLD R0 ;SEND START TO OLD MOVC TSTDIR R4 ; ADD CBASE-C R4 ; MOV R4 CTRMSG+1 ; MOVC CT┆
0x03a00…03a80 UnusedSector ┆RMSG R1 ; MON SENDMESSAGE ; MON WAITANSWER ; LHR007: ;TEST CMI INPUT QUEUE MOVC TYPCHA R3 ; MOV CMIRD R5 ; MON PROBQUE ; ┆
0x03a80…03b00 UnusedSector ┆JMP S4 LHR000 ;ERROR IEQ R3 0 ; JMP LHR007 ; WAIT UNTIL INZ DELIVERS DATA LHR008: ;TRANSFER CMI DATA TO LHR MOV R5 PQF1+1 ; ┆
0x03b00…03b80 UnusedSector ┆ MON OLTO,TPOS OR 80,PQF1 ;PRINT QUEUE MOVC RDTYP R3 ; MOVC PCBIP R4 ; MON INITPCB ; JMP S4 LHR000 ; MOV CMIRD R3 ; MON CO┆
0x03b80…03c00 UnusedSector ┆NNECTQUE ; JMP S4 LHR000 ; MON CONNECTPACK ; JMP S4 LHR000 ; MOV OSTRCT R3 ; MON TRANSFERPACK ; JMP S4 LHR000 ; ;TEST IF ┆
0x03c00…03c80 UnusedSector ┆MORE IN CMI QUEUE MOVC TYPCHA R3 ; MOV CMIRD R5 ; MON PROBQUE ; JMP S4 LHR000 ;ERROR INE R3 0 ; JMP LHR008 ; GOTO TRANSFER┆
0x03c80…03d00 UnusedSector ┆ CMI TO LHR ;SEND FROM LHD MOV R0 R4 ; MOV CTRWAIT R0 ; FETCH DELAY MON WAITDELAY ; MOV R4 R0 ; MOVC MSG10 R1 ; MOVC 4┆
0x03d00…03d80 UnusedSector ┆ R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG11 R1 ; MOVC 4 R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP ┆
0x03d80…03e00 UnusedSector ┆S4 LHR040 ; MOVC MSG12 R1 ; MOVC 4 R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG13 R1 ; MOVC 4 R2 ; MOV┆
0x03e00…03e80 UnusedSector ┆C TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG14 R1 ; MOVC 4 R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ┆
0x03e80…03f00 UnusedSector ┆; MOVC MSG15 R1 ; MOVC 4 R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG16 R1 ; MOVC 4 R2 ; MOVC TYPDAT R┆
0x03f00…03f80 UnusedSector ┆3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG17 R1 ; MOVC 4 R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MS┆
0x03f80…04000 UnusedSector ┆G18 R1 ; MOVC 4 R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG19 R1 ; MOVC 4 R2 ; MOVC TYPDAT R3 ; MOV L┆
0x04000…04080 UnusedSector ┆HDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG20 R1 ; MOVC MSG20L R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG21 R┆
0x04080…04100 UnusedSector ┆1 ; MOVC MSG21L R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; ;SEND TO LHR MOV R0 R4 ; MOV CTRWAIT R0 ; MON WA┆
0x04100…04180 UnusedSector ┆ITDELAY ; MOV R4 R0 ; MOVC MSG1 R1 ; MOVC MSG1L R2 ; MOVC TYPDAT R3 ; MODC 1 ; MOV OSTR00 R5 ; TERMINAL JMP S4 LHR040 ; S┆
0x04180…04200 UnusedSector ┆END PACKET MOVC MSG2 R1 ; MOVC MSG2L R2 ; MOVC TYPDAT R3 ; MODC 10 ; MOV OSTR00 R5 ; TERMINAL JMP S4 LHR040 ; LHR015: ;T┆
0x04200…04280 UnusedSector ┆EST CTR INPUT MOVC TYPCHA R3 ; MOV ISTRLH R5 ; MON PROBQUE ; JMP S4 LHR000 ;ERROR SEQP R3 0 ; IF ANY DATA THEN JMP S4 LHR0┆
0x04280…04300 UnusedSector ┆50 ; PRINT Q JMP LHR015 ; EMPTY QUE JMP LHR015 ; EMPTY QUE LHR080: ;WRONG INZ ANSWER MON OLTO,TPOS OR 20,0 ; JMP LHR099 ; GO┆
0x04300…04380 UnusedSector ┆TO STOP LHR081: ;WRONGINZ I/D MON OLTO,TPOS OR 21,0 ; JMP LHR099 ; GOTO STOP LHRERR: ;PCB-ERROR MON OLTO,TPOS OR 25,0 ; LHR09┆
0x04380…04400 UnusedSector ┆9: ;STOP JMP LHR099 ; GOTO STOP USE BASE XNAME0=<:CT:> XNAME1=<:R:> XBUFS=2 XREFS=2 XPRPC=LHR000 NOLIST ;$S8MXD2 LIST END GO┆
0x04400…04480 UnusedSector ┆ LIST BEGIN MODULE LOCCM1 ;---------------------------------------------------------------------- ;MODULE IDENTIFICATION: ICL-IS┆
0x04480…04500 UnusedSector ┆B/CM1SIM/122 ;DATED: 790731/PSC ;VERSION: 01 ;---------------------------------------------------------------------- ;--------┆
0x04500…04580 UnusedSector ┆-------------------------------------------------------------- ;THE SIMULATOR FEEDS MESSAGES TO THE MF1 INPUT Q. ;A JUMP TABLE I┆
0x04580…04600 UnusedSector ┆S USED SO THE NO. OF MESSAGES TO BE SENT ;CAN BE ALTERED BY PATCHING THE VALUE OF CTRJMP. ;MESSAGES IN THE Q FROM MF1 ARE PRINTE┆
0x04600…04680 UnusedSector ┆D. USE BASE NOLIST ;$ICLPRD LIST CTRWAIT: 5 ; DELAY BEFORE CM1 IS STARTED ISTRLH: 0 ; INPUT QUE-FROM MF1 CMIRD: 0 ; INPUT QUEUE ┆
0x04680…04700 UnusedSector ┆FROM CMI OSTRCT: 0 ; OUTPUT QUE TO MF1 ; XQUEL=LOC-ISTRLH R1GEM: 0 ; R2GEM: 0 ; R3GEM: 0 ; R4GEM: 0 ; R5GEM: 0 ; STCPTR: 0,RE┆
0x04700…04780 UnusedSector ┆PEAT 5 ; PCBIP: 0,REPEAT (PCBLGT-1) ; INPUT QUEUE PCB PCBOP: 0,REPEAT (PCBLGT-1) ; PCB FOR OUTPUT CTRJMP: 0 ; JUMP TABLE ENTRY┆
0x04780…04800 UnusedSector ┆ MSG01: #0001,#0002,0, #0002, ; MSG:R1 #FFFF,#FFFF,#0132,0 ; MSG01L=LOC-MSG01 ; MSG02: #0001,#0002,0, #0002, ; MSG:R2 #FFFF,┆
0x04800…04880 UnusedSector ┆#FFFF,#0232,0 ; MSG02L=LOC-MSG02 MSG03: #0021,0, 0, #000C, ; LOG UPDATE: 0, #0001,#2F2C,#1027, ; LOG #3035,#2124,#2534,#0110 ┆
0x04880…04900 UnusedSector ┆; UPDATE 1 MSG03L=LOC-MSG03 MSG04: #0021,#0003,0, #000D, ; 0, #0002,#2F2C,#1027, ; #3035,#2124,#2534,#0110,#0021; MSG04L=LOC-M┆
0x04900…04980 UnusedSector ┆SG04 MSG05: #0006,0, 0, 0, ; #FFFF,#FFFF ; MSG05L=LOC-MSG05 ; MSG06: #0011,#0010,0, #002F, ; #0000,#0073,#2124,#2134, ; #2610┆
0x04980…04a00 UnusedSector ┆,#2F32,#102D,#2534, ; #2D32,#2E29,#2C21,#0110, ; #1006,#101D,#3329,#3410, ; #2528,#2532,#2110,#392E, ; #2F22,#3924,#2834,#32┆
0x04a00…04a80 UnusedSector ┆25, ; #1025,#000F ; MSG06L=LOC-MSG06; MSG07: #0009,0, 0, 0, ; #FFFF,#FFFF ; MSG07L=LOC-MSG07 0,REPEAT 31 ; SPARE TO MORE I┆
0x04a80…04b00 UnusedSector ┆NPUT ;---------------------------------------------------------------------- ;---------------------------------------------┆
0x04b00…04b80 UnusedSector ┆------------------------- FILDEC1: RELFIL OR ASCDAT OR ((SIZMEAN-1)/4)<RCLGTS OR 4 OSTRCT <:QCTR:> FILDEC3: RELFIL OR BINDAT ┆
0x04b80…04c00 UnusedSector ┆OR (1-1)<RCLGTS OR XQUEL ISTRLH <:QMF1:> TT:=BUFQUE OR BINDAT OR (BUFWDS-1)<RCLGTS OR 1 PQF1: TT 0 <:QUE1:> USE PROG ; ┆
0x04c00…04c80 UnusedSector ┆TPOS:=1<TPLS OR TCTR<SMXS ;FF T1: ;MSG JUMP TABLE M01 ; M02 ; M03 ; M04 ; M05 ; M06 ; M07 ;- ;--------------------------┆
0x04c80…04d00 UnusedSector ┆--------------------------------------------- ;PROCEDURE TO SEND PACKET ;REGISTERS CALL EXIT ;R1 MSGNO ;R2 MSGLGT ;R3 TYPE ;R4 L┆
0x04d00…04d80 UnusedSector ┆INK LINK ;R5 QUEUE ;----------------------------------------------------------------------- ;BEGIN LHR040: ;SEND STC R4 X0 ;┆
0x04d80…04e00 UnusedSector ┆ MOV R1 R1GEM ; MOV R2 R2GEM ; MOV R3 R3GEM ; MOV R5 R5GEM ; MOVC PRI0 R1 ; MOVC SIZMEAN R2 ; MOVC WRTYP R3 ; MOVC PCBIP┆
0x04e00…04e80 UnusedSector ┆ R4 ; MON INITPCB ; JMP& LHRERR ; S/W-ERROR MOV R5GEM R3 ; MOV R3 PQF1+1 ; SAVE ABS POINTER FOR OLTO MON OLTO,TPOS OR 2,0 ;┆
0x04e80…04f00 UnusedSector ┆ PRINT LTN,XQUEP MON CONNECTQUE JMP& LHRERR ; S/W-ERROR MOV R3GEM R3 ; MON CONNECTPACK ; JMP& LHRERR ; S/W-ERROR MOV R2GEM┆
0x04f00…04f80 UnusedSector ┆ R2 ; SLL R2 1 ; *2 MOV R1GEM R3 ; MON WRITEBLOCK JMP& LHRERR ; S/W-ERROR MON TERMPACK JMP& LHRERR ; S/W-ERROR MON OLTO,T┆
0x04f80…05000 UnusedSector ┆POS OR 4,PQF1 ; PRINT QUE UNS R4 X0 ; JMP X4 ;END ;---------------------------------------------------------------------- ;--┆
0x05000…05080 UnusedSector ┆-------------------------------------------------------------------- ;PROCEDURE PRINT QUEUE(QUE) ;REGISTERS CALL EXIT ;R4 LINK L┆
0x05080…05100 UnusedSector ┆INK ;R5 QUE ;---------------------------------------------------------------------- ;-------------------------------------------┆
0x05100…05180 UnusedSector ┆--------------------------- ;BEGIN LHR050: ;PRINT QUE STC R4 X0 ; MOV R5 PQF1+1 ; MON OLTO,TPOS OR 100,PQF1 ; MOVC RDTYP ┆
0x05180…05200 UnusedSector ┆R3 ; MOVC PCBIP R4 ; MON INITPCB ; JMP& LHRERR ; MOV R5 R3 ; MON CONNECTQUE ; JMP& LHRERR ; MON CONNECTPACK ; JMP& LHRER┆
0x05200…05280 UnusedSector ┆R ; MON TERMPACK ; JMP& LHRERR ; UNS R4 X0 ; JMP X4 ;END ;FF LHR000: ;WAITINZ MON OLTO,TPOS OR 0,0 ; TEST MOVC STCPTR┆
0x05280…05300 UnusedSector ┆ R0 ; MON WAITEVENT ; JMP S4 LHR000 ;ERROR MOV MSGID. X7 R4 ; SEQ R4 MSGINZ ; IF NOT INZ THEN JMP S4 LHR000 ;ERROR MON SEN┆
0x05300…05380 UnusedSector ┆DANSWER ; MOV MSGNO. X7 R3 ; POINTER TO TABLE MON OLTO,TPOS OR 240 ,0 ; MODN CBASE-C ; MOV FPCDAT R5 ; SUB CBASE-C R5 ; M┆
0x05380…05400 UnusedSector ┆OV QMF1IN.X5 R3 ; MOV R3 OSTRCT ; MOV QMF1OP. X5 R3 ; MOV R3 ISTRLH ; ;SEND FROM CTR MOV R0 R4 ; MOV CTRWAIT R0 ; FETCH┆
0x05400…05480 UnusedSector ┆ DELAY MON WAITDELAY ; MOV R4 R0 ; CTRMSG: MOD CTRJMP ; JMPI T1 ; M01: MOVC MSG01 R1 ; MOVC MSG01L R2 ; MOVC TYPDAT R3 ; ┆
0x05480…05500 UnusedSector ┆MOV OSTRCT R5 ; JMP S4 LHR040 ; M02: MOVC MSG02 R1 ; MOVC MSG02L R2 ; MOVC TYPDAT R3 ; MOV OSTRCT R5 ; JMP S4 LHR040 ; M03:┆
0x05500…05580 UnusedSector ┆ MOVC MSG03 R1 ; MOVC MSG03L R2 ; MOVC TYPDAT R3 ; MOV OSTRCT R5 ; JMP S4 LHR040 ; M04: MOVC MSG04 R1 ; MOVC MSG04L R2 ; M┆
0x05580…05600 UnusedSector ┆OVC TYPDAT R3 ; MOV OSTRCT R5 ; JMP S4 LHR040 ; M05: MOVC MSG05 R1 ; MOVC MSG05L R2 ; MOVC TYPDAT R3 ; MOV OSTRCT R5 ; JMP┆
0x05600…05680 UnusedSector ┆ S4 LHR040 ; M06: MOVC MSG06 R1 ; MOVC MSG06L R2 ; MOVC TYPDAT R3 ; MOV OSTRCT R5 ; JMP S4 LHR040 ; M07: MOVC MSG07 R1 ; MO┆
0x05680…05700 UnusedSector ┆VC MSG07L R2 ; MOVC TYPSTA R3 ; STATUS MSG - THIS MF DOWN MOV OSTRCT R5 ; JMP S4 LHR040 ; LHR015: ;TEST CTR INPUT MOVC TYPC┆
0x05700…05780 UnusedSector ┆HA R3 ; MOV ISTRLH R5 ; MON PROBQUE ; JMP S4 LHR000 ;ERROR SEQP R3 0 ; IF ANY DATA THEN JMP S4 LHR050 ; PRINT Q JMP LHR015┆
0x05780…05800 UnusedSector ┆ ; EMPTY QUE JMP LHR015 ; EMPTY QUE LHR080: ;WRONG INZ ANSWER MON OLTO,TPOS OR 20,0 ; JMP LHR099 ; GOTO STOP LHR081: ;WRONGIN┆
0x05800…05880 UnusedSector ┆Z I/D MON OLTO,TPOS OR 21,0 ; JMP LHR099 ; GOTO STOP LHRERR: ;PCB-ERROR MON OLTO,TPOS OR 25,0 ; LHR099: ;STOP JMP LHR099 ; G┆
0x05880…05900 UnusedSector ┆OTO STOP USE BASE XNAME0=<:CT:> XNAME1=<:R:> XBUFS=2 XREFS=2 XPRPC=LHR000 NOLIST ;$S8MXD2 LIST END GOTO STOP LHR081: ;WRONGIN┆
0x05900…05980 UnusedSector ┆Z I/D MON OLTO,TPOS OR 21,0 ; XD2 LIST END GOTO STOP LHR081: ;WRONGINZ I/D MON OLTO,TPOS OR 21,0 ; JMP LHR099 ; GOTO STOP┆
0x05980…05a00 UnusedSector ┆ LHRERR: ;PCB-ERROR MON OLTO,TPOS OS4 LHR040 ; MOVC MSG14 R1 ; MOVC 4 R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ┆
0x05a00…05a80 UnusedSector ┆; MOVC MSG15 R1 ; MOVC 4 R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG16 R1 ; MOVC 4 R2 ; MOVC TYPDAT R┆
0x05a80…05b00 UnusedSector ┆3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG17 R1 ; MOVC 4 R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MS┆
0x05b00…05b80 UnusedSector ┆G18 R1 ; MOVC 4 R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG19 R1 ; MOVC 4 R2 ; MOVC TYPDAT R3 ; MOV L┆
0x05b80…05c00 UnusedSector ┆HDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG20 R1 ; MOVC MSG20L R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG21 R┆
0x05c00…05c80 UnusedSector ┆1 ; MOVC MSG21L R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; ;SEND TO LHR MOV R0 R4 ; MOV CTRWAIT R0 ; MON WA┆
0x05c80…05d00 UnusedSector ┆ITDELAY ; MOV R4 R0 ; MOVC MSG1 R1 ; MOVC MSG1L R2 ; MOVC TYPDAT R3 ; MODC 1 ; MOV OSTR00 R5 ; TERMINAL JMP S4 LHR040 ; S┆
0x05d00…05d80 UnusedSector ┆END PACKET MOVC MSG2 R1 ; MOVC MSG2L R2 ; MOVC TYPDAT R3 ; MODC 10 ; MOV OSTR00 R5 ; TERMINAL JMP S4 LHR040 ; LHR015: ;T┆
0x05d80…05e00 UnusedSector ┆EST CTR INPUT MOVC TYPCHA R3 ; MOV ISTRLH R5 ; MON PROBQUE ; JMP S4 LHR000 ;ERROR SEQP R3 0 ; IF ANY DATA THEN JMP S4 LHR0┆
0x05e00…05e80 UnusedSector ┆50 ; PRINT Q JMP LHR015 ; EMPTY QUE JMP LHR015 ; EMPTY QUE LHR080: ;WRONG INZ ANSWER MON OLTO,TPOS OR 20,0 ; JMP LHR099 ; GO┆
0x05e80…05f00 UnusedSector ┆TO STOP LHR081: ;WRONGINZ I/D MON OLTO,TPOS OR 21,0 ; JMP LHR099 ; GOTO STOP LHRERR: ;PCB-ERROR MON OLTO,TPOS OR 25,0 ; LHR09┆
0x05f00…05f80 UnusedSector ┆9: ;STOP JMP LHR099 ; GOTO STOP USE BASE XNAME0=<:CT:> XNAME1=<:R:> XBUFS=2 XREFS=2 XPRPC=LHR000 NOLIST ;$S8MXD2 LIST END GO┆
0x05f80…06000 UnusedSector ┆TO STOP LHR081: ;WRONGINZ I/D MON OLTO,TPOS OR 2LHR000 NOLIST ;$S8MXD2 LIST END R: ;PCB-ERROR MON OLTO,TPOS OR 25,0 ; LHR09┆
0x06000…06080 UnusedSector ┆9: ;STOP JMP LHR099 ; GOTO STOP USEGOTO STOP LHR081: ;WRONGINZ I/D MON OLTO,TPOS OR 21,0 ; JMP LHR099 ; GOTO STOP LHRERR: ;PC┆
0x06080…06100 UnusedSector ┆B-ERROR MON OLTO,TPOS OR 25,0 ; LHR099: ;STOP JMP LHR099 ; GOTO STOP USE BASE XNAME0=<:CT:> XNAME1=<:R:> XBUFS=2 XREFS=2 XPRPC┆
0x06100…06180 UnusedSector ┆=LHR000 NOLIST ;$S8MXD2 LIST END R3 0 ; IF ANY DATA THEN JMP S4 LHR050 ; PRINT Q JMP LHR015 ; EMPTY QUE JMP LHR015 ; EMPTY┆
0x06180…06200 UnusedSector ┆ QUE LHR080: ;WRONG INZ ANSWER MON OLTO,TPOS OR 20,0 ; JMP LHR099 ; GOTO STOP LHR081: ;WRONGINZ I/D MON OLTO,TPOS OR 21,0 ; ┆
0x06200…06280 UnusedSector ┆JMP LHR099 ; GOTO STOP LHRERR: ;PCB-ERROR MON OLTO,TPOS OR 25,0 ; LHR099: ;STOP JMP LHR099 ; GOTO STOP USE BASE XNAME0=<:CT:> ┆
0x06280…06300 UnusedSector ┆XNAME1=<:R:> XBUFS=2 XREFS=2 XPRPC=LHR000 NOLIST ;$S8MXD2 LIST END GOTO STOP LHR081: ;WRONGINZ I/D MON OLTO,TPOS OR 21,0 ; ┆
0x06300…06380 UnusedSector 0x00[128]
[…0x2…]
0x06480…06500 UnusedSector ┆ LIST BEGIN MODULE LOCCM1 ;---------------------------------------------------------------------- ;MODULE IDENTIFICATION: ICL-IS┆
0x06500…06580 UnusedSector ┆B/CM1SIM/122 ;DATED: 790731/PSC ;VERSION: 01 ;---------------------------------------------------------------------- ;--------┆
0x06580…06600 UnusedSector ┆-------------------------------------------------------------- ;THE SIMULATOR FEEDS MESSAGES TO THE MF1 INPUT Q. ;A JUMP TABLE I┆
0x06600…06680 UnusedSector ┆S USED SO THE NO. OF MESSAGES TO BE SENT ;CAN BE ALTERED BY PATCHING THE VALUE OF CTRJMP. ;MESSAGES IN THE Q FROM MF1 ARE PRINTE┆
0x06680…06700 UnusedSector ┆D. USE BASE NOLIST ;$ICLPRD LIST CTRWAIT: 5 ; DELAY BEFORE CM1 IS STARTED ISTRLH: 0 ; INPUT QUE-FROM MF1 CMIRD: 0 ; INPUT QUEUE ┆
0x06700…06780 UnusedSector ┆FROM CMI OSTRCT: 0 ; OUTPUT QUE TO MF1 ; XQUEL=LOC-ISTRLH R1GEM: 0 ; R2GEM: 0 ; R3GEM: 0 ; R4GEM: 0 ; R5GEM: 0 ; STCPTR: 0,RE┆
0x06780…06800 UnusedSector ┆PEAT 5 ; PCBIP: 0,REPEAT (PCBLGT-1) ; INPUT QUEUE PCB PCBOP: 0,REPEAT (PCBLGT-1) ; PCB FOR OUTPUT CTRJMP: 0 ; JUMP TABLE ENTRY┆
0x06800…06880 UnusedSector ┆ MSG01: #0001,#0002,0, #0002, ; MSG:R1 #FFFF,#FFFF,#0132,0 ; MSG01L=LOC-MSG01 ; MSG02: #0001,#0002,0, #0002, ; MSG:R2 #FFFF,┆
0x06880…06900 UnusedSector ┆#FFFF,#0232,0 ; MSG02L=LOC-MSG02 MSG03: #0021,0, 0, #000C, ; LOG UPDATE: 0, #0001,#2F2C,#1027, ; LOG #3035,#2124,#2534,#0110 ┆
0x06900…06980 UnusedSector ┆; UPDATE 1 MSG03L=LOC-MSG03 MSG04: #0021,#0003,0, #000D, ; LOG UPDATE: 0, #0002,#2F2C,#1027, ; LOG #3035,#2124,#2534,#0110,#0┆
0x06980…06a00 UnusedSector ┆021,0; UPDATE 1A MSG04L=LOC-MSG04 MSG05: #0006,0, 0, 0, ; OTHER MF INIT #FFFF,#FFFF ; MSG05L=LOC-MSG05 ; MSG06: #0011,#0010,0, ┆
0x06a00…06a80 UnusedSector ┆#002F, ; MSG: #0000,#0073,#2124,#2134, ; DATA #2610,#2F32,#102D,#2534, ; FROM TE #2D32,#2E29,#2C21,#0110, ; RMINAL 1 #1006,#┆
0x06a80…06b00 UnusedSector ┆101D,#3329,#3410, ; 6 - IS T #2528,#2532,#2110,#392E, ; HERE ANY #2F22,#3924,#2834,#3225, ; BODYTHER #1025,#000F ; E ? MSG06L┆
0x06b00…06b80 UnusedSector ┆=LOC-MSG06; MSG07: #0009,0, 0, 0, ; THIS MF DOWN #FFFF,#FFFF ; MSG07L=LOC-MSG07 0,REPEAT 31 ; SPARE TO MORE INPUT ;----┆
0x06b80…06c00 UnusedSector ┆------------------------------------------------------------------ ;-----------------------------------------------------------┆
0x06c00…06c80 UnusedSector ┆----------- FILDEC1: RELFIL OR ASCDAT OR ((SIZMEAN-1)/4)<RCLGTS OR 4 OSTRCT <:QCTR:> FILDEC3: RELFIL OR BINDAT OR (1-1)<RCLGT┆
0x06c80…06d00 UnusedSector ┆S OR XQUEL ISTRLH <:QMF1:> TT:=BUFQUE OR BINDAT OR (BUFWDS-1)<RCLGTS OR 1 PQF1: TT 0 <:QUE1:> USE PROG ; TPOS:=1<TPLS O┆
0x06d00…06d80 UnusedSector ┆R TCTR<SMXS ;FF T1: ;MSG JUMP TABLE M01 ; M02 ; M03 ; M04 ; M05 ; M06 ; M07 ;- ;----------------------------------------┆
0x06d80…06e00 UnusedSector ┆------------------------------- ;PROCEDURE TO SEND PACKET ;REGISTERS CALL EXIT ;R1 MSGNO ;R2 MSGLGT ;R3 TYPE ;R4 LINK LINK ;R5 Q┆
0x06e00…06e80 UnusedSector ┆UEUE ;----------------------------------------------------------------------- ;BEGIN LHR040: ;SEND STC R4 X0 ; MOV R1 R1GEM┆
0x06e80…06f00 UnusedSector ┆ ; MOV R2 R2GEM ; MOV R3 R3GEM ; MOV R5 R5GEM ; MOVC PRI0 R1 ; MOVC SIZMEAN R2 ; MOVC WRTYP R3 ; MOVC PCBIP R4 ; MON INI┆
0x06f00…06f80 UnusedSector ┆TPCB ; JMP& LHRERR ; S/W-ERROR MOV R5GEM R3 ; MOV R3 PQF1+1 ; SAVE ABS POINTER FOR OLTO MON OLTO,TPOS OR 2,0 ; PRINT LTN,XQU┆
0x06f80…07000 UnusedSector ┆EP MON CONNECTQUE JMP& LHRERR ; S/W-ERROR MOV R3GEM R3 ; MON CONNECTPACK ; JMP& LHRERR ; S/W-ERROR MOV R2GEM R2 ; SLL R2 ┆
0x07000…07080 UnusedSector ┆1 ; *2 MOV R1GEM R3 ; MON WRITEBLOCK JMP& LHRERR ; S/W-ERROR MON TERMPACK JMP& LHRERR ; S/W-ERROR MON OLTO,TPOS OR 4,PQF1 ┆
0x07080…07100 UnusedSector ┆; PRINT QUE UNS R4 X0 ; JMP X4 ;END ;---------------------------------------------------------------------- ;----------------┆
0x07100…07180 UnusedSector ┆------------------------------------------------------ ;PROCEDURE PRINT QUEUE(QUE) ;REGISTERS CALL EXIT ;R4 LINK LINK ;R5 QUE ;-┆
0x07180…07200 UnusedSector ┆--------------------------------------------------------------------- ;---------------------------------------------------------┆
0x07200…07280 UnusedSector ┆------------- ;BEGIN LHR050: ;PRINT QUE STC R4 X0 ; MOV R5 PQF1+1 ; MON OLTO,TPOS OR 100,PQF1 ; MOVC RDTYP R3 ; MOVC PCB┆
0x07280…07300 UnusedSector ┆IP R4 ; MON INITPCB ; JMP& LHRERR ; MOV R5 R3 ; MON CONNECTQUE ; JMP& LHRERR ; MON CONNECTPACK ; JMP& LHRERR ; MON TERMP┆
0x07300…07380 UnusedSector ┆ACK ; JMP& LHRERR ; UNS R4 X0 ; JMP X4 ;END ;FF LHR000: ;WAITINZ MON OLTO,TPOS OR 0,0 ; TEST MOVC STCPTR R0 ; MON WAI┆
0x07380…07400 UnusedSector ┆TEVENT ; JMP S4 LHR000 ;ERROR MOV MSGID. X7 R4 ; SEQ R4 MSGINZ ; IF NOT INZ THEN JMP S4 LHR000 ;ERROR MON SENDANSWER ; MOV┆
0x07400…07480 UnusedSector ┆ MSGNO. X7 R3 ; POINTER TO TABLE MON OLTO,TPOS OR 240 ,0 ; MODN CBASE-C ; MOV FPCDAT R5 ; SUB CBASE-C R5 ; MOV QMF1IN.X5 R┆
0x07480…07500 UnusedSector ┆3 ; MOV R3 OSTRCT ; MOV QMF1OP. X5 R3 ; MOV R3 ISTRLH ; ;SEND FROM CTR MOV R0 R4 ; MOV CTRWAIT R0 ; FETCH DELAY MON WA┆
0x07500…07580 UnusedSector ┆ITDELAY ; MOV R4 R0 ; CTRMSG: MOD CTRJMP ; JMPI T1 ; M01: MOVC MSG01 R1 ; MOVC MSG01L R2 ; MOVC TYPDAT R3 ; MOV OSTRCT R5 ┆
0x07580…07600 UnusedSector ┆; JMP S4 LHR040 ; M02: MOVC MSG02 R1 ; MOVC MSG02L R2 ; MOVC TYPDAT R3 ; MOV OSTRCT R5 ; JMP S4 LHR040 ; M03: MOVC MSG03 R1┆
0x07600…07680 UnusedSector ┆ ; MOVC MSG03L R2 ; MOVC TYPDAT R3 ; MOV OSTRCT R5 ; JMP S4 LHR040 ; M04: MOVC MSG04 R1 ; MOVC MSG04L R2 ; MOVC TYPDAT R3 ┆
0x07680…07700 UnusedSector ┆; MOV OSTRCT R5 ; JMP S4 LHR040 ; M05: MOVC MSG05 R1 ; MOVC MSG05L R2 ; MOVC TYPDAT R3 ; MOV OSTRCT R5 ; JMP S4 LHR040 ; M┆
0x07700…07780 UnusedSector ┆06: MOVC MSG06 R1 ; MOVC MSG06L R2 ; MOVC TYPDAT R3 ; MOV OSTRCT R5 ; JMP S4 LHR040 ; M07: MOVC MSG07 R1 ; MOVC MSG07L R2 ;┆
0x07780…07800 UnusedSector ┆ MOVC TYPSTA R3 ; STATUS MSG - THIS MF DOWN MOV OSTRCT R5 ; JMP S4 LHR040 ; LHR015: ;TEST CTR INPUT MOVC TYPCHA R3 ; MOV I┆
0x07800…07880 UnusedSector ┆STRLH R5 ; MON PROBQUE ; JMP S4 LHR000 ;ERROR SEQP R3 0 ; IF ANY DATA THEN JMP S4 LHR050 ; PRINT Q JMP LHR015 ; EMPTY QUE ┆
0x07880…07900 UnusedSector ┆JMP LHR015 ; EMPTY QUE LHR080: ;WRONG INZ ANSWER MON OLTO,TPOS OR 20,0 ; JMP LHR099 ; GOTO STOP LHR081: ;WRONGINZ I/D MON OLT┆
0x07900…07980 UnusedSector ┆O,TPOS OR 21,0 ; JMP LHR099 ; GOTO STOP LHRERR: ;PCB-ERROR MON OLTO,TPOS OR 25,0 ; LHR099: ;STOP JMP LHR099 ; GOTO STOP USE B┆
0x07980…07a00 UnusedSector ┆ASE XNAME0=<:CM:> XNAME1=<:1:> XBUFS=2 XREFS=2 XPRPC=LHR000 NOLIST ;$S8MXD2 LIST END GOTO STOP LHR081: ;WRONGINZ I/D MON OLT┆
0x07a00…07a80 UnusedSector ┆OS OS4 LHR040 ; MOVC MSG14 R1 ; MOVC 4 R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG15 R1 ; MOVC 4 R2 ; ┆
0x07a80…07b00 UnusedSector ┆ MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG16 R1 ; MOVC 4 R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR┆
0x07b00…07b80 UnusedSector ┆040 ; MOVC MSG17 R1 ; MOVC 4 R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG18 R1 ; MOVC 4 R2 ; MOVC TYPD┆
0x07b80…07c00 UnusedSector ┆AT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG19 R1 ; MOVC 4 R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOV┆
0x07c00…07c80 UnusedSector ┆C MSG20 R1 ; MOVC MSG20L R2 ; MOVC TYPDAT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; MOVC MSG21 R1 ; MOVC MSG21L R2 ; MOVC TYPD┆
0x07c80…07d00 UnusedSector ┆AT R3 ; MOV LHDIPQ R5 ; JMP S4 LHR040 ; ;SEND TO LHR MOV R0 R4 ; MOV CTRWAIT R0 ; MON WAITDELAY ; MOV R4 R0 ; MOVC MSG┆
0x07d00…07d80 UnusedSector ┆1 R1 ; MOVC MSG1L R2 ; MOVC TYPDAT R3 ; MODC 1 ; MOV OSTR00 R5 ; TERMINAL JMP S4 LHR040 ; SEND PACKET MOVC MSG2 R1 ; MOV┆
0x07d80…07e00 UnusedSector ┆C MSG2L R2 ; MOVC TYPDAT R3 ; MODC 10 ; MOV OSTR00 R5 ; TERMINAL JMP S4 LHR040 ; LHR015: ;TEST CTR INPUT MOVC TYPCHA R3 ; ┆
0x07e00…07e80 UnusedSector ┆ MOV ISTRLH R5 ; MON PROBQUE ; JMP S4 LHR000 ;ERROR SEQP R3 0 ; IF ANY DATA THEN JMP S4 LHR050 ; PRINT Q JMP LHR015 ; EMPTY┆
0x07e80…07f00 UnusedSector ┆ QUE JMP LHR015 ; EMPTY QUE LHR080: ;WRONG INZ ANSWER MON OLTO,TPOS OR 20,0 ; JMP LHR099 ; GOTO STOP LHR081: ;WRONGINZ I/D M┆
0x07f00…07f80 UnusedSector ┆ON OLTO,TPOS OR 21,0 ; JMP LHR099 ; GOTO STOP LHRERR: ;PCB-ERROR MON OLTO,TPOS OR 25,0 ; LHR099: ;STOP JMP LHR099 ; GOTO STOP┆
0x07f80…08000 UnusedSector ┆ USE BASE XNAME0=<:CT:> XNAME1=<:R:> XBUFS=2 XREFS=2 XPRPC=LHR000 NOLIST ;$S8MXD2 LIST END GOTO STOP LHR081: ;WRONGINZ I/D M┆
0x08000…08080 UnusedSector ┆ON OLTO,TPOS OR 2LHR000 NOLIST ;$S8MXD2 LIST END R: ;PCB-ERROR MON OLTO,TPOS OR 25,0 ; LHR099: ;STOP JMP LHR099 ; GOTO STOP┆
0x08080…08100 UnusedSector ┆ USEGOTO STOP LHR081: ;WRONGINZ I/D MON OLTO,TPOS OR 21,0 ; JMP LHR099 ; GOTO STOP LHRERR: ;PCB-ERROR MON OLTO,TPOS OR 25,0 ;┆
0x08100…08180 UnusedSector ┆ LHR099: ;STOP JMP LHR099 ; GOTO STOP USE BASE XNAME0=<:CT:> XNAME1=<:R:> XBUFS=2 XREFS=2 XPRPC=LHR000 NOLIST ;$S8MXD2 LIST END┆
0x08180…08200 UnusedSector ┆ R3 0 ; IF ANY DATA THEN JMP S4 LHR050 ; PRINT Q JMP LHR015 ; EMPTY QUE JMP LHR015 ; EMPTY QUE LHR080: ;WRONG INZ ANSWER ┆
0x08200…08280 UnusedSector ┆MON OLTO,TPOS OR 20,0 ; JMP LHR099 ; GOTO STOP LHR081: ;WRONGINZ I/D MON OLTO,TPOS OR 21,0 ; JMP LHR099 ; GOTO STOP LHRERR: ;┆
0x08280…08300 UnusedSector ┆PCB-ERROR MON OLTO,TPOS OR 25,0 ; LHR099: ;STOP JMP LHR099 ; GOTO STOP USE BASE XNAME0=<:CT:> XNAME1=<:R:> XBUFS=2 XREFS=2 XPR┆
0x08300…08380 UnusedSector ┆PC=LHR000 NOLIST ;$S8MXD2 LIST END GOTO STOP LHR081: ;WRONGINZ I/D MON OLTO,TPOS OR 21,0 ; JMP LHR099 ; GOTO STOP LHRERR: ;┆
0x08380…08400 UnusedSector 0x00[128]
[…0x2…]
0x08500…08580 UnusedSector ┆ LIST BEGIN MODULE LOCCM1 ;---------------------------------------------------------------------- ;MODULE IDENTIFICATION: ICL-IS┆
0x08580…08600 UnusedSector ┆B/CM1SIM/122 ;DATED: 790731/PSC ;VERSION: 01 ;---------------------------------------------------------------------- ;--------┆
0x08600…08680 UnusedSector ┆-------------------------------------------------------------- ;THE SIMULATOR FEEDS MESSAGES TO THE MF1 INPUT Q. ;A JUMP TABLE I┆
0x08680…08700 UnusedSector ┆S USED SO THE NO. OF MESSAGES TO BE SENT ;CAN BE ALTERED BY PATCHING THE VALUE OF CTRJMP. ;MESSAGES IN THE Q FROM MF1 ARE PRINTE┆
0x08700…08780 UnusedSector ┆D. USE BASE NOLIST ; MESSAGE <:CALL S8MXGL:> ;; CR80 SYSTEM ONE ; MONITOR ; MASTER: XGL - GLOBAL NAMES USED IN S8MXPX GLOBA┆
0x08780…08800 UnusedSector ┆L UTILITYLENGTH,PROGLENGTH,NAMELENGTH,CONTLENGTH,PROCLENGTH GLOBAL DRIVERLENGTH,CATALOGLENGTH,ENTRYAREA,ENTRYLENGTH,WORKAREA GLO┆
0x08800…08880 UnusedSector ┆BAL WORKLENGTH,REFLENGTH,BUFLENGTH GLOBAL LOCACT,ITEM,C,CURSIN,CURSOUT,CURSWORK GLOBAL BMREENTRANT,BMINPUT,BMBYTE,BMDISP,BMOUTPU┆
0x08880…08900 UnusedSector ┆T,BMWORD GLOBAL IDLENGTH,SHARELENGTH,BUFFERLENGTH,STACKLENGTH GLOBAL BNBYTE,BNOPUT,BFIRST,BNEXT GLOBAL BMSTEP,BMCONV,BMNOEC,KIND┆
0x08900…08980 UnusedSector ┆OC,KINDCR,KINDLP,KINDFD GLOBAL NAME,PROC,NEXT XDATE:=#0922MESSAGE <:CALL S8MNAX:> ;; S8MNAX ; ; CR80 SYSTEM ONE, NAMES ; ; GENER┆
0x08980…08a00 UnusedSector ┆ATED AT 78.04.05 ; 00151000 0 000E LEVEL 2 NAMES: ITEMLH= #0005 C= #000D BMERRR= #0020 BMFULL= #0400 BNLOCT= #000B BMSPEL=┆
0x08a00…08a80 UnusedSector ┆ #0009 BNERRR= #0005 BNFULL= #000A DISKDS= #0002 REALTK= #0000 BMBYTE= #0004 BMDIST= #0100 BMREJT= #0004 PROGLH= #000E ┆
0x08a80…08b00 UnusedSector ┆BNBYTE= #0002 BMCONV= #0010 BNDIST= #0008 BNREJT= #0002 BNCONV= #0004 TIMEMK= #6800 CONTLH= #0005 TIMESE= #0064 BMINPT= ┆
0x08b00…08b80 UnusedSector ┆#0001 BMWORD= #0000 BMTIMR= #0002 BMPARY= #0080 BMPROM= #0002 BNTIMR= #0001 BNPARY= #0007 BNPROM= #0001 TERMIL= #0001 N┆
0x08b80…08c00 UnusedSector ┆= #0004 BMUNKN= #2000 DISABD= #E000 POWERE= #0001 BMSTEP= #0020 BNUNKN= #000D BMWRIR= #0200 BNSTEP= #0005 BNWRIR= #0009 ┆
0x08c00…08c80 UnusedSector ┆ BMREST= #0002 BMPOSN= #0010 BMERAE= #0020 BNREST= #0001 BNPOSN= #0004 BNERAE= #0005 BMNORS= #4000 BNNORS= #000E EVERSN=┆
0x08c80…08d00 UnusedSector ┆ #0006 IDLENH= #0004 BMBUSY= #8000 BMCLEN= #0000 BNBUSY= #000F EAREAS= #000A BMNOEC= #0040 NAMELH= #0003 BNNOEC= #0006 ┆
0x08d00…08d80 UnusedSector ┆BMOPUT= #0002 BMCLER= #0040 MAXDEE= #003F BNOPUT= #0001 BNCLER= #0006 BMRELE= #0004 BMNOTY= #0001 ETYPE= #0007 BNRELE= #┆
0x08d80…08e00 UnusedSector ┆0002 BNNOTY= #0000 BMREAR= #0100 BNREAR= #0008 NAMEBS= #0006 BMOUTT= #0003 BMTPUT= #0001 BMSPEC= #0008 BMCONL= #0000 BM┆
0x08e00…08e80 UnusedSector ┆UNCE= #0010 BMEOF= #0040 BNTPUT= #0000 BNSPEC= #0003 BNUNCE= #0004 BNEOF= #0006 BMILLL= #0008 BNILLL= #0003 BNMUTX= #000┆
0x08e80…08f00 UnusedSector ┆0 BMNOCP= #0080 BMRESE= #0008 BNNOCP= #0007 BNRESE= #0003 BMTERE= #0080 BMDISP= #0001 BMREET= #0001 BNTERE= #0007 BNDIS┆
0x08f00…08f80 UnusedSector ┆P= #0000 BNREET= #0000 USE BASE BMWAC:= #0080 OLDPRC:= #001B SAVE3:= #0029 SSAVE1:= #0019 BNWAC:= #0007 SAVE4:= #002A SS┆
0x08f80…09000 UnusedSector ┆AVE2:= #001A SAVE5:= #002B SBLOCK:= #000C SSAVE3:= #001B TERMIE:= #0031 SAVE6:= #002C STACKH:= #0005 SSAVE4:= #001C BMPL┆
0x09000…09080 UnusedSector ┆SB:= #0100 NEXT:= #0002 SAVE7:= #0040 PROCLH:= #0052 CATSLH:= #0040 SSAVE5:= #001D BS:= #0008 BMWDE:= #0008 BNPLSB:= #00┆
0x09080…09100 UnusedSector ┆08 WARNIG:= #0030 DELAY:= #0033 SAVE8:= #0041 MESSAG:= #004D SSAVE6:= #001E BNWDE:= #0003 CLINK:= #0014 SAVE9:= #0042 S┆
0x09100…09180 UnusedSector ┆SAVE7:= #001F DLINK:= #0027 WORK:= #0040 SACTIN:= #0008 SSAVE8:= #0020 BMCHAE:= #0049 BM1:= #FFFF ELINK:= #0056 ANS0:= #┆
0x09180…09200 UnusedSector ┆0000 SSAVE9:= #0021 NL:= #000A BM2:= #FFFF WORKAA:= #0295 ANS1:= #0001 SFILE:= #000D ESEGMS:= #000B EVENTC:= #003D ANS2┆
0x09200…09280 UnusedSector ┆:= #0002 EATTRE:= #0006 EAREAE:= #0008 MES0:= #0000 ANS3:= #0003 CR0:= #000D EVENTE:= #0037 MES1:= #0001 ANS4:= #0004 S┆
0x09280…09300 UnusedSector ┆IDENT:= #0003 BMLOOP:= #0019 CR1:= #000E DATE:= #0024 MES2:= #0002 BOPER:= #0000 PARENT:= #0001 CR2:= #000F SAVE10:= #00┆
0x09300…09380 UnusedSector ┆43 MES3:= #0003 NAME:= #0007 CR3:= #0010 CAUSE:= #001E EMRETN:= #001E SAVE11:= #0044 MES4:= #0004 SSTACD:= #0013 BFIRST┆
0x09380…09400 UnusedSector ┆:= #0006 CR4:= #0011 SAVE12:= #0045 BSTATE:= #0005 CR5:= #0012 CBASED:= #0016 SAVE13:= #0046 WRK:= #004D SNAME:= #0000 ┆
0x09400…09480 UnusedSector ┆BMWAN:= #0001 CR6:= #0013 SAVE14:= #0047 STOP:= #000F EFIRST:= #001A BNWAN:= #0000 BMMESS:= #0001 CR7:= #0014 RESTIG:= #┆
0x09480…09500 UnusedSector ┆0038 SAVE15:= #0048 SBLOCT:= #000B BMWPA:= #0040 BNMESS:= #0000 BMANSW:= #0002 KIND:= #0006 SAVE16:= #0049 UTILIH:= #02A┆
0x09500…09580 UnusedSector ┆1 MOPERN:= #0000 BNWPA:= #0006 BNANSW:= #0001 BMCHAL:= #00F0 PROCIT:= #0004 SAVE17:= #004A SMODE:= #0005 SBUFSE:= #0011 ┆
0x09580…09600 UnusedSector ┆ BNCHAL:= #0004 SAVE18:= #004B ACOUNT:= #0001 SKIND:= #0006 BMPRIY:= #FF00 AREACM:= #002E SAVE19:= #004C RESERR:= #0052 W┆
0x09600…09680 UnusedSector ┆ORKIG:= #005E BCOUNT:= #0001 BNPRIY:= #0008 CATWRK:= #0005 PPROGM:= #000C EBLOCE:= #0009 CONTET:= #0004 CAN:= #0018 BMWI┆
0x09680…09700 UnusedSector ┆N:= #0004 PROGRM:= #0017 EOFACN:= #0059 EBLOCG:= #000E BMNEXT:= #0029 BNWIN:= #0002 BMRECD:= #000A BMPER0:= #0069 BNRECD┆
0x09700…09780 UnusedSector ┆:= #0001 ANSWER:= #004D BMCREE:= #0009 BMPER1:= #0079 DEL:= #007F PREFS:= #0001 CURSLH:= #00B2 EVT0:= #0000 EHIBLK:= #00┆
0x09780…09800 UnusedSector ┆0C EDUMMY:= #001F BMPER2:= #0089 KINDFD:= #0400 TIMER:= #0019 DEVPR:= #001F CURIN:= #005A EVT1:= #0001 BMPER3:= #0099 B┆
0x09800…09880 UnusedSector ┆MWC:= #003F PSW:= #001A PRESET:= #0020 ADJUST:= #0035 DEVICE:= #0053 ENTRYA:= #0275 USERLH:= #02F0 EVT2:= #0002 BUFFEH:=┆
0x09880…09900 UnusedSector ┆ #0008 BMPER4:= #00A9 BNWC:= #0006 CURSIN:= #005F EVT3:= #0003 BMPER5:= #00B9 PPRPC:= #000D MSAVE:= #0026 CENTRY:= #005D┆
0x09900…09980 UnusedSector ┆ ABLOCK:= #0003 EVT4:= #0004 ERECOE:= #000A BMPER6:= #00C9 BMACTE:= #BFC0 INTERT:= #0054 CATALG:= #0057 WORKLH:= #000C ┆
0x09980…09a00 UnusedSector ┆BBLOCK:= #0003 CATALH:= #0058 BMXCU:= #4000 BNSSI:= #0001 REF:= #0003 REFLEH:= #0004 BADDR:= #0002 BMPER9:= #00D9 BNXCU:┆
0x09a00…09a80 UnusedSector ┆= #000E PBUFS:= #0002 ITEM:= #FFF3 LOCACN:= #001C TIME:= #0021 EAREA:= #000F BMWEV:= #0002 BMPR:= #3F00 ERROR:= #002F R┆
0x09a80…09b00 UnusedSector ┆EFS:= #0036 W:= #0040 BNEXT:= #0007 ENTRYH:= #0020 BNWEV:= #0001 CATBIN:= #0003 EVENT:= #004D STREAT:= #000A BMRUN:= #80┆
0x09b00…09b80 UnusedSector ┆00 RECEIR:= #0001 ARESUT:= #0000 AFILE:= #0004 BNRUN:= #000F PROC:= #000D EVENTS:= #003C MCOUNT:= #0001 BFILE:= #0004 E┆
0x09b80…09c00 UnusedSector ┆PAGE:= #001B CHAIN:= #0005 PRPC:= #0018 ESC:= #001B BMPEND:= #0009 CHILD:= #0003 SMASK:= #0007 BNPEND:= #0000 PCOUNT:= #┆
0x09c00…09c80 UnusedSector ┆0006 FREEAS:= #002A NEXTET:= #003B BUFLEH:= #0009 ASTATS:= #0002 BUF:= #0003 FF:= #000C KINDOC:= #0100 CBASE:= #0015 CU┆
0x09c80…09d00 UnusedSector ┆REVT:= #003A ECHART:= #001C BMREME:= #0059 BNWAIG:= #0008 CATCAT:= #0006 STATE:= #0000 BUFS:= #0037 CURWOK:= #005C SPROC┆
0x09d00…09d80 UnusedSector ┆T:= #0004 BMRENE:= #0039 CATDAT:= #0001 WCATS:= #02B0 SFIRST:= #000E EIDENT:= #0003 EBASE:= #0019 KINDCR:= #0200 CATOBJ:┆
0x09d80…09e00 UnusedSector ┆= #0004 PSIZE:= #000B FIRSTT:= #0039 BMPRCH:= #FFF0 SUSED:= #0012 SHAREH:= #0022 BMWSM:= #0010 PWORDS:= #0003 EDATE:= #0┆
0x09e00…09e80 UnusedSector ┆004 BNWSM:= #0004 WSAVE:= #02A1 WPROG:= #02A2 BMIGNR:= #000C CATTXT:= #0002 INTRPT:= #0034 MBLOCK:= #0003 SREM:= #0010 ┆
0x09e80…09f00 UnusedSector ┆ENAME:= #0000 BMWSP:= #0020 BNIGNR:= #0002 EDRIVE:= #0007 BNWSP:= #0005 BNRSU:= #0000 BMRX:= #C000 DRIVEH:= #0055 MADDRS┆
0x09f00…09f80 UnusedSector ┆:= #0002 EMODE:= #001E WORD:= #0000 SIZE:= #0004 PRICHN:= #0032 ESPECL:= #0055 SEOFAN:= #0009 EKIND:= #001D LF:= #000A ┆
0x09f80…0a000 UnusedSector ┆EM:= #0019 BMDYNC:= #C03F BMREF:= #0008 CURSWK:= #01C3 BNREF:= #0003 NAMEIT:= #0003 ACTION:= #0058 CURSOT:= #0111 MFILE:┆
0x0a000…0a080 UnusedSector ┆= #0004 CR:= #000D BMSIGN:= #0004 SAVE0:= #003E CUROUT:= #005B SSSIZE:= #0017 BMWS:= #00C0 BNSIGN:= #0002 KINDLP:= #0300┆
0x0a080…0a100 UnusedSector ┆ SAVE1:= #003F SENDER:= #0001 ERECOS:= #000D BMSTAC:= #FFC0 LOCREN:= #001D SAVE2:= #0028 SSAVE0:= #0018 MTESTS= #0000-1┆
0x0a100…0a180 UnusedSector ┆28*BASE-128*(PROG-1) MMODES= #FFFF-128*BASE-128*(PROG-1) MCHECS= #FFFF-128*BASE-128*(PROG-1) BYTE= #0000+ 2*BASE+ 0*(PROG-1) ┆
0x0a180…0a200 UnusedSector ┆ PRIOR0= #0000-128*BASE-128*(PROG-1) PRIOR1= #0000-128*BASE-128*(PROG-1) PRIOR2= #0000-128*BASE-128*(PROG-1) USE #0 ; 00175900┆
0x0a200…0a280 UnusedSector ┆ 0 0100 LEVEL 4 NAMES: INSPEE= #0070 ENDPRM= #0041 INPARM= #0068 STARTS= #006C OUTNL= #005D COMPAS= #0045 CREATS= #006A ┆
0x0a280…0a300 UnusedSector ┆OUTTET= #005C MPER00= #0051 OUTHEA= #0064 STOPPS= #006D CREATY= #004A RENAMY= #004D GETPON= #0058 REMOVE= #0072 CLOSE= #┆
0x0a300…0a380 UnusedSector ┆0054 INWORD= #007C OUTNAE= #0085 PUTARA= #0074 STACK= #0055 OUTEND= #005E LINKNT= #006E SETDEY= #0077 BACKSE= #0063 OUT┆
0x0a380…0a400 UnusedSector ┆CHR= #005F REMOVM= #0071 INNEXT= #0069 INCHAR= #0061 OUTBLK= #0060 INTYPE= #0066 OPEN= #0053 OUTTEB= #005B COMPAE= #0046┆
0x0a400…0a480 UnusedSector ┆KM1SRC C, ░ Q @ H F x ; O W - G C @ F ; SE BASE XNAME0=<:CM:> XNAME1┆
0x0a480…0a500 UnusedSector ┆=<:1:> XBUFS=2 XREFS=2 XPRPC=START NOLIST ;$S8MXD2 LIST END LHR099 ; GO TO STOP LHR081: ; WRONG IN$S8MXD2 LIST END HR099 ; ┆
0x0a500…0a580 UnusedSector ┆GO TO STOP LHR081: ; WRONG INZ/ID MON OLTO,TPOS OR 21,0 JMP LHR099 ; GO TO STOP QUERR: MON OLTO,TSE BASE XNAME0=<:CM:> XNAME1┆
0x0a580…0a600 UnusedSector ┆ICLPRD @C, ░ Q @ C P00003 O W @ K C @ ; MESSAGE <:CALL S8MXGL:> ;┆
0x0a600…0a680 UnusedSector ┆$S8MXGL XDATE:=#$OC MESSAGE <:CALL S8MNAX:> ;$S8MNAX SYS2:=FALSE XPD:=DRIVERLENGTH MESSAGE <:CALL S8MXD1:> ;$S8MXD1 MESSAGE <:CA┆
0x0a680…0a700 UnusedSector ┆LL OLTDAT:> ;$OLTDAT MESSAGE <:CALL ISBDAT:> ;$ISBDAT MESSAGE <:CALL ICLERR:> ;$ICLERR MESSAGE <:CALL S8MXGL:> ;┆
0x0a700…0a780 UnusedSector ┆ INIT= #0052 LINKCD= #006F GETARA= #0073 FREE01= #0089 SETINT= #0078 SETPON= #0057 PUTBYE= #0049 INNAME= #007B NEXTON= ┆
0x0a780…0a800 UnusedSector ┆#0043 REMOVS= #006B SETPRN= #0076 INCOMD= #0086 CHANGY= #004E NEXTEY= #004C UNSTAK= #0056 INITDE= #0042 WAIT= #0059 INI┆
0x0a800…0a880 UnusedSector ┆TWT= #0075 OUTINR= #0065 REMOVY= #004F FINDEY= #0050 GETADS= #0047 RETURR= #0044 INBLOK= #0062 OUTTEP= #005A LOOKUY= #00┆
0x0a880…0a900 UnusedSector ┆4B GETBYE= #0048 INELET= #0067 USE #0 ; 00197700 0 0040 LEVEL 4 NAMES: GETINL= #0007 GIVEUE= #0018 SEARCS= #001A WAITAR= #┆
0x0a900…0a980 UnusedSector ┆000D ENTERL= #0006 WAITIL= #0008 GETINT= #0004 REGISS= #0013 SENDSL= #000A WAITET= #000F WAITIT= #0005 WAITDY= #0019 IN┆
0x0a980…0aa00 UnusedSector ┆SERT= #0001 RESERT= #0003 REGREE= #0010 MEMARA= #0014 CREATE= #001C WAITNT= #000E LEAVEL= #0009 TRANST= #0012 CLEART= #0┆
0x0aa00…0aa80 UnusedSector ┆000 SENDME= #000B RELEAT= #0002 SENDAR= #000C RESUMT= #0011 GETEVE= #001B USE #0 ; 00199200 0 0040 LEVEL 3 NAMES: USE PROG ┆
0x0aa80…0ab00 UnusedSector ┆ LOCINT:= #026F LOCACT:= #826F USE #0 SYS2:=FALSE XPD:=DRIVERLENGTH MESSAGE <:CALL S8MXD1:> ; ; CR80 SYSTEM ONE ; MONITOR ; MA┆
0x0ab00…0ab80 UnusedSector ┆STER: XPD - PROCESS DESCRIPTION (PART 1) ; SHORTENED VERSION, ONLY FOR USE IN CONNECTION WITH PROGRAMS ; TO BE INCLUDED IN SYSTE┆
0x0ab80…0ac00 UnusedSector ┆M (XPD= PROCLENGTH, DRIVERLENGTH, OR ; CATALOGLENGTH). ; ; FP/780523 ; MESSAGE <:CALL: S8MXD1, 780523:> IF XPD NE PROCLH AN X┆
0x0ac00…0ac80 UnusedSector ┆PD NE DRIVEH AN XPD NE CATALH THEN MESSAGE <:*** WRONG SYSTEM FILE USAGE ***:> FI USE BASE LOC=BASE XSTATE 0,0,0 XSIZE 0 X┆
0x0ac80…0ad00 UnusedSector ┆KIND XNAME: XNAME0 IF NAMELENGTH GT 1 THEN XNAME1 IF NAMELENGTH GT 2 THEN XNAME2 IF NAMELENGTH GT 3 THEN 0 REPEAT NAMELENGTH-┆
0x0ad00…0ad80 UnusedSector ┆3-1 FI FI FI IF LOC-XNAME NE NAMELENGTH THEN MESSAGE <:ERROR: XNAME LENGTH:> FI XIDENT 0,0 IF LOC NE PROC THEN MESSAGE <:ERROR┆
0x0ad80…0ae00 UnusedSector ┆: XPROC LOCATION:> FI 0 REPEAT 7 ; REGISTERS XCBASE XCBASEMOD XPROGRAM XPRPC XTIMER XPSW XOLDPROC XLOCACTION XLOCRETUR┆
0x0ae00…0ae80 UnusedSector ┆N XCAUSE XDEVPR XPRESET 0 REPEAT 12 ; TIME0 - FREEAREAS #FFFF XERROR XWARNING XTERMINATE 0 REPEAT 3 ; PRICHN - ADJUST ┆
0x0ae80…0af00 UnusedSector ┆XREFSX XBUFSX XREFS=0 XBUFS=1 0 REPEAT 20 ; RESTING - SAVE19 XWRK: 0 REPEAT CONTLENGTH-1 IF LOC-XWRK NE CONTLENGTH THEN MES┆
0x0af00…0af80 UnusedSector ┆SAGE <:ERROR: XWRK LENGTH:> FI LOC= LOC-C IF LOC NE PROCLENGTH-C THEN MESSAGE <:ERROR: XPROC LENGTH:> FI IF XPD GT PROCLENGTH T┆
0x0af80…0b000 UnusedSector ┆HEN XRESERVER XDEVICE XINTERRUPT IF LOC NE DRIVERLENGTH-C THEN MESSAGE <:ERROR: XDRIVER LENGTH:> FI IF XPD GT DRIVERLENGTH T┆
0x0b000…0b080 UnusedSector ┆HEN 0 REPEAT 2 ; ESPECIAL - CATALOG IF LOC NE CATALOGLENGTH-C THEN MESSAGE <:ERROR: XCATALOG LENGTH:> FI FI FI XLOC= LOC ME┆
0x0b080…0b100 UnusedSector ┆SSAGE <:CALL OLTDAT:> ;;---------------------------------------------------------------------- ; ; TEST FILE DECLARATION NAMES T┆
0x0b100…0b180 UnusedSector ┆ABLE FOR OLTO MESSAGE <:OLTO V790615:> ; ; A TEST FILE DECLARATION CONTAINS 4 PARAMETERS (=4 WORDS): ; FILE PARAMETER 1: BIT US┆
0x0b180…0b200 UnusedSector ┆E ; 0-4 NUMBER OF RECORDS ; 5-11 LENGTH-1 OF EACH RECORD (WDS) ; 12 DATATYPE: 1=ASCII, 0=BINARY ; 13 NOT USED ; 14-15 FILE TYPE:┆
0x0b200…0b280 UnusedSector ┆ ; 0=ABSOLUTE ADDRESSED FILE ; 1=PROCESS RELATIVE ADDRESSED FI ; 2=BUFFER QUEUE ; 3= INDEX FILE ; ;-----------------------------┆
0x0b280…0b300 UnusedSector ┆----------------------------------------- IF NT SYS2 THEN OLTO:= 255 ; OLTO CALL ENTRY FI RCCNMS:= 0 ; START BIT POSITION OF REC┆
0x0b300…0b380 UnusedSector ┆ORD NUMBERS FILED RCLGTS:= 5 ; START BIT POSITION OF RECORD LENGTH-1 FILED ASCDAT:= 1<12 ; DATA TYPE = ASCII BINDAT:= 0<12 ; DAT┆
0x0b380…0b400 UnusedSector ┆A TYPE = BINARY ABSFIL:= 0<14 ; ABSOLUTE FILE RELFIL:= 1<14 ; RELATIVE FILE BUFQUE:= 2<14 ; BUFFER QUEUE INXFIL:= 3<14 ; INDEX F┆
0x0b400…0b480 UnusedSector ┆ILE SMXS:= 8 ; START BIT POSITION OF SUBMODULE INDEX TPLS:= 12 ; START BIT POSITION OF TEST POINT LEVEL ;-----------------------┆
0x0b480…0b500 UnusedSector ┆----------------------------------------------- MESSAGE <:CALL ISBDAT:> ;; 00000972 0 0000 LEVEL 1 NAMES: CR2A3= #0008 CRFF= #┆
0x0b500…0b580 UnusedSector ┆0000 AX= #0002 CR1AF= #0006 CR2AF= #0007 BUFWDS= #0001 CR23= #0004 CR0F= #0001 CR1F= #0002 CR2F= #0003 USE BASE LOCLHR:┆
0x0b580…0b600 UnusedSector ┆= #7403 OCTSS:= #0087 QWDOP1:= #0051 ILLPAR:= #0005 LONGBR:= #0000 QUEHDL:= #000F ONDREM:= #0004 LNCLAS:= #0057 OCLHRM:=┆
0x0b600…0b680 UnusedSector ┆ #0077 OCASTB:= #007D REVLCH:= #0084 CRMFIS:= #0002 LSTAWS:= #0007 QWDOP2:= #0053 QNCNFO:= #0060 ONDS1:= #0064 CLTUST:= ┆
0x0b680…0b700 UnusedSector ┆#0004 MFLOFR:= #0010 OCREON:= #007B TCTR:= #0001 LNMSST:= #0061 CMFSTA:= #0007 CRNXTY:= #0003 QTMXOP:= #0035 QOLDER:= #0┆
0x0b700…0b780 UnusedSector ┆06E INITPB:= #00F5 ONDRCR:= #0001 CMFACC:= #0002 OCDSTB:= #007C OCTSW:= #0086 CRTST:= #0008 QLHDOP:= #0066 OLDERR:= #00E┆
0x0b780…0b800 UnusedSector ┆3 SIZTMR:= #0006 LGTTST:= #06F0 LTUCO2:= #0003 CLTUP1:= #0001 CRNXID:= #0002 AFEPS:= #0005 QOPOR1:= #0054 PROBQE:= #00F6┆
0x0b800…0b880 UnusedSector ┆ ONDERR:= #003C LTU48:= #000A CLTUP2:= #0002 OCTELK:= #000A CRTSTS:= #0004 QOPOR2:= #0056 QTLSTL:= #005E LOCTEL:= #5283 ┆
0x0b880…0b900 UnusedSector ┆ LOCDTM:= #66D3 LNMAXC:= #0065 MFTLLD:= #0012 OCCLOS:= #0071 QOPOR3:= #0057 ONDDTK:= #0035 LNCLDW:= #0056 LTUX25:= #0002 ┆
0x0b900…0b980 UnusedSector ┆ MFCLOS:= #0004 MFPCKS:= #0006 QCTR1:= #002C QOPOR4:= #0058 QBUSY:= #0003 TYPSTA:= #0002 RLTUTL:= #0017 CRSTWS:= #0001 L┆
0x0b980…0ba00 UnusedSector ┆HPCKS:= #0005 PRI0:= #0000 CRTSBF:= #0000 LGTOLD:= #0670 LGTSCH:= #00E0 MFLOG:= #0010 OCMFTM:= #0076 MSGTXT:= #0001 MSGI┆
0x0ba00…0ba80 UnusedSector ┆D:= #0004 MSGOLD:= #0007 MSGSCH:= #000A PRI1:= #0001 TINZ:= #0004 LGTWDD:= #0700 LGTBQM:= #05E0 LOCCTR:= #2F53 LNCLRM:= ┆
0x0ba80…0bb00 UnusedSector ┆#0058 MSGWDD:= #0012 QOLTX:= #0071 LOCTIM:= #90F3 ONDCOU:= #0003 MFLFR:= #0021 OCFEP1:= #0078 AUX:= #0075 COPYBK:= #00F9┆
0x0bb00…0bb80 UnusedSector ┆ LHSINK:= #0000 LTU300:= #0002 LTU120:= #0004 RLTUTP:= #0014 CMFDIC:= #0003 OCFEP2:= #0079 ONDWDN:= #0004 OCDOWN:= #0005┆
0x0bb80…0bc00 UnusedSector ┆ QTELLH:= #0030 QNCNFT:= #0061 PTYPE0:= #0000 TYPCHA:= #FFFE TMF1:= #0002 LOCXCR:= #57D3 LTU320:= #0009 MFDOWN:= #0007 ┆
0x0bc00…0bc80 UnusedSector ┆MFTHDW:= #0009 CRSGNN:= #0005 MSGREM:= #0001 QOCIN:= #0026 QTLFDP:= #004C QOLDWD:= #005B QWDOLD:= #005C PTYPE1:= #0001 F┆
0x0bc80…0bd00 UnusedSector ┆PX25E:= #0002 LOCPFX:= #9F83 ONDWDP:= #0003 LHQFUL:= #0001 LTU150:= #0001 LTU600:= #0003 LTU240:= #0005 MFRGO:= #0026 MS┆
0x0bd00…0bd80 UnusedSector ┆GS1:= #0017 PTYPE2:= #0002 GETQUE:= #0004 TCTX:= #0005 LGTLHR:= #0B20 ONDMFY:= #0032 MFERR:= #0040 MSGLHR:= #0009 PTYPE3┆
0x0bd80…0be00 UnusedSector ┆:= #0003 CRTPDP:= #0002 TX25:= #0007 FPTERM:= #0024 MFINPT:= #0001 FPDOWN:= #0000 LOCINZ:= #6283 QTELIP:= #002E QLHDOW:=┆
0x0be00…0be80 UnusedSector ┆ #0043 THRHG:= #000A LOCCM1:= #46D3 ONDXER:= #0005 LTU190:= #0008 CLTULD:= #0022 OCTEL:= #0093 QXCLHP:= #006B GETINX:= #┆
0x0be80…0bf00 UnusedSector ┆00F7 WRITED:= #00E6 LOCCM2:= #4EB3 ONDSTA:= #0007 LNPLSA:= #0060 MFCNT:= #0003 CMER:= #0001 LTU480:= #0006 MFZZFD:= #000┆
0x0bf00…0bf80 UnusedSector ┆2 TYPXOP:= #0000 LOCMF1:= #6B43 CLTUCP:= #0005 OCTLAX:= #0094 READBK:= #00EC HOME:= #00E9 NOPCK:= #0006 LGTTEL:= #0550 ┆
0x0bf80…0c000 UnusedSector ┆LGTDTM:= #0470 LOCOLT:= #2AE3 LOCMF2:= #71E3 LNTMDN:= #005D MFLSNM:= #0004 OCSDSP:= #0089 MSGDTM:= #0008 MSGTEL:= #000E ┆
0x0c000…0c080 UnusedSector ┆QSDESL:= #0065 FPCLUS:= #0004 LNCLUP:= #0055 LTU960:= #0007 RLTUTT:= #0016 MFNULL:= #0023 OCFEU1:= #0008 FPWORG:= #0002 ┆
0x0c080…0c100 UnusedSector ┆BUFSHT:= #0001 LOCX25:= #B763 OCFEU2:= #0009 OCIMAC:= #000D CRUMF:= #0006 PORT1:= #0001 LNTLDR:= #0064 MFRET:= #0003 MFI┆
0x0c100…0c180 UnusedSector ┆NT:= #0006 QTLFDT:= #004B PORT2:= #0002 LGTCTR:= #1780 LOCTMR:= #5083 LTURED:= #0000 MFCODE:= #0000 MSGCTR:= #0002 ILLOP┆
0x0c180…0c200 UnusedSector ┆:= #0000 SIZSTT:= #0014 PORT3:= #0003 LGTTIM:= #0120 LNDOWN:= #0052 CMFRSV:= #0006 RMUDTE:= #0080 MSGTIM:= #0004 QCSPOL:┆
0x0c200…0c280 UnusedSector ┆= #0062 BACKSC:= #00EA PORT4:= #0004 ONDER1:= #003D LDENDI:= #0004 MSGRET:= #0002 QOCOP:= #0027 QDSPOL:= #004E TERMPK:= ┆
0x0c280…0c300 UnusedSector ┆#00F2 GETPOS:= #00E8 LOWTHD:= #0014 FPX25M:= #000A ONDER2:= #003E QTMCOP:= #0024 QX25DN:= #004A READCR:= #00EE CMOK:= #0┆
0x0c300…0c380 UnusedSector ┆000 LGTXCR:= #04D0 ONDER3:= #003F LHCNFG:= #0002 MFABC:= #0027 MSGXCR:= #000D QTELOP:= #002F FORWSC:= #00EB TLTX:= #0006┆
0x0c380…0c400 UnusedSector ┆ LGTPFX:= #0B10 LHXFR:= #0004 MFRECF:= #0028 MSGPFX:= #0013 QMF1IN:= #0028 QX25DP:= #0048 COPYPK:= #00FA WRTYP:= #0001 ┆
0x0c400…0c480 UnusedSector ┆UPPTHD:= #001E TYPXOS:= #0004 ONDTRP:= #0001 LNTMAS:= #005A OCIMIC:= #0001 MSGDRY:= #0000 QMF2IN:= #002A QFDDCR:= #004D ┆
0x0c480…0c500 UnusedSector ┆QILTXD:= #006F WRITEK:= #00E5 SHORTF:= #0004 SIZMEN:= #0064 TLHD:= #0006 MFLACK:= #0022 MSGOPR:= #0000 MSGSTA:= #0001 TC┆
0x0c500…0c580 UnusedSector ┆MI:= #0003 LGTINZ:= #0450 MFLSN:= #0005 OCNO:= #0073 MSGINZ:= #0001 LGTCM1:= #07E0 CLTULN:= #0021 OCAUX:= #0092 MSGCM1:=┆
0x0c580…0c600 UnusedSector ┆ #000B LGTCM2:= #01D0 LDLTUN:= #0002 LNRASS:= #0053 CLTUGS:= #0001 CLTUCW:= #0006 MFLTO:= #0021 MFABI:= #0008 OCXSTA:= #┆
0x0c600…0c680 UnusedSector ┆0085 MSGCM2:= #000C MSGSTD:= #0001 QX25IP:= #0040 TRANSK:= #00F0 LOCOTS:= #AA93 LDCFSE:= #000C CLTUGT:= #0000 CLTULP:= #┆
0x0c680…0c700 UnusedSector ┆0020 MFXDAA:= #0031 OCMFAL:= #0072 OCSSPL:= #0088 OCWDSS:= #008A TFEPS:= #0004 QCTRIX:= #0042 FPCDAT:= #00C8 LGTMF1:= #0┆
0x0c700…0c780 UnusedSector ┆6A0 LDLTUP:= #0003 LNEUP:= #0051 CLTUON:= #0007 MFTNO:= #0001 OCYES:= #0074 ASGNDE:= #007F OCM1DW:= #008B OCFEAT:= #0007┆
0x0c780…0c800 UnusedSector ┆ MSGNO:= #0002 MSGMF1:= #0005 QTMRIP:= #0059 SETTHL:= #0006 LGTMF2:= #0220 LGTOLT:= #0470 LTULOF:= #0003 MFSOP:= #0024 ┆
0x0c800…0c880 UnusedSector ┆OCM2DW:= #008C MSGMF2:= #0006 MSGWDS:= #0002 WRITER:= #00E7 TYPDAS:= #0005 TYPSTS:= #0006 LNCODE:= #0000 LTU0:= #0000 MF┆
0x0c880…0c900 UnusedSector ┆OPT:= #0020 OCFEDS:= #008E OCCONC:= #0090 RESUMK:= #00F1 TYPDAT:= #0001 LGTX25:= #1000 LOCLHD:= #ABC3 LNPLSP:= #005F CLT┆
0x0c900…0c980 UnusedSector ┆UPP:= #0003 RLTUCN:= #0013 CMFCON:= #0001 OCDISC:= #0075 OCSTOP:= #0001 FPSTAY:= #0001 MSGX25:= #0011 LOCCMI:= #86F3 LNT┆
0x0c980…0ca00 UnusedSector ┆MRM:= #005B IPCBSE:= #0014 MSGPNT:= #0000 MAXTYE:= #0008 LGTTMR:= #0200 RLTUCP:= #0012 MFHSZ:= #0006 MSGTMR:= #000F QTMI┆
0x0ca00…0ca80 UnusedSector ┆N:= #0025 CONNEE:= #00F4 NEXTPK:= #00F3 READWD:= #00ED LONGBF:= #0000 ONDCHM:= #0033 LHDRCL:= #0001 LHCNFN:= #0003 OCMIN┆
0x0ca80…0cb00 UnusedSector ┆C:= #0070 OCFEDW:= #008D CRCUTY:= #0000 MSGTRN:= #0004 TYPPCK:= #FFFF LHNOCF:= #0000 CRDISD:= #0004 MSGWDY:= #0003 QTMLO┆
0x0cb00…0cb80 UnusedSector ┆P:= #0000 QCNVI1:= #0031 LNSTAS:= #0063 MFINPA:= #0011 MFXCFF:= #0030 OPENDE:= #0081 CRCUID:= #0001 MSGTRP:= #0005 QMF1O┆
0x0cb80…0cc00 UnusedSector ┆P:= #0029 QCNVI2:= #0032 SIZMAX:= #05DC TOLD:= #0008 TSCH:= #0000 ONDTRW:= #0002 LHCOPF:= #0002 MFXDFF:= #0031 RECSIE:= ┆
0x0cc00…0cc80 UnusedSector ┆#000A QMF2OP:= #002B QWDIN1:= #0050 TWDD:= #0009 LHCNFR:= #0005 QWDIN2:= #0052 QILTXM:= #0070 CRTQUP:= #0003 FPLINE:= #0┆
0x0cc80…0cd00 UnusedSector ┆004 PRGSTP:= #C763 LDLTUS:= #0001 CLTUTL:= #0024 QX25OP:= #003F QXSLHP:= #006D QCNT:= #0075 TFLP:= #000B ISBSV:= #0000 ┆
0x0cd00…0cd80 UnusedSector ┆LOCTST:= #8003 LNAUX:= #005E LNSTAW:= #0062 QCTROX:= #0041 QNCNFI:= #005F OVFL:= #0002 TYPHLP:= #0003 QTMROP:= #005A QLH┆
0x0cd80…0ce00 UnusedSector ┆DIN:= #006A REGREK:= #00EF SHORTR:= #0001 PACKET:= #0002 LLCFSE:= #0008 CLTUOT:= #0008 CLTULW:= #0023 OCTELB:= #008F OCT┆
0x0ce00…0ce80 UnusedSector ┆LFA:= #000B CLTUPT:= #0002 CLOSDE:= #0082 OCTLFB:= #000C QLHDIP:= #0047 MAXCMD:= #0007 TLHR:= #0000 LGTOTS:= #0130 LDFIR┆
0x0ce80…0cf00 UnusedSector ┆R:= #0000 LNCLRA:= #0059 LTULON:= #0004 OCMAXC:= #0096 OCABRT:= #0006 TDOWN:= #0009 MSGCMD:= #0001 QIPOR1:= #0055 LOCSCH┆
0x0cf00…0cf80 UnusedSector ┆:= #7F23 LOCOLD:= #9213 OCSEND:= #0070 OCDEMT:= #0095 OCM1UP:= #0003 CRCMF:= #0007 MSGSTP:= #0002 QCDESL:= #0064 PCBLGT:┆
0x0cf80…0d000 UnusedSector ┆= #0023 LOCBQM:= #5CA3 LOCWDD:= #9883 LNTEXT:= #0050 LNTMUP:= #005C RLTUTD:= #0015 MFINB:= #0025 OCTELF:= #007A ASGNLH:=┆
0x0d000…0d080 UnusedSector ┆ #0083 OCSTRT:= #0091 OCM2UP:= #0004 QDDESL:= #004F CONNEK:= #00F3 CRTLBF:= #0001 LNCHLN:= #0054 RLTULN:= #0011 OCXCMD:=┆
0x0d080…0d100 UnusedSector ┆ #007E QTLCFD:= #005D VPOOL:= #00FB LGTLHD:= #0BA0 ONDTXT:= #0006 MFXCMD:= #0030 MSGLHD:= #0010 QCTRBC:= #002D QCNVO1:= ┆
0x0d100…0d180 UnusedSector ┆#0033 QSSPOL:= #0063 STORET:= #00E4 LGTCMI:= #0A00 ONDLIK:= #0034 ONDBQM:= #0065 LNMINC:= #0050 RLTULP:= #0010 MFLINK:= ┆
0x0d180…0d200 UnusedSector ┆#0029 CMFRES:= #0004 MSGCMI:= #0003 QCNVO2:= #0034 THRLW:= #0005 LTUWRE:= #0004 MFRECT:= #0005 CMFRET:= #0005 EDITPK:= #┆
0x0d200…0d280 UnusedSector ┆00F8 TDTM:= #000A OCFEUP:= #0002 RDTYP:= #0000 INVQU:= #0004 PUTQUE:= #0005 MAXREE:= #0003 TYPHLS:= #0007 USE #0 MESSAGE ┆
0x0d280…0d300 UnusedSector ┆<:CALL ICLERR:> ; ;---------------------------------------------------------------------- ;------------------------------------┆
0x0d300…0d380 UnusedSector ┆---------------------------------- ;MODULE IDENTIFICATION: ICL-ISB/ICLERR/200 ;DATED 790731/PSC ;VERSION: 01 ;------------------┆
0x0d380…0d400 UnusedSector ┆---------------------------------------------------- ; ;THIS MODULE WILL RESERVE A COMMON AREA IN EACH SOFTWARE MODULE FOR ;USE ┆
0x0d400…0d480 UnusedSector ┆BY THE MONITOR FUNCTION :ERROR,WHICH IS PART OF THE ON LINE ;DIAGNOSTIC SOFTWARE MODULE. ; 0,REPEAT(CATALOGLGTH-LOC) ERRPCB: ┆
0x0d480…0d500 UnusedSector ┆0 ; SAVE AREA FOR PCB REPEAT(PCBLGT-1) ; ERRSV1: XDATE ; SAVE AREA ERRSV2: 0 ; SAVE AREA ERRSV3: 0 ; SAVE AREA ERRSV4: 0 ; SAVE┆
0x0d500…0d580 UnusedSector ┆ AREA ERRSV5: 0 ; SAVE AREA ERRSV6: 0 ; SAVE AREA ERRSV7: 0 ; SAVE AREA LIST CTRWAIT: 5 ; DELAY BEFORE CM1 IS STARTED ISTRLH: 0┆
0x0d580…0d600 UnusedSector ┆ ; INPUT QUE-FROM MF1 CMIRD: 0 ; INPUT QUEUE FROM CMI OSTRCT: 0 ; OUTPUT QUE TO MF1 ; XQUEL=LOC-ISTRLH R1GEM: 0 ; R2GEM: 0 ; R┆
0x0d600…0d680 UnusedSector ┆3GEM: 0 ; R4GEM: 0 ; R5GEM: 0 ; STCPTR: 0,REPEAT 5 ; PCBIP: 0,REPEAT (PCBLGT-1) ; INPUT QUEUE PCB PCBOP: 0,REPEAT (PCBLGT-1) ┆
0x0d680…0d700 UnusedSector ┆; PCB FOR OUTPUT CTRJMP: 0 ; JUMP TABLE ENTRY MSG01: #0001,#0002,0, #0002, ; MSG:R1 #FFFF,#FFFF,#0132,0 ; MSG01L=LOC-MSG01 ; ┆
0x0d700…0d780 UnusedSector ┆MSG02: #0001,#0002,0, #0002, ; MSG:R2 #FFFF,#FFFF,#0232,0 ; MSG02L=LOC-MSG02 MSG03: #0021,0, 0, #000C, ; LOG UPDATE: 0, #0001,┆
0x0d780…0d800 UnusedSector ┆#2F2C,#1027, ; LOG #3035,#2124,#2534,#0110 ; UPDATE 1 MSG03L=LOC-MSG03 MSG04: #0021,#0003,0, #000D, ; LOG UPDATE: 0, #0002,#2┆
0x0d800…0d880 UnusedSector ┆F2C,#1027, ; LOG #3035,#2124,#2534,#0110,#0021,0; UPDATE 1A MSG04L=LOC-MSG04 MSG05: #0006,0, 0, 0, ; OTHER MF INIT #FFFF,#FFF┆
0x0d880…0d900 UnusedSector ┆F ; MSG05L=LOC-MSG05 ; MSG06: #0011,#0010,0, #002F, ; MSG: #0000,#0073,#2124,#2134, ; DATA #2610,#2F32,#102D,#2534, ; FROM TE ┆
0x0d900…0d980 UnusedSector ┆ #2D32,#2E29,#2C21,#0110, ; RMINAL 1 #1006,#101D,#3329,#3410, ; 6 - IS T #2528,#2532,#2110,#392E, ; HERE ANY #2F22,#3924,#283┆
0x0d980…0da00 UnusedSector ┆4,#3225, ; BODYTHER #1025,#000F ; E ? MSG06L=LOC-MSG06; MSG07: #0009,0, 0, 0, ; THIS MF DOWN #FFFF,#FFFF ; MSG07L=LOC-MSG07 ┆
0x0da00…0da80 UnusedSector ┆ 0,REPEAT 31 ; SPARE TO MORE INPUT ;---------------------------------------------------------------------- ;--------------┆
0x0da80…0db00 UnusedSector ┆-------------------------------------------------------- FILDEC1: RELFIL OR ASCDAT OR ((SIZMEAN-1)/4)<RCLGTS OR 4 OSTRCT <:QCT┆
0x0db00…0db80 UnusedSector ┆R:> FILDEC3: RELFIL OR BINDAT OR (1-1)<RCLGTS OR XQUEL ISTRLH <:QMF1:> TT:=BUFQUE OR BINDAT OR (BUFWDS-1)<RCLGTS OR 1 PQF1: ┆
0x0db80…0dc00 UnusedSector ┆TT 0 <:QUE1:> USE PROG ; TPOS:=1<TPLS OR TCTR<SMXS ;FF T1: ;MSG JUMP TABLE M01 ; M02 ; M03 ; M04 ; M05 ; M06 ; M07┆
0x0dc00…0dc80 UnusedSector ┆ ;- ;----------------------------------------------------------------------- ;PROCEDURE TO SEND PACKET ;REGISTERS CALL EXIT ;R1 ┆
0x0dc80…0dd00 UnusedSector ┆MSGNO ;R2 MSGLGT ;R3 TYPE ;R4 LINK LINK ;R5 QUEUE ;----------------------------------------------------------------------- ;B┆
0x0dd00…0dd80 UnusedSector ┆EGIN LHR040: ;SEND STC R4 X0 ; MOV R1 R1GEM ; MOV R2 R2GEM ; MOV R3 R3GEM ; MOV R5 R5GEM ; MOVC PRI0 R1 ; MOVC SIZMEAN R2┆
0x0dd80…0de00 UnusedSector ┆ ; MOVC WRTYP R3 ; MOVC PCBIP R4 ; MON INITPCB ; JMP& LHRERR ; S/W-ERROR MOV R5GEM R3 ; MOV R3 PQF1+1 ; SAVE ABS POINTER F┆
0x0de00…0de80 UnusedSector ┆OR OLTO MON OLTO,TPOS OR 2,0 ; PRINT LTN,XQUEP MON CONNECTQUE JMP& LHRERR ; S/W-ERROR MOV R3GEM R3 ; MON CONNECTPACK ; JMP┆
0x0de80…0df00 UnusedSector ┆& LHRERR ; S/W-ERROR MOV R2GEM R2 ; SLL R2 1 ; *2 MOV R1GEM R3 ; MON WRITEBLOCK JMP& LHRERR ; S/W-ERROR MON TERMPACK JMP&┆
0x0df00…0df80 UnusedSector ┆ LHRERR ; S/W-ERROR MON OLTO,TPOS OR 4,PQF1 ; PRINT QUE UNS R4 X0 ; JMP X4 ;END ;-------------------------------------------┆
0x0df80…0e000 UnusedSector ┆--------------------------- ;---------------------------------------------------------------------- ;PROCEDURE PRINT QUEUE(QUE) ┆
0x0e000…0e080 UnusedSector ┆;REGISTERS CALL EXIT ;R4 LINK LINK ;R5 QUE ;---------------------------------------------------------------------- ;------------┆
0x0e080…0e100 UnusedSector ┆---------------------------------------------------------- ;BEGIN LHR050: ;PRINT QUE STC R4 X0 ; MOV R5 PQF1+1 ; MON OLTO,┆
0x0e100…0e180 UnusedSector ┆TPOS OR 100,PQF1 ; MOVC RDTYP R3 ; MOVC PCBIP R4 ; MON INITPCB ; JMP& LHRERR ; MOV R5 R3 ; MON CONNECTQUE ; JMP& LHRERR ;┆
0x0e180…0e200 UnusedSector ┆ MON CONNECTPACK ; JMP& LHRERR ; MON TERMPACK ; JMP& LHRERR ; UNS R4 X0 ; JMP X4 ;END ;FF LHR000: ;WAITINZ MON OLTO,┆
0x0e200…0e280 UnusedSector ┆TPOS OR 0,0 ; TEST MOVC STCPTR R0 ; MON WAITEVENT ; JMP S4 LHR000 ;ERROR MOV MSGID. X7 R4 ; SEQ R4 MSGINZ ; IF NOT INZ THEN┆
0x0e280…0e300 UnusedSector ┆ JMP S4 LHR000 ;ERROR MON SENDANSWER ; MOV MSGNO. X7 R3 ; POINTER TO TABLE MON OLTO,TPOS OR 240 ,0 ; MODN CBASE-C ; MOV FP┆
0x0e300…0e380 UnusedSector ┆CDAT R5 ; SUB CBASE-C R5 ; MOV QMF1IN.X5 R3 ; MOV R3 OSTRCT ; MOV QMF1OP. X5 R3 ; MOV R3 ISTRLH ; ;SEND FROM CTR MOV ┆
0x0e380…0e400 UnusedSector ┆R0 R4 ; MOV CTRWAIT R0 ; FETCH DELAY MON WAITDELAY ; MOV R4 R0 ; CTRMSG: MOD CTRJMP ; JMPI T1 ; M01: MOVC MSG01 R1 ; MOVC ┆
0x0e400…0e480 UnusedSector ┆MSG01L R2 ; MOVC TYPDAT R3 ; MOV OSTRCT R5 ; JMP S4 LHR040 ; M02: MOVC MSG02 R1 ; MOVC MSG02L R2 ; MOVC TYPDAT R3 ; MOV OS┆
0x0e480…0e500 UnusedSector ┆TRCT R5 ; JMP S4 LHR040 ; M03: MOVC MSG03 R1 ; MOVC MSG03L R2 ; MOVC TYPDAT R3 ; MOV OSTRCT R5 ; JMP S4 LHR040 ; M04: MOVC ┆
0x0e500…0e580 UnusedSector ┆MSG04 R1 ; MOVC MSG04L R2 ; MOVC TYPDAT R3 ; MOV OSTRCT R5 ; JMP S4 LHR040 ; M05: MOVC MSG05 R1 ; MOVC MSG05L R2 ; MOVC TY┆
0x0e580…0e600 UnusedSector ┆PDAT R3 ; MOV OSTRCT R5 ; JMP S4 LHR040 ; M06: MOVC MSG06 R1 ; MOVC MSG06L R2 ; MOVC TYPDAT R3 ; MOV OSTRCT R5 ; JMP S4 LH┆
0x0e600…0e680 UnusedSector ┆R040 ; M07: MOVC MSG07 R1 ; MOVC MSG07L R2 ; MOVC TYPSTA R3 ; STATUS MSG - THIS MF DOWN MOV OSTRCT R5 ; JMP S4 LHR040 ; LHR┆
0x0e680…0e700 UnusedSector ┆015: ;TEST CTR INPUT MOVC TYPCHA R3 ; MOV ISTRLH R5 ; MON PROBQUE ; JMP S4 LHR000 ;ERROR SEQP R3 0 ; IF ANY DATA THEN JMP ┆
0x0e700…0e780 UnusedSector ┆S4 LHR050 ; PRINT Q JMP LHR015 ; EMPTY QUE JMP LHR015 ; EMPTY QUE LHR080: ;WRONG INZ ANSWER MON OLTO,TPOS OR 20,0 ; JMP LHR0┆
0x0e780…0e800 UnusedSector ┆99 ; GOTO STOP LHR081: ;WRONGINZ I/D MON OLTO,TPOS OR 21,0 ; JMP LHR099 ; GOTO STOP LHRERR: ;PCB-ERROR MON OLTO,TPOS OR 25,0 ┆
0x0e800…0e880 UnusedSector ┆; LHR099: ;STOP JMP LHR099 ; GOTO STOP USE BASE XNAME0=<:CM:> XNAME1=<:1:> XBUFS=2 XREFS=2 XPRPC=LHR000 NOLIST ; ; CR80 SYSTEM ┆
0x0e880…0e900 UnusedSector ┆ONE ; MONITOR ; MASTER: XPD - PROCESS DESCRIPTION (PART 2) ; SHORTENED VERSION, ONLY FOR USE IN CONNECTION WITH PROGRAMS ; TO B┆
0x0e900…0e980 UnusedSector ┆E INCLUDED IN SYSTEM (XPD= PROGLENGTH, DRIVERLENGTH, OR ; CATALOGLENGTH). ; ; FP/780621 ; MESSAGE <:CALL: S8MXD2, 780621:> IF ┆
0x0e980…0ea00 UnusedSector ┆XPD NE PROCLH AN XPD NE DRIVEH AN XPD NE CATALH THEN MESSAGE <:*** WRONG SYSTEM FILE USAGE ***:> FI USE BASE XLOC= LOC-XLOC-C ┆
0x0ea00…0ea80 UnusedSector ┆XSTATE= 0 XKIND= 0 XNAME0= 0 XNAME1= 0 XNAME2= 0 XIDENT= 0 XCBASE= 0 XCBASEMOD= 0 XPRPC= 0 XTIMER= 100 XPSW= 0 XOLDPR┆
0x0ea80…0eb00 UnusedSector ┆OC= 0 XLOCACTION= LOCACT XLOCRETURN= 0 XCAUSE= 0 XDEVPR= 0 XPRESET= 100 XERROR= 0 XWARNING= 0 XTERMINATE= 0 XRESERVER= ┆
0x0eb00…0eb80 UnusedSector ┆0 XDEVICE= 0 XINTERRUPT= 0 IF XREFS EQ 0 THEN XREFSX=0 ELSE XREFSX: IF XREFS GT 13 THEN XREFS=XREFS-13 0,0,LOC+REFLENGTH┆
0x0eb80…0ec00 UnusedSector ┆-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+RE┆
0x0ec00…0ec80 UnusedSector ┆FLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0┆
0x0ec80…0ed00 UnusedSector ┆,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH┆
0x0ed00…0ed80 UnusedSector ┆-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT RE┆
0x0ed80…0ee00 UnusedSector ┆FLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 FI XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,L┆
0x0ee00…0ee80 UnusedSector ┆OC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 ┆
0x0ee80…0ef00 UnusedSector ┆REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 ┆
0x0ef00…0ef80 UnusedSector ┆XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XR┆
0x0ef80…0f000 UnusedSector ┆EFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REP┆
0x0f000…0f080 UnusedSector ┆EAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELS┆
0x0f080…0f100 UnusedSector ┆E 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH┆
0x0f100…0f180 UnusedSector ┆-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLE┆
0x0f180…0f200 UnusedSector ┆NGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-┆
0x0f200…0f280 UnusedSector ┆1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THE┆
0x0f280…0f300 UnusedSector ┆N 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGT┆
0x0f300…0f380 UnusedSector ┆H-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 FI FI FI FI FI FI FI FI FI FI FI FI FI FI IF XBUFS EQ 0 THEN XBUFSX=0 ┆
0x0f380…0f400 UnusedSector ┆ ELSE XBUFSX: IF XBUFS GT 13 THEN XBUFS=XBUFS-13 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT┆
0x0f400…0f480 UnusedSector ┆ BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0┆
0x0f480…0f500 UnusedSector ┆ REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH┆
0x0f500…0f580 UnusedSector ┆-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BU┆
0x0f580…0f600 UnusedSector ┆FLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 FI ┆
0x0f600…0f680 UnusedSector ┆ XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF X┆
0x0f680…0f700 UnusedSector ┆BUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 RE┆
0x0f700…0f780 UnusedSector ┆PEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 EL┆
0x0f780…0f800 UnusedSector ┆SE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGT┆
0x0f800…0f880 UnusedSector ┆H-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFL┆
0x0f880…0f900 UnusedSector ┆ENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS┆
0x0f900…0f980 UnusedSector ┆-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 TH┆
0x0f980…0fa00 UnusedSector ┆EN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENG┆
0x0fa00…0fa80 UnusedSector ┆TH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+┆
0x0fa80…0fb00 UnusedSector ┆BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REP┆
0x0fb00…0fb80 UnusedSector ┆EAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 FI ┆
0x0fb80…0fc00 UnusedSector ┆FI FI FI FI FI FI FI FI FI FI FI FI FI XSIZE= LOC-ITEM XPROGRAM= LOC USE PROG IF LOC+XSIZE NE WORDS THEN MESSAGE <:ERROR:┆
0x0fc00…0fc80 UnusedSector ┆ LOC+XSIZE<>WORDS:> FI USE BASE LIST END 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 FI ┆
0x0fc80…0fd00 UnusedSector 0x00[128]
0x0fd00…0fd80 UnusedSector ┆ DATA TO TERMINAL 1DATA TO TERMINAL 10 OLD ┆
0x0fd80…0fe00 UnusedSector ┆" 0 1 @ 0 1 @ 1 DATA TO TERMINAL 2 0 DATA T┆
0x0fe00…0fe80 UnusedSector ┆O TERMINAL 9 S QCTR @ FIL3 QUE1 ┆
0x0fe80…0ff00 UnusedSector ┆ @q r s u I JdK L k V s ░ k j k ░ H @V u ░d K L [ ┆
0x0ff00…0ff80 UnusedSector ┆ H ░ H ] ~ ] ░ m Ts Rs Ss N L J r @ rs ░ V H,V L" V t3V I2 + m ]7| X V u ░P ┆
0x0ff80…10000 UnusedSector ┆K L ]Bk ]E ]Gk ]J+ m ]N~ X h HV I7J K m ] V I;J K m ] V I?J K m ] V ICJ K m ] V IGJ K m ] V IKJ K m ] V IOJ K m ] ┆
0x10000…10080 UnusedSector ┆V ISJ K m ] V IWJ K m ] V I[J K m ] V I_J K m ] V IlJ K m ] h HV I J K m ] V I J K m ] + m ] > ] X X ░ ░ ┆
0x10080…10100 UnusedSector ┆ ░ X k ]E ]Gk ]J+ m ]N~ X h HV I7J K m ] V I;J K m ] V I?J K m ] V ICJ K m ] V IGJ K m ] V IKJ K m ] V IOJ K m ] ┆
0x10100…10180 UnusedSector 0x1a[128]
[…0x5…]
0x10400…10480 UnusedSector ┆. Z046D3 T48E4 P 46D0L 0000 0000 0000 0000 017F 46D8L 0000 0000 4D43 0031 0000 0000 0000 0000 46E0L 0000 0000 0000 0000 0000 000┆
0x10480…10500 UnusedSector ┆0 0000 0000 46E8L 0000 0000 0172 003C 0064 0000 0000 826F 46F0L 0000 0000 0000 0064 0000 0000 0000 0000 46F8L 0000 0000 0000 000┆
0x10500…10580 UnusedSector ┆0 0000 0000 0000 0000 4700L 0000 FFFF 0000 0000 0000 0000 0000 0000 4708L 0000 0158 0160 0000 0000 0000 0000 0000 4710L 0000 000┆
0x10580…10600 UnusedSector ┆0 0000 0000 0000 0000 0000 0000 4718L 0000 0000 0000 0000 0000 0000 0000 0000 4720L 0000 0000 0000 0000 0000 0000 0000 0000 4728┆
0x10600…10680 UnusedSector ┆L 0000 0000 0000 0000 0000 0000 0000 0000 4730L 0000 0000 0000 0000 0000 0000 0000 0000 4738L 0000 0000 0000 0000 0000 0000 0000┆
0x10680…10700 UnusedSector ┆ 0000 4740L 0000 0000 0000 0000 0000 0000 0000 0000 4748L 0000 0000 0000 0000 0000 0000 0000 0000 4750L 0000 0000 0000 0000 0000┆
0x10700…10780 UnusedSector ┆ 0000 0000 0000 4758L 0000 0000 0000 0922 0000 0000 0000 0000 4760L 0000 0000 0005 0000 0000 0000 0000 0000 4768L 0000 0000 0000┆
0x10780…10800 UnusedSector ┆ 0000 0000 0000 0000 0000 4770L 0000 0000 0000 0000 0000 0000 0000 0000 4778L 0000 0000 0000 0000 0000 0000 0000 0000 4780L 0000┆
0x10800…10880 UnusedSector ┆ 0000 0000 0000 0000 0000 0000 0000 4788L 0000 0000 0000 0000 0000 0000 0000 0000 4790L 0000 0000 0000 0000 0000 0000 0000 0000 ┆
0x10880…10900 UnusedSector ┆4798L 0000 0000 0000 0000 0000 0000 0000 0000 47A0L 0000 0000 0000 0000 0000 0000 0000 0000 47A8L 0000 0000 0000 0000 0000 0000 ┆
0x10900…10980 UnusedSector ┆0000 0000 47B0L 0000 0000 0000 0000 0000 0000 0000 0000 47B8L 0001 0002 0000 0002 FFFF FFFF 0132 0000 47C0L 0001 0002 0000 0002 ┆
0x10980…10a00 UnusedSector ┆FFFF FFFF 0232 0000 47C8L 0021 0000 0000 000C 0000 0001 2F2C 1027 47D0L 3035 2124 2534 0110 0021 0003 0000 000D 47D8L 0000 0002 ┆
0x10a00…10a80 UnusedSector ┆2F2C 1027 3035 2124 2534 0110 47E0L 0021 0000 0006 0000 0000 0000 FFFF FFFF 47E8L 0011 0010 0000 002F 0000 0073 2124 2134 47F0L ┆
0x10a80…10b00 UnusedSector ┆2610 2F32 102D 2534 2D32 2E29 2C21 0110 47F8L 1006 101D 3329 3410 2528 2532 2110 392E 4800L 2F22 3924 2834 3225 1025 000F 0009 0┆
0x10b00…10b80 UnusedSector ┆000 4808L 0000 0000 FFFF FFFF 0000 0000 0000 0000 4810L 0000 0000 0000 0000 0000 0000 0000 0000 4818L 0000 0000 0000 0000 0000 0┆
0x10b80…10c00 UnusedSector ┆000 0000 0000 4820L 0000 0000 0000 0000 0000 0000 0000 0000 4828L 0000 0000 0000 0000 5304 0085 4351 5254 4830L 4003 0083 4D51 3┆
0x10c00…10c80 UnusedSector ┆146 8001 0000 5551 3145 4838L 0000 0000 015C 0000 0000 0000 0000 0000 4840L 0000 0000 0169 0000 0000 0000 0000 0000 4848L 0000 0┆
0x10c80…10d00 UnusedSector ┆000 0000 0000 0000 0000 0000 0000 4850L 0000 0000 0058 005D 0062 0067 006C 0072 4858L 0078 40B9 8671 8772 8873 8A75 0049 644A 48┆
0x10d00…10d80 UnusedSector ┆60L 014B 914C F5A6 7CD8 8A6B 0156 5573 FFA6 4868L 1102 0000 F4A6 74D8 886B F3A6 71D8 876A 4870L A1A0 866B E5A6 6CD8 F2A6 6AD8 FF┆
0x10d80…10e00 UnusedSector ┆A6 1104 4878L 0154 48B9 00BF 40B9 0156 5575 FFA6 1164 4880L 0154 004B 914C F5A6 5BD8 5BBB F4A6 58D8 4888L F3A6 56D8 F2A6 54D8 48┆
0x10e00…10e80 UnusedSector ┆B9 00BF FFA6 1100 4890L 0000 8B48 0FA6 065D C41C C17E 095D 0CA6 4898L C21B FFA6 11F0 0000 0814 C86D 0814 00CD 48A0L 681B 8573 69┆
0x10e80…10f00 UnusedSector ┆1B 8373 0CBB 8268 19A6 48BB 48A8L D794 00FC D849 084A 014B 856D 565D E049 48B0L 084A 014B 856D 5B5D E849 0C4A 014B 856D 48B8L 60┆
0x10f00…10f80 UnusedSector ┆5D F449 0E4A 014B 856D 655D 0156 0249 48C0L 064A 014B 856D 6B5D 0156 0849 1E4A 014B 48C8L 856D 715D 0156 2649 064A 024B 856D 775┆
0x10f80…11000 UnusedSector ┆D 48D0L 022B 836D F6A6 465D B03E 5B5D 0758 0858 48D8L FFA6 1114 0000 07D8 FFA6 1115 0000 03D8 48E0L FFA6 1119 0000 0158 SA 60┆
0x11000…11080 UnusedSector ┆0 0158 SB 605D F449 0D4A 014B 856D 4540L 655D 0156 0149 064A 014B 856D 6B5D 0156 4548L 0749 00BE 014B 856D 715D 0156 2549 064┆
0x11080…11100 UnusedSector ┆; JMP LHR099 ; GOTO STOP LHRERR: ;PCB-ERROR MON OLTO,TPOS OR 25,0 ; LHR099: ;STOP JMP LHR099 ; GOTO STOP USE BASE XNAME0=<:CT┆
0x11100…11180 UnusedSector ┆:> XNAME1=<:R:> XBUFS=2 XREFS=2 XPRPC=LHR000 NOLIST ;$S8MXD2 LIST END OTO STOP LHR081: ;WRONGINZ I/D MON OLTO,TPOS OR 21,0 ┆
0x11180…11200 UnusedSector ┆C+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 R┆
0x11200…11280 UnusedSector ┆EPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 X┆
0x11280…11300 UnusedSector ┆BUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBU┆
0x11300…11380 UnusedSector ┆ CM1 r < d o d ░░ X ` ┆
0x11380…11400 UnusedSector 0x00[128]
0x11400…11480 UnusedSector ┆ " ┆
0x11480…11500 UnusedSector ┆ ░░░░2 ░░░░2 ! ,/' 50$!4%┆
0x11500…11580 UnusedSector ┆ ! ,/' 50$!4% ! ░░░░ / s $!4! &2/- 4%2-).!, )3 4(%2% !.9"/$94(%2% ░░░░ ┆
0x11580…11600 UnusedSector ┆ S QCTR @ QMF1 QUE1 \ i X ┆
0x11600…11680 UnusedSector ┆] b g l r x @q r s u I JdK L |k V sU ░ tk qj k l j ░ T H @V uU ░d T K L [ [ X V T H ░ H ┆
0x11680…11700 UnusedSector ┆] ~ ] ░ m hs is h H I J K m ]VI J K m ][I J K m ]`I J K m ]eV I J K m ]kV I J K m ]qV I&J K m ]w+ m ┆
0x11700…11780 UnusedSector ┆]F> ][X X ░ ░ ░ X k V sU ░ tk qj k l j ░ T H @V uU ░d T K L [ [ X V T H ░ H ┆
0x11780…11800 UnusedSector ┆R2 1 ; *2 MOV R1GEM R3 ; MON WRITEBLOCK JMP& LHRERR ; S/W-ERROR MON TERMPACK JMP& LHRERR ; S/W-ERROR MON OLTO,TPOS OR 4,PQ┆
0x11800…11880 UnusedSector ┆F1 ; PRINT QUE UNS R4 X0 ; JMP X4 ;END ;---------------------------------------------------------------------- ;-------------┆
0x11880…11900 UnusedSector ┆--------------------------------------------------------- ;PROCEDURE PRINT QUEUE(QUE) ;REGISTERS CALL EXIT ;R4 LINK LINK ;R5 QUE┆
0x11900…11980 UnusedSector ┆ ;---------------------------------------------------------------------- ;------------------------------------------------------┆
0x11980…11a00 UnusedSector ┆---------------- ;BEGIN LHR050: ;PRINT QUE STC R4 X0 ; MOV R5 PQF1+1 ; MON OLTO,TPOS OR 100,PQF1 ; MOVC RDTYP R3 ; MOVC ┆
0x11a00…11a80 UnusedSector ┆PCBIP R4 ; MON INITPCB ; JMP& LHRERR ; MOV R5 R3 ; MON CONNECTQUE ; JMP& LHRERR ; MON CONNECTPACK ; JMP& LHRERR ; MON TE┆
0x11a80…11b00 UnusedSector ┆RMPACK ; JMP& LHRERR ; UNS R4 X0 ; JMP X4 ;END ;FF LHR000: ;WAITINZ MON OLTO,TPOS OR 0,0 ; TEST MOVC STCPTR R0 ; MON ┆
0x11b00…11b80 UnusedSector ┆WAITEVENT ; JMP S4 LHR000 ;ERROR MOV MSGID. X7 R4 ; SEQ R4 MSGINZ ; IF NOT INZ THEN JMP S4 LHR000 ;ERROR MON SENDANSWER ; ┆
0x11b80…11c00 UnusedSector ┆MOV MSGNO. X7 R3 ; POINTER TO TABLE MON OLTO,TPOS OR 240 ,0 ; MODN CBASE-C ; MOV FPCDAT R5 ; SUB CBASE-C R5 ; MOV QOCIN. X5┆
0x11c00…11c80 UnusedSector ┆ R3 ; MOV R3 CMIRD ; SAVE CMI INPUT QUEUE MOV QTMCOP.X5 R3 ; MOV R3 OSTRCT ; MOV QTMIN. X5 R3 ; MOV R3 ISTRLH ; MOVC FPTER┆
0x11c80…11d00 UnusedSector ┆M R6 ; MOVC OSTR00 R4 ; ADDC 1 R4 ; MOVC 0 R2 ; LHR005: ;TERMQUES MOD R2 MOV QTMLOP.X5 R3 ; MOV R3 X4 ; ADDC 1 R4 ; ADDC┆
0x11d00…11d80 UnusedSector ┆ 1 R2 ; SOB R6 LHR005 ; MOV QLHDIP.X5 R3 ; LHD INPUT QUEUE MOV R3 LHDIPQ ; MON OLTO,TPOS OR 1,FILDEC3;T PRINT QUE ADD MOVC┆
0x11d80…11e00 UnusedSector ┆ CTROLD R0 ;SEND START TO OLD MOVC TSTDIR R4 ; ADD CBASE-C R4 ; MOV R4 CTRMSG+1 ; MOVC CTRMSG R1 ; MON SENDMESSAGE ; MON W┆
0x11e00…11e80 UnusedSector ┆AITANSWER ; LHR007: ;TEST CMI INPUT QUEUE MOVC TYPCHA R3 ; MOV CMIRD R5 ; MON PROBQUE ; JMP S4 LHR000 ;ERROR IEQ R3 0 ; J┆
0x11e80…11f00 UnusedSector ┆MP LHR007 ; WAIT UNTIL INZ DELIVERS DATA LHR008: ;TRANSFER CMI DATA TO LHR MOV R5 PQF1+1 ; MON OLTO,TPOS OR 80,PQF1 ;PRINT QU┆
0x11f00…11f80 UnusedSector ┆EUE MOVC RDTYP R3 ; MOVC PCBIP R4 ; MON INITPCB ; JMP S4 LHR000 ; MOV CMIRD R3 ; MON CONNECTQUE ; JMP S4 LHR000 ; MON CO┆
0x11f80…12000 UnusedSector ┆00000002 0 0000 LIST ; 00000003 0 0000 BEGIN MODULE LOCCM1 ; 00000004 0 0000 ;------------------------------------------------┆
0x12000…12080 UnusedSector ┆---------------------- ; 00000005 0 0000 ;MODULE IDENTIFICATION: ICL-ISB/CM1SIM/122 ; 00000006 0 0000 ;DATED: 790731/PSC ; 00┆
0x12080…12100 UnusedSector ┆000007 0 0000 ;VERSION: 01 ; 00000008 0 0000 ;---------------------------------------------------------------------- ; 0000000┆
0x12100…12180 UnusedSector ┆9 0 0000 ; 00000010 0 0000 ; 00000011 0 0000 ;---------------------------------------------------------------------- ; 000000┆
0x12180…12200 UnusedSector ┆12 0 0000 ;THE SIMULATOR FEEDS MESSAGES TO THE MF1 INPUT Q. ; 00000013 0 0000 ;A JUMP TABLE IS USED SO THE NO. OF MESSAGES TO B┆
0x12200…12280 UnusedSector ┆E SENT ; 00000014 0 0000 ;CAN BE ALTERED BY PATCHING THE VALUE OF CTRJMP. ; 00000015 0 0000 ;MESSAGES IN THE Q FROM MF1 ARE PR┆
0x12280…12300 UnusedSector ┆INTED. ; 00000016 0 0000 USE BASE ; 00000017 0 0000 NOLIST ; 00000021 0 0000 MESSAGE: CALL S8MXGL 00000037 0 0000 MESSAGE: CA┆
0x12300…12380 UnusedSector ┆LL S8MNAX 00000544 0 0000 MESSAGE: CALL S8MXD1 00000557 0 0000 MESSAGE: CALL: S8MXD1, 780523 00000625 0 0048 MESSAGE: CALL OLTDA┆
0x12380…12400 UnusedSector ┆T 00000629 0 0048 MESSAGE: OLTO V790615 00000658 0 0048 MESSAGE: CALL ISBDAT 00001142 0 0048 MESSAGE: CALL ICLERR 00001169 0 008┆
0x12400…12480 UnusedSector ┆2 LIST ; 00001170 0 0082 CTRWAIT: 5 ; DELAY BEFORE CM1 IS STARTED ; 00001171 0 0083 ISTRLH: 0 ; INPUT QUE-FROM MF1 ; 00001172┆
0x12480…12500 UnusedSector ┆ 0 0084 CMIRD: 0 ; INPUT QUEUE FROM CMI ; ; 0 0085 OSTRCT: 0 ; OUTPUT QUE TO MF1 ; 00001173 0 0086 XQUEL=LOC-ISTRLH ; 000011┆
0x12500…12580 UnusedSector ┆74 0 0086 ; 00001175 0 0086 ; 00001176 0 0086 R1GEM: 0 ; ; 00001177 0 0087 R2GEM: 0 ; ; 00001178 0 0088 R3GEM: 0 ; ; 000011┆
0x12580…12600 UnusedSector ┆79 0 0089 R4GEM: 0 ; ; 00001180 0 008A R5GEM: 0 ; ; 00001181 0 008B ; 00001182 0 008B STCPTR: 0,REPEAT 5 ; ; 00001183 0 0091┆
0x12600…12680 UnusedSector ┆ ; 00001184 0 0091 ; 00001185 0 0091 PCBIP: 0,REPEAT (PCBLGT-1) ; INPUT QUEUE PCB ; 00001186 0 00B4 PCBOP: 0,REPEAT (PCBLGT-1┆
0x12680…12700 UnusedSector ┆) ; PCB FOR OUTPUT ; 00001187 0 00D7 CTRJMP: 0 ; JUMP TABLE ENTRY ; 00001188 0 00D8 MSG01: #0001,#0002,0, #0002, ; MSG:R1 ; 0┆
0x12700…12780 UnusedSector ┆0001189 0 00DC #FFFF,#FFFF,#0132,0 ; ; 00001190 0 00E0 MSG01L=LOC-MSG01 ; 00001191 0 00E0 ; ; 00001192 0 00E0 ; 00001193 0 0┆
0x12780…12800 UnusedSector ┆0E0 MSG02: #0001,#0002,0, #0002, ; MSG:R2 ; 00001194 0 00E4 #FFFF,#FFFF,#0232,0 ; ; 00001195 0 00E8 MSG02L=LOC-MSG02 ; 000011┆
0x12800…12880 UnusedSector ┆96 0 00E8 MSG03: #0021,0, 0, #000C, ; LOG UPDATE: ; 00001197 0 00EC 0, #0001,#2F2C,#1027, ; LOG ; 00001198 0 00F0 #3035,#2124,┆
0x12880…12900 UnusedSector ┆#2534,#0110 ; UPDATE 1 ; 00001199 0 00F4 MSG03L=LOC-MSG03 ; 00001200 0 00F4 MSG04: #0021,#0003,0, #000D, ; LOG UPDATE: ; 0000┆
0x12900…12980 UnusedSector ┆1201 0 00F8 0, #0002,#2F2C,#1027, ; LOG ; 00001202 0 00FC #3035,#2124,#2534,#0110,#0021,0; UPDATE 1A ; 00001203 0 0102 MSG04L=┆
0x12980…12a00 UnusedSector ┆LOC-MSG04 ; 00001204 0 0102 MSG05: #0006,0, 0, 0, ; OTHER MF INIT ; 00001205 0 0106 #FFFF,#FFFF ; ; 00001206 0 0108 MSG05L=LO┆
0x12a00…12a80 UnusedSector ┆C-MSG05 ; ; 00001207 0 0108 MSG06: #0011,#0010,0, #002F, ; MSG: ; 00001208 0 010C #0000,#0073,#2124,#2134, ; DATA ; 00001209 ┆
0x12a80…12b00 UnusedSector ┆0 0110 #2610,#2F32,#102D,#2534, ; FROM TE ; 00001210 0 0114 #2D32,#2E29,#2C21,#0110, ; RMINAL 1 ; 00001211 0 0118 #1006,#101D,┆
0x12b00…12b80 UnusedSector ┆#3329,#3410, ; 6 - IS T ; 00001212 0 011C #2528,#2532,#2110,#392E, ; HERE ANY ; 00001213 0 0120 #2F22,#3924,#2834,#3225, ; BOD┆
0x12b80…12c00 UnusedSector ┆YTHER ; 00001214 0 0124 #1025,#000F ; E ? ; 00001215 0 0126 MSG06L=LOC-MSG06; ; 00001216 0 0126 MSG07: #0009,0, 0, 0, ; THIS ┆
0x12c00…12c80 UnusedSector ┆MF DOWN ; 00001217 0 012A #FFFF,#FFFF ; ; 00001218 0 012C MSG07L=LOC-MSG07 ; 00001219 0 012C ; 00001220 0 012C ; 00001221 0┆
0x12c80…12d00 UnusedSector ┆ 012C ; 00001222 0 012C 0,REPEAT 31 ; SPARE TO MORE INPUT ; 00001223 0 014C ; 00001224 0 014C ; 00001225 0 014C ; 00001226 ┆
0x12d00…12d80 UnusedSector ┆0 014C ; 00001227 0 014C ;---------------------------------------------------------------------- ; 00001228 0 014C ; 00001229┆
0x12d80…12e00 UnusedSector ┆ 0 014C ;---------------------------------------------------------------------- ; 00001230 0 014C FILDEC1: RELFIL OR ASCDAT OR ┆
0x12e00…12e80 UnusedSector ┆((SIZMEAN-1)/4)<RCLGTS OR 4 ; 00001231 0 014D OSTRCT ; 00001232 0 014E <:QCTR:> ; 00001233 0 0150 ; 00001234 0 0150 FILDEC3:┆
0x12e80…12f00 UnusedSector ┆ RELFIL OR BINDAT OR (1-1)<RCLGTS OR XQUEL ; 00001235 0 0151 ISTRLH ; 00001236 0 0152 <:QMF1:> ; 00001237 0 0154 TT:=BUFQUE O┆
0x12f00…12f80 UnusedSector ┆R BINDAT OR (BUFWDS-1)<RCLGTS OR 1 ; 00001238 0 0154 ; 00001239 0 0154 PQF1: TT ; 00001240 0 0155 0 ; 00001241 0 0156 <:QUE1┆
0x12f80…13000 UnusedSector ┆:> ; 00001242 0 0158 ; 00001243 0 0158 ; 00001244 0 0158 USE PROG ; ; 00001245 1 0000 ; 00001246 1 0000 TPOS:=1<TPLS OR TCT┆
0x13000…13080 UnusedSector ┆R<SMXS ; 00001247 1 0000 ; 00001248 1 0000 ;FF ; 00001249 1 0000 T1: ;MSG JUMP TABLE ; 00001250 1 0000 M01 ; ; 00001251 1 0┆
0x13080…13100 UnusedSector ┆001 M02 ; ; 00001252 1 0002 M03 ; ; 00001253 1 0003 M04 ; ; 00001254 1 0004 M05 ; ; 00001255 1 0005 M06 ; ; 00001256 1 0006┆
0x13100…13180 UnusedSector ┆ M07 ; 00001257 1 0007 ;- ; 00001258 1 0007 ;-----------------------------------------------------------------------; 0000125┆
0x13180…13200 UnusedSector ┆9 1 0007 ;PROCEDURE TO SEND PACKET ; 00001260 1 0007 ;REGISTERS CALL EXIT ; 00001261 1 0007 ;R1 MSGNO ; 00001262 1 0007 ;R2 M┆
0x13200…13280 UnusedSector ┆SGLGT ; 00001263 1 0007 ;R3 TYPE ; 00001264 1 0007 ;R4 LINK LINK ; 00001265 1 0007 ;R5 QUEUE ; 00001266 1 0007 ;------------┆
0x13280…13300 UnusedSector ┆-----------------------------------------------------------; 00001267 1 0007 ; 00001268 1 0007 ; 00001269 1 0007 ;BEGIN ; 00┆
0x13300…13380 UnusedSector ┆001270 1 0007 LHR040: ;SEND ; 00001271 1 0007 STC R4 X0 ; ; 00001272 1 0008 MOV R1 R1GEM ; ; 00001273 1 0009 MOV R2 R2GEM ; ;┆
0x13380…13400 UnusedSector ┆ 00001274 1 000A MOV R3 R3GEM ; ; 00001275 1 000B MOV R5 R5GEM ; ; 00001276 1 000C MOVC PRI0 R1 ; ; 00001277 1 000D MOVC SIZ┆
0x13400…13480 UnusedSector ┆MEAN R2 ; ; 00001278 1 000E MOVC WRTYP R3 ; ; 00001279 1 000F MOVC PCBIP R4 ; ; 00001280 1 0010 MON INITPCB ; ; 00001281 1 0┆
0x13480…13500 UnusedSector ┆011 JMP& LHRERR ; S/W-ERROR ; 00001282 1 0012 MOV R5GEM R3 ; ; 00001283 1 0013 MOV R3 PQF1+1 ; SAVE ABS POINTER FOR OLTO ; 00┆
0x13500…13580 UnusedSector ┆001284 1 0015 MON OLTO,TPOS OR 2,0 ; PRINT LTN,XQUEP ; 00001285 1 0018 MON CONNECTQUE ; 00001286 1 0019 JMP& LHRERR ; S/W-ERRO┆
0x13580…13600 UnusedSector ┆R ; 00001287 1 001A MOV R3GEM R3 ; ; 00001288 1 001B MON CONNECTPACK ; ; 00001289 1 001C JMP& LHRERR ; S/W-ERROR ; 00001290 ┆
0x13600…13680 UnusedSector ┆1 001D MOV R2GEM R2 ; ; 00001291 1 001E SLL R2 1 ; *2 ; 00001292 1 001F MOV R1GEM R3 ; ; 00001293 1 0020 MON WRITEBLOCK ; 00┆
0x13680…13700 UnusedSector ┆001294 1 0021 JMP& LHRERR ; S/W-ERROR ; 00001295 1 0022 MON TERMPACK ; 00001296 1 0023 JMP& LHRERR ; S/W-ERROR ; 00001297 1 0┆
0x13700…13780 UnusedSector ┆024 MON OLTO,TPOS OR 4,PQF1 ; PRINT QUE ; 00001298 1 0027 UNS R4 X0 ; ; 00001299 1 0028 JMP X4 ;END ; 00001300 1 0029 ; 0000┆
0x13780…13800 UnusedSector ┆1301 1 0029 ;---------------------------------------------------------------------- ; 00001302 1 0029 ;------------------------┆
0x13800…13880 UnusedSector ┆---------------------------------------------- ; 00001303 1 0029 ;PROCEDURE PRINT QUEUE(QUE) ; 00001304 1 0029 ;REGISTERS CALL┆
0x13880…13900 UnusedSector ┆ EXIT ; 00001305 1 0029 ;R4 LINK LINK ; 00001306 1 0029 ;R5 QUE ; 00001307 1 0029 ;------------------------------------------┆
0x13900…13980 UnusedSector ┆---------------------------- ; 00001308 1 0029 ;---------------------------------------------------------------------- ; 00001┆
0x13980…13a00 UnusedSector ┆309 1 0029 ; 00001310 1 0029 ; 00001311 1 0029 ;BEGIN ; 00001312 1 0029 LHR050: ;PRINT QUE ; 00001313 1 0029 STC R4 X0 ; ; ┆
0x13a00…13a80 UnusedSector ┆00001314 1 002A MOV R5 PQF1+1 ; ; 00001315 1 002C MON OLTO,TPOS OR 100,PQF1 ; ; 00001316 1 002F MOVC RDTYP R3 ; ; 00001317 1 ┆
0x13a80…13b00 UnusedSector ┆0030 MOVC PCBIP R4 ; ; 00001318 1 0031 MON INITPCB ; ; 00001319 1 0032 JMP& LHRERR ; ; 00001320 1 0033 MOV R5 R3 ; ; 0000132┆
0x13b00…13b80 UnusedSector ┆1 1 0034 MON CONNECTQUE ; ; 00001322 1 0035 JMP& LHRERR ; ; 00001323 1 0036 MON CONNECTPACK ; ; 00001324 1 0037 JMP& LHRERR ;┆
0x13b80…13c00 UnusedSector ┆ ; 00001325 1 0038 MON TERMPACK ; ; 00001326 1 0039 JMP& LHRERR ; ; 00001327 1 003A UNS R4 X0 ; ; 00001328 1 003B JMP X4 ;EN┆
0x13c00…13c80 UnusedSector ┆D ; 00001329 1 003C ; 00001330 1 003C ;FF ; 00001331 1 003C ; 00001332 1 003C ; 00001333 1 003C ; 00001334 1 003C LHR000:┆
0x13c80…13d00 UnusedSector ┆ ;WAITINZ ; 00001335 1 003C MON OLTO,TPOS OR 0,0 ; TEST ; 00001336 1 003F MOVC STCPTR R0 ; ; 00001337 1 0040 MON WAITEVENT ; ┆
0x13d00…13d80 UnusedSector ┆; 00001338 1 0041 JMP S4 LHR000 ;ERROR ; 00001339 1 0042 MOV MSGID. X7 R4 ; ; 00001340 1 0043 SEQ R4 MSGINZ ; IF NOT INZ THEN┆
0x13d80…13e00 UnusedSector ┆ ; 00001341 1 0044 JMP S4 LHR000 ;ERROR ; 00001342 1 0045 MON SENDANSWER ; ; 00001343 1 0046 MOV MSGNO. X7 R3 ; POINTER TO TA┆
0x13e00…13e80 UnusedSector ┆BLE ; 00001344 1 0047 MON OLTO,TPOS OR 240 ,0 ; ; 00001345 1 004A MODN CBASE-C ; ; 00001346 1 004B MOV FPCDAT R5 ; ; 0000134┆
0x13e80…13f00 UnusedSector ┆7 1 004C SUB CBASE-C R5 ; ; 00001348 1 004E ; 00001349 1 004E MOV QMF1IN.X5 R3 ; ; 00001350 1 004F MOV R3 OSTRCT ; ; 0000135┆
0x13f00…13f80 UnusedSector ┆1 1 0050 MOV QMF1OP. X5 R3 ; ; 00001352 1 0051 MOV R3 ISTRLH ; ; 00001353 1 0052 ; 00001354 1 0052 ; 00001355 1 0052 ; 0000┆
0x13f80…14000 UnusedSector ┆1356 1 0052 ;SEND FROM CTR ; 00001357 1 0052 MOV R0 R4 ; ; 00001358 1 0053 MOV CTRWAIT R0 ; FETCH DELAY ; 00001359 1 0054 MON┆
0x14000…14080 UnusedSector ┆ WAITDELAY ; ; 00001360 1 0055 MOV R4 R0 ; ; 00001361 1 0056 CTRMSG: MOD CTRJMP ; ; 00001362 1 0057 JMPI T1 ; ; 00001363 1 0┆
0x14080…14100 UnusedSector ┆058 ; 00001364 1 0058 M01: MOVC MSG01 R1 ; ; 00001365 1 0059 MOVC MSG01L R2 ; ; 00001366 1 005A MOVC TYPDAT R3 ; ; 00001367 ┆
0x14100…14180 UnusedSector ┆1 005B MOV OSTRCT R5 ; ; 00001368 1 005C JMP S4 LHR040 ; ; 00001369 1 005D M02: MOVC MSG02 R1 ; ; 00001370 1 005E MOVC MSG02L┆
0x14180…14200 UnusedSector ┆ R2 ; ; 00001371 1 005F MOVC TYPDAT R3 ; ; 00001372 1 0060 MOV OSTRCT R5 ; ; 00001373 1 0061 JMP S4 LHR040 ; ; 00001374 1 00┆
0x14200…14280 UnusedSector ┆62 M03: MOVC MSG03 R1 ; ; 00001375 1 0063 MOVC MSG03L R2 ; ; 00001376 1 0064 MOVC TYPDAT R3 ; ; 00001377 1 0065 MOV OSTRCT R5┆
0x14280…14300 UnusedSector ┆ ; ; 00001378 1 0066 JMP S4 LHR040 ; ; 00001379 1 0067 M04: MOVC MSG04 R1 ; ; 00001380 1 0068 MOVC MSG04L R2 ; ; 00001381 1 ┆
0x14300…14380 UnusedSector ┆0069 MOVC TYPDAT R3 ; ; 00001382 1 006A MOV OSTRCT R5 ; ; 00001383 1 006B JMP S4 LHR040 ; ; 00001384 1 006C M05: MOVC MSG05 R┆
0x14380…14400 UnusedSector ┆1 ; ; 00001385 1 006E MOVC MSG05L R2 ; ; 00001386 1 006F MOVC TYPDAT R3 ; ; 00001387 1 0070 MOV OSTRCT R5 ; ; 00001388 1 007┆
0x14400…14480 UnusedSector ┆1 JMP S4 LHR040 ; ; 00001389 1 0072 M06: MOVC MSG06 R1 ; ; 00001390 1 0074 MOVC MSG06L R2 ; ; 00001391 1 0075 MOVC TYPDAT R3 ┆
0x14480…14500 UnusedSector ┆; ; 00001392 1 0076 MOV OSTRCT R5 ; ; 00001393 1 0077 JMP S4 LHR040 ; ; 00001394 1 0078 M07: MOVC MSG07 R1 ; ; 00001395 1 00┆
0x14500…14580 UnusedSector ┆7A MOVC MSG07L R2 ; ; 00001396 1 007B MOVC TYPSTA R3 ; STATUS MSG - THIS MF DOWN ; 00001397 1 007C MOV OSTRCT R5 ; ; 00001398┆
0x14580…14600 UnusedSector ┆ 1 007D JMP S4 LHR040 ; ; 00001399 1 007E ; 00001400 1 007E LHR015: ;TEST CTR INPUT ; 00001401 1 007E MOVC TYPCHA R3 ; ; 000┆
0x14600…14680 UnusedSector ┆01402 1 007F MOV ISTRLH R5 ; ; 00001403 1 0080 MON PROBQUE ; ; 00001404 1 0081 JMP S4 LHR000 ;ERROR ; 00001405 1 0082 SEQP R3┆
0x14680…14700 UnusedSector ┆ 0 ; IF ANY DATA THEN ; 00001406 1 0083 JMP S4 LHR050 ; PRINT Q ; 00001407 1 0084 JMP LHR015 ; EMPTY QUE ; 00001408 1 0085 JM┆
0x14700…14780 UnusedSector ┆P LHR015 ; EMPTY QUE ; 00001409 1 0086 LHR080: ;WRONG INZ ANSWER ; 00001410 1 0086 MON OLTO,TPOS OR 20,0 ; ; 00001411 1 0089 ┆
0x14780…14800 UnusedSector ┆JMP LHR099 ; GOTO STOP ; 00001412 1 008A LHR081: ;WRONGINZ I/D ; 00001413 1 008A MON OLTO,TPOS OR 21,0 ; ; 00001414 1 008D JM┆
0x14800…14880 UnusedSector ┆P LHR099 ; GOTO STOP ; 00001415 1 008E LHRERR: ;PCB-ERROR ; 00001416 1 008E MON OLTO,TPOS OR 25,0 ; ; 00001417 1 0091 LHR099:┆
0x14880…14900 UnusedSector ┆ ;STOP ; 00001418 1 0091 JMP LHR099 ; GOTO STOP ; 00001419 1 0092 USE BASE ; 00001420 0 0158 XNAME0=<:CM:> ; 00001421 0 0158┆
0x14900…14980 UnusedSector ┆ XNAME1=<:1:> ; 00001422 0 0158 XBUFS=2 ; 00001423 0 0158 XREFS=2 ; 00001424 0 0158 XPRPC=LHR000 ; 00001425 0 0158 NOLIST ; ┆
0x14980…14a00 UnusedSector ┆ 00001438 0 0158 MESSAGE: CALL: S8MXD2, 780621 00001647 0 0172 LIST ; 00001648 0 0172 END ; Z046D3 T48E4 P 46D0L 0000 0000 000┆
0x14a00…14a80 UnusedSector ┆0 0000 017F 46D8L 0000 0000 4D43 0031 0000 0000 0000 0000 46E0L 0000 0000 0000 0000 0000 0000 0000 0000 46E8L 0000 0000 0172 003┆
0x14a80…14b00 UnusedSector ┆C 0064 0000 0000 826F 46F0L 0000 0000 0000 0064 0000 0000 0000 0000 46F8L 0000 0000 0000 0000 0000 0000 0000 0000 4700L 0000 FFF┆
0x14b00…14b80 UnusedSector ┆F 0000 0000 0000 0000 0000 0000 4708L 0000 0158 0160 0000 0000 0000 0000 0000 4710L 0000 0000 0000 0000 0000 0000 0000 0000 4718┆
0x14b80…14c00 UnusedSector ┆L 0000 0000 0000 0000 0000 0000 0000 0000 4720L 0000 0000 0000 0000 0000 0000 0000 0000 4728L 0000 0000 0000 0000 0000 0000 0000┆
0x14c00…14c80 UnusedSector ┆ 0000 4730L 0000 0000 0000 0000 0000 0000 0000 0000 4738L 0000 0000 0000 0000 0000 0000 0000 0000 4740L 0000 0000 0000 0000 0000┆
0x14c80…14d00 UnusedSector ┆ 0000 0000 0000 4748L 0000 0000 0000 0000 0000 0000 0000 0000 4750L 0000 0000 0000 0000 0000 0000 0000 0000 4758L 0000 0000 0000┆
0x14d00…14d80 UnusedSector ┆ 0922 0000 0000 0000 0000 4760L 0000 0000 0005 0000 0000 0000 0000 0000 4768L 0000 0000 0000 0000 0000 0000 0000 0000 4770L 0000┆
0x14d80…14e00 UnusedSector ┆ 0000 0000 0000 0000 0000 0000 0000 4778L 0000 0000 0000 0000 0000 0000 0000 0000 4780L 0000 0000 0000 0000 0000 0000 0000 0000 ┆
0x14e00…14e80 UnusedSector ┆4788L 0000 0000 0000 0000 0000 0000 0000 0000 4790L 0000 0000 0000 0000 0000 0000 0000 0000 4798L 0000 0000 0000 0000 0000 0000 ┆
0x14e80…14f00 UnusedSector ┆0000 0000 47A0L 0000 0000 0000 0000 0000 0000 0000 0000 47A8L 0000 0000 0000 0000 0000 0000 0000 0000 47B0L 0000 0000 0000 0000 ┆
0x14f00…14f80 UnusedSector ┆0000 0000 0000 0000 47B8L 0001 0002 0000 0002 FFFF FFFF 0132 0000 47C0L 0001 0002 0000 0002 FFFF FFFF 0232 0000 47C8L 0021 0000 ┆
0x14f80…15000 UnusedSector ┆0000 000C 0000 0001 2F2C 1027 47D0L 3035 2124 2534 0110 0021 0003 0000 000D 47D8L 0000 0002 2F2C 1027 3035 2124 2534 0110 47E0L ┆
0x15000…15080 UnusedSector ┆0021 0000 0006 0000 0000 0000 FFFF FFFF 47E8L 0011 0010 0000 002F 0000 0073 2124 2134 47F0L 2610 2F32 102D 2534 2D32 2E29 2C21 0┆
0x15080…15100 UnusedSector ┆110 47F8L 1006 101D 3329 3410 2528 2532 2110 392E 4800L 2F22 3924 2834 3225 1025 000F 0009 0000 4808L 0000 0000 FFFF FFFF 0000 0┆
0x15100…15180 UnusedSector ┆000 0000 0000 4810L 0000 0000 0000 0000 0000 0000 0000 0000 4818L 0000 0000 0000 0000 0000 0000 0000 0000 4820L 0000 0000 0000 0┆
0x15180…15200 UnusedSector ┆000 0000 0000 0000 0000 4828L 0000 0000 0000 0000 5304 0085 4351 5254 4830L 4003 0083 4D51 3146 8001 0000 5551 3145 4838L 0000 0┆
0x15200…15280 UnusedSector ┆000 015C 0000 0000 0000 0000 0000 4840L 0000 0000 0169 0000 0000 0000 0000 0000 4848L 0000 0000 0000 0000 0000 0000 0000 0000 48┆
0x15280…15300 UnusedSector ┆50L 0000 0000 0058 005D 0062 0067 006C 0072 4858L 0078 40B9 8671 8772 8873 8A75 0049 644A 4860L 014B 914C F5A6 7CD8 8A6B 0156 55┆
0x15300…15380 UnusedSector ┆73 FFA6 4868L 1102 0000 F4A6 74D8 886B F3A6 71D8 876A 4870L A1A0 866B E5A6 6CD8 F2A6 6AD8 FFA6 1104 4878L 0154 48B9 00BF 40B9 01┆
0x15380…15400 UnusedSector ┆56 5575 FFA6 1164 4880L 0154 004B 914C F5A6 5BD8 5BBB F4A6 58D8 4888L F3A6 56D8 F2A6 54D8 48B9 00BF FFA6 1100 4890L 0000 8B48 0F┆
0x15400…15480 UnusedSector ┆A6 065D C41C C17E 095D 0CA6 4898L C21B FFA6 11F0 0000 0814 C86D 0814 00CD 48A0L 681B 8573 691B 8373 0CBB 8268 19A6 48BB 48A8L D7┆
0x15480…15500 UnusedSector ┆94 00FC D849 084A 014B 856D 565D E049 48B0L 084A 014B 856D 5B5D E849 0C4A 014B 856D 48B8L 605D F449 0E4A 014B 856D 655D 0156 024┆
0x15500…15580 UnusedSector ┆9 48C0L 064A 014B 856D 6B5D 0156 0849 1E4A 014B 48C8L 856D 715D 0156 2649 064A 024B 856D 775D 48D0L 022B 836D F6A6 465D B03E 5B5┆
0x15580…15600 UnusedSector ┆D 0758 0858 48D8L FFA6 1114 0000 07D8 FFA6 1115 0000 03D8 48E0L FFA6 1119 0000 0158 SA MEMORY MAP: AREA 0 46D3 AREA 1 4852┆
0x15600…15680 UnusedSector ┆ 10 DIMENSION WARNINGS 1 INSTRUCTIONS EXPANDED 5 MODIFIES INSERTED 529 WORDS OUTPUT 529 WORDS ASSEMBLED ASSEMBLY OK? B5┆
0x15680…15700 UnusedSector ┆TO STOP LHR081: ;WRONGINZ I/D MON OLTO,TPOS OR 21,0 ; JMP LHR099 ; GOTO STOP LHRERR: ;PCB-ERROR MON OLTO,TPOS OR 25,0 ; LHR09┆
0x15700…15780 UnusedSector ┆9: ;STOP JMP LHR099 ; GOTO STOP USE BASE XNAME0=<:CT:> XNAME1=<:R:> XBUFS=2 XREFS=2 XPRPC=LHR000 NOLIST ;$S8MXD2 LIST END GO┆
0x15780…15800 UnusedSector 0x1a[128]
0x15800…15880 UnusedSector ┆********************************************* UNDF-WRN 400 BUFWDS 00000394 0 009D** A ******************************************┆
0x15880…15900 UnusedSector ┆**************************** UNDF-WRN 400 RLTUTT 00000394 0 009D** A ***********************************************************┆
0x15900…15980 UnusedSector ┆*********** UNDF-WRN 400 RCLGTS 00000394 0 009D** A ********************************************************************** UNDF-┆
0x15980…15a00 UnusedSector ┆WRN 400 WAITET 00000394 0 009D** A ********************************************************************** UNDF-WRN 400 TERMPK 00┆
0x15a00…15a80 UnusedSector ┆000394 0 009D** A ********************************************************************** UNDF-WRN 400 SMXS 00000394 0 009D** A ┆
0x15a80…15b00 UnusedSector ┆********************************************************************** UNDF-WRN 400 QTMCOP 00000394 0 009D** A *****************┆
0x15b00…15b80 UnusedSector ┆***************************************************** UNDF-WRN 400 WAITDY 00000394 0 009D** A **********************************┆
0x15b80…15c00 UnusedSector ┆************************************ UNDF-WRN 400 WRTYP 00000394 0 009D** A ***************************************************┆
0x15c00…15c80 UnusedSector ┆******************* UNDF-WRN 400 SIZMEN 00000394 0 009D** A ********************************************************************┆
0x15c80…15d00 UnusedSector ┆** UNDF-WRN 400 WRITEK 00000394 0 009D** A ********************************************************************** UNDF-WRN 400 M┆
0x15d00…15d80 UnusedSector ┆SGSTA 00000394 0 009D** A ********************************************************************** UNDF-WRN 400 MSGINZ 00000394 0 ┆
0x15d80…15e00 UnusedSector ┆009D** A ********************************************************************** UNDF-WRN 400 TT 00000394 0 009D** A ***********┆
0x15e00…15e80 UnusedSector ┆*********************************************************** UNDF-WRN 400 TRANSK 00000394 0 009D** A ****************************┆
0x15e80…15f00 UnusedSector ┆****************************************** UNDF-WRN 400 BINDAT 00000394 0 009D** A *********************************************┆
0x15f00…15f80 UnusedSector ┆************************* UNDF-WRN 400 MSGNO 00000394 0 009D** A **************************************************************┆
0x15f80…16000 UnusedSector ┆******** UNDF-WRN 400 FPCDAT 00000394 0 009D** A ********************************************************************** UNDF-WRN┆
0x16000…16080 UnusedSector ┆ 400 TYPDAT 00000394 0 009D** A ********************************************************************** UNDF-WRN 400 RLTUCP 00000┆
0x16080…16100 UnusedSector ┆394 0 009D** A ********************************************************************** UNDF-WRN 400 CONNEE 00000394 0 009D** A **┆
0x16100…16180 UnusedSector ┆******************************************************************** UNDF-WRN 400 CBASE 00000394 0 009D** A *******************┆
0x16180…16200 UnusedSector ┆*************************************************** UNDF-WRN 400 QTMIN 00000394 0 009D** A ************************************┆
0x16200…16280 UnusedSector ┆********************************** UNDF-WRN 400 ASCDAT 00000394 0 009D** A *****************************************************┆
0x16280…16300 UnusedSector ┆***************** UNDF-WRN 400 QTMLOP 00000394 0 009D** A **********************************************************************┆
0x16300…16380 UnusedSector ┆ UNDF-WRN 400 RELFIL 00000394 0 009D** A ********************************************************************** UNDF-WRN 400 QLH┆
0x16380…16400 UnusedSector ┆DIP 00000394 0 009D** A ********************************************************************** UNDF-WRN 400 PCBLGT 00000394 0 00┆
0x16400…16480 UnusedSector ┆9D** A ********************************************************************** UNDF-WRN 400 SENDME 00000394 0 009D** A **********┆
0x16480…16500 UnusedSector ┆************************************************************ UNDF-WRN 400 CONNEK 00000394 0 009D** A ***************************┆
0x16500…16580 UnusedSector ┆******************************************* UNDF-WRN 400 SENDAR 00000394 0 009D** A ********************************************┆
0x16580…16600 UnusedSector ┆LIST BEGIN MODULE LOCCM1 USE BASE NOLIST ;$ICLPRD LIST ISTOEB=TRUE ;ISO TO EBCIDIC CONVERSION ENALBED ISTOEB=FALSE ;ISO TO EBCID┆
0x16600…16680 UnusedSector ┆IC CONVERSION DISENABLED RTG: 0 CCWD: 0 ; "CC" CODE MESSCNT: 0 ; NUMBER OF MESSAGES SENT CTRWAIT: 5 ; DELAY TIME ISTRLH: 0 ; INP┆
0x16680…16700 UnusedSector ┆UT Q FROM MF CMIRD: 0 ; INPUT QU FROM CMI OSTRCT: 0 ; OUTPUT Q TO MF XQUEL=LOC-ISTRLH R1GEM: 0 R2GEM: 0 R3GEM: 0 R4GEM: 0 R5GEM:┆
0x16700…16780 UnusedSector ┆ 0 STCPTR: 0,REPEAT 5 PCBIP: 0,REPEAT (PCBLGT-1) ; INPUT Q PCB PCBOP: 0,REPEAT (PCBLGT-1) ; OUTPUT Q PCB CTRJMP: 0 ; JUMP TABLE ┆
0x16780…16800 UnusedSector ┆ENTRY MSG01: #00F0,#F0F0,#E9E9, #0021,#D5D5,#D5D5, 0,REPEAT 16 MSG01L=LOC-MSG01 MSG02: #00F4,#0001,#E9E9, #001E,#D5D5,#D5D5, ┆
0x16800…16880 UnusedSector ┆ 0,REPEAT 14 MSG02L=LOC-MSG02 MSG03: #00C2,#0001,#E9E9, #000E,#D5D5,#D5D5, 0,REPEAT 6 MSG03L=LOC-MSG03 MSG04: #0009,#0001,#E9E┆
0x16880…16900 UnusedSector ┆9, #000E,#D5D5,#D5D5, 0,REPEAT 6 MSG04L=LOC-MSG04 MSG05: #000A,#0000,#E9E9, #000A,#D5D5,#D5D5, #F0F0,#C3C3,#C3C2, #C200,#FF┆
0x16900…16980 UnusedSector ┆FF MSG05L=LOC-MSG05 ; TXT01: <:Z0050CCCBBINPUT FROM TERMINAL 00.:> TXT01L=LOC-TXT01 TXT02: <:Z400099998CONFIG FILE VERSION.:> TX┆
0x16980…16a00 UnusedSector ┆T02L=LOC-TXT02 TXT03: <:ZB000999980002:> ; NETWORK CLOSED DOWN TXT03L=LOC-TXT03 TXT04: <:ZB000999980003:> ; THIS M/F DOWN TXT04L┆
0x16a00…16a80 UnusedSector ┆=LOC-TXT04 0,REPEAT 31 ; SPARE FOR LATER USE ; ;----------------------------------------------------------------------- ;------┆
0x16a80…16b00 UnusedSector ┆----------------------------------------------------------------- FILDEC1: RELFIL OR ASCDAT OR((SIZMEAN-1)/4)<RCLGTS OR 4 OSTRC┆
0x16b00…16b80 UnusedSector ┆T <:QCTR:> ; FILDEC3: RELFIL OR BINDAT OR (1-1)<RCLGTS OR XQUEL ISTRLH <:QMF1:> TT:=BUFQUE OR BINDAT OR (BUFWDS-1)<RCLGTS OR 1┆
0x16b80…16c00 UnusedSector ┆ PFQ1: TT 0 <:QUE1:> USE PROG TPOS:=1<TPLS OR TCTR<SMXS ; ;------------------------------------------------------------------┆
0x16c00…16c80 UnusedSector ┆----- ;----------------------------------------------------------------------- ; ; CONVERSION TABLE ISO => EBCIDIC. ; ----------┆
0x16c80…16d00 UnusedSector ┆---------------------- ; ; THE TABLE CONSISTS OF 8 ENTRIES OF 16 WORDS. ; THE LEAST SIGNIFICANT 7 BITS OF THE ISO CHARACTER ARE ┆
0x16d00…16d80 UnusedSector ┆; USED FOR THE CONVERSION. THE 3 MOST SIGNIFICANT BITS ; ARE USED TO ADDRESS ONE OF 0-7 ENTRIES, ; WHILEST THE REMAINING 4 BITS ┆
0x16d80…16e00 UnusedSector ┆ARE USED TO ADDRESS ; ONE OF 0-15 WORDS WITHIN THE ENTRY. ; THE ADDRESSED WORD IS THE MATCHING EBCIDIC CHARACTER. ; CONVITE: ;EN┆
0x16e00…16e80 UnusedSector ┆TRY 0 #3F,#3F,#3F,#3F,#3F,#3F,#3F,#2F #16,#05,#15,#0B,#0C,#0D,#0E,#0F ;ENTRY 1 #3F,#11,#12,#13,#3C,#3F,#32,#26 #18,#19,#1A,#27,#┆
0x16e80…16f00 UnusedSector ┆1C,#1D,#1E,#1F ;ENTRY 2 #40,#4F,#7F,#7B,#5B,#6C,#50,#7D #4D,#5D,#5C,#4E,#6B,#60,#4B,#61 ;ENTRY 3 #F0,#F1,#F2,#F3,#F4,#F5,#F6,#F7┆
0x16f00…16f80 UnusedSector ┆, #F8,#F9,#7A,#5E,#4C,#7E,#6E,#6F ;ENTRY 4 #7C,#C1,#C2,#C3,#C4,#C5,#C6,#C7 #C8,#C9,#D1,#D2,#D3,#D4,#D5,#D6 ;ENTRY 5 #D7,#D8,#D9,┆
0x16f80…17000 UnusedSector ┆#E2,#E3,#E4,#E5,#E6 #E7,#E8,#E9,#4A,#E0,#5A,#5F,#6D ;ENTRY 6 #79,#81,#82,#83,#84,#85,#86,#87 #88,#89,#91,#92,#93,#94,#95,#96 ;EN┆
0x17000…17080 UnusedSector ┆TRY 7 #97,#98,#99,#A2,#A3,#A4,#A5,#A6 #A7,#A8,#A9,#C0,#6A,#D0,#A1,#3F ; IF CONVITE+(8*#10) NE LOC THEN MESSAGE <:ITE TABLE LAYOU┆
0x17080…17100 UnusedSector ┆T ERROR:> FI ;----------------------------------------------------------------------- ;-----------------------------------------┆
0x17100…17180 UnusedSector ┆------------------------------ ;----------------------------------------------------------------------- ; JUMP TABLE. ; LSTART: ┆
0x17180…17200 UnusedSector ┆START LCONVE: CONVE LLOOP1: LOOP1 LQUERR: QUERR LPNTQ: PNTQ LMESS1: MESS1 LMESS2: MESS2 LMESS3: MESS3 LMESS4: MESS4 LMESS5: MESS┆
0x17200…17280 UnusedSector ┆5 LSENDQ: SENDQ LMAINLOOP: MAINLOOP LSENDMESS: SENDMESS ;-----------------------------------------------------------------------┆
0x17280…17300 UnusedSector ┆ ;S T A R T . ;------------ ; START: MON OLTO,TPOS OR 0,0 MOVC STCPTR R0 MON WAITEVENT JMPI S4 LSTART MOV MSGID. X7 R4 SEQ┆
0x17300…17380 UnusedSector ┆ R4 MSGINZ ; IF NOT INZTHEN JMPI S4 LSTART MON SENDANSWEAR MOV MSGNO. X7 R3 ; POINTER TO TABLE MON OLTO,TPOS OR 240 ,0 MODN┆
0x17380…17400 UnusedSector ┆ CBASE-C MOV FPCDAT R5 ; SUB CBASE-C R5 MOV QMF1IN.X5 R3 ; LOGICAL QUE NO MOV R3 OSTRCT MOV QMF1OP.X5 R3 ; LOGICALL Q NO. F┆
0x17400…17480 UnusedSector ┆OR OUTPUT MOV R3 ISTRLH MOV R0 R4 MOV CTRWAIT R0 ; FETCH DELAY MON WAITDELAY MOV R4 R0 ;-----------------------------------┆
0x17480…17500 UnusedSector ┆------------------------------------ ; ;THE MESSAGES ARE SET UP BY CONVERTING THE TEXT PART ; INTO EBCIDIC,AND PLACING THE EBCID┆
0x17500…17580 UnusedSector ┆IC CHARACTER ; INTO THE MESSAGE AREA.A JUMP IS PERFORMED TO "CONVE" ; WITH THE FOLLOWING PARAMETERS: ; R7 = MESSAGE ADDRESS ; R4┆
0x17580…17600 UnusedSector ┆ = TEXT ADDRESS ; R3 = TEXT LENGTH ; R6 = RETURN LINK. ; ;----------------------------------------------------------------------┆
0x17600…17680 UnusedSector ┆--------- ; MOVC MSG01 R7 MOVC TXT01 R4 MOVC TXT01L<1 R3 ; *2 = BYTES JMPI S6 LCONVE MOVC MSG02 R7 MOVC TXT02 R4 MOVC TXT┆
0x17680…17700 UnusedSector ┆02L<1 R3 ; *2 = BYTES JMPI S6 LCONVE MOVC MSG03 R7 MOVC TXT03 R4 MOVC TXT03L<1 R3 ; *2 = BYTES JMPI S6 LCONVE MOVC MSG04 R┆
0x17700…17780 UnusedSector ┆7 MOVC TXT04 R4 MOVC TXT04L<1 R3 ; *2 = BYTES JMPI S6 LCONVE ;---------------------------------------------------------------┆
0x17780…17800 UnusedSector ┆-------- MAINLOOP: LOOP1: MOV RTG R1 ; IEQ R1 #26 ; IF R1 NE #26 THEN JMPI LSENDMESS ; SEND MESSAGE 1. MOVC TYPCHA R3 MOV I┆
0x17800…17880 UnusedSector ┆STRLH R5 ; Q FROM MF1 MON PROBQUE JMPI S4 LSTART IEQ R3 0 ; IF NO DATA THEN JMPI LLOOP1 ;-----------------------------------┆
0x17880…17900 UnusedSector ┆------------------------------------ ;----------------------------------------------------------------------- ; ; P R I N T Q U ┆
0x17900…17980 UnusedSector ┆E S U B R O U T I N E . ; ; REGISTER CALL EXIT ; R4 LINK LINK ; R5 QUE ;--------------------------------------------------------┆
0x17980…17a00 UnusedSector ┆--------------- ;----------------------------------------------------------------------- PNTQ: STC R4 X0 MOV R5 PFQ1+1 ; SAV┆
0x17a00…17a80 UnusedSector ┆E QUE FOR OLTO MON OLTO,TPOS OR 100,PFQ1 ; USED BY OLTO TO PRINT Q MOVC RDTYP R3 ; READTYPE MOVC PCBIP R4 ; INPUT Q PCB MON ┆
0x17a80…17b00 UnusedSector ┆INITPCB JMPI& LQUERR MOV R5 R3 MON CONNECTQUE JMPI& LQUERR MON CONNECTPACK JMPI& LQUERR MON READWORD JMPI& LQUERR MOV R┆
0x17b00…17b80 UnusedSector ┆3 R1 ; "CC" CODE MOV R1 CCWD ; SAVE "CC" CODE MON TERMPACK JMPI& LQUERR IEQ R1 #29 ; LINK OPEN JMPI LMESS5 IEQ R1 #26 ; RE┆
0x17b80…17c00 UnusedSector ┆ADY TO GO MOV R1 RTG IEQ R1 #F4 ; TP FILE VERSION NO JMPI LMESS2 UNS R4 X0 ; UNSTACK SAVED REGISTERS. JMPI LLOOP1 ;FF ;--┆
0x17c00…17c80 UnusedSector ┆----------------------------------------------------------------------------- ;-------------------------------------------------┆
0x17c80…17d00 UnusedSector ┆------------------------------ ;PROCEDURE TO SEND A PACKET. ;R1 MSGNO ;R2 MSGLGT ;R3 TYPE ;R4 LINK LINK ;R5 QUE ;---------------┆
0x17d00…17d80 UnusedSector ┆---------------------------------------------------------------- SENDQ: STC R4 X0 MOV R1 R1GEM ; MESSAGE MOV R2 R2GEM ; MESSA┆
0x17d80…17e00 UnusedSector ┆GE LENGTH MOV R3 R3GEM ; TYPDAT MOV R5 R5GEM ; OUTPUT QUE MOVC PRI0 R1 MOVC SIZMEAN R2 MOVC WRTYP R3 MOVC PCBIP R4 MON IN┆
0x17e00…17e80 UnusedSector ┆ITPCB JMPI& LQUERR MOV R5 R3 MOV R3 PFQ1+1 ;SAVE ABS POINTER FOR OLTO MON OLTO,TPOS OR 2,0 ; PRINT LTN,XQUEP MON CONNECTQUE┆
0x17e80…17f00 UnusedSector ┆ JMPI& LQUERR MOV R3GEM R3 ; TYPDAT MON CONNECTPACK JMPI& LQUERR MOV R2GEM R2 SLL R2 1 ; X 2 MOV R1GEM R3 MON WRITEBLOCK┆
0x17f00…17f80 UnusedSector ┆ JMPI& LQUERR MON TERMPACK JMPI& LQUERR MON OLTO,TPOS OR 4,PFQ1 ; PRINTQUE UNS R4 X0 JMP X4 ; END ;-----------------------┆
0x17f80…18000 UnusedSector ┆------------------------------------------------ ; ; S E N D M E S S A G E U . ; ;----------------------------------------------┆
0x18000…18080 UnusedSector ┆------------------------- ; SENDMESS: MOVC 100 R0 ; DELAY = U SECOND MON WAITDELAY MOVC 1 R1 MOVC MESSCNT R0 ADD R1 X0 MES┆
0x18080…18100 UnusedSector ┆S1: MOVC MSG01 R1 ; MESSAGE MOVC MSG01L R2 ; MESSAGE LENGTH MOVC TYPDAT R3 ; TYPDAT MOV OSTRCT R5 ; QUE JMPI S4 LSENDQ JMP┆
0x18100…18180 UnusedSector ┆I LMAINLOOP MESS2: MOVC MSG02 R1 ; MESSAGE MOVC MSG02L R2 MOVC TYPDAT R3 MOV OSTRCT R5 JMPI S4 LSENDQ JMPI LMAINLOOP MESS3┆
0x18180…18200 UnusedSector ┆: MOVC MSG03 R1 ; MESSAGE MOVC MSG03L R2 MOVC TYPDAT R3 MOV OSTRCT R5 JMPI S4 LSENDQ JMPI LMAINLOOP MESS4: MOVC MSG04 R1 ┆
0x18200…18280 UnusedSector ┆; MESSAGE MOVC MSG04L R2 MOVC TYPDAT R3 MOV OSTRCT R5 JMPI S4 LSENDQ JMPI LMAINLOOP MESS5: MOVC MSG05 R1 ; MESSAGE MOVC M┆
0x18280…18300 UnusedSector ┆SG05L R2 MOVC TYPDAT R3 MOV OSTRCT R5 JMPI S4 LSENDQ JMPI LMAINLOOP ;-------------------------------------------------------┆
0x18300…18380 UnusedSector ┆---------------- ; ; SUBROUTINE TO CONVERT THE TEXT TO EBCIDIC.THE CONVERTED ; TEXT IS THEN PLACED IN THE RELEVANT MESSAGE. ; ; ┆
0x18380…18400 UnusedSector ┆REGISTER CALL EXIT ; R3 CHARACTER COUNT 0 ; R4 TEXT ADDRESS TEXTADD+COUNT ; R6 LINK LINK ; R7 MESSAGE ADDRESS MESSADD+COUNT ; ; ┆
0x18400…18480 UnusedSector ┆REGISTER USE ; R2 PASSING/RECEIVING THE ISO/EBCIDIC CHTR ; R5 INDEX TO CONVERSION TABLE ; ;-------------------------------------┆
0x18480…18500 UnusedSector ┆---------------------------------- ;----------------------------------------------------------------------- CONVE: ; CONVERT ISO┆
0x18500…18580 UnusedSector ┆ => EBCIDIC MOVC 1 R1 ; SUBTRACTION CONSTANT ADDC 6 R7 ; POINT TO TEXT PART OF MESSAGE SLL R7 1 ; *2 GIVES BYTE ADDRESS SLL ┆
0x18580…18600 UnusedSector ┆R4 1 ; BYTE ADDRESS OF TEXT MORE: ; RETURN HERE TILL COUNT=0 MOVB X4 R2 ; GET ISO CHTR IN TEXT IF ISTOEB EQ TRUE THEN XTR R2 ┆
0x18600…18680 UnusedSector ┆7 ; DISCARD MOST SIG BIT MOV R2 R5 ; MOVE TO INDEX REG MVP CONVITE.X5 R2 ; EBCIDIC CHTR FROM TABLE ELSE FI MOVB R2 X7 ; MOV┆
0x18680…18700 UnusedSector ┆E CHTR INTO MESSAGE SUB R1 R3 ; DECREMENT COUNT SNE R3 0 ; IF COUNT V 0 THEN JMP X6 ; RETURN, ELSE ADDC 1 R7 ; INCREMENT MES┆
0x18700…18780 UnusedSector ┆SAGE AND ADDC 1 R4 ; TEXT ADDRESSES JMP MORE ; GO AND CONVERT ; REMAINING CHARACTERS. LHR080: ; WRONG INZ ANSWEAR MON OLTO┆
0x18780…18800 UnusedSector ┆,TPOS OR 20,0 JMP LHR099 ; GO TO STOP LHR081: ; WRONG INZ/ID MON OLTO,TPOS OR 21,0 JMP LHR099 ; GO TO STOP QUERR: MON OLTO,T┆
0x18800…18880 UnusedSector ┆POS OR 25,0 LHR099: ;STOP JMP LHR099 ; LOOP LIKE HELL. USE BASE XNAME0=<:CM:> XNAME1=<:1:> XBUFS=2 XREFS=2 XPRPC=START NOLIST ;┆
0x18880…18900 UnusedSector ┆$S8MXD2 LIST END HR099 ; GO TO STOP LHR081: ; WRONG INZ/ID MON OLTO,TPOS OR 21,0 JMP LHR099 ; GO TO STOP QUERR: MON OLTO,T┆
0x18900…18980 UnusedSector ┆SE BASE XNAME0=<:CM:> XNAME1=<:1:> XBUFS=2 XREFS=2 XPRPC=START NOLIST ;$S8MXD2 LIST END LHR099 ; GO TO STOP LHR081: ; WRONG IN┆
0x18980…18a00 UnusedSector 0x1a[128]
[…0x33…]
0x1a380…1a400 UnusedSector ┆LIST BEGIN MODULE LOCCM1 USE BASE NOLIST ; MESSAGE <:CALL S8MXGL:> ;; CR80 SYSTEM ONE ; MONITOR ; MASTER: XGL - GLOBAL NAMES U┆
0x1a400…1a480 UnusedSector ┆SED IN S8MXPX GLOBAL UTILITYLENGTH,PROGLENGTH,NAMELENGTH,CONTLENGTH,PROCLENGTH GLOBAL DRIVERLENGTH,CATALOGLENGTH,ENTRYAREA,EN┆
0x1a480…1a500 UnusedSector ┆TRYLENGTH,WORKAREA GLOBAL WORKLENGTH,REFLENGTH,BUFLENGTH GLOBAL LOCACT,ITEM,C,CURSIN,CURSOUT,CURSWORK GLOBAL BMREENTRANT,BMINPUT┆
0x1a500…1a580 UnusedSector ┆,BMBYTE,BMDISP,BMOUTPUT,BMWORD GLOBAL IDLENGTH,SHARELENGTH,BUFFERLENGTH,STACKLENGTH GLOBAL BNBYTE,BNOPUT,BFIRST,BNEXT GLOBAL BMS┆
0x1a580…1a600 UnusedSector ┆TEP,BMCONV,BMNOEC,KINDOC,KINDCR,KINDLP,KINDFD GLOBAL NAME,PROC,NEXT XDATE:=#1008MESSAGE <:CALL S8MNAX:> ;; S8MNAX ; ; CR80 SYSTE┆
0x1a600…1a680 UnusedSector ┆M ONE, NAMES ; ; GENERATED AT 78.04.05 ; 00151000 0 000E LEVEL 2 NAMES: ITEMLH= #0005 C= #000D BMERRR= #0020 BMFULL= #0400 ┆
0x1a680…1a700 UnusedSector ┆BNLOCT= #000B BMSPEL= #0009 BNERRR= #0005 BNFULL= #000A DISKDS= #0002 REALTK= #0000 BMBYTE= #0004 BMDIST= #0100 BMREJT= ┆
0x1a700…1a780 UnusedSector ┆#0004 PROGLH= #000E BNBYTE= #0002 BMCONV= #0010 BNDIST= #0008 BNREJT= #0002 BNCONV= #0004 TIMEMK= #6800 CONTLH= #0005 T┆
0x1a780…1a800 UnusedSector ┆IMESE= #0064 BMINPT= #0001 BMWORD= #0000 BMTIMR= #0002 BMPARY= #0080 BMPROM= #0002 BNTIMR= #0001 BNPARY= #0007 BNPROM= #┆
0x1a800…1a880 UnusedSector ┆0001 TERMIL= #0001 N= #0004 BMUNKN= #2000 DISABD= #E000 POWERE= #0001 BMSTEP= #0020 BNUNKN= #000D BMWRIR= #0200 BNSTEP=┆
0x1a880…1a900 UnusedSector ┆ #0005 BNWRIR= #0009 BMREST= #0002 BMPOSN= #0010 BMERAE= #0020 BNREST= #0001 BNPOSN= #0004 BNERAE= #0005 BMNORS= #4000 ┆
0x1a900…1a980 UnusedSector ┆BNNORS= #000E EVERSN= #0006 IDLENH= #0004 BMBUSY= #8000 BMCLEN= #0000 BNBUSY= #000F EAREAS= #000A BMNOEC= #0040 NAMELH= ┆
0x1a980…1aa00 UnusedSector ┆#0003 BNNOEC= #0006 BMOPUT= #0002 BMCLER= #0040 MAXDEE= #003F BNOPUT= #0001 BNCLER= #0006 BMRELE= #0004 BMNOTY= #0001 E┆
0x1aa00…1aa80 UnusedSector ┆TYPE= #0007 BNRELE= #0002 BNNOTY= #0000 BMREAR= #0100 BNREAR= #0008 NAMEBS= #0006 BMOUTT= #0003 BMTPUT= #0001 BMSPEC= #0┆
0x1aa80…1ab00 UnusedSector ┆008 BMCONL= #0000 BMUNCE= #0010 BMEOF= #0040 BNTPUT= #0000 BNSPEC= #0003 BNUNCE= #0004 BNEOF= #0006 BMILLL= #0008 BNILL┆
0x1ab00…1ab80 UnusedSector ┆L= #0003 BNMUTX= #0000 BMNOCP= #0080 BMRESE= #0008 BNNOCP= #0007 BNRESE= #0003 BMTERE= #0080 BMDISP= #0001 BMREET= #0001┆
0x1ab80…1ac00 UnusedSector ┆ BNTERE= #0007 BNDISP= #0000 BNREET= #0000 USE BASE BMWAC:= #0080 OLDPRC:= #001B SAVE3:= #0029 SSAVE1:= #0019 BNWAC:= #0┆
0x1ac00…1ac80 UnusedSector ┆007 SAVE4:= #002A SSAVE2:= #001A SAVE5:= #002B SBLOCK:= #000C SSAVE3:= #001B TERMIE:= #0031 SAVE6:= #002C STACKH:= #0005┆
0x1ac80…1ad00 UnusedSector ┆ SSAVE4:= #001C BMPLSB:= #0100 NEXT:= #0002 SAVE7:= #0040 PROCLH:= #0052 CATSLH:= #0040 SSAVE5:= #001D BS:= #0008 BMWDE┆
0x1ad00…1ad80 UnusedSector ┆:= #0008 BNPLSB:= #0008 WARNIG:= #0030 DELAY:= #0033 SAVE8:= #0041 MESSAG:= #004D SSAVE6:= #001E BNWDE:= #0003 CLINK:= #┆
0x1ad80…1ae00 UnusedSector ┆0014 SAVE9:= #0042 SSAVE7:= #001F DLINK:= #0027 WORK:= #0040 SACTIN:= #0008 SSAVE8:= #0020 BMCHAE:= #0049 BM1:= #FFFF E┆
0x1ae00…1ae80 UnusedSector ┆LINK:= #0056 ANS0:= #0000 SSAVE9:= #0021 NL:= #000A BM2:= #FFFF WORKAA:= #0295 ANS1:= #0001 SFILE:= #000D ESEGMS:= #000B┆
0x1ae80…1af00 UnusedSector ┆ EVENTC:= #003D ANS2:= #0002 EATTRE:= #0006 EAREAE:= #0008 MES0:= #0000 ANS3:= #0003 CR0:= #000D EVENTE:= #0037 MES1:= ┆
0x1af00…1af80 UnusedSector ┆#0001 ANS4:= #0004 SIDENT:= #0003 BMLOOP:= #0019 CR1:= #000E DATE:= #0024 MES2:= #0002 BOPER:= #0000 PARENT:= #0001 CR2┆
0x1af80…1b000 UnusedSector ┆:= #000F SAVE10:= #0043 MES3:= #0003 NAME:= #0007 CR3:= #0010 CAUSE:= #001E EMRETN:= #001E SAVE11:= #0044 MES4:= #0004 ┆
0x1b000…1b080 UnusedSector ┆SSTACD:= #0013 BFIRST:= #0006 CR4:= #0011 SAVE12:= #0045 BSTATE:= #0005 CR5:= #0012 CBASED:= #0016 SAVE13:= #0046 WRK:= ┆
0x1b080…1b100 UnusedSector ┆#004D SNAME:= #0000 BMWAN:= #0001 CR6:= #0013 SAVE14:= #0047 STOP:= #000F EFIRST:= #001A BNWAN:= #0000 BMMESS:= #0001 C┆
0x1b100…1b180 UnusedSector ┆R7:= #0014 RESTIG:= #0038 SAVE15:= #0048 SBLOCT:= #000B BMWPA:= #0040 BNMESS:= #0000 BMANSW:= #0002 KIND:= #0006 SAVE16:┆
0x1b180…1b200 UnusedSector ┆= #0049 UTILIH:= #02A1 MOPERN:= #0000 BNWPA:= #0006 BNANSW:= #0001 BMCHAL:= #00F0 PROCIT:= #0004 SAVE17:= #004A SMODE:= ┆
0x1b200…1b280 UnusedSector ┆#0005 SBUFSE:= #0011 BNCHAL:= #0004 SAVE18:= #004B ACOUNT:= #0001 SKIND:= #0006 BMPRIY:= #FF00 AREACM:= #002E SAVE19:= #0┆
0x1b280…1b300 UnusedSector ┆04C RESERR:= #0052 WORKIG:= #005E BCOUNT:= #0001 BNPRIY:= #0008 CATWRK:= #0005 PPROGM:= #000C EBLOCE:= #0009 CONTET:= #0┆
0x1b300…1b380 UnusedSector ┆004 CAN:= #0018 BMWIN:= #0004 PROGRM:= #0017 EOFACN:= #0059 EBLOCG:= #000E BMNEXT:= #0029 BNWIN:= #0002 BMRECD:= #000A ┆
0x1b380…1b400 UnusedSector ┆BMPER0:= #0069 BNRECD:= #0001 ANSWER:= #004D BMCREE:= #0009 BMPER1:= #0079 DEL:= #007F PREFS:= #0001 CURSLH:= #00B2 EVT0┆
0x1b400…1b480 UnusedSector ┆:= #0000 EHIBLK:= #000C EDUMMY:= #001F BMPER2:= #0089 KINDFD:= #0400 TIMER:= #0019 DEVPR:= #001F CURIN:= #005A EVT1:= #0┆
0x1b480…1b500 UnusedSector ┆001 BMPER3:= #0099 BMWC:= #003F PSW:= #001A PRESET:= #0020 ADJUST:= #0035 DEVICE:= #0053 ENTRYA:= #0275 USERLH:= #02F0 ┆
0x1b500…1b580 UnusedSector ┆EVT2:= #0002 BUFFEH:= #0008 BMPER4:= #00A9 BNWC:= #0006 CURSIN:= #005F EVT3:= #0003 BMPER5:= #00B9 PPRPC:= #000D MSAVE:=┆
0x1b580…1b600 UnusedSector ┆ #0026 CENTRY:= #005D ABLOCK:= #0003 EVT4:= #0004 ERECOE:= #000A BMPER6:= #00C9 BMACTE:= #BFC0 INTERT:= #0054 CATALG:= #┆
0x1b600…1b680 UnusedSector ┆0057 WORKLH:= #000C BBLOCK:= #0003 CATALH:= #0058 BMXCU:= #4000 BNSSI:= #0001 REF:= #0003 REFLEH:= #0004 BADDR:= #0002 ┆
0x1b680…1b700 UnusedSector ┆BMPER9:= #00D9 BNXCU:= #000E PBUFS:= #0002 ITEM:= #FFF3 LOCACN:= #001C TIME:= #0021 EAREA:= #000F BMWEV:= #0002 BMPR:= #┆
0x1b700…1b780 UnusedSector ┆3F00 ERROR:= #002F REFS:= #0036 W:= #0040 BNEXT:= #0007 ENTRYH:= #0020 BNWEV:= #0001 CATBIN:= #0003 EVENT:= #004D STREA┆
0x1b780…1b800 UnusedSector ┆T:= #000A BMRUN:= #8000 RECEIR:= #0001 ARESUT:= #0000 AFILE:= #0004 BNRUN:= #000F PROC:= #000D EVENTS:= #003C MCOUNT:= #┆
0x1b800…1b880 UnusedSector ┆0001 BFILE:= #0004 EPAGE:= #001B CHAIN:= #0005 PRPC:= #0018 ESC:= #001B BMPEND:= #0009 CHILD:= #0003 SMASK:= #0007 BNPE┆
0x1b880…1b900 UnusedSector ┆ND:= #0000 PCOUNT:= #0006 FREEAS:= #002A NEXTET:= #003B BUFLEH:= #0009 ASTATS:= #0002 BUF:= #0003 FF:= #000C KINDOC:= #0┆
0x1b900…1b980 UnusedSector ┆100 CBASE:= #0015 CUREVT:= #003A ECHART:= #001C BMREME:= #0059 BNWAIG:= #0008 CATCAT:= #0006 STATE:= #0000 BUFS:= #0037 ┆
0x1b980…1ba00 UnusedSector ┆ CURWOK:= #005C SPROCT:= #0004 BMRENE:= #0039 CATDAT:= #0001 WCATS:= #02B0 SFIRST:= #000E EIDENT:= #0003 EBASE:= #0019 K┆
0x1ba00…1ba80 UnusedSector ┆INDCR:= #0200 CATOBJ:= #0004 PSIZE:= #000B FIRSTT:= #0039 BMPRCH:= #FFF0 SUSED:= #0012 SHAREH:= #0022 BMWSM:= #0010 PWOR┆
0x1ba80…1bb00 UnusedSector ┆DS:= #0003 EDATE:= #0004 BNWSM:= #0004 WSAVE:= #02A1 WPROG:= #02A2 BMIGNR:= #000C CATTXT:= #0002 INTRPT:= #0034 MBLOCK:=┆
0x1bb00…1bb80 UnusedSector ┆ #0003 SREM:= #0010 ENAME:= #0000 BMWSP:= #0020 BNIGNR:= #0002 EDRIVE:= #0007 BNWSP:= #0005 BNRSU:= #0000 BMRX:= #C000 ┆
0x1bb80…1bc00 UnusedSector ┆DRIVEH:= #0055 MADDRS:= #0002 EMODE:= #001E WORD:= #0000 SIZE:= #0004 PRICHN:= #0032 ESPECL:= #0055 SEOFAN:= #0009 EKIND┆
0x1bc00…1bc80 UnusedSector ┆:= #001D LF:= #000A EM:= #0019 BMDYNC:= #C03F BMREF:= #0008 CURSWK:= #01C3 BNREF:= #0003 NAMEIT:= #0003 ACTION:= #0058 ┆
0x1bc80…1bd00 UnusedSector ┆CURSOT:= #0111 MFILE:= #0004 CR:= #000D BMSIGN:= #0004 SAVE0:= #003E CUROUT:= #005B SSSIZE:= #0017 BMWS:= #00C0 BNSIGN:=┆
0x1bd00…1bd80 UnusedSector ┆ #0002 KINDLP:= #0300 SAVE1:= #003F SENDER:= #0001 ERECOS:= #000D BMSTAC:= #FFC0 LOCREN:= #001D SAVE2:= #0028 SSAVE0:= #┆
0x1bd80…1be00 UnusedSector ┆0018 MTESTS= #0000-128*BASE-128*(PROG-1) MMODES= #FFFF-128*BASE-128*(PROG-1) MCHECS= #FFFF-128*BASE-128*(PROG-1) BYTE= #000┆
0x1be00…1be80 UnusedSector ┆0+ 2*BASE+ 0*(PROG-1) PRIOR0= #0000-128*BASE-128*(PROG-1) PRIOR1= #0000-128*BASE-128*(PROG-1) PRIOR2= #0000-128*BASE-128*(PRO┆
0x1be80…1bf00 UnusedSector ┆G-1) USE #0 ; 00175900 0 0100 LEVEL 4 NAMES: INSPEE= #0070 ENDPRM= #0041 INPARM= #0068 STARTS= #006C OUTNL= #005D COMPAS= ┆
0x1bf00…1bf80 UnusedSector ┆#0045 CREATS= #006A OUTTET= #005C MPER00= #0051 OUTHEA= #0064 STOPPS= #006D CREATY= #004A RENAMY= #004D GETPON= #0058 R┆
0x1bf80…1c000 UnusedSector ┆EMOVE= #0072 CLOSE= #0054 INWORD= #007C OUTNAE= #0085 PUTARA= #0074 STACK= #0055 OUTEND= #005E LINKNT= #006E SETDEY= #00┆
0x1c000…1c080 UnusedSector ┆77 BACKSE= #0063 OUTCHR= #005F REMOVM= #0071 INNEXT= #0069 INCHAR= #0061 OUTBLK= #0060 INTYPE= #0066 OPEN= #0053 OUTTEB┆
0x1c080…1c100 UnusedSector ┆= #005B COMPAE= #0046 INIT= #0052 LINKCD= #006F GETARA= #0073 FREE01= #0089 SETINT= #0078 SETPON= #0057 PUTBYE= #0049 I┆
0x1c100…1c180 UnusedSector ┆NNAME= #007B NEXTON= #0043 REMOVS= #006B SETPRN= #0076 INCOMD= #0086 CHANGY= #004E NEXTEY= #004C UNSTAK= #0056 INITDE= #┆
0x1c180…1c200 UnusedSector ┆0042 WAIT= #0059 INITWT= #0075 OUTINR= #0065 REMOVY= #004F FINDEY= #0050 GETADS= #0047 RETURR= #0044 INBLOK= #0062 OUTT┆
0x1c200…1c280 UnusedSector ┆EP= #005A LOOKUY= #004B GETBYE= #0048 INELET= #0067 USE #0 ; 00197700 0 0040 LEVEL 4 NAMES: GETINL= #0007 GIVEUE= #0018 SE┆
0x1c280…1c300 UnusedSector ┆ARCS= #001A WAITAR= #000D ENTERL= #0006 WAITIL= #0008 GETINT= #0004 REGISS= #0013 SENDSL= #000A WAITET= #000F WAITIT= #0┆
0x1c300…1c380 UnusedSector ┆005 WAITDY= #0019 INSERT= #0001 RESERT= #0003 REGREE= #0010 MEMARA= #0014 CREATE= #001C WAITNT= #000E LEAVEL= #0009 TRA┆
0x1c380…1c400 UnusedSector ┆NST= #0012 CLEART= #0000 SENDME= #000B RELEAT= #0002 SENDAR= #000C RESUMT= #0011 GETEVE= #001B USE #0 ; 00199200 0 0040 LE┆
0x1c400…1c480 UnusedSector ┆VEL 3 NAMES: USE PROG LOCINT:= #026F LOCACT:= #826F USE #0 SYS2:=FALSE XPD:=DRIVERLENGTH MESSAGE <:CALL S8MXD1:> ; ; CR80 SYST┆
0x1c480…1c500 UnusedSector ┆EM ONE ; MONITOR ; MASTER: XPD - PROCESS DESCRIPTION (PART 1) ; SHORTENED VERSION, ONLY FOR USE IN CONNECTION WITH PROGRAMS ; T┆
0x1c500…1c580 UnusedSector ┆O BE INCLUDED IN SYSTEM (XPD= PROCLENGTH, DRIVERLENGTH, OR ; CATALOGLENGTH). ; ; FP/780523 ; MESSAGE <:CALL: S8MXD1, 780523:> ┆
0x1c580…1c600 UnusedSector ┆ IF XPD NE PROCLH AN XPD NE DRIVEH AN XPD NE CATALH THEN MESSAGE <:*** WRONG SYSTEM FILE USAGE ***:> FI USE BASE LOC=BASE XSTA┆
0x1c600…1c680 UnusedSector ┆TE 0,0,0 XSIZE 0 XKIND XNAME: XNAME0 IF NAMELENGTH GT 1 THEN XNAME1 IF NAMELENGTH GT 2 THEN XNAME2 IF NAMELENGTH GT 3 THEN┆
0x1c680…1c700 UnusedSector ┆ 0 REPEAT NAMELENGTH-3-1 FI FI FI IF LOC-XNAME NE NAMELENGTH THEN MESSAGE <:ERROR: XNAME LENGTH:> FI XIDENT 0,0 IF LOC NE PRO┆
0x1c700…1c780 UnusedSector ┆C THEN MESSAGE <:ERROR: XPROC LOCATION:> FI 0 REPEAT 7 ; REGISTERS XCBASE XCBASEMOD XPROGRAM XPRPC XTIMER XPSW XOLDPROC ┆
0x1c780…1c800 UnusedSector ┆ XLOCACTION XLOCRETURN XCAUSE XDEVPR XPRESET 0 REPEAT 12 ; TIME0 - FREEAREAS #FFFF XERROR XWARNING XTERMINATE 0 REPEAT┆
0x1c800…1c880 UnusedSector ┆ 3 ; PRICHN - ADJUST XREFSX XBUFSX XREFS=0 XBUFS=1 0 REPEAT 20 ; RESTING - SAVE19 XWRK: 0 REPEAT CONTLENGTH-1 IF LOC-XWRK ┆
0x1c880…1c900 UnusedSector ┆NE CONTLENGTH THEN MESSAGE <:ERROR: XWRK LENGTH:> FI LOC= LOC-C IF LOC NE PROCLENGTH-C THEN MESSAGE <:ERROR: XPROC LENGTH:> FI ┆
0x1c900…1c980 UnusedSector ┆IF XPD GT PROCLENGTH THEN XRESERVER XDEVICE XINTERRUPT IF LOC NE DRIVERLENGTH-C THEN MESSAGE <:ERROR: XDRIVER LENGTH:> FI IF┆
0x1c980…1ca00 UnusedSector ┆ XPD GT DRIVERLENGTH THEN 0 REPEAT 2 ; ESPECIAL - CATALOG IF LOC NE CATALOGLENGTH-C THEN MESSAGE <:ERROR: XCATALOG LENGTH:> FI ┆
0x1ca00…1ca80 UnusedSector ┆ FI FI XLOC= LOC MESSAGE <:CALL OLTDAT:> ;;---------------------------------------------------------------------- ; ; TEST FI┆
0x1ca80…1cb00 UnusedSector ┆LE DECLARATION NAMES TABLE FOR OLTO MESSAGE <:OLTO V790615:> ; ; A TEST FILE DECLARATION CONTAINS 4 PARAMETERS (=4 WORDS): ; FI┆
0x1cb00…1cb80 UnusedSector ┆LE PARAMETER 1: BIT USE ; 0-4 NUMBER OF RECORDS ; 5-11 LENGTH-1 OF EACH RECORD (WDS) ; 12 DATATYPE: 1=ASCII, 0=BINARY ; 13 NOT U┆
0x1cb80…1cc00 UnusedSector ┆SED ; 14-15 FILE TYPE: ; 0=ABSOLUTE ADDRESSED FILE ; 1=PROCESS RELATIVE ADDRESSED FI ; 2=BUFFER QUEUE ; 3= INDEX FILE ; ;-------┆
0x1cc00…1cc80 UnusedSector ┆--------------------------------------------------------------- IF NT SYS2 THEN OLTO:= 255 ; OLTO CALL ENTRY FI RCCNMS:= 0 ; STA┆
0x1cc80…1cd00 UnusedSector ┆RT BIT POSITION OF RECORD NUMBERS FILED RCLGTS:= 5 ; START BIT POSITION OF RECORD LENGTH-1 FILED ASCDAT:= 1<12 ; DATA TYPE = ASC┆
0x1cd00…1cd80 UnusedSector ┆II BINDAT:= 0<12 ; DATA TYPE = BINARY ABSFIL:= 0<14 ; ABSOLUTE FILE RELFIL:= 1<14 ; RELATIVE FILE BUFQUE:= 2<14 ; BUFFER QUEUE I┆
0x1cd80…1ce00 UnusedSector ┆NXFIL:= 3<14 ; INDEX FILE SMXS:= 8 ; START BIT POSITION OF SUBMODULE INDEX TPLS:= 12 ; START BIT POSITION OF TEST POINT LEVEL ;-┆
0x1ce00…1ce80 UnusedSector ┆--------------------------------------------------------------------- MESSAGE <:CALL ISBDAT:> ;; 00000972 0 0000 LEVEL 1 NAMES: ┆
0x1ce80…1cf00 UnusedSector ┆ CR2A3= #0008 CRFF= #0000 AX= #0002 CR1AF= #0006 CR2AF= #0007 BUFWDS= #0001 CR23= #0004 CR0F= #0001 CR1F= #0002 CR2F= #┆
0x1cf00…1cf80 UnusedSector ┆0003 USE BASE LOCLHR:= #7403 OCTSS:= #0087 QWDOP1:= #0051 ILLPAR:= #0005 LONGBR:= #0000 QUEHDL:= #000F ONDREM:= #0004 LN┆
0x1cf80…1d000 UnusedSector ┆CLAS:= #0057 OCLHRM:= #0077 OCASTB:= #007D REVLCH:= #0084 CRMFIS:= #0002 LSTAWS:= #0007 QWDOP2:= #0053 QNCNFO:= #0060 ON┆
0x1d000…1d080 UnusedSector ┆DS1:= #0064 CLTUST:= #0004 MFLOFR:= #0010 OCREON:= #007B TCTR:= #0001 LNMSST:= #0061 CMFSTA:= #0007 CRNXTY:= #0003 QTMXO┆
0x1d080…1d100 UnusedSector ┆P:= #0035 QOLDER:= #006E INITPB:= #00F5 ONDRCR:= #0001 CMFACC:= #0002 OCDSTB:= #007C OCTSW:= #0086 CRTST:= #0008 QLHDOP:┆
0x1d100…1d180 UnusedSector ┆= #0066 OLDERR:= #00E3 SIZTMR:= #0006 LGTTST:= #06F0 LTUCO2:= #0003 CLTUP1:= #0001 CRNXID:= #0002 AFEPS:= #0005 QOPOR1:=┆
0x1d180…1d200 UnusedSector ┆ #0054 PROBQE:= #00F6 ONDERR:= #003C LTU48:= #000A CLTUP2:= #0002 OCTELK:= #000A CRTSTS:= #0004 QOPOR2:= #0056 QTLSTL:= ┆
0x1d200…1d280 UnusedSector ┆#005E LOCTEL:= #5283 LOCDTM:= #66D3 LNMAXC:= #0065 MFTLLD:= #0012 OCCLOS:= #0071 QOPOR3:= #0057 ONDDTK:= #0035 LNCLDW:= ┆
0x1d280…1d300 UnusedSector ┆#0056 LTUX25:= #0002 MFCLOS:= #0004 MFPCKS:= #0006 QCTR1:= #002C QOPOR4:= #0058 QBUSY:= #0003 TYPSTA:= #0002 RLTUTL:= #0┆
0x1d300…1d380 UnusedSector ┆017 CRSTWS:= #0001 LHPCKS:= #0005 PRI0:= #0000 CRTSBF:= #0000 LGTOLD:= #0670 LGTSCH:= #00E0 MFLOG:= #0010 OCMFTM:= #0076┆
0x1d380…1d400 UnusedSector ┆ MSGTXT:= #0001 MSGID:= #0004 MSGOLD:= #0007 MSGSCH:= #000A PRI1:= #0001 TINZ:= #0004 LGTWDD:= #0700 LGTBQM:= #05E0 LOC┆
0x1d400…1d480 UnusedSector ┆CTR:= #2F53 LNCLRM:= #0058 MSGWDD:= #0012 QOLTX:= #0071 LOCTIM:= #90F3 ONDCOU:= #0003 MFLFR:= #0021 OCFEP1:= #0078 AUX:=┆
0x1d480…1d500 UnusedSector ┆ #0075 COPYBK:= #00F9 LHSINK:= #0000 LTU300:= #0002 LTU120:= #0004 RLTUTP:= #0014 CMFDIC:= #0003 OCFEP2:= #0079 ONDWDN:=┆
0x1d500…1d580 UnusedSector ┆ #0004 OCDOWN:= #0005 QTELLH:= #0030 QNCNFT:= #0061 PTYPE0:= #0000 TYPCHA:= #FFFE TMF1:= #0002 LOCXCR:= #57D3 LTU320:= #┆
0x1d580…1d600 UnusedSector ┆0009 MFDOWN:= #0007 MFTHDW:= #0009 CRSGNN:= #0005 MSGREM:= #0001 QOCIN:= #0026 QTLFDP:= #004C QOLDWD:= #005B QWDOLD:= #0┆
0x1d600…1d680 UnusedSector ┆05C PTYPE1:= #0001 FPX25E:= #0002 LOCPFX:= #9F83 ONDWDP:= #0003 LHQFUL:= #0001 LTU150:= #0001 LTU600:= #0003 LTU240:= #0┆
0x1d680…1d700 UnusedSector ┆005 MFRGO:= #0026 MSGS1:= #0017 PTYPE2:= #0002 GETQUE:= #0004 TCTX:= #0005 LGTLHR:= #0B20 ONDMFY:= #0032 MFERR:= #0040 ┆
0x1d700…1d780 UnusedSector ┆MSGLHR:= #0009 PTYPE3:= #0003 CRTPDP:= #0002 TX25:= #0007 FPTERM:= #0024 MFINPT:= #0001 FPDOWN:= #0000 LOCINZ:= #6283 QT┆
0x1d780…1d800 UnusedSector ┆ELIP:= #002E QLHDOW:= #0043 THRHG:= #000A LOCCM1:= #46D3 ONDXER:= #0005 LTU190:= #0008 CLTULD:= #0022 OCTEL:= #0093 QXCL┆
0x1d800…1d880 UnusedSector ┆HP:= #006B GETINX:= #00F7 WRITED:= #00E6 LOCCM2:= #4EB3 ONDSTA:= #0007 LNPLSA:= #0060 MFCNT:= #0003 CMER:= #0001 LTU480:┆
0x1d880…1d900 UnusedSector ┆= #0006 MFZZFD:= #0002 TYPXOP:= #0000 LOCMF1:= #6B43 CLTUCP:= #0005 OCTLAX:= #0094 READBK:= #00EC HOME:= #00E9 NOPCK:= #┆
0x1d900…1d980 UnusedSector ┆0006 LGTTEL:= #0550 LGTDTM:= #0470 LOCOLT:= #2AE3 LOCMF2:= #71E3 LNTMDN:= #005D MFLSNM:= #0004 OCSDSP:= #0089 MSGDTM:= #┆
0x1d980…1da00 UnusedSector ┆0008 MSGTEL:= #000E QSDESL:= #0065 FPCLUS:= #0004 LNCLUP:= #0055 LTU960:= #0007 RLTUTT:= #0016 MFNULL:= #0023 OCFEU1:= #┆
0x1da00…1da80 UnusedSector ┆0008 FPWORG:= #0002 BUFSHT:= #0001 LOCX25:= #B763 OCFEU2:= #0009 OCIMAC:= #000D CRUMF:= #0006 PORT1:= #0001 LNTLDR:= #00┆
0x1da80…1db00 UnusedSector ┆64 MFRET:= #0003 MFINT:= #0006 QTLFDT:= #004B PORT2:= #0002 LGTCTR:= #1780 LOCTMR:= #5083 LTURED:= #0000 MFCODE:= #0000 ┆
0x1db00…1db80 UnusedSector ┆ MSGCTR:= #0002 ILLOP:= #0000 SIZSTT:= #0014 PORT3:= #0003 LGTTIM:= #0120 LNDOWN:= #0052 CMFRSV:= #0006 RMUDTE:= #0080 M┆
0x1db80…1dc00 UnusedSector ┆SGTIM:= #0004 QCSPOL:= #0062 BACKSC:= #00EA PORT4:= #0004 ONDER1:= #003D LDENDI:= #0004 MSGRET:= #0002 QOCOP:= #0027 QDS┆
0x1dc00…1dc80 UnusedSector ┆POL:= #004E TERMPK:= #00F2 GETPOS:= #00E8 LOWTHD:= #0014 FPX25M:= #000A ONDER2:= #003E QTMCOP:= #0024 QX25DN:= #004A REA┆
0x1dc80…1dd00 UnusedSector ┆DCR:= #00EE CMOK:= #0000 LGTXCR:= #04D0 ONDER3:= #003F LHCNFG:= #0002 MFABC:= #0027 MSGXCR:= #000D QTELOP:= #002F FORWSC┆
0x1dd00…1dd80 UnusedSector ┆:= #00EB TLTX:= #0006 LGTPFX:= #0B10 LHXFR:= #0004 MFRECF:= #0028 MSGPFX:= #0013 QMF1IN:= #0028 QX25DP:= #0048 COPYPK:= ┆
0x1dd80…1de00 UnusedSector ┆#00FA WRTYP:= #0001 UPPTHD:= #001E TYPXOS:= #0004 ONDTRP:= #0001 LNTMAS:= #005A OCIMIC:= #0001 MSGDRY:= #0000 QMF2IN:= #┆
0x1de00…1de80 UnusedSector ┆002A QFDDCR:= #004D QILTXD:= #006F WRITEK:= #00E5 SHORTF:= #0004 SIZMEN:= #0064 TLHD:= #0006 MFLACK:= #0022 MSGOPR:= #00┆
0x1de80…1df00 UnusedSector ┆00 MSGSTA:= #0001 TCMI:= #0003 LGTINZ:= #0450 MFLSN:= #0005 OCNO:= #0073 MSGINZ:= #0001 LGTCM1:= #07E0 CLTULN:= #0021 O┆
0x1df00…1df80 UnusedSector ┆CAUX:= #0092 MSGCM1:= #000B LGTCM2:= #01D0 LDLTUN:= #0002 LNRASS:= #0053 CLTUGS:= #0001 CLTUCW:= #0006 MFLTO:= #0021 MFA┆
0x1df80…1e000 UnusedSector ┆BI:= #0008 OCXSTA:= #0085 MSGCM2:= #000C MSGSTD:= #0001 QX25IP:= #0040 TRANSK:= #00F0 LOCOTS:= #AA93 LDCFSE:= #000C CLTU┆
0x1e000…1e080 UnusedSector ┆GT:= #0000 CLTULP:= #0020 MFXDAA:= #0031 OCMFAL:= #0072 OCSSPL:= #0088 OCWDSS:= #008A TFEPS:= #0004 QCTRIX:= #0042 FPCDA┆
0x1e080…1e100 UnusedSector ┆T:= #00C8 LGTMF1:= #06A0 LDLTUP:= #0003 LNEUP:= #0051 CLTUON:= #0007 MFTNO:= #0001 OCYES:= #0074 ASGNDE:= #007F OCM1DW:=┆
0x1e100…1e180 UnusedSector ┆ #008B OCFEAT:= #0007 MSGNO:= #0002 MSGMF1:= #0005 QTMRIP:= #0059 SETTHL:= #0006 LGTMF2:= #0220 LGTOLT:= #0470 LTULOF:= ┆
0x1e180…1e200 UnusedSector ┆#0003 MFSOP:= #0024 OCM2DW:= #008C MSGMF2:= #0006 MSGWDS:= #0002 WRITER:= #00E7 TYPDAS:= #0005 TYPSTS:= #0006 LNCODE:= #┆
0x1e200…1e280 UnusedSector ┆0000 LTU0:= #0000 MFOPT:= #0020 OCFEDS:= #008E OCCONC:= #0090 RESUMK:= #00F1 TYPDAT:= #0001 LGTX25:= #1000 LOCLHD:= #ABC┆
0x1e280…1e300 UnusedSector ┆3 LNPLSP:= #005F CLTUPP:= #0003 RLTUCN:= #0013 CMFCON:= #0001 OCDISC:= #0075 OCSTOP:= #0001 FPSTAY:= #0001 MSGX25:= #001┆
0x1e300…1e380 UnusedSector ┆1 LOCCMI:= #86F3 LNTMRM:= #005B IPCBSE:= #0014 MSGPNT:= #0000 MAXTYE:= #0008 LGTTMR:= #0200 RLTUCP:= #0012 MFHSZ:= #0006┆
0x1e380…1e400 UnusedSector ┆ MSGTMR:= #000F QTMIN:= #0025 CONNEE:= #00F4 NEXTPK:= #00F3 READWD:= #00ED LONGBF:= #0000 ONDCHM:= #0033 LHDRCL:= #0001 ┆
0x1e400…1e480 UnusedSector ┆ LHCNFN:= #0003 OCMINC:= #0070 OCFEDW:= #008D CRCUTY:= #0000 MSGTRN:= #0004 TYPPCK:= #FFFF LHNOCF:= #0000 CRDISD:= #0004 ┆
0x1e480…1e500 UnusedSector ┆ MSGWDY:= #0003 QTMLOP:= #0000 QCNVI1:= #0031 LNSTAS:= #0063 MFINPA:= #0011 MFXCFF:= #0030 OPENDE:= #0081 CRCUID:= #0001 ┆
0x1e500…1e580 UnusedSector ┆ MSGTRP:= #0005 QMF1OP:= #0029 QCNVI2:= #0032 SIZMAX:= #05DC TOLD:= #0008 TSCH:= #0000 ONDTRW:= #0002 LHCOPF:= #0002 MFX┆
0x1e580…1e600 UnusedSector ┆DFF:= #0031 RECSIE:= #000A QMF2OP:= #002B QWDIN1:= #0050 TWDD:= #0009 LHCNFR:= #0005 QWDIN2:= #0052 QILTXM:= #0070 CRTQU┆
0x1e600…1e680 UnusedSector ┆P:= #0003 FPLINE:= #0004 PRGSTP:= #C763 LDLTUS:= #0001 CLTUTL:= #0024 QX25OP:= #003F QXSLHP:= #006D QCNT:= #0075 TFLP:= ┆
0x1e680…1e700 UnusedSector ┆#000B ISBSV:= #0000 LOCTST:= #8003 LNAUX:= #005E LNSTAW:= #0062 QCTROX:= #0041 QNCNFI:= #005F OVFL:= #0002 TYPHLP:= #000┆
0x1e700…1e780 UnusedSector ┆3 QTMROP:= #005A QLHDIN:= #006A REGREK:= #00EF SHORTR:= #0001 PACKET:= #0002 LLCFSE:= #0008 CLTUOT:= #0008 CLTULW:= #002┆
0x1e780…1e800 UnusedSector ┆3 OCTELB:= #008F OCTLFA:= #000B CLTUPT:= #0002 CLOSDE:= #0082 OCTLFB:= #000C QLHDIP:= #0047 MAXCMD:= #0007 TLHR:= #0000 ┆
0x1e800…1e880 UnusedSector ┆ LGTOTS:= #0130 LDFIRR:= #0000 LNCLRA:= #0059 LTULON:= #0004 OCMAXC:= #0096 OCABRT:= #0006 TDOWN:= #0009 MSGCMD:= #0001 ┆
0x1e880…1e900 UnusedSector ┆QIPOR1:= #0055 LOCSCH:= #7F23 LOCOLD:= #9213 OCSEND:= #0070 OCDEMT:= #0095 OCM1UP:= #0003 CRCMF:= #0007 MSGSTP:= #0002 Q┆
0x1e900…1e980 UnusedSector ┆CDESL:= #0064 PCBLGT:= #0023 LOCBQM:= #5CA3 LOCWDD:= #9883 LNTEXT:= #0050 LNTMUP:= #005C RLTUTD:= #0015 MFINB:= #0025 OC┆
0x1e980…1ea00 UnusedSector ┆TELF:= #007A ASGNLH:= #0083 OCSTRT:= #0091 OCM2UP:= #0004 QDDESL:= #004F CONNEK:= #00F3 CRTLBF:= #0001 LNCHLN:= #0054 RL┆
0x1ea00…1ea80 UnusedSector ┆TULN:= #0011 OCXCMD:= #007E QTLCFD:= #005D VPOOL:= #00FB LGTLHD:= #0BA0 ONDTXT:= #0006 MFXCMD:= #0030 MSGLHD:= #0010 QCT┆
0x1ea80…1eb00 UnusedSector ┆RBC:= #002D QCNVO1:= #0033 QSSPOL:= #0063 STORET:= #00E4 LGTCMI:= #0A00 ONDLIK:= #0034 ONDBQM:= #0065 LNMINC:= #0050 RLT┆
0x1eb00…1eb80 UnusedSector ┆ULP:= #0010 MFLINK:= #0029 CMFRES:= #0004 MSGCMI:= #0003 QCNVO2:= #0034 THRLW:= #0005 LTUWRE:= #0004 MFRECT:= #0005 CMFR┆
0x1eb80…1ec00 UnusedSector ┆ET:= #0005 EDITPK:= #00F8 TDTM:= #000A OCFEUP:= #0002 RDTYP:= #0000 INVQU:= #0004 PUTQUE:= #0005 MAXREE:= #0003 TYPHLS:=┆
0x1ec00…1ec80 UnusedSector ┆ #0007 USE #0 MESSAGE <:CALL ICLERR:> ; ;---------------------------------------------------------------------- ;--------------┆
0x1ec80…1ed00 UnusedSector ┆-------------------------------------------------------- ;MODULE IDENTIFICATION: ICL-ISB/ICLERR/200 ;DATED 790731/PSC ;VERSION: ┆
0x1ed00…1ed80 UnusedSector ┆01 ;---------------------------------------------------------------------- ; ;THIS MODULE WILL RESERVE A COMMON AREA IN EACH SOF┆
0x1ed80…1ee00 UnusedSector ┆TWARE MODULE FOR ;USE BY THE MONITOR FUNCTION :ERROR,WHICH IS PART OF THE ON LINE ;DIAGNOSTIC SOFTWARE MODULE. ; 0,REPEAT(CAT┆
0x1ee00…1ee80 UnusedSector ┆ALOGLGTH-LOC) ERRPCB: 0 ; SAVE AREA FOR PCB REPEAT(PCBLGT-1) ; ERRSV1: XDATE ; SAVE AREA ERRSV2: 0 ; SAVE AREA ERRSV3: 0 ; SAVE┆
0x1ee80…1ef00 UnusedSector ┆ AREA ERRSV4: 0 ; SAVE AREA ERRSV5: 0 ; SAVE AREA ERRSV6: 0 ; SAVE AREA ERRSV7: 0 ; SAVE AREA LIST ISTOEB=TRUE ;ISO TO EBCIDIC ┆
0x1ef00…1ef80 UnusedSector ┆CONVERSION ENALBED ISTOEB=FALSE ;ISO TO EBCIDIC CONVERSION DISENABLED RTG: 0 CCWD: 0 ; "CC" CODE MESSCNT: 0 ; NUMBER OF MESSAGES┆
0x1ef80…1f000 UnusedSector ┆ SENT CTRWAIT: 5 ; DELAY TIME ISTRLH: 0 ; INPUT Q FROM MF CMIRD: 0 ; INPUT QU FROM CMI OSTRCT: 0 ; OUTPUT Q TO MF XQUEL=LOC-ISTR┆
0x1f000…1f080 UnusedSector ┆LH R1GEM: 0 R2GEM: 0 R3GEM: 0 R4GEM: 0 R5GEM: 0 STCPTR: 0,REPEAT 5 PCBIP: 0,REPEAT (PCBLGT-1) ; INPUT Q PCB PCBOP: 0,REPEAT (PCB┆
0x1f080…1f100 UnusedSector ┆LGT-1) ; OUTPUT Q PCB CTRJMP: 0 ; JUMP TABLE ENTRY MSG01: #00F0,#F0F0,#E9E9, #0021,#D5D5,#D5D5, 0,REPEAT 16 MSG01L=LOC-MSG01 M┆
0x1f100…1f180 UnusedSector ┆SG02: #00F4,#0001,#E9E9, #001E,#D5D5,#D5D5, 0,REPEAT 14 MSG02L=LOC-MSG02 MSG03: #00C2,#0001,#E9E9, #000E,#D5D5,#D5D5, 0,REPE┆
0x1f180…1f200 UnusedSector ┆AT 6 MSG03L=LOC-MSG03 MSG04: #0009,#0001,#E9E9, #000E,#D5D5,#D5D5, 0,REPEAT 6 MSG04L=LOC-MSG04 MSG05: #000A,#0000,#E9E9, #000┆
0x1f200…1f280 UnusedSector ┆A,#D5D5,#D5D5, #F0F0,#C3C3,#C3C2, #C200,#FFFF MSG05L=LOC-MSG05 ; TXT01: <:Z0050CCCBBINPUT FROM TERMINAL 00.:> TXT01L=LOC-TXT01┆
0x1f280…1f300 UnusedSector ┆ TXT02: <:Z400099998CONFIG FILE VERSION.:> TXT02L=LOC-TXT02 TXT03: <:ZB000999980002:> ; NETWORK CLOSED DOWN TXT03L=LOC-TXT03 TXT┆
0x1f300…1f380 UnusedSector ┆04: <:ZB000999980003:> ; THIS M/F DOWN TXT04L=LOC-TXT04 0,REPEAT 31 ; SPARE FOR LATER USE ; ;----------------------------------┆
0x1f380…1f400 UnusedSector ┆------------------------------------- ;----------------------------------------------------------------------- FILDEC1: RELFIL O┆
0x1f400…1f480 UnusedSector ┆R ASCDAT OR((SIZMEAN-1)/4)<RCLGTS OR 4 OSTRCT <:QCTR:> ; FILDEC3: RELFIL OR BINDAT OR (1-1)<RCLGTS OR XQUEL ISTRLH <:QMF1:> T┆
0x1f480…1f500 UnusedSector ┆T:=BUFQUE OR BINDAT OR (BUFWDS-1)<RCLGTS OR 1 PFQ1: TT 0 <:QUE1:> USE PROG TPOS:=1<TPLS OR TCTR<SMXS ; ;---------------------┆
0x1f500…1f580 UnusedSector ┆-------------------------------------------------- ;----------------------------------------------------------------------- ; ; ┆
0x1f580…1f600 UnusedSector ┆CONVERSION TABLE ISO => EBCIDIC. ; -------------------------------- ; ; THE TABLE CONSISTS OF 8 ENTRIES OF 16 WORDS. ; THE LEAST┆
0x1f600…1f680 UnusedSector ┆ SIGNIFICANT 7 BITS OF THE ISO CHARACTER ARE ; USED FOR THE CONVERSION. THE 3 MOST SIGNIFICANT BITS ; ARE USED TO ADDRESS ONE OF┆
0x1f680…1f700 UnusedSector ┆ 0-7 ENTRIES, ; WHILEST THE REMAINING 4 BITS ARE USED TO ADDRESS ; ONE OF 0-15 WORDS WITHIN THE ENTRY. ; THE ADDRESSED WORD IS T┆
0x1f700…1f780 UnusedSector ┆HE MATCHING EBCIDIC CHARACTER. ; CONVITE: ;ENTRY 0 #3F,#3F,#3F,#3F,#3F,#3F,#3F,#2F #16,#05,#15,#0B,#0C,#0D,#0E,#0F ;ENTRY 1 #3F,┆
0x1f780…1f800 UnusedSector ┆#11,#12,#13,#3C,#3F,#32,#26 #18,#19,#1A,#27,#1C,#1D,#1E,#1F ;ENTRY 2 #40,#4F,#7F,#7B,#5B,#6C,#50,#7D #4D,#5D,#5C,#4E,#6B,#60,#4B┆
0x1f800…1f880 UnusedSector ┆,#61 ;ENTRY 3 #F0,#F1,#F2,#F3,#F4,#F5,#F6,#F7, #F8,#F9,#7A,#5E,#4C,#7E,#6E,#6F ;ENTRY 4 #7C,#C1,#C2,#C3,#C4,#C5,#C6,#C7 #C8,#C9,┆
0x1f880…1f900 UnusedSector ┆#D1,#D2,#D3,#D4,#D5,#D6 ;ENTRY 5 #D7,#D8,#D9,#E2,#E3,#E4,#E5,#E6 #E7,#E8,#E9,#4A,#E0,#5A,#5F,#6D ;ENTRY 6 #79,#81,#82,#83,#84,#8┆
0x1f900…1f980 UnusedSector ┆5,#86,#87 #88,#89,#91,#92,#93,#94,#95,#96 ;ENTRY 7 #97,#98,#99,#A2,#A3,#A4,#A5,#A6 #A7,#A8,#A9,#C0,#6A,#D0,#A1,#3F ; IF CONVITE+┆
0x1f980…1fa00 UnusedSector ┆(8*#10) NE LOC THEN MESSAGE <:ITE TABLE LAYOUT ERROR:> FI ;---------------------------------------------------------------------┆
0x1fa00…1fa80 UnusedSector ┆-- ;----------------------------------------------------------------------- ;---------------------------------------------------┆
0x1fa80…1fb00 UnusedSector ┆-------------------- ; JUMP TABLE. ; LSTART: START LCONVE: CONVE LLOOP1: LOOP1 LQUERR: QUERR LPNTQ: PNTQ LMESS1: MESS1 LMESS2: M┆
0x1fb00…1fb80 UnusedSector ┆ESS2 LMESS3: MESS3 LMESS4: MESS4 LMESS5: MESS5 LSENDQ: SENDQ LMAINLOOP: MAINLOOP LSENDMESS: SENDMESS ;--------------------------┆
0x1fb80…1fc00 UnusedSector ┆--------------------------------------------- ;S T A R T . ;------------ ; START: MON OLTO,TPOS OR 0,0 MOVC STCPTR R0 MON WAI┆
0x1fc00…1fc80 UnusedSector ┆TEVENT JMPI S4 LSTART MOV MSGID. X7 R4 SEQ R4 MSGINZ ; IF NOT INZTHEN JMPI S4 LSTART MON SENDANSWEAR MOV MSGNO. X7 R3 ; PO┆
0x1fc80…1fd00 UnusedSector ┆INTER TO TABLE MON OLTO,TPOS OR 240 ,0 MODN CBASE-C MOV FPCDAT R5 ; SUB CBASE-C R5 MOV QMF1IN.X5 R3 ; LOGICAL QUE NO MOV R┆
0x1fd00…1fd80 UnusedSector ┆3 OSTRCT MOV QMF1OP.X5 R3 ; LOGICALL Q NO. FOR OUTPUT MOV R3 ISTRLH MOV R0 R4 MOV CTRWAIT R0 ; FETCH DELAY MON WAITDELAY M┆
0x1fd80…1fe00 UnusedSector ┆OV R4 R0 ;----------------------------------------------------------------------- ; ;THE MESSAGES ARE SET UP BY CONVERTING THE T┆
0x1fe00…1fe80 UnusedSector ┆EXT PART ; INTO EBCIDIC,AND PLACING THE EBCIDIC CHARACTER ; INTO THE MESSAGE AREA.A JUMP IS PERFORMED TO "CONVE" ; WITH THE FOLL┆
0x1fe80…1ff00 UnusedSector ┆OWING PARAMETERS: ; R7 = MESSAGE ADDRESS ; R4 = TEXT ADDRESS ; R3 = TEXT LENGTH ; R6 = RETURN LINK. ; ;-------------------------┆
0x1ff00…1ff80 UnusedSector ┆------------------------------------------------------ ; MOVC MSG01 R7 MOVC TXT01 R4 MOVC TXT01L<1 R3 ; *2 = BYTES JMPI S6 L┆
0x1ff80…20000 UnusedSector ┆CONVE MOVC MSG02 R7 MOVC TXT02 R4 MOVC TXT02L<1 R3 ; *2 = BYTES JMPI S6 LCONVE MOVC MSG03 R7 MOVC TXT03 R4 MOVC TXT03L<1 ┆
0x20000…20080 UnusedSector ┆R3 ; *2 = BYTES JMPI S6 LCONVE MOVC MSG04 R7 MOVC TXT04 R4 MOVC TXT04L<1 R3 ; *2 = BYTES JMPI S6 LCONVE ;------------------┆
0x20080…20100 UnusedSector ┆----------------------------------------------------- MAINLOOP: LOOP1: MOV RTG R1 ; IEQ R1 #26 ; IF R1 NE #26 THEN JMPI LSEND┆
0x20100…20180 UnusedSector ┆MESS ; SEND MESSAGE 1. MOVC TYPCHA R3 MOV ISTRLH R5 ; Q FROM MF1 MON PROBQUE JMPI S4 LSTART IEQ R3 0 ; IF NO DATA THEN JMP┆
0x20180…20200 UnusedSector ┆I LLOOP1 ;----------------------------------------------------------------------- ;---------------------------------------------┆
0x20200…20280 UnusedSector ┆-------------------------- ; ; P R I N T Q U E S U B R O U T I N E . ; ; REGISTER CALL EXIT ; R4 LINK LINK ; R5 QUE ;-----------┆
0x20280…20300 UnusedSector ┆------------------------------------------------------------ ;------------------------------------------------------------------┆
0x20300…20380 UnusedSector ┆----- PNTQ: STC R4 X0 MOV R5 PFQ1+1 ; SAVE QUE FOR OLTO MON OLTO,TPOS OR 100,PFQ1 ; USED BY OLTO TO PRINT Q MOVC RDTYP R3 ┆
0x20380…20400 UnusedSector ┆; READTYPE MOVC PCBIP R4 ; INPUT Q PCB MON INITPCB JMPI& LQUERR MOV R5 R3 MON CONNECTQUE JMPI& LQUERR MON CONNECTPACK JM┆
0x20400…20480 UnusedSector ┆PI& LQUERR MON READWORD JMPI& LQUERR MOV R3 R1 ; "CC" CODE MOV R1 CCWD ; SAVE "CC" CODE MON TERMPACK JMPI& LQUERR IEQ R1 ┆
0x20480…20500 UnusedSector ┆#29 ; LINK OPEN JMPI LMESS5 IEQ R1 #26 ; READY TO GO MOV R1 RTG IEQ R1 #F4 ; TP FILE VERSION NO JMPI LMESS2 UNS R4 X0 ; UN┆
0x20500…20580 UnusedSector ┆STACK SAVED REGISTERS. JMPI LLOOP1 ;FF ;------------------------------------------------------------------------------- ;----┆
0x20580…20600 UnusedSector ┆--------------------------------------------------------------------------- ;PROCEDURE TO SEND A PACKET. ;R1 MSGNO ;R2 MSGLGT ;R┆
0x20600…20680 UnusedSector ┆3 TYPE ;R4 LINK LINK ;R5 QUE ;------------------------------------------------------------------------------- SENDQ: STC R4 X0 ┆
0x20680…20700 UnusedSector ┆ MOV R1 R1GEM ; MESSAGE MOV R2 R2GEM ; MESSAGE LENGTH MOV R3 R3GEM ; TYPDAT MOV R5 R5GEM ; OUTPUT QUE MOVC PRI0 R1 MOVC SIZ┆
0x20700…20780 UnusedSector ┆MEAN R2 MOVC WRTYP R3 MOVC PCBIP R4 MON INITPCB JMPI& LQUERR MOV R5 R3 MOV R3 PFQ1+1 ;SAVE ABS POINTER FOR OLTO MON OLTO,┆
0x20780…20800 UnusedSector ┆TPOS OR 2,0 ; PRINT LTN,XQUEP MON CONNECTQUE JMPI& LQUERR MOV R3GEM R3 ; TYPDAT MON CONNECTPACK JMPI& LQUERR MOV R2GEM R2 ┆
0x20800…20880 UnusedSector ┆ SLL R2 1 ; X 2 MOV R1GEM R3 MON WRITEBLOCK JMPI& LQUERR MON TERMPACK JMPI& LQUERR MON OLTO,TPOS OR 4,PFQ1 ; PRINTQUE UNS┆
0x20880…20900 UnusedSector ┆ R4 X0 JMP X4 ; END ;----------------------------------------------------------------------- ; ; S E N D M E S S A G E U . ; ;-┆
0x20900…20980 UnusedSector ┆---------------------------------------------------------------------- ; SENDMESS: MOVC 100 R0 ; DELAY = U SECOND MON WAITDELA┆
0x20980…20a00 UnusedSector ┆Y MOVC 1 R1 MOVC MESSCNT R0 ADD R1 X0 MESS1: MOVC MSG01 R1 ; MESSAGE MOVC MSG01L R2 ; MESSAGE LENGTH MOVC TYPDAT R3 ; TYP┆
0x20a00…20a80 UnusedSector ┆DAT MOV OSTRCT R5 ; QUE JMPI S4 LSENDQ JMPI LMAINLOOP MESS2: MOVC MSG02 R1 ; MESSAGE MOVC MSG02L R2 MOVC TYPDAT R3 MOV OS┆
0x20a80…20b00 UnusedSector ┆TRCT R5 JMPI S4 LSENDQ JMPI LMAINLOOP MESS3: MOVC MSG03 R1 ; MESSAGE MOVC MSG03L R2 MOVC TYPDAT R3 MOV OSTRCT R5 JMPI S4 ┆
0x20b00…20b80 UnusedSector ┆LSENDQ JMPI LMAINLOOP MESS4: MOVC MSG04 R1 ; MESSAGE MOVC MSG04L R2 MOVC TYPDAT R3 MOV OSTRCT R5 JMPI S4 LSENDQ JMPI LMAI┆
0x20b80…20c00 UnusedSector ┆NLOOP MESS5: MOVC MSG05 R1 ; MESSAGE MOVC MSG05L R2 MOVC TYPDAT R3 MOV OSTRCT R5 JMPI S4 LSENDQ JMPI LMAINLOOP ;----------┆
0x20c00…20c80 UnusedSector ┆------------------------------------------------------------- ; ; SUBROUTINE TO CONVERT THE TEXT TO EBCIDIC.THE CONVERTED ; TEXT┆
0x20c80…20d00 UnusedSector ┆ IS THEN PLACED IN THE RELEVANT MESSAGE. ; ; REGISTER CALL EXIT ; R3 CHARACTER COUNT 0 ; R4 TEXT ADDRESS TEXTADD+COUNT ; R6 LINK┆
0x20d00…20d80 UnusedSector ┆ LINK ; R7 MESSAGE ADDRESS MESSADD+COUNT ; ; REGISTER USE ; R2 PASSING/RECEIVING THE ISO/EBCIDIC CHTR ; R5 INDEX TO CONVERSION T┆
0x20d80…20e00 UnusedSector ┆ABLE ; ;----------------------------------------------------------------------- ;-----------------------------------------------┆
0x20e00…20e80 UnusedSector ┆------------------------ CONVE: ; CONVERT ISO => EBCIDIC MOVC 1 R1 ; SUBTRACTION CONSTANT ADDC 6 R7 ; POINT TO TEXT PART OF ME┆
0x20e80…20f00 UnusedSector ┆SSAGE SLL R7 1 ; *2 GIVES BYTE ADDRESS SLL R4 1 ; BYTE ADDRESS OF TEXT MORE: ; RETURN HERE TILL COUNT=0 MOVB X4 R2 ; GET ISO ┆
0x20f00…20f80 UnusedSector ┆CHTR IN TEXT IF ISTOEB EQ TRUE THEN XTR R2 7 ; DISCARD MOST SIG BIT MOV R2 R5 ; MOVE TO INDEX REG MVP CONVITE.X5 R2 ; EBCIDI┆
0x20f80…21000 UnusedSector ┆C CHTR FROM TABLE ELSE FI MOVB R2 X7 ; MOVE CHTR INTO MESSAGE SUB R1 R3 ; DECREMENT COUNT SNE R3 0 ; IF COUNT V 0 THEN JMP┆
0x21000…21080 UnusedSector ┆ X6 ; RETURN, ELSE ADDC 1 R7 ; INCREMENT MESSAGE AND ADDC 1 R4 ; TEXT ADDRESSES JMP MORE ; GO AND CONVERT ; REMAINING CHARAC┆
0x21080…21100 UnusedSector ┆TERS. LHR080: ; WRONG INZ ANSWEAR MON OLTO,TPOS OR 20,0 JMP LHR099 ; GO TO STOP LHR081: ; WRONG INZ/ID MON OLTO,TPOS OR 21,┆
0x21100…21180 UnusedSector ┆0 JMP LHR099 ; GO TO STOP QUERR: MON OLTO,TPOS OR 25,0 LHR099: ;STOP JMP LHR099 ; LOOP LIKE HELL. USE BASE XNAME0=<:CM:> XNAM┆
0x21180…21200 UnusedSector ┆E1=<:1:> XBUFS=2 XREFS=2 XPRPC=START NOLIST ; ; CR80 SYSTEM ONE ; MONITOR ; MASTER: XPD - PROCESS DESCRIPTION (PART 2) ; SHORTE┆
0x21200…21280 UnusedSector ┆NED VERSION, ONLY FOR USE IN CONNECTION WITH PROGRAMS ; TO BE INCLUDED IN SYSTEM (XPD= PROGLENGTH, DRIVERLENGTH, OR ; CATALOGLEN┆
0x21280…21300 UnusedSector ┆GTH). ; ; FP/780621 ; MESSAGE <:CALL: S8MXD2, 780621:> IF XPD NE PROCLH AN XPD NE DRIVEH AN XPD NE CATALH THEN MESSAGE <:*** W┆
0x21300…21380 UnusedSector ┆RONG SYSTEM FILE USAGE ***:> FI USE BASE XLOC= LOC-XLOC-C XSTATE= 0 XKIND= 0 XNAME0= 0 XNAME1= 0 XNAME2= 0 XIDENT= 0 XCB┆
0x21380…21400 UnusedSector ┆ASE= 0 XCBASEMOD= 0 XPRPC= 0 XTIMER= 100 XPSW= 0 XOLDPROC= 0 XLOCACTION= LOCACT XLOCRETURN= 0 XCAUSE= 0 XDEVPR= 0 XPRE┆
0x21400…21480 UnusedSector ┆SET= 100 XERROR= 0 XWARNING= 0 XTERMINATE= 0 XRESERVER= 0 XDEVICE= 0 XINTERRUPT= 0 IF XREFS EQ 0 THEN XREFSX=0 ELSE XRE┆
0x21480…21500 UnusedSector ┆FSX: IF XREFS GT 13 THEN XREFS=XREFS-13 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGT┆
0x21500…21580 UnusedSector ┆H-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT R┆
0x21580…21600 UnusedSector ┆EFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 R┆
0x21600…21680 UnusedSector ┆EPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-N┆
0x21680…21700 UnusedSector ┆EXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 FI XREFS=XR┆
0x21700…21780 UnusedSector ┆EFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0┆
0x21780…21800 UnusedSector ┆ THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFL┆
0x21800…21880 UnusedSector ┆ENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,L┆
0x21880…21900 UnusedSector ┆OC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 ┆
0x21900…21980 UnusedSector ┆REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 ┆
0x21980…21a00 UnusedSector ┆XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XR┆
0x21a00…21a80 UnusedSector ┆EFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REP┆
0x21a80…21b00 UnusedSector ┆EAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELS┆
0x21b00…21b80 UnusedSector ┆E 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH┆
0x21b80…21c00 UnusedSector ┆-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLE┆
0x21c00…21c80 UnusedSector ┆NGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 FI FI FI FI ┆
0x21c80…21d00 UnusedSector ┆FI FI FI FI FI FI FI FI FI FI IF XBUFS EQ 0 THEN XBUFSX=0 ELSE XBUFSX: IF XBUFS GT 13 THEN XBUFS=XBUFS-13 0,0,LOC+BUFLENGT┆
0x21d00…21d80 UnusedSector ┆H-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+B┆
0x21d80…21e00 UnusedSector ┆UFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,┆
0x21e00…21e80 UnusedSector ┆0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGT┆
0x21e80…21f00 UnusedSector ┆H-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT B┆
0x21f00…21f80 UnusedSector ┆UFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 FI XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,┆
0x21f80…22000 UnusedSector ┆LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0┆
0x22000…22080 UnusedSector ┆ REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 ┆
0x22080…22100 UnusedSector ┆ XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF X┆
0x22100…22180 UnusedSector ┆BUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 RE┆
0x22180…22200 UnusedSector ┆PEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 EL┆
0x22200…22280 UnusedSector ┆SE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGT┆
0x22280…22300 UnusedSector ┆H-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFL┆
0x22300…22380 UnusedSector ┆ENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS┆
0x22380…22400 UnusedSector ┆-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 TH┆
0x22400…22480 UnusedSector ┆EN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENG┆
0x22480…22500 UnusedSector ┆TH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 FI FI FI FI FI FI FI FI FI FI FI FI FI FI XSIZE= LOC-ITEM XPROGRA┆
0x22500…22580 UnusedSector ┆M= LOC USE PROG IF LOC+XSIZE NE WORDS THEN MESSAGE <:ERROR: LOC+XSIZE<>WORDS:> FI USE BASE LIST END 0 THEN 0 REPEAT BUFLENG┆
0x22580…22600 UnusedSector ┆FI FI FI FI FI FI FI FI FI FI FI FI FI FI XSIZE= LOC-ITEM XPROGRAM= LOC USE PROG IF LOC+XSIZE NE WORDS THEN MESSAGE <:ERR┆
0x22600…22680 UnusedSector ┆OR: LOC+XSIZE<>WORDS:> FI USE BASE LIST END 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 ┆
0x22680…22700 UnusedSector 0x1a[128]
[…0xcb…]
0x28c80…28d00 UnusedSector ┆. Z046D3 T49C7 P 46D0L 0000 0000 0000 0000 01AD 46D8L 0000 0000 4D43 0031 0000 0000 0000 0000 46E0L 0000 0000 0000 0000 0000 000┆
0x28d00…28d80 UnusedSector ┆0 0000 0000 46E8L 0000 0000 01A0 008D 0064 0000 0000 826F 46F0L 0000 0000 0000 0064 0000 0000 0000 0000 46F8L 0000 0000 0000 000┆
0x28d80…28e00 UnusedSector ┆0 0000 0000 0000 0000 4700L 0000 FFFF 0000 0000 0000 0000 0000 0000 4708L 0000 0186 018E 0000 0000 0000 0000 0000 4710L 0000 000┆
0x28e00…28e80 UnusedSector ┆0 0000 0000 0000 0000 0000 0000 4718L 0000 0000 0000 0000 0000 0000 0000 0000 4720L 0000 0000 0000 0000 0000 0000 0000 0000 4728┆
0x28e80…28f00 UnusedSector ┆L 0000 0000 0000 0000 0000 0000 0000 0000 4730L 0000 0000 0000 0000 0000 0000 0000 0000 4738L 0000 0000 0000 0000 0000 0000 0000┆
0x28f00…28f80 UnusedSector ┆ 0000 4740L 0000 0000 0000 0000 0000 0000 0000 0000 4748L 0000 0000 0000 0000 0000 0000 0000 0000 4750L 0000 0000 0000 0000 0000┆
0x28f80…29000 UnusedSector ┆ 0000 0000 0000 4758L 0000 0000 0000 1008 0000 0000 0000 0000 4760L 0000 0000 0000 0000 0000 0005 0000 0000 4768L 0000 0000 0000┆
0x29000…29080 UnusedSector ┆ 0000 0000 0000 0000 0000 4770L 0000 0000 0000 0000 0000 0000 0000 0000 4778L 0000 0000 0000 0000 0000 0000 0000 0000 4780L 0000┆
0x29080…29100 UnusedSector ┆ 0000 0000 0000 0000 0000 0000 0000 4788L 0000 0000 0000 0000 0000 0000 0000 0000 4790L 0000 0000 0000 0000 0000 0000 0000 0000 ┆
0x29100…29180 UnusedSector ┆4798L 0000 0000 0000 0000 0000 0000 0000 0000 47A0L 0000 0000 0000 0000 0000 0000 0000 0000 47A8L 0000 0000 0000 0000 0000 0000 ┆
0x29180…29200 UnusedSector ┆0000 0000 47B0L 0000 0000 0000 0000 0000 0000 0000 0000 47B8L 0000 0000 0000 00F0 F0F0 E9E9 0021 D5D5 47C0L D5D5 0000 0000 0000 ┆
0x29200…29280 UnusedSector ┆0000 0000 0000 0000 47C8L 0000 0000 0000 0000 0000 0000 0000 0000 47D0L 0000 0000 00F4 0001 E9E9 001E D5D5 D5D5 47D8L 0000 0000 ┆
0x29280…29300 UnusedSector ┆0000 0000 0000 0000 0000 0000 47E0L 0000 0000 0000 0000 0000 0000 0000 00C2 47E8L 0001 E9E9 000E D5D5 D5D5 0000 0000 0000 47F0L ┆
0x29300…29380 UnusedSector ┆0000 0000 0000 0000 0009 0001 E9E9 000E 47F8L D5D5 D5D5 0000 0000 0000 0000 0000 0000 4800L 0000 000A 0000 E9E9 000A D5D5 D5D5 F┆
0x29380…29400 UnusedSector ┆0F0 4808L C3C3 C3C2 C200 FFFF 305A 3530 4330 4343 4810L 4242 4E49 5550 2054 5246 4D4F 5420 5245 4818L 494D 414E 204C 3030 002E 3┆
0x29400…29480 UnusedSector ┆45A 3030 3930 4820L 3939 3839 4F43 464E 4749 4620 4C49 2045 4828L 4556 5352 4F49 2E4E 425A 3030 3930 3939 4830L 3839 3030 3230 4┆
0x29480…29500 UnusedSector ┆25A 3030 3930 3939 3839 4838L 3030 3330 0000 0000 0000 0000 0000 0000 4840L 0000 0000 0000 0000 0000 0000 0000 0000 4848L 0000 0┆
0x29500…29580 UnusedSector ┆000 0000 0000 0000 0000 0000 0000 4850L 0000 0000 0000 0000 0000 0000 0000 0000 4858L 0000 0000 5304 0088 4351 5254 4003 0086 48┆
0x29580…29600 UnusedSector ┆60L 4D51 3146 8001 0000 5551 3145 0000 0000 4868L 018A 0000 0000 0000 0000 0000 0000 0000 4870L 0197 0000 0000 0000 0000 0000 00┆
0x29600…29680 UnusedSector ┆00 0000 4878L 0000 0000 0000 0000 0000 0000 0000 0000 4880L 003F 003F 003F 003F 003F 003F 003F 002F 4888L 0016 0005 0015 000B 00┆
0x29680…29700 UnusedSector ┆0C 000D 000E 000F 4890L 003F 0011 0012 0013 003C 003F 0032 0026 4898L 0018 0019 001A 0027 001C 001D 001E 001F 48A0L 0040 004F 00┆
0x29700…29780 UnusedSector ┆7F 007B 005B 006C 0050 007D 48A8L 004D 005D 005C 004E 006B 0060 004B 0061 48B0L 00F0 00F1 00F2 00F3 00F4 00F5 00F6 00F7 48B8L 00┆
0x29780…29800 UnusedSector ┆F8 00F9 007A 005E 004C 007E 006E 006F 48C0L 007C 00C1 00C2 00C3 00C4 00C5 00C6 00C7 48C8L 00C8 00C9 00D1 00D2 00D3 00D4 00D5 00D┆
0x29800…29880 UnusedSector ┆6 48D0L 00D7 00D8 00D9 00E2 00E3 00E4 00E5 00E6 48D8L 00E7 00E8 00E9 004A 00E0 005A 005F 006D 48E0L 0079 0081 0082 0083 0084 008┆
0x29880…29900 UnusedSector ┆5 0086 0087 48E8L 0088 0089 0091 0092 0093 0094 0095 0096 48F0L 0097 0098 0099 00A2 00A3 00A4 00A5 00A6 48F8L 00A7 00A8 00A9 00C┆
0x29900…29980 UnusedSector ┆0 006A 00D0 00A1 003F 4900L 008D 012F 00BD 0143 00C7 010E 0114 011A 4908L 0121 0128 00E7 00BD 0109 FFA6 1100 0000 4910L 8E48 0FA┆
0x29980…29a00 UnusedSector ┆6 80FD C41C C17E 80FD 0CA6 C21B 4918L FFA6 11F0 0000 0814 C86D 0814 00CD 681B 4920L 8873 691B 8673 0CBB 8568 19A6 48BB DB4F 4928┆
0x29a00…29a80 UnusedSector ┆L 0156 2C4C 224B 81FF F24F 0156 3D4C 1E4B 4930L 81FF 0156 074F 0156 4C4C 0E4B 81FF 0156 4938L 144F 0156 534C 0E4B 81FF 8269 26E4┆
0x29a80…29b00 UnusedSector ┆ 907C 4940L 8CFC 022B 866D F6A6 80FD B07C 82FC 40B9 4948L 0156 8375 FFA6 1164 0182 004B 944C F5A6 4950L 83FC 5BBB F4A6 83FC F3A6┆
0x29b00…29b80 UnusedSector ┆ 83FC EDA6 83FC 4958L 39BB 8371 F2A6 83FC 29E4 907C 89FC 26E4 4960L 907C 8271 F4E4 907C 86FC 48B9 82FC 40B9 4968L 8971 8A72 8B73┆
0x29b80…29c00 UnusedSector ┆ 8D75 0049 644A 014B 944C 4970L F5A6 83FC 5BBB 0156 8373 FFA6 1102 0000 4978L F4A6 83FC 8B6B F3A6 83FC 8A6A A1A0 896B 4980L E5A6┆
0x29c00…29c80 UnusedSector ┆ 83FC F2A6 83FC FFA6 1104 0182 48B9 4988L 00BF 6448 19A6 0149 8448 188A DB49 174A 4990L 014B 886D 8AFD 8BFC F249 154A 014B 886D ┆
0x29c80…29d00 UnusedSector ┆4998L 8AFD 8BFC 0156 0749 0D4A 014B 886D 8AFD 49A0L 8BFC 0156 1449 0D4A 014B 886D 8AFD 8BFC 49A8L 0156 2149 0B4A 014B 886D 8AFD ┆
0x29d00…29d80 UnusedSector ┆8BFC 0149 49B0L 06CF F1A0 C1A0 007A C092 138B B07C 80BF 49B8L 01CF 01CC 0858 FFA6 1114 0000 07D8 FFA6 49C0L 1115 0000 03D8 FFA6 ┆
0x29d80…29e00 UnusedSector ┆1119 0000 0158 SD 0749 0D4A 014B 886D 8AFD 49A0L 8BFC 0156 1449 0D4A 014B 886D 8AFD 8BFC 49A8L 0156 2149 0B4A 014B 886D 8AFD ┆
0x29e00…29e80 UnusedSector 0x1a[128]
[…0xe…]
0x2a580…2a600 UnusedSector ┆00000001 0 0000 LIST ; 00000002 0 0000 BEGIN MODULE LOCCM1 ; 00000003 0 0000 USE BASE ; 00000004 0 0000 NOLIST ; 00000008 0 ┆
0x2a600…2a680 UnusedSector ┆0000 MESSAGE: CALL S8MXGL 00000024 0 0000 MESSAGE: CALL S8MNAX 00000531 0 0000 MESSAGE: CALL S8MXD1 00000544 0 0000 MESSAGE: CAL┆
0x2a680…2a700 UnusedSector ┆L: S8MXD1, 780523 00000612 0 0048 MESSAGE: CALL OLTDAT 00000616 0 0048 MESSAGE: OLTO V790615 00000645 0 0048 MESSAGE: CALL ISBDA┆
0x2a700…2a780 UnusedSector ┆T 00001129 0 0048 MESSAGE: CALL ICLERR 00001156 0 0082 LIST ; 00001157 0 0082 ISTOEB=TRUE ;ISO TO EBCIDIC CONVERSION ENALBED ; ┆
0x2a780…2a800 UnusedSector ┆ D 0 0082 ISTOEB=FALSE ;ISO TO EBCIDIC CONVERSION DISENABLE; 00001158 0 0082 RTG: 0 ; 00001159 0 0083 CCWD: 0 ; "CC" CODE ; 0┆
0x2a800…2a880 UnusedSector ┆0001160 0 0084 MESSCNT: 0 ; NUMBER OF MESSAGES SENT ; 00001161 0 0085 CTRWAIT: 5 ; DELAY TIME ; 00001162 0 0086 ISTRLH: 0 ; IN┆
0x2a880…2a900 UnusedSector ┆PUT Q FROM MF ; 00001163 0 0087 CMIRD: 0 ; INPUT QU FROM CMI ; 00001164 0 0088 OSTRCT: 0 ; OUTPUT Q TO MF ; 00001165 0 0089 X┆
0x2a900…2a980 UnusedSector ┆QUEL=LOC-ISTRLH ; 00001166 0 0089 R1GEM: 0 ; 00001167 0 008A R2GEM: 0 ; 00001168 0 008B R3GEM: 0 ; 00001169 0 008C R4GEM: 0 ┆
0x2a980…2aa00 UnusedSector ┆; 00001170 0 008D R5GEM: 0 ; 00001171 0 008E STCPTR: 0,REPEAT 5 ; 00001172 0 0094 PCBIP: 0,REPEAT (PCBLGT-1) ; INPUT Q PCB ; ┆
0x2aa00…2aa80 UnusedSector ┆ 00001173 0 00B7 PCBOP: 0,REPEAT (PCBLGT-1) ; OUTPUT Q PCB ; 00001174 0 00DA CTRJMP: 0 ; JUMP TABLE ENTRY ; 00001175 0 00DB MS┆
0x2aa80…2ab00 UnusedSector ┆G01: #00F0,#F0F0,#E9E9, ; 00001176 0 00DE #0021,#D5D5,#D5D5, ; 00001177 0 00E1 0,REPEAT 16 ; 00001178 0 00F2 MSG01L=LOC-MSG01┆
0x2ab00…2ab80 UnusedSector ┆ ; 00001179 0 00F2 MSG02: #00F4,#0001,#E9E9, ; 00001180 0 00F5 #001E,#D5D5,#D5D5, ; 00001181 0 00F8 0,REPEAT 14 ; 00001182 0┆
0x2ab80…2ac00 UnusedSector ┆ 0107 MSG02L=LOC-MSG02 ; 00001183 0 0107 MSG03: #00C2,#0001,#E9E9, ; 00001184 0 010A #000E,#D5D5,#D5D5, ; 00001185 0 010D 0,R┆
0x2ac00…2ac80 UnusedSector ┆EPEAT 6 ; 00001186 0 0114 MSG03L=LOC-MSG03 ; 00001187 0 0114 MSG04: #0009,#0001,#E9E9, ; 00001188 0 0117 #000E,#D5D5,#D5D5, ;┆
0x2ac80…2ad00 UnusedSector ┆ 00001189 0 011A 0,REPEAT 6 ; 00001190 0 0121 MSG04L=LOC-MSG04 ; 00001191 0 0121 MSG05: #000A,#0000,#E9E9, ; 00001192 0 0124┆
0x2ad00…2ad80 UnusedSector ┆ #000A,#D5D5,#D5D5, ; 00001193 0 0127 #F0F0,#C3C3,#C3C2, ; 00001194 0 012A #C200,#FFFF ; 00001195 0 012C MSG05L=LOC-MSG05 ; ┆
0x2ad80…2ae00 UnusedSector ┆00001196 0 012C ; ; 00001197 0 012C TXT01: <:Z0050CCCBBINPUT FROM TERMINAL 00.:> ; 00001198 0 013D TXT01L=LOC-TXT01 ; 0000119┆
0x2ae00…2ae80 UnusedSector ┆9 0 013D TXT02: <:Z400099998CONFIG FILE VERSION.:> ; 00001200 0 014C TXT02L=LOC-TXT02 ; 00001201 0 014C TXT03: <:ZB00099998000┆
0x2ae80…2af00 UnusedSector ┆2:> ; NETWORK CLOSED DOWN ; 00001202 0 0153 TXT03L=LOC-TXT03 ; 00001203 0 0153 TXT04: <:ZB000999980003:> ; THIS M/F DOWN ; 00┆
0x2af00…2af80 UnusedSector ┆001204 0 015A TXT04L=LOC-TXT04 ; 00001205 0 015A 0,REPEAT 31 ; SPARE FOR LATER USE ; 00001206 0 017A ; ; 00001207 0 017A ;---┆
0x2af80…2b000 UnusedSector ┆--------------------------------------------------------------------; 00001208 0 017A ;----------------------------------------┆
0x2b000…2b080 UnusedSector ┆-------------------------------; 00001209 0 017A FILDEC1: RELFIL OR ASCDAT OR((SIZMEAN-1)/4)<RCLGTS OR 4 ; 00001210 0 017B OST┆
0x2b080…2b100 UnusedSector ┆RCT ; 00001211 0 017C <:QCTR:> ; 00001212 0 017E ; ; 00001213 0 017E FILDEC3: RELFIL OR BINDAT OR (1-1)<RCLGTS OR XQUEL ; 00┆
0x2b100…2b180 UnusedSector ┆001214 0 017F ISTRLH ; 00001215 0 0180 <:QMF1:> ; 00001216 0 0182 TT:=BUFQUE OR BINDAT OR (BUFWDS-1)<RCLGTS OR 1 ; 00001217 0┆
0x2b180…2b200 UnusedSector ┆ 0182 PFQ1: TT ; 00001218 0 0183 0 ; 00001219 0 0184 <:QUE1:> ; 00001220 0 0186 USE PROG ; 00001221 1 0000 TPOS:=1<TPLS OR T┆
0x2b200…2b280 UnusedSector ┆CTR<SMXS ; 00001222 1 0000 ; ; 00001223 1 0000 ;-----------------------------------------------------------------------; 0000┆
0x2b280…2b300 UnusedSector ┆1224 1 0000 ;-----------------------------------------------------------------------; 00001225 1 0000 ; ; 00001226 1 0000 ; CO┆
0x2b300…2b380 UnusedSector ┆NVERSION TABLE ISO => EBCIDIC. ; 00001227 1 0000 ; -------------------------------- ; 00001228 1 0000 ; ; 00001229 1 0000 ; T┆
0x2b380…2b400 UnusedSector ┆HE TABLE CONSISTS OF 8 ENTRIES OF 16 WORDS. ; 00001230 1 0000 ; THE LEAST SIGNIFICANT 7 BITS OF THE ISO CHARACTER ARE ; 000012┆
0x2b400…2b480 UnusedSector ┆31 1 0000 ; USED FOR THE CONVERSION. THE 3 MOST SIGNIFICANT BITS ; 00001232 1 0000 ; ARE USED TO ADDRESS ONE OF 0-7 ENTRIES, ; ┆
0x2b480…2b500 UnusedSector ┆ 00001233 1 0000 ; WHILEST THE REMAINING 4 BITS ARE USED TO ADDRESS ; 00001234 1 0000 ; ONE OF 0-15 WORDS WITHIN THE ENTRY. ; ┆
0x2b500…2b580 UnusedSector ┆00001235 1 0000 ; THE ADDRESSED WORD IS THE MATCHING EBCIDIC CHARACTER. ; 00001236 1 0000 ; ; 00001237 1 0000 CONVITE: ; 0000┆
0x2b580…2b600 UnusedSector ┆1238 1 0000 ;ENTRY 0 ; 00001239 1 0000 #3F,#3F,#3F,#3F,#3F,#3F,#3F,#2F ; 00001240 1 0008 #16,#05,#15,#0B,#0C,#0D,#0E,#0F ; 00┆
0x2b600…2b680 UnusedSector ┆001241 1 0010 ;ENTRY 1 ; 00001242 1 0010 #3F,#11,#12,#13,#3C,#3F,#32,#26 ; 00001243 1 0018 #18,#19,#1A,#27,#1C,#1D,#1E,#1F ; ┆
0x2b680…2b700 UnusedSector ┆00001244 1 0020 ;ENTRY 2 ; 00001245 1 0020 #40,#4F,#7F,#7B,#5B,#6C,#50,#7D ; 00001246 1 0028 #4D,#5D,#5C,#4E,#6B,#60,#4B,#61 ;┆
0x2b700…2b780 UnusedSector ┆ 00001247 1 0030 ;ENTRY 3 ; 00001248 1 0030 #F0,#F1,#F2,#F3,#F4,#F5,#F6,#F7, ; 00001249 1 0038 #F8,#F9,#7A,#5E,#4C,#7E,#6E,#6┆
0x2b780…2b800 UnusedSector ┆F ; 00001250 1 0040 ;ENTRY 4 ; 00001251 1 0040 #7C,#C1,#C2,#C3,#C4,#C5,#C6,#C7 ; 00001252 1 0048 #C8,#C9,#D1,#D2,#D3,#D4,#D5,┆
0x2b800…2b880 UnusedSector ┆#D6 ; 00001253 1 0050 ;ENTRY 5 ; 00001254 1 0050 #D7,#D8,#D9,#E2,#E3,#E4,#E5,#E6 ; 00001255 1 0058 #E7,#E8,#E9,#4A,#E0,#5A,#5┆
0x2b880…2b900 UnusedSector ┆F,#6D ; 00001256 1 0060 ;ENTRY 6 ; 00001257 1 0060 #79,#81,#82,#83,#84,#85,#86,#87 ; 00001258 1 0068 #88,#89,#91,#92,#93,#94,┆
0x2b900…2b980 UnusedSector ┆#95,#96 ; 00001259 1 0070 ;ENTRY 7 ; 00001260 1 0070 #97,#98,#99,#A2,#A3,#A4,#A5,#A6 ; 00001261 1 0078 #A7,#A8,#A9,#C0,#6A,#D┆
0x2b980…2ba00 UnusedSector ┆0,#A1,#3F ; 00001262 1 0080 ; ; 00001263 1 0080 IF CONVITE+(8*#10) NE LOC ; 00001264 1 0080 THEN MESSAGE <:ITE TABLE LAYOUT E┆
0x2ba00…2ba80 UnusedSector ┆RROR:> ; 00001265 1 0080 FI ; 00001266 1 0080 ;-----------------------------------------------------------------------; 00001┆
0x2ba80…2bb00 UnusedSector ┆267 1 0080 ;-----------------------------------------------------------------------; 00001268 1 0080 ;-------------------------┆
0x2bb00…2bb80 UnusedSector ┆----------------------------------------------; 00001269 1 0080 ; JUMP TABLE. ; 00001270 1 0080 ; ; 00001271 1 0080 LSTART: S┆
0x2bb80…2bc00 UnusedSector ┆TART ; 00001272 1 0081 LCONVE: CONVE ; 00001273 1 0082 LLOOP1: LOOP1 ; 00001274 1 0083 LQUERR: QUERR ; 00001275 1 0084 LPNTQ┆
0x2bc00…2bc80 UnusedSector ┆: PNTQ ; 00001276 1 0085 LMESS1: MESS1 ; 00001277 1 0086 LMESS2: MESS2 ; 00001278 1 0087 LMESS3: MESS3 ; 00001279 1 0088 LME┆
0x2bc80…2bd00 UnusedSector ┆SS4: MESS4 ; 00001280 1 0089 LMESS5: MESS5 ; 00001281 1 008A LSENDQ: SENDQ ; 00001282 1 008B LMAINLOOP: MAINLOOP ; 00001283 ┆
0x2bd00…2bd80 UnusedSector ┆1 008C LSENDMESS: SENDMESS ; 00001284 1 008D ;-----------------------------------------------------------------------; 0000128┆
0x2bd80…2be00 UnusedSector ┆5 1 008D ;S T A R T . ; 00001286 1 008D ;------------ ; 00001287 1 008D ; ; 00001288 1 008D START: ; 00001289 1 008D MON OLT┆
0x2be00…2be80 UnusedSector ┆O,TPOS OR 0,0 ; 00001290 1 0090 MOVC STCPTR R0 ; 00001291 1 0091 MON WAITEVENT ; 00001292 1 0092 JMPI S4 LSTART ; 00001293 1┆
0x2be80…2bf00 UnusedSector ┆ 0093 MOV MSGID. X7 R4 ; 00001294 1 0094 SEQ R4 MSGINZ ; IF NOT INZTHEN ; 00001295 1 0095 JMPI S4 LSTART ; 00001296 1 0096 MO┆
0x2bf00…2bf80 UnusedSector ┆N SENDANSWEAR ; 00001297 1 0097 MOV MSGNO. X7 R3 ; POINTER TO TABLE ; 00001298 1 0098 MON OLTO,TPOS OR 240 ,0 ; 00001299 1 00┆
0x2bf80…2c000 UnusedSector ┆9B MODN CBASE-C ; 00001300 1 009C MOV FPCDAT R5 ; ; 00001301 1 009D SUB CBASE-C R5 ; 00001302 1 009F MOV QMF1IN.X5 R3 ; LOGIC┆
0x2c000…2c080 UnusedSector ┆AL QUE NO ; 00001303 1 00A0 MOV R3 OSTRCT ; 00001304 1 00A1 MOV QMF1OP.X5 R3 ; LOGICALL Q NO. FOR OUTPUT ; 00001305 1 00A2 MO┆
0x2c080…2c100 UnusedSector ┆V R3 ISTRLH ; 00001306 1 00A3 MOV R0 R4 ; 00001307 1 00A4 MOV CTRWAIT R0 ; FETCH DELAY ; 00001308 1 00A5 MON WAITDELAY ; 000┆
0x2c100…2c180 UnusedSector ┆01309 1 00A6 MOV R4 R0 ; 00001310 1 00A7 ;-----------------------------------------------------------------------; 00001311 1 ┆
0x2c180…2c200 UnusedSector ┆00A7 ; ; 00001312 1 00A7 ;THE MESSAGES ARE SET UP BY CONVERTING THE TEXT PART ; 00001313 1 00A7 ; INTO EBCIDIC,AND PLACING THE┆
0x2c200…2c280 UnusedSector ┆ EBCIDIC CHARACTER ; 00001314 1 00A7 ; INTO THE MESSAGE AREA.A JUMP IS PERFORMED TO "CONVE" ; 00001315 1 00A7 ; WITH THE FOLLO┆
0x2c280…2c300 UnusedSector ┆WING PARAMETERS: ; 00001316 1 00A7 ; R7 = MESSAGE ADDRESS ; 00001317 1 00A7 ; R4 = TEXT ADDRESS ; 00001318 1 00A7 ; R3 = TEXT┆
0x2c300…2c380 UnusedSector ┆ LENGTH ; 00001319 1 00A7 ; R6 = RETURN LINK. ; 00001320 1 00A7 ; ; -------- 1 00A7 ;----------------------------------------┆
0x2c380…2c400 UnusedSector ┆-------------------------------; 00001321 1 00A7 ; ; 00001322 1 00A7 MOVC MSG01 R7 ; 00001323 1 00A8 MOVC TXT01 R4 ; 0000132┆
0x2c400…2c480 UnusedSector ┆4 1 00AA MOVC TXT01L<1 R3 ; *2 = BYTES ; 00001325 1 00AB JMPI S6 LCONVE ; 00001326 1 00AC MOVC MSG02 R7 ; 00001327 1 00AD MOV┆
0x2c480…2c500 UnusedSector ┆C TXT02 R4 ; 00001328 1 00AF MOVC TXT02L<1 R3 ; *2 = BYTES ; 00001329 1 00B0 JMPI S6 LCONVE ; 00001330 1 00B1 MOVC MSG03 R7 ;┆
0x2c500…2c580 UnusedSector ┆ 00001331 1 00B3 MOVC TXT03 R4 ; 00001332 1 00B5 MOVC TXT03L<1 R3 ; *2 = BYTES ; 00001333 1 00B6 JMPI S6 LCONVE ; 00001334 1┆
0x2c580…2c600 UnusedSector ┆ 00B7 MOVC MSG04 R7 ; 00001335 1 00B9 MOVC TXT04 R4 ; 00001336 1 00BB MOVC TXT04L<1 R3 ; *2 = BYTES ; 00001337 1 00BC JMPI S6┆
0x2c600…2c680 UnusedSector ┆ LCONVE ; 00001338 1 00BD ;-----------------------------------------------------------------------; 00001339 1 00BD MAINLOOP: ┆
0x2c680…2c700 UnusedSector ┆; 00001340 1 00BD LOOP1: ; 00001341 1 00BD MOV RTG R1 ; ; 00001342 1 00BE IEQ R1 #26 ; IF R1 NE #26 THEN ; 00001343 1 00C0 J┆
0x2c700…2c780 UnusedSector ┆MPI LSENDMESS ; SEND MESSAGE 1. ; 00001344 1 00C1 MOVC TYPCHA R3 ; 00001345 1 00C2 MOV ISTRLH R5 ; Q FROM MF1 ; 00001346 1 00┆
0x2c780…2c800 UnusedSector ┆C3 MON PROBQUE ; 00001347 1 00C4 JMPI S4 LSTART ; 00001348 1 00C5 IEQ R3 0 ; IF NO DATA THEN ; 00001349 1 00C6 JMPI LLOOP1 ; ┆
0x2c800…2c880 UnusedSector ┆ 00001350 1 00C7 ;-----------------------------------------------------------------------; 00001351 1 00C7 ;-------------------┆
0x2c880…2c900 UnusedSector ┆----------------------------------------------------; 00001352 1 00C7 ; ; 00001353 1 00C7 ; P R I N T Q U E S U B R O U T I N ┆
0x2c900…2c980 UnusedSector ┆E . ; 00001354 1 00C7 ; ; 00001355 1 00C7 ; REGISTER CALL EXIT ; 00001356 1 00C7 ; R4 LINK LINK ; 00001357 1 00C7 ; R5 QUE ;┆
0x2c980…2ca00 UnusedSector ┆ 00001358 1 00C7 ;-----------------------------------------------------------------------; 00001359 1 00C7 ;------------------┆
0x2ca00…2ca80 UnusedSector ┆-----------------------------------------------------; 00001360 1 00C7 ; 00001361 1 00C7 ; 00001362 1 00C7 PNTQ: ; 00001363 ┆
0x2ca80…2cb00 UnusedSector ┆1 00C7 STC R4 X0 ; 00001364 1 00C8 MOV R5 PFQ1+1 ; SAVE QUE FOR OLTO ; 00001365 1 00CA MON OLTO,TPOS OR 100,PFQ1 ; USED BY OLT┆
0x2cb00…2cb80 UnusedSector ┆O TO PRINT Q ; 00001366 1 00CD MOVC RDTYP R3 ; READTYPE ; 00001367 1 00CE MOVC PCBIP R4 ; INPUT Q PCB ; 00001368 1 00CF MON I┆
0x2cb80…2cc00 UnusedSector ┆NITPCB ; 00001369 1 00D0 JMPI& LQUERR ; 00001370 1 00D1 MOV R5 R3 ; 00001371 1 00D2 MON CONNECTQUE ; 00001372 1 00D3 JMPI& L┆
0x2cc00…2cc80 UnusedSector ┆QUERR ; 00001373 1 00D4 MON CONNECTPACK ; 00001374 1 00D5 JMPI& LQUERR ; 00001375 1 00D6 MON READWORD ; 00001376 1 00D7 JMPI┆
0x2cc80…2cd00 UnusedSector ┆& LQUERR ; 00001377 1 00D8 MOV R3 R1 ; "CC" CODE ; 00001378 1 00D9 MOV R1 CCWD ; SAVE "CC" CODE ; 00001379 1 00DA MON TERMPAC┆
0x2cd00…2cd80 UnusedSector ┆K ; 00001380 1 00DB JMPI& LQUERR ; 00001381 1 00DC IEQ R1 #29 ; LINK OPEN ; 00001382 1 00DE JMPI LMESS5 ; 00001383 1 00DF IE┆
0x2cd80…2ce00 UnusedSector ┆Q R1 #26 ; READY TO GO ; 00001384 1 00E1 MOV R1 RTG ; 00001385 1 00E2 IEQ R1 #F4 ; TP FILE VERSION NO ; 00001386 1 00E4 JMPI ┆
0x2ce00…2ce80 UnusedSector ┆LMESS2 ; 00001387 1 00E5 UNS R4 X0 ; UNSTACK SAVED REGISTERS. ; 00001388 1 00E6 JMPI LLOOP1 ; 00001389 1 00E7 ; 00001390 1 0┆
0x2ce80…2cf00 UnusedSector ┆0E7 ;FF ; -------- 1 00E7 ;-----------------------------------------------------------------------; -------- 1 00E7 ;--------┆
0x2cf00…2cf80 UnusedSector ┆---------------------------------------------------------------; 00001391 1 00E7 ;PROCEDURE TO SEND A PACKET. ; 00001392 1 00E┆
0x2cf80…2d000 UnusedSector ┆7 ;R1 MSGNO ; 00001393 1 00E7 ;R2 MSGLGT ; 00001394 1 00E7 ;R3 TYPE ; 00001395 1 00E7 ;R4 LINK LINK ; 00001396 1 00E7 ;R5 QU┆
0x2d000…2d080 UnusedSector ┆E ; -------- 1 00E7 ;-----------------------------------------------------------------------; 00001397 1 00E7 SENDQ: ; 000013┆
0x2d080…2d100 UnusedSector ┆98 1 00E7 STC R4 X0 ; 00001399 1 00E8 MOV R1 R1GEM ; MESSAGE ; 00001400 1 00E9 MOV R2 R2GEM ; MESSAGE LENGTH ; 00001401 1 00E┆
0x2d100…2d180 UnusedSector ┆A MOV R3 R3GEM ; TYPDAT ; 00001402 1 00EB MOV R5 R5GEM ; OUTPUT QUE ; 00001403 1 00EC MOVC PRI0 R1 ; 00001404 1 00ED MOVC SIZ┆
0x2d180…2d200 UnusedSector ┆MEAN R2 ; 00001405 1 00EE MOVC WRTYP R3 ; 00001406 1 00EF MOVC PCBIP R4 ; 00001407 1 00F0 MON INITPCB ; 00001408 1 00F1 JMPI┆
0x2d200…2d280 UnusedSector ┆& LQUERR ; 00001409 1 00F2 MOV R5 R3 ; 00001410 1 00F3 MOV R3 PFQ1+1 ;SAVE ABS POINTER FOR OLTO ; 00001411 1 00F5 MON OLTO,TP┆
0x2d280…2d300 UnusedSector ┆OS OR 2,0 ; PRINT LTN,XQUEP ; 00001412 1 00F8 MON CONNECTQUE ; 00001413 1 00F9 JMPI& LQUERR ; 00001414 1 00FA MOV R3GEM R3 ; ┆
0x2d300…2d380 UnusedSector ┆TYPDAT ; 00001415 1 00FB MON CONNECTPACK ; 00001416 1 00FC JMPI& LQUERR ; 00001417 1 00FD MOV R2GEM R2 ; 00001418 1 00FE SLL┆
0x2d380…2d400 UnusedSector ┆ R2 1 ; X 2 ; 00001419 1 00FF MOV R1GEM R3 ; 00001420 1 0100 MON WRITEBLOCK ; 00001421 1 0101 JMPI& LQUERR ; 00001422 1 0102┆
0x2d400…2d480 UnusedSector ┆ MON TERMPACK ; 00001423 1 0103 JMPI& LQUERR ; 00001424 1 0104 MON OLTO,TPOS OR 4,PFQ1 ; PRINTQUE ; 00001425 1 0107 UNS R4 X0┆
0x2d480…2d500 UnusedSector ┆ ; 00001426 1 0108 JMP X4 ; END ; 00001427 1 0109 ;-----------------------------------------------------------------------; 0┆
0x2d500…2d580 UnusedSector ┆0001428 1 0109 ; ; 00001429 1 0109 ; S E N D M E S S A G E U . ; 00001430 1 0109 ; ; 00001431 1 0109 ;-----------------------┆
0x2d580…2d600 UnusedSector ┆------------------------------------------------; 00001432 1 0109 ; ; 00001433 1 0109 SENDMESS: ; 00001434 1 0109 MOVC 100 R0┆
0x2d600…2d680 UnusedSector ┆ ; DELAY = U SECOND ; 00001435 1 010A MON WAITDELAY ; 00001436 1 010B MOVC 1 R1 ; 00001437 1 010C MOVC MESSCNT R0 ; 00001438┆
0x2d680…2d700 UnusedSector ┆ 1 010D ADD R1 X0 ; 00001439 1 010E ; 00001440 1 010E MESS1: ; 00001441 1 010E MOVC MSG01 R1 ; MESSAGE ; 00001442 1 010F MOV┆
0x2d700…2d780 UnusedSector ┆C MSG01L R2 ; MESSAGE LENGTH ; 00001443 1 0110 MOVC TYPDAT R3 ; TYPDAT ; 00001444 1 0111 MOV OSTRCT R5 ; QUE ; 00001445 1 011┆
0x2d780…2d800 UnusedSector ┆2 JMPI S4 LSENDQ ; 00001446 1 0113 JMPI LMAINLOOP ; 00001447 1 0114 MESS2: ; 00001448 1 0114 MOVC MSG02 R1 ; MESSAGE ; 00001┆
0x2d800…2d880 UnusedSector ┆449 1 0115 MOVC MSG02L R2 ; 00001450 1 0116 MOVC TYPDAT R3 ; 00001451 1 0117 MOV OSTRCT R5 ; 00001452 1 0118 JMPI S4 LSENDQ ;┆
0x2d880…2d900 UnusedSector ┆ 00001453 1 0119 JMPI LMAINLOOP ; 00001454 1 011A MESS3: ; 00001455 1 011A MOVC MSG03 R1 ; MESSAGE ; 00001456 1 011C MOVC MS┆
0x2d900…2d980 UnusedSector ┆G03L R2 ; 00001457 1 011D MOVC TYPDAT R3 ; 00001458 1 011E MOV OSTRCT R5 ; 00001459 1 011F JMPI S4 LSENDQ ; 00001460 1 0120 ┆
0x2d980…2da00 UnusedSector ┆JMPI LMAINLOOP ; 00001461 1 0121 MESS4: ; 00001462 1 0121 MOVC MSG04 R1 ; MESSAGE ; 00001463 1 0123 MOVC MSG04L R2 ; 0000146┆
0x2da00…2da80 UnusedSector ┆4 1 0124 MOVC TYPDAT R3 ; 00001465 1 0125 MOV OSTRCT R5 ; 00001466 1 0126 JMPI S4 LSENDQ ; 00001467 1 0127 JMPI LMAINLOOP ; ┆
0x2da80…2db00 UnusedSector ┆00001468 1 0128 MESS5: ; 00001469 1 0128 MOVC MSG05 R1 ; MESSAGE ; 00001470 1 012A MOVC MSG05L R2 ; 00001471 1 012B MOVC TYPD┆
0x2db00…2db80 UnusedSector ┆AT R3 ; 00001472 1 012C MOV OSTRCT R5 ; 00001473 1 012D JMPI S4 LSENDQ ; 00001474 1 012E JMPI LMAINLOOP ; 00001475 1 012F ;-┆
0x2db80…2dc00 UnusedSector ┆----------------------------------------------------------------------; 00001476 1 012F ; ; 00001477 1 012F ; SUBROUTINE TO CO┆
0x2dc00…2dc80 UnusedSector ┆NVERT THE TEXT TO EBCIDIC.THE CONVERTED ; 00001478 1 012F ; TEXT IS THEN PLACED IN THE RELEVANT MESSAGE. ; 00001479 1 012F ; ;┆
0x2dc80…2dd00 UnusedSector ┆ 00001480 1 012F ; REGISTER CALL EXIT ; 00001481 1 012F ; R3 CHARACTER COUNT 0 ; 00001482 1 012F ; R4 TEXT ADDRESS TEXTADD+CO┆
0x2dd00…2dd80 UnusedSector ┆UNT ; 00001483 1 012F ; R6 LINK LINK ; 00001484 1 012F ; R7 MESSAGE ADDRESS MESSADD+COUNT ; 00001485 1 012F ; ; 00001486 1 0┆
0x2dd80…2de00 UnusedSector ┆12F ; REGISTER USE ; 00001487 1 012F ; R2 PASSING/RECEIVING THE ISO/EBCIDIC CHTR ; 00001488 1 012F ; R5 INDEX TO CONVERSION TA┆
0x2de00…2de80 UnusedSector ┆BLE ; 00001489 1 012F ; ; 00001490 1 012F ;-----------------------------------------------------------------------; 00001491 ┆
0x2de80…2df00 UnusedSector ┆1 012F ;-----------------------------------------------------------------------; 00001492 1 012F CONVE: ; CONVERT ISO => EBCIDI┆
0x2df00…2df80 UnusedSector ┆C ; 00001493 1 012F MOVC 1 R1 ; SUBTRACTION CONSTANT ; 00001494 1 0130 ADDC 6 R7 ; POINT TO TEXT PART OF MESSAGE ; 00001495 1┆
0x2df80…2e000 UnusedSector ┆ 0131 SLL R7 1 ; *2 GIVES BYTE ADDRESS ; 00001496 1 0132 SLL R4 1 ; BYTE ADDRESS OF TEXT ; 00001497 1 0133 MORE: ; RETURN HERE┆
0x2e000…2e080 UnusedSector ┆ TILL COUNT=0 ; 00001498 1 0133 MOVB X4 R2 ; GET ISO CHTR IN TEXT ; 00001499 1 0134 IF ISTOEB EQ TRUE THEN ; 00001500 1 0134 ┆
0x2e080…2e100 UnusedSector ┆XTR R2 7 ; DISCARD MOST SIG BIT ; 00001501 1 0134 MOV R2 R5 ; MOVE TO INDEX REG ; 00001502 1 0134 MVP CONVITE.X5 R2 ; EBCIDIC ┆
0x2e100…2e180 UnusedSector ┆CHTR FROM TABLE ; 00001503 1 0134 ELSE ; 00001504 1 0134 FI ; 00001505 1 0134 MOVB R2 X7 ; MOVE CHTR INTO MESSAGE ; 00001506┆
0x2e180…2e200 UnusedSector ┆ 1 0135 SUB R1 R3 ; DECREMENT COUNT ; 00001507 1 0136 SNE R3 0 ; IF COUNT V 0 THEN ; 00001508 1 0137 JMP X6 ; RETURN, ELSE ; ┆
0x2e200…2e280 UnusedSector ┆00001509 1 0138 ADDC 1 R7 ; INCREMENT MESSAGE AND ; 00001510 1 0139 ADDC 1 R4 ; TEXT ADDRESSES ; 00001511 1 013A JMP MORE ; GO┆
0x2e280…2e300 UnusedSector ┆ AND CONVERT ; 00001512 1 013B ; REMAINING CHARACTERS. ; 00001513 1 013B ; 00001514 1 013B ; 00001515 1 013B LHR080: ; WRONG┆
0x2e300…2e380 UnusedSector ┆ INZ ANSWEAR ; 00001516 1 013B MON OLTO,TPOS OR 20,0 ; 00001517 1 013E JMP LHR099 ; GO TO STOP ; 00001518 1 013F LHR081: ; WR┆
0x2e380…2e400 UnusedSector ┆ONG INZ/ID ; 00001519 1 013F MON OLTO,TPOS OR 21,0 ; 00001520 1 0142 JMP LHR099 ; GO TO STOP ; 00001521 1 0143 QUERR: ; 0000┆
0x2e400…2e480 UnusedSector ┆1522 1 0143 MON OLTO,TPOS OR 25,0 ; 00001523 1 0146 LHR099: ;STOP ; 00001524 1 0146 JMP LHR099 ; LOOP LIKE HELL. ; 00001525 1┆
0x2e480…2e500 UnusedSector ┆ 0147 USE BASE ; 00001526 0 0186 XNAME0=<:CM:> ; 00001527 0 0186 XNAME1=<:1:> ; 00001528 0 0186 XBUFS=2 ; 00001529 0 0186 XR┆
0x2e500…2e580 UnusedSector ┆EFS=2 ; 00001530 0 0186 XPRPC=START ; 00001531 0 0186 NOLIST ; 00001544 0 0186 MESSAGE: CALL: S8MXD2, 780621 00001753 0 01A0 ┆
0x2e580…2e600 UnusedSector ┆LIST ; 00001754 0 01A0 END ; Z046D3 T49C7 P 46D0L 0000 0000 0000 0000 01AD 46D8L 0000 0000 4D43 0031 0000 0000 0000 0000 46E0L┆
0x2e600…2e680 UnusedSector ┆ 0000 0000 0000 0000 0000 0000 0000 0000 46E8L 0000 0000 01A0 008D 0064 0000 0000 826F 46F0L 0000 0000 0000 0064 0000 0000 0000 ┆
0x2e680…2e700 UnusedSector ┆0000 46F8L 0000 0000 0000 0000 0000 0000 0000 0000 4700L 0000 FFFF 0000 0000 0000 0000 0000 0000 4708L 0000 0186 018E 0000 0000 ┆
0x2e700…2e780 UnusedSector ┆0000 0000 0000 4710L 0000 0000 0000 0000 0000 0000 0000 0000 4718L 0000 0000 0000 0000 0000 0000 0000 0000 4720L 0000 0000 0000 ┆
0x2e780…2e800 UnusedSector ┆0000 0000 0000 0000 0000 4728L 0000 0000 0000 0000 0000 0000 0000 0000 4730L 0000 0000 0000 0000 0000 0000 0000 0000 4738L 0000 ┆
0x2e800…2e880 UnusedSector ┆0000 0000 0000 0000 0000 0000 0000 4740L 0000 0000 0000 0000 0000 0000 0000 0000 4748L 0000 0000 0000 0000 0000 0000 0000 0000 4┆
0x2e880…2e900 UnusedSector ┆750L 0000 0000 0000 0000 0000 0000 0000 0000 4758L 0000 0000 0000 1008 0000 0000 0000 0000 4760L 0000 0000 0000 0000 0000 0005 0┆
0x2e900…2e980 UnusedSector ┆000 0000 4768L 0000 0000 0000 0000 0000 0000 0000 0000 4770L 0000 0000 0000 0000 0000 0000 0000 0000 4778L 0000 0000 0000 0000 0┆
0x2e980…2ea00 UnusedSector ┆000 0000 0000 0000 4780L 0000 0000 0000 0000 0000 0000 0000 0000 4788L 0000 0000 0000 0000 0000 0000 0000 0000 4790L 0000 0000 0┆
0x2ea00…2ea80 UnusedSector ┆000 0000 0000 0000 0000 0000 4798L 0000 0000 0000 0000 0000 0000 0000 0000 47A0L 0000 0000 0000 0000 0000 0000 0000 0000 47A8L 0┆
0x2ea80…2eb00 UnusedSector ┆000 0000 0000 0000 0000 0000 0000 0000 47B0L 0000 0000 0000 0000 0000 0000 0000 0000 47B8L 0000 0000 0000 00F0 F0F0 E9E9 0021 D5┆
0x2eb00…2eb80 UnusedSector ┆D5 47C0L D5D5 0000 0000 0000 0000 0000 0000 0000 47C8L 0000 0000 0000 0000 0000 0000 0000 0000 47D0L 0000 0000 00F4 0001 E9E9 00┆
0x2eb80…2ec00 UnusedSector ┆1E D5D5 D5D5 47D8L 0000 0000 0000 0000 0000 0000 0000 0000 47E0L 0000 0000 0000 0000 0000 0000 0000 00C2 47E8L 0001 E9E9 000E D5┆
0x2ec00…2ec80 UnusedSector ┆D5 D5D5 0000 0000 0000 47F0L 0000 0000 0000 0000 0009 0001 E9E9 000E 47F8L D5D5 D5D5 0000 0000 0000 0000 0000 0000 4800L 0000 00┆
0x2ec80…2ed00 UnusedSector ┆0A 0000 E9E9 000A D5D5 D5D5 F0F0 4808L C3C3 C3C2 C200 FFFF 305A 3530 4330 4343 4810L 4242 4E49 5550 2054 5246 4D4F 5420 5245 481┆
0x2ed00…2ed80 UnusedSector ┆8L 494D 414E 204C 3030 002E 345A 3030 3930 4820L 3939 3839 4F43 464E 4749 4620 4C49 2045 4828L 4556 5352 4F49 2E4E 425A 3030 393┆
0x2ed80…2ee00 UnusedSector ┆0 3939 4830L 3839 3030 3230 425A 3030 3930 3939 3839 4838L 3030 3330 0000 0000 0000 0000 0000 0000 4840L 0000 0000 0000 0000 000┆
0x2ee00…2ee80 UnusedSector ┆0 0000 0000 0000 4848L 0000 0000 0000 0000 0000 0000 0000 0000 4850L 0000 0000 0000 0000 0000 0000 0000 0000 4858L 0000 0000 530┆
0x2ee80…2ef00 UnusedSector ┆4 0088 4351 5254 4003 0086 4860L 4D51 3146 8001 0000 5551 3145 0000 0000 4868L 018A 0000 0000 0000 0000 0000 0000 0000 4870L 019┆
0x2ef00…2ef80 UnusedSector ┆7 0000 0000 0000 0000 0000 0000 0000 4878L 0000 0000 0000 0000 0000 0000 0000 0000 4880L 003F 003F 003F 003F 003F 003F 003F 002F┆
0x2ef80…2f000 UnusedSector ┆ 4888L 0016 0005 0015 000B 000C 000D 000E 000F 4890L 003F 0011 0012 0013 003C 003F 0032 0026 4898L 0018 0019 001A 0027 001C 001D┆
0x2f000…2f080 UnusedSector ┆ 001E 001F 48A0L 0040 004F 007F 007B 005B 006C 0050 007D 48A8L 004D 005D 005C 004E 006B 0060 004B 0061 48B0L 00F0 00F1 00F2 00F3┆
0x2f080…2f100 UnusedSector ┆ 00F4 00F5 00F6 00F7 48B8L 00F8 00F9 007A 005E 004C 007E 006E 006F 48C0L 007C 00C1 00C2 00C3 00C4 00C5 00C6 00C7 48C8L 00C8 00C9┆
0x2f100…2f180 UnusedSector ┆ 00D1 00D2 00D3 00D4 00D5 00D6 48D0L 00D7 00D8 00D9 00E2 00E3 00E4 00E5 00E6 48D8L 00E7 00E8 00E9 004A 00E0 005A 005F 006D 48E0L┆
0x2f180…2f200 UnusedSector ┆ 0079 0081 0082 0083 0084 0085 0086 0087 48E8L 0088 0089 0091 0092 0093 0094 0095 0096 48F0L 0097 0098 0099 00A2 00A3 00A4 00A5 ┆
0x2f200…2f280 UnusedSector ┆00A6 48F8L 00A7 00A8 00A9 00C0 006A 00D0 00A1 003F 4900L 008D 012F 00BD 0143 00C7 010E 0114 011A 4908L 0121 0128 00E7 00BD 0109 ┆
0x2f280…2f300 UnusedSector ┆FFA6 1100 0000 4910L 8E48 0FA6 80FD C41C C17E 80FD 0CA6 C21B 4918L FFA6 11F0 0000 0814 C86D 0814 00CD 681B 4920L 8873 691B 8673 ┆
0x2f300…2f380 UnusedSector ┆0CBB 8568 19A6 48BB DB4F 4928L 0156 2C4C 224B 81FF F24F 0156 3D4C 1E4B 4930L 81FF 0156 074F 0156 4C4C 0E4B 81FF 0156 4938L 144F ┆
0x2f380…2f400 UnusedSector ┆0156 534C 0E4B 81FF 8269 26E4 907C 4940L 8CFC 022B 866D F6A6 80FD B07C 82FC 40B9 4948L 0156 8375 FFA6 1164 0182 004B 944C F5A6 4┆
0x2f400…2f480 UnusedSector ┆950L 83FC 5BBB F4A6 83FC F3A6 83FC EDA6 83FC 4958L 39BB 8371 F2A6 83FC 29E4 907C 89FC 26E4 4960L 907C 8271 F4E4 907C 86FC 48B9 8┆
0x2f480…2f500 UnusedSector ┆2FC 40B9 4968L 8971 8A72 8B73 8D75 0049 644A 014B 944C 4970L F5A6 83FC 5BBB 0156 8373 FFA6 1102 0000 4978L F4A6 83FC 8B6B F3A6 8┆
0x2f500…2f580 UnusedSector ┆3FC 8A6A A1A0 896B 4980L E5A6 83FC F2A6 83FC FFA6 1104 0182 48B9 4988L 00BF 6448 19A6 0149 8448 188A DB49 174A 4990L 014B 886D 8┆
0x2f580…2f600 UnusedSector ┆AFD 8BFC F249 154A 014B 886D 4998L 8AFD 8BFC 0156 0749 0D4A 014B 886D 8AFD 49A0L 8BFC 0156 1449 0D4A 014B 886D 8AFD 8BFC 49A8L 0┆
0x2f600…2f680 UnusedSector ┆156 2149 0B4A 014B 886D 8AFD 8BFC 0149 49B0L 06CF F1A0 C1A0 007A C092 138B B07C 80BF 49B8L 01CF 01CC 0858 FFA6 1114 0000 07D8 FF┆
0x2f680…2f700 UnusedSector ┆A6 49C0L 1115 0000 03D8 FFA6 1119 0000 0158 SD MEMORY MAP: AREA 0 46D3 AREA 1 4880 10 DIMENSION WARNINGS 1 INSTRUCTION┆
0x2f700…2f780 UnusedSector ┆S EXPANDED 15 MODIFIES INSERTED 756 WORDS OUTPUT 756 WORDS ASSEMBLED ASSEMBLY OK? 9B8L 01CF 01CC 0858 FFA6 1114 0000 07D8 FF┆
0x2f780…2f800 UnusedSector ┆ WARNINGS 1 INSTRUCTIONS EXPANDED 19 MODIFIES INSERTED 760 WORDS OUTPUT 760 WORDS ASSEMBLED ASSEMBLY OK? 1CF 01CC 0858 FFA6┆
0x2f800…2f880 UnusedSector ┆1A0 C1A0 007A C092 138B B07C 49B8L 80BF 01CF 01CC 0858 FFA6 1114 0000 07D8 49C0L FFA6 1115 0000 03D8 FFA6 1119 0000 0158 S3 M┆
0x2f880…2f900 UnusedSector ┆EMORY MAP: AREA 0 46D3 AREA 1 4900 3 ERRORS 10 DIMENSION WARNINGS 1 INSTRUCTIONS EXPANDED 18 MODIFIES INSERTED 1 SKIPS ┆
0x2f900…2f980 UnusedSector ┆PAIR CHANGED 757 WORDS OUTPUT 757 WORDS ASSEMBLED ASSEMBLY NOT OK 0 07D8 49C0L FFA6 1115 0000 03D8 FFA6 1119 0000 0158 S3 M┆
0x2f980…2fa00 UnusedSector ┆3 49A0L FFA6 0003 0000 F4A6 05FC 896B F3A6 05FC 49A8L 886A A1A0 876B E5A6 05FC F2A6 05FC FFA6 49B0L 0005 0200 48B9 00BF 40B9 025┆
0x2fa00…2fa80 UnusedSector ┆6 0175 FFA6 49B8L 0065 0200 00BE F2A6 05FC 48B9 00BF 06CF 49C0L F1A0 C1A0 007A C092 0114 00CB B07C 80BF 49C8L 01CF 01CC 0958 FFA┆
0x2fa80…2fb00 UnusedSector ┆6 0015 0000 07D8 FFA6 49D0L 0015 0000 03D8 FFA6 0019 0000 0158 SF MEMORY MAP: AREA 0 46D3 AREA 1 48FE 1 ERRORS 11 DIME┆
0x2fb00…2fb80 UnusedSector ┆NSION WARNINGS 6 UNDEFINED WARNINGS 3 INSTRUCTIONS EXPANDED 18 MODIFIES INSERTED 772 WORDS OUTPUT 772 WORDS ASSEMBLED ASSEM┆
0x2fb80…2fc00 UnusedSector ┆BLY NOT OK 07D8 FFA6 49D0L 0015 0000 03D8 FFA6 0019 0000 0158 SF MEMORY MAP: AREA 0 46D3 AREA 1 48FE 1 ERRORS 11 DIME┆
0x2fc00…2fc80 UnusedSector 0x1a[128]
[…0x2e…]
0x31380…31400 UnusedSector ┆ CM1 d o d ░░ ┆
0x31400…31480 UnusedSector 0x00[128]
0x31480…31500 UnusedSector ┆ ┆
0x31500…31580 UnusedSector ┆ ! ┆
0x31580…31600 UnusedSector ┆ ░░Z0050CCCBBINPU┆
0x31600…31680 UnusedSector ┆T FROM TERMINAL 00. Z400099998CONFIG FILE VERSION.ZB000999980002ZB000999980003 ┆
0x31680…31700 UnusedSector ┆ S QCTR @ QMF1 QUE1 ? ? ? ? ? ? ? / ? ┆
0x31700…31780 UnusedSector ┆ < ? 2 & ' @ O { [ l P } M ] \ N k ` K a z ^ L ~ n o | ┆
0x31780…31800 UnusedSector ┆ J Z _ m y j ? / C ! ( ░ H ┆
0x31800…31880 UnusedSector ┆ ~ ░ m hs is h HO V L,K"░ O V L=K ░ V O V LLK ░ V O V LSK ░ i &| + m | @V u ░d K L [ ┆
0x31880…31900 UnusedSector ┆ 9q )| &| q | H @q r s u I JdK L [V s ░ k j k ░ H Hd I H I J K m ┆
0x31900…31980 UnusedSector ┆ I J K m V I J K m V I J K m V I!J K m I z | X ░ ░ ░ X @V u ░d K L [ ┆
0x31980…31a00 UnusedSector ┆ ░ X = C )| | &| m m m I P m V IYJ K m V IpJ K m V I J K m V I J K m V I ┆
0x31a00…31a80 UnusedSector 0x1a[128]
[…0xb…]
0x32000…32080 UnusedSector ┆LIST BEGIN MODULE LOCCM1 USE BASE NOLIST ;$ICLPRD LIST ISTOEB=TRUE ;ISO TO EBCIDIC CONVERSION ENALBED ISTOEB=FALSE ;ISO TO EBCID┆
0x32080…32100 UnusedSector ┆IC CONVERSION DISENABLED RTG: 0 CCWD: 0 ; "CC" CODE MESSCNT: 0 ; NUMBER OF MESSAGES SENT CTRWAIT: 5 ; DELAY TIME ISTRLH: 0 ; INP┆
0x32100…32180 UnusedSector ┆UT Q FROM MF CMIRD: 0 ; INPUT QU FROM CMI OSTRCT: 0 ; OUTPUT Q TO MF XQUEL=LOC-ISTRLH R1GEM: 0 R2GEM: 0 R3GEM: 0 R4GEM: 0 R5GEM:┆
0x32180…32200 UnusedSector ┆ 0 STCPTR: 0,REPEAT 5 PCBIP: 0,REPEAT (PCBLGT-1) ; INPUT Q PCB PCBOP: 0,REPEAT (PCBLGT-1) ; OUTPUT Q PCB CTRJMP: 0 ; JUMP TABLE ┆
0x32200…32280 UnusedSector ┆ENTRY ;----------------------------------------------------------------------- ;------------------------------------------------┆
0x32280…32300 UnusedSector ┆----------------------- ; ; CONVERSION TABLE ISO => EBCIDIC. ; -------------------------------- ; ; THE TABLE CONSISTS OF 8 ENTR┆
0x32300…32380 UnusedSector ┆IES OF 16 WORDS. ; THE LEAST SIGNIFICANT 7 BITS OF THE ISO CHARACTER ARE ; USED FOR THE CONVERSION. THE 3 MOST SIGNIFICANT BITS ┆
0x32380…32400 UnusedSector ┆; ARE USED TO ADDRESS ONE OF 0-7 ENTRIES, ; WHILEST THE REMAINING 4 BITS ARE USED TO ADDRESS ; ONE OF 0-15 WORDS WITHIN THE ENTR┆
0x32400…32480 UnusedSector ┆Y. ; THE ADDRESSED WORD IS THE MATCHING EBCIDIC CHARACTER. ; CONVITE: ;ENTRY 0 #3F,#3F,#3F,#3F,#3F,#3F,#3F,#2F #16,#05,#15,#0B,#┆
0x32480…32500 UnusedSector ┆0C,#0D,#0E,#0F ;ENTRY 1 #3F,#11,#12,#13,#3C,#3F,#32,#26 #18,#19,#1A,#27,#1C,#1D,#1E,#1F ;ENTRY 2 #40,#4F,#7F,#7B,#5B,#6C,#50,#7D┆
0x32500…32580 UnusedSector ┆ #4D,#5D,#5C,#4E,#6B,#60,#4B,#61 ;ENTRY 3 #F0,#F1,#F2,#F3,#F4,#F5,#F6,#F7, #F8,#F9,#7A,#5E,#4C,#7E,#6E,#6F ;ENTRY 4 #7C,#C1,#C2,┆
0x32580…32600 UnusedSector ┆#C3,#C4,#C5,#C6,#C7 #C8,#C9,#D1,#D2,#D3,#D4,#D5,#D6 ;ENTRY 5 #D7,#D8,#D9,#E2,#E3,#E4,#E5,#E6 #E7,#E8,#E9,#4A,#E0,#5A,#5F,#6D ;EN┆
0x32600…32680 UnusedSector ┆TRY 6 #79,#81,#82,#83,#84,#85,#86,#87 #88,#89,#91,#92,#93,#94,#95,#96 ;ENTRY 7 #97,#98,#99,#A2,#A3,#A4,#A5,#A6 #A7,#A8,#A9,#C0,#┆
0x32680…32700 UnusedSector ┆6A,#D0,#A1,#3F ; IF CONVITE+(8*#10) NE LOC THEN MESSAGE <:ITE TABLE LAYOUT ERROR:> FI ;-----------------------------------------┆
0x32700…32780 UnusedSector ┆------------------------------ ;----------------------------------------------------------------------- MSG01: #00F0,#F0F0,#E9E9┆
0x32780…32800 UnusedSector ┆, #0021,#D5D5,#D5D5, 0,REPEAT 16 MSG01L=LOC-MSG01 MSG02: #00F4,#0001,#E9E9, #001E,#D5D5,#D5D5, 0,REPEAT 14 MSG02L=LOC-MSG02 ┆
0x32800…32880 UnusedSector ┆MSG03: #00C2,#0001,#E9E9, #000E,#D5D5,#D5D5, 0,REPEAT 6 MSG03L=LOC-MSG03 MSG04: #0009,#0001,#E9E9, #000E,#D5D5,#D5D5, 0,REPE┆
0x32880…32900 UnusedSector ┆AT 6 MSG04L=LOC-MSG04 MSG05: #000A,#0000,#E9E9, #000A,#D5D5,#D5D5, #F0F0,#C3C3,#C3C2, #C200,#FFFF MSG05L=LOC-MSG05 ; TXT01: <┆
0x32900…32980 UnusedSector ┆:Z0050CCCBBINPUT FROM TERMINAL 00.:> TXT01L=LOC-TXT01 TXT02: <:Z400099998CONFIG FILE VERSION.:> TXT02L=LOC-TXT02 TXT03: <:ZB0009┆
0x32980…32a00 UnusedSector ┆99980002:> ; NETWORK CLOSED DOWN TXT03L=LOC-TXT03 TXT04: <:ZB000999980003:> ; THIS M/F DOWN TXT04L=LOC-TXT04 0,REPEAT 31 ; SPAR┆
0x32a00…32a80 UnusedSector ┆E FOR LATER USE ; ;----------------------------------------------------------------------- ;------------------------------------┆
0x32a80…32b00 UnusedSector ┆----------------------------------- FILDEC1: RELFIL OR ASCDAT OR((SIZMEAN-1)/4)<RCLGTS OR 4 OSTRCT <:QCTR:> ; FILDEC3: RELFIL ┆
0x32b00…32b80 UnusedSector ┆OR BINDAT OR (1-1)<RCLGTS OR XQUEL ISTRLH <:QMF1:> TT:=BUFQUE OR BINDAT OR (BUFWDS-1)<RCLGTS OR 1 PFQ1: TT 0 <:QUE1:> USE PRO┆
0x32b80…32c00 UnusedSector ┆G TPOS:=1<TPLS OR TCTR<SMXS ; ;----------------------------------------------------------------------- ; JUMP TABLE. ; LSTART: ┆
0x32c00…32c80 UnusedSector ┆START LCONVE: CONVE LLOOP1: LOOP1 LQUERR: QUERR LPNTQ: PNTQ LMESS1: MESS1 LMESS2: MESS2 LMESS3: MESS3 LMESS4: MESS4 LMESS5: MESS┆
0x32c80…32d00 UnusedSector ┆5 LSENDQ: SENDQ LMAINLOOP: MAINLOOP LSENDMESS: SENDMESS ;-----------------------------------------------------------------------┆
0x32d00…32d80 UnusedSector ┆ ;S T A R T . ;------------ ; START: MON OLTO,TPOS OR 0,0 MOVC STCPTR R0 MON WAITEVENT JMPI S4 LSTART MOV MSGID. X7 R4 SEQ┆
0x32d80…32e00 UnusedSector ┆ R4 MSGINZ ; IF NOT INZTHEN JMPI S4 LSTART MON SENDANSWEAR MOV MSGNO. X7 R3 ; POINTER TO TABLE MON OLTO,TPOS OR 240 ,0 MODN┆
0x32e00…32e80 UnusedSector ┆ CBASE-C MOV FPCDAT R5 ; SUB CBASE-C R5 MOV QMF1IN.X5 R3 ; LOGICAL QUE NO MOV R3 OSTRCT MOV QMF1OP.X5 R3 ; LOGICALL Q NO. F┆
0x32e80…32f00 UnusedSector ┆OR OUTPUT MOV R3 ISTRLH ;----------------------------------------------------------------------- ; SEND FROM CTR MOV R0 R4 M┆
0x32f00…32f80 UnusedSector ┆OV CTRWAIT R0 ; FETCH DELAY MON WAITDELAY MOV R4 R0 ;----------------------------------------------------------------------- ;┆
0x32f80…33000 UnusedSector ┆ ;THE MESSAGES ARE SET UP BY CONVERTING THE TEXT PART ; INTO EBCIDIC,AND PLACING THE EBCIDIC CHARACTER ; INTO THE MESSAGE AREA.A┆
0x33000…33080 UnusedSector ┆ JUMP IS PERFORMED TO "CONVE" ; WITH THE FOLLOWING PARAMETERS: ; R7 = MESSAGE ADDRESS ; R4 = TEXT ADDRESS ; R3 = TEXT LENGTH ; R┆
0x33080…33100 UnusedSector ┆6 = RETURN LINK. ; ;------------------------------------------------------------------------------- ; MOVC MSG01 R7 MOVC TXT01┆
0x33100…33180 UnusedSector ┆ R4 MOVC TXT01L<1 R3 ; *2 = BYTES JMPI S6 LCONVE MOVC MSG02 R7 MOVC TXT02 R4 MOVC TXT02L<1 R3 ; *2 = BYTES JMPI S6 LCONVE ┆
0x33180…33200 UnusedSector ┆ MOVC MSG03 R7 MOVC TXT03 R4 MOVC TXT03L<1 R3 ; *2 = BYTES JMPI S6 LCONVE MOVC MSG04 R7 MOVC TXT04 R4 MOVC TXT04L<1 R3 ; *┆
0x33200…33280 UnusedSector ┆2 = BYTES JMPI S6 LCONVE ;----------------------------------------------------------------------- MAINLOOP: LOOP1: MOV RTG R1 ┆
0x33280…33300 UnusedSector ┆; IEQ R1 #26 ; IF R1 NE #26 THEN JMPI LSENDMESS ; SEND MESSAGE 1. MOVC TYPCHA R3 MOV ISTRLH R5 ; Q FROM MF1 MON PROBQUE JM┆
0x33300…33380 UnusedSector ┆PI S4 LSTART IEQ R3 0 ; IF NO DATA THEN JMPI LLOOP1 ;----------------------------------------------------------------------- ;┆
0x33380…33400 UnusedSector ┆----------------------------------------------------------------------- ; ; P R I N T Q U E S U B R O U T I N E . ; ; REGISTER C┆
0x33400…33480 UnusedSector ┆ALL EXIT ; R4 LINK LINK ; R5 QUE ;----------------------------------------------------------------------- ;---------------------┆
0x33480…33500 UnusedSector ┆-------------------------------------------------- PNTQ: STC R4 X0 MOV R5 PFQ1+1 ; SAVE QUE FOR OLTO MON OLTO,TPOS OR 100,P┆
0x33500…33580 UnusedSector ┆FQ1 ; USED BY OLTO TO PRINT Q MOVC RDTYP R3 ; READTYPE MOVC PCBIP R4 ; INPUT Q PCB MON INITPCB JMPI& LQUERR MOV R5 R3 MON ┆
0x33580…33600 UnusedSector ┆CONNECTQUE JMPI& LQUERR MON CONNECTPACK JMPI& LQUERR MON READWORD JMPI& LQUERR MOV R3 R1 ; "CC" CODE MOV R1 CCWD ; SAVE "┆
0x33600…33680 UnusedSector ┆CC" CODE MON TERMPACK JMPI& LQUERR IEQ R1 #29 ; LINK OPEN JMPI LMESS5 IEQ R1 #26 ; READY TO GO MOV R1 RTG IEQ R1 #F4 ; TP┆
0x33680…33700 UnusedSector ┆ FILE VERSION NO JMPI LMESS2 UNS R4 X0 ; UNSTACK SAVED REGISTERS. JMPI LLOOP1 ;FF ;----------------------------------------┆
0x33700…33780 UnusedSector ┆--------------------------------------- ;------------------------------------------------------------------------------- ;PROCED┆
0x33780…33800 UnusedSector ┆URE TO SEND A PACKET. ;R1 MSGNO ;R2 MSGLGT ;R3 TYPE ;R4 LINK LINK ;R5 QUE ;-----------------------------------------------------┆
0x33800…33880 UnusedSector ┆-------------------------- SENDQ: STC R4 X0 MOV R1 R1GEM ; MESSAGE MOV R2 R2GEM ; MESSAGE LENGTH MOV R3 R3GEM ; TYPDAT MOV ┆
0x33880…33900 UnusedSector ┆R5 R5GEM ; OUTPUT QUE MOVC PRI0 R1 MOVC SIZMEAN R2 MOVC WRTYP R3 MOVC PCBIP R4 MON INITPCB JMPI& LQUERR MOV R5 R3 MOV R3┆
0x33900…33980 UnusedSector ┆ PFQ1+1 ;SAVE ABS POINTER FOR OLTO MON OLTO,TPOS OR 2,0 ; PRINT LTN,XQUEP MON CONNECTQUE JMPI& LQUERR MOV R3GEM R3 ; TYPDAT ┆
0x33980…33a00 UnusedSector ┆ MON CONNECTPACK JMPI& LQUERR MOV R2GEM R2 SLL R2 1 ; X 2 MOV R1GEM R3 MON WRITEBLOCK JMPI& LQUERR MON TERMPACK JMPI& LQ┆
0x33a00…33a80 UnusedSector ┆UERR MON OLTO,TPOS OR 4,PFQ1 ; PRINTQUE UNS R4 X0 JMP X4 ; END ;-------------------------------------------------------------┆
0x33a80…33b00 UnusedSector ┆---------- ; ; S E N D M E S S A G E U . ; ;----------------------------------------------------------------------- ; SENDMESS: ┆
0x33b00…33b80 UnusedSector ┆ MOVC 100 R0 ; DELAY = U SECOND MON WAITDELAY MOVC 1 R1 MOVC MESSCNT R0 ADD R1 X0 MESS1: MOVC MSG01 R1 ; MESSAGE MOVC MSG┆
0x33b80…33c00 UnusedSector ┆01L R2 ; MESSAGE LENGTH MOVC TYPDAT R3 ; TYPDAT MOV OSTRCT R5 ; QUE JMPI S4 LSENDQ JMPI LMAINLOOP MESS2: MOVC MSG02 R1 ; ME┆
0x33c00…33c80 UnusedSector ┆SSAGE MOVC MSG02L R2 MOVC TYPDAT R3 MOV OSTRCT R5 JMPI S4 LSENDQ JMPI LMAINLOOP MESS3: MOVC MSG03 R1 ; MESSAGE MOVC MSG03┆
0x33c80…33d00 UnusedSector ┆L R2 MOVC TYPDAT R3 MOV OSTRCT R5 JMPI S4 LSENDQ JMPI LMAINLOOP MESS4: MOVC MSG04 R1 ; MESSAGE MOVC MSG04L R2 MOVC TYPDAT┆
0x33d00…33d80 UnusedSector ┆ R3 MOV OSTRCT R5 JMPI S4 LSENDQ JMPI LMAINLOOP MESS5: MOVC MSG05 R1 ; MESSAGE MOVC MSG05L R2 MOVC TYPDAT R3 MOV OSTRCT R┆
0x33d80…33e00 UnusedSector ┆5 JMPI S4 LSENDQ JMPI LMAINLOOP ;----------------------------------------------------------------------- ; ; SUBROUTINE TO CON┆
0x33e00…33e80 UnusedSector ┆VERT THE TEXT TO EBCIDIC.THE CONVERTED ; TEXT IS THEN PLACED IN THE RELEVANT MESSAGE. ; ; REGISTER CALL EXIT ; R3 CHARACTER COUN┆
0x33e80…33f00 UnusedSector ┆T 0 ; R4 TEXT ADDRESS TEXTADD+COUNT ; R6 LINK LINK ; R7 MESSAGE ADDRESS MESSADD+COUNT ; ; REGISTER USE ; R2 PASSING/RECEIVING TH┆
0x33f00…33f80 UnusedSector ┆E ISO/EBCIDIC CHTR ; R5 INDEX TO CONVERSION TABLE ; ;----------------------------------------------------------------------- ;--┆
0x33f80…34000 UnusedSector ┆--------------------------------------------------------------------- CONVE: ; CONVERT ISO => EBCIDIC MOVC 1 R1 ; SUBTRACTION C┆
0x34000…34080 UnusedSector ┆ONSTANT ADDC 6 R7 ; POINT TO TEXT PART OF MESSAGE SLL R7 1 ; *2 GIVES BYTE ADDRESS SLL R4 1 ; BYTE ADDRESS OF TEXT MORE: ; RE┆
0x34080…34100 UnusedSector ┆TURN HERE TILL COUNT=0 MOVB X4 R2 ; GET ISO CHTR IN TEXT IF ISTOEB EQ TRUE THEN XTR R2 7 ; DISCARD MOST SIG BIT MOV R2 R5 ; ┆
0x34100…34180 UnusedSector ┆MOVE TO INDEX REG MVP CONVITE.X5 R2 ; EBCIDIC CHTR FROM TABLE ELSE FI MOVB R2 X7 ; MOVE CHTR INTO MESSAGE SUB R1 R3 ; DECRE┆
0x34180…34200 UnusedSector ┆MENT COUNT SNE R3 0 ; IF COUNT V 0 THEN JMP X6 ; RETURN, ELSE ADDC 1 R7 ; INCREMENT MESSAGE AND ADDC 1 R4 ; TEXT ADDRESSES ┆
0x34200…34280 UnusedSector ┆JMP MORE ; GO AND CONVERT ; REMAINING CHARACTERS. LHR080: ; WRONG INZ ANSWEAR MON OLTO,TPOS OR 20,0 JMP LHR099 ; GO TO STOP┆
0x34280…34300 UnusedSector ┆ LHR081: ; WRONG INZ/ID MON OLTO,TPOS OR 21,0 JMP LHR099 ; GO TO STOP QUERR: MON OLTO,TPOS OR 25,0 LHR099: ;STOP JMP LHR099 ┆
0x34300…34380 UnusedSector ┆; LOOP LIKE HELL. USE BASE XNAME0=<:CM:> XNAME1=<:1:> XBUFS=2 XREFS=2 XPRPC=START NOLIST ;$S8MXD2 LIST END HR099 ; GO TO STOP┆
0x34380…34400 UnusedSector ┆2 LIST END HR099 ; GO TO STOP LHR081: ; WRONG INZ/ID MON OLTO,TPOS OR 21,0 JMP LHR099 ; GO TO STOP QUERR: MON OLTO,TPOS OR┆
0x34400…34480 UnusedSector ┆LIST BEGIN MODULE LOCCM1 USE BASE NOLIST ; MESSAGE <:CALL S8MXGL:> ;; CR80 SYSTEM ONE ; MONITOR ; MASTER: XGL - GLOBAL NAMES U┆
0x34480…34500 UnusedSector ┆SED IN S8MXPX GLOBAL UTILITYLENGTH,PROGLENGTH,NAMELENGTH,CONTLENGTH,PROCLENGTH GLOBAL DRIVERLENGTH,CATALOGLENGTH,ENTRYAREA,EN┆
0x34500…34580 UnusedSector ┆TRYLENGTH,WORKAREA GLOBAL WORKLENGTH,REFLENGTH,BUFLENGTH GLOBAL LOCACT,ITEM,C,CURSIN,CURSOUT,CURSWORK GLOBAL BMREENTRANT,BMINPUT┆
0x34580…34600 UnusedSector ┆,BMBYTE,BMDISP,BMOUTPUT,BMWORD GLOBAL IDLENGTH,SHARELENGTH,BUFFERLENGTH,STACKLENGTH GLOBAL BNBYTE,BNOPUT,BFIRST,BNEXT GLOBAL BMS┆
0x34600…34680 UnusedSector ┆TEP,BMCONV,BMNOEC,KINDOC,KINDCR,KINDLP,KINDFD GLOBAL NAME,PROC,NEXT XDATE:=#1000MESSAGE <:CALL S8MNAX:> ;; S8MNAX ; ; CR80 SYSTE┆
0x34680…34700 UnusedSector ┆M ONE, NAMES ; ; GENERATED AT 78.04.05 ; 00151000 0 000E LEVEL 2 NAMES: ITEMLH= #0005 C= #000D BMERRR= #0020 BMFULL= #0400 ┆
0x34700…34780 UnusedSector ┆BNLOCT= #000B BMSPEL= #0009 BNERRR= #0005 BNFULL= #000A DISKDS= #0002 REALTK= #0000 BMBYTE= #0004 BMDIST= #0100 BMREJT= ┆
0x34780…34800 UnusedSector ┆#0004 PROGLH= #000E BNBYTE= #0002 BMCONV= #0010 BNDIST= #0008 BNREJT= #0002 BNCONV= #0004 TIMEMK= #6800 CONTLH= #0005 T┆
0x34800…34880 UnusedSector ┆IMESE= #0064 BMINPT= #0001 BMWORD= #0000 BMTIMR= #0002 BMPARY= #0080 BMPROM= #0002 BNTIMR= #0001 BNPARY= #0007 BNPROM= #┆
0x34880…34900 UnusedSector ┆0001 TERMIL= #0001 N= #0004 BMUNKN= #2000 DISABD= #E000 POWERE= #0001 BMSTEP= #0020 BNUNKN= #000D BMWRIR= #0200 BNSTEP=┆
0x34900…34980 UnusedSector ┆ #0005 BNWRIR= #0009 BMREST= #0002 BMPOSN= #0010 BMERAE= #0020 BNREST= #0001 BNPOSN= #0004 BNERAE= #0005 BMNORS= #4000 ┆
0x34980…34a00 UnusedSector ┆BNNORS= #000E EVERSN= #0006 IDLENH= #0004 BMBUSY= #8000 BMCLEN= #0000 BNBUSY= #000F EAREAS= #000A BMNOEC= #0040 NAMELH= ┆
0x34a00…34a80 UnusedSector ┆#0003 BNNOEC= #0006 BMOPUT= #0002 BMCLER= #0040 MAXDEE= #003F BNOPUT= #0001 BNCLER= #0006 BMRELE= #0004 BMNOTY= #0001 E┆
0x34a80…34b00 UnusedSector ┆TYPE= #0007 BNRELE= #0002 BNNOTY= #0000 BMREAR= #0100 BNREAR= #0008 NAMEBS= #0006 BMOUTT= #0003 BMTPUT= #0001 BMSPEC= #0┆
0x34b00…34b80 UnusedSector ┆008 BMCONL= #0000 BMUNCE= #0010 BMEOF= #0040 BNTPUT= #0000 BNSPEC= #0003 BNUNCE= #0004 BNEOF= #0006 BMILLL= #0008 BNILL┆
0x34b80…34c00 UnusedSector ┆L= #0003 BNMUTX= #0000 BMNOCP= #0080 BMRESE= #0008 BNNOCP= #0007 BNRESE= #0003 BMTERE= #0080 BMDISP= #0001 BMREET= #0001┆
0x34c00…34c80 UnusedSector ┆ BNTERE= #0007 BNDISP= #0000 BNREET= #0000 USE BASE BMWAC:= #0080 OLDPRC:= #001B SAVE3:= #0029 SSAVE1:= #0019 BNWAC:= #0┆
0x34c80…34d00 UnusedSector ┆007 SAVE4:= #002A SSAVE2:= #001A SAVE5:= #002B SBLOCK:= #000C SSAVE3:= #001B TERMIE:= #0031 SAVE6:= #002C STACKH:= #0005┆
0x34d00…34d80 UnusedSector ┆ SSAVE4:= #001C BMPLSB:= #0100 NEXT:= #0002 SAVE7:= #0040 PROCLH:= #0052 CATSLH:= #0040 SSAVE5:= #001D BS:= #0008 BMWDE┆
0x34d80…34e00 UnusedSector ┆:= #0008 BNPLSB:= #0008 WARNIG:= #0030 DELAY:= #0033 SAVE8:= #0041 MESSAG:= #004D SSAVE6:= #001E BNWDE:= #0003 CLINK:= #┆
0x34e00…34e80 UnusedSector ┆0014 SAVE9:= #0042 SSAVE7:= #001F DLINK:= #0027 WORK:= #0040 SACTIN:= #0008 SSAVE8:= #0020 BMCHAE:= #0049 BM1:= #FFFF E┆
0x34e80…34f00 UnusedSector ┆LINK:= #0056 ANS0:= #0000 SSAVE9:= #0021 NL:= #000A BM2:= #FFFF WORKAA:= #0295 ANS1:= #0001 SFILE:= #000D ESEGMS:= #000B┆
0x34f00…34f80 UnusedSector ┆ EVENTC:= #003D ANS2:= #0002 EATTRE:= #0006 EAREAE:= #0008 MES0:= #0000 ANS3:= #0003 CR0:= #000D EVENTE:= #0037 MES1:= ┆
0x34f80…35000 UnusedSector ┆#0001 ANS4:= #0004 SIDENT:= #0003 BMLOOP:= #0019 CR1:= #000E DATE:= #0024 MES2:= #0002 BOPER:= #0000 PARENT:= #0001 CR2┆
0x35000…35080 UnusedSector ┆:= #000F SAVE10:= #0043 MES3:= #0003 NAME:= #0007 CR3:= #0010 CAUSE:= #001E EMRETN:= #001E SAVE11:= #0044 MES4:= #0004 ┆
0x35080…35100 UnusedSector ┆SSTACD:= #0013 BFIRST:= #0006 CR4:= #0011 SAVE12:= #0045 BSTATE:= #0005 CR5:= #0012 CBASED:= #0016 SAVE13:= #0046 WRK:= ┆
0x35100…35180 UnusedSector ┆#004D SNAME:= #0000 BMWAN:= #0001 CR6:= #0013 SAVE14:= #0047 STOP:= #000F EFIRST:= #001A BNWAN:= #0000 BMMESS:= #0001 C┆
0x35180…35200 UnusedSector ┆R7:= #0014 RESTIG:= #0038 SAVE15:= #0048 SBLOCT:= #000B BMWPA:= #0040 BNMESS:= #0000 BMANSW:= #0002 KIND:= #0006 SAVE16:┆
0x35200…35280 UnusedSector ┆= #0049 UTILIH:= #02A1 MOPERN:= #0000 BNWPA:= #0006 BNANSW:= #0001 BMCHAL:= #00F0 PROCIT:= #0004 SAVE17:= #004A SMODE:= ┆
0x35280…35300 UnusedSector ┆#0005 SBUFSE:= #0011 BNCHAL:= #0004 SAVE18:= #004B ACOUNT:= #0001 SKIND:= #0006 BMPRIY:= #FF00 AREACM:= #002E SAVE19:= #0┆
0x35300…35380 UnusedSector ┆04C RESERR:= #0052 WORKIG:= #005E BCOUNT:= #0001 BNPRIY:= #0008 CATWRK:= #0005 PPROGM:= #000C EBLOCE:= #0009 CONTET:= #0┆
0x35380…35400 UnusedSector ┆004 CAN:= #0018 BMWIN:= #0004 PROGRM:= #0017 EOFACN:= #0059 EBLOCG:= #000E BMNEXT:= #0029 BNWIN:= #0002 BMRECD:= #000A ┆
0x35400…35480 UnusedSector ┆BMPER0:= #0069 BNRECD:= #0001 ANSWER:= #004D BMCREE:= #0009 BMPER1:= #0079 DEL:= #007F PREFS:= #0001 CURSLH:= #00B2 EVT0┆
0x35480…35500 UnusedSector ┆:= #0000 EHIBLK:= #000C EDUMMY:= #001F BMPER2:= #0089 KINDFD:= #0400 TIMER:= #0019 DEVPR:= #001F CURIN:= #005A EVT1:= #0┆
0x35500…35580 UnusedSector ┆001 BMPER3:= #0099 BMWC:= #003F PSW:= #001A PRESET:= #0020 ADJUST:= #0035 DEVICE:= #0053 ENTRYA:= #0275 USERLH:= #02F0 ┆
0x35580…35600 UnusedSector ┆EVT2:= #0002 BUFFEH:= #0008 BMPER4:= #00A9 BNWC:= #0006 CURSIN:= #005F EVT3:= #0003 BMPER5:= #00B9 PPRPC:= #000D MSAVE:=┆
0x35600…35680 UnusedSector ┆ #0026 CENTRY:= #005D ABLOCK:= #0003 EVT4:= #0004 ERECOE:= #000A BMPER6:= #00C9 BMACTE:= #BFC0 INTERT:= #0054 CATALG:= #┆
0x35680…35700 UnusedSector ┆0057 WORKLH:= #000C BBLOCK:= #0003 CATALH:= #0058 BMXCU:= #4000 BNSSI:= #0001 REF:= #0003 REFLEH:= #0004 BADDR:= #0002 ┆
0x35700…35780 UnusedSector ┆BMPER9:= #00D9 BNXCU:= #000E PBUFS:= #0002 ITEM:= #FFF3 LOCACN:= #001C TIME:= #0021 EAREA:= #000F BMWEV:= #0002 BMPR:= #┆
0x35780…35800 UnusedSector ┆3F00 ERROR:= #002F REFS:= #0036 W:= #0040 BNEXT:= #0007 ENTRYH:= #0020 BNWEV:= #0001 CATBIN:= #0003 EVENT:= #004D STREA┆
0x35800…35880 UnusedSector ┆T:= #000A BMRUN:= #8000 RECEIR:= #0001 ARESUT:= #0000 AFILE:= #0004 BNRUN:= #000F PROC:= #000D EVENTS:= #003C MCOUNT:= #┆
0x35880…35900 UnusedSector ┆0001 BFILE:= #0004 EPAGE:= #001B CHAIN:= #0005 PRPC:= #0018 ESC:= #001B BMPEND:= #0009 CHILD:= #0003 SMASK:= #0007 BNPE┆
0x35900…35980 UnusedSector ┆ND:= #0000 PCOUNT:= #0006 FREEAS:= #002A NEXTET:= #003B BUFLEH:= #0009 ASTATS:= #0002 BUF:= #0003 FF:= #000C KINDOC:= #0┆
0x35980…35a00 UnusedSector ┆100 CBASE:= #0015 CUREVT:= #003A ECHART:= #001C BMREME:= #0059 BNWAIG:= #0008 CATCAT:= #0006 STATE:= #0000 BUFS:= #0037 ┆
0x35a00…35a80 UnusedSector ┆ CURWOK:= #005C SPROCT:= #0004 BMRENE:= #0039 CATDAT:= #0001 WCATS:= #02B0 SFIRST:= #000E EIDENT:= #0003 EBASE:= #0019 K┆
0x35a80…35b00 UnusedSector ┆INDCR:= #0200 CATOBJ:= #0004 PSIZE:= #000B FIRSTT:= #0039 BMPRCH:= #FFF0 SUSED:= #0012 SHAREH:= #0022 BMWSM:= #0010 PWOR┆
0x35b00…35b80 UnusedSector ┆DS:= #0003 EDATE:= #0004 BNWSM:= #0004 WSAVE:= #02A1 WPROG:= #02A2 BMIGNR:= #000C CATTXT:= #0002 INTRPT:= #0034 MBLOCK:=┆
0x35b80…35c00 UnusedSector ┆ #0003 SREM:= #0010 ENAME:= #0000 BMWSP:= #0020 BNIGNR:= #0002 EDRIVE:= #0007 BNWSP:= #0005 BNRSU:= #0000 BMRX:= #C000 ┆
0x35c00…35c80 UnusedSector ┆DRIVEH:= #0055 MADDRS:= #0002 EMODE:= #001E WORD:= #0000 SIZE:= #0004 PRICHN:= #0032 ESPECL:= #0055 SEOFAN:= #0009 EKIND┆
0x35c80…35d00 UnusedSector ┆:= #001D LF:= #000A EM:= #0019 BMDYNC:= #C03F BMREF:= #0008 CURSWK:= #01C3 BNREF:= #0003 NAMEIT:= #0003 ACTION:= #0058 ┆
0x35d00…35d80 UnusedSector ┆CURSOT:= #0111 MFILE:= #0004 CR:= #000D BMSIGN:= #0004 SAVE0:= #003E CUROUT:= #005B SSSIZE:= #0017 BMWS:= #00C0 BNSIGN:=┆
0x35d80…35e00 UnusedSector ┆ #0002 KINDLP:= #0300 SAVE1:= #003F SENDER:= #0001 ERECOS:= #000D BMSTAC:= #FFC0 LOCREN:= #001D SAVE2:= #0028 SSAVE0:= #┆
0x35e00…35e80 UnusedSector ┆0018 MTESTS= #0000-128*BASE-128*(PROG-1) MMODES= #FFFF-128*BASE-128*(PROG-1) MCHECS= #FFFF-128*BASE-128*(PROG-1) BYTE= #000┆
0x35e80…35f00 UnusedSector ┆0+ 2*BASE+ 0*(PROG-1) PRIOR0= #0000-128*BASE-128*(PROG-1) PRIOR1= #0000-128*BASE-128*(PROG-1) PRIOR2= #0000-128*BASE-128*(PRO┆
0x35f00…35f80 UnusedSector ┆G-1) USE #0 ; 00175900 0 0100 LEVEL 4 NAMES: INSPEE= #0070 ENDPRM= #0041 INPARM= #0068 STARTS= #006C OUTNL= #005D COMPAS= ┆
0x35f80…36000 UnusedSector ┆#0045 CREATS= #006A OUTTET= #005C MPER00= #0051 OUTHEA= #0064 STOPPS= #006D CREATY= #004A RENAMY= #004D GETPON= #0058 R┆
0x36000…36080 UnusedSector ┆EMOVE= #0072 CLOSE= #0054 INWORD= #007C OUTNAE= #0085 PUTARA= #0074 STACK= #0055 OUTEND= #005E LINKNT= #006E SETDEY= #00┆
0x36080…36100 UnusedSector ┆77 BACKSE= #0063 OUTCHR= #005F REMOVM= #0071 INNEXT= #0069 INCHAR= #0061 OUTBLK= #0060 INTYPE= #0066 OPEN= #0053 OUTTEB┆
0x36100…36180 UnusedSector ┆= #005B COMPAE= #0046 INIT= #0052 LINKCD= #006F GETARA= #0073 FREE01= #0089 SETINT= #0078 SETPON= #0057 PUTBYE= #0049 I┆
0x36180…36200 UnusedSector ┆NNAME= #007B NEXTON= #0043 REMOVS= #006B SETPRN= #0076 INCOMD= #0086 CHANGY= #004E NEXTEY= #004C UNSTAK= #0056 INITDE= #┆
0x36200…36280 UnusedSector ┆0042 WAIT= #0059 INITWT= #0075 OUTINR= #0065 REMOVY= #004F FINDEY= #0050 GETADS= #0047 RETURR= #0044 INBLOK= #0062 OUTT┆
0x36280…36300 UnusedSector ┆EP= #005A LOOKUY= #004B GETBYE= #0048 INELET= #0067 USE #0 ; 00197700 0 0040 LEVEL 4 NAMES: GETINL= #0007 GIVEUE= #0018 SE┆
0x36300…36380 UnusedSector ┆ARCS= #001A WAITAR= #000D ENTERL= #0006 WAITIL= #0008 GETINT= #0004 REGISS= #0013 SENDSL= #000A WAITET= #000F WAITIT= #0┆
0x36380…36400 UnusedSector ┆005 WAITDY= #0019 INSERT= #0001 RESERT= #0003 REGREE= #0010 MEMARA= #0014 CREATE= #001C WAITNT= #000E LEAVEL= #0009 TRA┆
0x36400…36480 UnusedSector ┆NST= #0012 CLEART= #0000 SENDME= #000B RELEAT= #0002 SENDAR= #000C RESUMT= #0011 GETEVE= #001B USE #0 ; 00199200 0 0040 LE┆
0x36480…36500 UnusedSector ┆VEL 3 NAMES: USE PROG LOCINT:= #026F LOCACT:= #826F USE #0 SYS2:=FALSE XPD:=DRIVERLENGTH MESSAGE <:CALL S8MXD1:> ; ; CR80 SYST┆
0x36500…36580 UnusedSector ┆EM ONE ; MONITOR ; MASTER: XPD - PROCESS DESCRIPTION (PART 1) ; SHORTENED VERSION, ONLY FOR USE IN CONNECTION WITH PROGRAMS ; T┆
0x36580…36600 UnusedSector ┆O BE INCLUDED IN SYSTEM (XPD= PROCLENGTH, DRIVERLENGTH, OR ; CATALOGLENGTH). ; ; FP/780523 ; MESSAGE <:CALL: S8MXD1, 780523:> ┆
0x36600…36680 UnusedSector ┆ IF XPD NE PROCLH AN XPD NE DRIVEH AN XPD NE CATALH THEN MESSAGE <:*** WRONG SYSTEM FILE USAGE ***:> FI USE BASE LOC=BASE XSTA┆
0x36680…36700 UnusedSector ┆TE 0,0,0 XSIZE 0 XKIND XNAME: XNAME0 IF NAMELENGTH GT 1 THEN XNAME1 IF NAMELENGTH GT 2 THEN XNAME2 IF NAMELENGTH GT 3 THEN┆
0x36700…36780 UnusedSector ┆ 0 REPEAT NAMELENGTH-3-1 FI FI FI IF LOC-XNAME NE NAMELENGTH THEN MESSAGE <:ERROR: XNAME LENGTH:> FI XIDENT 0,0 IF LOC NE PRO┆
0x36780…36800 UnusedSector ┆C THEN MESSAGE <:ERROR: XPROC LOCATION:> FI 0 REPEAT 7 ; REGISTERS XCBASE XCBASEMOD XPROGRAM XPRPC XTIMER XPSW XOLDPROC ┆
0x36800…36880 UnusedSector ┆ XLOCACTION XLOCRETURN XCAUSE XDEVPR XPRESET 0 REPEAT 12 ; TIME0 - FREEAREAS #FFFF XERROR XWARNING XTERMINATE 0 REPEAT┆
0x36880…36900 UnusedSector ┆ 3 ; PRICHN - ADJUST XREFSX XBUFSX XREFS=0 XBUFS=1 0 REPEAT 20 ; RESTING - SAVE19 XWRK: 0 REPEAT CONTLENGTH-1 IF LOC-XWRK ┆
0x36900…36980 UnusedSector ┆NE CONTLENGTH THEN MESSAGE <:ERROR: XWRK LENGTH:> FI LOC= LOC-C IF LOC NE PROCLENGTH-C THEN MESSAGE <:ERROR: XPROC LENGTH:> FI ┆
0x36980…36a00 UnusedSector ┆IF XPD GT PROCLENGTH THEN XRESERVER XDEVICE XINTERRUPT IF LOC NE DRIVERLENGTH-C THEN MESSAGE <:ERROR: XDRIVER LENGTH:> FI IF┆
0x36a00…36a80 UnusedSector ┆ XPD GT DRIVERLENGTH THEN 0 REPEAT 2 ; ESPECIAL - CATALOG IF LOC NE CATALOGLENGTH-C THEN MESSAGE <:ERROR: XCATALOG LENGTH:> FI ┆
0x36a80…36b00 UnusedSector ┆ FI FI XLOC= LOC MESSAGE <:CALL OLTDAT:> ;;---------------------------------------------------------------------- ; ; TEST FI┆
0x36b00…36b80 UnusedSector ┆LE DECLARATION NAMES TABLE FOR OLTO MESSAGE <:OLTO V790615:> ; ; A TEST FILE DECLARATION CONTAINS 4 PARAMETERS (=4 WORDS): ; FI┆
0x36b80…36c00 UnusedSector ┆LE PARAMETER 1: BIT USE ; 0-4 NUMBER OF RECORDS ; 5-11 LENGTH-1 OF EACH RECORD (WDS) ; 12 DATATYPE: 1=ASCII, 0=BINARY ; 13 NOT U┆
0x36c00…36c80 UnusedSector ┆SED ; 14-15 FILE TYPE: ; 0=ABSOLUTE ADDRESSED FILE ; 1=PROCESS RELATIVE ADDRESSED FI ; 2=BUFFER QUEUE ; 3= INDEX FILE ; ;-------┆
0x36c80…36d00 UnusedSector ┆--------------------------------------------------------------- IF NT SYS2 THEN OLTO:= 255 ; OLTO CALL ENTRY FI RCCNMS:= 0 ; STA┆
0x36d00…36d80 UnusedSector ┆RT BIT POSITION OF RECORD NUMBERS FILED RCLGTS:= 5 ; START BIT POSITION OF RECORD LENGTH-1 FILED ASCDAT:= 1<12 ; DATA TYPE = ASC┆
0x36d80…36e00 UnusedSector ┆II BINDAT:= 0<12 ; DATA TYPE = BINARY ABSFIL:= 0<14 ; ABSOLUTE FILE RELFIL:= 1<14 ; RELATIVE FILE BUFQUE:= 2<14 ; BUFFER QUEUE I┆
0x36e00…36e80 UnusedSector ┆NXFIL:= 3<14 ; INDEX FILE SMXS:= 8 ; START BIT POSITION OF SUBMODULE INDEX TPLS:= 12 ; START BIT POSITION OF TEST POINT LEVEL ;-┆
0x36e80…36f00 UnusedSector ┆--------------------------------------------------------------------- MESSAGE <:CALL ISBDAT:> ;; 00000972 0 0000 LEVEL 1 NAMES: ┆
0x36f00…36f80 UnusedSector ┆ CR2A3= #0008 CRFF= #0000 AX= #0002 CR1AF= #0006 CR2AF= #0007 BUFWDS= #0001 CR23= #0004 CR0F= #0001 CR1F= #0002 CR2F= #┆
0x36f80…37000 UnusedSector ┆0003 USE BASE LOCLHR:= #7403 OCTSS:= #0087 QWDOP1:= #0051 ILLPAR:= #0005 LONGBR:= #0000 QUEHDL:= #000F ONDREM:= #0004 LN┆
0x37000…37080 UnusedSector ┆CLAS:= #0057 OCLHRM:= #0077 OCASTB:= #007D REVLCH:= #0084 CRMFIS:= #0002 LSTAWS:= #0007 QWDOP2:= #0053 QNCNFO:= #0060 ON┆
0x37080…37100 UnusedSector ┆DS1:= #0064 CLTUST:= #0004 MFLOFR:= #0010 OCREON:= #007B TCTR:= #0001 LNMSST:= #0061 CMFSTA:= #0007 CRNXTY:= #0003 QTMXO┆
0x37100…37180 UnusedSector ┆P:= #0035 QOLDER:= #006E INITPB:= #00F5 ONDRCR:= #0001 CMFACC:= #0002 OCDSTB:= #007C OCTSW:= #0086 CRTST:= #0008 QLHDOP:┆
0x37180…37200 UnusedSector ┆= #0066 OLDERR:= #00E3 SIZTMR:= #0006 LGTTST:= #06F0 LTUCO2:= #0003 CLTUP1:= #0001 CRNXID:= #0002 AFEPS:= #0005 QOPOR1:=┆
0x37200…37280 UnusedSector ┆ #0054 PROBQE:= #00F6 ONDERR:= #003C LTU48:= #000A CLTUP2:= #0002 OCTELK:= #000A CRTSTS:= #0004 QOPOR2:= #0056 QTLSTL:= ┆
0x37280…37300 UnusedSector ┆#005E LOCTEL:= #5283 LOCDTM:= #66D3 LNMAXC:= #0065 MFTLLD:= #0012 OCCLOS:= #0071 QOPOR3:= #0057 ONDDTK:= #0035 LNCLDW:= ┆
0x37300…37380 UnusedSector ┆#0056 LTUX25:= #0002 MFCLOS:= #0004 MFPCKS:= #0006 QCTR1:= #002C QOPOR4:= #0058 QBUSY:= #0003 TYPSTA:= #0002 RLTUTL:= #0┆
0x37380…37400 UnusedSector ┆017 CRSTWS:= #0001 LHPCKS:= #0005 PRI0:= #0000 CRTSBF:= #0000 LGTOLD:= #0670 LGTSCH:= #00E0 MFLOG:= #0010 OCMFTM:= #0076┆
0x37400…37480 UnusedSector ┆ MSGTXT:= #0001 MSGID:= #0004 MSGOLD:= #0007 MSGSCH:= #000A PRI1:= #0001 TINZ:= #0004 LGTWDD:= #0700 LGTBQM:= #05E0 LOC┆
0x37480…37500 UnusedSector ┆CTR:= #2F53 LNCLRM:= #0058 MSGWDD:= #0012 QOLTX:= #0071 LOCTIM:= #90F3 ONDCOU:= #0003 MFLFR:= #0021 OCFEP1:= #0078 AUX:=┆
0x37500…37580 UnusedSector ┆ #0075 COPYBK:= #00F9 LHSINK:= #0000 LTU300:= #0002 LTU120:= #0004 RLTUTP:= #0014 CMFDIC:= #0003 OCFEP2:= #0079 ONDWDN:=┆
0x37580…37600 UnusedSector ┆ #0004 OCDOWN:= #0005 QTELLH:= #0030 QNCNFT:= #0061 PTYPE0:= #0000 TYPCHA:= #FFFE TMF1:= #0002 LOCXCR:= #57D3 LTU320:= #┆
0x37600…37680 UnusedSector ┆0009 MFDOWN:= #0007 MFTHDW:= #0009 CRSGNN:= #0005 MSGREM:= #0001 QOCIN:= #0026 QTLFDP:= #004C QOLDWD:= #005B QWDOLD:= #0┆
0x37680…37700 UnusedSector ┆05C PTYPE1:= #0001 FPX25E:= #0002 LOCPFX:= #9F83 ONDWDP:= #0003 LHQFUL:= #0001 LTU150:= #0001 LTU600:= #0003 LTU240:= #0┆
0x37700…37780 UnusedSector ┆005 MFRGO:= #0026 MSGS1:= #0017 PTYPE2:= #0002 GETQUE:= #0004 TCTX:= #0005 LGTLHR:= #0B20 ONDMFY:= #0032 MFERR:= #0040 ┆
0x37780…37800 UnusedSector ┆MSGLHR:= #0009 PTYPE3:= #0003 CRTPDP:= #0002 TX25:= #0007 FPTERM:= #0024 MFINPT:= #0001 FPDOWN:= #0000 LOCINZ:= #6283 QT┆
0x37800…37880 UnusedSector ┆ELIP:= #002E QLHDOW:= #0043 THRHG:= #000A LOCCM1:= #46D3 ONDXER:= #0005 LTU190:= #0008 CLTULD:= #0022 OCTEL:= #0093 QXCL┆
0x37880…37900 UnusedSector ┆HP:= #006B GETINX:= #00F7 WRITED:= #00E6 LOCCM2:= #4EB3 ONDSTA:= #0007 LNPLSA:= #0060 MFCNT:= #0003 CMER:= #0001 LTU480:┆
0x37900…37980 UnusedSector ┆= #0006 MFZZFD:= #0002 TYPXOP:= #0000 LOCMF1:= #6B43 CLTUCP:= #0005 OCTLAX:= #0094 READBK:= #00EC HOME:= #00E9 NOPCK:= #┆
0x37980…37a00 UnusedSector ┆0006 LGTTEL:= #0550 LGTDTM:= #0470 LOCOLT:= #2AE3 LOCMF2:= #71E3 LNTMDN:= #005D MFLSNM:= #0004 OCSDSP:= #0089 MSGDTM:= #┆
0x37a00…37a80 UnusedSector ┆0008 MSGTEL:= #000E QSDESL:= #0065 FPCLUS:= #0004 LNCLUP:= #0055 LTU960:= #0007 RLTUTT:= #0016 MFNULL:= #0023 OCFEU1:= #┆
0x37a80…37b00 UnusedSector ┆0008 FPWORG:= #0002 BUFSHT:= #0001 LOCX25:= #B763 OCFEU2:= #0009 OCIMAC:= #000D CRUMF:= #0006 PORT1:= #0001 LNTLDR:= #00┆
0x37b00…37b80 UnusedSector ┆64 MFRET:= #0003 MFINT:= #0006 QTLFDT:= #004B PORT2:= #0002 LGTCTR:= #1780 LOCTMR:= #5083 LTURED:= #0000 MFCODE:= #0000 ┆
0x37b80…37c00 UnusedSector ┆ MSGCTR:= #0002 ILLOP:= #0000 SIZSTT:= #0014 PORT3:= #0003 LGTTIM:= #0120 LNDOWN:= #0052 CMFRSV:= #0006 RMUDTE:= #0080 M┆
0x37c00…37c80 UnusedSector ┆SGTIM:= #0004 QCSPOL:= #0062 BACKSC:= #00EA PORT4:= #0004 ONDER1:= #003D LDENDI:= #0004 MSGRET:= #0002 QOCOP:= #0027 QDS┆
0x37c80…37d00 UnusedSector ┆POL:= #004E TERMPK:= #00F2 GETPOS:= #00E8 LOWTHD:= #0014 FPX25M:= #000A ONDER2:= #003E QTMCOP:= #0024 QX25DN:= #004A REA┆
0x37d00…37d80 UnusedSector ┆DCR:= #00EE CMOK:= #0000 LGTXCR:= #04D0 ONDER3:= #003F LHCNFG:= #0002 MFABC:= #0027 MSGXCR:= #000D QTELOP:= #002F FORWSC┆
0x37d80…37e00 UnusedSector ┆:= #00EB TLTX:= #0006 LGTPFX:= #0B10 LHXFR:= #0004 MFRECF:= #0028 MSGPFX:= #0013 QMF1IN:= #0028 QX25DP:= #0048 COPYPK:= ┆
0x37e00…37e80 UnusedSector ┆#00FA WRTYP:= #0001 UPPTHD:= #001E TYPXOS:= #0004 ONDTRP:= #0001 LNTMAS:= #005A OCIMIC:= #0001 MSGDRY:= #0000 QMF2IN:= #┆
0x37e80…37f00 UnusedSector ┆002A QFDDCR:= #004D QILTXD:= #006F WRITEK:= #00E5 SHORTF:= #0004 SIZMEN:= #0064 TLHD:= #0006 MFLACK:= #0022 MSGOPR:= #00┆
0x37f00…37f80 UnusedSector ┆00 MSGSTA:= #0001 TCMI:= #0003 LGTINZ:= #0450 MFLSN:= #0005 OCNO:= #0073 MSGINZ:= #0001 LGTCM1:= #07E0 CLTULN:= #0021 O┆
0x37f80…38000 UnusedSector ┆CAUX:= #0092 MSGCM1:= #000B LGTCM2:= #01D0 LDLTUN:= #0002 LNRASS:= #0053 CLTUGS:= #0001 CLTUCW:= #0006 MFLTO:= #0021 MFA┆
0x38000…38080 UnusedSector ┆BI:= #0008 OCXSTA:= #0085 MSGCM2:= #000C MSGSTD:= #0001 QX25IP:= #0040 TRANSK:= #00F0 LOCOTS:= #AA93 LDCFSE:= #000C CLTU┆
0x38080…38100 UnusedSector ┆GT:= #0000 CLTULP:= #0020 MFXDAA:= #0031 OCMFAL:= #0072 OCSSPL:= #0088 OCWDSS:= #008A TFEPS:= #0004 QCTRIX:= #0042 FPCDA┆
0x38100…38180 UnusedSector ┆T:= #00C8 LGTMF1:= #06A0 LDLTUP:= #0003 LNEUP:= #0051 CLTUON:= #0007 MFTNO:= #0001 OCYES:= #0074 ASGNDE:= #007F OCM1DW:=┆
0x38180…38200 UnusedSector ┆ #008B OCFEAT:= #0007 MSGNO:= #0002 MSGMF1:= #0005 QTMRIP:= #0059 SETTHL:= #0006 LGTMF2:= #0220 LGTOLT:= #0470 LTULOF:= ┆
0x38200…38280 UnusedSector ┆#0003 MFSOP:= #0024 OCM2DW:= #008C MSGMF2:= #0006 MSGWDS:= #0002 WRITER:= #00E7 TYPDAS:= #0005 TYPSTS:= #0006 LNCODE:= #┆
0x38280…38300 UnusedSector ┆0000 LTU0:= #0000 MFOPT:= #0020 OCFEDS:= #008E OCCONC:= #0090 RESUMK:= #00F1 TYPDAT:= #0001 LGTX25:= #1000 LOCLHD:= #ABC┆
0x38300…38380 UnusedSector ┆3 LNPLSP:= #005F CLTUPP:= #0003 RLTUCN:= #0013 CMFCON:= #0001 OCDISC:= #0075 OCSTOP:= #0001 FPSTAY:= #0001 MSGX25:= #001┆
0x38380…38400 UnusedSector ┆1 LOCCMI:= #86F3 LNTMRM:= #005B IPCBSE:= #0014 MSGPNT:= #0000 MAXTYE:= #0008 LGTTMR:= #0200 RLTUCP:= #0012 MFHSZ:= #0006┆
0x38400…38480 UnusedSector ┆ MSGTMR:= #000F QTMIN:= #0025 CONNEE:= #00F4 NEXTPK:= #00F3 READWD:= #00ED LONGBF:= #0000 ONDCHM:= #0033 LHDRCL:= #0001 ┆
0x38480…38500 UnusedSector ┆ LHCNFN:= #0003 OCMINC:= #0070 OCFEDW:= #008D CRCUTY:= #0000 MSGTRN:= #0004 TYPPCK:= #FFFF LHNOCF:= #0000 CRDISD:= #0004 ┆
0x38500…38580 UnusedSector ┆ MSGWDY:= #0003 QTMLOP:= #0000 QCNVI1:= #0031 LNSTAS:= #0063 MFINPA:= #0011 MFXCFF:= #0030 OPENDE:= #0081 CRCUID:= #0001 ┆
0x38580…38600 UnusedSector ┆ MSGTRP:= #0005 QMF1OP:= #0029 QCNVI2:= #0032 SIZMAX:= #05DC TOLD:= #0008 TSCH:= #0000 ONDTRW:= #0002 LHCOPF:= #0002 MFX┆
0x38600…38680 UnusedSector ┆DFF:= #0031 RECSIE:= #000A QMF2OP:= #002B QWDIN1:= #0050 TWDD:= #0009 LHCNFR:= #0005 QWDIN2:= #0052 QILTXM:= #0070 CRTQU┆
0x38680…38700 UnusedSector ┆P:= #0003 FPLINE:= #0004 PRGSTP:= #C763 LDLTUS:= #0001 CLTUTL:= #0024 QX25OP:= #003F QXSLHP:= #006D QCNT:= #0075 TFLP:= ┆
0x38700…38780 UnusedSector ┆#000B ISBSV:= #0000 LOCTST:= #8003 LNAUX:= #005E LNSTAW:= #0062 QCTROX:= #0041 QNCNFI:= #005F OVFL:= #0002 TYPHLP:= #000┆
0x38780…38800 UnusedSector ┆3 QTMROP:= #005A QLHDIN:= #006A REGREK:= #00EF SHORTR:= #0001 PACKET:= #0002 LLCFSE:= #0008 CLTUOT:= #0008 CLTULW:= #002┆
0x38800…38880 UnusedSector ┆3 OCTELB:= #008F OCTLFA:= #000B CLTUPT:= #0002 CLOSDE:= #0082 OCTLFB:= #000C QLHDIP:= #0047 MAXCMD:= #0007 TLHR:= #0000 ┆
0x38880…38900 UnusedSector ┆ LGTOTS:= #0130 LDFIRR:= #0000 LNCLRA:= #0059 LTULON:= #0004 OCMAXC:= #0096 OCABRT:= #0006 TDOWN:= #0009 MSGCMD:= #0001 ┆
0x38900…38980 UnusedSector ┆QIPOR1:= #0055 LOCSCH:= #7F23 LOCOLD:= #9213 OCSEND:= #0070 OCDEMT:= #0095 OCM1UP:= #0003 CRCMF:= #0007 MSGSTP:= #0002 Q┆
0x38980…38a00 UnusedSector ┆CDESL:= #0064 PCBLGT:= #0023 LOCBQM:= #5CA3 LOCWDD:= #9883 LNTEXT:= #0050 LNTMUP:= #005C RLTUTD:= #0015 MFINB:= #0025 OC┆
0x38a00…38a80 UnusedSector ┆TELF:= #007A ASGNLH:= #0083 OCSTRT:= #0091 OCM2UP:= #0004 QDDESL:= #004F CONNEK:= #00F3 CRTLBF:= #0001 LNCHLN:= #0054 RL┆
0x38a80…38b00 UnusedSector ┆TULN:= #0011 OCXCMD:= #007E QTLCFD:= #005D VPOOL:= #00FB LGTLHD:= #0BA0 ONDTXT:= #0006 MFXCMD:= #0030 MSGLHD:= #0010 QCT┆
0x38b00…38b80 UnusedSector ┆RBC:= #002D QCNVO1:= #0033 QSSPOL:= #0063 STORET:= #00E4 LGTCMI:= #0A00 ONDLIK:= #0034 ONDBQM:= #0065 LNMINC:= #0050 RLT┆
0x38b80…38c00 UnusedSector ┆ULP:= #0010 MFLINK:= #0029 CMFRES:= #0004 MSGCMI:= #0003 QCNVO2:= #0034 THRLW:= #0005 LTUWRE:= #0004 MFRECT:= #0005 CMFR┆
0x38c00…38c80 UnusedSector ┆ET:= #0005 EDITPK:= #00F8 TDTM:= #000A OCFEUP:= #0002 RDTYP:= #0000 INVQU:= #0004 PUTQUE:= #0005 MAXREE:= #0003 TYPHLS:=┆
0x38c80…38d00 UnusedSector ┆ #0007 USE #0 MESSAGE <:CALL ICLERR:> ; ;---------------------------------------------------------------------- ;--------------┆
0x38d00…38d80 UnusedSector ┆-------------------------------------------------------- ;MODULE IDENTIFICATION: ICL-ISB/ICLERR/200 ;DATED 790731/PSC ;VERSION: ┆
0x38d80…38e00 UnusedSector ┆01 ;---------------------------------------------------------------------- ; ;THIS MODULE WILL RESERVE A COMMON AREA IN EACH SOF┆
0x38e00…38e80 UnusedSector ┆TWARE MODULE FOR ;USE BY THE MONITOR FUNCTION :ERROR,WHICH IS PART OF THE ON LINE ;DIAGNOSTIC SOFTWARE MODULE. ; 0,REPEAT(CAT┆
0x38e80…38f00 UnusedSector ┆ALOGLGTH-LOC) ERRPCB: 0 ; SAVE AREA FOR PCB REPEAT(PCBLGT-1) ; ERRSV1: XDATE ; SAVE AREA ERRSV2: 0 ; SAVE AREA ERRSV3: 0 ; SAVE┆
0x38f00…38f80 UnusedSector ┆ AREA ERRSV4: 0 ; SAVE AREA ERRSV5: 0 ; SAVE AREA ERRSV6: 0 ; SAVE AREA ERRSV7: 0 ; SAVE AREA LIST ISTOEB=TRUE ;ISO TO EBCIDIC ┆
0x38f80…39000 UnusedSector ┆CONVERSION ENALBED ISTOEB=FALSE ;ISO TO EBCIDIC CONVERSION DISENABLED RTG: 0 CCWD: 0 ; "CC" CODE MESSCNT: 0 ; NUMBER OF MESSAGES┆
0x39000…39080 UnusedSector ┆ SENT CTRWAIT: 5 ; DELAY TIME ISTRLH: 0 ; INPUT Q FROM MF CMIRD: 0 ; INPUT QU FROM CMI OSTRCT: 0 ; OUTPUT Q TO MF XQUEL=LOC-ISTR┆
0x39080…39100 UnusedSector ┆LH R1GEM: 0 R2GEM: 0 R3GEM: 0 R4GEM: 0 R5GEM: 0 STCPTR: 0,REPEAT 5 PCBIP: 0,REPEAT (PCBLGT-1) ; INPUT Q PCB PCBOP: 0,REPEAT (PCB┆
0x39100…39180 UnusedSector ┆LGT-1) ; OUTPUT Q PCB CTRJMP: 0 ; JUMP TABLE ENTRY ;----------------------------------------------------------------------- ;---┆
0x39180…39200 UnusedSector ┆-------------------------------------------------------------------- ; ; CONVERSION TABLE ISO => EBCIDIC. ; --------------------┆
0x39200…39280 UnusedSector ┆------------ ; ; THE TABLE CONSISTS OF 8 ENTRIES OF 16 WORDS. ; THE LEAST SIGNIFICANT 7 BITS OF THE ISO CHARACTER ARE ; USED FOR┆
0x39280…39300 UnusedSector ┆ THE CONVERSION. THE 3 MOST SIGNIFICANT BITS ; ARE USED TO ADDRESS ONE OF 0-7 ENTRIES, ; WHILEST THE REMAINING 4 BITS ARE USED T┆
0x39300…39380 UnusedSector ┆O ADDRESS ; ONE OF 0-15 WORDS WITHIN THE ENTRY. ; THE ADDRESSED WORD IS THE MATCHING EBCIDIC CHARACTER. ; CONVITE: ;ENTRY 0 #3F,┆
0x39380…39400 UnusedSector ┆#3F,#3F,#3F,#3F,#3F,#3F,#2F #16,#05,#15,#0B,#0C,#0D,#0E,#0F ;ENTRY 1 #3F,#11,#12,#13,#3C,#3F,#32,#26 #18,#19,#1A,#27,#1C,#1D,#1E┆
0x39400…39480 UnusedSector ┆,#1F ;ENTRY 2 #40,#4F,#7F,#7B,#5B,#6C,#50,#7D #4D,#5D,#5C,#4E,#6B,#60,#4B,#61 ;ENTRY 3 #F0,#F1,#F2,#F3,#F4,#F5,#F6,#F7, #F8,#F9,┆
0x39480…39500 UnusedSector ┆#7A,#5E,#4C,#7E,#6E,#6F ;ENTRY 4 #7C,#C1,#C2,#C3,#C4,#C5,#C6,#C7 #C8,#C9,#D1,#D2,#D3,#D4,#D5,#D6 ;ENTRY 5 #D7,#D8,#D9,#E2,#E3,#E┆
0x39500…39580 UnusedSector ┆4,#E5,#E6 #E7,#E8,#E9,#4A,#E0,#5A,#5F,#6D ;ENTRY 6 #79,#81,#82,#83,#84,#85,#86,#87 #88,#89,#91,#92,#93,#94,#95,#96 ;ENTRY 7 #97,┆
0x39580…39600 UnusedSector ┆#98,#99,#A2,#A3,#A4,#A5,#A6 #A7,#A8,#A9,#C0,#6A,#D0,#A1,#3F ; IF CONVITE+(8*#10) NE LOC THEN MESSAGE <:ITE TABLE LAYOUT ERROR:> ┆
0x39600…39680 UnusedSector ┆FI ;----------------------------------------------------------------------- ;---------------------------------------------------┆
0x39680…39700 UnusedSector ┆-------------------- MSG01: #00F0,#F0F0,#E9E9, #0021,#D5D5,#D5D5, 0,REPEAT 16 MSG01L=LOC-MSG01 MSG02: #00F4,#0001,#E9E9, #001┆
0x39700…39780 UnusedSector ┆E,#D5D5,#D5D5, 0,REPEAT 14 MSG02L=LOC-MSG02 MSG03: #00C2,#0001,#E9E9, #000E,#D5D5,#D5D5, 0,REPEAT 6 MSG03L=LOC-MSG03 MSG04: #┆
0x39780…39800 UnusedSector ┆0009,#0001,#E9E9, #000E,#D5D5,#D5D5, 0,REPEAT 6 MSG04L=LOC-MSG04 MSG05: #000A,#0000,#E9E9, #000A,#D5D5,#D5D5, #F0F0,#C3C3,#C┆
0x39800…39880 UnusedSector ┆3C2, #C200,#FFFF MSG05L=LOC-MSG05 ; TXT01: <:Z0050CCCBBINPUT FROM TERMINAL 00.:> TXT01L=LOC-TXT01 TXT02: <:Z400099998CONFIG FIL┆
0x39880…39900 UnusedSector ┆E VERSION.:> TXT02L=LOC-TXT02 TXT03: <:ZB000999980002:> ; NETWORK CLOSED DOWN TXT03L=LOC-TXT03 TXT04: <:ZB000999980003:> ; THIS ┆
0x39900…39980 UnusedSector ┆M/F DOWN TXT04L=LOC-TXT04 0,REPEAT 31 ; SPARE FOR LATER USE ; ;----------------------------------------------------------------┆
0x39980…39a00 UnusedSector ┆------- ;----------------------------------------------------------------------- FILDEC1: RELFIL OR ASCDAT OR((SIZMEAN-1)/4)<RCL┆
0x39a00…39a80 UnusedSector ┆GTS OR 4 OSTRCT <:QCTR:> ; FILDEC3: RELFIL OR BINDAT OR (1-1)<RCLGTS OR XQUEL ISTRLH <:QMF1:> TT:=BUFQUE OR BINDAT OR (BUFWDS┆
0x39a80…39b00 UnusedSector ┆-1)<RCLGTS OR 1 PFQ1: TT 0 <:QUE1:> USE PROG TPOS:=1<TPLS OR TCTR<SMXS ; ;---------------------------------------------------┆
0x39b00…39b80 UnusedSector ┆-------------------- ; JUMP TABLE. ; LSTART: START LCONVE: CONVE LLOOP1: LOOP1 LQUERR: QUERR LPNTQ: PNTQ LMESS1: MESS1 LMESS2: M┆
0x39b80…39c00 UnusedSector ┆ESS2 LMESS3: MESS3 LMESS4: MESS4 LMESS5: MESS5 LSENDQ: SENDQ LMAINLOOP: MAINLOOP LSENDMESS: SENDMESS ;--------------------------┆
0x39c00…39c80 UnusedSector ┆--------------------------------------------- ;S T A R T . ;------------ ; START: MON OLTO,TPOS OR 0,0 MOVC STCPTR R0 MON WAI┆
0x39c80…39d00 UnusedSector ┆TEVENT JMPI S4 LSTART MOV MSGID. X7 R4 SEQ R4 MSGINZ ; IF NOT INZTHEN JMPI S4 LSTART MON SENDANSWEAR MOV MSGNO. X7 R3 ; PO┆
0x39d00…39d80 UnusedSector ┆INTER TO TABLE MON OLTO,TPOS OR 240 ,0 MODN CBASE-C MOV FPCDAT R5 ; SUB CBASE-C R5 MOV QMF1IN.X5 R3 ; LOGICAL QUE NO MOV R┆
0x39d80…39e00 UnusedSector ┆3 OSTRCT MOV QMF1OP.X5 R3 ; LOGICALL Q NO. FOR OUTPUT MOV R3 ISTRLH ;---------------------------------------------------------┆
0x39e00…39e80 UnusedSector ┆-------------- ; SEND FROM CTR MOV R0 R4 MOV CTRWAIT R0 ; FETCH DELAY MON WAITDELAY MOV R4 R0 ;----------------------------┆
0x39e80…39f00 UnusedSector ┆------------------------------------------- ; ;THE MESSAGES ARE SET UP BY CONVERTING THE TEXT PART ; INTO EBCIDIC,AND PLACING TH┆
0x39f00…39f80 UnusedSector ┆E EBCIDIC CHARACTER ; INTO THE MESSAGE AREA.A JUMP IS PERFORMED TO "CONVE" ; WITH THE FOLLOWING PARAMETERS: ; R7 = MESSAGE ADDRE┆
0x39f80…3a000 UnusedSector ┆SS ; R4 = TEXT ADDRESS ; R3 = TEXT LENGTH ; R6 = RETURN LINK. ; ;---------------------------------------------------------------┆
0x3a000…3a080 UnusedSector ┆---------------- ; MOVC MSG01 R7 MOVC TXT01 R4 MOVC TXT01L<1 R3 ; *2 = BYTES JMPI S6 LCONVE MOVC MSG02 R7 MOVC TXT02 R4 M┆
0x3a080…3a100 UnusedSector ┆OVC TXT02L<1 R3 ; *2 = BYTES JMPI S6 LCONVE MOVC MSG03 R7 MOVC TXT03 R4 MOVC TXT03L<1 R3 ; *2 = BYTES JMPI S6 LCONVE MOVC ┆
0x3a100…3a180 UnusedSector ┆MSG04 R7 MOVC TXT04 R4 MOVC TXT04L<1 R3 ; *2 = BYTES JMPI S6 LCONVE ;--------------------------------------------------------┆
0x3a180…3a200 UnusedSector ┆--------------- MAINLOOP: LOOP1: MOV RTG R1 ; IEQ R1 #26 ; IF R1 NE #26 THEN JMPI LSENDMESS ; SEND MESSAGE 1. MOVC TYPCHA R3┆
0x3a200…3a280 UnusedSector ┆ MOV ISTRLH R5 ; Q FROM MF1 MON PROBQUE JMPI S4 LSTART IEQ R3 0 ; IF NO DATA THEN JMPI LLOOP1 ;----------------------------┆
0x3a280…3a300 UnusedSector ┆------------------------------------------- ;----------------------------------------------------------------------- ; ; P R I N┆
0x3a300…3a380 UnusedSector ┆ T Q U E S U B R O U T I N E . ; ; REGISTER CALL EXIT ; R4 LINK LINK ; R5 QUE ;-------------------------------------------------┆
0x3a380…3a400 UnusedSector ┆---------------------- ;----------------------------------------------------------------------- PNTQ: STC R4 X0 MOV R5 PFQ1+┆
0x3a400…3a480 UnusedSector ┆1 ; SAVE QUE FOR OLTO MON OLTO,TPOS OR 100,PFQ1 ; USED BY OLTO TO PRINT Q MOVC RDTYP R3 ; READTYPE MOVC PCBIP R4 ; INPUT Q PC┆
0x3a480…3a500 UnusedSector ┆B MON INITPCB JMPI& LQUERR MOV R5 R3 MON CONNECTQUE JMPI& LQUERR MON CONNECTPACK JMPI& LQUERR MON READWORD JMPI& LQUERR┆
0x3a500…3a580 UnusedSector ┆ MOV R3 R1 ; "CC" CODE MOV R1 CCWD ; SAVE "CC" CODE MON TERMPACK JMPI& LQUERR IEQ R1 #29 ; LINK OPEN JMPI LMESS5 IEQ R1 #┆
0x3a580…3a600 UnusedSector ┆26 ; READY TO GO MOV R1 RTG IEQ R1 #F4 ; TP FILE VERSION NO JMPI LMESS2 UNS R4 X0 ; UNSTACK SAVED REGISTERS. JMPI LLOOP1 ;┆
0x3a600…3a680 UnusedSector ┆FF ;------------------------------------------------------------------------------- ;------------------------------------------┆
0x3a680…3a700 UnusedSector ┆------------------------------------- ;PROCEDURE TO SEND A PACKET. ;R1 MSGNO ;R2 MSGLGT ;R3 TYPE ;R4 LINK LINK ;R5 QUE ;--------┆
0x3a700…3a780 UnusedSector ┆----------------------------------------------------------------------- SENDQ: STC R4 X0 MOV R1 R1GEM ; MESSAGE MOV R2 R2GEM ┆
0x3a780…3a800 UnusedSector ┆; MESSAGE LENGTH MOV R3 R3GEM ; TYPDAT MOV R5 R5GEM ; OUTPUT QUE MOVC PRI0 R1 MOVC SIZMEAN R2 MOVC WRTYP R3 MOVC PCBIP R4 ┆
0x3a800…3a880 UnusedSector ┆ MON INITPCB JMPI& LQUERR MOV R5 R3 MOV R3 PFQ1+1 ;SAVE ABS POINTER FOR OLTO MON OLTO,TPOS OR 2,0 ; PRINT LTN,XQUEP MON CON┆
0x3a880…3a900 UnusedSector ┆NECTQUE JMPI& LQUERR MOV R3GEM R3 ; TYPDAT MON CONNECTPACK JMPI& LQUERR MOV R2GEM R2 SLL R2 1 ; X 2 MOV R1GEM R3 MON WRI┆
0x3a900…3a980 UnusedSector ┆TEBLOCK JMPI& LQUERR MON TERMPACK JMPI& LQUERR MON OLTO,TPOS OR 4,PFQ1 ; PRINTQUE UNS R4 X0 JMP X4 ; END ;----------------┆
0x3a980…3aa00 UnusedSector ┆------------------------------------------------------- ; ; S E N D M E S S A G E U . ; ;---------------------------------------┆
0x3aa00…3aa80 UnusedSector ┆-------------------------------- ; SENDMESS: MOVC 100 R0 ; DELAY = U SECOND MON WAITDELAY MOVC 1 R1 MOVC MESSCNT R0 ADD R1 ┆
0x3aa80…3ab00 UnusedSector ┆X0 MESS1: MOVC MSG01 R1 ; MESSAGE MOVC MSG01L R2 ; MESSAGE LENGTH MOVC TYPDAT R3 ; TYPDAT MOV OSTRCT R5 ; QUE JMPI S4 LSEN┆
0x3ab00…3ab80 UnusedSector ┆DQ JMPI LMAINLOOP MESS2: MOVC MSG02 R1 ; MESSAGE MOVC MSG02L R2 MOVC TYPDAT R3 MOV OSTRCT R5 JMPI S4 LSENDQ JMPI LMAINLOO┆
0x3ab80…3ac00 UnusedSector ┆P MESS3: MOVC MSG03 R1 ; MESSAGE MOVC MSG03L R2 MOVC TYPDAT R3 MOV OSTRCT R5 JMPI S4 LSENDQ JMPI LMAINLOOP MESS4: MOVC MS┆
0x3ac00…3ac80 UnusedSector ┆G04 R1 ; MESSAGE MOVC MSG04L R2 MOVC TYPDAT R3 MOV OSTRCT R5 JMPI S4 LSENDQ JMPI LMAINLOOP MESS5: MOVC MSG05 R1 ; MESSAGE ┆
0x3ac80…3ad00 UnusedSector ┆ MOVC MSG05L R2 MOVC TYPDAT R3 MOV OSTRCT R5 JMPI S4 LSENDQ JMPI LMAINLOOP ;------------------------------------------------┆
0x3ad00…3ad80 UnusedSector ┆----------------------- ; ; SUBROUTINE TO CONVERT THE TEXT TO EBCIDIC.THE CONVERTED ; TEXT IS THEN PLACED IN THE RELEVANT MESSAG┆
0x3ad80…3ae00 UnusedSector ┆E. ; ; REGISTER CALL EXIT ; R3 CHARACTER COUNT 0 ; R4 TEXT ADDRESS TEXTADD+COUNT ; R6 LINK LINK ; R7 MESSAGE ADDRESS MESSADD+COU┆
0x3ae00…3ae80 UnusedSector ┆NT ; ; REGISTER USE ; R2 PASSING/RECEIVING THE ISO/EBCIDIC CHTR ; R5 INDEX TO CONVERSION TABLE ; ;------------------------------┆
0x3ae80…3af00 UnusedSector ┆----------------------------------------- ;----------------------------------------------------------------------- CONVE: ; CONV┆
0x3af00…3af80 UnusedSector ┆ERT ISO => EBCIDIC MOVC 1 R1 ; SUBTRACTION CONSTANT ADDC 6 R7 ; POINT TO TEXT PART OF MESSAGE SLL R7 1 ; *2 GIVES BYTE ADDRES┆
0x3af80…3b000 UnusedSector ┆S SLL R4 1 ; BYTE ADDRESS OF TEXT MORE: ; RETURN HERE TILL COUNT=0 MOVB X4 R2 ; GET ISO CHTR IN TEXT IF ISTOEB EQ TRUE THEN ┆
0x3b000…3b080 UnusedSector ┆XTR R2 7 ; DISCARD MOST SIG BIT MOV R2 R5 ; MOVE TO INDEX REG MVP CONVITE.X5 R2 ; EBCIDIC CHTR FROM TABLE ELSE FI MOVB R2 X┆
0x3b080…3b100 UnusedSector ┆7 ; MOVE CHTR INTO MESSAGE SUB R1 R3 ; DECREMENT COUNT SNE R3 0 ; IF COUNT V 0 THEN JMP X6 ; RETURN, ELSE ADDC 1 R7 ; INCREM┆
0x3b100…3b180 UnusedSector ┆ENT MESSAGE AND ADDC 1 R4 ; TEXT ADDRESSES JMP MORE ; GO AND CONVERT ; REMAINING CHARACTERS. LHR080: ; WRONG INZ ANSWEAR M┆
0x3b180…3b200 UnusedSector ┆ON OLTO,TPOS OR 20,0 JMP LHR099 ; GO TO STOP LHR081: ; WRONG INZ/ID MON OLTO,TPOS OR 21,0 JMP LHR099 ; GO TO STOP QUERR: MON┆
0x3b200…3b280 UnusedSector ┆ OLTO,TPOS OR 25,0 LHR099: ;STOP JMP LHR099 ; LOOP LIKE HELL. USE BASE XNAME0=<:CM:> XNAME1=<:1:> XBUFS=2 XREFS=2 XPRPC=START N┆
0x3b280…3b300 UnusedSector ┆OLIST ; ; CR80 SYSTEM ONE ; MONITOR ; MASTER: XPD - PROCESS DESCRIPTION (PART 2) ; SHORTENED VERSION, ONLY FOR USE IN CONNECTIO┆
0x3b300…3b380 UnusedSector ┆N WITH PROGRAMS ; TO BE INCLUDED IN SYSTEM (XPD= PROGLENGTH, DRIVERLENGTH, OR ; CATALOGLENGTH). ; ; FP/780621 ; MESSAGE <:CALL:┆
0x3b380…3b400 UnusedSector ┆ S8MXD2, 780621:> IF XPD NE PROCLH AN XPD NE DRIVEH AN XPD NE CATALH THEN MESSAGE <:*** WRONG SYSTEM FILE USAGE ***:> FI USE B┆
0x3b400…3b480 UnusedSector ┆ASE XLOC= LOC-XLOC-C XSTATE= 0 XKIND= 0 XNAME0= 0 XNAME1= 0 XNAME2= 0 XIDENT= 0 XCBASE= 0 XCBASEMOD= 0 XPRPC= 0 XTIMER┆
0x3b480…3b500 UnusedSector ┆= 100 XPSW= 0 XOLDPROC= 0 XLOCACTION= LOCACT XLOCRETURN= 0 XCAUSE= 0 XDEVPR= 0 XPRESET= 100 XERROR= 0 XWARNING= 0 XTER┆
0x3b500…3b580 UnusedSector ┆MINATE= 0 XRESERVER= 0 XDEVICE= 0 XINTERRUPT= 0 IF XREFS EQ 0 THEN XREFSX=0 ELSE XREFSX: IF XREFS GT 13 THEN XREFS=XREFS┆
0x3b580…3b600 UnusedSector ┆-13 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT R┆
0x3b600…3b680 UnusedSector ┆EFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 R┆
0x3b680…3b700 UnusedSector ┆EPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-N┆
0x3b700…3b780 UnusedSector ┆EXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFL┆
0x3b780…3b800 UnusedSector ┆ENGTH-NEXT,0 REPEAT REFLENGTH-4 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 FI XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT RE┆
0x3b800…3b880 UnusedSector ┆FLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0┆
0x3b880…3b900 UnusedSector ┆,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,┆
0x3b900…3b980 UnusedSector ┆0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4┆
0x3b980…3ba00 UnusedSector ┆ XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF ┆
0x3ba00…3ba80 UnusedSector ┆XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 R┆
0x3ba80…3bb00 UnusedSector ┆EPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 E┆
0x3bb00…3bb80 UnusedSector ┆LSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENG┆
0x3bb80…3bc00 UnusedSector ┆TH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REF┆
0x3bc00…3bc80 UnusedSector ┆LENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREF┆
0x3bc80…3bd00 UnusedSector ┆S-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 T┆
0x3bd00…3bd80 UnusedSector ┆HEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 FI FI FI FI FI FI FI FI FI FI FI FI FI FI IF XBU┆
0x3bd80…3be00 UnusedSector ┆FS EQ 0 THEN XBUFSX=0 ELSE XBUFSX: IF XBUFS GT 13 THEN XBUFS=XBUFS-13 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+B┆
0x3be00…3be80 UnusedSector ┆UFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,┆
0x3be80…3bf00 UnusedSector ┆0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGT┆
0x3bf00…3bf80 UnusedSector ┆H-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT B┆
0x3bf80…3c000 UnusedSector ┆UFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 0,0,LOC+BUFLENGTH-NEXT,0 R┆
0x3c000…3c080 UnusedSector ┆EPEAT BUFLENGTH-4 FI XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-┆
0x3c080…3c100 UnusedSector ┆4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF┆
0x3c100…3c180 UnusedSector ┆ XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 ┆
0x3c180…3c200 UnusedSector ┆REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ┆
0x3c200…3c280 UnusedSector ┆ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLEN┆
0x3c280…3c300 UnusedSector ┆GTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BU┆
0x3c300…3c380 UnusedSector ┆FLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBU┆
0x3c380…3c400 UnusedSector ┆FS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 ┆
0x3c400…3c480 UnusedSector ┆THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLE┆
0x3c480…3c500 UnusedSector ┆NGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LO┆
0x3c500…3c580 UnusedSector ┆C+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 R┆
0x3c580…3c600 UnusedSector ┆EPEAT BUFLENGTH-4 FI FI FI FI FI FI FI FI FI FI FI FI FI FI XSIZE= LOC-ITEM XPROGRAM= LOC USE PROG IF LOC+XSIZE NE WORDS┆
0x3c600…3c680 UnusedSector ┆ THEN MESSAGE <:ERROR: LOC+XSIZE<>WORDS:> FI USE BASE LIST END 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 R┆
0x3c680…3c700 UnusedSector 0x1a[128]
0x3c700…3c780 UnusedSector ┆. Z046D3 T49CB P 46D0L 0000 0000 0000 0000 022D 46D8L 0000 0000 4D43 0031 0000 0000 0000 0000 46E0L 0000 0000 0000 0000 0000 000┆
0x3c780…3c800 UnusedSector ┆0 0000 0000 46E8L 0000 0000 0220 000D 0064 0000 0000 826F 46F0L 0000 0000 0000 0064 0000 0000 0000 0000 46F8L 0000 0000 0000 000┆
0x3c800…3c880 UnusedSector ┆0 0000 0000 0000 0000 4700L 0000 FFFF 0000 0000 0000 0000 0000 0000 4708L 0000 0206 020E 0000 0000 0000 0000 0000 4710L 0000 000┆
0x3c880…3c900 UnusedSector ┆0 0000 0000 0000 0000 0000 0000 4718L 0000 0000 0000 0000 0000 0000 0000 0000 4720L 0000 0000 0000 0000 0000 0000 0000 0000 4728┆
0x3c900…3c980 UnusedSector ┆L 0000 0000 0000 0000 0000 0000 0000 0000 4730L 0000 0000 0000 0000 0000 0000 0000 0000 4738L 0000 0000 0000 0000 0000 0000 0000┆
0x3c980…3ca00 UnusedSector ┆ 0000 4740L 0000 0000 0000 0000 0000 0000 0000 0000 4748L 0000 0000 0000 0000 0000 0000 0000 0000 4750L 0000 0000 0000 0000 0000┆
0x3ca00…3ca80 UnusedSector ┆ 0000 0000 0000 4758L 0000 0000 0000 1000 0000 0000 0000 0000 4760L 0000 0000 0000 0000 0000 0005 0000 0000 4768L 0000 0000 0000┆
0x3ca80…3cb00 UnusedSector ┆ 0000 0000 0000 0000 0000 4770L 0000 0000 0000 0000 0000 0000 0000 0000 4778L 0000 0000 0000 0000 0000 0000 0000 0000 4780L 0000┆
0x3cb00…3cb80 UnusedSector ┆ 0000 0000 0000 0000 0000 0000 0000 4788L 0000 0000 0000 0000 0000 0000 0000 0000 4790L 0000 0000 0000 0000 0000 0000 0000 0000 ┆
0x3cb80…3cc00 UnusedSector ┆4798L 0000 0000 0000 0000 0000 0000 0000 0000 47A0L 0000 0000 0000 0000 0000 0000 0000 0000 47A8L 0000 0000 0000 0000 0000 0000 ┆
0x3cc00…3cc80 UnusedSector ┆0000 0000 47B0L 0000 0000 0000 0000 0000 0000 0000 0000 47B8L 0000 0000 0000 003F 003F 003F 003F 003F 47C0L 003F 003F 002F 0016 ┆
0x3cc80…3cd00 UnusedSector ┆0005 0015 000B 000C 47C8L 000D 000E 000F 003F 0011 0012 0013 003C 47D0L 003F 0032 0026 0018 0019 001A 0027 001C 47D8L 001D 001E ┆
0x3cd00…3cd80 UnusedSector ┆001F 0040 004F 007F 007B 005B 47E0L 006C 0050 007D 004D 005D 005C 004E 006B 47E8L 0060 004B 0061 00F0 00F1 00F2 00F3 00F4 47F0L ┆
0x3cd80…3ce00 UnusedSector ┆00F5 00F6 00F7 00F8 00F9 007A 005E 004C 47F8L 007E 006E 006F 007C 00C1 00C2 00C3 00C4 4800L 00C5 00C6 00C7 00C8 00C9 00D1 00D2 0┆
0x3ce00…3ce80 UnusedSector ┆0D3 4808L 00D4 00D5 00D6 00D7 00D8 00D9 00E2 00E3 4810L 00E4 00E5 00E6 00E7 00E8 00E9 004A 00E0 4818L 005A 005F 006D 0079 0081 0┆
0x3ce80…3cf00 UnusedSector ┆082 0083 0084 4820L 0085 0086 0087 0088 0089 0091 0092 0093 4828L 0094 0095 0096 0097 0098 0099 00A2 00A3 4830L 00A4 00A5 00A6 0┆
0x3cf00…3cf80 UnusedSector ┆0A7 00A8 00A9 00C0 006A 4838L 00D0 00A1 003F 00F0 F0F0 E9E9 0021 D5D5 4840L D5D5 0000 0000 0000 0000 0000 0000 0000 4848L 0000 0┆
0x3cf80…3d000 UnusedSector ┆000 0000 0000 0000 0000 0000 0000 4850L 0000 0000 00F4 0001 E9E9 001E D5D5 D5D5 4858L 0000 0000 0000 0000 0000 0000 0000 0000 48┆
0x3d000…3d080 UnusedSector ┆60L 0000 0000 0000 0000 0000 0000 0000 00C2 4868L 0001 E9E9 000E D5D5 D5D5 0000 0000 0000 4870L 0000 0000 0000 0000 0009 0001 E9┆
0x3d080…3d100 UnusedSector ┆E9 000E 4878L D5D5 D5D5 0000 0000 0000 0000 0000 0000 4880L 0000 000A 0000 E9E9 000A D5D5 D5D5 F0F0 4888L C3C3 C3C2 C200 FFFF 30┆
0x3d100…3d180 UnusedSector ┆5A 3530 4330 4343 4890L 4242 4E49 5550 2054 5246 4D4F 5420 5245 4898L 494D 414E 204C 3030 002E 345A 3030 3930 48A0L 3939 3839 4F┆
0x3d180…3d200 UnusedSector ┆43 464E 4749 4620 4C49 2045 48A8L 4556 5352 4F49 2E4E 425A 3030 3930 3939 48B0L 3839 3030 3230 425A 3030 3930 3939 3839 48B8L 30┆
0x3d200…3d280 UnusedSector ┆30 3330 0000 0000 0000 0000 0000 0000 48C0L 0000 0000 0000 0000 0000 0000 0000 0000 48C8L 0000 0000 0000 0000 0000 0000 0000 000┆
0x3d280…3d300 UnusedSector ┆0 48D0L 0000 0000 0000 0000 0000 0000 0000 0000 48D8L 0000 0000 5304 0088 4351 5254 4003 0086 48E0L 4D51 3146 8001 0000 5551 314┆
0x3d300…3d380 UnusedSector ┆5 0000 0000 48E8L 020A 0000 0000 0000 0000 0000 0000 0000 48F0L 0217 0000 0000 0000 0000 0000 0000 0000 48F8L 0000 0000 0000 000┆
0x3d380…3d400 UnusedSector ┆0 0000 0000 0000 0000 4900L 000D 00B3 003F 00C7 0049 0090 0097 009E 4908L 00A5 00AC 0069 003F 008B FFA6 1100 0000 4910L 8E48 0FA┆
0x3d400…3d480 UnusedSector ┆6 00FD C41C C17E 00FD 0CA6 C21B 4918L FFA6 11F0 0000 0814 C86D 0814 00CD 681B 4920L 8873 691B 8673 0CBB 8568 19A6 48BB 0156 4928┆
0x3d480…3d500 UnusedSector ┆L 5B4F 0156 AC4C 224B 01FF 0156 724F 0156 4930L BD4C 1E4B 01FF 0156 874F 0156 CC4C 0E4B 4938L 01FF 0156 944F 0156 D34C 0E4B 01FF┆
0x3d500…3d580 UnusedSector ┆ 8269 4940L 26E4 907C 0CFC 022B 866D F6A6 00FD B07C 4948L 02FC 40B9 0256 0375 FFA6 1164 0202 004B 4950L 944C F5A6 03FC 5BBB F4A6┆
0x3d580…3d600 UnusedSector ┆ 03FC F3A6 03FC 4958L EDA6 03FC 39BB 8371 F2A6 03FC 29E4 907C 4960L 09FC 26E4 907C 8271 F4E4 907C 06FC 48B9 4968L 02FC 40B9 8971┆
0x3d600…3d680 UnusedSector ┆ 8A72 8B73 8D75 0049 644A 4970L 014B 944C F5A6 03FC 5BBB 0256 0373 FFA6 4978L 1102 0000 F4A6 03FC 8B6B F3A6 03FC 8A6A 4980L A1A0┆
0x3d680…3d700 UnusedSector ┆ 896B E5A6 03FC F2A6 03FC FFA6 1104 4988L 0202 48B9 00BF 6448 19A6 0149 8448 188A 4990L 0156 5B49 174A 014B 886D 0AFD 0BFC 0156 ┆
0x3d700…3d780 UnusedSector ┆4998L 7249 154A 014B 886D 0AFD 0BFC 0156 8749 49A0L 0D4A 014B 886D 0AFD 0BFC 0156 9449 0D4A 49A8L 014B 886D 0AFD 0BFC 0156 A149 ┆
0x3d780…3d800 UnusedSector ┆0B4A 014B 49B0L 886D 0AFD 0BFC 0149 06CF F1A0 C1A0 007A 49B8L C092 138B B07C 80BF 01CF 01CC 0858 FFA6 49C0L 1114 0000 07D8 FFA6 ┆
0x3d800…3d880 UnusedSector ┆1115 0000 03D8 FFA6 49C8L 1119 0000 0158 S4 49A0L 0D4A 014B 886D 0AFD 0BFC 0156 9449 0D4A 49A8L 014B 886D 0AFD 0BFC 0156 A149 ┆
0x3d880…3d900 UnusedSector ┆ - CM1 d o d ░░ ┆
0x3d900…3d980 UnusedSector 0x00[128]
0x3d980…3da00 UnusedSector ┆ ┆
0x3da00…3da80 UnusedSector ┆ ? ? ? ? ? ? ? / ? < ? 2 & ┆
0x3da80…3db00 UnusedSector ┆ ' @ O { [ l P } M ] \ N k ` K a z ^ L ~ n o | ┆
0x3db00…3db80 UnusedSector ┆ J Z _ m y j ? ! ┆
0x3db80…3dc00 UnusedSector ┆ ░░Z0050CCCBBINPU┆
0x3dc00…3dc80 UnusedSector ┆T FROM TERMINAL 00. Z400099998CONFIG FILE VERSION.ZB000999980002ZB000999980003 ┆
0x3dc80…3dd00 UnusedSector ┆ S QCTR @ QMF1 QUE1 ? I i ? ░ H ┆
0x3dd00…3dd80 UnusedSector ┆ ~ ░ m hs is h HV O[V L K"░ V OrV L K ░ V O V L K ░ V O V L K ░ i &| + m | @V u ░d K L ┆
0x3dd80…3de00 UnusedSector ┆ [ 9q )| &| q | H @q r s u I JdK L [V s ░ k j k ░ H Hd I H V I[J ┆
0x3de00…3de80 UnusedSector ┆K m V IrJ K m V I J K m V I J K m V I J K m I z | X ░ ░ ░ X u ░d K L ┆
0x3de80…3df00 UnusedSector ┆ 00001180 0 00DA ; THE TABLE CONSISTS OF 8 ENTRIES OF 16 WORDS. ; 00001181 0 00DA ; THE LEAST SIGNIFICANT 7 BITS OF THE ISO CH┆
0x3df00…3df80 UnusedSector ┆ARACTER ARE ; 00001182 0 00DA ; USED FOR THE CONVERSION. THE 3 MOST SIGNIFICANT BITS ; 00001183 0 00DA ; ARE USED TO ADDRESS O┆
0x3df80…3e000 UnusedSector ┆NE OF 0-7 ENTRIES, ; 00001184 0 00DA ; WHILEST THE REMAINING 4 BITS ARE USED TO ADDRESS ; 00001185 0 00DA ; ONE OF 0-15 WORDS ┆
0x3e000…3e080 UnusedSector ┆WITHIN THE ENTRY. ; 00001186 0 00DA ; THE ADDRESSED WORD IS THE MATCHING EBCIDIC CHARACTER. ; 00001187 0 00DA ; ; 00001188 0 ┆
0x3e080…3e100 UnusedSector ┆00DA CONVITE: ; 00001189 0 00DA ;ENTRY 0 ; 00001190 0 00DA #3F,#3F,#3F,#3F,#3F,#3F,#3F,#2F ; 00001191 0 00E2 #16,#05,#15,#0B,┆
0x3e100…3e180 UnusedSector ┆#0C,#0D,#0E,#0F ; 00001192 0 00EA ;ENTRY 1 ; 00001193 0 00EA #3F,#11,#12,#13,#3C,#3F,#32,#26 ; 00001194 0 00F2 #18,#19,#1A,#2┆
0x3e180…3e200 UnusedSector ┆7,#1C,#1D,#1E,#1F ; 00001195 0 00FA ;ENTRY 2 ; 00001196 0 00FA #40,#4F,#7F,#7B,#5B,#6C,#50,#7D ; 00001197 0 0102 #4D,#5D,#5C,┆
0x3e200…3e280 UnusedSector ┆#4E,#6B,#60,#4B,#61 ; 00001198 0 010A ;ENTRY 3 ; 00001199 0 010A #F0,#F1,#F2,#F3,#F4,#F5,#F6,#F7, ; 00001200 0 0112 #F8,#F9,#┆
0x3e280…3e300 UnusedSector ┆7A,#5E,#4C,#7E,#6E,#6F ; 00001201 0 011A ;ENTRY 4 ; 00001202 0 011A #7C,#C1,#C2,#C3,#C4,#C5,#C6,#C7 ; 00001203 0 0122 #C8,#C9┆
0x3e300…3e380 UnusedSector ┆,#D1,#D2,#D3,#D4,#D5,#D6 ; 00001204 0 012A ;ENTRY 5 ; 00001205 0 012A #D7,#D8,#D9,#E2,#E3,#E4,#E5,#E6 ; 00001206 0 0132 #E7,#┆
0x3e380…3e400 UnusedSector ┆E8,#E9,#4A,#E0,#5A,#5F,#6D ; 00001207 0 013A ;ENTRY 6 ; 00001208 0 013A #79,#81,#82,#83,#84,#85,#86,#87 ; 00001209 0 0142 #88┆
0x3e400…3e480 UnusedSector ┆,#89,#91,#92,#93,#94,#95,#96 ; 00001210 0 014A ;ENTRY 7 ; 00001211 0 014A #97,#98,#99,#A2,#A3,#A4,#A5,#A6 ; 00001212 0 0152 #┆
0x3e480…3e500 UnusedSector ┆A7,#A8,#A9,#C0,#6A,#D0,#A1,#3F ; 00001213 0 015A ; ; 00001214 0 015A IF CONVITE+(8*#10) NE LOC ; 00001215 0 015A THEN MESSAGE┆
0x3e500…3e580 UnusedSector ┆ <:ITE TABLE LAYOUT ERROR:> ; 00001216 0 015A FI ; 00001217 0 015A ;----------------------------------------------------------┆
0x3e580…3e600 UnusedSector ┆-------------; 00001218 0 015A ;-----------------------------------------------------------------------; 00001219 0 015A MSG01┆
0x3e600…3e680 UnusedSector ┆: #00F0,#F0F0,#E9E9, ; 00001220 0 015D #0021,#D5D5,#D5D5, ; 00001221 0 0160 0,REPEAT 16 ; 00001222 0 0171 MSG01L=LOC-MSG01 ; ┆
0x3e680…3e700 UnusedSector ┆ 00001223 0 0171 MSG02: #00F4,#0001,#E9E9, ; 00001224 0 0174 #001E,#D5D5,#D5D5, ; 00001225 0 0177 0,REPEAT 14 ; 00001226 0 01┆
0x3e700…3e780 UnusedSector ┆86 MSG02L=LOC-MSG02 ; 00001227 0 0186 MSG03: #00C2,#0001,#E9E9, ; 00001228 0 0189 #000E,#D5D5,#D5D5, ; 00001229 0 018C 0,REPE┆
0x3e780…3e800 UnusedSector ┆AT 6 ; 00001230 0 0193 MSG03L=LOC-MSG03 ; 00001231 0 0193 MSG04: #0009,#0001,#E9E9, ; 00001232 0 0196 #000E,#D5D5,#D5D5, ; 0┆
0x3e800…3e880 UnusedSector ┆0001233 0 0199 0,REPEAT 6 ; 00001234 0 01A0 MSG04L=LOC-MSG04 ; 00001235 0 01A0 MSG05: #000A,#0000,#E9E9, ; 00001236 0 01A3 #0┆
0x3e880…3e900 UnusedSector 0x1a[128]
