OctetView
0x00000…00080 UnusedSector ┆ ░░░░░░░░░░░░░░░░░░ ░░░░░░░░░░ ░░ST0009 ░░░░░░░░░░░░░░░░░░ 2 ┆
0x00080…00100 UnusedSector ┆ ░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00100…00180 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x00180…001c0 DirEnt {filename=»«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x000a, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0009, de0d=0x0000, cluster2=0x000a, 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x001e0…00200 00 00 00 00 e0 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00200…00280 UnusedSector ┆&:>+ ( ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00280…00300 UnusedSector ┆ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00300…00380 UnusedSector ┆) ,=66+;& ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00380…00400 UnusedSector ┆;7 &; > > ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00400…00440 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x5…]
0x00580…005c0 DirEnt {filename=»MCB«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0xe…]
0x00980…009c0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x009c0…00a00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x2…]
0x00a80…00ac0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x00ac0…00b00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00b00…00b40 DirEnt {filename=»B8ASNN«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0xffff, de0d=0x0000, cluster2=0x0019, de0f=0xffff, 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}
0x00b40…00b80 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00b80…00bc0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x00bc0…00c00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x2…]
0x00c80…00cc0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x00cc0…00d00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x2…]
0x00d80…00dc0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x00dc0…00e00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x2…]
0x00e80…00ec0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x00ec0…00f00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x2…]
0x00f80…00fc0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x00fc0…01000 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x2…]
0x01080…010c0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x010c0…01100 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x2…]
0x01180…011c0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x011c0…01200 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x2…]
0x01280…012c0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x012c0…01300 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x2…]
0x01380…013c0 DirEnt {filename=»MCBSRC«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0050, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x00c9, de0d=0x0000, cluster2=0x0050, de0f=0x0211, de10=0x0513, de11=0x0815, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0031, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x013c0…01400 DirEnt {filename=»MCBASM«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x006e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0180, de0d=0x0000, cluster2=0x006e, de0f=0x0b17, de10=0x1003, de11=0x1409, de12=0x180f, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x003d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x01400…01440 DirEnt {filename=»MCBHEX«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0014, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x001e, de0d=0x0000, cluster2=0x0014, de0f=0x1c15, de10=0x1d0f, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0027, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x01440…01480 DirEnt {filename=»MCBHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000a, de0d=0x0000, cluster2=0x0019, de0f=0x1e09, 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=0x0025, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x01480…014c0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x014c0…01500 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x2…]
0x01580…015c0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x015c0…01600 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x2…]
0x01680…016c0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x016c0…01700 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x2…]
0x01780…017c0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x017c0…01800 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x2…]
0x01880…018c0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x018c0…01900 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x2…]
0x01980…019c0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x019c0…01a00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x2…]
0x01a80…01ac0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x01ac0…01b00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x2…]
0x01b80…01bc0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x01bc0…01c00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x2…]
0x01c80…01cc0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x01cc0…01d00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x2…]
0x01d80…01dc0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x01dc0…01e00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x2…]
0x01e80…01ec0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x01ec0…01f00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x2…]
0x01f80…01fc0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x01fc0…02000 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x2…]
0x02080…020c0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x020c0…02100 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
[…0x2…]
0x02180…021c0 DirEnt {filename=»░░B«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0013, 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}
0x021c0…02200 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x02200…02280 DataSector[»MCBSRC«]
[…0xc9…]
0x08700…08780 UnusedSector ┆--------------------------------------------------------- ; ; PROCEDURE CONNECTQUE(PCB,QUE),(ERROR,DONE) ; ; THIS PROCEDURE IS U┆
0x08780…08800 UnusedSector ┆SED TO DEFINE THE PACKET QUEUE ON WHICH THE PCB IS ; GOING TO OPERATE. ; ; INPUT: ; PCB RELATIVE REFERENCE TO A FREE MEMORY AREA┆
0x08800…08880 UnusedSector ┆ OF PCBLGT ; WORDS ; QUE ABSOLUTE REFERENCE TO THE QUEUE HEAD ; ; REGISTER CALL EXIT ; R3 QUE QUE ; R4 PCB PCB ; R7 LINK DESTROY┆
0x08880…08900 UnusedSector ┆ED ; ; RETURNS: ; ERROR=LINK+0 ; DONE=LINK+1 ; ;---------------------------------------------------------------------- PCBCON: ;┆
0x08900…08980 UnusedSector ┆ BEGIN CONNECTQUE(PCB,QUE) MOV R7 PCBSV7.X4 ; MOV PCBSTA.X4 R7 ; INV R7 ; SETS R7 RDTYPB ; INV R7 ; INE R7 QUCON ; IF OPER┆
0x08980…08a00 UnusedSector ┆ATION NOT ALLOWED THEN JMP PCBERR1 ; CALL ERROR(1) MOV R3 R7 ; MODN CBASE-C ; MOV QUEADR.X7 R7 ; INE R3 R7 ; IF QUE NOT VAL┆
0x08a00…08a80 UnusedSector ┆ID THEN JMP PCBERR5 ; CALL ERROR(5) MOV R3 PCBQUE.X4 ; ELSE MOVC PCSTA2 R7 ; CONNECT QUEUE TO PCB IOR R7 PCBSTA.X4 ; INC PC┆
0x08a80…08b00 UnusedSector ┆BSV7.X4 ; RETURN(LINK+1) JMPI PCBSV7.X4 ; END ;----------------------------------------------------------------------- ; ; PROC┆
0x08b00…08b80 UnusedSector ┆EDURE NEXTPACK(PCB,TYPE),(ERROR,DONE) ; ; PROCEDURE CONNECTPACK(PCB,TYPE),(ERROR,DONE) ; ; THIS PROCEDURE IS USED TO CONNECT THE┆
0x08b80…08c00 UnusedSector ┆ NEXT PACKET TO THE PCB. ; ; INPUT: ; PCB RELATIVE REFERENCE TO A FREE MEMORY AREA OF PCBLGT ; WORDS ; ; IF THE PCB IS OF WRITE ┆
0x08c00…08c80 UnusedSector ┆TYPE: ; TYPE MUST SPECIFY THE PACKET TYPE. 0,1,2, OR 3 ; ; OUTPUT: ; ; IF THE PCB IS OF READ TYPE: ; TYPE THE TYPE OF THE PACKET┆
0x08c80…08d00 UnusedSector ┆ CONNECTED. 0,1,2, OR 3. ; ; REGISTER CALL EXIT ; R3 TYPE TYPE ; R4 PCB PCB ; R7 LINK DESTROYED ; ; RETURNS: ; ERROR=LINK+0 ; DO┆
0x08d00…08d80 UnusedSector ┆NE=LINK+1 ; ;---------------------------------------------------------------------- PCBNXP: ; BEGIN NEXTPACKET(PCB,TYPE) MOV R7┆
0x08d80…08e00 UnusedSector ┆ PCBSV7.X4 ; MOV PCBSTA.X4 R7 ; IBN R7 RDTYPB ; IF READTYPE THEN GO TO READNEXT JMP PC0350 ; ; WRITENEXT: MOVL R12 PCBSV1.X┆
0x08e00…08e80 UnusedSector ┆4 ; MOV R6 PCBSV6.X4 ; SAVE REGS 1,2,5,6 MOV R5 PCBSV5.X4 ; MOV PCBPRI.X4 R2 ; PRI:=PCBPRI MOV PCBBAQ.X4 R1 ; PCKSIZ:=PCBBAQ┆
0x08e80…08f00 UnusedSector ┆ INE R7 WRNP ; IF OPERATION NOT ALLOWED THEN JMP PCBERR1 ; CALL ERROR(1) MOVC QURTC R5 ; N:=QUE RESERVE TRY COUNT ; QUEBUSY:┆
0x08f00…08f80 UnusedSector ┆=TRUE PC0310: ; ; DO WHILE N<>0 AND QUEBUSY=TRUE ADDC -1 R5 ; N:=N-1 IEQ R5 0 ; IF N=0 THEN JMP PC0390 ; GO TO ERR1 MON GEN┆
0x08f80…09000 UnusedSector ┆PACK ; GENERATEPACKET(TYPE,PRI JMP & PC0310 ; ,PCKSIZ,PCK) JMP & PC0380 ; IF BUFFER SHORTAGE THEN ; GO TO ERR2 ; IF DONE THE┆
0x09000…09080 UnusedSector ┆N QUEBUSY:=FALSE ; OD MOV R6 PCBFBA.X4 ; PCBFBA:=PCK MOV R6 PCBCBA.X4 ; PCBCBA:=PCK MOV R3 PCBPTP.X4 ; PCBPTP:=TYPE CLR PCB┆
0x09080…09100 UnusedSector ┆PCX.X4 ; PCBPCX:=0 CLR PCBCBN.X4 ; PCBCBN:=0 MOV PCBBFL.X4 R7 ; MOV R7 PCBBRC.X4 ; PCBBRC:=PCBBFL MOV R7 PCBWRK.X4 ; MUL R1┆
0x09100…09180 UnusedSector ┆ PCBWRK.X4 ; MOV PCBWRK.X4 R1 ; MOV R1 PCBTPN.X4 ; PCBTPCN:=PCBBFL*PCBBAQ CLR PCBBCX.X4 ; PCBBCX:=0 MOVC PCSTA3 R7 ; MOV R7┆
0x09180…09200 UnusedSector ┆ PCBSTA.X4 ; PCBSTA:=(INITIALISED,QUECONNECTED ; ,WRITETYPE,PACKETCONNECTED) MOVL PCBSV1.X4 R12 ; MOV PCBSV5.X4 R5 ; RESTORE ┆
0x09200…09280 UnusedSector ┆REGS 1,2,5,6 MOV PCBSV6.X4 R6 ; INC PCBSV7.X4 ; RETURN(LINK+1) JMPI PCBSV7.X4 ; PC0350: ; READNEXT: INE R7 RDNP ; IF OPERATI┆
0x09280…09300 UnusedSector ┆ON NOT ALLOWED THEN JMP PCBERR1 ; CALL ERROR(1) MOV R5 PCBSV5.X4 ; MOV R6 PCBSV6.X4 ; SAVE REGS 1,2,5,6 MOVL R12 PCBSV1.X4 ;┆
0x09300…09380 UnusedSector ┆ MOVC QURTC R1 ; N:=QUE RESERVE TRY COUNT MOV PCBQUE.X4 R5 ; QUE:=PCBQUE ; QUEBUSY:=TRUE PC0360: ; ; DO WHILE N<>0 AND QUEBU┆
0x09380…09400 UnusedSector ┆SY=TRUE ADDC -1 R1 ; N:=N-1 IEQ R1 0 ; IF N=0 THEN GO TO ERR1 JMP & PC0390 ; MON DEQPACK ; DEQUEPACKET(QUE,PCK) JMP & PC036┆
0x09400…09480 UnusedSector ┆0 ; JMP & PC0380 ; IF QUE EMPTY THEN GO TO ERR2 ; IF DONE THEN QUEBUSY:=FALSE ; OD MOV R6 PCBFBA.X4 ; PCBFBA:=PCK MOV R6 PC┆
0x09480…09500 UnusedSector ┆BCBA.X4 ; PCBCBA:=PCK CLR PCBCBN.X4 ; PCBCBN:=0 MOV BUFTYP.X6 R3 ; TYPE:=BUFTYP.PCK MOV R3 PCBPTP.X4 ; PCBPTP:=TYPE CLR PCBP┆
0x09500…09580 UnusedSector ┆CX.X4 ; PCBPCX:=0 MOV BUFCCN.X6 R1 ; MOV R1 PCBTPN.X4 ; PCBTPCN:=BUFCCN.PCK CLR PCBBCX.X4 ; PCBBCX:=0 MOV PCBBFL.X4 R2 ; IH┆
0x09580…09600 UnusedSector ┆S R1 R2 ; MOV R2 R1 ; PCBBRC:=MIN(BUFCCN.PCK,P BBFL) MOV R1 PCBBRC.X4 ; MOVC PCSTA4 R7 ; MOV R7 PCBSTA.X4 ; PCBSTA:=(INITIAL┆
0x09600…09680 UnusedSector ┆ISED,QUECONNECTE ; D,READTYPE,PACKETCONNECTED) MOVL PCBSV1.X4 R12 ; MOV PCBSV5.X4 R5 ; RESTORE REGS 1,2,5,6 MOV PCBSV6.X4 R6┆
0x09680…09700 UnusedSector ┆ ; INC PCBSV7.X4 ; RETURN(LINK+1) JMPI PCBSV7.X4 ; PC0380: ; ERR2: MOVL PCBSV1.X4 R12 ; MOV PCBSV5.X4 R5 ; RESTORE REGS 1,2,┆
0x09700…09780 UnusedSector ┆5,6 MOV PCBSV6.X4 R6 ; JMP PCBERR7 ; CALL ERROR(7) PC0390: ; ERR1: MOVL PCBSV1.X4 R12 ; MOV PCBSV5.X4 R5 ; RESTORE REGS 1,2,┆
0x09780…09800 UnusedSector ┆5,6 MOV PCBSV6.X4 R6 ; JMP PCBERR4 ; CALL ERROR(4) ; END ;-------------------------------------------------------------------┆
0x09800…09880 UnusedSector ┆---- ; ; PROCEDURE TERMPACK(PCB),(ERROR,DONE) ; ; THIS PROCEDURE IS USED TO TERMINATE OPERATION ON THE CURRENT PACKET. ; ; INPUT┆
0x09880…09900 UnusedSector ┆: ; PCB RELATIVE REFERENCE TO A FREE MEMORY AREA OF PCBLGT ; WORDS ; ; REGISTER CALL EXIT ; R4 PCB PCB ; R7 LINK DESTROYED ; ; R┆
0x09900…09980 UnusedSector ┆ETURNS: ; ERROR=LINK+0 ; DONE=LINK+1 ; ;---------------------------------------------------------------------- PCBTPK: ; BEGIN T┆
0x09980…09a00 UnusedSector ┆ERMPACK(PCB) MOV R7 PCBSV7.X4 ; MOV PCBSTA.X4 R7 ; IBN R7 RDTYPB ; IF READ TYPE THEN JMP PC0450 ; GO TO TERMREAD ; TERMWRIT┆
0x09a00…09a80 DataSector[»MCBASM«]
[…0x180…]
0x15a80…15b00 UnusedSector ┆BE ; SUBSTITUTED BY A CALL OF CENTRAL ERROR HANDLING. ; ;-----------------------------------------------------------------------┆
0x15b00…15b80 UnusedSector ┆ QUEREFERR: ; QUEREFERR: MON REGISTERS, JMP LOC ;----------------------------------------------------------------------- ; ;┆
0x15b80…15c00 UnusedSector ┆ PROCEDURE RESERVEQUE(QUE) ; INPUT ; QUE ABSOLUTE REFERENCE TO A QUE HEAD. ; ; RESERVEQUE MAKES THE QUE RELATIVE AND CHECKS BY C┆
0x15c00…15c80 UnusedSector ┆OMPARING QUE TO ; QUEADR.QUE IF THE REFERENCED QUE IS EXISTING. ; IF NOT, QUEREFERR IS CALLED. ; ELSE RESERVEQUE ATTEMPTS TO RES┆
0x15c80…15d00 UnusedSector ┆ERVE THE QUEUE BY MEANS OF THE QUEUE ; SEMAPHORE - QUESEM. ; IF NOT SUCCESSFULL, RESERVEQUE EXITS BY RELOADING THE CALLING PROCE┆
0x15d00…15d80 UnusedSector ┆SS. ; IF SUCCESSFULL, RESERVEQUE STORES BASE OF THE CALLING PROCESS IN ; QUEUSR.QUE. ; OUTPUT: ; QUE RELATIVE REFERENCE TO A QUE┆
0x15d80…15e00 UnusedSector ┆ HEAD ; BAS BASE OF CALLING PROCESS ; ; REGISTERS CALL EXIT ; R0 DESTROYED ; R1 BAS ; R4 LINK DESTROYED ; R5 QUE(ABS) QUE(REL) ;┆
0x15e00…15e80 UnusedSector ┆ ;----------------------------------------------------------------------- RESERVEQUE: ; BEGIN RESERVEQUE(QUE) MOV CBASE-C R1 ; ┆
0x15e80…15f00 UnusedSector ┆ SUB R1 R5 ; MAKE QUE RELATIVE MOV QUEADR.X5 R0 ; SUB R1 R0 ; INE R5 R0 ; IF QUE <>(QUEADR.QUE)-QUE THEN JMP QUEREFERR ; GO ┆
0x15f00…15f80 UnusedSector ┆TO QUE REFERENCE ERROR ADDC QUESTA R0 ; RESS X0 QUESEM ; IF QUESTA=RESERVED THEN LDN R1 ; EXIT MOV R1 QUEUSR.X5 ; ELSE RESER┆
0x15f80…16000 UnusedSector ┆VE QUEUE JMP X4 ; END ;----------------------------------------------------------------------- ; ; PROCEDURE RELEASE(QUE) ; INP┆
0x16000…16080 UnusedSector ┆UT: ; QUE RELATIVE REFERENCE TO A QUE HEAD ; ; RELEASEQUE RELEASES THE DESIGNATED QUEUE AND EXITS BY RELOADING THE ; CALLING PRO┆
0x16080…16100 UnusedSector ┆CESS ; REGISTERS CALL EXIT ; R5 QUE ; ;----------------------------------------------------------------------- RELEASEQUE: ; BEG┆
0x16100…16180 UnusedSector ┆IN RELEASEQUE(QUE) ADDC QUESTA R5 ; RELS X5 QUESEM ; QUESTA:=FREE MOV CBASE-C R7 ; EXIT LDN R7 ; END ;----------------------┆
0x16180…16200 UnusedSector ┆------------------------------------------------- ; ; PROCEDURE MAINTH(QUE) ; INPUT: ; QUE RELATIVE REFERENCE TO A QUE HEAD ; ; ┆
0x16200…16280 UnusedSector ┆MAINTH MAINTAINS THE VACANCY BUFFER POOL THRESHOLD. ; REGISTERS CALL EXIT ; R2 DESTROYED ; R4 LINK DESTROYED ; R5 QUE QUE ; ;---┆
0x16280…16300 UnusedSector ┆-------------------------------------------------------------------- MAINTH: ; BEGIN MAINTAINTHRESHOLD MOV VPTHLD.X5 R2 ; IHS ┆
0x16300…16380 UnusedSector ┆R2 VPBUFC.X5 ; IF VPBUFC >=VPTHLD THEN JMP MAINTH1 ; BEGIN IEQP R2 VPUTHLD.X5 ; IF VPTHLD = VPUTHLD THEN MOV VPLTHLD.X5 R2 ; ┆
0x16380…16400 UnusedSector ┆ MOV R2 VPTHLD.X5 ; VPTHLD:=VPLTHLD JMP X4 ; END MAINTH1: ; ELSE IEQP R2 VPLTHLD ; BEGIN MOV VPUTHLD.X5 R2 ; IF VPTHLD = VPLT┆
0x16400…16480 UnusedSector ┆HLD THEN MOV R2 VPTHLD.X5 ; VPTHLD:=VPUTHLD JMP X4 ; END ; END ;-------------------------------------------------------------┆
0x16480…16500 UnusedSector ┆---------- ; ; PROCEDURE GENERATEPACKET(TYPE,PRI,PCKSIZ,PCK),(QUEBUSY,NOBUFFER,DONE) ; INPUT: ; TYPE THE TYPE OF THE PACKET TO B┆
0x16500…16580 UnusedSector ┆E GENERATED ; PRI PRIORITY: ; PRI0 MEANS THAT THE CALLER IS NOT ALLOWED TO ; COMPLETELY DEPLETE THE VACANCY POOL. ; PCKSIZ THE N┆
0x16580…16600 UnusedSector ┆UMBER OF BUFFERS TO BE ALLOCATED FOR THE PACK ; GENERATEPACKET RESERVES THE VACANCY POOL. IF THIS IS NOT POSSIBLE, ; IT EXITS BY┆
0x16600…16680 UnusedSector ┆ QUEBUSY. ELSE IT ATTEMPTS TO ALLOCATED THE REQUIRED NUMBER ; OF BUFFERS FOR THE PACKET. ; THE VACANCY POOL MUST CONTAIN: ; PCKS┆
0x16680…16700 UnusedSector ┆IZ + (IF PRI=PRI0 THEN VPTHLD ELSE 0) BUFFERS ; THE BUFFERS ARE INITIALISED AND LINKED TOGETHER TO FORM A PACKET. ; AFTER ALLOCA┆
0x16700…16780 UnusedSector ┆TION, THE VACANCY POOL THRESHOLD IS MAINTAINED BY CALL OF ; MAINTH. ; GENERATEPACKET EXITS BY CALLING RELEASEQUE. ; OUTPUT: ; PC┆
0x16780…16800 UnusedSector ┆K RELATIVE REFERENCE TO THE PACKET ; REGISTERS CALL EXIT ; R1 PRI PRI ; R2 PCKSIZ PCKSIZ ; R3 TYPE TYPE ; R6 PCK ; R7 LINK DESTR┆
0x16800…16880 UnusedSector ┆OYED ; RETURNS: ; LINK+0: QUEBUSY ; LINK+1: NOBUFFERS ; LINK+2: DONE ; ;--------------------------------------------------------┆
0x16880…16900 UnusedSector ┆--------------- PKGEN: ; BEGIN GENPACK(TYPE,PRI,PCKSIZ,PCK) SVP PKGENX ; JMP PKGEN1 ; PKGENX: ; JMP X7 ; PKGEN1: ; MODN CBAS┆
0x16900…16980 UnusedSector ┆E-C ; MOV VPOOL R5 ; QUE:=VACANCY POOL JMP S4 RESERVEQUE ; RESERVEQUE(QUE) MOVC 0 R7 ; MOV 1. X7 R1 ; CBUFS:=PCKSIZ+ MOV R1┆
0x16980…16a00 UnusedSector ┆ R4 ; MOV 2. X7 R2 ; IEQ R2 PRI0 ; ( IF PRI=PRI0 THEN VPTHLD ELSE ADD VPTHLD.X5 R4 ; 0 ) IHS R4 VPBUFC.X5 ; IF CBUFS >= VPBU┆
0x16a00…16a80 UnusedSector ┆FC THEN JMP PKGEN4 ; BEGIN MOV VPFBUF.X5 R6 ; SUB CBASE-C R6 ; PCK:=VPFBUF XTR R3 TYPFL ; MOV R3 BUFTYP.X6 ; BUFTYP.PCK:=TY┆
0x16a80…16b00 UnusedSector ┆PE(TYPFL:TYPFL) MOV R1 BUFCNT.X6 ; BUFCNT.PCK:=PCKSIZ SUB R1 VPBUFC.X5 ; VPBUFC:=VPBUFC-PCKSIZ MOV VPFBUF.X5 R4 ; X:=VPFBUF ┆
0x16b00…16b80 UnusedSector ┆ADDC -1 R1 ; PCKSIZ:=PCKSIZ-1 JOZ R1 PKGEN3 ; PKGEN2: ; DO WHILE PCKSIZ <> 0 MODN CBASE-C ; MOV BUFLNK.X4 R4 ; X:=BUFLNK.X S┆
0x16b80…16c00 UnusedSector ┆OB R1 PKGEN2 ; PCKSIZ:=PCKSIZ-1 PKGEN3: ; OD MOV R4 LSTBUF.X6 ; LSTBUF.PCK:=X MODN CBASE-C ; XCH R1 BUFLNK.X4 ; VPFBUF:=BUFLN┆
0x16c00…16c80 UnusedSector ┆K.X MOV R1 VPFBUF.X5 ; BUFLNK.X:=0 JMP S4 MAINTH ; MAINTAINTHRESHOLD MOV R6 6. X7 ; INC 7. X7 ; LINK:=LINK+1 ; END PKGEN4: ┆
0x16c80…16d00 UnusedSector ┆; INC 7. X7 ; LINK:=LINK+1 JMP S4 RELEASEQUE ; RELEASEQUE(QUE) ; END ;-------------------------------------------------------┆
0x16d00…16d80 UnusedSector ┆---------------- ; ; PROCEDURE ENQUEPACKET(QUE,PCK),(QUEBUSY,DONE) ; INPUT: ; QUE ABSOLUTE REFERENCE TO A QUEUE HEAD ; PCK RELAT┆
0x16d80…16e00 UnusedSector ┆IVE REFERENCE TO A PACKET ; ENQUEPACKET ATTEMPTS TO RESERVE THE QUEUE. IF THIS IS NOT POSSIBLE ; AFTER A SINGLE ATTEMPT, IT EXIT┆
0x16e00…16e80 UnusedSector ┆S TO QUEBUSY. ; ELSE THE PACKET IS LINKED INTO THE REAR OF THE QUEUE. ; THE QUEUE IS RELEASED BY CALL OF RELEASEQUE. ; REGISTERS┆
0x16e80…16f00 UnusedSector ┆ CALL EXIT ; R5 QUE QUE ; R6 PCK PCK ; R7 LINK DESTROYED ; RETURNS: ; LINK+0: QUEBUSY ; LINK+1: DONE ; ;------------------------┆
0x16f00…16f80 UnusedSector ┆----------------------------------------------- PKENQU: ; BEGIN ENQUEPACKET(QUE,PCK) SVP PKENQUX ; JMP PKENQU1 ; PKENQUX: ; J┆
0x16f80…17000 UnusedSector ┆MP X7 ; PKENQU1: ; JMP S4 RESERVEQUE ; RESERVEQUE(QUE) MOV BUFTYP.X6 R4 ; XTR R4 TYPFL ; X:=BUFTYP.PCK ADD R5 R4 ; INC QUEP┆
0x17000…17080 UnusedSector ┆KS.X5 ; QUEPKS:=QUEPKS+1 INC QUEPK0.X4 ; QUEPK0.X:=QUEPK0.X+1 MOV BUFCCN.X6 R4 ; ADD R4 QUECHS.X5 ; QUECHS:=QUECHS+BUFCCN.PCK┆
0x17080…17100 UnusedSector ┆ MOV LSTBUF.X6 R4 ; MOV LBUF. X5 R3 ; LINK PACKET INTO REAR OF QUE MOV CBASE-C R1 ; SUB R1 R3 ; ADD R1 R6 ; MOV R6 BUFLNK.┆
0x17100…17180 UnusedSector ┆X3 ; MOV R4 LBUF. X5 ; MOVC 0 R7 ; INC 7. X7 ; JMP S4 RELEASEQUE ; RELEASEQUE(QUE) ; END ;---------------------------------┆
0x17180…17200 UnusedSector ┆-------------------------------------- ; ; PROCEDURE STACKPACKET(QUE,PCK),(QUEBUSY,DONE) ; SIMILAR TO ENQUEPACKET, EXCEPT THE PA┆
0x17200…17280 UnusedSector ┆CKET IS LINKED INTO THE FRONT OF ; THE QUEUE. ; ;----------------------------------------------------------------------- PKSTK: ┆
0x17280…17300 UnusedSector ┆; BEGIN STACKPACKET(QUE,PCK) SVP PKSTKX ; JMP PKSTK1 ; PKSTKX: ; JMP X7 ; PKSTK1: ; JMP S4 RESERVEQUE ; RESERVEQUE(QUE) MOV┆
0x17300…17380 UnusedSector ┆ BUFTYP.X6 R4 ; XTR R4 TYPFL ; X:=BUFTYP.PCK ADD R5 R4 ; INC QUEPKS.X5 ; QUEPKS:=QUEPKS+1 INC QUEPK0.X4 ; QUEPK0.X:=QUEPK0.X┆
0x17380…17400 UnusedSector ┆+1 MOV BUFCCN.X6 R4 ; ADD R4 QUECHS.X5 ; QUECHS:=QUECHS+BUFCCN.PCK MOV FBUF. X5 R0 ; MOV LSTBUF.X6 R3 ; MOV CBASE-C R1 ; S┆
0x17400…17480 UnusedSector ┆UB R1 R3 ; LINK PACKET INTO FRONT OF QUE ADD R1 R6 ; MOV R6 FBUF. X5 ; MOV R0 BUFLNK.X3 ; IEQP R0 0 ; ADD R1 R3 ; MOV R3 L┆
0x17480…17500 UnusedSector ┆BUF. X5 ; MOVC 0 R7 ; INC 7. X7 ; JMP S4 RELEASEQUE ; RELEASEQUE(QUE) ; END ;-----------------------------------------------┆
0x17500…17580 UnusedSector ┆------------------------ ; ; PROCEDURE DEQUEPACKET(QUE,PCK),(QUEBUSY,NOPACK,DONE) ; INPUT: ; QUE ABSOLUTE REFERENCE TO A QUE HEA┆
0x17580…17600 UnusedSector ┆D ; ; DEQUEPACKET ATTEMPTS TO RESERVE THE QUEUE. IF NOT POSSIBLE IT EXITS ; TO QUEBUSY. ; ELSE IT INSPECTS THE QUEUE. IF THE QUE┆
0x17600…17680 DataSector[»MCBHEX«]
[…0x1e…]
0x18580…18600 UnusedSector ┆CB ; R7 REF(CAUSE) ; ; RETURNS TO ORIGINAL LINK (PCBSV7.PCB) ; ;----------------------------------------------------------------┆
0x18600…18680 UnusedSector ┆------- ; BEGIN ERROR(N) PCBERR1: ; CASE N OF(1,2,3,4,5,6,7) MODC 1<ILLOP - 1<OVFL ; 1: CAUSE:=ILLEGAL OPERATION PCBERR2: ; M┆
0x18680…18700 UnusedSector ┆ODC 1<OVFL - 1<BOUND ; 2: CAUSE:= PACKET OVERFLOW PCBERR3: ; MODC 1<BOUND - 1<QBUSY ; 3: CAUSE:= BOUNDARY ERROR PCBERR4: ; MOD┆
0x18700…18780 UnusedSector ┆C 1<QBUSY - 1<INVQU ; 4: CAUSE:= QUE BUSY ERROR PCBERR5: ; MODC 1<INVQU - 1<ILLPAR ; S: CAUSE:= INVALID QUE PCBERR6: ; MODC 1<┆
0x18780…18800 UnusedSector ┆ILLPAR- 1<NOPCK ; 6: CAUSE:= ILLEGAL PARAMETER PCBERR7: ; MODC 1<NOPCK ; 7: CAUSE:= NO PACKET AVAILABLE ; MOVC 0 R7 ; PCBWRK:┆
0x18800…18880 UnusedSector ┆=CAUSE MOV R7 PCBWRK.X4 ; MOV R4 R7 ; R7:= REF-PCBWRK ADDC PCBWRK R7 ; JMPI PCBSV7.X4 ; RETURN(LINK+0) ; END ;-------------┆
0x18880…18900 UnusedSector ┆---------------------------------------------------------- ; ; PROCEDURE MOVE(N,S,D) ; INPUT: ; N COUNT OF WORDS ; S SOURCE ADDR┆
0x18900…18980 UnusedSector ┆ESS (REL) ; D DESTINATON ADDRESS (REL) ; N WORDS ARE MOVED FROM S TO D. S,N, AND D ARE UPDATED. ; REGISTER CALL EXIT ; R1 N N(UP┆
0x18980…18a00 UnusedSector ┆DATED) ; R3 D D(UPDATED) ; R5 LINK LINK ; R7 S S(UPDATED) ; ;-------------------------------------------------------------------┆
0x18a00…18a80 DataSector[»MCBHEX«]
[…0xa…]
0x18f80…19000 UnusedSector ┆I0 ; IF PRI<> PRI0,PRI1 THEN INE R1 PRI1 ; JMP PCBERR6 ; CALL ERROR(6) MOV R1 PCBPRI.X4 ; PCBPRI:=PRI MOVC PCSTA0 R7 ; MOV ┆
0x19000…19080 UnusedSector ┆R7 PCBSTA.X4 ; PCBSTA:=INITIALISED,WRITETYPE JMP PC0160 ; RETURN(LINK+1) PC0150: ; READTYPE: MOVC PCSTA1 R7 ; MOV R7 PCBSTA.X┆
0x19080…19100 UnusedSector ┆4 ; PCBSTA:=INITIALISED,READTYPE PC0160: INC PCBSV7.X4 ; RETURN(LINK+1) JMPI PCBSV7.X4 ; ;-------------------------------------┆
0x19100…19180 UnusedSector ┆---------------------------------- ; ; PROCEDURE CONNECTQUE(PCB,QUE),(ERROR,DONE) ; ; THIS PROCEDURE IS USED TO DEFINE THE PACKE┆
0x19180…19200 UnusedSector ┆T QUEUE ON WHICH THE PCB IS ; GOING TO OPERATE. ; ; INPUT: ; PCB RELATIVE REFERENCE TO A FREE MEMORY AREA OF PCBLGT ; WORDS ; QU┆
0x19200…19280 UnusedSector ┆E ABSOLUTE REFERENCE TO THE QUEUE HEAD ; ; REGISTER CALL EXIT ; R3 QUE QUE ; R4 PCB PCB ; R7 LINK DESTROYED ; ; RETURNS: ; ERROR┆
0x19280…19300 UnusedSector ┆=LINK+0 ; DONE=LINK+1 ; ;---------------------------------------------------------------------- PCBCON: ; BEGIN CONNECTQUE(PCB,Q┆
0x19300…19380 UnusedSector ┆UE) MOV R7 PCBSV7.X4 ; MOV PCBSTA.X4 R7 ; INV R7 ; SETS R7 RDTYPB ; INV R7 ; INE R7 QUCON ; IF OPERATION NOT ALLOWED THEN ┆
0x19380…19400 UnusedSector ┆ JMP PCBERR1 ; CALL ERROR(1) MOV R3 R7 ; MODN CBASE-C ; MOV QUEADR.X7 R7 ; INE R3 R7 ; IF QUE NOT VALID THEN JMP PCBERR5 ; ┆
0x19400…19480 UnusedSector ┆CALL ERROR(5) MOV R3 PCBQUE.X4 ; ELSE MOVC PCSTA2 R7 ; CONNECT QUEUE TO PCB IOR R7 PCBSTA.X4 ; INC PCBSV7.X4 ; RETURN(LINK+1┆
0x19480…19500 UnusedSector ┆) JMPI PCBSV7.X4 ; END ;----------------------------------------------------------------------- ; ; PROCEDURE NEXTPACK(PCB,TYPE┆
0x19500…19580 UnusedSector ┆),(ERROR,DONE) ; ; PROCEDURE CONNECTPACK(PCB,TYPE),(ERROR,DONE) ; ; THIS PROCEDURE IS USED TO CONNECT THE NEXT PACKET TO THE PCB┆
0x19580…19600 UnusedSector ┆. ; ; INPUT: ; PCB RELATIVE REFERENCE TO A FREE MEMORY AREA OF PCBLGT ; WORDS ; ; IF THE PCB IS OF WRITE TYPE: ; TYPE MUST SPECI┆
0x19600…19680 UnusedSector ┆FY THE PACKET TYPE. 0,1,2, OR 3 ; ; OUTPUT: ; ; IF THE PCB IS OF READ TYPE: ; TYPE THE TYPE OF THE PACKET CONNECTED. 0,1,2, OR 3┆
0x19680…19700 UnusedSector ┆. ; ; REGISTER CALL EXIT ; R3 TYPE TYPE ; R4 PCB PCB ; R7 LINK DESTROYED ; ; RETURNS: ; ERROR=LINK+0 ; DONE=LINK+1 ; ;----------┆
0x19700…19780 UnusedSector ┆------------------------------------------------------------ PCBNXP: ; BEGIN NEXTPACKET(PCB,TYPE) MOV R7 PCBSV7.X4 ; MOV PCBST┆
0x19780…19800 UnusedSector ┆A.X4 R7 ; IBN R7 RDTYPB ; IF READTYPE THEN GO TO READNEXT JMP PC0350 ; ; WRITENEXT: MOVL R12 PCBSV1.X4 ; MOV R6 PCBSV6.X4 ;┆
0x19800…19880 UnusedSector ┆ SAVE REGS 1,2,5,6 MOV R5 PCBSV5.X4 ; MOV PCBPRI.X4 R2 ; PRI:=PCBPRI MOV PCBBAQ.X4 R1 ; PCKSIZ:=PCBBAQ INE R7 WRNP ; IF OPER┆
0x19880…19900 UnusedSector ┆ATION NOT ALLOWED THEN JMP PCBERR1 ; CALL ERROR(1) MOVC QURTC R5 ; N:=QUE RESERVE TRY COUNT ; QUEBUSY:=TRUE PC0310: ; ; DO W┆
0x19900…19980 UnusedSector ┆HILE N<>0 AND QUEBUSY=TRUE ADDC -1 R5 ; N:=N-1 IEQ R5 0 ; IF N=0 THEN JMP PC0390 ; GO TO ERR1 MON GENPACK ; GENERATEPACKET(T┆
0x19980…19a00 UnusedSector ┆YPE,PRI JMP & PC0310 ; ,PCKSIZ,PCK) JMP & PC0380 ; IF BUFFER SHORTAGE THEN ; GO TO ERR2 ; IF DONE THEN QUEBUSY:=FALSE ; OD ┆
0x19a00…19a80 UnusedSector ┆ MOV R6 PCBFBA.X4 ; PCBFBA:=PCK MOV R6 PCBCBA.X4 ; PCBCBA:=PCK MOV R3 PCBPTP.X4 ; PCBPTP:=TYPE CLR PCBPCX.X4 ; PCBPCX:=0 CLR┆
0x19a80…19b00 UnusedSector ┆ PCBCBN.X4 ; PCBCBN:=0 MOV PCBBFL.X4 R7 ; MOV R7 PCBBRC.X4 ; PCBBRC:=PCBBFL MOV R7 PCBWRK.X4 ; MUL R1 PCBWRK.X4 ; MOV PCBWR┆
0x19b00…19b80 UnusedSector ┆K.X4 R1 ; MOV R1 PCBTPN.X4 ; PCBTPCN:=PCBBFL*PCBBAQ CLR PCBBCX.X4 ; PCBBCX:=0 MOVC PCSTA3 R7 ; MOV R7 PCBSTA.X4 ; PCBSTA:=(I┆
0x19b80…19c00 UnusedSector ┆NITIALISED,QUECONNECTED ; ,WRITETYPE,PACKETCONNECTED) MOVL PCBSV1.X4 R12 ; MOV PCBSV5.X4 R5 ; RESTORE REGS 1,2,5,6 MOV PCBSV┆
0x19c00…19c80 UnusedSector ┆6.X4 R6 ; INC PCBSV7.X4 ; RETURN(LINK+1) JMPI PCBSV7.X4 ; PC0350: ; READNEXT: INE R7 RDNP ; IF OPERATION NOT ALLOWED THEN JM┆
0x19c80…19d00 UnusedSector ┆P PCBERR1 ; CALL ERROR(1) MOV R5 PCBSV5.X4 ; MOV R6 PCBSV6.X4 ; SAVE REGS 1,2,5,6 MOVL R12 PCBSV1.X4 ; MOVC QURTC R1 ; N:=QU┆
0x19d00…19d80 UnusedSector ┆E RESERVE TRY COUNT MOV PCBQUE.X4 R5 ; QUE:=PCBQUE ; QUEBUSY:=TRUE PC0360: ; ; DO WHILE N<>0 AND QUEBUSY=TRUE ADDC -1 R1 ; N┆
0x19d80…19e00 UnusedSector ┆:=N-1 IEQ R1 0 ; IF N=0 THEN GO TO ERR1 JMP & PC0390 ; MON DEQPACK ; DEQUEPACKET(QUE,PCK) JMP & PC0360 ; JMP & PC0380 ; IF ┆
0x19e00…19e80 UnusedSector ┆QUE EMPTY THEN GO TO ERR2 ; IF DONE THEN QUEBUSY:=FALSE ; OD MOV R6 PCBFBA.X4 ; PCBFBA:=PCK MOV R6 PCBCBA.X4 ; PCBCBA:=PCK ┆
0x19e80…19f00 UnusedSector ┆CLR PCBCBN.X4 ; PCBCBN:=0 MOV BUFTYP.X6 R3 ; TYPE:=BUFTYP.PCK MOV R3 PCBPTP.X4 ; PCBPTP:=TYPE CLR PCBPCX.X4 ; PCBPCX:=0 MOV ┆
0x19f00…19f80 UnusedSector ┆BUFCCN.X6 R1 ; MOV R1 PCBTPN.X4 ; PCBTPCN:=BUFCCN.PCK CLR PCBBCX.X4 ; PCBBCX:=0 MOV PCBBFL.X4 R2 ; IHS R1 R2 ; MOV R2 R1 ; ┆
0x19f80…1a000 UnusedSector ┆PCBBRC:=MIN(BUFCCN.PCK,P BBFL) MOV R1 PCBBRC.X4 ; MOVC PCSTA4 R7 ; MOV R7 PCBSTA.X4 ; PCBSTA:=(INITIALISED,QUECONNECTE ; D,R┆
0x1a000…1a080 UnusedSector ┆EADTYPE,PACKETCONNECTED) MOVL PCBSV1.X4 R12 ; MOV PCBSV5.X4 R5 ; RESTORE REGS 1,2,5,6 MOV PCBSV6.X4 R6 ; INC PCBSV7.X4 ; RET┆
0x1a080…1a100 UnusedSector ┆URN(LINK+1) JMPI PCBSV7.X4 ; PC0380: ; ERR2: MOVL PCBSV1.X4 R12 ; MOV PCBSV5.X4 R5 ; RESTORE REGS 1,2,5,6 MOV PCBSV6.X4 R6 ;┆
0x1a100…1a180 UnusedSector ┆ JMP PCBERR7 ; CALL ERROR(7) PC0390: ; ERR1: MOVL PCBSV1.X4 R12 ; MOV PCBSV5.X4 R5 ; RESTORE REGS 1,2,5,6 MOV PCBSV6.X4 R6 ;┆
0x1a180…1a200 UnusedSector ┆ JMP PCBERR4 ; CALL ERROR(4) ; END ;----------------------------------------------------------------------- ; ; PROCEDURE TERM┆
0x1a200…1a280 UnusedSector ┆PACK(PCB),(ERROR,DONE) ; ; THIS PROCEDURE IS USED TO TERMINATE OPERATION ON THE CURRENT PACKET. ; ; INPUT: ; PCB RELATIVE REFERE┆
0x1a280…1a300 UnusedSector ┆NCE TO A FREE MEMORY AREA OF PCBLGT ; WORDS ; ; REGISTER CALL EXIT ; R4 PCB PCB ; R7 LINK DESTROYED ; ; RETURNS: ; ERROR=LINK+0 ┆
0x1a300…1a380 UnusedSector ┆; DONE=LINK+1 ; ;---------------------------------------------------------------------- PCBTPK: ; BEGIN TERMPACK(PCB) MOV R7 PC┆
0x1a380…1a400 UnusedSector ┆BSV7.X4 ; MOV PCBSTA.X4 R7 ; IBN R7 RDTYPB ; IF READ TYPE THEN JMP PC0450 ; GO TO TERMREAD ; TERMWRITE: INE R7 TMWR ; IF OP┆
0x1a400…1a480 UnusedSector ┆ERATION NOT ALLOWED THEN JMP PCBERR1 ; CALL ERROR(1) MOV PCBPCX.X4 R7 ; IEQ R7 0 ; IF PACKET EMPTY THEN JMP PC0455 ; GO TO R┆
0x1a480…1a500 UnusedSector ┆ELEASE PACKET MOVL R12 PCBSV1.X4 ; MOV R5 PCBSV5.X4 ; SAVE REGS 1,2,5,6 MOV R6 PCBSV6.X4 ; MOV PCBFBA.X4 R6 ; PCK:=PCBFBA M┆
0x1a500…1a580 UnusedSector ┆OV PCBPCX.X4 R1 ; MOV R1 BUFCCN.X6 ; BUFCCN.PCK:=PCBPCX MOV PCBQUE.X4 R5 ; QUE:=PCBQUE MOVC QURTC R2 ; N:=QUE RESERVE TRY COU┆
0x1a580…1a600 UnusedSector ┆NT ; QUEBUSY:=TRUE PC0410: ; ; DO WHILE N<>0 AND QUEBUSY=TRUE ADDC -1 R2 ; N:=N-1 IEQ R2 0 ; IF N=0 THEN GO TO ERR1 JMP PC0┆
0x1a600…1a680 UnusedSector ┆390 ; MON ENQPACK ; ENQUEPACKET(QUE,PCK) JMP & PC0410 ; IF DONE THEN QUEBUSY:=FALSE ; OD MOVC PCSTA5 R7 ; MOV R7 PCBSTA.X4 ┆
0x1a680…1a700 UnusedSector ┆; PCBSTA:=(INITIALISED,QUECONNECTE ; D,WRITETYPE) JMP PC0490 ; RETURN(LINK+1) PC0450: ; TERMREAD: INE R7 TMRD ; IF OPERATION ┆
0x1a700…1a780 UnusedSector ┆NOT ALLOWED THEN JMP PCBERR1 ; CALL ERROR(1) PC0455: ; RELEASE PACKET: MOVL R12 PCBSV1.X4 ; MOV R5 PCBSV5.X4 ; SAVE REGS 1,2,┆
0x1a780…1a800 UnusedSector ┆5,6 MOV R6 PCBSV6.X4 ; MOV PCBFBA.X4 R6 ; PCK:=PCBFBA MOVC QURTC R5 ; N:= QUE RESERVE TRY COUNT ; QUEBUSY:=TRUE PC0460: ; ;┆
0x1a800…1a880 UnusedSector ┆ DO WHILE N<>0 AND QUEBUSY=TRUE ADDC -1 R5 ; N:=N-1 IEQ R5 0 ; IF N=0 THEN GO TO ERR1 JMP PC0390 ; MON RELPACK ; RELEASEPACK┆
0x1a880…1a900 UnusedSector ┆ET(PCK) JMP & PC0460 ; IF DONE THEN QUEBUSY:=PALSE ; OD MOVC PCSTA6 R7 ; AND R7 PCBSTA.X4 ; PCBSTA:=PCBSTA AND (INITIALISED,┆
0x1a900…1a980 UnusedSector ┆ ; QUE CONNECTED, READ TYPE) PC0490: MOVL PCBSV1.X4 R12 ; MOV PCBSV5.X4 R5 ; RESTORE REGS 1,2,5,6 MOV PCBSV6.X4 R6 ; INC PCB┆
0x1a980…1aa00 UnusedSector ┆SV7.X4 ; RETURN(LINK+1) JMPI PCBSV7.X4 ; END ;----------------------------------------------------------------------- ; ; PROCE┆
0x1aa00…1aa80 UnusedSector ┆DURE NEXTBUFFER ; ADVANCES THE PCB PARAMETERS TO THE START OF NEXT BUFFER IN THE CURRENT ; PACKET. IF NO NEXT BUFFER, ERROR(2) I┆
0x1aa80…1ab00 UnusedSector ┆S CALLED. ; REGISTER CALL EXIT ; R4 PCB PCB ; R5 LINK PCBSV5.PCB ; R7 DESTROYED ; ;---------------------------------------------┆
0x1ab00…1ab80 UnusedSector ┆-------------------------- PCBNXB: ; BEGIN NEXTBUFFER MOV PCBCBA.X4 R7 ; IEQ X7 0 ; IF BUFLNK.PCBCBA = 0 THEN JMP NONXBF ; GO┆
0x1ab80…1ac00 UnusedSector ┆ TO NONEXTBUFFER MOV BUFLNK.X7 R7 ; SUB CBASE-C R7 ; MOV R7 PCBCBA.X4 ; PCBCBA:= BUFLNK.PCBCBA INC PCBCBN.X4 ; PCBCBN:= PCBC┆
0x1ac00…1ac80 UnusedSector ┆BA+1 CLR PCBBCX.X4 ; PCBBCX:= 0 MOV PCBTPN.X4 R7 ; SUB PCBPCX.X4 R7 ; IHS R7 PCBBFL.X4 ; MOV PCBBFL.X4 R7 ; PCBBRC:= MIN(PC┆
0x1ac80…1ad00 UnusedSector ┆BBFL,(PCBTPN MOV R7 PCBBRC.X4 ; -PCBPCX)) JOZ R7 NONXBF ; IF PCBBRC = 0 THEN ; GO TO NONEXTBUFFER XCH R5 PCBSV5.X4 ; JMPI P┆
0x1ad00…1ad80 UnusedSector ┆CBSV5.X4 ; RETURN NONXBF: ; NONEXTBUFFER: MOV PCBSV5.X4 R5 ; JMP PCBERR2 ; CALL ERROR(2) ; END ;-----------------------------┆
0x1ad80…1ae00 UnusedSector ┆------------------------------------------ ; ; PROCEDURE READCHAR(PCB,CHAR),(ERROR,DONE) ; ; THIS PROCEDURE IS USED TO READ AND ┆
0x1ae00…1ae80 UnusedSector ┆DELIVER THE NEXT CHARACTER FROM TH ; E CURRENT PACKET. ; ; INPUT: ; PCB RELATIVE REFERENCE TO A FREE MEMORY AREA OF PCBLGT ; WOR┆
0x1ae80…1af00 UnusedSector ┆DS ; ; OUTPUT: ; CHAR THE READ BYTE ; ; REGISTER CALL EXIT ; R3 UNDEF CHAR ; R4 PCB PCB ; R7 LINK DESTROYED ; ; RETURNS: ; ERROR┆
0x1af00…1af80 UnusedSector ┆=LINK+0 ; DONE=LINK+1 ; ;---------------------------------------------------------------------- PCBRDCH: ; BEGIN READCHAR(PCB, C┆
0x1af80…1b000 UnusedSector ┆HAR) MOV R7 PCBSV7.X4 ; MOV PCBSTA.X4 R7 ; INE R7 RCH ; IF OPERATION NOT ALLOWED THEN JMP PCBERR1 ; CALL ERROR(1) SONP PCBB┆
0x1b000…1b080 UnusedSector ┆RC.X4 ; IF PCBBRC = 0 THEN MOV R5 PCBSV5.X4 ; JMP S5 PCBNXB ; GET NEXT BUFFER DEC PCBBRC.X4 ; PCBBRC:=PCBBRC-1 MOV PCBBCX.X4┆
0x1b080…1b100 UnusedSector ┆ R7 ; MOD PCBCBA.X4 ; CHAR:= BYTE((PCBCBA)*2 MOVB BUFCHD.X7 R3 ; +PCBBCX+BUFCHD) INC PCBBCX.X4 ; PCBBCX:=PCBBCX+1 INC PCBPCX┆
0x1b100…1b180 UnusedSector ┆.X4 ; PCBPCX:=PCBPCX+1 INC PCBSV7.X4 ; RETURN(LINK+1) JMPI PCBSV7.X4 ; END ;--------------------------------------------------┆
0x1b180…1b200 UnusedSector ┆--------------------- ; ; PROCEDURE READWORD(PCB,WORD),(ERROR,DONE) ; ; THIS PROCEDURE IS USED TO READ AND DELIVER THE NEXT WORD┆
0x1b200…1b280 UnusedSector ┆ FROM THE CUR ; RENT PACKET. ; ; INPUT: ; PCB RELATIVE REFERENCE TO A FREE MEMORY AREA OF PCBLGT ; WORDS ; ; OUTPUT: ; WORD THE ┆
0x1b280…1b300 UnusedSector ┆READ WORD ; ; REGISTER CALL EXIT ; R3 UNDEF WORD ; R4 PCB PCB ; R7 LINK DESTROUED ; ; RETURNS: ; ERROR=LINK+0 ; DONE=LINK+1 ; ;-┆
0x1b300…1b380 UnusedSector ┆--------------------------------------------------------------------- PCBRDWD: ; BEGIN READWORD(PCB, WORD) MOV R7 PCBSV7.X4 ; ┆
0x1b380…1b400 UnusedSector ┆MOV PCBSTA.X4 R7 ; INE R7 RWD ; IF OPERATION NOT ALLOWED THEN JMP PCBERR1 ; CALL ERROR(1) MOV PCBBCX.X4 R7 ; IBN R7 0 ; IF N┆
0x1b400…1b480 UnusedSector ┆OT ON WORDBOUNDARY THEN JMP PCBERR3 ; CALL ERROR(3) MOV PCBBRC.X4 R7 ; IEQP R7 0 ; IF PCBBRC=0 THEN MOV R5 PCBSV5.X4 ; GET N┆
0x1b480…1b500 UnusedSector ┆EXT BUFFER JMP S5 PCBNXB ; MOV PCBBRC.X4 R7 ; IEQ R7 0 ; IF NO DATA LEFT THEN JMP PCBERR4 ; CALL ERROR(4) MOV PCBBCX.X4 R7 ┆
0x1b500…1b580 UnusedSector ┆; SRL R7 1 ; ADD PCBCBA.X4 R7 ; WORD:=(PCBCBA + PCBBCX/2 MOV BUFCHD>1.X7 R3 ; + BUFCHD/2) INC PCBBCX.X4 ; PCBBCX:=PCBBCX+1 ┆
0x1b580…1b600 UnusedSector ┆INC PCBPCX.X4 ; PCBPCX:=PCBPCX+1 DEC PCBBRC.X4 ; PCBBRC:=PCBBRC-1 SON PCBBRC.X4 ; IF PCBBRC<>0 THEN JMP PCBRWX ; BEGIN INC P┆
0x1b600…1b680 UnusedSector ┆CBPCX.X4 ; PCBPCX:=PCBPCX+1 INC PCBBCX.X4 ; PCBBCX:=PCBBCX+1 DEC PCBBRC.X4 ; PCBBRC:=PCBBRC-1 ; END PCBRWX: INC PCBSV7.X4 ; ┆
0x1b680…1b700 UnusedSector ┆RETURN(LINK+1) JMPI PCBSV7.X4 ; END ;----------------------------------------------------------------------- ; ; PROCEDURE READ┆
0x1b700…1b780 UnusedSector ┆BLOCK(PCB,DEST,CNT),(ERROR,CNT) ; ; THIS PROCEDURE IS USED TO READ A BLOCK OF WORDS FROM THE CURRENT PACK ; ET AND DELIVER THE W┆
0x1b780…1b800 UnusedSector ┆ORDS AT THE DESIGNATED DESTINATION. THE NEXT CNT ; WORDS ARE READ. ; ; INPUT: ; PCB RELATIVE REFERENCE TO A FREE MEMORY AREA OF ┆
0x1b800…1b880 UnusedSector ┆PCBLGT ; WORDS ; DEST RELATIVE WORD ADDRESS WHERE THE WORDS SHOULD BE DE ; LIVERED ; CNT THE NUMBER OF WORDS TO BE READ ; ; OUTP┆
0x1b880…1b900 UnusedSector ┆UT: ; DEST UPDATED ; CNT UPDATED ; ; REGISTER CALL EXIT ; R2 CNT CNT ; R3 DEST DEST ; R4 PCB PCB ; R7 LINK DESTROYED ; ; RETURNS┆
0x1b900…1b980 UnusedSector ┆: ; ERROR=LINK+0 ; DONE=LINK+1 ; ;---------------------------------------------------------------------- PCBRDBL: ; BEGIN READBL┆
0x1b980…1ba00 UnusedSector ┆OCK(PCB, DEST, CNT) MOV R7 PCBSV7.X4 ; MOV PCBSTA.X4 R7 ; INE R7 RDBL ; IF OPERATION NOT ALLOWED THEN JMP PCBERR1 ; CALL ERR┆
0x1ba00…1ba80 UnusedSector ┆OR(1) MOV PCBBCX.X4 R7 ; IBN R7 0 ; IF ON HALFWORD BOUNDARY THEN JMP PCBERR3 ; CALL ERROR(3) MOV PCBTPN.X4 R7 ; SUB PCBPCX.┆
0x1ba80…1bb00 UnusedSector ┆X4 R7 ; ADDC 1 R7 ; SRL R7 1 ; REM:=(PCBTPCN-PCBPCX+1)/2 ILO R7 R2 ; IF CNT > REM THEN JMP PCBERR2 ; CALL ERROR(2) MOV R5 P┆
0x1bb00…1bb80 UnusedSector ┆CBS55.X4 ; MOV R1 PCBSV1.X4 ; DO WHILE CNT <> 0 PC0710: ; MOV PCBBRC.X4 R1 ; SLL R2 1 ; N:= MIN(PCBBRC,CNT*2) ILO R2 R1 ; M┆
0x1bb80…1bc00 UnusedSector ┆OV R2 R1 ; SRL R2 1 ; JOZ R1 PC0740 ; MOV PCBBCX.X4 R7 ; X:=PCBBCX ADD R1 PCBBCX.X4 ; PCBBCX:=PCBBCX+N*2 ADD R1 PCBPCX.X4 ;┆
0x1bc00…1bc80 UnusedSector ┆ PCBPCX:=PCBPCX+N*2 SUB R1 PCBBRC.X4 ; PCBBRC:=PCBBRC-N*2 ADDC 1 R1 ; N:=(N+1)/2 SRL R1 1 ; SUB R1 R2 ; CNT:=CNT-N SRL R7 1┆
0x1bc80…1bd00 UnusedSector ┆ ; ADD PCBCBA.X4 R7 ; ADDC BUFCHD>1 R7 ; S:= X/2 + PCBCBA + BUFCHD/2 JMP S5 PCBMOV ; MOVE(N, S, DEST) PC0740: ; JOZ R2 PC075┆
0x1bd00…1bd80 UnusedSector ┆0 ; IF CNT <> 0 THEN JMP S5 PCBNXB ; GET NEXT BUFFER JMP PC0710 ; OD PC0750: ; MOV PCBSV1.X4 R1 ; MOV PCBS55.X4 R5 ; INC PC┆
0x1bd80…1be00 UnusedSector ┆BSV7.X4 ; RETURN(LINK+1) JMPI PCBSV7.X4 ; END ;----------------------------------------------------------------------- ; ; PROC┆
0x1be00…1be80 UnusedSector ┆EDURE FORWSPC(PCB,CNT),(ERROR,DONE) ; ; FORWSPC IS CALLED TO INCREMENT THE CHARACTER INDEX BY CNT UNITS. ; ; INPUT: ; PCB RELATI┆
0x1be80…1bf00 UnusedSector ┆VE REFERENCE TO A FREE MEMORY AREA OF PCBLGT ; WORDS. ; CNT CHARACTER INDEX INCREMENT ; ; REGISTER CALL EXIT ; R2 CNT CNT ; R4 P┆
0x1bf00…1bf80 UnusedSector ┆CB PCB ; R7 LINK DESTROYED ; ; RETURNS: ; ERROR=LINK+0 ; DONE=LINK+1 ; ;--------------------------------------------------------┆
0x1bf80…1c000 UnusedSector ┆-------------- PCBFWSP: ; BEGIN FORWSPACE(PCB, CNT) MOV R7 PCBSV7.X4 ; MOV PCBSTA.X4 R7 ; INV R7 ; SETS R7 RDTYPB ; FORCE WR┆
0x1c000…1c080 UnusedSector ┆ITETYPE INV R7 ; INE R7 FWSP ; IF OPERATION NOT ALLOWED THEN JMP PCBERR1 ; CALL ERROR(1) MOV R2 PCBSV2.X4 ; SAVE CNT MOV PC┆
0x1c080…1c100 UnusedSector ┆BTPN.X4 R7 ; SUB PCBPCX.X4 R7 ; N:=PCBTPCN-PCBPCX ILO R7 R2 ; IF CNT > N THEN JMP PCBERR2 ; CALL ERROR(2) ADD R2 PCBPCX.X4 ;┆
0x1c100…1c180 UnusedSector ┆ PCBPCX:=PCBPCX+CNT MOV PCBBRC.X4 R7 ; ILO R7 R2 ; IF PCBBRC >= CNT THEN JMP PC0840 ; BEGIN SUB R2 PCBBRC.X4 ; PCBBRC:=PCBBR┆
0x1c180…1c200 UnusedSector ┆C-CNT ADD R2 PCBBCX.X4 ; PCBBCX:=PCBBCX+CNT JMP PC0890 ; END PC0840: ; ELSE ; BEGIN SUB R7 R2 ; CNT:=CNT-PCBBRC MOV PCBCBA.┆
0x1c200…1c280 UnusedSector ┆X4 R7 ; JMP PC0865 ; GO TO LL PC0860: ; ILO R2 PCBBFL.X4 ; DO WHILE CNT>=PCBBFL JMP PC0870 ; SUB PCBBFL.X4 R2 ; CNT:=CNT-PCB┆
0x1c280…1c300 UnusedSector ┆BFL PC0865: ; LL: MOV BUFLNK.X7 R7 ; SUB CBASE-C R7 ; X:=BUFLNK.PCBCBA INC PCBCBN.X4 ; PCBCBN:=PCBCBN+1 JMP PC0860 ; OD PC08┆
0x1c300…1c380 UnusedSector ┆70: ; MOV R7 PCBCBA.X4 ; PCBCBA:=X MOV R2 PCBBCX.X4 ; PCBBCX:=CNT MOV PCBBFL.X4 R7 ; SUB R2 R7 ; MOV PCBTPN.X4 R2 ; SUB PC┆
0x1c380…1c400 UnusedSector ┆BPCX.X4 R2 ; ILO R2 R7 ; MOV R2 R7 ; PCBBRC:= MIN((PCBBFL-CNT), MOV R7 PCBBRC.X4 ; (PCBTPCN-PCBPCX)) ; END PC0890: MOV PCBS┆
0x1c400…1c480 UnusedSector ┆V2.X4 R2 ; RELOAD CNT INC PCBSV7.X4 ; RETURN(LINK+1) JMPI PCBSV7.X4 ; END ;---------------------------------------------------┆
0x1c480…1c500 UnusedSector ┆-------------------- ; ; PROCEDURE BACKSPC(PCB,CNT),(ERROR,DONE) ; ; BACKSPC IS USED TO DECREMENT THE CHARACTER INDEX BY CNT UNI┆
0x1c500…1c580 UnusedSector ┆TS. ; ; INPUT: ; PCB RELATIVE REFERENCE TO A FREE MEMORY AREA OF PCBLGT ; WORDS. ; CNT CHARACTER INDEX DECREMENT ; ; REGISTER CA┆
0x1c580…1c600 UnusedSector ┆LL EXIT ; R2 CNT CNT ; R4 PCB PCB ; R7 LINK DESTROYED ; ; RETURNS: ; ERROR=LINK+0 ; DONE=LINK+1 ; ;-----------------------------┆
0x1c600…1c680 UnusedSector ┆----------------------------------------- PCBBCK: ; BEGIN BACKSPACE(PCB, CNT) MOV R7 PCBSV7.X4 ; MOV PCBSTA.X4 R7 ; INV R7 ; ┆
0x1c680…1c700 UnusedSector ┆ SETS R7 RDTYPB ; FORCE WRITETYPE INV R7 ; INE R7 BCK ; IF OPERATION NOT ALLOWED THEN JMP PCBERR1 ; CALL ERROR(1) MOV PCBPCX┆
0x1c700…1c780 UnusedSector ┆.X4 R7 ; ADDC 1 R7 ; IHS R2 R7 ; IF CNT VIOLATES PACKET THEN JMP PCBERR2 ; CALL ERROR(2) MOV R2 PCBSV2.X4 ; SAVE CNT SUB R2┆
0x1c780…1c800 UnusedSector ┆ PCBPCX.X4 ; PCBPCX:=PCBPCX-CNT MOV PCBPCX.X4 R2 ; CNT:=PCBPCX CLR PCBCBN.X4 ; PCBCBN:=0 MOV PCBFBA.X4 R7 ; X:=PCBFBA JMP PC┆
0x1c800…1c880 UnusedSector ┆0860 ; GO TO PC0860 ; END ;----------------------------------------------------------------------- ; ; PROCEDURE GETNEWBUFFER ;┆
0x1c880…1c900 UnusedSector ┆ ADVANCES THE PCB PARAMETERS TO THE START OF THE NEXT BUFFER. IF NO ; NEXT BUFFER IS AVALILABLE, A NEW BUFFER IS ALLOCATED BY CA┆
0x1c900…1c980 UnusedSector ┆LL OF ; GENERATEPACKET AND LINKED TO THE PACKET. ; IF A NEW BUFFER CANNOT BE ALLOCATED BECAUSE OF QUEBUSY, ERROR(4) IS ; CALLED.┆
0x1c980…1ca00 UnusedSector ┆ IF BECAUSE OF BUFFER SHORTAGE, ERROR(7) IS CALLED. ; REGISTER CALL EXIT ; R4 PCB PCB ; R7 DESTROYED ; ;------------------------┆
0x1ca00…1ca80 UnusedSector ┆----------------------------------------------- PCBGTBF: ; BEGIN GETNEWBUFFER MOV PCBCBA.X4 R7 ; IEQ X7 0 ; IF BUFLNK.PCBCBA =┆
0x1ca80…1cb00 UnusedSector ┆ 0 THEN JMP PCKEXC ; GO TO PACKET EXCEEDED PCGT0: MOV BUFLNK.X7 R7 ; FORWARDTONEXT: SUB CBASE-C R7 ; MOV R7 PCBCBA.X4 ; PCBCB┆
0x1cb00…1cb80 UnusedSector ┆A:=BUFLNK.PCBCBA CLR PCBBCX.X4 ; PCBBCX:= 0 MOV PCBBFL.X4 R7 ; MOV R7 PCBBRC.X4 ; PCBBRC:=PCBBFL INC PCBCBN.X4 ; PCBCBN:=PCB┆
0x1cb80…1cc00 UnusedSector ┆CBN+1 XCH R5 PCBSV5.X4 ; JMPI PCBSV5.X4 ; RETURN PCKEXC: ; PACKET EXCEEDED: MOVL R12 PCBSV1.X4 ; PREPARE TO OBTAIN AN MOV R5┆
0x1cc00…1cc80 UnusedSector ┆ PCBS55.X4 ; ADDITIONAL BUFFER MOV R6 PCBSV6.X4 ; MOV PCBPRI.X4 R2 ; PRI:=PCBPRI MOVC 1 R1 ; PCKSIZ:=1 MOVC QURTC R5 ; N:=QU┆
0x1cc80…1cd00 UnusedSector ┆E RESERVE TRY COUNT ; QUEBUSY:= TRUE PCGT1: ; ; WAITQUE: IEQ R5 0 ; IF N=0 THEN JMP PCGT5 ; GO TO ERRX ADDC -1 R5 ; N:=N-1 ┆
0x1cd00…1cd80 UnusedSector ┆ MON GENPACK ; GENERATEPACKET(-,PRI,1,PCK), JMP & PCGT1 ; (QUEBUSY: GO TO WAITQUE, JMP & PCGT6 ; NOBUFFERS: GO TO ERRY, ; DON┆
0x1cd80…1ce00 UnusedSector ┆E: CONTINUE) ADD CBASE-C R6 ; MOV PCBFBA.X4 R7 ; MOV R6 LSTBUF.X7 ; LSTBUF.PCBFBA:=PCK INC BUFCNT.X7 ; BUFCNT.PCBFBA:=BUFCNT┆
0x1ce00…1ce80 UnusedSector ┆.PCBFBA + 1 MOV PCBCBA.X4 R7 ; MOV R6 BUFLNK.X7 ; BUFLNK.PCBCBA:=PCK MOV PCBBFL.X4 R1 ; ADD R1 PCBTPN.X4 ; PCBTPN:=PCBTPN+PC┆
0x1ce80…1cf00 UnusedSector ┆BBFL MOVL PCBSV1.X4 R12 ; MOV PCBS55.X4 R5 ; MOV PCBSV6.X4 R6 ; JMP PCGT0 ; GO TO FORWARDTONEXT PCGT5: ; ERRX: (QUE BUSY ERR┆
0x1cf00…1cf80 UnusedSector ┆) MOVL PCBSV1.X4 R12 ; MOV PCBSV5.X4 R5 ; RESTORE ORIGINAL R5 MOV PCBSV6.X4 R6 ; JMP PCBERR4 ; CALL ERROR(4) PCGT6: ; ERRY: ┆
0x1cf80…1d000 UnusedSector ┆(NO VACANT BUFFERS) MOVL PCBSV1.X4 R12 ; MOV PCBSV5.X4 R5 ; RESTORE ORIGINAL R5 MOV PCBSV6.X4 R6 ; JMP PCBERR7 ; CALL ERROR(┆
0x1d000…1d080 UnusedSector ┆7) ; END ;----------------------------------------------------------------------- ; ; PROCEDURE GETPOS(PCB,ADR,CNT),(ERROR,DONE┆
0x1d080…1d100 UnusedSector ┆) ; ; GETPOS IS USED TO RETURN THE PARAMETERS ADR AND CNT WHICH DEFINE THE ; ABSOLUTE START ADDRESS AND LENGTH OF THE NEXT CONTI┆
0x1d100…1d180 UnusedSector ┆GUOUS AREA IN THE ; CURRENT PACKET. ; ; IF THE PCB IS OF WRITE DIRECTION AND THE PACKET IS FILLED (USED UP), ; GETPOS WILL ATTEM┆
0x1d180…1d200 UnusedSector ┆PT TO ALLOCATE ADDITIONAL BUFFER SPACE FOR THE PACKE ; T ; INPUT: ; PCB RELATIVE REFERENCE TO A FREE MEMORY AREA OF PCBLGT ; WOR┆
0x1d200…1d280 UnusedSector ┆DS. ; ; OUTPUT: ; ADR ABSOLUTE WORD ADDRESS OF THE NEXT CONTIGUOUS MEMOR ; Y AREA IN THE CURRENT PACKET ; CNT LENGTH IN BYTES OF┆
0x1d280…1d300 UnusedSector ┆ THE NEXT CONTIGUOUS MEMORY AREA ; IN THE CURRENT PACKET. ; ; REGISTER CALL EXIT ; R2 CNT ; R3 ADR ; R4 PCB PCB ; R7 LINK DESTRO┆
0x1d300…1d380 UnusedSector ┆YED ; ; RETURNS: ; ERROR=LINK+0 ; DONE=LINK+1 ; ;---------------------------------------------------------------------- PCBGETPO┆
0x1d380…1d400 UnusedSector ┆S: ; BEGIN GETPOS(PCB, ADR, CNT) MOV R7 PCBSV7.X4 ; MOV PCBSTA.X4 R7 ; IBZ R7 RDTYPB ; IF READ TYPE PCB THEN JMP PC1050 ; BE┆
0x1d400…1d480 UnusedSector ┆GIN INE R7 RDGETP ; IF OPERATION NOT ALLOWED THEN JMP PCBERR1 ; CALL ERROR(1) MOV PCBPCX.X4 R7 ; IBN R7 0 ; IF ON HALFWORD B┆
0x1d480…1d500 UnusedSector ┆OUNDARY THEN JMP PCBERR3 ; CALL ERROR(3) MOV PCBBRC.X4 R2 ; IEQP R2 0 ; IF PCBBRC = 0 THEN MOV R5 PCBSV5.X4 ; JMP S5 PCBNXB┆
0x1d500…1d580 UnusedSector ┆ ; GET NEXT BUFFER MOV PCBBRC.X4 R2 ; CNT:=PCBBRC JMP PC1080 ; END PC1050: ; ELSE ; BEGIN INE R7 WRGETP ; IF OPERATION NOT A┆
0x1d580…1d600 UnusedSector ┆LLOWED THEN JMP PCBERR1 ; CALL ERROR(1) MOV PCBPCX.X4 R7 ; IBN R7 0 ; IF ON HALFWORD BOUNDARY THEN JMP PCBERR3 ; CALL ERROR(┆
0x1d600…1d680 UnusedSector ┆3) MOV PCBBRC.X4 R2 ; IEQP R2 0 ; IF PCBBRC = 0 THEN MOV R5 PCBSV5.X7 ; JMP S5 PCBGTBF ; GET A NEW BUFFER MOV PCBBRC.X4 R2 ┆
0x1d680…1d700 UnusedSector ┆; CNT:=PCBBRC ; END PC1080: ; MOV PCBBCX.X4 R3 ; SRL R3 1 ; MOD CBASE-C ; ADDC BUFCHD>1 R3 ; ADR:=BASE + (PCBBCX+BUFCHD)/2 ┆
0x1d700…1d780 UnusedSector ┆ ADD PCBCBA.X4 R3 ; + PCBCBA INC PCBSV7.X4 ; RETURN(LINK+1) JMPI PCBSV7.X4 ; END ;--------------------------------------------┆
0x1d780…1d800 UnusedSector ┆--------------------------- ; ; PROCEDURE HOME(PCB),(ERROR,DONE) ; ; HOME IS USED TO RESET THE CHARACTER INDEX TO ZERO (START OF┆
0x1d800…1d880 UnusedSector ┆ PACKET). ; ; INPUT: ; PCB RELATIVE REFERENCE TO A FREE MEMORY AREA OF PCBLGT ; WORDS. ; ; R4 PCB PCB ; R7 LINK DESTROYED ; ; RE┆
0x1d880…1d900 UnusedSector ┆TURNS: ; ERROR=LINK+0 ; DONE=LINK+1 ; ;---------------------------------------------------------------------- PCBHOME: ; BEGIN H┆
0x1d900…1d980 UnusedSector ┆OME(PCB) MOV R7 PCBS77.X4 ; MOV R2 PCBSV1.X4 ; MOV PCBPCX.X4 R2 ; CNT:=PCBPCX MON BACKSPC ; BACKSPACE(PCB, CNT) JMPI PCBS77┆
0x1d980…1da00 UnusedSector ┆.X4 ; IF ERROR THEN RETURN(LINK+0) INC PCBS77.X4 ; RETURN(LINK+1) MOV PCBSV1.X4 R2 ; JMPI PCBS77.X4 ; END ;------------------┆
0x1da00…1da80 UnusedSector ┆BQMSRC c- @ z { . B G @ | 6 @ ~ . IST POOLST:= LOC+PRGLGT POLT┆
0x1da80…1db00 UnusedSector ┆OPX:= POOLGT+POOLST-BUFWDS+1 MEMTOP:= POOLST+13+BQMLOC+POOLGT MESSAGE MEMTOP MESSAGE POOLGT MESSAGE ------------------------- PR┆
0x1db00…1db80 UnusedSector ┆GLGT:= LOC USE BASE XNAME0= <:BQ:> XNAME1= <:M:> XBUFS=2 XREFS=2 XPRPC= BQMSTART NOLIST ; $S8MXPX2 LIST POOLST:= LOC+PRGLGT POLT┆
0x1db80…1dc00 UnusedSector ┆ BQM | d / d ░░ ┆
0x1dc00…1dc80 UnusedSector 0x00[128]
[…0x5…]
0x1df00…1df80 UnusedSector ┆ a 2 S i z C t 6 ┆
0x1df80…1e000 UnusedSector ┆` Y JUrI V n V i a I i a ' X %X M 0| @!A X MJ'A'B'@'DI FI G Ei Q C q mI┆
0x1e000…1e080 UnusedSector ┆ D 'B'E'F'G'H'I'J'D'@ uI A CI I ]9]N]L X rH} X$} X X jH y X X i C PX Q A D Po G E - ┆
0x1e080…1e100 UnusedSector ┆ - F E < G E ! m ]"O | 4E M ^ 2 \ ]/ ]7 ! ]F B T F E Ai A┆
0x1e100…1e180 UnusedSector ┆O ]L ! ][ B T F E X i < AO ]d ! ]s F| ^ K [ A' B T F MO O ] ! ┆
0x1e180…1e200 UnusedSector ┆ m ] A [ ] O ] D ] S ; @O O q { $ { @ O@ | ~ X K z > ~ X ┆
0x1e200…1e280 UnusedSector ┆ O O O r ~ X2 ? 7X3 O | O r " ~ XGM | < X 5 ' ' ' O a ~ ┆
0x1e280…1e300 UnusedSector ┆Xd I | X ' ' ' ) O a a X a X O r ~ X | J | X X O ┆
0x1e300…1e380 UnusedSector ┆ ~░X M | X' X O |a } ' U | \ X O~░X 9 ^ T { O~░X pX ┆
0x1e380…1e400 UnusedSector ┆ < ^0 | X $ 7 ; O~░X pX U $ rY ! )$ $ $ 7 V ^fX ┆
0x1e400…1e480 UnusedSector ┆ O r ~ Y) U rY. r , r , U X ' U ' / O r ~ YX 'Y[ , ' X)┆
0x1e480…1e500 UnusedSector ┆ } ' \ I M | X a X$a Y a Y O r ~░Y pY < ^ ~ Y ┆
0x1e500…1e580 UnusedSector ┆ pY < ^G $ 3 O~ Y 9 ^^ T O~ Y pY ^q $ 7 O~ ┆
0x1e580…1e600 UnusedSector ┆Y pY $ ! ) $ $ 7 s V 7 ^ X O~░Z J | Z X O O~ Z $ sZ"┆
0x1e600…1e680 UnusedSector ┆ $ 7 s ] X 5 ' Ew O~░Z: =J | Z? X O O~ ZPY ^q $ 7 O~ ┆
0x1e680…1e700 UnusedSector ┆ZdY ^q $ 7 O~ Y pY $ ! ) $ $ 7 s V 7 ^ X O~░Z J ┆
0x1e700…1e780 UnusedSector ┆, XSBUFAREA=XSBUFAREA+XSBUFSIZE+XSFILL IF XSBUFFERS GT 1 THEN LOC-BNEXT+BUFFERLENGTH ELSE XSUSED FI XSBUFFERS=XSBUFFERS-1 F┆
0x1e780…1e800 UnusedSector ┆I IF XSMODE>BNBYTE AN (NT XSKIND>BNBYTE) AN XSBUFAREA>15 THEN MESSAGE <:ADDR TOO BIG:> FI IF XSBUFFER GT 0 THEN 0 REPEAT (XS┆
0x1e800…1e880 UnusedSector ┆;----------------------------------------------------------------------- ; MONITOR CALL ENTRIES ;-------------------------------┆
0x1e880…1e900 UnusedSector ┆---------------------------------------- AUX=LOC LOC=255 ; TOP OF MONITOR CALL TABLE LOC=LOC-1 ; ON LINE TEST OUTPUT VPOOL: LO┆
0x1e900…1e980 UnusedSector ┆C=LOC-1 ; ADDRESS OF VACANCY POOL GENPACK: LOC=LOC-1 ; GENERATE PACKET RELPACK: LOC=LOC-1 ; RELEASE PACKET ENQPACK: LOC=LOC-1 ; ┆
0x1e980…1ea00 UnusedSector ┆ENQUEUE PACKET DEQPACK: LOC=LOC-1 ; DEQUEUE PACKET STKPACK: LOC=LOC-1 ; STACK PACKET PROBQUE: LOC=LOC-1 ; PROBE QUEUE INITPCB: L┆
0x1ea00…1ea80 UnusedSector ┆OC=LOC-1 ; INITIALIZE PACKET CONTROL BLOCK CONNECTQUE: LOC=LOC-1 ; CONNECT QUEUE TO PCB CONNECTPACK: LOC=LOC-1 ; CONNECT PACKET ┆
0x1ea80…1eb00 UnusedSector ┆TO PCB NEXTPACK:=CONNECTPACK ; TERMPACK: LOC=LOC-1 ; TERMINATE PACKET RESUMPACK: LOC=LOC-1 ; RESUME PACKET COPYPACK: LOC=LOC-1 ┆
0x1eb00…1eb80 UnusedSector ┆; COPY PACKET REGRETPACK: LOC=LOC-1 ; REGRET PACKET READCHAR: LOC=LOC-1 ; READ CHARACTER READWORD: LOC=LOC-1 ; READ WORD READBLO┆
0x1eb80…1ec00 UnusedSector ┆CK: LOC=LOC-1 ; READ BLOCK FORWSPC: LOC=LOC-1 ; FORWARD SPACE BACKSPC: LOC=LOC-1 ; BACKSPACE HOME: LOC=LOC-1 ; HOME GETPOS: LOC=┆
0x1ec00…1ec80 UnusedSector ┆LOC-1 ; GET POSITION WRITECHAR: LOC=LOC-1 ; WRITE CHARACTER WRITEWORD: LOC=LOC-1 ; WRITE WORD WRITEBLOCK: LOC=LOC-1 ; WRITE BLOC┆
0x1ec80…1ed00 UnusedSector ┆K STORECOUNT: LOC=LOC-1 ; STORE COUNT LOC=AUX ;----------------------------------------------------------------------- ;--------┆
0x1ed00…1ed80 UnusedSector ┆--------------------------------------------------------------- ; INTERFACE CONSTANTS ;-----------------------------------------┆
0x1ed80…1ee00 UnusedSector ┆------------------------------ BUFWDS:= 37 ; TOTAL LENGTH OF BUFFER IN WORDS QUECNT:= 32 ; MAX NUMBER OF QUEUES POOLGT:= 6000 ; ┆
0x1ee00…1ee80 UnusedSector ┆LENGTH OF VACANCY POOL AREA IN ; WORDS LOWTHOLD:= 20 ; LOWER BUFFER THRESHOLD UPPTHOLD:= LOWTHOLD+10 ; UPPER BUFFER THRESHOLD P┆
0x1ee80…1ef00 UnusedSector ┆CBLGT:= 22 ; LENGTH OF PCB (WORDS) ;----------------------------------------------------------------------- RDTYP:= 0 ; READ TYP┆
0x1ef00…1ef80 UnusedSector ┆E WRTYP:= 1 ; WRITE TYPE PRI0:= 0 ; PRIORITY LEVEL 0 (LOW) ; MEANS THAT THE VACANCY POOL MAY ; NOT BE DEPLETED BELOW THE ; CU┆
0x1ef80…1f000 UnusedSector ┆RRENT THRESHOLD. PRI1:= 1 ; PRIORITY LEVEL 1 (HIGH) ; MEANS THAT THE VACANCY POOL MAY ; BE TOTALLY DEPLETED. ; ERROR CODES (BI┆
0x1f000…1f080 UnusedSector ┆T POSITIONS) ; BIT FLAG: ILLOP:= 0 ; ILLEGAL OPERATION BOUND:= 1 ; BOUNDARY ERROR OVFL:= 2 ; PACKET OVERFLOW QBUSY:= 3 ; QUEUE ┆
0x1f080…1f100 UnusedSector ┆BUSY INVQU:= 4 ; INVALID QUEUE ILLPAR:=5 ; ILLEGAL PARAMETER NOPCK:= 6 ; NO PACKET AVAILABLE ; BQM INTERFACE CONSTANTS CRTQUE:= ┆
0x1f100…1f180 UnusedSector ┆0 ; COMMAND: CREATE QUE HEAD REMQUE:= 1 ; COMMAND: REMOVE QUE HEAD QUECMOK:= 0 ; RESULT: NO ERROR QUECMER:= 1 ; RESULT: ERROR ;-┆
0x1f180…1f200 UnusedSector ┆---------------------------------------------------------------------- O PACKET AVAILABLE ; BQM INTERFACE CONSTANTS CRTQUE:= ┆
0x1f200…1f280 UnusedSector ┆ K p c ,PARAMETER SYNTAX ERROR OBJECT FILE FULL SOURCE OPEN ERROR OBJECT OPEN ERROR lN Z ]wX ┆
0x1f280…1f300 UnusedSector ┆ zlN ZK# d ] NOT READY TIME OUT REJECTED ILLEGAL UNCOMPLETE ERROR END-OF-FILE PARITY ERROR READ ERROR WRITE ERROR FULL ┆
0x1f300…1f380 UnusedSector ┆ UNKNOWN NO REFS BUSY L Q V Z ` c i p v | G pbsctdveukLf |lNhd K: _ ]hbI q N q" . Z ] STATUS: Zjh┆
0x1f380…1f400 UnusedSector ┆K# d ]kcneLf OO@ld k hX #X E X hpY N| iX X X hY S| O~ X HZ hX iX X X hpW \% UHRI^ E' H I J K Ll RHZ SX H@ ┆
0x1f400…1f480 UnusedSector ┆V H3 (C H H I OV I J K V L RH^M SX H@ H (C H OV V L K _HZ K: _ ] ] ]Ll a | V L _X K V L _OV K _Ll TV L T┆
0x1f480…1f500 UnusedSector ┆oX OW \UlM YlN Y A p c d / d ░░ ┆
0x1f500…1f580 UnusedSector ┆ / / 4 LP ░░ OC LP ┆
0x1f580…1f600 UnusedSector 0x00[128]
[…0x4…]
0x1f800…1f880 UnusedSector ┆ OC ┆
0x1f880…1f900 UnusedSector ┆ ┆
0x1f900…1f980 UnusedSector 0x00[128]
0x1f980…1fa00 UnusedSector ┆ OC h h ┆
0x1fa00…1fa80 UnusedSector ┆ h ┆
0x1fa80…1fb00 UnusedSector 0x00[128]
0x1fb00…1fb80 UnusedSector ┆ f f @ V f ^ V ┆
0x1fb80…1fc00 UnusedSector 0x00[128]
[…0x3…]
0x1fd80…1fe00 UnusedSector ┆░░R 2 1 2 &░░░░░░░░░░░░░░░░░░ ░░ ┆
0x1fe00…1fe80 UnusedSector ┆░░ ░░ ┆
0x1fe80…1ff00 UnusedSector ┆░░R 2 1 2 &░░░░░░░░░░░░░░░░░░ ░░ ┆
0x1ff00…1ff80 UnusedSector ┆░░ ░░ ┆
0x1ff80…20000 UnusedSector ┆░░R 2 1 2 &░░░░░░░░░░░░░░░░░░ ░░ ┆
0x20000…20080 UnusedSector ┆░░ ░░ ┆
0x20080…20100 UnusedSector ┆░░R 2 1 2 &░░░░░░░░░░░░░░░░░░ ░░ ┆
0x20100…20180 UnusedSector ┆----------------------------------------------------- ; ; PROCEDURE WRITECHAR(PCB,CHAR),(ERROR,DONE) ; ; WRITECHAR STORES THE BY┆
0x20180…20200 UnusedSector ┆TE CHAR IN THE CURRENT PACKET AT THE POSITION ; INDICATED BY THE CHARACTER INDEX AND INCREMENTS THE CHARACTER INDEX B ; Y 1. ; ;┆
0x20200…20280 UnusedSector ┆ INPUT: ; PCB RELATIVE REFERENCE TO A FREE MEMORY AREA OF PCBLGT ; WORDS. ; CHAR A BYTE VALUE ; ; REGISTER CALL EXIT ; R3 CHAR C┆
0x20280…20300 UnusedSector ┆HAR ; R4 PCB PCB ; R7 LINK DESTROYED ; ; RETURNS: ; ERROR=LINK+0 ; DONE=LINK+1 ; ;----------------------------------------------┆
0x20300…20380 UnusedSector ┆------------------------ PCBWRCH: ; BEGIN WRITECHAR(PCB, CHAR) MOV R7 PCBSV7.X4 ; MOV PCBSTA.X4 R7 ; INE R7 WRCH ; IF OPERATI┆
0x20380…20400 UnusedSector ┆ON NOT ALLOWED THEN JMP PCBERR1 ; CALL ERROR(1) SONP PCBBRC.X4 ; IF PCBBRC=0 THEN MOV R5 PCBSV5.X4 ; JMP S5 PCBGTBF ; GET A ┆
0x20400…20480 UnusedSector ┆NEW BUFFER DEC PCBBRC.X4 ; PCBBRC:=PCBBRC-1 MOV PCBBCX.X4 R7 ; MOD PCBCBA.X4 ; MOVB R3 BUFCHD.X7 ; BYTE((PCBCBA)*2+PCBBCX+BU┆
0x20480…20500 UnusedSector ┆FCHD):= ; CHAR INC PCBBCX.X4 ; PCBBCX:=PCBBCX+1 INC PCBPCX.X4 ; PCBPCX:=PCBPCX+1 INC PCBSV7.X4 ; JMPI PCBSV7.X4 ; RETURN(LI┆
0x20500…20580 UnusedSector ┆NK+1) ; END ;----------------------------------------------------------------------- ; ; PROCEDURE WRITEWORD(PCB,WORD),(ERROR,D┆
0x20580…20600 UnusedSector ┆ONE) ; ; WRITEWORD STORES THE WORD IN THE CURRENT PACKET AT THE POSITION INDIC ; ATED BY THE CHARACTER INDEX AND INCREMENTS THE ┆
0x20600…20680 UnusedSector ┆CHARACTER INDEX BY 2. ; THE CHARACTER INDEX MUST BE EVEN AT CALL. ; ; INPUT: ; PCB RELATIVE REFERENCE TO A FREE MEMORY AREA OF P┆
0x20680…20700 UnusedSector ┆CBLGT ; WORDS. ; WORD A 16 BIT VALUE ; ; REGISTER CALL EXIT ; R3 WORD WORD ; R4 PCB PCB ; R7 LINK DESTROYED ; ; RETURNS: ; ERROR┆
0x20700…20780 UnusedSector ┆=LINK+0 ; DONE=LINK+1 ; ;---------------------------------------------------------------------- PCBWRWD: ; BEGIN WRITEWORD(PCB, ┆
0x20780…20800 UnusedSector ┆WORD) MOV R7 PCBSV7.X4 ; MOV PCBSTA.X4 R7 ; INE R7 WRWD ; IF OPERATION NOT ALLOWED THEN JMP PCBERR1 ; CALL ERROR(1) MOV PCB┆
0x20800…20880 UnusedSector ┆BCX.X4 R7 ; IBN R7 0 ; IF ON HALFWORD BOUNDARY THEN JMP PCBERR3 ; CALL ERROR(3) MOV PCBBRC.X4 R7 ; ILOP R7 2 ; IF PCBBRC < 2┆
0x20880…20900 UnusedSector ┆ THEN MOV R5 PCBSV5.X4 ; JMP S5 PCBGTBF ; GET A NEW BUFFER MOV PCBBCX.X4 R7 ; SRL R7 1 ; ADD PCBCBA.X4 R7 ; (PCBCBA+(PCBBCX┆
0x20900…20980 UnusedSector ┆+BUFCHD)/2):=WORD MOV R3 BUFCHD>1.X7; INC PCBBCX.X4 ; INC PCBBCX.X4 ; PCBBCX:=PCBBCX+2 INC PCBPCX.X4 ; INC PCBPCX.X4 ; PCBP┆
0x20980…20a00 UnusedSector ┆CX:=PCBPCX+2 DEC PCBBRC.X4 ; DEC PCBBRC.X4 ; PCBBRC:=PCBBRC-2 INC PCBSV7.X4 ; RETURN(LINK+1) JMPI PCBSV7.X4 ; END ;---------┆
0x20a00…20a80 UnusedSector ┆-------------------------------------------------------------- ; ; PROCEDURE WRITEBLOCK(PCB,SOURCE,CNT),(ERROR,DONE) ; ; WRITEBL┆
0x20a80…20b00 UnusedSector ┆OCK COPIES A BLOCK OF WORDS FROM THE LOCATIONS DEFINED BY SOUR ; CE AND CNT AND STORES THEM IN THE CURRENT PACKET STARTING AT TH┆
0x20b00…20b80 UnusedSector ┆E POSI ; TION INDICATED BY THE CHARACTER INDEX. THE CHARACTER INDEX IS INCREME ; TED BY 2*CNT. ; THE CHARACTER INDEX MUST BE EVE┆
0x20b80…20c00 UnusedSector ┆N AT CALL. ; ; INPUT: ; PCB RELATIVE REFERENCE TO A FREE MEMORY AREA OF PCBLGT ; WORDS. ; SOURCE RELATIVE WORD ADRESS ; CNT NUMB┆
0x20c00…20c80 UnusedSector ┆ER OF WORDS ; ; OUTPUT: ; SOURCE UPDATED ; CNT UPDATED ; ; REGISTER CALL EXIT ; R2 CNT CNT ; R3 SOURCE SOURCE ; R4 PCB PCB ; R7 ┆
0x20c80…20d00 UnusedSector ┆LINK DESTROUED ; ; RETURNS: ; ERROR=LINK+0 ; DONE=LINK+1 ; ; ;------------------------------------------------------------------┆
0x20d00…20d80 UnusedSector ┆---- PCBWRBL: ; BEGIN WRITEBLOCK(PCB, SOURCE, CNT) MOV R7 PCBSV7.X4 ; MOV PCBSTA.X4 R7 ; INE R7 WRBL ; IF OPERATION NOT ALLOW┆
0x20d80…20e00 UnusedSector ┆ED THEN JMP PCBERR1 ; CALL ERROR(1) MOV PCBBCX.X4 R7 ; IBN R7 0 ; IF ON HALFWORD BOUNDARY THEN JMP PCBERR3 ; CALL ERROR(3) P┆
0x20e00…20e80 UnusedSector ┆C1410: ; MOV R1 PCBSV1.X4 ; DO WHILE CNT <> 0 MOV PCBBCX.X4 R7 ; X:=PCBBCX MOV PCBBRC.X4 R1 ; SRL R1 1 ; N:=PCBBRC/2 ILO R2┆
0x20e80…20f00 UnusedSector ┆ R1 ; N:=MIN(CNT, N) MOV R2 R1 ; SLL R1 1 ; N:=N*2 JOZ R1 PC1440 ; ADD R1 PCBBCX.X4 ; PCBBCX:=PCBBCX+N ADD R1 PCBPCX.X4 ; P┆
0x20f00…20f80 UnusedSector ┆CBPCX:=PCBPCX+N SUB R1 PCBBRC.X4 ; PCBBRC:=PCBBRC-N SRL R1 1 ; N:=N/2 SUB R1 R2 ; CNT:=CNT-N SRL R7 1 ; X:=X/2 ADD PCBCBA.X┆
0x20f80…21000 UnusedSector ┆4 R7 ; ADDC BUFCHD>1 R7 ; D:=X+PCBCBA+BUFCHD/2 XCH R7 R3 ; S:=SOURCE MOV R5 PCBSV5.X4 ; JMP S5 PCBMOV ; MOV PCBSV5.X4 R5 ; ┆
0x21000…21080 UnusedSector ┆ XCH R3 R7 ; PC1440: ; MOV PCBSV1.X4 R1 ; JOZ R2 PC1450 ; IF CNT <> 0 THEN MOV R5 PCBSV5.X4 ; JMP S5 PCBGTBF ; GET A NEW BUF┆
0x21080…21100 UnusedSector ┆FER JMP PC1410 ; OD PC1450: ; INC PCBSV7.X4 ; RETURN(LINK+1) JMPI PCBSV7.X4 ; END ;------------------------------------------┆
0x21100…21180 UnusedSector ┆----------------------------- ; ; PROCEDURE RESUMPACK(PCB),(ERROR,DONE) ; ; THIS PROCEDURE IS USED TO DISCONNECT TE CURRENT PACK┆
0x21180…21200 UnusedSector ┆ET FROM THE PCB A ; ND LINK IT IN THE FRONT OF THE QUEUE CONNECTED TO THE PCB. ; MAY ONLY BE CALLED FOR READ TYPE PCBS. ; ; INPU┆
0x21200…21280 UnusedSector ┆T: ; PCB RELATIVE REFERENCE TO A FREE MEMORY AREA OF PCBLGT ; WORDS ; ; REGISTER CALL EXIT ; R4 PCB PCB ; R7 LINK DESTROYED ; ; ┆
0x21280…21300 UnusedSector ┆RETURNS: ; ERROR=LINK+0 ; DONE =LINK+1 ; ;---------------------------------------------------------------------- PCBRESUM: ; BEG┆
0x21300…21380 UnusedSector ┆IN RESUMEPACK(PCB) MOV R7 PCBSV7.X4 ; MOV PCBSTA.X4 R7 ; INE R7 RSMP ; IF OPERATION NOT ALLOWED THEN JMP PCBERR1 ; CALL ERRO┆
0x21380…21400 UnusedSector ┆R(1) MOV R5 PCBSV5.X4 ; MOV R6 PCBSV6.X4 ; MOV PCBQUE.X4 R5 ; QUE:=PCBQUE MOV PCBFBA.X4 R6 ; PCK:=PCBFBA MOV R2 PCBSV2.X4 ;┆
0x21400…21480 UnusedSector ┆ MOVC QURTC R2 ; N:=QUE RESERVE TRY COUNT PC1510: ; WAITQUE: IEQ R2 0 ; IF N=0 THEN JMP PCBERR4 ; CALL ERROR(4) ADDC -1 R2 ;┆
0x21480…21500 UnusedSector ┆ N:=N-1 MON STKPACK ; STACKPACKET(QUE,PCK), JMP & PC1510 ; (QUEBUSY: GO TO WAITQUE, ; DONE: CONTINUE) MOV PCBSV2.X4 R2 ; MO┆
0x21500…21580 UnusedSector ┆V PCBSV5.X4 R5 ; MOV PCBSV6.X4 R6 ; MOVC PCSTA7 R7 ; PCBSTA:=(QUE CONNECTED,READTYPE, ; INITIALISED) MOV R7 PCBSTA.X4 ; INC┆
0x21580…21600 UnusedSector ┆ PCBSV7.X4 ; RETURN(LINK+1) JMPI PCBSV7.X4 ; END ;----------------------------------------------------------------------- ; ; P┆
0x21600…21680 UnusedSector ┆ROCEDURE STORECOUNT(PCB,POS,OFFSET),(ERROR,DONE) ; ; STORECOUNT IS USED TO STORE THE CURRENT CHARACTER INDEX VALUE LESS THE ; OF┆
0x21680…21700 UnusedSector ┆FSET IN THE PACKET AT THE POSITION INDICATED BY POS. ; ; INPUT: ; OFFSET CHARACTER COUNT OFFSET VALUE ; PCB RELATIVE REFERENCE T┆
0x21700…21780 UnusedSector ┆O A FREE MEMORY AREA OF PCBLGT ; WORDS. ; POS WORD POSITION IN PACKET ; ; OUTPUT: ; CNT CURRENT VALUE OF CHARACTER INDEX VALUE L┆
0x21780…21800 UnusedSector ┆ESS THE ; OFFSET. ; ; REGISTER CALL EXIT ; R2 OFFSET OFFSET ; R3 POS DESTROYED ; R4 PCB PCB ; R7 LINK CNT ; ; RETURNS: ; ERROR=L┆
0x21800…21880 UnusedSector ┆INK+0 ; DONE=LINK+1 ; ;---------------------------------------------------------------------- PCBSTCNT: ; BEGIN STORECOUNT(PCB,P┆
0x21880…21900 UnusedSector ┆OS) MOV R7 PCBSV7.X4 ; MOV PCBSTA.X4 R7 ; INE R7 STCNT ; IF OPERATION NOT ALLOWED THEN JMP PCBERR1 ; CALL ERROR(1) MOV PCBT┆
0x21900…21980 UnusedSector ┆PN.X4 R7 ; SRL R7 1 ; ILO R7 R3 ; IF POS > PCBTPCN/2 THEN JMP PCBERR2 ; CALL ERROR(2) MOV PCBBFL.X4 R7 ; SRL R7 1 ; X:=PCBB┆
0x21980…21a00 UnusedSector ┆FL/2 MOV R5 PCBSV5.X4 ; MOV PCBFBA.X4 R5 ; Y:=PCBFBA PC1610: ; ILO R3 R7 ; DO WHILE POS < X JMP PC1620 ; SUB R7 R3 ; POS:=P┆
0x21a00…21a80 UnusedSector ┆OS-X MOV BUFLNK.X5 R5 ; SUB CBASE-C R5 ; Y:=BUFLNK.Y JMP PC1610 ; OD PC1620: ; ADD R3 R5 ; Y:=Y+POS MOV PCBPCX.X4 R7 ; SUB┆
0x21a80…21b00 UnusedSector ┆ R2 R7 ; PCBPCX-OFFSET MOV R7 BUFCHD>1.X5; =>(BUFCHD/2).Y MOV R7 7 ; PCBPCX-OFFSET=>CNT MOV PCBSV5.X4 R5 ; INC PCBSV7.X4 ; R┆
0x21b00…21b80 UnusedSector ┆ETURN(LINK+1) JMPI PCBSV7.X4 ; END ;----------------------------------------------------------------------- ; ; PROCEDURE COPYP┆
0x21b80…21c00 UnusedSector ┆ACK(PCB,QUE),(ERROR,DONE) ; ; THIS PROCEDURE IS USED TO DISCONNECT THE CURRENT PACKET FROM THE PCB ; AND TRANSFER IT TO THE REAR┆
0x21c00…21c80 UnusedSector ┆ OF THE QUEUE DESIGNATED BY QUE. ; MAY ONLY BE CALLED FOR READ TYPE PCBS. ; ; INPUT: ; PCB RELATIVE REFERENCE TO A FREE MEMORY A┆
0x21c80…21d00 UnusedSector ┆REA OF PCBLGT ; WORDS ; QUE ABSOLUTE REFERENCE TO THE QUEUE ; ; REGISTER CALL EXIT ; R3 QUE QUE ; R4 PCB PCB ; R7 LINK DESTROYED┆
0x21d00…21d80 UnusedSector ┆ ; ; RETURNS: ; ERROR=LINK+0 ; DONE=LINK+1 ; ;---------------------------------------------------------------------- PCBCOPY: ; ┆
0x21d80…21e00 UnusedSector ┆BEGIN COPYPACK(PCB,QUE) MOV R7 PCBSV7.X4 ; MOV PCBSTA.X4 R7 ; INE R7 COPP ; IF OPERATION NOT ALLOWED THEN JMP PCBERR1 ; CALL┆
0x21e00…21e80 UnusedSector ┆ ERROR(1) MOV R5 PCBSV5.X4 ; MOV R6 PCBSV6.X4 ; MOV R2 PCBSV2.X4 ; MOV PCBFBA.X4 R6 ; PCK:=PCBFBA MOV R3 R5 ; QUE:=REF.QUE ┆
0x21e80…21f00 UnusedSector ┆ MOVC QURTC R2 ; N:= QUE RESERVE TRY COUNT PC1710: ; WAITQUE: IEQ R2 0 ; IF N=0 THEN JMP PCBERR4 ; CALL ERROR(4) ADDC -1 R2 ;┆
0x21f00…21f80 UnusedSector ┆ N:=N-1 MON ENQPACK ; ENQUEPACKET(QUE,PCK), JMP & PC1710 ; (QUEBUSY: GO TO WAITQUE, ; DONE: CONTINUE) MOV PCBSV2.X4 R2 ; MO┆
0x21f80…22000 UnusedSector ┆V PCBSV5.X4 R5 ; MOV PCBSV6.X4 R6 ; MOVC PCSTA7 R7 ; PCBSTA:=(QUE CONNECTED, READTYPE ; ,INITIALISED) MOV R7 PCBSTA.X4 ; IN┆
0x22000…22080 UnusedSector ┆C PCBSV7.X4 ; RETURN(LINK+1) JMPI PCBSV7.X4 ; END ;----------------------------------------------------------------------- ; ; ┆
0x22080…22100 UnusedSector ┆PROCEDURE REGRETPACK(PCB),(ERROR,DONE) ; ; REGRETPACK TERMINATES WRITING TO THE CURRENT PACKET AND RETURNS ITS B ; UFFERS TO THE┆
0x22100…22180 UnusedSector ┆ VACANCY POOL. ; ; INPUT: ; PCB RELATIVE REFERENCE TO A MEMORY AREA OF PCBLGT WORD ; ; REGISTERS CALL EXIT ; R4 PCB PCB ; R7 LIN┆
0x22180…22200 UnusedSector ┆K DESTROYED ; ; RETURNS: ; ERROR=LINK+0 ; DONE=LINK+1 ; ;---------------------------------------------------------------------- ┆
0x22200…22280 UnusedSector ┆PCBRGP: ; BEGIN REGRETPACK(PCB) MOV R7 PCBSV7.X4 ; MOV PCBSTA.X4 R7 ; INE R7 TMWR ; IF OPERATION NOT ALLOWED THEN JMP PCBERR┆
0x22280…22300 UnusedSector ┆1 ; CALL ERROR(1) JMP PC0455 ; ELSE GO TO RELEASE PACKET ;---------------------------------------------------------------------┆
0x22300…22380 UnusedSector ┆-- PRGLGT:= LOC USE BASE XNAME0= <:BQ:> XNAME1= <:M:> XBUFS=2 XREFS=2 XPRPC= BQMSTART NOLIST ; ; CR80 SYSTEM ONE ; MONITOR ; M┆
0x22380…22400 UnusedSector ┆ASTER: XPD - PROCESS DESCRIPTION (PART 2) IF XPD EQ UTILITYLENGTH OR XPD EQ PROGLENGTH THEN USE PROG XPSTATE= BMREENTRANT XRE┆
0x22400…22480 UnusedSector ┆FS= 0 XBUFS= 1 XWORDS= 0 XPSIZE= LOC XCHAIN= 0 XPCOUNT= 1 XPNAME0= 0 XPNAME1= 0 XPNAME2= 0 XIDENT= 0 XPRPC= PROGLENGTH┆
0x22480…22500 UnusedSector ┆ FI USE BASE IF XPD GT PROGLENGTH THEN XLOC= LOC-XLOC-C XSTATE= 0 XPARENT= 0 XNEXT= 0 XCHILD= 0 XCHAIN= 0 XKIND= 0 XNAME┆
0x22500…22580 UnusedSector ┆0= 0 XNAME1= 0 XNAME2= 0 XIDENT= 0 XPROCIDENT= 0 XDEBUG= 0 XCBASE= 0 XCBASEMOD= 0 XPRPC= 0 XTIMER= 100 XPSW= 0 XOLDPR┆
0x22580…22600 UnusedSector ┆OC= 0 XLOCACTION= LOCACT XLOCRETURN= 0 XCAUSE= 0 XDEVPR= 0 XPRESET= 100 XERROR= 0 XWARNING= 0 XTERMINATE= 0 XRESERVER= ┆
0x22600…22680 UnusedSector ┆0 XDEVICE= 0 XINTERRUPT= 0 XACTION= LOCACT XEOFACTION= LOCACT IF XPD GT CURSIN THEN IF LOC NE CURSIN+XLOC THEN MESSAGE <:ER┆
0x22680…22700 UnusedSector ┆ROR: XCURSIN LENGTH:> FI XCURIN= LOC BEGIN USE BASE XSHARE: XSNAME: XSNAME0 IF NAMELENGTH GT 1 THEN XSNAME1 IF NAMELENGTH GT 2 ┆
0x22700…22780 UnusedSector ┆THEN XSNAME2 IF NAMELENGTH GT 3 THEN 0 REPEAT NAMELENGTH-3-1 FI FI FI IF LOC-XSNAME NE NAMELENGTH THEN MESSAGE <:ERROR: XSNAME┆
0x22780…22800 UnusedSector ┆ LENGTH:> FI XSIDENT 0 ; SPROCIDENT XSMODE XSKIND 0 REPEAT 6 ; SMASK - SFILE XSFIRST XSTOP XSREM XSBUFSIZE XSUSED XSSI┆
0x22800…22880 UnusedSector ┆D: 0 IF IDLENGTH GT 1 THEN 0 IF IDLENGTH GT 2 THEN 0 IF IDLENGTH GT 3 THEN 0 REPEAT IDLENGTH-3-1 FI FI FI IF LOC-XSSID NE IDL┆
0x22880…22900 UnusedSector ┆ENGTH THEN MESSAGE <:ERROR: XSSID LENGTH:> FI 0 IF LOC-XSSID NE STACKLENGTH THEN MESSAGE <:ERROR: STACK LENGTH:> FI 0 REPEAT 9┆
0x22900…22980 UnusedSector ┆ ; SSAVE0 - SSAVE9 IF LOC-XSHARE NE SHARELENGTH THEN MESSAGE <:ERROR: XSHARE LENGTH:> FI XSBUFFERS= 1 XSNAME0= <:OC:> XSMODE= ┆
0x22980…22a00 UnusedSector ┆BMINPUT OR BMBYTE XSKIND= KINDOC OR BMBYTE OR BMDISP XSBUFSIZE= 128 XSBUFFERS= 2 IF XSMODE>BNBYTE THEN XSFACTOR=2 IF XSBUFSIZE┆
0x22a00…22a80 UnusedSector ┆ THEN XSFILL=1 ELSE XSFILL=0 FI ELSE XSFACTOR=1 XSFILL=0 FI XSNAME0= 0 XSNAME1= 0 XSNAME2= 0 XSIDENT= 0 XSFIRST= (LOC+┆
0x22a80…22b00 UnusedSector ┆XSBUFFERS*BUFFERLENGTH)*XSFACTOR XSTOP= XSFIRST IF XSMODE>BNOPUT THEN XSREM= XSBUFSIZE ELSE XSREM= 0 FI XSUSED= LOC XSBUF┆
0x22b00…22b80 UnusedSector ┆FER= XSBUFFERS*(XSBUFSIZE+XSFILL) XSBUFAREA= (XSUSED+XSBUFFERS*BUFFERLENGTH)*XSFACTOR IF XSBUFFERS GT 0 THEN 0 REPEAT BFIRST-1┆
0x22b80…22c00 UnusedSector ┆ XSBUFAREA, XSBUFAREA=XSBUFAREA+XSBUFSIZE+XSFILL IF XSBUFFERS GT 1 THEN LOC-BNEXT+BUFFERLENGTH ELSE XSUSED FI XSBUFFERS=XS┆
0x22c00…22c80 UnusedSector ┆BUFFERS-1 FI IF XSBUFFERS GT 0 THEN 0 REPEAT BFIRST-1 XSBUFAREA, XSBUFAREA=XSBUFAREA+XSBUFSIZE+XSFILL IF XSBUFFERS GT 1 THEN ┆
0x22c80…22d00 UnusedSector ┆ LOC-BNEXT+BUFFERLENGTH ELSE XSUSED FI XSBUFFERS=XSBUFFERS-1 FI IF XSMODE>BNBYTE AN (NT XSKIND>BNBYTE) AN XSBUFAREA>15 THEN ┆
0x22d00…22d80 UnusedSector ┆ MESSAGE <:ADDR TOO BIG:> FI IF XSBUFFER GT 0 THEN 0 REPEAT (XSBUFFER-1)/XSFACTOR FI END IF XPD GT CURSOUT THEN IF LOC NE CUR┆
0x22d80…22e00 UnusedSector ┆SOUT+XLOC THEN MESSAGE <:ERROR: XCURSOUT LENGTH:> FI XCUROUT= LOC BEGIN USE BASE XSHARE: XSNAME: XSNAME0 IF NAMELENGTH GT 1 THEN┆
0x22e00…22e80 UnusedSector ┆ XSNAME1 IF NAMELENGTH GT 2 THEN XSNAME2 IF NAMELENGTH GT 3 THEN 0 REPEAT NAMELENGTH-3-1 FI FI FI IF LOC-XSNAME NE NAMELENGTH┆
0x22e80…22f00 UnusedSector ┆ THEN MESSAGE <:ERROR: XSNAME LENGTH:> FI XSIDENT 0 ; SPROCIDENT XSMODE XSKIND 0 REPEAT 6 ; SMASK - SFILE XSFIRST XSTOP ┆
0x22f00…22f80 UnusedSector ┆XSREM XSBUFSIZE XSUSED XSSID: 0 IF IDLENGTH GT 1 THEN 0 IF IDLENGTH GT 2 THEN 0 IF IDLENGTH GT 3 THEN 0 REPEAT IDLENGTH-3-1┆
0x22f80…23000 UnusedSector ┆ FI FI FI IF LOC-XSSID NE IDLENGTH THEN MESSAGE <:ERROR: XSSID LENGTH:> FI 0 IF LOC-XSSID NE STACKLENGTH THEN MESSAGE <:ERROR: ┆
0x23000…23080 UnusedSector ┆STACK LENGTH:> FI 0 REPEAT 9 ; SSAVE0 - SSAVE9 IF LOC-XSHARE NE SHARELENGTH THEN MESSAGE <:ERROR: XSHARE LENGTH:> FI XSBUFFER┆
0x23080…23100 UnusedSector ┆S= 1 XSNAME0= <:OC:> XSMODE= BMOUTPUT OR BMBYTE XSKIND= KINDOC OR BMBYTE OR BMDISP XSBUFSIZE= 128 XSBUFFERS= 2 IF XSMODE>BNBYTE┆
0x23100…23180 UnusedSector ┆ THEN XSFACTOR=2 IF XSBUFSIZE THEN XSFILL=1 ELSE XSFILL=0 FI ELSE XSFACTOR=1 XSFILL=0 FI XSNAME0= 0 XSNAME1= 0 XSNAME2=┆
0x23180…23200 UnusedSector ┆ 0 XSIDENT= 0 XSFIRST= (LOC+XSBUFFERS*BUFFERLENGTH)*XSFACTOR XSTOP= XSFIRST IF XSMODE>BNOPUT THEN XSREM= XSBUFSIZE ELSE XSR┆
0x23200…23280 UnusedSector ┆EM= 0 FI XSUSED= LOC XSBUFFER= XSBUFFERS*(XSBUFSIZE+XSFILL) XSBUFAREA= (XSUSED+XSBUFFERS*BUFFERLENGTH)*XSFACTOR IF XSBUFFER┆
0x23280…23300 UnusedSector ┆S GT 0 THEN 0 REPEAT BFIRST-1 XSBUFAREA, XSBUFAREA=XSBUFAREA+XSBUFSIZE+XSFILL IF XSBUFFERS GT 1 THEN LOC-BNEXT+BUFFERLENGTH ┆
0x23300…23380 UnusedSector ┆ ELSE XSUSED FI XSBUFFERS=XSBUFFERS-1 FI IF XSBUFFERS GT 0 THEN 0 REPEAT BFIRST-1 XSBUFAREA, XSBUFAREA=XSBUFAREA+XSBUFSIZE+X┆
0x23380…23400 UnusedSector ┆SFILL IF XSBUFFERS GT 1 THEN LOC-BNEXT+BUFFERLENGTH ELSE XSUSED FI XSBUFFERS=XSBUFFERS-1 FI IF XSMODE>BNBYTE AN (NT XSKIND┆
0x23400…23480 UnusedSector ┆>BNBYTE) AN XSBUFAREA>15 THEN MESSAGE <:ADDR TOO BIG:> FI IF XSBUFFER GT 0 THEN 0 REPEAT (XSBUFFER-1)/XSFACTOR FI END IF XPD┆
0x23480…23500 UnusedSector ┆ GT CURSWORK THEN IF LOC NE CURSWORK+XLOC THEN MESSAGE <:ERROR: XCURSWORK LENGTH:> FI XCURWRK= LOC BEGIN USE BASE XSHARE: XSNAME┆
0x23500…23580 UnusedSector ┆: XSNAME0 IF NAMELENGTH GT 1 THEN XSNAME1 IF NAMELENGTH GT 2 THEN XSNAME2 IF NAMELENGTH GT 3 THEN 0 REPEAT NAMELENGTH-3-1 FI ┆
0x23580…23600 UnusedSector ┆FI FI IF LOC-XSNAME NE NAMELENGTH THEN MESSAGE <:ERROR: XSNAME LENGTH:> FI XSIDENT 0 ; SPROCIDENT XSMODE XSKIND 0 REPEAT 6 ┆
0x23600…23680 UnusedSector ┆; SMASK - SFILE XSFIRST XSTOP XSREM XSBUFSIZE XSUSED XSSID: 0 IF IDLENGTH GT 1 THEN 0 IF IDLENGTH GT 2 THEN 0 IF IDLENGTH┆
0x23680…23700 UnusedSector ┆ GT 3 THEN 0 REPEAT IDLENGTH-3-1 FI FI FI IF LOC-XSSID NE IDLENGTH THEN MESSAGE <:ERROR: XSSID LENGTH:> FI 0 IF LOC-XSSID NE S┆
0x23700…23780 UnusedSector ┆TACKLENGTH THEN MESSAGE <:ERROR: STACK LENGTH:> FI 0 REPEAT 9 ; SSAVE0 - SSAVE9 IF LOC-XSHARE NE SHARELENGTH THEN MESSAGE <:ERR┆
0x23780…23800 UnusedSector ┆OR: XSHARE LENGTH:> FI XSBUFFERS= 1 XSMODE= BMWORD XSKIND= BMWORD XSBUFSIZE= 64 XSBUFFERS= 2 IF XSMODE>BNBYTE THEN XSFACTOR=2┆
0x23800…23880 UnusedSector ┆ IF XSBUFSIZE THEN XSFILL=1 ELSE XSFILL=0 FI ELSE XSFACTOR=1 XSFILL=0 FI XSNAME0= 0 XSNAME1= 0 XSNAME2= 0 XSIDENT= 0 ┆
0x23880…23900 UnusedSector ┆XSFIRST= (LOC+XSBUFFERS*BUFFERLENGTH)*XSFACTOR XSTOP= XSFIRST IF XSMODE>BNOPUT THEN XSREM= XSBUFSIZE ELSE XSREM= 0 FI XSUSE┆
0x23900…23980 UnusedSector ┆D= LOC XSBUFFER= XSBUFFERS*(XSBUFSIZE+XSFILL) XSBUFAREA= (XSUSED+XSBUFFERS*BUFFERLENGTH)*XSFACTOR IF XSBUFFERS GT 0 THEN 0 R┆
0x23980…23a00 UnusedSector ┆EPEAT BFIRST-1 XSBUFAREA, XSBUFAREA=XSBUFAREA+XSBUFSIZE+XSFILL IF XSBUFFERS GT 1 THEN LOC-BNEXT+BUFFERLENGTH ELSE XSUSED FI┆
0x23a00…23a80 UnusedSector ┆ XSBUFFERS=XSBUFFERS-1 FI IF XSBUFFERS GT 0 THEN 0 REPEAT BFIRST-1 XSBUFAREA, XSBUFAREA=XSBUFAREA+XSBUFSIZE+XSFILL IF XSBUFF┆
0x23a80…23b00 UnusedSector ┆ERS GT 1 THEN LOC-BNEXT+BUFFERLENGTH ELSE XSUSED FI XSBUFFERS=XSBUFFERS-1 FI IF XSMODE>BNBYTE AN (NT XSKIND>BNBYTE) AN XSBU┆
0x23b00…23b80 UnusedSector ┆FAREA>15 THEN MESSAGE <:ADDR TOO BIG:> FI IF XSBUFFER GT 0 THEN 0 REPEAT (XSBUFFER-1)/XSFACTOR FI END IF XPD GT ENTRYAREA TH┆
0x23b80…23c00 UnusedSector ┆EN IF LOC NE ENTRYAREA+XLOC THEN MESSAGE <:ERROR: XENTRYAREA LENGTH:> FI XCENTRY= LOC 0 REPEAT ENTRYLENGTH-1 IF XPD GT WORKARE┆
0x23c00…23c80 UnusedSector ┆A THEN IF LOC NE WORKAREA+XLOC THEN MESSAGE <:ERROR: XWORKAREA LENGTH:> FI XWORKING= LOC 0 REPEAT WORKLENGTH-1 IF LOC NE UTILIT┆
0x23c80…23d00 UnusedSector ┆YLENGTH+XLOC THEN MESSAGE <:ERROR: XUTILITY LENGTH:> FI FI FI FI FI FI XCURIN= 0 XCUROUT= 0 XCURWORK= 0 XCENTRY= 0 XWORKIN┆
0x23d00…23d80 UnusedSector ┆G= 0 IF XREFS EQ 0 THEN XREFSX=0 ELSE XREFSX: XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENG┆
0x23d80…23e00 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┆
0x23e00…23e80 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┆
0x23e80…23f00 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┆
0x23f00…23f80 UnusedSector ┆HEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLEN┆
0x23f80…24000 UnusedSector ┆GTH-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,LOC┆
0x24000…24080 UnusedSector ┆+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 RE┆
0x24080…24100 UnusedSector ┆PEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XR┆
0x24100…24180 UnusedSector ┆EFS=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 FI FI FI F┆
0x24180…24200 UnusedSector ┆I FI FI FI IF XBUFS EQ 0 THEN XBUFSX=0 ELSE XBUFSX: XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+B┆
0x24200…24280 UnusedSector ┆UFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPE┆
0x24280…24300 UnusedSector ┆AT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUF┆
0x24300…24380 UnusedSector ┆S=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 XBUFS ┆
0x24380…24400 UnusedSector ┆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 REPEAT ┆
0x24400…24480 UnusedSector ┆BUFLENGTH-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┆
0x24480…24500 UnusedSector ┆,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEX┆
0x24500…24580 UnusedSector ┆T,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH┆
0x24580…24600 UnusedSector ┆-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 FI FI FI FI FI F┆
0x24600…24680 UnusedSector ┆I FI FI FI FI FI FI XSIZE= LOC-ITEM XPROGRAM= LOC USE PROG IF LOC+XSIZE NE WORDS THEN MESSAGE <:ERROR: LOC+XSIZE<>WORDS:> ┆
0x24680…24700 UnusedSector ┆FI IF XPD NE PROGLENGTH THEN USE BASE FI LIST POOLST:= LOC+PRGLGT POLTOPX:= POOLGT+POOLST-BUFWDS+1 MEMTOP:= POOLST+13+BQMLOC+PO┆
0x24700…24780 UnusedSector ┆OLGT MESSAGE MEMTOP MESSAGE POOLGT MESSAGE QUECNT MESSAGE BUFWDS MESSAGE BUFLGT END DS THEN MESSAGE <:ERROR: LOC+XSIZE<>WORDS:> ┆
0x24780…24800 UnusedSector ┆ 009A RELEASEQUE: ; BEGIN RELEASEQUE(QUE) ; AU000999 AU001000 1 009A ADDC QUESTA R5 ; ; AU001000 AU001001 1 009B RELS X5 QUESEM ┆
0x24800…24880 UnusedSector ┆; QUESTA:=FREE ; AU001001 AU001002 1 009C MOV CBASE-C R7 ; EXIT ; AU001002 AU001003 1 009D LDN R7 ; END ; AU001003 1 009E ;----┆
0x24880…24900 UnusedSector ┆-------------------------------------------------------------------; AU001004 1 009E ; ; AU001004 AU001005 1 009E ; PROCEDURE M┆
0x24900…24980 UnusedSector ┆AINTH(QUE) ; AU001005 AU001006 1 009E ; INPUT: ; AU001006 AU001007 1 009E ; QUE RELATIVE REFERENCE TO A QUE HEAD ; AU001007 AU00┆
0x24980…24a00 UnusedSector ┆1008 1 009E ; ; AU001008 AU001009 1 009E ; MAINTH MAINTAINS THE VACANCY BUFFER POOL THRESHOLD. ; AU001009 AU001010 1 009E ; REGI┆
0x24a00…24a80 UnusedSector ┆STERS CALL EXIT ; AU001010 AU001011 1 009E ; R2 DESTROYED ; AU001011 AU001012 1 009E ; R4 LINK DESTROYED ; AU001012 AU001013 1 0┆
0x24a80…24b00 UnusedSector ┆09E ; R5 QUE QUE ; AU001013 AU001014 1 009E ; ; AU001014 1 009E ;--------------------------------------------------------------┆
0x24b00…24b80 UnusedSector ┆U001033 AU001034 1 011A MOV BUFCCN.X6 R4 ; ; AU001034 AU001035 1 011B SUB R4 QUECHS.X5 ; QUECHS:=QUECHS-BUFCCN.PACKET ; AU001035┆
0x24b80…24c00 UnusedSector ┆ AU001036 1 011D MOVC 0 R7 ; ; AU001036 AU001037 1 011E INC 7. X7 ; LINK:=LINK+1 ; AU001037 AU001038 1 011F MOV R6 6. X7 ; PCK:=┆
0x24c00…24c80 UnusedSector ┆PACKET ; AU001038 AU001039 1 0120 PKDEQU3: ; END ; AU001039 AU001040 1 0120 ; ; AU001040 AU001041 1 0120 MOVC 0 R7 ; ; AU001041 ┆
0x24c80…24d00 UnusedSector ┆AU001042 1 0121 INC 7. X7 ; LINK:=LINK+1 ; AU001042 AU001043 1 0122 JMP S4 RELEASEQUE ; RELEASEQUE(QUE) ; AU001043 AU001044 1 01┆
0x24d00…24d80 UnusedSector ┆23 ; END ; AU001044 1 0123 ;-----------------------------------------------------------------------; AU001045 1 0123 PKREL: ; ┆
0x24d80…24e00 UnusedSector ┆BEGIN RELEASEPACKET(PCK) ; AU001045 AU001046 1 0123 SVP PKRELX ; ; AU001046 AU001047 1 0124 JMP PKREL1 ; ; AU001047 AU001048 1 0┆
0x24e00…24e80 UnusedSector ┆125 PKRELX: ; ; AU001048 AU001049 1 0125 JMP X7 ; ; AU001049 AU001050 1 0126 PKREL1: ; ; AU001050 AU001051 1 0126 MODN CBASE-C ;┆
0x24e80…24f00 UnusedSector ┆ ; AU001051 AU001052 1 0127 MOV VPOOL R5 ; QUE:=VACANCY POOL ; AU001052 AU001053 1 0128 JMP S4 RESERVEQUE ; RESERVEQUE(QUE) ; AU┆
0x24f00…24f80 UnusedSector ┆001053 AU001054 1 0129 MOV BUFCNT.X6 R3 ; ; AU001054 AU001055 1 012A ADD R3 VPBUFC.X5 ; VPBUFC:=VPBUFC+BUFCNT.PCK ; AU001055 AU0┆
0x24f80…25000 UnusedSector ┆01056 1 012B MOV VPFBUF.X5 R3 ; ; AU001056 AU001057 1 012C MOV LSTBUF.X6 R4 ; X:=LSTBUF.PCK ; AU001057 AU001058 1 012D MODN CBAS┆
0x25000…25080 UnusedSector ┆E-C ; ; AU001058 AU001059 1 012E MOV R3 BUFLNK.X4 ; BUFLNK.X:=VPFBUF ; AU001059 AU001060 1 012F ADD CBASE-C R6 ; ; AU001060 AU00┆
0x25080…25100 UnusedSector ┆1061 1 0131 MOV R6 VPFBUF.X5 ; VPFBUF:=PCK ; AU001061 AU001062 1 0132 JMP S4 MAINTH ; MAINTAINTHRESHOLD ; AU001062 AU001063 1 01┆
0x25100…25180 UnusedSector ┆33 MOVC 0 R7 ; ; AU001063 AU001064 1 0134 INC 7. X7 ; LINK:=LINK+1 ; AU001064 AU001065 1 0135 JMP S4 RELEASEQUE ; RELEASEQUE(QUE┆
0x25180…25200 UnusedSector ┆) ; AU001065 AU001066 1 0136 ; END ; AU001066 1 0136 ;-----------------------------------------------------------------------; ┆
0x25200…25280 UnusedSector ┆ AU001067 1 0136 QUEPRB: ; BEGIN PROBEQUE(QUE,TYPE/CNT) ; AU001067 AU001068 1 0136 ADDC 2 R3 ; ; AU001068 AU001069 1 0137 IHS R3┆
0x25280…25300 UnusedSector ┆ 1<TYPFL+2 ; IF TYPE<-3 OR 4<TYPE THEN ; AU001069 AU001070 1 0138 JMP X7 ; RETURN(LINK+0) ; AU001070 AU001071 1 0139 MODN CBASE-┆
0x25300…25380 UnusedSector ┆C ; ; AU001071 AU001072 1 013A INE R5 QUEADR.X5 ; IF QUE<>QUEADR.QUE THEN ; AU001072 AU001073 1 013C JMP X7 ; RETURN(LINK+0) ; A┆
0x25380…25400 UnusedSector ┆U001073 AU001074 1 013D MODN CBASE-C ; ; AU001074 AU001075 1 013E ADDC QUECHS R3 ; CNT:=QUECHS.TYPE.QUE ; AU001075 AU001076 1 01┆
0x25400…25480 UnusedSector ┆3F ADD R5 R3 ; ; AU001076 AU001077 1 0140 MOV X3 R3 ; ; AU001077 AU001078 1 0141 JMP 1. X7 ; RETURN(LINK+1) ; AU001078 AU001079 ┆
0x25480…25500 UnusedSector ┆1 0142 ; END ; AU001079 1 0142 ;-----------------------------------------------------------------------; AU001080 1 0142 ; ERR┆
0x25500…25580 UnusedSector ┆OR HANDLING FOR PACKET ROUTINES ; AU001080 1 0142 ;-----------------------------------------------------------------------; AU┆
0x25580…25600 UnusedSector ┆001081 1 0142 ; BEGIN ERROR(N) ; AU001081 AU001082 1 0142 PCBERR1: ; CASE N OF(1,2,3,4,5,6,7) ; AU001082 AU001083 1 0142 MODC 1<┆
0x25600…25680 UnusedSector ┆ILLOP - 1<OVFL ; 1: CAUSE:=ILLEGAL OPERATION ; AU001083 AU001084 1 0143 PCBERR2: ; ; AU001084 AU001085 1 0143 MODC 1<OVFL - 1<BO┆
0x25680…25700 UnusedSector ┆UND ; 2: CAUSE:= PACKET OVERFLOW ; AU001085 AU001086 1 0144 PCBERR3: ; ; AU001086 AU001087 1 0144 MODC 1<BOUND - 1<QBUSY ; 3: CA┆
0x25700…25780 UnusedSector ┆USE:= BOUNDARY ERROR ; AU001087 AU001088 1 0145 PCBERR4: ; ; AU001088 AU001089 1 0145 MODC 1<QBUSY - 1<INVQU ; 4: CAUSE:= QUE BU┆
0x25780…25800 UnusedSector ┆SY ERROR ; AU001089 AU001090 1 0146 PCBERR5: ; ; AU001090 AU001091 1 0146 MODC 1<INVQU - 1<ILLPAR ; S: CAUSE:= INVALID QUE ; AU0┆
0x25800…25880 UnusedSector ┆01091 AU001092 1 0147 PCBERR6: ; ; AU001092 AU001093 1 0147 MODC 1<ILLPAR- 1<NOPCK ; 6: CAUSE:= ILLEGAL PARAMETER ; AU001093 AU0┆
0x25880…25900 UnusedSector ┆01094 1 0148 PCBERR7: ; ; AU001094 AU001095 1 0148 MODC 1<NOPCK ; 7: CAUSE:= NO PACKET AVAILABLE ; AU001095 AU001096 1 0149 ; ; ┆
0x25900…25980 UnusedSector ┆AU001096 AU001097 1 0149 MOVC 0 R7 ; PCBWRK:=CAUSE ; AU001097 AU001098 1 014A MOV R7 PCBWRK.X4 ; ; AU001098 AU001099 1 014B MOV ┆
0x25980…25a00 UnusedSector ┆R4 R7 ; R7:= REF-PCBWRK ; AU001099 AU001100 1 014C ADDC PCBWRK R7 ; ; AU001100 AU001101 1 014D JMPI PCBSV7.X4 ; RETURN(LINK+0) ;┆
0x25a00…25a80 UnusedSector ┆ AU001101 AU001102 1 014E ; END ; AU001102 1 014E ;-----------------------------------------------------------------------; AU┆
0x25a80…25b00 UnusedSector ┆001103 1 014E PCBMOV: ; BEGIN MOVE(N, S, D) ; AU001103 AU001104 1 014E JOZ R1 PC0010 ; DO WHILE N <>0 ; AU001104 AU001105 1 014F┆
0x25b00…25b80 UnusedSector ┆ MOD R1 ; ; AU001105 AU001106 1 0150 MOVM X7 X3 ; WORD.D:=WORD.S ; AU001106 AU001107 1 0151 ADDC -1 R1 ; D:=D+1 ; AU001107 AU001┆
0x25b80…25c00 UnusedSector ┆108 1 0152 SRL R1 4 ; S:=S+1 ; AU001108 AU001109 1 0153 JOZ R1 PC0010 ; N:=N-1 ; AU001109 AU001110 1 0154 PC0005: ; ; AU001110 A┆
0x25c00…25c80 UnusedSector ┆U001111 1 0154 MOVM X7 X3 ; ; AU001111 AU001112 1 0155 SOB R1 PC0005 ; OD ; AU001112 AU001113 1 0156 PC0010: ; ; AU001113 AU0011┆
0x25c80…25d00 UnusedSector ┆14 1 0156 JMP X5 ; END ; AU001114 1 0157 ;-----------------------------------------------------------------------; AU001115 1 ┆
0x25d00…25d80 UnusedSector ┆0157 PCBINIT: ; BEGIN INITPCB(PCB,DIR,SIZE,PRC) ; AU001115 AU001116 1 0157 MOV R7 PCBSV7.X4 ; ; AU001116 AU001117 1 0158 MOVC BU┆
0x25d80…25e00 UnusedSector ┆FLGT R7 ; ; AU001117 AU001118 1 0159 MOV R7 PCBBFL.X4 ; PCBBFL:=BUFLGT ; AU001118 AU001119 1 015A IEQ R3 RDTYP ; IF DIR=RDTYP TH┆
0x25e00…25e80 UnusedSector ┆EN GOTO READTYPE ; AU001119 AU001120 1 015B JMP PC0150 ; ; AU001120 AU001121 1 015C INE R3 WRTYP ; IF DIR<>WRTYP THEN ; AU001121┆
0x25e80…25f00 UnusedSector ┆ AU001122 1 015D JMP PCBERR6 ; CALL ERROR(6) ; AU001122 AU001123 1 015E ; WRITETYPE: ; AU001123 AU001124 1 015E MOVC 0 R3 ; ; AU┆
0x25f00…25f80 UnusedSector ┆001124 AU001125 1 015F DIV R7 R23 ; PCBBAQ:=SIZE/(BUFLGT) + 1 ; AU001125 AU001126 1 0160 ADDC 1 R2 ; ; AU001126 AU001127 1 0161 ┆
0x25f80…26000 UnusedSector ┆MOV R2 PCBBAQ.X4 ; ; AU001127 AU001128 1 0162 INEP R1 PRI0 ; IF PRI<> PRI0,PRI1 THEN ; AU001128 AU001129 1 0163 INE R1 PRI1 ; ; ┆
0x26000…26080 UnusedSector ┆AU001129 AU001130 1 0164 JMP PCBERR6 ; CALL ERROR(6) ; AU001130 AU001131 1 0165 MOV R1 PCBPRI.X4 ; PCBPRI:=PRI ; AU001131 AU0011┆
0x26080…26100 UnusedSector ┆32 1 0166 MOVC PCSTA0 R7 ; ; AU001132 AU001133 1 0167 MOV R7 PCBSTA.X4 ; PCBSTA:=INITIALISED,WRITETYPE ; AU001133 AU001134 1 016┆
0x26100…26180 UnusedSector ┆8 JMP PC0160 ; RETURN(LINK+1) ; AU001134 AU001135 1 0169 PC0150: ; READTYPE: ; AU001135 AU001136 1 0169 MOVC PCSTA1 R7 ; ; AU001┆
0x26180…26200 UnusedSector ┆136 AU001137 1 016A MOV R7 PCBSTA.X4 ; PCBSTA:=INITIALISED,READTYPE ; AU001137 AU001138 1 016B PC0160: INC PCBSV7.X4 ; RETURN(LI┆
0x26200…26280 UnusedSector ┆NK+1) ; AU001138 AU001139 1 016C JMPI PCBSV7.X4 ; ; AU001139 1 016D ;----------------------------------------------------------┆
0x26280…26300 UnusedSector ┆-------------; AU001140 1 016D PCBCON: ; BEGIN CONNECTQUE(PCB,QUE) ; AU001140 AU001141 1 016D MOV R7 PCBSV7.X4 ; ; AU001141 AU0┆
0x26300…26380 UnusedSector ┆01142 1 016E MOV PCBSTA.X4 R7 ; ; AU001142 AU001143 1 016F INV R7 ; ; AU001143 AU001144 1 0170 SETS R7 RDTYPB ; ; AU001144 AU001┆
0x26380…26400 UnusedSector ┆145 1 0171 INV R7 ; ; AU001145 AU001146 1 0172 INE R7 QUCON ; IF OPERATION NOT ALLOWED THEN ; AU001146 AU001147 1 0173 JMP PCBER┆
0x26400…26480 UnusedSector ┆R1 ; CALL ERROR(1) ; AU001147 AU001148 1 0174 MOV R3 R7 ; ; AU001148 AU001149 1 0175 MODN CBASE-C ; ; AU001149 AU001150 1 0176 M┆
0x26480…26500 UnusedSector ┆OV QUEADR.X7 R7 ; ; AU001150 AU001151 1 0177 INE R3 R7 ; IF QUE NOT VALID THEN ; AU001151 AU001152 1 0178 JMP PCBERR5 ; CALL ERR┆
0x26500…26580 UnusedSector ┆OR(5) ; AU001152 AU001153 1 0179 MOV R3 PCBQUE.X4 ; ELSE ; AU001153 AU001154 1 017A MOVC PCSTA2 R7 ; CONNECT QUEUE TO PCB ; AU00┆
0x26580…26600 UnusedSector ┆1154 AU001155 1 017B IOR R7 PCBSTA.X4 ; ; AU001155 AU001156 1 017C INC PCBSV7.X4 ; RETURN(LINK+1) ; AU001156 AU001157 1 017D JMP┆
0x26600…26680 UnusedSector ┆I PCBSV7.X4 ; END ; AU001157 1 017E ;-----------------------------------------------------------------------; AU001158 1 017E ┆
0x26680…26700 UnusedSector ┆PCBNXP: ; BEGIN NEXTPACKET(PCB,TYPE) ; AU001158 AU001159 1 017E MOV R7 PCBSV7.X4 ; ; AU001159 AU001160 1 017F MOV PCBSTA.X4 R7 ;┆
0x26700…26780 UnusedSector ┆ ; AU001160 AU001161 1 0180 IBN R7 RDTYPB ; IF READTYPE THEN GO TO READNEXT ; AU001161 AU001162 1 0181 JMP PC0350 ; ; AU001162 A┆
0x26780…26800 UnusedSector ┆U001163 1 0182 ; WRITENEXT: ; AU001163 AU001164 1 0182 MOVL R12 PCBSV1.X4 ; ; AU001164 AU001165 1 0183 MOV R6 PCBSV6.X4 ; SAVE R┆
0x26800…26880 UnusedSector ┆EGS 1,2,5,6 ; AU001165 AU001166 1 0184 MOV R5 PCBSV5.X4 ; ; AU001166 AU001167 1 0185 MOV PCBPRI.X4 R2 ; PRI:=PCBPRI ; AU001167 A┆
0x26880…26900 UnusedSector ┆U001168 1 0186 MOV PCBBAQ.X4 R1 ; PCKSIZ:=PCBBAQ ; AU001168 AU001169 1 0187 INE R7 WRNP ; IF OPERATION NOT ALLOWED THEN ; AU0011┆
0x26900…26980 UnusedSector ┆69 AU001170 1 0188 JMP PCBERR1 ; CALL ERROR(1) ; AU001170 AU001171 1 0189 MOVC QURTC R5 ; N:=QUE RESERVE TRY COUNT ; AU001171 AU┆
0x26980…26a00 UnusedSector ┆001172 1 018A ; QUEBUSY:=TRUE ; AU001172 AU001173 1 018A PC0310: ; ; AU001173 AU001174 1 018A ; DO WHILE N<>0 AND QUEBUSY=TRUE ;┆
0x26a00…26a80 UnusedSector ┆ AU001174 AU001175 1 018A ADDC -1 R5 ; N:=N-1 ; AU001175 AU001176 1 018B IEQ R5 0 ; IF N=0 THEN ; AU001176 AU001177 1 018C JMP P┆
0x26a80…26b00 UnusedSector ┆C0390 ; GO TO ERR1 ; AU001177 AU001178 1 018D MON GENPACK ; GENERATEPACKET(TYPE,PRI ; AU001178 AU001179 1 018E JMP & PC0310 ; ,P┆
0x26b00…26b80 UnusedSector ┆CKSIZ,PCK) ; AU001179 AU001180 1 018F JMP & PC0380 ; IF BUFFER SHORTAGE THEN ; AU001180 AU001181 1 0190 ; GO TO ERR2 ; AU001181 ┆
0x26b80…26c00 UnusedSector ┆AU001182 1 0190 ; IF DONE THEN QUEBUSY:=FALSE ; AU001182 AU001183 1 0190 ; OD ; AU001183 AU001184 1 0190 MOV R6 PCBFBA.X4 ; PCBF┆
0x26c00…26c80 UnusedSector ┆BA:=PCK ; AU001184 AU001185 1 0191 MOV R6 PCBCBA.X4 ; PCBCBA:=PCK ; AU001185 AU001186 1 0192 MOV R3 PCBPTP.X4 ; PCBPTP:=TYPE ; A┆
0x26c80…26d00 UnusedSector ┆U001186 AU001187 1 0193 CLR PCBPCX.X4 ; PCBPCX:=0 ; AU001187 AU001188 1 0194 CLR PCBCBN.X4 ; PCBCBN:=0 ; AU001188 AU001189 1 019┆
0x26d00…26d80 UnusedSector ┆5 MOV PCBBFL.X4 R7 ; ; AU001189 AU001190 1 0196 MOV R7 PCBBRC.X4 ; PCBBRC:=PCBBFL ; AU001190 AU001191 1 0197 MOV R7 PCBWRK.X4 ; ┆
0x26d80…26e00 UnusedSector ┆; AU001191 AU001192 1 0198 MUL R1 PCBWRK.X4 ; ; AU001192 AU001193 1 019A MOV PCBWRK.X4 R1 ; ; AU001193 AU001194 1 019B MOV R1 PC┆
0x26e00…26e80 UnusedSector ┆BTPN.X4 ; PCBTPCN:=PCBBFL*PCBBAQ ; AU001194 AU001195 1 019C CLR PCBBCX.X4 ; PCBBCX:=0 ; AU001195 AU001196 1 019D MOVC PCSTA3 R7 ┆
0x26e80…26f00 UnusedSector ┆; ; AU001196 D 1 019E MOV R7 PCBSTA.X4 ; PCBSTA:=(INITIALISED,QUECONNECTE; D AU001197 1 019F ; ,WRITETYPE,PACKETCONNECTED) ; AU┆
0x26f00…26f80 UnusedSector ┆. Z04003 T4571 P 4000L 0000 0000 0000 0000 01DF 4008L 0000 0000 5142 004D 0000 0000 0000 0000 4010L 0000 0000 0000 0000 0000 000┆
0x26f80…27000 UnusedSector ┆0 0000 0000 4018L 0000 0000 01D2 007C 0064 0000 0000 822F 4020L 0000 0000 0000 0064 0000 0000 0000 0000 4028L 0000 0000 0000 000┆
0x27000…27080 UnusedSector ┆0 0000 0000 0000 0000 4030L 0000 FFFF 0000 0000 0000 0000 0000 0000 4038L 0000 01B8 01C0 0000 0000 0000 0000 0000 4040L 0000 000┆
0x27080…27100 UnusedSector ┆0 0000 0000 0000 0000 0000 0000 4048L 0000 0000 0000 0000 0000 0000 0000 0000 4050L 0000 0000 0000 0000 0000 0000 0000 0000 4058┆
0x27100…27180 UnusedSector ┆L 0000 0000 0000 0000 0000 0000 0000 0000 4060L 0000 0000 0000 0000 0000 0000 0000 0000 4068L 0000 0000 0000 0000 0000 0000 0000┆
0x27180…27200 UnusedSector ┆ 0000 4070L 0000 0000 0000 0000 0000 0000 0000 0000 4078L 0000 0000 0000 0000 0000 0000 0000 0000 4080L 0000 0000 0000 0000 0000┆
0x27200…27280 UnusedSector ┆ 0000 0000 0000 4088L 0000 0000 0000 0000 0000 0000 0000 0000 4090L 0000 0000 0000 0000 0000 0000 0000 0000 4098L 0000 0000 0000┆
0x27280…27300 UnusedSector ┆ 0000 0000 0000 0000 0000 40A0L 0000 0000 0000 0000 0000 0000 0000 0000 40A8L 0000 0000 0000 0000 0000 0000 0000 0000 40B0L 0000┆
0x27300…27380 UnusedSector ┆ 0000 0000 0000 0000 0000 0000 0000 40B8L 0000 0000 0000 0000 0000 0000 0000 0000 40C0L 0000 0000 0000 0000 0000 0000 0000 0000 ┆
0x27380…27400 UnusedSector ┆40C8L 0000 0000 0000 0000 0000 0000 0000 0000 40D0L 0000 0000 0000 0000 0000 0000 0000 0000 40D8L 0000 0000 0000 0000 0000 0000 ┆
0x27400…27480 UnusedSector ┆0000 0000 40E0L 0000 0000 0000 0000 0000 0000 0000 0000 40E8L 0000 0000 0000 0000 0000 0000 0000 0000 40F0L 0000 0000 0000 0000 ┆
0x27480…27500 UnusedSector ┆0000 0000 0000 0000 40F8L 0000 0000 0000 0000 0000 0000 0000 0000 4100L 0000 0000 0000 0000 0000 0000 0000 0000 4108L 0000 0000 ┆
0x27500…27580 UnusedSector ┆0000 0000 0000 0000 0000 0000 4110L 0000 0000 0000 0000 0000 0000 0000 0000 4118L 0000 0000 0000 0000 0000 0000 0000 0000 4120L ┆
0x27580…27600 UnusedSector ┆0000 0000 0000 0000 0000 0000 0000 0000 4128L 0000 0000 0000 0000 0000 0000 0000 0000 4130L 0000 0000 0000 0000 0000 0000 0000 0┆
0x27600…27680 UnusedSector ┆000 4138L 0000 0000 0000 0000 0000 0000 0000 0000 4140L 0000 0000 0000 0000 0000 0000 0000 0000 4148L 0000 0000 0000 0000 0000 0┆
0x27680…27700 UnusedSector ┆000 0000 0000 4150L 0000 0000 0000 0000 0000 0000 0000 0000 4158L 0000 0000 0000 0000 0000 0000 0000 0000 4160L 0000 0000 0000 0┆
0x27700…27780 UnusedSector ┆000 0000 0000 0000 0000 4168L 0000 0000 0000 0000 0000 0000 0000 0000 4170L 0000 0000 0000 0000 0000 0000 0000 0000 4178L 0000 0┆
0x27780…27800 UnusedSector ┆000 0000 0000 0000 0000 0000 0000 4180L 0000 0000 0000 0000 0000 0000 0000 0000 4188L 0000 0000 0000 0000 0000 0000 0000 0000 41┆
0x27800…27880 UnusedSector ┆90L 0000 0000 0000 0000 0000 0000 0000 0000 4198L 0000 0000 0000 0000 0000 0000 0000 0000 41A0L 0000 0000 0000 0000 0000 0000 00┆
0x27880…27900 UnusedSector ┆00 0000 41A8L 0000 0000 0000 0000 0000 0000 0000 0000 41B0L 0000 0000 0000 0000 0000 0000 0000 0000 41B8L 0000 0000 0000 0000 00┆
0x27900…27980 UnusedSector ┆00 0000 0000 0000 41C0L 0000 0000 0000 0000 0000 0000 0561 1CAD 41C8L 0000 0000 01BC 0000 0000 0000 0000 0000 41D0L 0000 0000 01┆
0x27980…27a00 UnusedSector ┆C9 0000 0000 0000 0000 0000 41D8L 0000 0000 0000 0000 0000 0000 0000 0000 41E0L 0000 0000 00FD 00A9 00FC 011F 00FB 00CF 41E8L 00┆
0x27a00…27a80 UnusedSector ┆FA 00FC 00F9 00E4 00F8 0132 00F7 0153 41F0L 00F6 0169 00F5 017A 00F4 01C9 00F3 0343 41F8L 00F2 0374 00F1 038A 00F0 020B 00EF 021┆
0x27a80…27b00 UnusedSector ┆A 4200L 00EE 0236 00ED 0260 00EC 028F 00EB 02F0 4208L 00EA 02D0 00E9 02F8 00E8 0307 00E7 031E 4210L 00E6 0359 554A 4972 00BF 015┆
0x27b00…27b80 UnusedSector ┆6 B66E 0156 4218L B769 61F5 0AD8 0149 8381 0869 618A 8181 4220L 8027 FCA6 0258 25CE 0E58 00BF 004D 30E4 4228L D07C 08D8 4020 412┆
0x27b80…27c00 UnusedSector ┆1 0A94 00C9 0814 98BB 4230L 02CD 0B58 4A4D 4127 4227 4027 4427 1449 4238L 4681 1E49 4781 4581 0869 518A 4381 0814 4240L FE71 00B┆
0x27c00…27c80 UnusedSector ┆F 496D 1AE5 DB44 15D8 4227 4527 4248L 4627 4727 4827 4927 4A27 4427 4027 0BCD 4250L 4975 0894 0BAD 0814 4185 0814 4385 0049 4258┆
0x27c80…27d00 UnusedSector ┆L 9FBB C185 0ED8 0149 9FBB 0BD8 395D 4E5D 4260L 4C5D 0FA6 0858 4872 F07D 2458 F17D 0D58 4268L 0E58 486A 79BB 0CA6 0C58 13A6 0158┆
0x27d00…27d80 UnusedSector ┆ 0869 4270L 158B 4318 108B 50FA 0858 02C8 0051 41BC 4278L 4481 00BF 02CD 5011 086F 47BC 451A 01E4 4280L 2DF5 05D8 07E4 2DB8 461A┆
0x27d80…27e00 UnusedSector ┆ 4582 00BF A63C 4288L 471A 4582 00BF 21BE 01D8 C0BF 0814 FE6D 4290L 225D 004F C119 1CBB C21A A07C 4534 01E4 4298L 4DF5 15D8 5EFB┆
0x27e00…27e80 UnusedSector ┆ 0814 00CE 32EC 8283 8381 42A0L 01E4 1D8B 5CFB 01A9 93F2 0814 001C 03C1 42A8L 8184 0814 1CEE 9DBB 2F5D C686 C716 C716 42B0L 375D┆
0x27e80…27f00 UnusedSector ┆ 21BE 01D8 C0BF 465D 821C 42EC 548A 42B8L 4616 0716 841C 450C 811C 411B 0869 138B 42C0L 168A EBBB 4184 004F C716 4C5D 21BE 01D8 ┆
0x27f00…27f80 UnusedSector ┆42C8L C0BF 5B5D 821C 42EC 548A 4616 0716 841C 42D0L 450C 58FB 811B 0869 138B 168A EDBB 8BBB 42D8L 803C 138A 4183 004F C716 645D ┆
0x27f80…28000 UnusedSector ┆21BE 01D8 42E0L C0BF 735D 461E E07C 19D8 5EFB 0814 00CE 42E8L 811C 0814 00CC 4BFB BDBB B4F0 5BBB 0894 42F0L 00CB 4183 0027 821C ┆
0x28000…28080 UnusedSector ┆42EC 548A 0713 4613 42F8L 841C 05E4 4D8B 004F C716 C686 004F C716 4300L 875D 21BE 01D8 C0BF 0814 FE6D 985D 831B 4308L 410B 5BFB ┆
0x28080…28100 UnusedSector ┆811C 0814 BCBB 0894 00CE EDBB 4310L 935D 004F C716 9A5D 02CB B644 C0BF 0814 4318L 03E4 5DFA C0BF 0814 05CB 538A 3BFB C1BF 4320L ┆
0x28100…28180 UnusedSector ┆03A4 02E4 06A4 08A4 10A4 20A4 40E4 004F 4328L 0A87 4FBB 0ACF 1312 97F2 71BD 7BE9 01A9 4330L 9424 92F2 7BE9 02C1 40BF 1387 404F 0┆
0x28180…28200 UnusedSector ┆887 4338L B07C 0DD8 B17E 1758 004B 7AEB 01CA 0C82 4340L 903E 917E 1E58 0D81 014F FCBB 02D8 054F 4348L FCBB 1316 1312 1387 4FFB 9┆
0x28200…28280 UnusedSector ┆7BC 72A3 97BC 4350L F17E 3258 3FBB 0814 C31F 37FA 3358 0E83 4358L 024F 7C8D 1316 1312 1387 4FFB 72F2 22D8 4360L 0FD1 1286 1185 0┆
0x28280…28300 UnusedSector ┆D1A 0C19 F37E 4758 0A4D 4368L 01AD D07C 3CD8 FDA6 0558 35D8 0386 0486 4370L 0983 0227 0527 081F 0687 0A87 0AE4 1CEA 4378L 0A19 0┆
0x28300…28380 UnusedSector ┆181 0727 0B4F FCBB 0F61 111D 121E 4380L 1316 1312 F77E 6458 1185 1286 0FD1 0A49 4388L 0E1D 01A9 907C 1BD8 FAA6 0558 14D8 0386 43┆
0x28380…28400 UnusedSector ┆90L 0486 0527 821B 0983 0227 8419 0181 0727 4398L 081A 12F5 29BB 0681 0F4F FCBB 0F61 111D 43A0L 121E 1316 1312 0F61 111D 121E 81┆
0x28400…28480 UnusedSector ┆58 0F61 43A8L 111D 121E 8858 1387 4FFB 72F2 15D8 FB7E 43B0L 9158 021F F07C 12D8 0FD1 1185 1286 031E 43B8L 0219 8481 0E1D 0A4A 01┆
0x28480…28500 UnusedSector ┆AA A07C 1858 FBA6 43C0L 0558 034F FCBB 0ED8 FF7E A658 0FD1 1185 43C8L 1286 031E 0A4D 01AD D07C 2758 FCA6 0558 43D0L 074F 7C8C 0F┆
0x28500…28580 UnusedSector ┆61 111D 121E 1316 1312 041F 43D8L F07D 11D8 7FFB 0814 00CF 0487 0516 0727 43E0L 011F 0255 00CF 08E4 7CF5 081F 0687 F3F2 43E8L 11┆
0x28580…28600 UnusedSector ┆E4 5CEE 1112 111D CC58 1387 4FFB FF7E 43F0L D158 0639 1185 1D5E 0613 071F 0454 CA7B 43F8L 0716 0216 1316 1312 1387 4FFB FF7E E05┆
0x28600…28680 UnusedSector ┆8 4400L 071F 70F2 E158 061F F03C 1185 305E 061F 4408L F07C E758 071F F124 0437 C51B 0716 0216 4410L 0613 063B 03D8 0216 0716 061┆
0x28680…28700 UnusedSector ┆3 1316 1312 4418L 1387 4FFB FF7E FC58 071F 70F2 FD58 011F 4420L 0255 00CF 01CF F124 72F7 0559 1485 0F81 4428L 0619 A1A0 21F7 29B┆
0x28700…28780 UnusedSector ┆B A124 9DF2 071F 0709 4430L 0209 06E4 1C8B 01C9 9124 128B F124 0437 4438L 05CF FE56 F1DE A2F2 665E 1658 0F19 141D 4440L 1316 131┆
0x28780…28800 UnusedSector ┆2 1387 4FFB 97BC 72A3 97BC FB7E 4448L 2959 1082 011F 0255 00CF 72F7 2E59 020A 4450L 061F 72F7 04D8 06E4 2C8B 070A 17D8 728B 4458┆
0x28800…28880 UnusedSector ┆L 041F 05D8 08E4 2CF7 07D8 0855 00CA 7FFB 4460L 0814 00CF 0516 0A58 0487 0782 081F 278B 4468L 011A 0255 00CA 27F7 2FBB 0687 101A┆
0x28880…28900 UnusedSector ┆ 1316 4470L 1312 1387 4FFB 97BC 72A3 97BC FB7E 5859 4478L 021F 01CF 27F5 5B59 1082 02E4 2C8B 021A 4480L 0527 031F 2958 041F F07D┆
0x28900…28980 UnusedSector ┆ 0BD8 7FFB 0814 4488L 00CF 0487 0727 081F 0687 0516 11E4 5CEE 4490L 1112 0FD1 1485 1286 0D1A 0149 0A4D D07C 4498L 11D8 01AD FDA6┆
0x28980…28a00 UnusedSector ┆ 0558 11D8 0894 00CE 031F 44A0L C186 C316 041F EFBB 0819 0109 0F61 141D 44A8L 121E 2458 0F61 111D 121E 8B59 0F61 111D 44B0L 121E┆
0x28a00…28a80 UnusedSector ┆ 8C59 1387 4FFB 72F0 0BD8 FF7E 9859 44B8L 021F 70F2 9959 061A A03C 1185 E85E 061A 44C0L 0AD8 FB7E A359 021F 70F2 A459 061A A03C ┆
0x28a80…28b00 UnusedSector ┆44C8L D185 475E 061A 071B B124 0894 05CB 0433 44D0L 1316 1312 1587 0F82 021A ECA6 1512 1516 44D8L 0F1A 1512 1387 4FFB FB7E BE59 ┆
0x28b00…28b80 UnusedSector ┆0639 1185 44E0L 5E5E 0613 071F 0454 CA93 0716 0216 1316 44E8L 1312 1387 4FFB FB7E CD59 071F 70F2 CE59 44F0L 061F F206 1185 715E ┆
0x28b80…28c00 UnusedSector ┆071F F124 0437 C583 44F8L 0716 0716 0216 0216 0613 0613 1316 1312 4500L 1387 4FFB FB7E E459 071F 70F2 E559 0F81 4508L 071F 0619 ┆
0x28c00…28c80 UnusedSector ┆9124 21F7 29BB 91A0 9FF2 0709 4510L 0209 06E4 1C8B 9124 128B F124 0437 05CF 4518L 73EE 1185 FE56 10DE 111D 37EE 0F19 A3F2 4520L ┆
0x28c80…28d00 UnusedSector ┆1185 9F5E 1C58 1316 1312 1387 4FFB FF7E 4528L 095A 1185 1286 0E1D 031E 1082 0A4A A07C 4530L 0E5A 01AA F9A6 0558 101A 111D 121E 0┆
0x28d00…28d80 UnusedSector ┆74F 4538L FCBB 1316 1312 1387 4FFB FB7E 1F5A 011F 4540L F124 73F7 225A 081F F124 1185 031D 37F7 4548L 05D8 738B 5DFB 0814 00CD 0┆
0x28d80…28e00 UnusedSector ┆758 358A 021F 4550L 278B 4587 0777 111D 1316 1312 1387 4FFB 4558L FF7E 3A5A 1185 1286 1082 031E 3DBB 0A4A 4560L A07C 3F5A 01AA F┆
0x28e00…28e80 UnusedSector ┆BA6 0558 101A 111D 121E 4568L 074F FCBB 1316 1312 1387 4FFB FB7E 505A AB59 S6 1185 031D 37F7 4548L 05D8 738B 5DFB 0814 00CD 0┆
0x28e80…28f00 UnusedSector ┆ 0218 INC PCBPCX.X4 ; PCBPCX:=PCBPCX+1 ; AU001341 AU001342 1 0219 INC PCBSV7.X4 ; RETURN(LINK+1) ; AU001342 AU001343 1 021A JMPI┆
0x28f00…28f80 UnusedSector ┆ PCBSV7.X4 ; END ; AU001343 1 021B ;-----------------------------------------------------------------------; AU001344 1 021B P┆
0x28f80…29000 UnusedSector ┆CBRDWD: ; BEGIN READWORD(PCB, WORD) ; AU001344 AU001345 1 021B MOV R7 PCBSV7.X4 ; ; AU001345 AU001346 1 021C MOV PCBSTA.X4 R7 ; ┆
0x29000…29080 UnusedSector ┆; AU001346 AU001347 1 021D INE R7 RWD ; IF OPERATION NOT ALLOWED THEN ; AU001347 AU001348 1 021E JMP PCBERR1 ; CALL ERROR(1) ; A┆
0x29080…29100 UnusedSector ┆U001348 AU001349 1 021F MOV PCBBCX.X4 R7 ; ; AU001349 AU001350 1 0220 IBN R7 0 ; IF NOT ON WORDBOUNDARY THEN ; AU001350 AU001351┆
0x29100…29180 UnusedSector ┆ 1 0221 JMP PCBERR3 ; CALL ERROR(3) ; AU001351 AU001352 1 0222 MOV PCBBRC.X4 R7 ; ; AU001352 AU001353 1 0223 IEQP R7 0 ; IF PCBB┆
0x29180…29200 UnusedSector ┆RC=0 THEN ; AU001353 AU001354 1 0224 MOV R5 PCBSV5.X4 ; GET NEXT BUFFER ; AU001354 AU001355 1 0225 JMP S5 PCBNXB ; ; AU001355 AU┆
0x29200…29280 UnusedSector ┆001356 1 0226 MOV PCBBRC.X4 R7 ; ; AU001356 AU001357 1 0227 IEQ R7 0 ; IF NO DATA LEFT THEN ; AU001357 AU001358 1 0228 JMP PCBER┆
0x29280…29300 UnusedSector ┆R4 ; CALL ERROR(4) ; AU001358 AU001359 1 0229 MOV PCBBCX.X4 R7 ; ; AU001359 AU001360 1 022A SRL R7 1 ; ; AU001360 AU001361 1 022┆
0x29300…29380 UnusedSector ┆B ADD PCBCBA.X4 R7 ; WORD:=(PCBCBA + PCBBCX/2 ; AU001361 AU001362 1 022C MOV BUFCHD>1.X7 R3 ; + BUFCHD/2) ; AU001362 AU001363 1 ┆
0x29380…29400 UnusedSector ┆022D INC PCBBCX.X4 ; PCBBCX:=PCBBCX+1 ; AU001363 AU001364 1 022E INC PCBPCX.X4 ; PCBPCX:=PCBPCX+1 ; AU001364 AU001365 1 022F DEC┆
0x29400…29480 UnusedSector ┆ PCBBRC.X4 ; PCBBRC:=PCBBRC-1 ; AU001365 AU001366 1 0230 SON PCBBRC.X4 ; IF PCBBRC<>0 THEN ; AU001366 AU001367 1 0231 JMP PCBRWX┆
0x29480…29500 UnusedSector ┆ ; BEGIN ; AU001367 AU001368 1 0232 INC PCBPCX.X4 ; PCBPCX:=PCBPCX+1 ; AU001368 AU001369 1 0233 INC PCBBCX.X4 ; PCBBCX:=PCBBCX+1┆
0x29500…29580 UnusedSector ┆ ; AU001369 AU001370 1 0234 DEC PCBBRC.X4 ; PCBBRC:=PCBBRC-1 ; AU001370 AU001371 1 0235 ; END ; AU001371 AU001372 1 0235 PCBRWX:┆
0x29580…29600 UnusedSector ┆ ; AU001372 AU001373 1 0235 INC PCBSV7.X4 ; RETURN(LINK+1) ; AU001373 AU001374 1 0236 JMPI PCBSV7.X4 ; END ; AU001374 1 0237 ;-┆
0x29600…29680 UnusedSector ┆----------------------------------------------------------------------; AU001375 1 0237 PCBRDBL: ; BEGIN READBLOCK(PCB, DEST, C┆
0x29680…29700 UnusedSector ┆NT) ; AU001375 AU001376 1 0237 MOV R7 PCBSV7.X4 ; ; AU001376 AU001377 1 0238 MOV PCBSTA.X4 R7 ; ; AU001377 AU001378 1 0239 INE R┆
0x29700…29780 UnusedSector ┆░░ ░░ ┆
0x29780…29800 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x29800…29880 UnusedSector ┆░░ ░░ ┆
0x29880…29900 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x29900…29980 UnusedSector ┆░░ ░░ ┆
0x29980…29a00 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x29a00…29a80 UnusedSector ┆░░ ░░ ┆
0x29a80…29b00 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x29b00…29b80 UnusedSector ┆░░ ░░ ┆
0x29b80…29c00 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x29c00…29c80 UnusedSector ┆░░ ░░ ┆
0x29c80…29d00 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x29d00…29d80 UnusedSector ┆░░ ░░ ┆
0x29d80…29e00 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x29e00…29e80 UnusedSector ┆░░ ░░ ┆
0x29e80…29f00 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x29f00…29f80 UnusedSector ┆░░ ░░ ┆
0x29f80…2a000 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x2a000…2a080 UnusedSector ┆░░ ░░ ┆
0x2a080…2a100 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x2a100…2a180 UnusedSector ┆░░ ░░ ┆
0x2a180…2a200 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x2a200…2a280 UnusedSector ┆░░ ░░ ┆
0x2a280…2a300 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x2a300…2a380 UnusedSector ┆░░ ░░ ┆
0x2a380…2a400 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x2a400…2a480 UnusedSector ┆░░ ░░ ┆
0x2a480…2a500 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x2a500…2a580 UnusedSector ┆░░ ░░ ┆
0x2a580…2a600 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x2a600…2a680 UnusedSector ┆░░ ░░ ┆
0x2a680…2a700 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x2a700…2a780 UnusedSector ┆░░ ░░ ┆
0x2a780…2a800 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x2a800…2a880 UnusedSector ┆░░ ░░ ┆
0x2a880…2a900 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x2a900…2a980 UnusedSector ┆░░ ░░ ┆
0x2a980…2aa00 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x2aa00…2aa80 UnusedSector ┆░░ ░░ ┆
0x2aa80…2ab00 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x2ab00…2ab80 UnusedSector ┆░░ ░░ ┆
0x2ab80…2ac00 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x2ac00…2ac80 UnusedSector ┆░░ ░░ ┆
0x2ac80…2ad00 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x2ad00…2ad80 UnusedSector ┆░░ ░░ ┆
0x2ad80…2ae00 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x2ae00…2ae80 UnusedSector ┆░░ ░░ ┆
0x2ae80…2af00 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x2af00…2af80 UnusedSector ┆░░ ░░ ┆
0x2af80…2b000 UnusedSector ┆░░L 2 1 2 3░░░░░░░░░░░░░░░░░░ ░░ ┆
0x2b000…2b080 UnusedSector ┆-------; AU001497 1 02B2 PCBGTBF: ; BEGIN GETNEWBUFFER ; AU001497 AU001498 1 02B2 MOV PCBCBA.X4 R7 ; ; AU001498 AU001499 1 02B3┆
0x2b080…2b100 UnusedSector ┆ IEQ X7 0 ; IF BUFLNK.PCBCBA = 0 THEN ; AU001499 AU001500 1 02B4 JMP PCKEXC ; GO TO PACKET EXCEEDED ; AU001500 AU001501 1 02B5 P┆
0x2b100…2b180 UnusedSector ┆CGT0: MOV BUFLNK.X7 R7 ; FORWARDTONEXT: ; AU001501 AU001502 1 02B6 SUB CBASE-C R7 ; ; AU001502 AU001503 1 02B8 MOV R7 PCBCBA.X4 ┆
0x2b180…2b200 UnusedSector ┆; PCBCBA:=BUFLNK.PCBCBA ; AU001503 AU001504 1 02B9 CLR PCBBCX.X4 ; PCBBCX:= 0 ; AU001504 AU001505 1 02BA MOV PCBBFL.X4 R7 ; ; AU┆
0x2b200…2b280 UnusedSector ┆001505 AU001506 1 02BB MOV R7 PCBBRC.X4 ; PCBBRC:=PCBBFL ; AU001506 AU001507 1 02BC INC PCBCBN.X4 ; PCBCBN:=PCBCBN+1 ; AU001507 ┆
0x2b280…2b300 UnusedSector ┆AU001508 1 02BD XCH R5 PCBSV5.X4 ; ; AU001508 AU001509 1 02BF JMPI PCBSV5.X4 ; RETURN ; AU001509 AU001510 1 02C0 PCKEXC: ; PACKE┆
0x2b300…2b380 UnusedSector ┆T EXCEEDED: ; AU001510 AU001511 1 02C0 MOVL R12 PCBSV1.X4 ; PREPARE TO OBTAIN AN ; AU001511 AU001512 1 02C1 MOV R5 PCBS55.X4 ; A┆
0x2b380…2b400 UnusedSector ┆DDITIONAL BUFFER ; AU001512 AU001513 1 02C2 MOV R6 PCBSV6.X4 ; ; AU001513 AU001514 1 02C3 MOV PCBPRI.X4 R2 ; PRI:=PCBPRI ; AU001┆
0x2b400…2b480 UnusedSector ┆514 AU001515 1 02C4 MOVC 1 R1 ; PCKSIZ:=1 ; AU001515 AU001516 1 02C5 MOVC QURTC R5 ; N:=QUE RESERVE TRY COUNT ; AU001516 AU00151┆
0x2b480…2b500 UnusedSector ┆7 1 02C6 ; QUEBUSY:= TRUE ; AU001517 AU001518 1 02C6 PCGT1: ; ; AU001518 AU001519 1 02C6 ; WAITQUE: ; AU001519 AU001520 1 02C6 I┆
0x2b500…2b580 UnusedSector ┆EQ R5 0 ; IF N=0 THEN ; AU001520 AU001521 1 02C7 JMP PCGT5 ; GO TO ERRX ; AU001521 AU001522 1 02C8 ADDC -1 R5 ; N:=N-1 ; AU00152┆
0x2b580…2b600 UnusedSector ┆2 AU001523 1 02C9 MON GENPACK ; GENERATEPACKET(-,PRI,1,PCK), ; AU001523 AU001524 1 02CA JMP & PCGT1 ; (QUEBUSY: GO TO WAITQUE, ;┆
0x2b600…2b680 UnusedSector ┆ AU001524 AU001525 1 02CB JMP & PCGT6 ; NOBUFFERS: GO TO ERRY, ; AU001525 AU001526 1 02CC ; DONE: CONTINUE) ; AU001526 AU001527 ┆
0x2b680…2b700 UnusedSector ┆1 02CC ADD CBASE-C R6 ; ; AU001527 AU001528 1 02CE MOV PCBFBA.X4 R7 ; ; AU001528 AU001529 1 02CF MOV R6 LSTBUF.X7 ; LSTBUF.PCBFB┆
0x2b700…2b780 UnusedSector ┆A:=PCK ; AU001529 1 02D0 INC BUFCNT.X7 ; BUFCNT.PCBFBA:=BUFCNT.PCBFBA + 1; AU001530 1 02D1 MOV PCBCBA.X4 R7 ; ; AU001530 AU001┆
0x2b780…2b800 UnusedSector ┆531 1 02D2 MOV R6 BUFLNK.X7 ; BUFLNK.PCBCBA:=PCK ; AU001531 AU001532 1 02D3 MOV PCBBFL.X4 R1 ; ; AU001532 AU001533 1 02D4 ADD R1┆
0x2b800…2b880 UnusedSector ┆ PCBTPN.X4 ; PCBTPN:=PCBTPN+PCBBFL ; AU001533 AU001534 1 02D5 MOVL PCBSV1.X4 R12 ; ; AU001534 AU001535 1 02D6 MOV PCBS55.X4 R5 ;┆
0x2b880…2b900 UnusedSector ┆ ; AU001535 AU001536 1 02D7 MOV PCBSV6.X4 R6 ; ; AU001536 AU001537 1 02D8 JMP PCGT0 ; GO TO FORWARDTONEXT ; AU001537 AU001538 1 ┆
0x2b900…2b980 UnusedSector ┆02D9 PCGT5: ; ERRX: (QUE BUSY ERR) ; AU001538 AU001539 1 02D9 MOVL PCBSV1.X4 R12 ; ; AU001539 AU001540 1 02DA MOV PCBSV5.X4 R5 ;┆
0x2b980…2ba00 UnusedSector ┆ RESTORE ORIGINAL R5 ; AU001540 AU001541 1 02DB MOV PCBSV6.X4 R6 ; ; AU001541 AU001542 1 02DC JMP PCBERR4 ; CALL ERROR(4) ; AU00┆
0x2ba00…2ba80 UnusedSector ┆1542 AU001543 1 02DD PCGT6: ; ERRY: (NO VACANT BUFFERS) ; AU001543 AU001544 1 02DD MOVL PCBSV1.X4 R12 ; ; AU001544 AU001545 1 02┆
0x2ba80…2bb00 UnusedSector ┆DE MOV PCBSV5.X4 R5 ; RESTORE ORIGINAL R5 ; AU001545 AU001546 1 02DF MOV PCBSV6.X4 R6 ; ; AU001546 AU001547 1 02E0 JMP PCBERR7 ;┆
0x2bb00…2bb80 UnusedSector ┆ CALL ERROR(7) ; AU001547 AU001548 1 02E1 ; END ; AU001548 1 02E1 ;------------------------------------------------------------┆
0x2bb80…2bc00 UnusedSector ┆-----------; AU001549 1 02E1 PCBGETPOS: ; BEGIN GETPOS(PCB, ADR, CNT) ; AU001549 AU001550 1 02E1 MOV R7 PCBSV7.X4 ; ; AU001550 ┆
0x2bc00…2bc80 UnusedSector ┆AU001551 1 02E2 MOV PCBSTA.X4 R7 ; ; AU001551 AU001552 1 02E3 IBZ R7 RDTYPB ; IF READ TYPE PCB THEN ; AU001552 AU001553 1 02E4 J┆
0x2bc80…2bd00 UnusedSector ┆MP PC1050 ; BEGIN ; AU001553 AU001554 1 02E5 INE R7 RDGETP ; IF OPERATION NOT ALLOWED THEN ; AU001554 AU001555 1 02E6 JMP PCBERR┆
0x2bd00…2bd80 UnusedSector ┆1 ; CALL ERROR(1) ; AU001555 AU001556 1 02E7 MOV PCBPCX.X4 R7 ; ; AU001556 AU001557 1 02E8 IBN R7 0 ; IF ON HALFWORD BOUNDARY TH┆
0x2bd80…2be00 UnusedSector ┆EN ; AU001557 AU001558 1 02E9 JMP PCBERR3 ; CALL ERROR(3) ; AU001558 AU001559 1 02EA MOV PCBBRC.X4 R2 ; ; AU001559 AU001560 1 02┆
0x2be00…2be80 UnusedSector ┆EB IEQP R2 0 ; IF PCBBRC = 0 THEN ; AU001560 AU001561 1 02EC MOV R5 PCBSV5.X4 ; ; AU001561 AU001562 1 02ED JMP S5 PCBNXB ; GET N┆
0x2be80…2bf00 UnusedSector ┆EXT BUFFER ; AU001562 AU001563 1 02EE MOV PCBBRC.X4 R2 ; ; AU001563 AU001564 1 02EF ADDC 1 R2 ; ; AU001564 AU001565 1 02F0 SRL R┆
0x2bf00…2bf80 UnusedSector ┆2 1 ; CNT:=(PCBBRC+1)/2 ; AU001565 AU001566 1 02F1 JMP PC1080 ; END ; AU001566 AU001567 1 02F2 PC1050: ; ELSE ; AU001567 AU00156┆
0x2bf80…2c000 UnusedSector ┆8 1 02F2 ; BEGIN ; AU001568 AU001569 1 02F2 INE R7 WRGETP ; IF OPERATION NOT ALLOWED THEN ; AU001569 AU001570 1 02F3 JMP PCBERR1┆
0x2c000…2c080 UnusedSector ┆ ; CALL ERROR(1) ; AU001570 AU001571 1 02F4 MOV PCBPCX.X4 R7 ; ; AU001571 AU001572 1 02F5 IBN R7 0 ; IF ON HALFWORD BOUNDARY THE┆
0x2c080…2c100 UnusedSector ┆N ; AU001572 AU001573 1 02F6 JMP PCBERR3 ; CALL ERROR(3) ; AU001573 AU001574 1 02F7 MOV PCBBRC.X4 R2 ; ; AU001574 AU001575 1 02F┆
0x2c100…2c180 UnusedSector ┆8 IEQP R2 0 ; IF PCBBRC = 0 THEN ; AU001575 AU001576 1 02F9 MOV R5 PCBSV5.X7 ; ; AU001576 AU001577 1 02FA JMP S5 PCBGTBF ; GET A┆
0x2c180…2c200 UnusedSector ┆ NEW BUFFER ; AU001577 AU001578 1 02FB MOV PCBBRC.X4 R2 ; ; AU001578 AU001579 1 02FC ADDC 1 R2 ; ; AU001579 AU001580 1 02FD SRL ┆
0x2c200…2c280 UnusedSector ┆R2 1 ; CNT:=(PCBBRC+1)/2 ; AU001580 AU001581 1 02FE ; END ; AU001581 AU001582 1 02FE PC1080: ; ; AU001582 AU001583 1 02FE MOV PC┆
0x2c280…2c300 UnusedSector ┆BBCX.X4 R3 ; ; AU001583 AU001584 1 02FF SRL R3 1 ; ; AU001584 AU001585 1 0300 MOD CBASE-C ; ; AU001585 AU001586 1 0301 ADDC BUFC┆
0x2c300…2c380 UnusedSector ┆HD>1 R3 ; ADR:=BASE + (PCBBCX+BUFCHD)/2 ; AU001586 AU001587 1 0302 ADD PCBCBA.X4 R3 ; + PCBCBA ; AU001587 AU001588 1 0303 INC PC┆
0x2c380…2c400 UnusedSector ┆BSV7.X4 ; RETURN(LINK+1) ; AU001588 AU001589 1 0304 JMPI PCBSV7.X4 ; END ; AU001589 1 0305 ;-----------------------------------┆
0x2c400…2c480 UnusedSector ┆------------------------------------; AU001590 1 0305 PCBHOME: ; BEGIN HOME(PCB) ; AU001590 AU001591 1 0305 MOV R7 PCBS77.X4 ; ┆
0x2c480…2c500 UnusedSector ┆; AU001591 AU001592 1 0306 MOV R2 PCBSV2.X4 ; ; AU001592 AU001593 1 0307 MOV PCBPCX.X4 R2 ; CNT:=PCBPCX ; AU001593 AU001594 1 03┆
0x2c500…2c580 UnusedSector ┆08 MON BACKSPC ; BACKSPACE(PCB, CNT) ; AU001594 AU001595 1 0309 JMPI PCBS77.X4 ; IF ERROR THEN RETURN(LINK+0) ; AU001595 AU00159┆
0x2c580…2c600 UnusedSector ┆6 1 030A INC PCBS77.X4 ; RETURN(LINK+1) ; AU001596 AU001597 1 030B MOV PCBSV2.X4 R2 ; ; AU001597 AU001598 1 030C JMPI PCBS77.X4 ┆
0x2c600…2c680 UnusedSector ┆; END ; AU001598 1 030D ;-----------------------------------------------------------------------; AU001599 1 030D PCBWRCH: ; B┆
0x2c680…2c700 UnusedSector ┆EGIN WRITECHAR(PCB, CHAR) ; AU001599 AU001600 1 030D MOV R7 PCBSV7.X4 ; ; AU001600 AU001601 1 030E MOV PCBSTA.X4 R7 ; ; AU001601┆
0x2c700…2c780 UnusedSector ┆ AU001602 1 030F INE R7 WRCH ; IF OPERATION NOT ALLOWED THEN ; AU001602 AU001603 1 0310 JMP PCBERR1 ; CALL ERROR(1) ; AU001603 A┆
0x2c780…2c800 UnusedSector ┆U001604 1 0311 SONP PCBBRC.X4 ; IF PCBBRC=0 THEN ; AU001604 AU001605 1 0312 MOV R5 PCBSV5.X4 ; ; AU001605 AU001606 1 0313 JMP S5┆
0x2c800…2c880 UnusedSector ┆ PCBGTBF ; GET A NEW BUFFER ; AU001606 AU001607 1 0314 DEC PCBBRC.X4 ; PCBBRC:=PCBBRC-1 ; AU001607 AU001608 1 0315 MOV PCBBCX.X4┆
0x2c880…2c900 UnusedSector ┆ R7 ; ; AU001608 AU001609 1 0316 MOD PCBCBA.X4 ; ; AU001609 1 0317 MOVB R3 BUFCHD.X7 ; BYTE((PCBCBA)*2+PCBBCX+BUFCHD):=; AU001┆
0x2c900…2c980 UnusedSector ┆610 1 0318 ; CHAR ; AU001610 AU001611 1 0318 INC PCBBCX.X4 ; PCBBCX:=PCBBCX+1 ; AU001611 AU001612 1 0319 INC PCBPCX.X4 ; PCBPCX:┆
0x2c980…2ca00 UnusedSector ┆=PCBPCX+1 ; AU001612 AU001613 1 031A INC PCBSV7.X4 ; ; AU001613 AU001614 1 031B JMPI PCBSV7.X4 ; RETURN(LINK+1) ; AU001614 AU001┆
0x2ca00…2ca80 UnusedSector ┆615 1 031C ; END ; AU001615 1 031C ;-----------------------------------------------------------------------; AU001616 1 031C P┆
0x2ca80…2cb00 UnusedSector ┆CBWRWD: ; BEGIN WRITEWORD(PCB, WORD) ; AU001616 AU001617 1 031C MOV R7 PCBSV7.X4 ; ; AU001617 AU001618 1 031D MOV PCBSTA.X4 R7 ;┆
0x2cb00…2cb80 UnusedSector ┆ ; AU001618 AU001619 1 031E INE R7 WRWD ; IF OPERATION NOT ALLOWED THEN ; AU001619 AU001620 1 031F JMP PCBERR1 ; CALL ERROR(1) ;┆
0x2cb80…2cc00 UnusedSector ┆ AU001620 AU001621 1 0320 MOV PCBBCX.X4 R7 ; ; AU001621 AU001622 1 0321 IBN R7 0 ; IF ON HALFWORD BOUNDARY THEN ; AU001622 AU001┆
0x2cc00…2cc80 UnusedSector ┆623 1 0322 JMP PCBERR3 ; CALL ERROR(3) ; AU001623 AU001624 1 0323 MOV PCBBRC.X4 R7 ; ; AU001624 AU001625 1 0324 ILOP R7 2 ; IF P┆
0x2cc80…2cd00 UnusedSector ┆CBBRC < 2 THEN ; AU001625 AU001626 1 0325 MOV R5 PCBSV5.X4 ; ; AU001626 AU001627 1 0326 JMP S5 PCBGTBF ; GET A NEW BUFFER ; AU00┆
0x2cd00…2cd80 UnusedSector ┆1627 AU001628 1 0327 MOV PCBBCX.X4 R7 ; ; AU001628 AU001629 1 0328 SRL R7 1 ; ; AU001629 1 0329 ADD PCBCBA.X4 R7 ; (PCBCBA+(PCB┆
0x2cd80…2ce00 UnusedSector ┆BCX+BUFCHD)/2):=WORD; AU001630 1 032A MOV R3 BUFCHD>1.X7; ; AU001630 AU001631 1 032B INC PCBBCX.X4 ; ; AU001631 AU001632 1 032C┆
0x2ce00…2ce80 UnusedSector ┆ INC PCBBCX.X4 ; PCBBCX:=PCBBCX+2 ; AU001632 AU001633 1 032D INC PCBPCX.X4 ; ; AU001633 AU001634 1 032E INC PCBPCX.X4 ; PCBPCX:=┆
0x2ce80…2cf00 UnusedSector ┆PCBPCX+2 ; AU001634 AU001635 1 032F DEC PCBBRC.X4 ; ; AU001635 AU001636 1 0330 DEC PCBBRC.X4 ; PCBBRC:=PCBBRC-2 ; AU001636 AU001┆
0x2cf00…2cf80 UnusedSector ┆637 1 0331 INC PCBSV7.X4 ; RETURN(LINK+1) ; AU001637 AU001638 1 0332 JMPI PCBSV7.X4 ; END ; AU001638 1 0333 ;------------------┆
0x2cf80…2d000 UnusedSector ┆-----------------------------------------------------; 1 0333 PCBWRBL: ; BEGIN WRITEBLOCK(PCB, SOURCE, CNT); AU001639 1 0333 ┆
0x2d000…2d080 UnusedSector ┆MOV R7 PCBSV7.X4 ; ; AU001639 AU001640 1 0334 MOV PCBSTA.X4 R7 ; ; AU001640 AU001641 1 0335 INE R7 WRBL ; IF OPERATION NOT ALLOW┆
0x2d080…2d100 UnusedSector ┆ED THEN ; AU001641 AU001642 1 0336 JMP PCBERR1 ; CALL ERROR(1) ; AU001642 AU001643 1 0337 MOV PCBBCX.X4 R7 ; ; AU001643 AU001644┆
0x2d100…2d180 UnusedSector ┆ 1 0338 IBN R7 0 ; IF ON HALFWORD BOUNDARY THEN ; AU001644 AU001645 1 0339 JMP PCBERR3 ; CALL ERROR(3) ; AU001645 AU001646 1 033┆
0x2d180…2d200 UnusedSector ┆A PC1410: ; ; AU001646 AU001647 1 033A MOV R1 PCBSV1.X4 ; DO WHILE CNT <> 0 ; AU001647 AU001648 1 033B MOV PCBBCX.X4 R7 ; X:=PCB┆
0x2d200…2d280 UnusedSector ┆BCX ; AU001648 AU001649 1 033C MOV PCBBRC.X4 R1 ; ; AU001649 AU001650 1 033D SRL R1 1 ; N:=PCBBRC/2 ; AU001650 AU001651 1 033E I┆
0x2d280…2d300 UnusedSector ┆LO R2 R1 ; N:=MIN(CNT, N) ; AU001651 AU001652 1 033F MOV R2 R1 ; ; AU001652 AU001653 1 0340 SLL R1 1 ; N:=N*2 ; AU001653 AU00165┆
0x2d300…2d380 UnusedSector ┆4 1 0341 JOZ R1 PC1440 ; ; AU001654 AU001655 1 0342 ADD R1 PCBBCX.X4 ; PCBBCX:=PCBBCX+N ; AU001655 AU001656 1 0343 ADD R1 PCBPCX┆
0x2d380…2d400 UnusedSector ┆.X4 ; PCBPCX:=PCBPCX+N ; AU001656 AU001657 1 0344 SUB R1 PCBBRC.X4 ; PCBBRC:=PCBBRC-N ; AU001657 AU001658 1 0346 SRL R1 1 ; N:=N┆
0x2d400…2d480 UnusedSector ┆/2 ; AU001658 AU001659 1 0347 SUB R1 R2 ; CNT:=CNT-N ; AU001659 AU001660 1 0348 SRL R7 1 ; X:=X/2 ; AU001660 AU001661 1 0349 ADD┆
0x2d480…2d500 UnusedSector ┆ PCBCBA.X4 R7 ; ; AU001661 AU001662 1 034A ADDC BUFCHD>1 R7 ; D:=X+PCBCBA+BUFCHD/2 ; AU001662 AU001663 1 034B XCH R7 R3 ; S:=SOU┆
0x2d500…2d580 UnusedSector ┆RCE ; AU001663 AU001664 1 034C MOV R5 PCBSV5.X4 ; ; AU001664 AU001665 1 034D JMP S5 PCBMOV ; ; AU001665 AU001666 1 034F MOV PCBS┆
0x2d580…2d600 UnusedSector ┆V5.X4 R5 ; ; AU001666 AU001667 1 0350 XCH R3 R7 ; ; AU001667 AU001668 1 0351 PC1440: ; ; AU001668 AU001669 1 0351 MOV PCBSV1.X4 ┆
0x2d600…2d680 UnusedSector ┆R1 ; ; AU001669 AU001670 1 0352 JOZ R2 PC1450 ; IF CNT <> 0 THEN ; AU001670 AU001671 1 0353 MOV R5 PCBSV5.X4 ; ; AU001671 AU0016┆
0x2d680…2d700 UnusedSector ┆72 1 0354 JMP S5 PCBGTBF ; GET A NEW BUFFER ; AU001672 AU001673 1 0355 JMP PC1410 ; OD ; AU001673 AU001674 1 0356 PC1450: ; ; AU┆
0x2d700…2d780 UnusedSector ┆001674 AU001675 1 0356 MOV PCBS55.X4 R5 ; ; AU001675 AU001676 1 0357 INC PCBSV7.X4 ; RETURN(LINK+1) ; AU001676 AU001677 1 0358 J┆
0x2d780…2d800 UnusedSector ┆MPI PCBSV7.X4 ; END ; AU001677 1 0359 ;-----------------------------------------------------------------------; AU001678 1 035┆
0x2d800…2d880 UnusedSector ┆9 PCBRESUM: ; BEGIN RESUMEPACK(PCB) ; AU001678 AU001679 1 0359 MOV R7 PCBSV7.X4 ; ; AU001679 AU001680 1 035A MOV PCBSTA.X4 R7 ; ┆
0x2d880…2d900 UnusedSector ┆; AU001680 AU001681 1 035B INE R7 RSMP ; IF OPERATION NOT ALLOWED THEN ; AU001681 AU001682 1 035C JMP PCBERR1 ; CALL ERROR(1) ; ┆
0x2d900…2d980 UnusedSector ┆AU001682 AU001683 1 035D MOV R5 PCBSV5.X4 ; ; AU001683 AU001684 1 035E MOV R6 PCBSV6.X4 ; ; AU001684 AU001685 1 035F MOV PCBQUE.┆
0x2d980…2da00 UnusedSector ┆X4 R5 ; QUE:=PCBQUE ; AU001685 AU001686 1 0360 MOV PCBFBA.X4 R6 ; PCK:=PCBFBA ; AU001686 AU001687 1 0361 MOV R2 PCBSV2.X4 ; ; AU┆
0x2da00…2da80 UnusedSector ┆001687 AU001688 1 0362 MOVC QURTC R2 ; N:=QUE RESERVE TRY COUNT ; AU001688 AU001689 1 0363 PC1510: ; WAITQUE: ; AU001689 AU00169┆
0x2da80…2db00 UnusedSector ┆0 1 0363 IEQ R2 0 ; IF N=0 THEN ; AU001690 AU001691 1 0364 JMP PCBERR4 ; CALL ERROR(4) ; AU001691 AU001692 1 0365 ADDC -1 R2 ; N┆
0x2db00…2db80 UnusedSector ┆:=N-1 ; AU001692 AU001693 1 0366 MON STKPACK ; STACKPACKET(QUE,PCK), ; AU001693 AU001694 1 0367 JMP & PC1510 ; (QUEBUSY: GO TO W┆
0x2db80…2dc00 UnusedSector ┆AITQUE, ; AU001694 AU001695 1 0368 ; DONE: CONTINUE) ; AU001695 AU001696 1 0368 MOV PCBSV2.X4 R2 ; ; AU001696 AU001697 1 0369 MO┆
0x2dc00…2dc80 UnusedSector ┆V PCBSV5.X4 R5 ; ; AU001697 AU001698 1 036A MOV PCBSV6.X4 R6 ; ; AU001698 1 036B MOVC PCSTA7 R7 ; PCBSTA:=(QUE CONNECTED,READTY┆
0x2dc80…2dd00 UnusedSector ┆PE,; AU001699 1 036C ; INITIALISED) ; AU001699 AU001700 1 036C MOV R7 PCBSTA.X4 ; ; AU001700 AU001701 1 036D INC PCBSV7.X4 ; RE┆
0x2dd00…2dd80 UnusedSector ┆TURN(LINK+1) ; AU001701 AU001702 1 036E JMPI PCBSV7.X4 ; END ; AU001702 1 036F ;-----------------------------------------------┆
0x2dd80…2de00 UnusedSector ┆------------------------; AU001703 1 036F PCBSTCNT: ; BEGIN STORECOUNT(PCB,POS) ; AU001703 AU001704 1 036F MOV R7 PCBSV7.X4 ; ;┆
0x2de00…2de80 UnusedSector ┆ AU001704 AU001705 1 0370 MOV PCBSTA.X4 R7 ; ; AU001705 AU001706 1 0371 INE R7 STCNT ; IF OPERATION NOT ALLOWED THEN ; AU001706 ┆
0x2de80…2df00 UnusedSector ┆AU001707 1 0372 JMP PCBERR1 ; CALL ERROR(1) ; AU001707 AU001708 1 0373 MOV PCBTPN.X4 R7 ; ; AU001708 AU001709 1 0374 SRL R7 1 ; ┆
0x2df00…2df80 UnusedSector ┆; AU001709 AU001710 1 0375 ILO R7 R3 ; IF POS > PCBTPCN/2 THEN ; AU001710 AU001711 1 0376 JMP PCBERR2 ; CALL ERROR(2) ; AU001711┆
0x2df80…2e000 UnusedSector ┆ AU001712 1 0377 MOV PCBBFL.X4 R7 ; ; AU001712 AU001713 1 0378 SRL R7 1 ; X:=PCBBFL/2 ; AU001713 AU001714 1 0379 MOV R5 PCBSV5.X┆
0x2e000…2e080 UnusedSector ┆4 ; ; AU001714 AU001715 1 037A MOV PCBFBA.X4 R5 ; Y:=PCBFBA ; AU001715 AU001716 1 037B PC1610: ; ; AU001716 AU001717 1 037B ILO ┆
0x2e080…2e100 UnusedSector ┆R3 R7 ; DO WHILE POS < X ; AU001717 AU001718 1 037C JMP PC1620 ; ; AU001718 AU001719 1 037D SUB R7 R3 ; POS:=POS-X ; AU001719 AU┆
0x2e100…2e180 UnusedSector ┆001720 1 037E MOV BUFLNK.X5 R5 ; ; AU001720 AU001721 1 037F SUB CBASE-C R5 ; Y:=BUFLNK.Y ; AU001721 AU001722 1 0381 JMP PC1610 ;┆
0x2e180…2e200 UnusedSector ┆ OD ; AU001722 AU001723 1 0382 PC1620: ; ; AU001723 AU001724 1 0382 ADD R3 R5 ; Y:=Y+POS ; AU001724 AU001725 1 0383 MOV PCBPCX.X┆
0x2e200…2e280 UnusedSector ┆4 R7 ; ; AU001725 AU001726 1 0384 MOV R7 BUFCHD>1.X5; (BUFCHD/2).Y:=PCBPCX ; AU001726 AU001727 1 0385 MOV R7 7 ; ; AU001727 AU00┆
0x2e280…2e300 UnusedSector ┆1728 1 0386 MOV PCBSV5.X4 R5 ; ; AU001728 AU001729 1 0387 INC PCBSV7.X4 ; RETURN(LINK+1) ; AU001729 AU001730 1 0388 JMPI PCBSV7.┆
0x2e300…2e380 UnusedSector ┆X4 ; END ; AU001730 1 0389 ;-----------------------------------------------------------------------; AU001731 1 0389 PCBCOPY: ┆
0x2e380…2e400 UnusedSector ┆; BEGIN COPYPACK(PCB,QUE) ; AU001731 AU001732 1 0389 MOV R7 PCBSV7.X4 ; ; AU001732 AU001733 1 038A MOV PCBSTA.X4 R7 ; ; AU001733┆
0x2e400…2e480 UnusedSector ┆ AU001734 1 038B INE R7 COPP ; IF OPERATION NOT ALLOWED THEN ; AU001734 AU001735 1 038C JMP PCBERR1 ; CALL ERROR(1) ; AU001735 A┆
0x2e480…2e500 UnusedSector ┆U001736 1 038D MOV R5 PCBSV5.X4 ; ; AU001736 AU001737 1 038E MOV R6 PCBSV6.X4 ; ; AU001737 AU001738 1 038F MOV R2 PCBSV2.X4 ; ; ┆
0x2e500…2e580 UnusedSector ┆AU001738 AU001739 1 0390 MOV PCBFBA.X4 R6 ; PCK:=PCBFBA ; AU001739 AU001740 1 0391 MOV R3 R5 ; QUE:=REF.QUE ; AU001740 AU001741 ┆
0x2e580…2e600 UnusedSector ┆1 0392 MOVC QURTC R2 ; N:= QUE RESERVE TRY COUNT ; AU001741 AU001742 1 0393 PC1710: ; WAITQUE: ; AU001742 AU001743 1 0393 IEQ R2┆
0x2e600…2e680 UnusedSector ┆ 0 ; IF N=0 THEN ; AU001743 AU001744 1 0394 JMP PCBERR4 ; CALL ERROR(4) ; AU001744 AU001745 1 0395 ADDC -1 R2 ; N:=N-1 ; AU00174┆
0x2e680…2e700 UnusedSector ┆5 AU001746 1 0396 MON ENQPACK ; ENQUEPACKET(QUE,PCK), ; AU001746 AU001747 1 0397 JMP & PC1710 ; (QUEBUSY: GO TO WAITQUE, ; AU001┆
0x2e700…2e780 UnusedSector ┆747 AU001748 1 0398 ; DONE: CONTINUE) ; AU001748 AU001749 1 0398 MOV PCBSV2.X4 R2 ; ; AU001749 AU001750 1 0399 MOV PCBSV5.X4 R5 ┆
0x2e780…2e800 UnusedSector ┆; ; AU001750 AU001751 1 039A MOV PCBSV6.X4 R6 ; ; AU001751 1 039B MOVC PCSTA7 R7 ; PCBSTA:=(QUE CONNECTED, READTYPE; AU001752 ┆
0x2e800…2e880 UnusedSector ┆1 039C ; ,INITIALISED) ; AU001752 AU001753 1 039C MOV R7 PCBSTA.X4 ; ; AU001753 AU001754 1 039D INC PCBSV7.X4 ; RETURN(LINK+1) ;┆
0x2e880…2e900 UnusedSector ┆ AU001754 AU001755 1 039E JMPI PCBSV7.X4 ; END ; AU001755 1 039F ;-------------------------------------------------------------┆
0x2e900…2e980 UnusedSector ┆----------; AU001756 1 039F PCBRGP: ; BEGIN REGRETPACK(PCB) ; AU001756 AU001757 1 039F MOV R7 PCBSV7.X4 ; ; AU001757 AU001758 1┆
0x2e980…2ea00 UnusedSector ┆ 03A0 MOV PCBSTA.X4 R7 ; ; AU001758 AU001759 1 03A1 INE R7 TMWR ; IF OPERATION NOT ALLOWED THEN ; AU001759 AU001760 1 03A2 JMP P┆
0x2ea00…2ea80 UnusedSector ┆CBERR1 ; CALL ERROR(1) ; AU001760 AU001761 1 03A3 JMP PC0455 ; ELSE GO TO RELEASE PACKET ; AU001761 1 03A4 ;-------------------┆
0x2ea80…2eb00 UnusedSector ┆----------------------------------------------------; AU001762 1 03A4 PRGLGT:= LOC ; AU001762 AU001763 1 03A4 USE BASE ; AU0017┆
0x2eb00…2eb80 UnusedSector ┆63 AU001764 0 0108 XNAME0= <:BQ:> ; AU001764 AU001765 0 0108 XNAME1= <:M:> ; AU001765 AU001766 0 0108 XBUFS=2 ; AU001766 AU00176┆
0x2eb80…2ec00 UnusedSector ┆7 0 0108 XREFS=2 ; AU001767 AU001768 0 0108 XPRPC= BQMSTART ; AU001768 AU001769 0 0108 NOLIST ; AU001769 AU002238 0 0122 LIST ; ┆
0x2ec00…2ec80 UnusedSector ┆AU002238 AU002239 0 0122 POOLST:= LOC+PRGLGT ; AU002239 AU002240 0 0122 POLTOPX:= POOLGT+POOLST-BUFWDS+1 ; AU002240 AU002241 0 ┆
0x2ec80…2ed00 UnusedSector ┆0122 MEMTOP:= POOLST+13+BQMLOC+POOLGT ; AU002241 AU002242 0 0122 MESSAGE MEMTOP ; AU002242 AU002242 0 0122 MESSAGE: MEMTOP= #4CA┆
0x2ed00…2ed80 UnusedSector ┆6 BASE 1 AU002243 0 0122 END ; AU002243 Z04003 T44D6 P 4000L 0000 0000 0000 0000 012F 4008L 0000 0000 5142 004D 0000 0000 0000 0┆
0x2ed80…2ee00 UnusedSector ┆000 4010L 0000 0000 0000 0000 0000 0000 0000 0000 4018L 0000 0000 0122 007E 0064 0000 0000 822F 4020L 0000 0000 0000 0064 0000 0┆
0x2ee00…2ee80 UnusedSector ┆000 0000 0000 4028L 0000 0000 0000 0000 0000 0000 0000 0000 4030L 0000 FFFF 0000 0000 0000 0000 0000 0000 4038L 0000 0108 0110 0┆
0x2ee80…2ef00 UnusedSector ┆000 0000 0000 0000 0000 4040L 0000 0000 0000 0000 0000 0000 0000 0000 4048L 0000 0000 0000 0000 0000 0000 0000 0000 4050L 0000 0┆
0x2ef00…2ef80 UnusedSector ┆000 0000 0000 0000 0000 0000 0000 4058L 0000 0000 0000 0000 0000 0000 0000 0000 4060L 0000 0000 0000 0000 0000 0000 0000 0000 40┆
0x2ef80…2f000 UnusedSector ┆68L 0000 0000 0000 0000 0000 0000 0000 0000 4070L 0000 0000 0000 0000 0000 0000 0000 0000 4078L 0000 0000 0000 0000 0000 0000 00┆
0x2f000…2f080 UnusedSector ┆00 0000 4080L 0000 0000 0000 0000 0000 0000 0000 0000 4088L 0000 0000 0000 0000 0000 0000 0000 0000 4090L 0000 0000 0000 0000 00┆
0x2f080…2f100 UnusedSector ┆00 0000 0000 0000 4098L 0000 0000 0000 0000 0000 0000 0000 0000 40A0L 0000 0000 0000 0000 0000 0000 0000 0000 40A8L 0000 0000 00┆
0x2f100…2f180 UnusedSector ┆00 0000 0000 0000 0000 0000 40B0L 0000 0000 0000 0000 0000 0000 0000 0000 40B8L 0000 0000 0000 0000 0000 0000 0000 0000 40C0L 00┆
0x2f180…2f200 UnusedSector ┆00 0000 0000 0000 0000 0000 0000 0000 40C8L 0000 0000 0000 0000 0000 0000 0000 0000 40D0L 0000 0000 0000 0000 0000 0000 0000 000┆
0x2f200…2f280 UnusedSector ┆0 40D8L 0000 0000 0000 0000 0000 0000 0000 0000 40E0L 0000 0000 0000 0000 0000 0000 0000 0000 40E8L 0000 0000 0000 0000 0000 000┆
0x2f280…2f300 UnusedSector ┆0 0000 0000 40F0L 0000 0000 0000 0000 0000 0000 0000 0000 40F8L 0000 0000 0000 0000 0000 0000 0000 0000 4100L 0000 0000 0000 000┆
0x2f300…2f380 UnusedSector ┆0 0000 0000 0000 0000 4108L 0000 0000 0000 0000 0000 0000 0000 0000 4110L 0000 0000 0000 0000 0000 0000 04C6 0C8E 4118L 0000 000┆
0x2f380…2f400 UnusedSector ┆0 010C 0000 0000 0000 0000 0000 4120L 0000 0000 0119 0000 0000 0000 0000 0000 4128L 0000 0000 0000 0000 0000 0000 0000 0000 4130┆
0x2f400…2f480 UnusedSector ┆L 0000 0000 00FD 00AD 00FC 0123 00FB 00D3 4138L 00FA 0100 00F9 00E8 00F8 0136 00F7 0157 4140L 00F6 016D 00F5 017E 00F4 01CD 00F3┆
0x2f480…2f500 UnusedSector ┆ 0359 4148L 00F2 0389 00F1 039F 00F0 020C 00EF 021B 4150L 00EE 0237 00ED 0260 00EC 028C 00EB 0305 4158L 00EA 02E1 00E9 030D 00E8┆
0x2f500…2f580 UnusedSector ┆ 031C 00E7 0333 4160L 00E6 036F 554A 4972 00BF 0156 066E 0156 4168L 0769 61F5 0AD8 0149 8381 0869 618A 8181 4170L 8027 FCA6 0258┆
0x2f580…2f600 UnusedSector ┆ 09CE 0E58 00BF 004D 30E4 4178L D07C 08D8 4020 4121 0A94 00C9 0814 98BB 4180L 02CD 0B58 4A4D 4127 4227 4027 4427 1449 4188L 4681┆
0x2f600…2f680 UnusedSector ┆ 1E49 4781 4581 0869 518A 4381 0814 4190L FE71 5549 5571 00BF 496D FBE4 D044 15D8 4198L 4227 4527 4627 4727 4827 4927 4A27 4427 ┆
0x2f680…2f700 UnusedSector ┆41A0L 4027 0BCD 4975 0894 0BAD 0814 4185 0814 41A8L 4385 0049 9FBB C185 0ED8 0149 9FBB 0BD8 41B0L 3B5D 505D 4E5D 0FA6 0858 4872 ┆
0x2f700…2f780 UnusedSector ┆F07D 2458 41B8L F17D 0D58 0E58 486A 79BB 0CA6 0C58 FFA6 41C0L 0000 0000 0158 0869 158B 4318 108B 50FA 41C8L 0A58 02C8 0051 41BC ┆
0x2f780…2f800 UnusedSector ┆4481 00BF 02CD 5011 41D0L 086F 47BC 451A 01E4 2DF5 05D8 07E4 2DB8 41D8L 461A 4582 00BF A63C 471A 4582 00BF 21BE 41E0L 01D8 C0BF ┆
0x2f800…2f880 UnusedSector ┆0814 FE6D 225D 004F C119 1CBB 41E8L C21A A07C 4534 01E4 4DF5 15D8 5EFB 0814 41F0L 00CE 32EC 8283 8381 01E4 1D8B 5CFB 01A9 41F8L ┆
0x2f880…2f900 UnusedSector ┆93F2 0814 001C 03C1 8184 0814 1CEE 9DBB 4200L 2F5D C686 C716 C716 375D 21BE 01D8 C0BF 4208L 465D 821C 42EC 548A 4616 0716 841C 4┆
0x2f900…2f980 UnusedSector ┆50C 4210L 811C 411B 0869 138B 168A EBBB 4184 004F 4218L C716 4C5D 21BE 01D8 C0BF 5B5D 821C 42EC 4220L 548A 4616 0716 841C 450C 5┆
0x2f980…2fa00 UnusedSector ┆8FB 811B 0869 4228L 138B 168A EDBB 8BBB 803C 138A 4183 004F 4230L C716 645D 21BE 01D8 C0BF 735D 461E E07C 4238L 19D8 5EFB 0814 0┆
0x2fa00…2fa80 UnusedSector ┆0CE 811C 0814 00CC 4BFB 4240L BDBB B4F0 5BBB 0894 00CB 4183 0027 821C 4248L 42EC 548A 0713 4613 841C 05E4 4D8B 004F 4250L C716 C┆
0x2fa80…2fb00 UnusedSector ┆686 004F C716 875D 21BE 01D8 C0BF 4258L 0814 FE6D 985D 831B 410B 5BFB 811C 0814 4260L BCBB 0894 00CE EDBB 935D 004F C716 9A5D 42┆
0x2fb00…2fb80 UnusedSector ┆68L 02CB B644 C0BF 0814 03E4 5DFA C0BF 0814 4270L 05CB 538A 3BFB C1BF 03A4 02E4 06A4 08A4 4278L 10A4 20A4 40E4 004F 0A87 4FBB 0A┆
0x2fb80…2fc00 UnusedSector ┆CF 1312 4280L 97F2 71BD 7BE9 01A9 9424 92F2 7BE9 02C1 4288L 40BF 1387 084F 0887 B07C 0DD8 B17E 1758 4290L 004B 7AEB 01CA 0C82 90┆
0x2fc00…2fc80 UnusedSector ┆3E 917E 1E58 0D81 4298L 014F FCBB 02D8 054F FCBB 1316 1312 1387 42A0L 4FFB 97BC 72A3 97BC F17E 3258 3FBB 0814 42A8L C31F 37FA 33┆
0x2fc80…2fd00 UnusedSector ┆58 0E83 024F 7C8D 1316 1312 42B0L 1387 4FFB 72F2 22D8 0FD1 1286 1185 0D1A 42B8L 0C19 F37E 4758 0A4D 01AD D07C 3CD8 FDA6 42C0L 05┆
0x2fd00…2fd80 UnusedSector ┆58 35D8 0386 0486 0983 0227 0527 081F 42C8L 0687 0A87 0AE4 1CEA 0A19 0181 0727 0B4F 42D0L FCBB 0F61 111D 121E 1316 1312 F77E 645┆
0x2fd80…2fe00 UnusedSector ┆8 42D8L 1185 1286 0FD1 0A49 0E1D 01A9 907C 1BD8 42E0L FAA6 0558 14D8 0386 0486 0527 821B 0983 42E8L 0227 8419 0181 0727 081A 12F┆
0x2fe00…2fe80 UnusedSector ┆5 29BB 0681 42F0L 0F4F FCBB 0F61 111D 121E 1316 1312 0F61 42F8L 111D 121E 8158 0F61 111D 121E 8858 1387 4300L 4FFB 72F2 12D8 FB7┆
0x2fe80…2ff00 UnusedSector ┆E 9158 0FD1 1185 1286 4308L 031E 0219 8481 0E1D 0A4A 01AA A07C 1558 4310L FBA6 0558 034F FCBB 0ED8 FF7E A358 0FD1 4318L 1185 128┆
0x2ff00…2ff80 UnusedSector ┆6 031E 0A4D 01AD D07C 2458 FCA6 4320L 0558 074F 7C8C 0F61 111D 121E 1316 1312 4328L 041F F07D 11D8 7FFB 0814 00CF 0487 0516 4330┆
0x2ff80…30000 UnusedSector ┆L 0727 011F 0255 00CF 08E4 7CF5 081F 0687 4338L F3F2 11E4 5CEE 1112 111D C958 1387 4FFB 4340L FF7E CE58 0639 1185 1D5E 0613 071F┆
0x30000…30080 UnusedSector ┆ 0454 4348L CA7B 0716 0216 1316 1312 1387 4FFB FF7E 4350L DD58 071F 70F2 DE58 061F F03C 1185 305E 4358L 061F F07C E458 071F F124┆
0x30080…30100 UnusedSector ┆ 0437 C51B 0716 4360L 0216 0613 063B 03D8 0216 0716 0613 1316 4368L 1312 1387 4FFB FF7E F958 071F 70F2 FA58 4370L 011F 0255 00CF┆
0x30100…30180 UnusedSector ┆ 01CF F124 72F7 0259 1485 4378L 0F81 0619 071F 9124 21F7 29BB 91A0 9BF2 4380L 0709 0209 06E4 1C8B 9124 128B F124 0437 4388L 05CF┆
0x30180…30200 UnusedSector ┆ FE56 F5DE A2F2 655E 1558 0F19 141D 4390L 1316 1312 1387 4FFB 97BC 72A3 97BC FB7E 4398L 2559 011F 0255 00CF 72F7 2959 020A 061F ┆
0x30200…30280 UnusedSector ┆43A0L 72F7 04D8 06E4 2C8B 070A 16D8 0F81 728B 43A8L 0819 041F 21F7 06D8 7FFB 0814 00CF 0516 43B0L 128B 0858 0487 0782 218B 011F ┆
0x30280…30300 UnusedSector ┆0255 00CF 43B8L 71F7 79BB 0681 0F19 1316 1312 1387 4FFB 43C0L 97BC 72A3 97BC FB7E 5159 021F 01CF 27F5 43C8L 5459 02E4 2C8B 021A ┆
0x30300…30380 UnusedSector ┆0527 031F 08E4 2CF7 43D0L 07D8 0516 0855 00CA 7FFB 0814 00CF 0A58 43D8L 0487 0782 081F 278B 011A 0255 00CA 27F5 43E0L 7ABB 0682 ┆
0x30380…30400 UnusedSector ┆1316 1312 041F F07D 0BD8 7FFB 43E8L 0814 00CF 0487 0727 081F 0687 0516 11E4 43F0L 5CEE 1112 0FD1 1485 1286 0D1A 0149 0A4D 43F8L ┆
0x30400…30480 UnusedSector ┆D07C 11D8 01AD FDA6 0558 11D8 0894 00CE 4400L 031F C186 C316 041F EFBB 0819 0109 0F61 4408L 141D 121E 2458 0F61 111D 121E 9859 0┆
0x30480…30500 UnusedSector ┆F61 4410L 111D 121E 9959 1387 4FFB 72F0 0DD8 FF7E 4418L A559 021F 70F2 A659 061A A03C 1185 F85E 4420L 061A 01CA A124 0CD8 FB7E B┆
0x30500…30580 UnusedSector ┆259 021F 70F2 4428L B359 061A A03C D185 495E 061A 01CA A124 4430L 071B B124 0894 05CB 0433 1316 1312 1587 4438L 1082 021A ECA6 1┆
0x30580…30600 UnusedSector ┆512 1516 101A 1512 1387 4440L 4FFB FB7E CF59 0639 1185 625E 0613 071F 4448L 0454 CA93 0716 0216 1316 1312 1387 4FFB 4450L FB7E D┆
0x30600…30680 UnusedSector ┆E59 071F 70F2 DF59 061F F206 1185 4458L 755E 071F F124 0437 C583 0716 0716 0216 4460L 0216 0613 0613 1316 1312 1387 4FFB FB7E 44┆
0x30680…30700 UnusedSector ┆68L F559 071F 70F2 F659 0F81 071F 0619 9124 4470L 21F7 29BB 91A0 9FF2 0709 0209 06E4 1C8B 4478L 9124 128B F124 0437 05CF 73EE 11┆
0x30700…30780 UnusedSector ┆85 FD56 4480L FFDE 111D 37EE 0F19 A3F2 1185 A35E 1C58 4488L 141D 1316 1312 1387 4FFB FF7E 1B5A 1185 4490L 1286 0E1D 031E 1082 0A┆
0x30780…30800 UnusedSector ┆4A A07C 205A 01AA 4498L F9A6 0558 101A 111D 121E 074F FCBB 1316 44A0L 1312 1387 4FFB FB7E 315A 011F F124 73F7 44A8L 345A 081F F1┆
0x30800…30880 UnusedSector ┆24 1185 031D 37F7 05D8 738B 44B0L 5DFB 0814 00CD 0758 358A 021F 4587 0777 44B8L 111D 1316 1312 1387 4FFB FF7E 4B5A 1185 44C0L 12┆
0x30880…30900 UnusedSector ┆86 1082 031E 3DBB 0A4A A07C 505A 01AA 44C8L FBA6 0558 101A 111D 121E 074F FCBB 1316 44D0L 1312 1387 4FFB FB7E 615A BF59 S7 M┆
0x30900…30980 UnusedSector ┆EMORY MAP: AREA 0 4003 AREA 1 4132 20 DIMENSION WARNINGS 1 MODE WARNINGS 18 INSTRUCTIONS EXPANDED 21 MODIFIES INSERTED ┆
0x30980…30a00 UnusedSector ┆1235 WORDS OUTPUT 1235 WORDS ASSEMBLED ASSEMBLY OK? 101A 111D 121E 074F FCBB 1316 44D0L 1312 1387 4FFB FB7E 615A BF59 S7 M┆
0x30a00…30a80 UnusedSector ┆ Z ] STATUS: ZV jaK# d ]V k\V n^V L_ OO@V l]V dlN OPEN ERROR Z ] >lN PARAMETER ERROR Z ] >lN FILE FULL Z ] >┆
0x30a80…30b00 UnusedSector ┆u H I J R hM SX,H@ H (C H t hX- X/ E X2 hp iX6X7X8h S| O| P| XC V H hX K V L V N ^8V LWV N ^=K V L ┆
0x30b00…30b80 UnusedSector ┆V N ^CH@ h H IR I MR + ,I V M ucudV H I V M%ueV8H ) VTM%V H $M # $VPHLp VFHDp lM a =sT %hX| X | ┆
0x30b80…30c00 UnusedSector ┆lM asT %hX| X | c SVS C| s VF D| s V1 T| s V2 T| s X&h K VP L< V L VP L| _VF D< V LWVF D| _VS C> M # $ $ l t V L al ┆
0x30c00…30c80 UnusedSector ┆t j lN D< V LWVP L< V L _l ILq~t w|I l V K 4$ 8 " k~ L< q~ "K "o|l t w| Y U{@ " o|l t w|o lN D< V LWVP L< V ┆
0x30c80…30d00 UnusedSector ┆L ]o|l TV h pX t hX| !sT %hX> "X l hS pS ~ $V M #( p =he pe t ( p l H p\p]p^( pa H p_p` t mdh\ h] Ah^ B┆
0x30d00…30d80 UnusedSector ┆uc udhm pm >B $V M #( p = +l H I JKV M hm| I JSV M qlr}i\j]k^ ^ A & B 6 h} K< ub uc l O{ L A L ┆
0x30d80…30e00 UnusedSector ┆}A leS OLn jULWT V r qV j T V r O{ t C r r @ r @ | N A $| %| $| %| ~ hSV░I 0 ; B ┆
0x30e00…30e80 UnusedSector ┆ 6~ hS) 0 / B * A r fx 0 &x B< V h 0 + 0 )x | 0 x 0 ! 0 x | 0 x 0 0 ( p K ( p K ( p K ie┆
0x30e80…30f00 UnusedSector ┆ #S ( p K r Ot V'H V I t ioV H V H V H $ VTM% $O ^V ' ^ & l t H pSho| $ $M # $V O% ~V K ┆
0x30f00…30f80 UnusedSector ┆ 6| $v{nS &n{ gM # hM # iM #LS l t hm| $ $V M} # $V N ~ $V M i A B C # l t H pSho| $ $M # $V ┆
0x30f80…31000 UnusedSector ┆O% ~V K 6| $v{nS &n{ jM # kM # lM #MS @ l t ( pSho| $ $ # $V M # $V M% $nS vS 'O ^ & l t $ + ,H pkph┆
0x31000…31080 UnusedSector ┆h ~ h ~ h < I 0H p p pk ( h < I 0H p p hn| ) q V O nR &nS &V M ^ fJA #J* } P ] # $ pnH pWpn( pUnR┆
0x31080…31100 UnusedSector ┆ &nR vRnS &l t ) l hSpoh | ;t M\ UiaB qa iT @l t L_V H H iT 0 I 0l t I 0l t I 0 l t l t ┆
0x31100…31180 UnusedSector ┆hk| . lc ~ Ln I 0 hSlc ) -hSlc ) I 0 +l t hk| ( p . lc ~ - I 0 +l t hk┆
0x31180…31200 UnusedSector ┆| ( p / lemb CI░ pf mb CV░I `phle (( phI 0 #h | I 0 & . lc ~ le k I k S Hle k -lehc k┆
0x31200…31280 UnusedSector ┆ hk pkih| * +l t I 0 l t Hk I 0H Hh h | I 0 h_le k leI k S hk pkih| * ,l t I 0 ┆
0x31280…31300 UnusedSector ┆l t l t ( p lc h_ , l t ) l t l 2LU !sT %hX| "hYpZprH psH Jr (iX pV i pV jSqY r[ [ X! X# ┆
0x31300…31380 UnusedSector ┆X% X' X) X+ X- X/ X1 X3 X5 X7 X9 X; X= X? XA XC XEhSpo $ $V M # ; $ $M # 6h M ~ 5 :V M%ueH pSVTN%ho| rp Y ┆
0x31380…31400 UnusedSector ┆) / C 2| J 1| J 1| J 1 s B q q I ) B 1D B 1D 1E B 1D 1E 1F LS ue h <h ~ $ $V ┆
0x31400…31480 UnusedSector ┆------------------------- PCBGTBF: ; BEGIN GETNEWBUFFER MOV PCBCBA.X4 R7 ; IEQ X7 0 ; IF BUFLNK.PCBCBA = 0 THEN JMP PCKEXC ; ┆
0x31480…31500 UnusedSector ┆GO TO PACKET EXCEEDED PCGT0: MOV BUFLNK.X7 R7 ; FORWARDTONEXT: SUB CBASE-C R7 ; MOV R7 PCBCBA.X4 ; PCBCBA:=BUFLNK.PCBCBA CLR ┆
0x31500…31580 UnusedSector ┆PCBBCX.X4 ; PCBBCX:= 0 MOV PCBBFL.X4 R7 ; MOV R7 PCBBRC.X4 ; PCBBRC:=PCBBFL INC PCBCBN.X4 ; PCBCBN:=PCBCBN+1 XCH R5 PCBSV5.X┆
0x31580…31600 UnusedSector ┆4 ; JMPI PCBSV5.X4 ; RETURN PCKEXC: ; PACKET EXCEEDED: MOVL R12 PCBSV1.X4 ; PREPARE TO OBTAIN AN MOV R5 PCBS55.X4 ; ADDITIONA┆
0x31600…31680 UnusedSector ┆L BUFFER MOV R6 PCBSV6.X4 ; MOV PCBPRI.X4 R2 ; PRI:=PCBPRI MOVC 1 R1 ; PCKSIZ:=1 MOVC QURTC R5 ; N:=QUE RESERVE TRY COUNT ;┆
0x31680…31700 UnusedSector ┆ QUEBUSY:= TRUE PCGT1: ; ; WAITQUE: IEQ R5 0 ; IF N=0 THEN JMP PCGT5 ; GO TO ERRX ADDC -1 R5 ; N:=N-1 MON GENPACK ; GENERAT┆
0x31700…31780 UnusedSector ┆EPACKET(-,PRI,1,PCK), JMP & PCGT1 ; (QUEBUSY: GO TO WAITQUE, JMP & PCGT6 ; NOBUFFERS: GO TO ERRY, ; DONE: CONTINUE) ADD CBAS┆
0x31780…31800 UnusedSector ┆E-C R6 ; MOV PCBFBA.X4 R7 ; MOV R6 LSTBUF.X7 ; LSTBUF.PCBFBA:=PCK INC BUFCNT.X7 ; BUFCNT.PCBFBA:=BUFCNT.PCBFBA + 1 MOV PCBCB┆
0x31800…31880 UnusedSector ┆A.X4 R7 ; MOV R6 BUFLNK.X7 ; BUFLNK.PCBCBA:=PCK MOV PCBBFL.X4 R1 ; ADD R1 PCBTPN.X4 ; PCBTPN:=PCBTPN+PCBBFL MOVL PCBSV1.X4 R┆
0x31880…31900 UnusedSector ┆12 ; MOV PCBS55.X4 R5 ; MOV PCBSV6.X4 R6 ; JMP PCGT0 ; GO TO FORWARDTONEXT PCGT5: ; ERRX: (QUE BUSY ERR) MOVL PCBSV1.X4 R12 ┆
0x31900…31980 UnusedSector ┆; MOV PCBSV5.X4 R5 ; RESTORE ORIGINAL R5 MOV PCBSV6.X4 R6 ; JMP PCBERR4 ; CALL ERROR(4) PCGT6: ; ERRY: (NO VACANT BUFFERS) M┆
0x31980…31a00 UnusedSector ┆OVL PCBSV1.X4 R12 ; MOV PCBSV5.X4 R5 ; RESTORE ORIGINAL R5 MOV PCBSV6.X4 R6 ; JMP PCBERR7 ; CALL ERROR(7) ; END ;-----------┆
0x31a00…31a80 UnusedSector ┆------------------------------------------------------------ ; ; PROCEDURE GETPOS(PCB,ADR,CNT),(ERROR,DONE) ; ; GETPOS IS USED T┆
0x31a80…31b00 UnusedSector ┆O RETURN THE PARAMETERS ADR AND CNT WHICH DEFINE THE ; ABSOLUTE START ADDRESS AND LENGTH OF THE NEXT CONTIGUOUS AREA IN THE ; CU┆
0x31b00…31b80 UnusedSector ┆RRENT PACKET. ; ; IF THE PCB IS OF WRITE DIRECTION AND THE PACKET IS FILLED (USED UP), ; GETPOS WILL ATTEMPT TO ALLOCATE ADDITIO┆
0x31b80…31c00 UnusedSector ┆NAL BUFFER SPACE FOR THE PACKE ; T ; INPUT: ; PCB RELATIVE REFERENCE TO A FREE MEMORY AREA OF PCBLGT ; WORDS. ; ; OUTPUT: ; ADR ┆
0x31c00…31c80 UnusedSector ┆ABSOLUTE WORD ADDRESS OF THE NEXT CONTIGUOUS MEMOR ; Y AREA IN THE CURRENT PACKET ; CNT LENGTH IN BYTES OF THE NEXT CONTIGUOUS M┆
0x31c80…31d00 UnusedSector ┆EMORY AREA ; IN THE CURRENT PACKET. ; ; REGISTER CALL EXIT ; R2 CNT ; R3 ADR ; R4 PCB PCB ; R7 LINK DESTROYED ; ; RETURNS: ; ERR┆
0x31d00…31d80 UnusedSector ┆OR=LINK+0 ; DONE=LINK+1 ; ;---------------------------------------------------------------------- PCBGETPOS: ; BEGIN GETPOS(PCB,┆
0x31d80…31e00 UnusedSector ┆ ADR, CNT) MOV R7 PCBSV7.X4 ; MOV PCBSTA.X4 R7 ; IBZ R7 RDTYPB ; IF READ TYPE PCB THEN JMP PC1050 ; BEGIN INE R7 RDGETP ; I┆
0x31e00…31e80 UnusedSector ┆F OPERATION NOT ALLOWED THEN JMP PCBERR1 ; CALL ERROR(1) MOV PCBPCX.X4 R7 ; IBN R7 0 ; IF ON HALFWORD BOUNDARY THEN JMP PCBE┆
0x31e80…31f00 UnusedSector ┆RR3 ; CALL ERROR(3) MOV PCBBRC.X4 R2 ; IEQP R2 0 ; IF PCBBRC = 0 THEN MOV R5 PCBSV5.X4 ; JMP S5 PCBNXB ; GET NEXT BUFFER MO┆
0x31f00…31f80 UnusedSector ┆V PCBBRC.X4 R2 ; CNT:=PCBBRC JMP PC1080 ; END PC1050: ; ELSE ; BEGIN INE R7 WRGETP ; IF OPERATION NOT ALLOWED THEN JMP PCBER┆
0x31f80…32000 UnusedSector ┆R1 ; CALL ERROR(1) MOV PCBPCX.X4 R7 ; IBN R7 0 ; IF ON HALFWORD BOUNDARY THEN JMP PCBERR3 ; CALL ERROR(3) MOV PCBBRC.X4 R2 ;┆
0x32000…32080 UnusedSector ┆ IEQP R2 0 ; IF PCBBRC = 0 THEN MOV R5 PCBSV5.X7 ; JMP S5 PCBGTBF ; GET A NEW BUFFER MOV PCBBRC.X4 R2 ; CNT:=PCBBRC ; END P┆
0x32080…32100 UnusedSector ┆C1080: ; MOV PCBBCX.X4 R3 ; SRL R3 1 ; MOD CBASE-C ; ADDC BUFCHD>1 R3 ; ADR:=BASE + (PCBBCX+BUFCHD)/2 ADD PCBCBA.X4 R3 ; + ┆
0x32100…32180 UnusedSector ┆PCBCBA INC PCBSV7.X4 ; RETURN(LINK+1) JMPI PCBSV7.X4 ; END ;------------------------------------------------------------------┆
0x32180…32200 UnusedSector ┆----- ; ; PROCEDURE HOME(PCB),(ERROR,DONE) ; ; HOME IS USED TO RESET THE CHARACTER INDEX TO ZERO (START OF PACKET). ; ; INPUT: ;┆
0x32200…32280 UnusedSector ┆ PCB RELATIVE REFERENCE TO A FREE MEMORY AREA OF PCBLGT ; WORDS. ; ; R4 PCB PCB ; R7 LINK DESTROYED ; ; RETURNS: ; ERROR=LINK+0 ┆
0x32280…32300 UnusedSector ┆; DONE=LINK+1 ; ;---------------------------------------------------------------------- PCBHOME: ; BEGIN HOME(PCB) MOV R7 PCBS7┆
0x32300…32380 UnusedSector ┆7.X4 ; MOV R2 PCBSV2.X4 ; MOV PCBPCX.X4 R2 ; CNT:=PCBPCX MON BACKSPC ; BACKSPACE(PCB, CNT) JMPI PCBS77.X4 ; IF ERROR THEN RE┆
0x32380…32400 UnusedSector ┆TURN(LINK+0) INC PCBS77.X4 ; RETURN(LINK+1) MOV PCBSV2.X4 R2 ; JMPI PCBS77.X4 ; END ;----------------------------------------┆
0x32400…32480 UnusedSector ┆------------------------------- ; ; PROCEDURE WRITECHAR(PCB,CHAR),(ERROR,DONE) ; ; WRITECHAR STORES THE BYTE CHAR IN THE CURRENT┆
0x32480…32500 UnusedSector ┆ PACKET AT THE POSITION ; INDICATED BY THE CHARACTER INDEX AND INCREMENTS THE CHARACTER INDEX B ; Y 1. ; ; INPUT: ; PCB RELATIVE┆
0x32500…32580 UnusedSector ┆ REFERENCE TO A FREE MEMORY AREA OF PCBLGT ; WORDS. ; CHAR A BYTE VALUE ; ; REGISTER CALL EXIT ; R3 CHAR CHAR ; R4 PCB PCB ; R7 ┆
0x32580…32600 UnusedSector ┆LINK DESTROYED ; ; RETURNS: ; ERROR=LINK+0 ; DONE=LINK+1 ; ;--------------------------------------------------------------------┆
0x32600…32680 UnusedSector ┆-- PCBWRCH: ; BEGIN WRITECHAR(PCB, CHAR) MOV R7 PCBSV7.X4 ; MOV PCBSTA.X4 R7 ; INE R7 WRCH ; IF OPERATION NOT ALLOWED THEN J┆
0x32680…32700 UnusedSector ┆MP PCBERR1 ; CALL ERROR(1) SONP PCBBRC.X4 ; IF PCBBRC=0 THEN MOV R5 PCBSV5.X4 ; JMP S5 PCBGTBF ; GET A NEW BUFFER DEC PCBBRC┆
0x32700…32780 UnusedSector ┆.X4 ; PCBBRC:=PCBBRC-1 MOV PCBBCX.X4 R7 ; MOD PCBCBA.X4 ; MOVB R3 BUFCHD.X7 ; BYTE((PCBCBA)*2+PCBBCX+BUFCHD):= ; CHAR INC P┆
0x32780…32800 UnusedSector ┆CBBCX.X4 ; PCBBCX:=PCBBCX+1 INC PCBPCX.X4 ; PCBPCX:=PCBPCX+1 INC PCBSV7.X4 ; JMPI PCBSV7.X4 ; RETURN(LINK+1) ; END ;--------┆
0x32800…32880 UnusedSector ┆--------------------------------------------------------------- ; ; PROCEDURE WRITEWORD(PCB,WORD),(ERROR,DONE) ; ; WRITEWORD STO┆
0x32880…32900 UnusedSector ┆RES THE WORD IN THE CURRENT PACKET AT THE POSITION INDIC ; ATED BY THE CHARACTER INDEX AND INCREMENTS THE CHARACTER INDEX BY 2. ┆
0x32900…32980 UnusedSector ┆; THE CHARACTER INDEX MUST BE EVEN AT CALL. ; ; INPUT: ; PCB RELATIVE REFERENCE TO A FREE MEMORY AREA OF PCBLGT ; WORDS. ; WORD ┆
0x32980…32a00 UnusedSector ┆A 16 BIT VALUE ; ; REGISTER CALL EXIT ; R3 WORD WORD ; R4 PCB PCB ; R7 LINK DESTROYED ; ; RETURNS: ; ERROR=LINK+0 ; DONE=LINK+1 ┆
0x32a00…32a80 UnusedSector ┆; ;---------------------------------------------------------------------- PCBWRWD: ; BEGIN WRITEWORD(PCB, WORD) MOV R7 PCBSV7.X┆
0x32a80…32b00 UnusedSector ┆4 ; MOV PCBSTA.X4 R7 ; INE R7 WRWD ; IF OPERATION NOT ALLOWED THEN JMP PCBERR1 ; CALL ERROR(1) MOV PCBBCX.X4 R7 ; IBN R7 0 ┆
0x32b00…32b80 UnusedSector ┆; IF ON HALFWORD BOUNDARY THEN JMP PCBERR3 ; CALL ERROR(3) MOV PCBBRC.X4 R7 ; ILOP R7 2 ; IF PCBBRC < 2 THEN MOV R5 PCBSV5.X┆
0x32b80…32c00 UnusedSector ┆4 ; JMP S5 PCBGTBF ; GET A NEW BUFFER MOV PCBBCX.X4 R7 ; SRL R7 1 ; ADD PCBCBA.X4 R7 ; (PCBCBA+(PCBBCX+BUFCHD)/2):=WORD MOV┆
0x32c00…32c80 UnusedSector ┆ R3 BUFCHD>1.X7; INC PCBBCX.X4 ; INC PCBBCX.X4 ; PCBBCX:=PCBBCX+2 INC PCBPCX.X4 ; INC PCBPCX.X4 ; PCBPCX:=PCBPCX+2 DEC PCBB┆
0x32c80…32d00 UnusedSector ┆RC.X4 ; DEC PCBBRC.X4 ; PCBBRC:=PCBBRC-2 INC PCBSV7.X4 ; RETURN(LINK+1) JMPI PCBSV7.X4 ; END ;-------------------------------┆
0x32d00…32d80 UnusedSector ┆---------------------------------------- ; ; PROCEDURE WRITEBLOCK(PCB,SOURCE,CNT),(ERROR,DONE) ; ; WRITEBLOCK COPIES A BLOCK OF ┆
0x32d80…32e00 UnusedSector ┆WORDS FROM THE LOCATIONS DEFINED BY SOUR ; CE AND CNT AND STORES THEM IN THE CURRENT PACKET STARTING AT THE POSI ; TION INDICATE┆
0x32e00…32e80 UnusedSector ┆D BY THE CHARACTER INDEX. THE CHARACTER INDEX IS INCREME ; TED BY 2*CNT. ; THE CHARACTER INDEX MUST BE EVEN AT CALL. ; ; INPUT: ┆
0x32e80…32f00 UnusedSector ┆; PCB RELATIVE REFERENCE TO A FREE MEMORY AREA OF PCBLGT ; WORDS. ; SOURCE RELATIVE WORD ADRESS ; CNT NUMBER OF WORDS ; ; OUTPUT┆
0x32f00…32f80 UnusedSector ┆: ; SOURCE UPDATED ; CNT UPDATED ; ; REGISTER CALL EXIT ; R2 CNT CNT ; R3 SOURCE SOURCE ; R4 PCB PCB ; R7 LINK DESTROUED ; ; RET┆
0x32f80…33000 UnusedSector ┆URNS: ; ERROR=LINK+0 ; DONE=LINK+1 ; ; ;---------------------------------------------------------------------- PCBWRBL: ; BEGIN ┆
0x33000…33080 UnusedSector ┆WRITEBLOCK(PCB, SOURCE, CNT) MOV R7 PCBSV7.X4 ; MOV PCBSTA.X4 R7 ; INE R7 WRBL ; IF OPERATION NOT ALLOWED THEN JMP PCBERR1 ;┆
0x33080…33100 UnusedSector ┆ CALL ERROR(1) MOV PCBBCX.X4 R7 ; IBN R7 0 ; IF ON HALFWORD BOUNDARY THEN JMP PCBERR3 ; CALL ERROR(3) PC1410: ; MOV R1 PCBSV┆
0x33100…33180 UnusedSector ┆1.X4 ; DO WHILE CNT <> 0 MOV PCBBCX.X4 R7 ; X:=PCBBCX MOV PCBBRC.X4 R1 ; SRL R1 1 ; N:=PCBBRC/2 ILO R2 R1 ; N:=MIN(CNT, N) ┆
0x33180…33200 UnusedSector ┆MOV R2 R1 ; SLL R1 1 ; N:=N*2 JOZ R1 PC1440 ; ADD R1 PCBBCX.X4 ; PCBBCX:=PCBBCX+N ADD R1 PCBPCX.X4 ; PCBPCX:=PCBPCX+N SUB R┆
0x33200…33280 UnusedSector ┆1 PCBBRC.X4 ; PCBBRC:=PCBBRC-N SRL R1 1 ; N:=N/2 SUB R1 R2 ; CNT:=CNT-N SRL R7 1 ; X:=X/2 ADD PCBCBA.X4 R7 ; ADDC BUFCHD>1 ┆
0x33280…33300 UnusedSector ┆R7 ; D:=X+PCBCBA+BUFCHD/2 XCH R7 R3 ; S:=SOURCE MOV R5 PCBSV5.X4 ; JMP S5 PCBMOV ; MOV PCBSV5.X4 R5 ; XCH R3 R7 ; PC1440: ;┆
0x33300…33380 UnusedSector ┆ MOV PCBSV1.X4 R1 ; JOZ R2 PC1450 ; IF CNT <> 0 THEN MOV R5 PCBSV5.X4 ; JMP S5 PCBGTBF ; GET A NEW BUFFER JMP PC1410 ; OD P┆
0x33380…33400 UnusedSector ┆C1450: ; INC PCBSV7.X4 ; RETURN(LINK+1) JMPI PCBSV7.X4 ; END ;----------------------------------------------------------------┆
0x33400…33480 UnusedSector ┆------- ; ; PROCEDURE RESUMPACK(PCB),(ERROR,DONE) ; ; THIS PROCEDURE IS USED TO DISCONNECT TE CURRENT PACKET FROM THE PCB A ; ND┆
0x33480…33500 UnusedSector ┆ LINK IT IN THE FRONT OF THE QUEUE CONNECTED TO THE PCB. ; MAY ONLY BE CALLED FOR READ TYPE PCBS. ; ; INPUT: ; PCB RELATIVE REFE┆
0x33500…33580 UnusedSector ┆RENCE TO A FREE MEMORY AREA OF PCBLGT ; WORDS ; ; REGISTER CALL EXIT ; R4 PCB PCB ; R7 LINK DESTROYED ; ; RETURNS: ; ERROR=LINK+┆
0x33580…33600 UnusedSector ┆0 ; DONE =LINK+1 ; ;---------------------------------------------------------------------- PCBRESUM: ; BEGIN RESUMEPACK(PCB) MO┆
0x33600…33680 UnusedSector ┆V R7 PCBSV7.X4 ; MOV PCBSTA.X4 R7 ; INE R7 RSMP ; IF OPERATION NOT ALLOWED THEN JMP PCBERR1 ; CALL ERROR(1) MOV R5 PCBSV5.X4┆
0x33680…33700 UnusedSector ┆ ; MOV R6 PCBSV6.X4 ; MOV PCBQUE.X4 R5 ; QUE:=PCBQUE MOV PCBFBA.X4 R6 ; PCK:=PCBFBA MOV R2 PCBSV2.X4 ; MOVC QURTC R2 ; N:=Q┆
0x33700…33780 UnusedSector ┆UE RESERVE TRY COUNT PC1510: ; WAITQUE: IEQ R2 0 ; IF N=0 THEN JMP PCBERR4 ; CALL ERROR(4) ADDC -1 R2 ; N:=N-1 MON STKPACK ;┆
0x33780…33800 UnusedSector ┆ STACKPACKET(QUE,PCK), JMP & PC1510 ; (QUEBUSY: GO TO WAITQUE, ; DONE: CONTINUE) MOV PCBSV2.X4 R2 ; MOV PCBSV5.X4 R5 ; MOV ┆
0x33800…33880 UnusedSector ┆PCBSV6.X4 R6 ; MOVC PCSTA7 R7 ; PCBSTA:=(QUE CONNECTED,READTYPE, ; INITIALISED) MOV R7 PCBSTA.X4 ; INC PCBSV7.X4 ; RETURN(LI┆
0x33880…33900 UnusedSector ┆NK+1) JMPI PCBSV7.X4 ; END ;----------------------------------------------------------------------- ; ; PROCEDURE STORECOUNT(PC┆
0x33900…33980 UnusedSector ┆B,POS,OFFSET),(ERROR,DONE) ; ; STORECOUNT IS USED TO STORE THE CURRENT CHARACTER INDEX VALUE LESS THE ; OFFSET IN THE PACKET AT ┆
0x33980…33a00 UnusedSector ┆THE POSITION INDICATED BY POS. ; ; INPUT: ; OFFSET CHARACTER COUNT OFFSET VALUE ; PCB RELATIVE REFERENCE TO A FREE MEMORY AREA O┆
0x33a00…33a80 UnusedSector ┆F PCBLGT ; WORDS. ; POS WORD POSITION IN PACKET ; ; OUTPUT: ; CNT CURRENT VALUE OF CHARACTER INDEX VALUE LESS THE ; OFFSET. ; ; ┆
0x33a80…33b00 UnusedSector ┆REGISTER CALL EXIT ; R2 OFFSET OFFSET ; R3 POS DESTROYED ; R4 PCB PCB ; R7 LINK CNT ; ; RETURNS: ; ERROR=LINK+0 ; DONE=LINK+1 ; ┆
0x33b00…33b80 UnusedSector ┆;---------------------------------------------------------------------- PCBSTCNT: ; BEGIN STORECOUNT(PCB,POS) MOV R7 PCBSV7.X4 ┆
0x33b80…33c00 UnusedSector ┆; MOV PCBSTA.X4 R7 ; INE R7 STCNT ; IF OPERATION NOT ALLOWED THEN JMP PCBERR1 ; CALL ERROR(1) MOV PCBTPN.X4 R7 ; SRL R7 1 ;┆
0x33c00…33c80 UnusedSector ┆ ILO R7 R3 ; IF POS > PCBTPCN/2 THEN JMP PCBERR2 ; CALL ERROR(2) MOV PCBBFL.X4 R7 ; SRL R7 1 ; X:=PCBBFL/2 MOV R5 PCBSV5.X4┆
0x33c80…33d00 UnusedSector ┆ ; MOV PCBFBA.X4 R5 ; Y:=PCBFBA PC1610: ; ILO R3 R7 ; DO WHILE POS < X JMP PC1620 ; SUB R7 R3 ; POS:=POS-X MOV BUFLNK.X5 R5┆
0x33d00…33d80 UnusedSector ┆ ; SUB CBASE-C R5 ; Y:=BUFLNK.Y JMP PC1610 ; OD PC1620: ; ADD R3 R5 ; Y:=Y+POS MOV PCBPCX.X4 R7 ; SUB R2 R7 ; PCBPCX-OFFSET┆
0x33d80…33e00 UnusedSector ┆ MOV R7 BUFCHD>1.X5; =>(BUFCHD/2).Y MOV R7 7 ; PCBPCX-OFFSET=>CNT MOV PCBSV5.X4 R5 ; INC PCBSV7.X4 ; RETURN(LINK+1) JMPI PC┆
0x33e00…33e80 UnusedSector ┆BSV7.X4 ; END ;----------------------------------------------------------------------- ; ; PROCEDURE COPYPACK(PCB,QUE),(ERROR,DO┆
0x33e80…33f00 UnusedSector ┆NE) ; ; THIS PROCEDURE IS USED TO DISCONNECT THE CURRENT PACKET FROM THE PCB ; AND TRANSFER IT TO THE REAR OF THE QUEUE DESIGNAT┆
0x33f00…33f80 UnusedSector ┆ED BY QUE. ; MAY ONLY BE CALLED FOR READ TYPE PCBS. ; ; INPUT: ; PCB RELATIVE REFERENCE TO A FREE MEMORY AREA OF PCBLGT ; WORDS ┆
0x33f80…34000 UnusedSector ┆; QUE ABSOLUTE REFERENCE TO THE QUEUE ; ; REGISTER CALL EXIT ; R3 QUE QUE ; R4 PCB PCB ; R7 LINK DESTROYED ; ; RETURNS: ; ERROR=┆
0x34000…34080 UnusedSector ┆LINK+0 ; DONE=LINK+1 ; ;---------------------------------------------------------------------- PCBCOPY: ; BEGIN COPYPACK(PCB,QUE┆
0x34080…34100 UnusedSector ┆) MOV R7 PCBSV7.X4 ; MOV PCBSTA.X4 R7 ; INE R7 COPP ; IF OPERATION NOT ALLOWED THEN JMP PCBERR1 ; CALL ERROR(1) MOV R5 PCBS┆
0x34100…34180 UnusedSector ┆V5.X4 ; MOV R6 PCBSV6.X4 ; MOV R2 PCBSV2.X4 ; MOV PCBFBA.X4 R6 ; PCK:=PCBFBA MOV R3 R5 ; QUE:=REF.QUE MOVC QURTC R2 ; N:= Q┆
0x34180…34200 UnusedSector ┆UE RESERVE TRY COUNT PC1710: ; WAITQUE: IEQ R2 0 ; IF N=0 THEN JMP PCBERR4 ; CALL ERROR(4) ADDC -1 R2 ; N:=N-1 MON ENQPACK ;┆
0x34200…34280 UnusedSector ┆ ENQUEPACKET(QUE,PCK), JMP & PC1710 ; (QUEBUSY: GO TO WAITQUE, ; DONE: CONTINUE) MOV PCBSV2.X4 R2 ; MOV PCBSV5.X4 R5 ; MOV ┆
0x34280…34300 UnusedSector ┆PCBSV6.X4 R6 ; MOVC PCSTA7 R7 ; PCBSTA:=(QUE CONNECTED, READTYPE ; ,INITIALISED) MOV R7 PCBSTA.X4 ; INC PCBSV7.X4 ; RETURN(L┆
0x34300…34380 UnusedSector ┆INK+1) JMPI PCBSV7.X4 ; END ;----------------------------------------------------------------------- ; ; PROCEDURE REGRETPACK(P┆
0x34380…34400 UnusedSector ┆CB),(ERROR,DONE) ; ; REGRETPACK TERMINATES WRITING TO THE CURRENT PACKET AND RETURNS ITS B ; UFFERS TO THE VACANCY POOL. ; ; INP┆
0x34400…34480 UnusedSector ┆UT: ; PCB RELATIVE REFERENCE TO A MEMORY AREA OF PCBLGT WORD ; ; REGISTERS CALL EXIT ; R4 PCB PCB ; R7 LINK DESTROYED ; ; RETURN┆
0x34480…34500 UnusedSector ┆S: ; ERROR=LINK+0 ; DONE=LINK+1 ; ;---------------------------------------------------------------------- PCBRGP: ; BEGIN REGRET┆
0x34500…34580 UnusedSector ┆PACK(PCB) MOV R7 PCBSV7.X4 ; MOV PCBSTA.X4 R7 ; INE R7 TMWR ; IF OPERATION NOT ALLOWED THEN JMP PCBERR1 ; CALL ERROR(1) JMP┆
0x34580…34600 UnusedSector ┆ PC0455 ; ELSE GO TO RELEASE PACKET ;----------------------------------------------------------------------- PRGLGT:= LOC USE BA┆
0x34600…34680 UnusedSector ┆SE XNAME0= <:BQ:> XNAME1= <:M:> XBUFS=2 XREFS=2 XPRPC= BQMSTART NOLIST ; $S8MXPX2 LIST POOLST:= LOC+PRGLGT POLTOPX:= POOLGT+POOL┆
0x34680…34700 UnusedSector ┆ST-BUFWDS+1 MEMTOP:= POOLST+13+BQMLOC+POOLGT MESSAGE MEMTOP END ------------------------------------------ PRGLGT:= LOC USE BA┆
0x34700…34780 UnusedSector ┆ I < { NOT READY TIME OUT REJECTED ILLEGAL UNCOMPLETE ERROR END-OF-FILE PARITY ERROR READ ERROR WRITE ┆
0x34780…34800 UnusedSector ┆ERROR FULL RESULT BIT 11 RESULT BIT 12 UNKNOWN NO REFS BUSY ! ' * 0 7 = C F M T X \ V p V s V t V v V u V L |lNV ┆
0x34800…34880 UnusedSector ┆h K: _ ]V h I q N_ q" . Z ] STATUS: ZV j K# d ]V k V n V L OO@V l V ,PARAMETER SYNTAX ERROR OBJECT FILE ┆
0x34880…34900 UnusedSector ┆FULL SOURCE OPEN ERROR OBJECT OPEN ERROR lN Z ] + zlN ZK# d ] $V j V p V v j ;PROM CR116 X VH T ^ ┆
0x34900…34980 UnusedSector ┆ ;H Z O ; H CN D HH 'HB %V v V h HF V n h \ 'X H jV h ┆
0x34980…34a00 UnusedSector ┆ VPHN $ / ` V w V L _V o @ # ^ `^ H ^ { H ^ @ Id kL H0 0^'J KL H D X @ hX X ┆
0x34a00…34a80 UnusedSector ┆E X hpR iX X X hR O| S~ X HW hX H I J@K L[ RHS SX H@ V H (C Hp H I J K V L RHWMd SX H@ H (C Hp ( V n V I ┆
0x34a80…34b00 UnusedSector ┆ V n L[V I a 6 ; PROM PARITY GENERATION PROGRAM VERSION 780126 V L Z ]V O H + M3V N V V H + M5V N V H K M2V N V ┆
0x34b00…34b80 UnusedSector ┆V H K M4V N V L[ TV L TlM YlN Y A I < { d / d ┆
0x34b80…34c00 UnusedSector ┆░░ 3 / / U ' BINCOY OC ┆
0x34c00…34c80 UnusedSector 0x00[128]
[…0x4…]
0x34e80…34f00 UnusedSector ┆ < ┆
0x34f00…34f80 UnusedSector ┆ OC F F F ┆
0x34f80…35000 UnusedSector ┆ ┆
0x35000…35080 UnusedSector 0x00[128]
0x35080…35100 UnusedSector ┆ OC * ┆
0x35100…35180 UnusedSector 0x00[128]
[…0x1…]
0x35200…35280 UnusedSector ┆ @ w w ┆
0x35280…35300 UnusedSector 0x00[128]
[…0x2…]
0x35400…35480 UnusedSector ┆BEGIN MODULE $S8MNAX LIST MUPE04:= #E0 USE PROG L0:= #6CB L00:= #6CE L810:= #7F3 LOC= #6B4 MON SEARCHPROCESS JMP & S5 L0 SUB┆
0x35480…35500 UnusedSector ┆ CBASE-C R1 IBZ 0. X1 BNWPA JMP S5 L0 JMP L810 -1,-1 LOC= # 11E0 MON SEARCHPROCESS JMP & S5 L0 MOV R1 R6 MODN CBASE-C ┆
0x35500…35580 UnusedSector ┆ MOV PARENT.X6 R1 MOV CBASE-C R6 ADDC -MUPE04 +ITEM R6 INE R1 R6 JMP S5 L0 MON STOPPROCESS DEC WSAVE- -C-W. X7 JMP L00 ┆
0x35580…35600 UnusedSector ┆ -1,-1 LOC= #6AE JMP #11E0 END S5 L0 JMP L810 -1,-1 LOC= # 11E0 MON SEARCHPROCESS JMP & S5 L0 MOV R1 R6 MODN CBASE-C ┆
0x35600…35680 UnusedSector 0x1a[128]
[…0x1b…]
0x36400…36480 UnusedSector ┆;---------------------------------------------------------------------- PCBCOPY: ; BEGIN COPYPACK(PCB,QUE) MOV R7 PCBSV7.X4 ; ┆
0x36480…36500 UnusedSector ┆MOV PCBSTA.X4 R7 ; INE R7 COPP ; IF OPERATION NOT ALLOWED THEN JMP PCBERR1 ; CALL ERROR(1) MOV R5 PCBSV5.X4 ; MOV R6 PCBSV6.┆
0x36500…36580 UnusedSector ┆X4 ; MOV R2 PCBSV2.X4 ; MOV PCBFBA.X4 R6 ; PCK:=PCBFBA MOV R3 R5 ; QUE:=REF.QUE MOVC QURTC R2 ; N:= QUE RESERVE TRY COUNT PC┆
0x36580…36600 UnusedSector ┆1710: ; WAITQUE: IEQ R2 0 ; IF N=0 THEN JMP PCBERR4 ; CALL ERROR(4) ADDC -1 R2 ; N:=N-1 MON ENQPACK ; ENQUEPACKET(QUE,PCK), ┆
0x36600…36680 UnusedSector ┆ JMP & PC1710 ; (QUEBUSY: GO TO WAITQUE, ; DONE: CONTINUE) MOV PCBSV2.X4 R2 ; MOV PCBSV5.X4 R5 ; MOV PCBSV6.X4 R6 ; MOVC PC┆
0x36680…36700 UnusedSector ┆STA7 R7 ; PCBSTA:=(QUE CONNECTED, READTYPE ; ,INITIALISED) MOV R7 PCBSTA.X4 ; INC PCBSV7.X4 ; RETURN(LINK+1) JMPI PCBSV7.X4 ┆
0x36700…36780 UnusedSector ┆; END ;----------------------------------------------------------------------- ; ; PROCEDURE REGRETPACK(PCB),(ERROR,DONE) ; ; RE┆
0x36780…36800 UnusedSector ┆GRETPACK TERMINATES WRITING TO THE CURRENT PACKET AND RETURNS ITS B ; UFFERS TO THE VACANCY POOL. ; ; INPUT: ; PCB RELATIVE REFE┆
0x36800…36880 UnusedSector ┆RENCE TO A MEMORY AREA OF PCBLGT WORD ; ; REGISTERS CALL EXIT ; R4 PCB PCB ; R7 LINK DESTROYED ; ; RETURNS: ; ERROR=LINK+0 ; DON┆
0x36880…36900 UnusedSector ┆E=LINK+1 ; ;---------------------------------------------------------------------- PCBRGP: ; BEGIN REGRETPACK(PCB) MOV R7 PCBSV┆
0x36900…36980 UnusedSector ┆7.X4 ; MOV PCBSTA.X4 R7 ; INE R7 TMWR ; IF OPERATION NOT ALLOWED THEN JMP PCBERR1 ; CALL ERROR(1) JMP PC0455 ; ELSE GO TO RE┆
0x36980…36a00 UnusedSector ┆LEASE PACKET ;----------------------------------------------------------------------- PRGLGT:= LOC USE BASE XNAME0= <:BQ:> XNAME┆
0x36a00…36a80 UnusedSector ┆1= <:M:> XBUFS=2 XREFS=2 XPRPC= BQMSTART NOLIST ; ; CR80 SYSTEM ONE ; MONITOR ; MASTER: XPD - PROCESS DESCRIPTION (PART 2) IF┆
0x36a80…36b00 UnusedSector ┆ XPD EQ UTILITYLENGTH OR XPD EQ PROGLENGTH THEN USE PROG XPSTATE= BMREENTRANT XREFS= 0 XBUFS= 1 XWORDS= 0 XPSIZE= LOC XCHA┆
0x36b00…36b80 UnusedSector ┆IN= 0 XPCOUNT= 1 XPNAME0= 0 XPNAME1= 0 XPNAME2= 0 XIDENT= 0 XPRPC= PROGLENGTH FI USE BASE IF XPD GT PROGLENGTH THEN XLOC=┆
0x36b80…36c00 UnusedSector ┆ LOC-XLOC-C XSTATE= 0 XPARENT= 0 XNEXT= 0 XCHILD= 0 XCHAIN= 0 XKIND= 0 XNAME0= 0 XNAME1= 0 XNAME2= 0 XIDENT= 0 XPROCI┆
0x36c00…36c80 UnusedSector ┆DENT= 0 XDEBUG= 0 XCBASE= 0 XCBASEMOD= 0 XPRPC= 0 XTIMER= 100 XPSW= 0 XOLDPROC= 0 XLOCACTION= LOCACT XLOCRETURN= 0 XCA┆
0x36c80…36d00 UnusedSector ┆USE= 0 XDEVPR= 0 XPRESET= 100 XERROR= 0 XWARNING= 0 XTERMINATE= 0 XRESERVER= 0 XDEVICE= 0 XINTERRUPT= 0 XACTION= LOCACT┆
0x36d00…36d80 UnusedSector ┆ XEOFACTION= LOCACT IF XPD GT CURSIN THEN IF LOC NE CURSIN+XLOC THEN MESSAGE <:ERROR: XCURSIN LENGTH:> FI XCURIN= LOC BEGIN US┆
0x36d80…36e00 UnusedSector ┆E BASE XSHARE: XSNAME: XSNAME0 IF NAMELENGTH GT 1 THEN XSNAME1 IF NAMELENGTH GT 2 THEN XSNAME2 IF NAMELENGTH GT 3 THEN 0 REPE┆
0x36e00…36e80 UnusedSector ┆AT NAMELENGTH-3-1 FI FI FI IF LOC-XSNAME NE NAMELENGTH THEN MESSAGE <:ERROR: XSNAME LENGTH:> FI XSIDENT 0 ; SPROCIDENT XSMODE┆
0x36e80…36f00 UnusedSector ┆ XSKIND 0 REPEAT 6 ; SMASK - SFILE XSFIRST XSTOP XSREM XSBUFSIZE XSUSED XSSID: 0 IF IDLENGTH GT 1 THEN 0 IF IDLENGTH GT ┆
0x36f00…36f80 UnusedSector ┆2 THEN 0 IF IDLENGTH GT 3 THEN 0 REPEAT IDLENGTH-3-1 FI FI FI IF LOC-XSSID NE IDLENGTH THEN MESSAGE <:ERROR: XSSID LENGTH:> FI┆
0x36f80…37000 UnusedSector ┆ 0 IF LOC-XSSID NE STACKLENGTH THEN MESSAGE <:ERROR: STACK LENGTH:> FI 0 REPEAT 9 ; SSAVE0 - SSAVE9 IF LOC-XSHARE NE SHARELENG┆
0x37000…37080 UnusedSector ┆TH THEN MESSAGE <:ERROR: XSHARE LENGTH:> FI XSBUFFERS= 1 XSNAME0= <:OC:> XSMODE= BMINPUT OR BMBYTE XSKIND= KINDOC OR BMBYTE OR┆
0x37080…37100 UnusedSector ┆ BMDISP XSBUFSIZE= 128 XSBUFFERS= 2 IF XSMODE>BNBYTE THEN XSFACTOR=2 IF XSBUFSIZE THEN XSFILL=1 ELSE XSFILL=0 FI ELSE XSFAC┆
0x37100…37180 UnusedSector ┆TOR=1 XSFILL=0 FI XSNAME0= 0 XSNAME1= 0 XSNAME2= 0 XSIDENT= 0 XSFIRST= (LOC+XSBUFFERS*BUFFERLENGTH)*XSFACTOR XSTOP= XSFI┆
0x37180…37200 UnusedSector ┆RST IF XSMODE>BNOPUT THEN XSREM= XSBUFSIZE ELSE XSREM= 0 FI XSUSED= LOC XSBUFFER= XSBUFFERS*(XSBUFSIZE+XSFILL) XSBUFAREA=┆
0x37200…37280 UnusedSector ┆ (XSUSED+XSBUFFERS*BUFFERLENGTH)*XSFACTOR IF XSBUFFERS GT 0 THEN 0 REPEAT BFIRST-1 XSBUFAREA, XSBUFAREA=XSBUFAREA+XSBUFSIZE+XS┆
0x37280…37300 UnusedSector ┆FILL IF XSBUFFERS GT 1 THEN LOC-BNEXT+BUFFERLENGTH ELSE XSUSED FI XSBUFFERS=XSBUFFERS-1 FI IF XSBUFFERS GT 0 THEN 0 REPEAT┆
0x37300…37380 UnusedSector ┆ BFIRST-1 XSBUFAREA, XSBUFAREA=XSBUFAREA+XSBUFSIZE+XSFILL IF XSBUFFERS GT 1 THEN LOC-BNEXT+BUFFERLENGTH ELSE XSUSED FI XSB┆
0x37380…37400 UnusedSector ┆UFFERS=XSBUFFERS-1 FI IF XSMODE>BNBYTE AN (NT XSKIND>BNBYTE) AN XSBUFAREA>15 THEN MESSAGE <:ADDR TOO BIG:> FI IF XSBUFFER GT ┆
0x37400…37480 UnusedSector ┆0 THEN 0 REPEAT (XSBUFFER-1)/XSFACTOR FI END IF XPD GT CURSOUT THEN IF LOC NE CURSOUT+XLOC THEN MESSAGE <:ERROR: XCURSOUT LENG┆
0x37480…37500 UnusedSector ┆TH:> FI XCUROUT= LOC BEGIN USE BASE XSHARE: XSNAME: XSNAME0 IF NAMELENGTH GT 1 THEN XSNAME1 IF NAMELENGTH GT 2 THEN XSNAME2 IF┆
0x37500…37580 UnusedSector ┆ NAMELENGTH GT 3 THEN 0 REPEAT NAMELENGTH-3-1 FI FI FI IF LOC-XSNAME NE NAMELENGTH THEN MESSAGE <:ERROR: XSNAME LENGTH:> FI XS┆
0x37580…37600 UnusedSector ┆IDENT 0 ; SPROCIDENT XSMODE XSKIND 0 REPEAT 6 ; SMASK - SFILE XSFIRST XSTOP XSREM XSBUFSIZE XSUSED XSSID: 0 IF IDLENGTH┆
0x37600…37680 UnusedSector ┆ GT 1 THEN 0 IF IDLENGTH GT 2 THEN 0 IF IDLENGTH GT 3 THEN 0 REPEAT IDLENGTH-3-1 FI FI FI IF LOC-XSSID NE IDLENGTH THEN MESSA┆
0x37680…37700 UnusedSector ┆GE <:ERROR: XSSID LENGTH:> FI 0 IF LOC-XSSID NE STACKLENGTH THEN MESSAGE <:ERROR: STACK LENGTH:> FI 0 REPEAT 9 ; SSAVE0 - SSAV┆
0x37700…37780 UnusedSector ┆E9 IF LOC-XSHARE NE SHARELENGTH THEN MESSAGE <:ERROR: XSHARE LENGTH:> FI XSBUFFERS= 1 XSNAME0= <:OC:> XSMODE= BMOUTPUT OR BMBY┆
0x37780…37800 UnusedSector ┆TE XSKIND= KINDOC OR BMBYTE OR BMDISP XSBUFSIZE= 128 XSBUFFERS= 2 IF XSMODE>BNBYTE THEN XSFACTOR=2 IF XSBUFSIZE THEN XSFILL=1 ┆
0x37800…37880 UnusedSector ┆ ELSE XSFILL=0 FI ELSE XSFACTOR=1 XSFILL=0 FI XSNAME0= 0 XSNAME1= 0 XSNAME2= 0 XSIDENT= 0 XSFIRST= (LOC+XSBUFFERS*BUFFE┆
0x37880…37900 UnusedSector ┆RLENGTH)*XSFACTOR XSTOP= XSFIRST IF XSMODE>BNOPUT THEN XSREM= XSBUFSIZE ELSE XSREM= 0 FI XSUSED= LOC XSBUFFER= XSBUFFERS*┆
0x37900…37980 UnusedSector ┆(XSBUFSIZE+XSFILL) XSBUFAREA= (XSUSED+XSBUFFERS*BUFFERLENGTH)*XSFACTOR IF XSBUFFERS GT 0 THEN 0 REPEAT BFIRST-1 XSBUFAREA, XS┆
0x37980…37a00 UnusedSector ┆BUFAREA=XSBUFAREA+XSBUFSIZE+XSFILL IF XSBUFFERS GT 1 THEN LOC-BNEXT+BUFFERLENGTH ELSE XSUSED FI XSBUFFERS=XSBUFFERS-1 FI IF┆
0x37a00…37a80 UnusedSector ┆ XSBUFFERS GT 0 THEN 0 REPEAT BFIRST-1 XSBUFAREA, XSBUFAREA=XSBUFAREA+XSBUFSIZE+XSFILL IF XSBUFFERS GT 1 THEN LOC-BNEXT+BUFF┆
0x37a80…37b00 UnusedSector ┆ERLENGTH ELSE XSUSED FI XSBUFFERS=XSBUFFERS-1 FI IF XSMODE>BNBYTE AN (NT XSKIND>BNBYTE) AN XSBUFAREA>15 THEN MESSAGE <:ADDR┆
0x37b00…37b80 UnusedSector ┆ TOO BIG:> FI IF XSBUFFER GT 0 THEN 0 REPEAT (XSBUFFER-1)/XSFACTOR FI END IF XPD GT CURSWORK THEN IF LOC NE CURSWORK+XLOC THE┆
0x37b80…37c00 UnusedSector ┆N MESSAGE <:ERROR: XCURSWORK LENGTH:> FI XCURWRK= LOC BEGIN USE BASE XSHARE: XSNAME: XSNAME0 IF NAMELENGTH GT 1 THEN XSNAME1 IF┆
0x37c00…37c80 UnusedSector ┆ NAMELENGTH GT 2 THEN XSNAME2 IF NAMELENGTH GT 3 THEN 0 REPEAT NAMELENGTH-3-1 FI FI FI IF LOC-XSNAME NE NAMELENGTH THEN MESSAG┆
0x37c80…37d00 UnusedSector ┆E <:ERROR: XSNAME LENGTH:> FI XSIDENT 0 ; SPROCIDENT XSMODE XSKIND 0 REPEAT 6 ; SMASK - SFILE XSFIRST XSTOP XSREM XSBUF┆
0x37d00…37d80 UnusedSector ┆SIZE XSUSED XSSID: 0 IF IDLENGTH GT 1 THEN 0 IF IDLENGTH GT 2 THEN 0 IF IDLENGTH GT 3 THEN 0 REPEAT IDLENGTH-3-1 FI FI FI IF┆
0x37d80…37e00 UnusedSector ┆ LOC-XSSID NE IDLENGTH THEN MESSAGE <:ERROR: XSSID LENGTH:> FI 0 IF LOC-XSSID NE STACKLENGTH THEN MESSAGE <:ERROR: STACK LENGTH┆
0x37e00…37e80 UnusedSector ┆:> FI 0 REPEAT 9 ; SSAVE0 - SSAVE9 IF LOC-XSHARE NE SHARELENGTH THEN MESSAGE <:ERROR: XSHARE LENGTH:> FI XSBUFFERS= 1 XSMODE=┆
0x37e80…37f00 UnusedSector ┆ BMWORD XSKIND= BMWORD XSBUFSIZE= 64 XSBUFFERS= 2 IF XSMODE>BNBYTE THEN XSFACTOR=2 IF XSBUFSIZE THEN XSFILL=1 ELSE XSFILL=0 ┆
0x37f00…37f80 UnusedSector ┆FI ELSE XSFACTOR=1 XSFILL=0 FI XSNAME0= 0 XSNAME1= 0 XSNAME2= 0 XSIDENT= 0 XSFIRST= (LOC+XSBUFFERS*BUFFERLENGTH)*XSFACTO┆
0x37f80…38000 UnusedSector ┆R XSTOP= XSFIRST IF XSMODE>BNOPUT THEN XSREM= XSBUFSIZE ELSE XSREM= 0 FI XSUSED= LOC XSBUFFER= XSBUFFERS*(XSBUFSIZE+XSFIL┆
0x38000…38080 UnusedSector ┆L) XSBUFAREA= (XSUSED+XSBUFFERS*BUFFERLENGTH)*XSFACTOR IF XSBUFFERS GT 0 THEN 0 REPEAT BFIRST-1 XSBUFAREA, XSBUFAREA=XSBUFARE┆
0x38080…38100 UnusedSector ┆A+XSBUFSIZE+XSFILL IF XSBUFFERS GT 1 THEN LOC-BNEXT+BUFFERLENGTH ELSE XSUSED FI XSBUFFERS=XSBUFFERS-1 FI IF XSBUFFERS GT 0 ┆
0x38100…38180 UnusedSector ┆THEN 0 REPEAT BFIRST-1 XSBUFAREA, XSBUFAREA=XSBUFAREA+XSBUFSIZE+XSFILL IF XSBUFFERS GT 1 THEN LOC-BNEXT+BUFFERLENGTH ELSE X┆
0x38180…38200 UnusedSector ┆SUSED FI XSBUFFERS=XSBUFFERS-1 FI IF XSMODE>BNBYTE AN (NT XSKIND>BNBYTE) AN XSBUFAREA>15 THEN MESSAGE <:ADDR TOO BIG:> FI I┆
0x38200…38280 UnusedSector ┆F XSBUFFER GT 0 THEN 0 REPEAT (XSBUFFER-1)/XSFACTOR FI END IF XPD GT ENTRYAREA THEN IF LOC NE ENTRYAREA+XLOC THEN MESSAGE <:ER┆
0x38280…38300 UnusedSector ┆ROR: XENTRYAREA LENGTH:> FI XCENTRY= LOC 0 REPEAT ENTRYLENGTH-1 IF XPD GT WORKAREA THEN IF LOC NE WORKAREA+XLOC THEN MESSAGE <┆
0x38300…38380 UnusedSector ┆:ERROR: XWORKAREA LENGTH:> FI XWORKING= LOC 0 REPEAT WORKLENGTH-1 IF LOC NE UTILITYLENGTH+XLOC THEN MESSAGE <:ERROR: XUTILITY L┆
0x38380…38400 UnusedSector ┆ENGTH:> FI FI FI FI FI FI XCURIN= 0 XCUROUT= 0 XCURWORK= 0 XCENTRY= 0 XWORKING= 0 IF XREFS EQ 0 THEN XREFSX=0 ELSE XREF┆
0x38400…38480 UnusedSector ┆SX: 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 ┆
0x38480…38500 UnusedSector ┆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 THEN ┆
0x38500…38580 UnusedSector ┆0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1┆
0x38580…38600 UnusedSector ┆ 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,LOC+REFL┆
0x38600…38680 UnusedSector ┆ENGTH-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 ┆
0x38680…38700 UnusedSector ┆REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=X┆
0x38700…38780 UnusedSector ┆REFS-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 ┆
0x38780…38800 UnusedSector ┆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 REPEAT REF┆
0x38800…38880 UnusedSector ┆LENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 FI FI FI FI FI FI FI FI FI FI FI IF XBUFS EQ 0 THEN XBUFSX=0 ELS┆
0x38880…38900 UnusedSector ┆E XBUFSX: XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBU┆
0x38900…38980 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 ┆
0x38980…38a00 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┆
0x38a00…38a80 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┆
0x38a80…38b00 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┆
0x38b00…38b80 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┆
0x38b80…38c00 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┆
0x38c00…38c80 UnusedSector ┆FS 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 REPE┆
0x38c80…38d00 UnusedSector ┆AT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 FI FI FI FI FI FI FI FI FI FI FI FI XSIZE= LOC-ITEM XPRO┆
0x38d00…38d80 UnusedSector ┆GRAM= LOC USE PROG IF LOC+XSIZE NE WORDS THEN MESSAGE <:ERROR: LOC+XSIZE<>WORDS:> FI IF XPD NE PROGLENGTH THEN USE BASE FI LIS┆
0x38d80…38e00 UnusedSector ┆T POOLST:= LOC+PRGLGT POLTOPX:= POOLGT+POOLST-BUFWDS+1 MEMTOP:= POOLST+13+BQMLOC+POOLGT MESSAGE MEMTOP END SIZE= LOC-ITEM XPRO┆
0x38e00…38e80 UnusedSector 0x1a[128]
[…0xf…]
0x39600…39680 UnusedSector ┆LIST ;----------------------------------------------------------------------- ; ; BUFFER QUEUE MONITOR ; VERSION 780601 ; ; NARR┆
0x39680…39700 UnusedSector ┆ATIVE: REFER TO PRODUCT SPECIFICATION ; ;----------------------------------------------------------------------- BEGIN MODULE┆
0x39700…39780 UnusedSector ┆ BQMLOC USE BASE NOLIST ; ; CR80 SYSTEM ONE ; MONITOR ; MASTER: XGL - GLOBAL NAMES USED IN S8MXPX GLOBAL UTILITYLENGTH,PROGLE┆
0x39780…39800 UnusedSector ┆NGTH,NAMELENGTH,CONTLENGTH,PROCLENGTH GLOBAL DRIVERLENGTH,CATALOGLENGTH,ENTRYAREA,ENTRYLENGTH,WORKAREA GLOBAL WORKLENGTH,REFLENG┆
0x39800…39880 UnusedSector ┆TH,BUFLENGTH GLOBAL LOCACT,ITEM,C,CURSIN,CURSOUT,CURSWORK GLOBAL BMREENTRANT,BMINPUT,BMBYTE,BMDISP,BMOUTPUT,BMWORD GLOBAL IDLENG┆
0x39880…39900 UnusedSector ┆TH,SHARELENGTH,BUFFERLENGTH,STACKLENGTH GLOBAL BNBYTE,BNOPUT,BFIRST,BNEXT GLOBAL BMSTEP,BMCONV,BMNOEC,KINDOC,KINDCR,KINDLP,KINDF┆
0x39900…39980 UnusedSector ┆D GLOBAL NAME,PROC,NEXT ; ; CR80 SYSTEM ONE ; MONITOR ; MASTER: NAX - MONITOR NAMES ; 00150800 0 000D LEVEL 2 NAMES: ITEMLH=┆
0x39980…39a00 UnusedSector ┆ #0005 C= #000D BMERRR= #0020 BMFULL= #0400 BMSPEL= #0009 BNERRR= #0005 BNFULL= #000A DISKDS= #0002 BMBYTE= #0004 BMDIS┆
0x39a00…39a80 UnusedSector ┆T= #0100 BMREJT= #0004 PROGLH= #000E BNBYTE= #0002 BMCONV= #0010 BNDIST= #0008 BNREJT= #0002 BNCONV= #0004 CONTLH= #0005┆
0x39a80…39b00 UnusedSector ┆ BMINPT= #0001 BMWORD= #0000 BMTIMR= #0002 BMPARY= #0080 BMPROM= #0002 BNTIMR= #0001 BNPARY= #0007 BNPROM= #0001 BMUNKN┆
0x39b00…39b80 UnusedSector ┆= #2000 DISABD= #E000 BMSTEP= #0020 BNUNKN= #000D BMWRIR= #0200 BNSTEP= #0005 BNWRIR= #0009 BMREST= #0002 BMPOSN= #0010 ┆
0x39b80…39c00 UnusedSector ┆ BMERAE= #0020 BNREST= #0001 BNPOSN= #0004 BNERAE= #0005 BMNORS= #4000 BNNORS= #000E EVERSN= #0006 IDLENH= #0004 BMBUSY=┆
0x39c00…39c80 UnusedSector ┆ #8000 BMCLEN= #0000 BNBUSY= #000F EAREAS= #000A BMNOEC= #0040 NAMELH= #0003 BNNOEC= #0006 BMOPUT= #0002 BMCLER= #0040 ┆
0x39c80…39d00 UnusedSector ┆MAXDEE= #003F BNOPUT= #0001 BNCLER= #0006 BMRELE= #0004 BMNOTY= #0001 ETYPE= #0007 BNRELE= #0002 BNNOTY= #0000 BMREAR= #┆
0x39d00…39d80 UnusedSector ┆0100 BNREAR= #0008 NAMEBS= #0006 BMOUTT= #0003 BMTPUT= #0001 BMCONL= #0000 BMUNCE= #0010 BMEOF= #0040 BNTPUT= #0000 BNU┆
0x39d80…39e00 UnusedSector ┆NCE= #0004 BNEOF= #0006 BMILLL= #0008 BNILLL= #0003 BMRESE= #0008 BNRESE= #0003 BMTERE= #0080 BMDISP= #0001 BMREET= #000┆
0x39e00…39e80 UnusedSector ┆1 BNTERE= #0007 BNDISP= #0000 BNREET= #0000 USE BASE OLDPRC:= #001B SBLOCK:= #000C TERMIE:= #0031 STACKH:= #0005 NEXT:= ┆
0x39e80…39f00 UnusedSector ┆#0002 SAVE7:= #0040 PROCLH:= #0052 CATSLH:= #0040 BS:= #0008 WARNIG:= #0030 DELAY:= #0033 WORK:= #0040 SACTIN:= #0008 A┆
0x39f00…39f80 UnusedSector ┆NS0:= #0000 NL:= #000A WORKAA:= #0295 ANS1:= #0001 SFILE:= #000D ESEGMS:= #000B EVENTC:= #003D ANS2:= #0002 EATTRE:= #00┆
0x39f80…3a000 UnusedSector ┆06 EAREAE:= #0008 MES0:= #0000 ANS3:= #0003 CR0:= #000D EVENTE:= #0037 MES1:= #0001 ANS4:= #0004 SIDENT:= #0003 CR1:= #┆
0x3a000…3a080 UnusedSector ┆000E DATE:= #0024 MES2:= #0002 BOPER:= #0000 PARENT:= #0001 CR2:= #000F MES3:= #0003 NAME:= #0007 CR3:= #0010 CAUSE:= #┆
0x3a080…3a100 UnusedSector ┆001E EMRETN:= #001E MES4:= #0004 SSTACD:= #0013 BFIRST:= #0006 CR4:= #0011 BSTATE:= #0005 CR5:= #0012 CBASED:= #0016 WR┆
0x3a100…3a180 UnusedSector ┆K:= #004D SNAME:= #0000 CR6:= #0013 STOP:= #000F EFIRST:= #001A CR7:= #0014 RESTIG:= #0038 SBLOCT:= #000B KIND:= #0006 ┆
0x3a180…3a200 UnusedSector ┆UTILIH:= #02A1 MOPERN:= #0000 PROCIT:= #0004 SMODE:= #0005 SBUFSE:= #0011 ACOUNT:= #0001 SKIND:= #0006 AREACM:= #002E RE┆
0x3a200…3a280 UnusedSector ┆SERR:= #0052 WORKIG:= #005E BCOUNT:= #0001 CATWRK:= #0005 PPROGM:= #000C EBLOCE:= #0009 CONTET:= #0004 CAN:= #0018 PROGR┆
0x3a280…3a300 UnusedSector ┆M:= #0017 EOFACN:= #0059 EBLOCG:= #000E ANSWER:= #004D DEL:= #007F PREFS:= #0001 CURSLH:= #00B2 EVT0:= #0000 EHIBLK:= #0┆
0x3a300…3a380 UnusedSector ┆00C EDUMMY:= #001F KINDFD:= #0400 TIMER:= #0019 DEVPR:= #001F CURIN:= #005A EVT1:= #0001 PSW:= #001A PRESET:= #0020 ADJ┆
0x3a380…3a400 UnusedSector ┆UST:= #0035 DEVICE:= #0053 ENTRYA:= #0275 USERLH:= #02F0 EVT2:= #0002 BUFFEH:= #0008 CURSIN:= #005F EVT3:= #0003 PPRPC:=┆
0x3a400…3a480 UnusedSector ┆ #000D CENTRY:= #005D ABLOCK:= #0003 EVT4:= #0004 ERECOE:= #000A INTERT:= #0054 CATALG:= #0057 WORKLH:= #000C BBLOCK:= #┆
0x3a480…3a500 UnusedSector ┆0003 CATALH:= #0058 REF:= #0003 REFLEH:= #0004 BADDR:= #0002 PBUFS:= #0002 ITEM:= #FFF3 LOCACN:= #001C TIME:= #0021 EAR┆
0x3a500…3a580 UnusedSector ┆EA:= #000F ERROR:= #002F REFS:= #0036 W:= #0040 BNEXT:= #0007 ENTRYH:= #0020 CATBIN:= #0003 EVENT:= #004D STREAT:= #000A┆
0x3a580…3a600 UnusedSector ┆ RECEIR:= #0001 ARESUT:= #0000 AFILE:= #0004 PROC:= #000D EVENTS:= #003C MCOUNT:= #0001 BFILE:= #0004 EPAGE:= #001B CHA┆
0x3a600…3a680 UnusedSector ┆IN:= #0005 PRPC:= #0018 ESC:= #001B CHILD:= #0003 SMASK:= #0007 PCOUNT:= #0006 FREEAS:= #002A NEXTET:= #003B BUFLEH:= #0┆
0x3a680…3a700 UnusedSector ┆009 ASTATS:= #0002 BUF:= #0003 FF:= #000C KINDOC:= #0100 CBASE:= #0015 CUREVT:= #003A ECHART:= #001C CATCAT:= #0006 STA┆
0x3a700…3a780 UnusedSector ┆TE:= #0000 BUFS:= #0037 CURWOK:= #005C SPROCT:= #0004 CATDAT:= #0001 WCATS:= #02B0 SFIRST:= #000E EIDENT:= #0003 EBASE:=┆
0x3a780…3a800 UnusedSector ┆ #0019 KINDCR:= #0200 CATOBJ:= #0004 PSIZE:= #000B FIRSTT:= #0039 SUSED:= #0012 SHAREH:= #0022 PWORDS:= #0003 EDATE:= #0┆
0x3a800…3a880 UnusedSector ┆004 CATTXT:= #0002 INTRPT:= #0034 MBLOCK:= #0003 SREM:= #0010 ENAME:= #0000 EDRIVE:= #0007 DRIVEH:= #0055 MADDRS:= #0002┆
0x3a880…3a900 UnusedSector ┆ EMODE:= #001E WORD:= #0000 SIZE:= #0004 PRICHN:= #0032 ESPECL:= #0055 SEOFAN:= #0009 EKIND:= #001D LF:= #000A EM:= #00┆
0x3a900…3a980 UnusedSector ┆19 CURSWK:= #01C3 NAMEIT:= #0003 ACTION:= #0058 CURSOT:= #0111 MFILE:= #0004 CR:= #000D CUROUT:= #005B SSSIZE:= #0017 K┆
0x3a980…3aa00 UnusedSector ┆INDLP:= #0300 SENDER:= #0001 ERECOS:= #000D LOCREN:= #001D BYTE= #0000+ 2*BASE+ 0*(PROG-1) USE #0 ; 00173000 0 0085 LEVEL 4┆
0x3aa00…3aa80 UnusedSector ┆ NAMES: ; MAE200 INSPEE= #0070 ENDPRM= #0041 INPARM= #0068 STARTS= #006C OUTNL= #005D COMPAS= #0045 CREATS= #006A OUTTET┆
0x3aa80…3ab00 UnusedSector ┆= #005C OUTHEA= #0064 STOPPS= #006D CREATY= #004A RENAMY= #004D GETPON= #0058 REMOVE= #0072 CLOSE= #0054 INWORD= #007C ┆
0x3ab00…3ab80 UnusedSector ┆OUTNAE= #0085 PUTARA= #0074 STACK= #0055 OUTEND= #005E LINKNT= #006E SETDEY= #0077 BACKSE= #0063 OUTCHR= #005F REMOVM= #┆
0x3ab80…3ac00 UnusedSector ┆0071 INNEXT= #0069 INCHAR= #0061 OUTBLK= #0060 INTYPE= #0066 OPEN= #0053 OUTTEB= #005B COMPAE= #0046 INIT= #0052 LINKCD┆
0x3ac00…3ac80 UnusedSector ┆= #006F GETARA= #0073 SETINT= #0078 SETPON= #0057 PUTBYE= #0049 INNAME= #007B NEXTON= #0043 REMOVS= #006B SETPRN= #0076 ┆
0x3ac80…3ad00 UnusedSector ┆ INCOMD= #0086 CHANGY= #004E NEXTEY= #004C UNSTAK= #0056 INITDE= #0042 WAIT= #0059 INITWT= #0075 OUTINR= #0065 REMOVY= #┆
0x3ad00…3ad80 UnusedSector ┆004F FINDEY= #0050 GETADS= #0047 RETURR= #0044 INBLOK= #0062 LOOKUY= #004B OUTTEP= #005A GETBYE= #0048 INELET= #0067 USE┆
0x3ad80…3ae00 UnusedSector ┆ #0 ; 00197500 0 0040 LEVEL 4 NAMES: GETINL= #0007 GIVEUE= #0018 SEARCS= #001A WAITAR= #000D ENTERL= #0006 WAITIL= #0008 ┆
0x3ae00…3ae80 UnusedSector ┆GETINT= #0004 REGISS= #0013 SENDSL= #000A WAITET= #000F WAITIT= #0005 WAITDY= #0019 INSERT= #0001 RESERT= #0003 REGREE= ┆
0x3ae80…3af00 UnusedSector ┆#0010 MEMARA= #0014 CREATE= #001C WAITNT= #000E LEAVEL= #0009 TRANST= #0012 CLEART= #0000 RELEAT= #0002 SENDME= #000B S┆
0x3af00…3af80 UnusedSector ┆ENDAR= #000C RESUMT= #0011 GETEVE= #001B USE #0 ; 00198600 0 0040 LEVEL 3 NAMES: USE PROG LOCINT:= #022F LOCACT:= #822F USE ┆
0x3af80…3b000 UnusedSector ┆#0 XPD:=DRIVERLENGTH ; ; CR80 SYSTEM ONE ; MONITOR ; MASTER: XPD - PROCESS DESCRIPTION (PART 1) IF XPD EQ UTILITYLENGTH OR ┆
0x3b000…3b080 UnusedSector ┆XPD EQ PROGLENGTH THEN IF WORDS NE 0 THEN MESSAGE WORDS FI AREASWITCH=1 USE PROG LOC=PROG-1 XPSTATE XREFS XBUFS XWORDS XPSI┆
0x3b080…3b100 UnusedSector ┆ZE XCHAIN XPCOUNT IF LOC NE NAME THEN MESSAGE <:ERROR: PROG NAME:> FI XPNAME: XPNAME0 IF NAMELENGTH GT 1 THEN XPNAME1 IF NAME┆
0x3b100…3b180 UnusedSector ┆LENGTH GT 2 THEN XPNAME2 IF NAMELENGTH GT 3 THEN 0 REPEAT NAMELENGTH-3-1 FI FI FI IF LOC-XPNAME NE NAMELENGTH THEN MESSAGE <:E┆
0x3b180…3b200 UnusedSector ┆RROR: XPNAME LENGTH:> FI XIDENT XSIZE XPROGRAM XPRPC IF LOC NE PROGLENGTH THEN MESSAGE <:ERROR: PROG LENGTH:> FI FI IF XPD ┆
0x3b200…3b280 UnusedSector ┆GT PROGLENGTH THEN USE BASE LOC=BASE XSTATE XPARENT XNEXT XCHILD XSIZE XCHAIN XKIND XNAME: XNAME0 IF NAMELENGTH GT 1 THEN┆
0x3b280…3b300 UnusedSector ┆ XNAME1 IF NAMELENGTH GT 2 THEN XNAME2 IF NAMELENGTH GT 3 THEN 0 REPEAT NAMELENGTH-3-1 FI FI FI IF LOC-XNAME NE NAMELENGTH TH┆
0x3b300…3b380 UnusedSector ┆EN MESSAGE <:ERROR: XNAME LENGTH:> FI XIDENT XPROCIDENT XDEBUG IF LOC NE PROC THEN MESSAGE <:ERROR: XPROC LOCATION:> FI 0 RE┆
0x3b380…3b400 UnusedSector ┆PEAT 7 ; REGISTERS XCBASE XCBASEMOD XPROGRAM XPRPC XTIMER XPSW XOLDPROC XLOCACTION XLOCRETURN XCAUSE XDEVPR XPRESET ┆
0x3b400…3b480 UnusedSector ┆ 0 REPEAT 12 ; TIME0 - FREEAREAS #FFFF XERROR XWARNING XTERMINATE 0 REPEAT 3 ; PRICHN - ADJUST XREFSX XBUFSX IF XPD NE UT┆
0x3b480…3b500 UnusedSector ┆ILITYLENGTH THEN XREFS=0 XBUFS=1 FI 0 REPEAT 20 ; RESTING - SAVE19 XWRK: 0 IF CONTLENGTH GT 1 THEN 0 IF CONTLENGTH GT 2 THEN┆
0x3b500…3b580 UnusedSector ┆ 0 IF CONTLENGTH GT 3 THEN 0 IF CONTLENGTH GT 4 THEN 0 IF CONTLENGTH GT 5 THEN 0 REPEAT CONTLENGTH-5-1 FI FI FI FI FI IF LOC┆
0x3b580…3b600 UnusedSector ┆-XWRK NE CONTLENGTH THEN MESSAGE <:ERROR: XWRK LENGTH:> FI LOC= LOC-C IF LOC NE PROCLENGTH-C THEN MESSAGE <:ERROR: XPROC LENGTH:┆
0x3b600…3b680 UnusedSector ┆> FI IF XPD GT PROCLENGTH THEN XRESERVER XDEVICE XINTERRUPT IF LOC NE DRIVERLENGTH-C THEN MESSAGE <:ERROR: XDRIVER LENGTH:> ┆
0x3b680…3b700 UnusedSector ┆FI IF XPD GT DRIVERLENGTH THEN 0 REPEAT 2 ; ESPECIAL - CATALOG IF LOC NE CATALOGLENGTH-C THEN MESSAGE <:ERROR: XCATALOG LENGTH┆
0x3b700…3b780 UnusedSector ┆:> FI IF XPD GT CATALOGLENGTH THEN XACTION XEOFACTION XCURIN XCUROUT XCURWORK XCENTRY XWORKING FI FI FI FI XLOC= LOC ;┆
0x3b780…3b800 UnusedSector ┆ ;----------------------------------------------------------------------- ; MONITOR CALL ENTRIES ;------------------------------┆
0x3b800…3b880 UnusedSector ┆----------------------------------------- AUX=LOC LOC=255 ; TOP OF MONITOR CALL TABLE OLTO: LOC=LOC-1 ; ON LINE TEST OUTPUT VPO┆
0x3b880…3b900 UnusedSector ┆OL: LOC=LOC-1 ; ADDRESS OF VACANCY POOL GENPACK: LOC=LOC-1 ; GENERATE PACKET RELPACK: LOC=LOC-1 ; RELEASE PACKET ENQPACK: LOC=LO┆
0x3b900…3b980 UnusedSector ┆C-1 ; ENQUEUE PACKET DEQPACK: LOC=LOC-1 ; DEQUEUE PACKET STKPACK: LOC=LOC-1 ; STACK PACKET PROBQUE: LOC=LOC-1 ; PROBE QUEUE INIT┆
0x3b980…3ba00 UnusedSector ┆PCB: LOC=LOC-1 ; INITIALIZE PACKET CONTROL BLOCK CONNECTQUE: LOC=LOC-1 ; CONNECT QUEUE TO PCB CONNECTPACK: LOC=LOC-1 ; CONNECT P┆
0x3ba00…3ba80 UnusedSector ┆ACKET TO PCB NEXTPACK:=CONNECTPACK ; TERMPACK: LOC=LOC-1 ; TERMINATE PACKET RESUMPACK: LOC=LOC-1 ; RESUME PACKET COPYPACK: LOC=┆
0x3ba80…3bb00 UnusedSector ┆LOC-1 ; COPY PACKET REGRETPACK: LOC=LOC-1 ; REGRET PACKET READCHAR: LOC=LOC-1 ; READ CHARACTER READWORD: LOC=LOC-1 ; READ WORD R┆
0x3bb00…3bb80 UnusedSector ┆EADBLOCK: LOC=LOC-1 ; READ BLOCK FORWSPC: LOC=LOC-1 ; FORWARD SPACE BACKSPC: LOC=LOC-1 ; BACKSPACE HOME: LOC=LOC-1 ; HOME GETPOS┆
0x3bb80…3bc00 UnusedSector ┆: LOC=LOC-1 ; GET POSITION WRITECHAR: LOC=LOC-1 ; WRITE CHARACTER WRITEWORD: LOC=LOC-1 ; WRITE WORD WRITEBLOCK: LOC=LOC-1 ; WRIT┆
0x3bc00…3bc80 UnusedSector ┆E BLOCK STORECOUNT: LOC=LOC-1 ; STORE COUNT LOC=AUX ;----------------------------------------------------------------------- ;--┆
0x3bc80…3bd00 UnusedSector ┆--------------------------------------------------------------------- ; INTERFACE CONSTANTS ;-----------------------------------┆
0x3bd00…3bd80 UnusedSector ┆------------------------------------ BUFWDS:= 9 ; TOTAL LENGTH OF BUFFER IN WORDS QUECNT:= 32 ; MAX NUMBER OF QUEUES POOLGT:= 20┆
0x3bd80…3be00 UnusedSector ┆00 ; LENGTH OF VACANCY POOL AREA IN ; WORDS LOWTHOLD:= 20 ; LOWER BUFFER THRESHOLD UPPTHOLD:= LOWTHOLD+10 ; UPPER BUFFER THRESH┆
0x3be00…3be80 UnusedSector ┆OLD PCBLGT:= 22 ; LENGTH OF PCB (WORDS) ;----------------------------------------------------------------------- RDTYP:= 0 ; REA┆
0x3be80…3bf00 UnusedSector ┆D TYPE WRTYP:= 1 ; WRITE TYPE PRI0:= 0 ; PRIORITY LEVEL 0 (LOW) ; MEANS THAT THE VACANCY POOL MAY ; NOT BE DEPLETED BELOW THE ┆
0x3bf00…3bf80 UnusedSector ┆ ; CURRENT THRESHOLD. PRI1:= 1 ; PRIORITY LEVEL 1 (HIGH) ; MEANS THAT THE VACANCY POOL MAY ; BE TOTALLY DEPLETED. ; ERROR CODE┆
0x3bf80…3c000 UnusedSector ┆S (BIT POSITIONS) ; BIT FLAG: ILLOP:= 0 ; ILLEGAL OPERATION BOUND:= 1 ; BOUNDARY ERROR OVFL:= 2 ; PACKET OVERFLOW QBUSY:= 3 ; Q┆
0x3c000…3c080 UnusedSector ┆UEUE BUSY INVQU:= 4 ; INVALID QUEUE ILLPAR:=5 ; ILLEGAL PARAMETER NOPCK:= 6 ; NO PACKET AVAILABLE ; BQM INTERFACE CONSTANTS CRTQ┆
0x3c080…3c100 UnusedSector ┆UE:= 0 ; COMMAND: CREATE QUE HEAD REMQUE:= 1 ; COMMAND: REMOVE QUE HEAD QUECMOK:= 0 ; RESULT: NO ERROR QUECMER:= 1 ; RESULT: ERR┆
0x3c100…3c180 UnusedSector ┆OR ;----------------------------------------------------------------------- ; ;-------------------------------------------------┆
0x3c180…3c200 UnusedSector ┆--------------------- ; ; TEST FILE DECLARATION NAMES TABLE FOR OLTO ; VERSION 780420 ; ; A TEST FILE DECLARATION CONTAINS 4 PAR┆
0x3c200…3c280 UnusedSector ┆AMETERS (=4 WORDS): ; FILE PARAMETER 1: BIT USE ; 0-4 NUMBER OF RECORDS ; 5-11 LENGTH-1 OF EACH RECORD (WDS) ; 12 DATATYPE: 1=AS┆
0x3c280…3c300 UnusedSector ┆CII, 0=BINARY ; 13 NOT USED ; 14-15 FILE TYPE: ; 0=ABSOLUTE ADDRESSED FILE ; 1=PROCESS RELATIVE ADDRESSED FI ; 2=BUFFER QUEUE ; ┆
0x3c300…3c380 UnusedSector ┆3= INDEX FILE ; ;---------------------------------------------------------------------- RCCNMS:= 0 ; START BIT POSITION OF RECOR┆
0x3c380…3c400 UnusedSector ┆D NUMBERS FILED RCLGTS:= 5 ; START BIT POSITION OF RECORD LENGTH-1 FILED ASCDAT:= 1<12 ; DATA TYPE = ASCII BINDAT:= 0<12 ; DATA ┆
0x3c400…3c480 UnusedSector ┆TYPE = BINARY ABSFIL:= 0<14 ; ABSOLUTE FILE RELFIL:= 1<14 ; RELATIVE FILE BUFQUE:= 2<14 ; BUFFER QUEUE INXFIL:= 3<14 ; INDEX FIL┆
0x3c480…3c500 UnusedSector ┆E SMXS:= 8 ; START BIT POSITION OF SUBMODULE INDEX TPLS:= 12 ; START BIT POSITION OF TEST POINT LEVEL ;-------------------------┆
0x3c500…3c580 UnusedSector ┆--------------------------------------------- LIST BQMLOC:= #4003 ;-------------------------------------------------------------┆
0x3c580…3c600 UnusedSector ┆---------- AUX=LOC ;----------------------------------------------------------------------- ; BUFFER QUEUE HEAD DEFINITION ;----┆
0x3c600…3c680 UnusedSector ┆------------------------------------------------------------------- LOC=0 FBUF: LOC=LOC+1 ; ADDRESS (ABS) OF FIRST BUFFER LBUF: ┆
0x3c680…3c700 UnusedSector ┆LOC=LOC+1 ; ADDRESS (ABS) OF LAST BUFFER QUESTA: LOC=LOC+1 ; QUEUE STATUS. CONTAINS: QUESEM:=0 ; QUEUE SEMAPHORE QUEADR: LOC=LOC┆
0x3c700…3c780 UnusedSector ┆+1 ; QUEUE ADDRESS (ABS). USED FOR ; VALIDATION PURPOSES. QUEUSR: LOC=LOC+1 ; QUEUE USER. CONTAINS THE BASE ; OF THE LAST/CURR┆
0x3c780…3c800 UnusedSector ┆ENT PROCESS. QUECHS: LOC=LOC+1 ; NUMBER OF CHARACTERS (TOTAL) IN ; THE QUEUE QUEPKS: LOC=LOC+1 ; NUMBER OF PACKETS IN QUEUE (TO┆
0x3c800…3c880 UnusedSector 0x1a[128]
[…0x41…]
