OctetView
0x00000…00080 UnusedSector ┆ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00080…00100 UnusedSector ┆ ░░ ░ ░░░░░ ░░░░░░░░░░░░░░░░░░░░░░ ░░░░░┆
0x00100…00180 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x00180…001c0 DirEnt {filename=»«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0018, de0d=0x0000, cluster2=0x0019, 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 c0 00 ff ff ff ff 07 ff 00 00 00 00 00 00 00 00 00 00 80 00 ff ff ff ff ff ff ff ff ┆ ░░░░ ░ ░░░░░░░░┆
0x001e0…00200 ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 07 00 00 00 00 00 00 00 00 00 00 ff 80 ff ff ff ff ┆░░░░░░░░░░░░░░ ░ ░░░░┆
0x00200…00280 UnusedSector ┆;; &; > > ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
[…0x3…]
0x00400…00440 DirEnt {filename=»░░OM«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0064, de0d=0x0000, cluster2=0x0019, de0f=0x0b17, de10=0x0c16, de11=0x0e14, de12=0x1012, de13=0x1111, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0030, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00440…00480 DirEnt {filename=»░░XBIN«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x081a, 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=0x0018, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00480…004c0 DirEnt {filename=»░░UG«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002a, de0d=0x0000, cluster2=0x0019, de0f=0x0306, de10=0x0405, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0030, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x004c0…00500 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x00500…00540 DirEnt {filename=»░░ &;«, kind=0x3e1c, de04=0x3ebf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0x0f07, de0d=0x0fbf, cluster2=0x0f0e, de0f=0x0f0f, de10=0x0ebf, de11=0x080c, de12=0x0f0d, de13=0x09bf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x00540…00580 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0x0f0e, de06=0x0f0f, de07=0x0ebf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x00580…005c0 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x005c0…00600 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x00600…00640 DirEnt {filename=»░░ &;«, kind=0x3e1c, de04=0x3ebf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0x0f07, de0d=0x0fbf, cluster2=0x0f0e, de0f=0x0f0f, de10=0x0ebf, de11=0x080c, de12=0x0f0d, de13=0x09bf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x00640…00680 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0x0f0e, de06=0x0f0f, de07=0x0ebf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x00680…006c0 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x006c0…00700 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x00700…00740 DirEnt {filename=»░░ &;«, kind=0x3e1c, de04=0x3ebf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0x0f07, de0d=0x0fbf, cluster2=0x0f0e, de0f=0x0f0f, de10=0x0ebf, de11=0x080c, de12=0x0f0d, de13=0x09bf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x00740…00780 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0x0f0e, de06=0x0f0f, de07=0x0ebf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x00780…007c0 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x007c0…00800 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x00800…00840 DirEnt {filename=»░░ &;«, kind=0x3e1c, de04=0x3ebf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0x0f07, de0d=0x0fbf, cluster2=0x0f0e, de0f=0x0f0f, de10=0x0ebf, de11=0x080c, de12=0x0f0d, de13=0x09bf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x00840…00880 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0x0f0e, de06=0x0f0f, de07=0x0ebf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x00880…008c0 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x008c0…00900 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x00900…00940 DirEnt {filename=»░░ &;«, kind=0x3e1c, de04=0x3ebf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0x0f07, de0d=0x0fbf, cluster2=0x0f0e, de0f=0x0f0f, de10=0x0ebf, de11=0x080c, de12=0x0f0d, de13=0x09bf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x00940…00980 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0x0f0e, de06=0x0f0f, de07=0x0ebf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x00980…009c0 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x009c0…00a00 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x00a00…00a40 DirEnt {filename=»JAS«, 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=0x130f, 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}
0x00a40…00a80 DirEnt {filename=»░░XDEF«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0001, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0005, de0d=0x0000, cluster2=0x0001, de0f=0x0416, de10=0x0417, de11=0x0d13, de12=0x0d14, de13=0x0f11, de14=0x0f12, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0030, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00a80…00ac0 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x2615, 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=0x000b, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00ac0…00b00 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x00b00…00b40 DirEnt {filename=»░░ &;«, kind=0x3e1c, de04=0x3ebf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0x0f07, de0d=0x0fbf, cluster2=0x0f0e, de0f=0x0f0f, de10=0x0ebf, de11=0x080c, de12=0x0f0d, de13=0x09bf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x00b40…00b80 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0x0f0e, de06=0x0f0f, de07=0x0ebf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x00b80…00bc0 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x00bc0…00c00 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x00c00…00c40 DirEnt {filename=»░░ &;«, kind=0x3e1c, de04=0x3ebf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0x0f07, de0d=0x0fbf, cluster2=0x0f0e, de0f=0x0f0f, de10=0x0ebf, de11=0x080c, de12=0x0f0d, de13=0x09bf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x00c40…00c80 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0x0f0e, de06=0x0f0f, de07=0x0ebf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x00c80…00cc0 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x00cc0…00d00 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x00d00…00d40 DirEnt {filename=»S8MXGL«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0001, cluster=0x0001, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0003, de0d=0x0000, cluster2=0x0001, de0f=0x0418, de10=0x0419, de11=0x041a, de12=0x0501, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00d40…00d80 DirEnt {filename=»S8MXP1«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0001, cluster=0x0002, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0002, de0f=0x0316, de10=0x0318, de11=0x0502, de12=0x0504, de13=0x0506, de14=0x0508, de15=0x050a, de16=0x050c, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0035, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00d80…00dc0 DirEnt {filename=»S8MNAX«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0001, cluster=0x0008, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002d, de0d=0x0000, cluster2=0x0008, de0f=0x031a, de10=0x0408, de11=0x050e, de12=0x0516, de13=0x0604, de14=0x060c, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0005, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00dc0…00e00 DirEnt {filename=»░░«, 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=0x130f, 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}
0x00e00…00e40 DirEnt {filename=»S8MXP2«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0044, de0d=0x0000, cluster2=0x0019, de0f=0x0a18, de10=0x0d15, de11=0x0f13, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x003f, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00e40…00e80 DirEnt {filename=»░░«, 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=0x0108, 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}
0x00e80…00ec0 DirEnt {filename=»░░XP1«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0002, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0002, de0f=0x031a, de10=0x0402, de11=0x0404, de12=0x0406, de13=0x0408, de14=0x040a, de15=0x040c, de16=0x040e, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0035, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00ec0…00f00 DirEnt {filename=»░░NAX«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0008, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002d, de0d=0x0000, cluster2=0x0008, de0f=0x0410, de10=0x0702, de11=0x070a, de12=0x0712, de13=0x081a, de14=0x0908, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0005, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00f00…00f40 DirEnt {filename=»░░ &;«, kind=0x3e1c, de04=0x3ebf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0x0f07, de0d=0x0fbf, cluster2=0x0f0e, de0f=0x0f0f, de10=0x0ebf, de11=0x080c, de12=0x0f0d, de13=0x09bf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x00f40…00f80 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0x0f0e, de06=0x0f0f, de07=0x0ebf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x00f80…00fc0 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x00fc0…01000 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x01000…01040 DirEnt {filename=»░░ &;«, kind=0x3e1c, de04=0x3ebf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0x0f07, de0d=0x0fbf, cluster2=0x0f0e, de0f=0x0f0f, de10=0x0ebf, de11=0x080c, de12=0x0f0d, de13=0x09bf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x01040…01080 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0x0f0e, de06=0x0f0f, de07=0x0ebf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x01080…01100 UnusedSector ┆LIST ; TLMQ SIMULATOR. BEGIN MODULE NOLIST $SMSNAX LIST XPD:=UTILITYLENGTH NOLIST $SMSXP1 LIST USE BASE REGISTERS= #76 RNAME: <┆
0x01100…01180 UnusedSector ┆:REGISS:>,0,0 FSC= TRUE TABLE: 10,0 10,0 0 USE PROG STARTUP: ; MOVC RNAME R0 ; MOV R0 WORK-1 ; IF FSC MOVC <:FS:> R0 ; MOVC┆
0x01180…01200 UnusedSector ┆ <:C:> R1 ; ELSE MOVC <:TL:> R0 ; MOVC <:MQ:> R1 ; FI MOV R1 NAME-C+1 ; INSERT NAME INTO PROCESS; MOV R0 NAME-C ; MOVC 0 R0┆
0x01200…01280 UnusedSector ┆ ; MOV R0 NAME-C+2 ; MOV R0 NAME-C+3 ; L0: ; START: MOVC TABLE R6 ; RE.TABLE; L1: ; NEXTRESULT: MOV 0. X6 R5 ; 0.TALBE=>COUN┆
0x01280…01300 UnusedSector ┆T; MOV 1. X6 R4 ; 1.TABLE=>RESULT; L2: ; WAITNEXT: MON WAITEVENT ; WAITEVENT; TRP 0 ; ANSWER: IMPOSSIBLE; MOV R4 0. X7 ; RES┆
0x01300…01380 UnusedSector ┆ULT=>0.ANSWER; MON SENDANSWER ; SENDANSWER; ADDC 1 R7 ; UNS 3 ; MON REGISTERS ; SOB R5 L2 ; IF DECR(COUNT)<>0 THEN ; GOTO ┆
0x01380…01400 UnusedSector ┆WAITNEXT; ADDC 2 R6 ; RE.TABLE+2=>RE.TABLE; JON X6 L1 ; IF 0.TALBE<>0 THEN GOTO NEXTRESULT; JMP L0 ; GOTO START; XREFS= 10 X┆
0x01400…01480 UnusedSector ┆BUFS= 1 XPRPC= STARTUP NOLIST $SMSXP2 LIST END 1 R7 ; UNS 3 ; MON REGISTERS ; SOB R5 L2 ; IF DECR(COUNT)<>0 THEN ; GOTO ┆
0x01480…01500 UnusedSector ┆░░M 4 4 5 6 7 7 8 9 > > / ░░MX : ; < ? @ A C░░░░░░ 2 ┆
0x01500…01580 UnusedSector ┆░░MXP2 D ░░░░░░░░░░░░░░ ? ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01580…01600 UnusedSector ┆░░DXP2 ░░░░░░░░░░░░░░░░░░ # ░░DNAX ░░░░░░░░░░ ┆
0x01600…01680 UnusedSector ┆░░DXP1 ░░░░░░░░░░░░ ░░DXGL ░░░░░░░░░░░░░░░░ ┆
0x01680…01700 UnusedSector ┆░░M ! 0 0 1 2 3 ░░XGL ░░░░░░░░░░░░░░░░ ┆
0x01700…01780 UnusedSector ┆░░MXP2 D ░░░░░░░░░░░░░░ ? ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01780…01800 UnusedSector ┆░░TDRV ░░░░░░░░░░░░░░░░░░ ░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x01800…01880 UnusedSector ┆░░NHEX !░░░░░░░░░░░░░░░░░░ ; ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01880…01900 UnusedSector ┆░░ ░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x01900…01980 UnusedSector ┆░░MXP2 D ░░░░░░░░░░░░░░ ? ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01980…01a00 UnusedSector ┆░░ ░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x01a00…01a80 UnusedSector ┆░░MXP2 D ░░░░░░░░░░░░░░ ? ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01a80…01b00 UnusedSector ┆░░ ░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x01b00…01b80 UnusedSector ┆░░ ░░░░░░░░░░░░░░░░░░ 4 ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01b80…01c00 UnusedSector ┆░░PTY ░░ ░░░░░░░░░░░░░░░░░░░░ ░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x01c00…01c80 UnusedSector ┆░░MXP2 D ░░░░░░░░░░░░░░ ? ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01c80…01d00 UnusedSector ┆░░ ░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x01d00…01d80 UnusedSector ┆░░MXP2 D ░░░░░░░░░░░░░░ ? ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01d80…01e00 UnusedSector ┆░░ ░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x01e00…01e80 UnusedSector ┆░░XDEF ░░░░░░░░░░░░░░░░░░░░ 0 ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01e80…01f00 UnusedSector ┆░░ ░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x01f00…01f80 UnusedSector ┆░░MXP2 D ░░░░░░░░░░░░░░ ? ░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x01f80…02000 DataSector[»REGS«]
[…0x17…]
0x02b80…02c00 UnusedSector ┆D/UTIL/,I/GLOBAL UTIL/,R/ITEM,//,R/BNBYTE,//,R/BNOPUT,// R/BMSTEP,//,R/BMCONV,//,R/BMNOEC,//,R/,KINDCR,//,R/KINDLP,// R/KINDFD//┆
0x02c00…02c80 UnusedSector ┆,R/NAME,//,F ┆
0x02c80…02d00 UnusedSector ┆D/C=/,I/C=/,L,D/BMBYTE/,I/BMBYTE/,L,D/PROGLH/,I/PROGLH/,L,D/CONTLH/,I/CONTLH/ L,R/BMPARY//,D/BMUNKN/,I/BMUNKN/,L,D/IDLENH/,I/IDL┆
0x02d00…02d80 UnusedSector ┆ENH/ L,D/NAMELH/,I/NAMELH/,L,DL,L,D/BMNOTY/,I/BMNOTY/,L,D/BMOUTT/,I/BMOUTT/,2L D/BMILLL/,I/BMILLL/,L,D/BMDISP/,I/BMDISP/,2L,D/US┆
0x02d80…02e00 UnusedSector ┆E /,I/USE /,L,D/STACKH/ I/STACKH/,2L,DL,2L,D/WORK/,I/WORK/,R/ANS0//,DL,2L,D/ NAME:/,I/NAME:/,L D/CAUSE:/,I/CAUSE:/,L 3DL,L,4DL,L┆
0x02e00…02e80 UnusedSector ┆,2DL,L,D/UTILIH/,I/UTILIH/,L,D/WORKIG/,I/WORKIG/,L,D/PROGRM/ I/PROGRM/,2L,D/CURSLH/,I/CURSLH/,L,D/DEVPR/,I/DEVPR/,2L,DL,L,2DL 3L┆
0x02e80…02f00 DataSector[»PARGEN«]
[…0x5…]
0x03180…03200 DataSector[»S8MXP1«]
[…0x3…]
0x03380…03400 DataSector[»S8MNAX«]
[…0xf…]
0x03b80…03c00 DataSector[»PARGEN«]
[…0x5…]
0x03e80…03f00 DataSector[»MP«]
[…0x1…]
0x03f80…04000 DataSector[»S8MXGL«]
[…0x3…]
0x04180…04200 DataSector[»S8MXP1«]
[…0xb…]
0x04780…04800 DataSector[»S8MNAX«]
[…0x1d…]
0x05680…05700 UnusedSector ┆Y= #004F FINDEY= #0050 GETADS= #0047 RETURR= #0044 INBLOK= #0062 LOOKUY= #004B OUTTEP= #005A GETBYE= #0048 INELET= #0067┆
0x05700…05780 UnusedSector ┆ USE #0 ; 00197500 0 0040 LEVEL 4 NAMES: GETINL= #0007 GIVEUE= #0018 SEARCS= #001A WAITAR= #000D ENTERL= #0006 WAITIL= #00┆
0x05780…05800 DataSector[»MFSCTT«]
[…0x18…]
0x06400…06480 DataSector[»MCLR«]
[…0x3b…]
0x08200…08280 DataSector[»PARGEN«]
[…0xd…]
0x08900…08980 UnusedSector ┆12 IF LOC NE PROC THEN MESSAGE <:ERROR: XPROC LOCATION:> FI 0 REPEAT 7 ; REGISTERS 0,0 XPROGRAM XPRPC 100 0 0 LOCACT 0 ┆
0x08980…08a00 DataSector[»MP«]
[…0x4…]
0x08c00…08c80 DataSector[»SMSXP1«]
[…0x2…]
0x08d80…08e00 DataSector[»S8MXP2«]
[…0x18…]
0x09a00…09a80 DataSector[»MCLR«]
[…0x3…]
0x09c00…09c80 UnusedSector ┆ 16 ; 7, 15 ; ; LSETPAE: SETPARINMODE ; POINTERS TO SUBROUTINES LINSERT: INSERT ; LINBUF: INBUF ; LSENDBUF: SENDBUF ; LRETURNB┆
0x09c80…09d00 UnusedSector ┆UF: RETURNBUF ; LOUTBUF: OUTBUF ; LANSWER: ANSWER ; LUPDATETBS: UPDATETABLES ; LPULLDOWN: PULLDOWN ; LTRANIT: TRANIT ; LCHECKERR┆
0x09d00…09d80 UnusedSector ┆: CHECKERR ; LEMPTYBUF: EMPTYBUF ; LDOSETUP: DOSETUP ; ; ; SPULLD2: PULLD2 ; STATES SPULLDW: PULLDW ; SEMPTY: EMPTY ; SSTART: ┆
0x09d80…09e00 UnusedSector ┆START ; SBLOCKD: BLOCKD ; SCOLLEG: COLLEG ; STRANSG: TRANSG ; STUNLW: TUNLW ; ;### ; ;------------------------------------------┆
0x09e00…09e80 UnusedSector ┆---------------------------- ;LOCAL ACTION ;---------------------------------------------------------------------- ;IF LOCAL ACT┆
0x09e80…09f00 UnusedSector ┆ION IS NOT CAUSED BY HARDWARE-TIMEOUT, SYSTEM-LOCAL- ;ACTION IS ENTERED. OTHERWISE ALL MESSAGES IN THE MESSAGE BUFFER IS ;ANSWER┆
0x09f00…09f80 UnusedSector ┆ED 'NOTDONE' BUT FORTHE LAST ONE, WHICH IS ANSWERED ;'NOTREADY'. IF THE MESSAGE BUFFER IS EMPTY, EVENTS ARE WAITED FOR, ;AND THE┆
0x09f80…0a000 UnusedSector ┆ FIRST MESSAGE TO COME IS ANSWERED 'NOTREADY'. ;-----------------------------------; ; LOCAC: ; LOCAL ACTION: MOV R0 SLOCA ; S┆
0x0a000…0a080 UnusedSector ┆AVE (R0); MOV CAUSE-C R0 ; CAUSE => CA; INEP R0 3 ; IF CAUSE <> TIMEOUT THEN MOV SLOCA R0 ; BEGIN RESTORE (R0); JMPI LOCA ; ┆
0x0a080…0a100 UnusedSector ┆GOTO SYSTEMLOCALACTION; END; MOVC 5 R0 ; 5 => ERRCODE; NOREPLY: ; NOREPLY; MOVC NOTDONE R4 ; JMP S6 EMPTYBUF ; EMPTYBUF (NOT ┆
0x0a100…0a180 UnusedSector ┆DONE); JMP LOCAC0 ; IF EMPTY GOTO WAIT; LOCAC1: ; NOT EMPTY: MON REGISTERS ; REGISTERS; MOVC NOTREADY R7 ; MOVC ANSW R5 ; AN┆
0x0a180…0a200 UnusedSector ┆SW => ADDR; MOV R0 3. X5 ; ERRCODE => 3.ADDR; JMP S5 ANSWER ; ANSWER (NOT READY); MOVC 0 R5 ; 0 => LDS R5 ; PSW; MOV SSTART┆
0x0a200…0a280 UnusedSector ┆ R2 ; START => MOV R2 STATE ; 0.STATE; JMP START ; GOTO START; LOCAC0: ; WAIT: MON WAITEVENT ; WAITEVENT; JMP LOCAC0 ; ANSWE┆
0x0a280…0a300 UnusedSector ┆R: IGNORE; MOV R2 R3 ; MESSAGE: JMP LOCAC1 ; GOTO NOT EMPTY; ; ; ;----------------------------------------------------------┆
0x0a300…0a380 UnusedSector ┆------------ ;### ;...................................................................... ;SETPARINMODE ;.......................┆
0x0a380…0a400 UnusedSector ┆............................................... ;SETS A PARAMETER IN THE MODEREGISTER, BOTH IN THE COPY KEPT IN ;THE MEMORY AND ┆
0x0a400…0a480 UnusedSector ┆THE REAL MODEREGISTER ;...................................................................... ; CALL EXIT ;R3 DESTROYED ;R4 FIEL┆
0x0a480…0a500 UnusedSector ┆DNO DESTROYED ;R6 LINK LINK ;R7 FIELDVAL DESTROYED ;...................................; ; SETPARINMODE: ;SETPARINMODE: ADD R4┆
0x0a500…0a580 UnusedSector ┆ R4 ; FIELDNO*2 => FIELDNO; ADDC MODEC R4 ; MODEC+FIELDNO => FIELDNO; MVP 0. X4 R3 ; 0.FIELDNO => SHIFTS; MOD R3 ; FIELDVAL S┆
0x0a580…0a600 UnusedSector ┆HIFTLEFT SHIFTS SLL R7 0 ; => FIELDVAL; MVP 1. X4 R3 ; 1.FIELDNO => FIELDMASK; MOVC MODER R4 ; MODER => ADDRESS; MOD R3 ; P┆
0x0a600…0a680 UnusedSector ┆UT R7 X4 ; SET FIELD IN MODER; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; MOV FSCDEV R7 ; MODER => MOV X4 R3 ; INV R3 ; CIO┆
0x0a680…0a700 UnusedSector ┆ R3 R7 ; *MODE*; JMP 0. X6 ; RETURN ; ; ;...................................................................... ;### ;.......┆
0x0a700…0a780 UnusedSector ┆............................................................... ;INSERT ;.......................................................┆
0x0a780…0a800 UnusedSector ┆............... ;SETS AN ANSWERCODE IN THE BUFFER FOR THE MOST RECENTLY ;RECIEVED MESSAGE ;.....................................┆
0x0a800…0a880 UnusedSector ┆................................. ; CALL EXIT ; ;R5 DESTROYED ;R6 LINK LINK ;R7 CODE CODE ;...................................; ┆
0x0a880…0a900 UnusedSector ┆ ; INSERT: ; INSERT: MOV OLDBUFIN R5 ; MOV R7 2. X5 ; CODE => 2.OLDBUFIN; JMP 0. X6 ; RETURN; ; ; ;........................┆
0x0a900…0a980 DataSector[»SMSXP1«]
[…0x5…]
0x0ac00…0ac80 DataSector[»SMSXP2«]
[…0x2…]
0x0ad80…0ae00 DataSector[»AOUT«]
[…0x8…]
0x0b200…0b280 DataSector[»REGISS«]
[…0x1…]
0x0b300…0b380 DataSector[»S8MXP2«]
[…0x18…]
0x0bf80…0c000 DataSector[»REGISS«]
[…0x4…]
0x0c200…0c280 UnusedSector ┆K BEFORE ; END OF FORMAT; FSSYNCWLENGTH:LOC=LOC+1 ; SYNCWORDLENGH; FSSYNCWORD: LOC=LOC+4 ; SYNCWORD; FSCSETUPLH= LOC ; ; HDTRS┆
0x0c280…0c300 UnusedSector ┆ETUP:= LOC+FSCSETUP ; HDTR SETUP: HSPEED: LOC=LOC+1 ; SPEED; HVERNIER: LOC=LOC+1 ; SPEED VERNIER; HFILE: LOC=LOC+2 ; FILE ID; HB┆
0x0c300…0c380 UnusedSector ┆LOCKNR: LOC=LOC+1 ; BLOCKNR; HBLOCKCOUNT: LOC=LOC+1 ; BLOCKCOUNT; HBLOCKSIZE: LOC=LOC+1 ; BLOCKSIZE; HDTRMASK: LOC=LOC+1 ; HDTR ┆
0x0c380…0c400 UnusedSector ┆MASK; HDUMMYCOUNT: LOC=LOC+1 ; DUMMYCOUNT; SETUPLENGTH= HFILE ; LOC=LOC+FSCSETUP ; ;### LOC=LOC-WORK ; SAVE LOCATIONS; SAVE0: ┆
0x0c400…0c480 UnusedSector ┆LOC=LOC+1 ; SAVE1: LOC=LOC+1 ; SAVE2: LOC=LOC+1 ; LOC=LOC+WORK ; SAVE4:= #2A ; SAVE13:= #46 ; LINK0: LOC=LOC+1 ; LINK1: LOC=LOC┆
0x0c480…0c500 UnusedSector ┆+1 ; LINK2: LOC=LOC+1 ; ACURIN: LOC=LOC+SHARELENGTH ; IUSED: LOC=LOC+BUFFERLENGTH ; IFIRST:= LOC*2 ; LOC=LOC+40 ; ACUROUT: LOC┆
0x0c500…0c580 UnusedSector ┆=LOC+SHARELENGTH ; OUSED: LOC=LOC+BUFFERLENGTH ; OFIRST:= LOC*2 ; LOC=LOC+40 ; XWORKAREA: LOC=LOC+WORKLENGTH ; XSLENGTH= LOC-AC┆
0x0c580…0c600 UnusedSector ┆URIN ; TOP: ; TOP OF BASE AREA; 0,REPEAT TOP-SAVEAREA-1, LOC=TOP ; FILL BASEAREA; ; USE PROG ; ; METSETUP: ; METEOSAT SETUP T┆
0x0c600…0c680 UnusedSector ┆ABLE: 366 ; BUFFERLENGTH; 8*364 ; FRAMELENGTH; 0 ; 02 ; TRUE THRESHOLD; 00 ; FALSE THRESHOLD; 7 ; FORMAT; 1 ; LOCKMODE; ┆
0x0c680…0c700 UnusedSector ┆3 ; SORT PARAMETER; 1 ; WINDOW SIZE; 1 ; BITSYNC ; 2 ; NO OF BAD SYNC WORDS; 30 ; NO OF FRAMES IN UNLOCK; 24 ; SYNCWORD LEN┆
0x0c700…0c780 UnusedSector ┆GTH (BITS); #0CDF ; SYNCWORD; #0005 ; 0 ; 0 ; 2 ; SPEED; 100 ; VERNIER; ; INITTABLE: ; INITTABLE: <:CI:>, NAME-C ; <:M:┆
0x0c780…0c800 UnusedSector ┆> , NAME-C+1 ; 0 , NAME-C+2 ; <:SC:>, SCMNAME ; <:M:> , SCMNAME+1 ; <:OC:> , ACURIN BMINPUT OR BMBYTE , ACURIN+SMODE ; KIN┆
0x0c800…0c880 UnusedSector ┆DOC OR BMBYTE OR BMDISP, ACURIN+SKIND ; IFIRST , ACURIN+SFIRST ; IFIRST , ACURIN+STOP ; 0 , ACURIN+SREM ; 80 , ACURIN+SBUFSI┆
0x0c880…0c900 UnusedSector ┆ZE; IUSED , ACURIN+SUSED ; IFIRST , IUSED+BFIRST ; IUSED , IUSED+ BNEXT ; <:OC:> , ACUROUT ; BMOUTPUT OR BMBYTE , ACUROUT+S┆
0x0c900…0c980 UnusedSector ┆MODE ; KINDOC OR BMBYTE OR BMDISP, ACUROUT+SKIND ; OFIRST , ACUROUT+SFIRST ; OFIRST , ACUROUT+STOP ; 80 , ACUROUT+SREM ; 80┆
0x0c980…0ca00 UnusedSector ┆3 LF ; IF CHAR<>LF THEN JMP L00 ; GOTO EMPTY SHARE; MON INCHAR ; GET DEVICE NR; ADDC -<:0:> R3 ; MOV R3 DEVICE-C ; L1: ; NE┆
0x0ca00…0ca80 UnusedSector ┆XT: MON WAITEVENT ; WAITEVENT; TRP 0 ; ANSWER: IMPOSSIBLE; JOZ X7 L000 ; IF 0.MESS=0 THEN ; GOTO NEW DEVICE; MOV R2 SAVE0-C┆
0x0ca80…0cb00 UnusedSector ┆ ; SAVE(EVENT); MOVC 10 R0 ; 10=>COUNT; MOV R0 1. X7 ; ; L2: ; GETVALUE: MOD X7 ; BASE.PROCESS MODN CBASE-C ; -BASE.CUR MO┆
0x0cb00…0cb80 UnusedSector ┆,SETINT,GETINT,INTRPT ENTRY LOCACN,LOCRETURN,CAUSE,NAME,CURSOT,MADDRS,MCOUNT ENTRY GIVEUPTIME,WAITDELAY,INWORD,INTYPE,OUTINTEGER┆
0x0cb80…0cc00 UnusedSector ┆,WORKING ENTRY SMODE,SKIND,SFIRST,SUSED,STOP,SREM,SBUFSIZE NOLIST $S8MNAX LIST END NAMES END NTRY OUTTEP,CLEART,WAITIT,INITDE┆
0x0cc00…0cc80 DataSector[»S8MXP2«]
[…0x12…]
0x0d580…0d600 UnusedSector ┆ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
[…0x5…]
0x0d880…0d900 DataSector[»PRCMD«]
[…0x2…]
0x0da00…0da80 UnusedSector ┆ MON GIVEUPTIME FI ; MOV FSCDEV R7 ; ADDC SAR R7 ; MOV R4 OLDBUFCUR ; ADDRESS => 0.OLDBUFCUR; ADDC 1 R4 ; 1+ADDRESS => ADDRE┆
0x0da80…0db00 UnusedSector ┆SS; INV X4 ; CIO X4 R7 ; 0.ADDRESS => *DMA*; ADDC BUFL-1 R4 ; BUFL-1+ADDRESS => ADDRESS; MOVC BUFTOP R7 ; IHS R4 R7 ; IF AD┆
0x0db00…0db80 UnusedSector ┆DRESS >= BUFTOP THEN MOVC BUFPL0 R4 ; BUFPL0 => ADDRESS; DEC 0. X5 ; DECR (0.BUFCOUNT2); MOVC BUFCOUNT3 R5 ; INC 0. X5 ; INC┆
0x0db80…0dc00 UnusedSector ┆R (0.BUFCOUNT3); MOV R4 BUFCUR ; ADDRESS => 0.BUFCUR; JMP 0. X6 ; RETURN; ; ; ;.............................................┆
0x0dc00…0dc80 UnusedSector ┆......................... ;### ;...................................................................... ;RETURNBUF ;.............┆
0x0dc80…0dd00 UnusedSector ┆......................................................... ;RETURNS THE TRANSMITMESSAGE TO THE CALLING PROCESS AFTER ;SUCSESFULL ┆
0x0dd00…0dd80 UnusedSector ┆PERFORMANCE ;...................................................................... ; CALL EXIT ; ;R3 EVENT ;R5 DESTROYED ;R6 LI┆
0x0dd80…0de00 UnusedSector ┆NK LINK ;R7 DESTROYED ;...................................; ; RETURNBUF: ; RETURNBUF: IF TST MON REGISTERS ; MON GIVEUPTIME FI┆
0x0de00…0de80 UnusedSector ┆ ; JMP S5 OUTBUF ; OUTBUF; JMP 0. X6 ; IF EMPTY RETURN (EMPTY); MOV OLDBUFOUT R7 ; 0.OLBUFOUT => ADR; MOV 2. X7 R7 ; 2.ADR =┆
0x0de80…0df00 UnusedSector ┆> C; JOZ R7 RETUR1 ; IF C <> 0 THEN ; BEGIN IEQ R7 EXDONE ; IF C = EXDONE THEN MOVC DONE R7 ; DONE => C; JMP S5 ANSWER ; AN┆
0x0df00…0df80 UnusedSector ┆SWER (C); JMP RETURNBUF ; GOTO RETURNBUF; RETURNBUF1: ; END; MOVC DONE R7 ; DONE => ANSWCODE; JMP S5 ANSWER ; ANSWER (ANSWCOD┆
0x0df80…0e000 UnusedSector ┆E); JMP 1. X6 ; RETURN (NOT EMPTY); ; ; ;...................................................................... ;### ;.......┆
0x0e000…0e080 UnusedSector ┆............................................................... ;OUTBUF ;.......................................................┆
0x0e080…0e100 UnusedSector ┆............... ;RELEASES THE MOST LATELY RECIEVED MESSAGE FROM THE MESSAGE BUFFER ;............................................┆
0x0e100…0e180 UnusedSector ┆.......................... ; CALL EXIT ; ;R3 EVENT ;R5 LINK LINK ;R7 BUFCOUNT1 ;...................................; ; OUTBUF: ┆
0x0e180…0e200 UnusedSector ┆; OUTBUF: MOV BUFCOUNT1 R3 ; IF 0.BUFCOUNT1 IF TST MON REGISTERS ; MON GIVEUPTIME FI ; ILT R3 1 ; <= 0 THEN JMP 0. X5 ; RETU┆
0x0e200…0e280 UnusedSector ┆RN (EMPTY); MOVC 0 R3 ; 0 => MOV R3 BUFSTATE ; 0.BUFSTATE; MOV BUFOUT R7 ; 0.BUFOUT => ADR; MOV R7 OLDBUFOUT ; ADR => 0.OLDB┆
0x0e280…0e300 UnusedSector ┆UFOUT; MOV 0. X7 R3 ; 0.ADR => EVENT; ADDC BUFL R7 ; BUFL+ADR => ADR; IHS R7 BUFTOP ; IF ADR >= BUFTOP THEN MOVC BUFPL0 R7 ;┆
0x0e300…0e380 UnusedSector ┆ BUFPL0 => ADR; MOV R7 BUFOUT ; ADR => 0.BUFOUT; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; MOVC BUFCOUTN1 R7 ; DEC 0. X7 ;┆
0x0e380…0e400 UnusedSector ┆ DECR (0.BUFCOUNT1); JMP 1. X5 ; RETURN; ; ; ;...................................................................... ;### ;..┆
0x0e400…0e480 UnusedSector ┆.................................................................... ;EMPTYBUF ;................................................┆
0x0e480…0e500 UnusedSector ┆...................... ;EMPTIES THE MESSAGE BUFFER AND ANSWERS THEM ALL NOTDONE, ;EXCEPT FOR THE MOST RECENTLY RECIEVED ;.......┆
0x0e500…0e580 UnusedSector ┆............................................................... ; CALL EXIT ; ;R3 LAST EVENT ;R4 CODE CODE ;R5 DESTROYED ;R6 LIN┆
0x0e580…0e600 UnusedSector ┆K LINK ;R7 DESTROYED ;...................................; ; EMPTYBUF: ; EMPTYBUF: IF TST MON REGISTERS ; MON GIVEUPTIME FI ; ┆
0x0e600…0e680 UnusedSector ┆ JMP S5 OUTBUF ; OUTBUF; JMP 0. X6 ; IF EMPTY RETURN (EMPTY); IEQ X7 0 ; IF 0.BUFCOUNT1 <> 0 THEN JMP EMPTYB0 ; BEGIN MOV R4┆
0x0e680…0e700 UnusedSector ┆ R7 ; CODE => ANSWCODE; JMP S5 ANSWER ; ANSWER (ANSWCODE); JMP EMPTYBUF ; GOTO EMPTYBUF; EMPTYBUF0: ; END; MOV BUFIN R5 ; BUF┆
0x0e700…0e780 UnusedSector ┆IN => ADDRESS; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; MOV R5 BUFCUR ; 0.ADDRESS => 0.BUFCUR; MOVC BUFCOUNT2 R5 ; BUFCOUNT┆
0x0e780…0e800 DataSector[»CALC«]
[…0x5…]
0x0ea80…0eb00 UnusedSector ┆MON SENDANSWER ; SENDANSWER; JOZ X1 ANSWE2 ; IF 0.ANSW <> 0 THEN ; BEGIN MOVC 0 R7 ; 0 => WO; MOVC 5 R2 ; 5 => COUNT; ANSWE3┆
0x0eb00…0eb80 UnusedSector ┆: ; FOR I:=1 UNTIL COUNT DO ; BEGIN MOV R7 X1 ; WO => 0.ANSW; ADDC 1 R1 ; ANSW+1 => ANSW; SOB R2 ANSWE3 ; END; ANSWE2: ; END┆
0x0eb80…0ec00 UnusedSector ┆; MOV R3 R1 ; ANSW => R1; MOVC 0 R3 ; 0 => MOV R3 LCKSTT ; 0.LOCKSTATE; MOV SAVE5 R2 ; RESTORE R2; JMP 0. X5 ; RETURN; ; ┆
0x0ec00…0ec80 UnusedSector ┆; ;...................................................................... ;### ;................................................┆
0x0ec80…0ed00 UnusedSector ┆...................... ;UPDATETABLES ;...................................................................... ;EMPTIES THE SYNCST┆
0x0ed00…0ed80 UnusedSector ┆ATUS-FIFO, AND CHECKS THE UNLOCK-CRITERIUM ;FROM THE FRAMEBOUNDARY-STATUS ;.....................................................┆
0x0ed80…0ee00 UnusedSector ┆................. ; CALL EXIT ; ;R3 DESTROYED ;R4 DESTROYED ;R5 DESTROYED ;R6 LINK DESTROYED ;R7 DESTROYED ;....................┆
0x0ee00…0ee80 UnusedSector ┆...............; ; UPDATETABLES: ; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; MOV R6 SAVE1 ; SAVE (LINK); UPDATETABLES5: ; SE┆
0x0ee80…0ef00 UnusedSector ┆T REGDEV: MOV FSCDEV R4 ; ADDC SYS R4 ; UPDATETABLES0: ; READ: SIO R3 R4 ; *SYNCSTATUS* => WORK1; INV R3 ; IF TST MON REGIST┆
0x0ef00…0ef80 UnusedSector ┆ , ACUROUT+SBUFSIZE; OUSED , ACUROUT+SUSED ; OFIRST , OUSED+BFIRST ; OUSED , OUSED+BNEXT ; ACURIN , CURIN-C ; ACUROUT , CUR┆
0x0ef80…0f000 UnusedSector ┆OUT-C ; XWORKAREA , WORKING-C ; INITTABLELH= LOC-INITTABLE ;### LFRAMELENGTH: <:FRAMELENGTH: <0>:>,FSFRAMELENGTH +FSCSETUP LTTH┆
0x0f000…0f080 UnusedSector ┆RESHOLD: <:TTHR: <0>:>, FSTTHRESHOLD +FSCSETUP ; LFTHRESHOLD: <:FTHR: <0>:>, FSFTHRESHOLD +FSCSETUP ; LFORMAT: <:FORMAT: <0>:>, ┆
0x0f080…0f100 UnusedSector ┆FSFORMAT +FSCSETUP ; LLOCKMODE: <:LOCKMODE: <0>:>, FSLOCKMODE +FSCSETUP ; LSORTPAR: <:SORTPAR: <0>:>, FSSORTPAR +FSCSETUP ; LWIN┆
0x0f100…0f180 UnusedSector ┆DOW: <:WINDOW: <0>:>, FSWINDOW +FSCSETUP ; LSOURCE: <:SOURCE: <0>:>, FSSOURCE +FSCSETUP ; LUNLOCK: <:UNLOCK: <0>:>, FSUNLOCK +FS┆
0x0f180…0f200 UnusedSector ┆CSETUP ; LENDCOUNT: <:ENDCOUNT: <0>:>, FSENDCOUNT +FSCSETUP ; LSYNCWLENGTH: <:SYNCWORDLH:<0>:>, FSSYNCWLENGTH +FSCSETUP ; LSYNCW┆
0x0f200…0f280 UnusedSector ┆ORD: <:SYNCWORD: <0>:>, FSSYNCWORD +FSCSETUP LSPEED: <:SPEED: <0>:>, HSPEED +FSCSETUP ; LVERNIER: <:VERNIER: <0>:>, HVERNIER +FS┆
0x0f280…0f300 UnusedSector ┆CSETUP ; LFILE: <:FILE: <0>:>, HFILE +FSCSETUP ; LBLOCKNR: <:BLOCKNR: <0>:>, HBLOCKNR +FSCSETUP ; LBLOCKCOUNT: <:BLOCKCOUNT:<0>:┆
0x0f300…0f380 UnusedSector ┆>, HBLOCKCOUNT +FSCSETUP ; LBLOCKSIZE: <:BLOCKSIZE: <0>:>, HBLOCKSIZE +FSCSETUP ; LHDTRMASK: <:HDTRMASK: <0>:>, HDTRMASK +FSCSET┆
0x0f380…0f400 UnusedSector ┆UP ; LDUMMYCOUNT: <:DUMMYCOUNT:<0>:>, HDUMMYCOUNT +FSCSETUP ; ; ; ; VALUESPEC: ; PARAMETER VALUE SPECIFICATION: 0, 0 ; BUFSI┆
0x0f400…0f480 UnusedSector ┆ZE (UNUSED); 0,0,0, 0 ; FRAMELENGTH (SPECIAL); 0, 32 ; THRESHOLD; 0, 32 ; THRESHOLD; 0, 15 ; FORMAT; 1, 2 ; LOCKMODE; 0, 3┆
0x0f480…0f500 UnusedSector ┆ ; SORT PARAMETER; 0, 1 ; WINDOW; 1, 3 ; SOURCE; 1, 16 ; NO OF BAD SYNCS BEFORE UNLOCK; 1, -1 ; NO OF FRAMES IN UNLOCK; 1, ┆
0x0f500…0f580 UnusedSector ┆64 ; SYNCWORD LENGTH; 0,0,0,0,0,0,0,0 ; SYNCWORD (SPECIAL); 1, 8 ; SPEED; 65, 135 ; VERNIER; 0,0,0,0 ; FILE (SPECIAL); 0, -┆
0x0f580…0f600 UnusedSector ┆1 ; BLOCKNR; 0, -1 ; BLOCKCOUNT; 366, -1 ; BLOCKSIZE; 0, -1 ; HDTR MASK; 0, -1 ; DUMMY COUNT; ;### MESREF: ; MESS0 ; MESS1┆
0x0f600…0f680 UnusedSector ┆ ; MESS2 ; MESS3 ; MESS4 ; MESS5 ; MESS6 ; MESS7 ; MESS8 ; MESS9 ; MESS10 ; MESS11 ; MESS12 ; MESS13 ; MESS14 ; MAX┆
0x0f680…0f700 UnusedSector ┆MES= LOC-MESREF ; ; MESS0: <:ILLEGAL MESSAGE CODE<0>:> ; MESS1: <:SYSTEM STOPPED<0>:> ; MESS2: <:SYSTEM ERROR<0>:> ; MESS3: <:F┆
0x0f700…0f780 UnusedSector ┆SC ERROR<0>:> ; MESS4: <:TLMQ ERROR<0>:> ; MESS5: <:HDTR ERROR<0>:> ; MESS6: <:SYNC WORD ERROR<0>:> ; MESS7: <:END OF FORMAT<0>:┆
0x0f780…0f800 UnusedSector ┆> ; MESS8: <:START OF FORMAT<0>:> ; MESS9: <:ILLEGAL OPERATION<0>:> ; MESS10: <:SLOW OUTPUT DEVICE<0>:> ; MESS11: ; MESS12: ; ME┆
0x0f800…0f880 UnusedSector ┆SS13:<:BIT SLIPPAGE<0>:> ; MESS14: <:TOO MANY SYNC POSITIONS<0>:>; ; CIP02: ; INSERT MET. SETUP TABLE: MOVC SETUPLENGTH R0 ; S┆
0x0f880…0f900 UnusedSector ┆ETUPLENGTH=>COUNT; P021: ; TRANSFER: MOD R0 ; MOV METSETUP-1 R1 ; COUNT-1.METSETUP MOD R0 ; MOV R1 FSCSETUP-1 ; =>COUNT-1.FS┆
0x0f900…0f980 UnusedSector ┆DN 1. X7 ; -COUNT+11 MOV SAVE0-C+10 R4 ; .SAVE15=>WORD; JMP S5 P1 ; OUTPUT WORD; DEC 1. X7 ; DECR(COUNT); SOZ 1. X7 ; IF COU┆
0x0f980…0fa00 UnusedSector ┆NT<>0 THEN JMP L2 ; GOTO GET VALUE; MOVC WORK R1 ; WORK=>ANSWER; MOV SAVE0-C R2 ; RESTORE(EVENT); MON SENDANSWER ; SENDANSWE┆
0x0fa00…0fa80 UnusedSector ┆R; MOVC CR R3 ; OUTPUT: CR,LF,FILLERS; JMP S6 P0 ; MOVC LF R3 ; JMP S6 P0 ; MOVC 6 R1 ; MOVC 0 R3 ; L3: JMP S6 P0 ; SOB R┆
0x0fa80…0fb00 UnusedSector ┆1 L3 ; JMP L1 ; GOTO NEXT; P0: ; OUTCHAR: MOV DEVICE-C R7 ; DEVICE.CUR=>DEVICE; SIO R0 R7 ; SENSE(STATUS,DEVICE); IBZ R0 11┆
0x0fb00…0fb80 UnusedSector ┆ ; IF NOT READY FOR OUTPUT THEN JMP P0 ; GOTO OUTCHAR; WIO R3 R7 ; WRITE(CHAR,DEVICE); JMP 0. X6 ; RETURN; P1: ; HEXOUT: MO┆
0x0fb80…0fc00 UnusedSector ┆VC 32 R3 ; OUTCHAR(SP); JMP S6 P0 ; MOVC 4 R2 ; 4=>COUNT; L4: ; CALCULATE CHAR: SLC R4 4 ; WORD(15:4)=>CHAR; MOV R4 R3 ; WOR┆
0x0fc00…0fc80 UnusedSector ┆D=>CHAR; XTR R3 4 ; IHS R3 10 ; IF CHAR>=10 THEN ADDC <:A:>-<:0:>-10 R3 ; CHAR-<:A:>-<:0:>-10=>CHAR; ADDC <:0:> R3 ; CHAR+<:┆
0x0fc80…0fd00 UnusedSector ┆0:>=>CHAR; JMP S6 P0 ; OUTPUT CHAR; SOB R2 L4 ; IF DECR(COUNT)<>0 THEN MOVC WORK R7 ; ; GOTO CALCULATE CHAR; JMP 0. X5 ; RE┆
0x0fd00…0fd80 UnusedSector ┆TURN(HEXOUT); END XPRPC= L0 XREFS= 20 XBUFS= 2 NOLIST $SMSXP2 LIST END ; CHAR-<:A:>-<:0:>-10=>CHAR; ADDC <:0:> R3 ; CHAR+<:┆
0x0fd80…0fe00 UnusedSector ┆ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x0fe00…0fe40 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x0fe40…0fe80 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x0fe80…0fec0 DirEnt {filename=»░░S«, 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=0x130f, 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}
0x0fec0…0ff00 DirEnt {filename=»░░NHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x0702, 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=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x0ff00…0ff40 DirEnt {filename=»REGS«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0017, de0d=0x0000, cluster2=0x001e, de0f=0x020c, 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=0x0037, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x0ff40…0ff80 DirEnt {filename=»REGISS«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0001, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0006, de0d=0x0000, cluster2=0x0001, de0f=0x0d13, de10=0x0d14, de11=0x0e14, de12=0x0e15, de13=0x0e16, de14=0x0e17, de15=0x0e18, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0002, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x0ff80…0ffc0 DirEnt {filename=»░░S«, 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=0x130f, 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}
0x0ffc0…10000 DirEnt {filename=»░░NHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x0702, 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=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10000…10040 DirEnt {filename=»░░ASNN«, 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}
0x10040…10080 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x10080…100c0 DirEnt {filename=»░░S«, 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=0x130f, 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}
0x100c0…10100 DirEnt {filename=»░░NHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x0702, 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=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10100…10140 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x10140…10180 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x10180…101c0 DirEnt {filename=»░░S«, 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=0x130f, 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}
0x101c0…10200 DirEnt {filename=»░░NHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x0702, 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=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10200…10240 DirEnt {filename=»SMSXP1«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0001, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0008, de0d=0x0000, cluster2=0x0001, de0f=0x0a15, de10=0x0a16, de11=0x0a17, de12=0x0d01, de13=0x0d02, de14=0x0d03, de15=0x0d04, de16=0x0d05, de17=0x0d06, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x002a, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10240…10280 DirEnt {filename=»SMSXP2«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0001, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0002, de0d=0x0000, cluster2=0x0001, de0f=0x0d07, de10=0x0d08, de11=0x0d09, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0020, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10280…102c0 DirEnt {filename=»░░S«, 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=0x130f, 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}
0x102c0…10300 DirEnt {filename=»░░NHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x0702, 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=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10300…10340 DirEnt {filename=»CALC«, kind=0x0002, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0005, de0d=0x0000, cluster2=0x001e, de0f=0x1116, 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=0x000f, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10340…10380 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x10380…103c0 DirEnt {filename=»░░S«, 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=0x130f, 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}
0x103c0…10400 DirEnt {filename=»░░NHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x0702, 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=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10400…10440 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x10440…10480 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x10480…104c0 DirEnt {filename=»░░S«, 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=0x130f, 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}
0x104c0…10500 DirEnt {filename=»░░NHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x0702, 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=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10500…10540 DirEnt {filename=»TSTDRV«, kind=0x0001, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0007, de0d=0x0000, cluster2=0x001e, de0f=0x0108, 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=0x0019, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10540…10580 DirEnt {filename=»░░ST«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0021, de0d=0x0000, cluster2=0x0019, de0f=0x3411, de10=0x3510, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x003b, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10580…105c0 DirEnt {filename=»░░NCOM«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0055, de0d=0x0000, cluster2=0x0019, de0f=0x170b, de10=0x180a, de11=0x1909, de12=0x1a08, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0028, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x105c0…10600 DirEnt {filename=»░░NHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x0702, 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=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10600…10640 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x10640…10680 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x10680…106c0 DirEnt {filename=»░░S«, 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=0x130f, 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}
0x106c0…10700 DirEnt {filename=»░░NHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x0702, 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=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10700…10740 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x10740…10780 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x10780…107c0 DirEnt {filename=»░░S«, 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=0x130f, 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}
0x107c0…10800 DirEnt {filename=»░░NHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x0702, 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=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10800…10840 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x10840…10880 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x10880…108c0 DirEnt {filename=»MCLR«, kind=0x0002, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x003f, de0d=0x0000, cluster2=0x001e, de0f=0x0713, de10=0x0817, de11=0x0b17, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x001c, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x108c0…10900 DirEnt {filename=»MFSCTT«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0065, de0d=0x0000, cluster2=0x0019, de0f=0x0614, de10=0x1706, de11=0x1805, de12=0x1904, de13=0x1a03, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0020, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10900…10940 DirEnt {filename=»MP«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0001, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0006, de0d=0x0000, cluster2=0x0001, de0f=0x0416, de10=0x0417, de11=0x0a10, de12=0x0a11, de13=0x0a12, de14=0x0a13, de15=0x0a14, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0007, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10940…10980 DirEnt {filename=»░░SCTT«, kind=0x0001, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0056, de0d=0x0000, cluster2=0x001e, de0f=0x2516, de10=0x2a02, de11=0x2b06, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0030, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10980…109c0 DirEnt {filename=»░░S«, 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=0x130f, 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}
0x109c0…10a00 DirEnt {filename=»░░NHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x0702, 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=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10a00…10a40 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x10a40…10a80 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x10a80…10ac0 DirEnt {filename=»░░S«, 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=0x130f, 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}
0x10ac0…10b00 DirEnt {filename=»░░NHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x0702, 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=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10b00…10b40 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x10b40…10b80 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x10b80…10bc0 DirEnt {filename=»░░S«, 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=0x130f, 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}
0x10bc0…10c00 DirEnt {filename=»░░NHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x0702, 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=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10c00…10c40 DirEnt {filename=»FRSCTT«, kind=0x0010, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0051, de0d=0x0000, cluster2=0x0019, de0f=0x211a, de10=0x2219, de11=0x2318, de12=0x2417, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0033, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10c40…10c80 DirEnt {filename=»░░DRIV«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x002d, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x01af, de0d=0x0000, cluster2=0x002d, de0f=0x0808, de10=0x0b17, de11=0x1012, de12=0x1b07, de13=0x2516, de14=0x270f, de15=0x2908, de16=0x2b01, de17=0x2c14, de18=0x2e0d, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x002f, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10c80…10cc0 DirEnt {filename=»░░S«, 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=0x130f, 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}
0x10cc0…10d00 DirEnt {filename=»░░NHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x0702, 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=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10d00…10d40 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x10d40…10d80 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x10d80…10dc0 DirEnt {filename=»░░S«, 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=0x130f, 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}
0x10dc0…10e00 DirEnt {filename=»░░NHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x0702, 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=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10e00…10e40 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x10e40…10e80 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x10e80…10ec0 DirEnt {filename=»░░S«, 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=0x130f, 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}
0x10ec0…10f00 DirEnt {filename=»░░NHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x0702, 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=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x10f00…10f40 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x10f40…10f80 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x10f80…10fc0 DirEnt {filename=»░░S«, 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=0x130f, 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}
0x10fc0…11000 DirEnt {filename=»░░NHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x0702, 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=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x11000…11040 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x11040…11080 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x11080…110c0 DirEnt {filename=»░░S«, 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=0x130f, 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}
0x110c0…11100 DirEnt {filename=»░░NHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x0702, 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=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x11100…11140 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x11140…11180 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x11180…111c0 DirEnt {filename=»PRCMD«, kind=0x0002, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0002, de0d=0x0000, cluster2=0x001e, de0f=0x1012, 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=0x002a, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x111c0…11200 DirEnt {filename=»PARGEN«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0003, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0019, de0d=0x0000, cluster2=0x0003, de0f=0x0310, de10=0x0313, de11=0x0410, de12=0x0413, de13=0x0a01, de14=0x0a04, de15=0x0a07, de16=0x0a0a, de17=0x0a0d, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x001b, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x11200…11240 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x11240…11280 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x11280…112c0 DirEnt {filename=»░░S«, 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=0x130f, 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}
0x112c0…11300 DirEnt {filename=»░░NHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x0702, 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=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x11300…11340 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x11340…11380 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x11380…113c0 DirEnt {filename=»░░S«, 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=0x130f, 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}
0x113c0…11400 DirEnt {filename=»░░NHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x0702, 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=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x11400…11440 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x11440…11480 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x11480…114c0 DirEnt {filename=»░░S«, 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=0x130f, 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}
0x114c0…11500 DirEnt {filename=»░░NHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x0702, 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=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x11500…11540 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x11540…11580 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x11580…115c0 DirEnt {filename=»AOUT«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0001, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0008, de0d=0x0000, cluster2=0x0001, de0f=0x0d0a, de10=0x0d0b, de11=0x0d0c, de12=0x0d0d, de13=0x0d0e, de14=0x0d0f, de15=0x0d10, de16=0x0d11, de17=0x0d12, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x001c, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x115c0…11600 DirEnt {filename=»░░NHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x0702, 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=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x11600…11640 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xbfbf, de09=0xbfbf, de0a=0xbfbf, de0b=0xbfbf, nsect=0xbfbf, de0d=0xbfbf, cluster2=0xbfbf, de0f=0xbfbf, de10=0xbfbf, de11=0xbfbf, de12=0xbfbf, de13=0xbfbf, de14=0xbfbf, de15=0xbfbf, de16=0xbfbf, de17=0xbfbf, de18=0xbfbf, de19=0xbfbf, de1a=0xbfbf, de1b=0xbfbf, de1c=0xbfbf, de1d=0xbfbf, de1e=0xbfbf, de1f=0xbfbf}
0x11640…11680 DirEnt {filename=»░░«, kind=0xbfbf, de04=0xbfbf, de05=0xbfbf, de06=0xbfbf, de07=0xbfbf, cluster=0xffff, de09=0xffff, de0a=0xffff, de0b=0xffff, nsect=0xffff, de0d=0xffff, cluster2=0xffff, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0xffff, de1a=0xffff, de1b=0xffff, de1c=0xffff, de1d=0xffff, de1e=0xffff, de1f=0xffff}
0x11680…116c0 DirEnt {filename=»░░S«, 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=0x130f, 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}
0x116c0…11700 DirEnt {filename=»░░NHEX«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000c, de0d=0x0000, cluster2=0x0019, de0f=0x0702, 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=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x11700…11780 UnusedSector ┆D/IF XPD/,I/IF XPD/,2L,DL,/LOC/,L,DL,L,D/XPRPC/,DL,R/XSTATE// D/IF/,I/XDEVPR= 0/,IL,I/IF/,R/XSHARE:/XSHARE: <:OC:>,0,0,0,0/,IL I┆
0x11780…11800 UnusedSector ┆L,D/XSKIND/,I/ BMINPUT OR BMBYTE KINDOC OR BMBYTE OR BMDISP/,R/XSBUFSIZE/128/ R/XSSID://,D/3/,DL,R/-3//,L,2DL,L,DL 2L,D/XSIDENT┆
0x11800…11880 UnusedSector ┆=/,DL,R/XSBUFFERS/2/,R/XSFACTOR/2/,R/IF//,3DL,I/XSREM= 0/,IL L,D/XSBUFAREA/,I/XSBUFAREA/,R/XSBUFFERS/2/,R/XSFACTOR/2/,L,DL R/XSB┆
0x11880…11900 UnusedSector ┆UFSIZE/128/,DL,IL,DL,L,5DL,R/XSBUFSIZE+XSFILL/128/ R/IF//,2DL,R/ELSE//,L,D/END/,I/0,REPEAT 127 END/,R/XSNAME/<:OC:>,0,0,0,0/,IL,┆
0x11900…11980 UnusedSector ┆D/XSKIND/ I/ BMOUTPUT OR BMBYTE/ IL,I/ KINDOC OR BMBYTE OR BMDISP/,R/XSBUFSIZE/128/ R/XSSID://,D/3/,DL R/-3//,L,2DL,L,DL,2L,D/XS┆
0x11980…11a00 UnusedSector ┆IDENT=/,DL,R/XSBUFFERS/2/,R/XSFACTOR/2/,2L,D/FI/ I/XSREM= 128/,IL,/LOC/,L,D/XSBUFAREA/,I/XSBUFAREA/,R/XSBUFFERS/2/ R/XSFACTOR/2/┆
0x11a00…11a80 UnusedSector ┆,L,DL,L,R/XSBUFSIZE/128/,DL,IL,DL,L,5DL,R/XSBUFSIZE/128/ DL,IL,2DL,R/ELSE//,R/FI// D/END/,I/0,REPEAT 127/,IL,I/END/,L IL,D/END/,┆
0x11a80…11b00 UnusedSector ┆2DL,R/IF XPD//,2DL,R/FI FI // /=0/,I/ ELSE XREFSX:/,L I/IF XREFS LT 2 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 RE┆
0x11b00…11b80 UnusedSector ┆PEAT REFLENGTH-4 IF XREFS LT 3 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 IF XREFS LT 4 THEN 0 R┆
0x11b80…11c00 UnusedSector ┆EPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 IF XREFS LT 5 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGT┆
0x11c00…11c80 UnusedSector ┆H-NEXT,0 REPEAT REFLENGTH-4 IF XREFS LT 6 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 IF XREFS LT┆
0x11c80…11d00 UnusedSector ┆ 7 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 IF XREFS LT 8 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,L┆
0x11d00…11d80 UnusedSector ┆OC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 IF XREFS LT 9 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 ┆
0x11d80…11e00 UnusedSector ┆IF XREFS LT 10 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 IF XREFS LT 11 THEN 0 REPEAT REFLENGTH┆
0x11e00…11e80 UnusedSector ┆-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-1 FI FI FI FI FI FI FI FI FI FI FI /,IL D/IF XBUFS/,I/IF XBUFS/,/0/,/0/,I/ ELS┆
0x11e80…11f00 UnusedSector ┆E XBUFSX:/,L,D/ FI/ I/IF XBUFS LT 2 THEN 0,REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 IF XBUFS LT 3 THE┆
0x11f00…11f80 UnusedSector ┆N 0,REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 IF XBUFS LT 4 THEN 0,REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUF┆
0x11f80…12000 UnusedSector ┆LENGTH-NEXT,0 REPEAT BUFLENGTH-4 IF XBUFS LT 5 THEN 0,REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 IF XBU┆
0x12000…12080 UnusedSector ┆FS LT 6 THEN 0,REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 IF XBUFS LT 7 THEN 0,REPEAT BUFLENGTH-1 ELSE ┆
0x12080…12100 UnusedSector ┆0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 IF XBUFS LT 8 THEN 0,REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENG┆
0x12100…12180 UnusedSector ┆TH-4 IF XBUFS LT 9 THEN 0,REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 IF XBUFS LT 10 THEN 0,REPEAT BUFLE┆
0x12180…12200 UnusedSector ┆NGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 IF XBUFS LT 11 THEN 0,REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 R┆
0x12200…12280 UnusedSector ┆EPEAT BUFLENGTH-4 FI FI FI FI FI FI FI FI FI FI FI FI/ R/-ITEM/+C/ F XT,0 REPEAT BUFLENGTH-4 IF XBUFS LT 10 THEN 0,REPEAT BUFLE┆
0x12280…12300 UnusedSector ┆ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
[…0x1…]
0x12380…12400 UnusedSector ┆CSETUP; SOB R0 P021 ; IF DECR(COUNT)<>0 THEN ; GOTO TRANSFER; JMP 0. X6 ; RETURN; ;### CIP01: ; TIMEOUTACTION: MOVC SAVEAREA┆
0x12400…12480 UnusedSector ┆ R0 ; MODC CONTLENGTH ; MOVM X7 X0 ; SAVE(WORK); MOVC ENDSAVEAREA R7 ; STC 6 ; SAVE(R0-R6); MOV SAVE4-C R0 ; MOV R0 SAVE13┆
0x12480…12500 UnusedSector ┆-C ; MOVC 0 R0 ; 0 MON SETDELAY ; =>DELAY; MON WAITEVENT ; WAITEVENT(DELAY); JMP L00 ; TIMEOUT: RETURN(TIMEOUT); JMP L02 ; ┆
0x12500…12580 UnusedSector ┆ANSWER: GOTO RESUME; MON SENDANSWER ; MESSAGE: CONTINUE CLR 4. X7 ; 0=>SPECIAL.MESS; MOV 0. X7 R0 ; IHSP R0 MAXMES+1 ; IF CO┆
0x12580…12600 UnusedSector ┆DE>=MAXMESS THEN ; BEGIN MOV R0 1. X7 ; CODE=>1.MESS; MOVC 0 X7 ; 0=>CODE.MESS; ; END; MOD X7 ; MOV MESREF R6 ; MOV CUROU┆
0x12600…12680 UnusedSector ┆T-C R4 ; MON OUTTEXTP ; OUTPUT TEXT; MOVC <: :> R3 ; SP=>CHAR; MON OUTCHAR ; OUTPUT CHAR; MOVC 4 R6 ; 4=>COUNT; P011: ; OUT ┆
0x12680…12700 UnusedSector ┆STATUS: MODN R6 ; MOV 5. X7 R2 ; 5-COUNT.MESS=>STATUS; JOZ R2 P012 ; IF STATUS<>0 THEN MON OUTHEXA ; OUTPUT STATUS; P012: SO┆
0x12700…12780 UnusedSector ┆B R6 P011 ; IF DECR(COUNT<>0 THEN ; GOTO OUT STATUS; MON OUTNL ; OUTPUT NL; L00: ; GOTO RESTORE; RESTORE: MOV SAVE13-C R0 ; ┆
0x12780…12800 UnusedSector ┆MOV R0 SAVE4-C ; MOVC SAVEAREA R0 ; MODC CONTLENGTH ; MOVM X0 X7 ; RESTORE(WORK); MOV R0 R7 ; UNS 6 ; RESTORE(R0-R6); JMP ┆
0x12800…12880 UnusedSector ┆0. X5 ; RETURN(TIMEOUTACTION); ; L02: ; RESUME: MON RESUMEEVENT ; RESUMEEVENT; MOV CUROUT-C R4 ; MON WAIT ; WAIT(CUROUT); ┆
0x12880…12900 UnusedSector ┆JMP L00 ; ;### CIM00: ; COMMAND INTERPRETER: MOVC 0 R0 ; 0=>COUNT; MOVC ACURIN R1 ; CLEAR SHARE AREA, MOVC XSLENGTH R2 ; L1: ┆
0x12900…12980 UnusedSector ┆MOV R0 0. X1 ; ADDC 1 R1 ; SOB R2 L1 ; L0: ; INIT: MOD R0 ; MOV INITTABLE R1 ; COUNT.INITTABLE=>VALUE; MOD R0 ; MOV INITTA┆
0x12980…12a00 UnusedSector ┆BLE+1 R4 ; COUNT+1.INITTABLE=>ADDR; MOV R1 0. X4 ; VALUE=>0.ADDR; ADDC 2 R0 ; COUNT+2=>COUNT; ILT R0 INITTABLH ; IF COUNT<INI┆
0x12a00…12a80 UnusedSector ┆TTABLELENGTH THEN JMP L0 ; GOTO INIT; JMP S6 CIP02 ; INSERT MET SETUP DATA; MOV CURIN-C R4 ; CURIN.CUR=>SHARE; MOVC BMTIMER ┆
0x12a80…12b00 UnusedSector ┆R0 ; TIMER MOV R0 SMASK. X4 ; =>MASK.SHARE; MOVC CIP01 R0 ; TIMEOUTACTION MOV R0 SACTIN.X4 ; =>ACTION.SHARE; JMP S6 CIG00 ; ┆
0x12b00…12b80 UnusedSector ┆WRITE: SMAS SYSTEM READY; <:SMAS SYSTEM READY<0>:> ; CIG00: ; MOV CUROUT-C R4 ; MON OUTTEXTP ; JMP CIG04 ; GOTO PROMT; ; CI┆
0x12b80…12c00 UnusedSector ┆G05: ; ILLEGAL PARAMETER: JMP S6 CIG03 ; RE.MESSAGE; <:ILLEGAL PARAMETER<0>:> ; ; CIG06: ; ILLEGAL FUNCTION: JMP S6 CIG03 ; ┆
0x12c00…12c80 UnusedSector ┆ <:ILLEGAL FUNCTION<0>:> ; ; CIG07: ; ILLEGAL COMMAND: JMP S6 CIG03 ; <:ILLEGAL COMMAND<0>:> ; ; CIG03: ; MOV CUROUT-C R4 ;┆
0x12c80…12d00 UnusedSector ┆ MON OUTTEXTP ; OUTPUT MESSAGE; C031: ; SEARCH ENDLINE: MOV CURIN-C R4 ; MON INCHAR ; INCHAR; INE R3 NL ; IF CHAR<>NL THEN ┆
0x12d00…12d80 UnusedSector ┆JMP C031 ; GOTO SEARCH ENDLINE; ; CIG04: ; PROMT: MOV CUROUT-C R4 ; MON OUTNL ; MOVC <:#:> R3 ; MON OUTCHAR ; OUTPUT <:#:>;┆
0x12d80…12e00 DataSector[»MFSCTT«]
[…0x4c…]
0x15400…15480 UnusedSector ┆- REPETITIVE SENSE JMP CONTDUMP ; IEQ R1 <:T:> ; T - MEASURE INTERRUPT TIME JMP INTTIME ; IEQ R1 <:I:> ; I - INVERTED DEVICE┆
0x15480…15500 UnusedSector ┆ COMM. JMP INVERT ; IEQ R1 <:N:> ; N - NONINVERTED DEVICE COMM. JMP NONINVERT ; IEQ R1 <:R:> ; R - READ-WRITE DEVICE COMM. ┆
0x15500…15580 UnusedSector ┆JMP READWRITE ; IEQ R1 <:S:> ; S - SENSE-CONTROL DEVICE COMM. JMP SENSECNTRL ; FI ; IEQ R1 <: :> ; IF CHAR = <SP> THEN JMP ┆
0x15580…15600 UnusedSector ┆STR1 ; GOTO STR1; IEQ R1 10 ; IF CHAR = NL THEN JMP STR1 ; GOTO STR1; ERROR: ; ERROR: MOVC <:?:> R1 ; JMP S6 OUTCHAR ; OUTP┆
0x15600…15680 UnusedSector ┆UT ?; JMP START ; GOTO START; ; ; IF FRAMESYNC ; ; SENDDATA: ; SEND DATA-AREA TO FSC: MOV BUFFSC R2 ; MOV BFCFSC R3 ; GET┆
0x15680…15700 UnusedSector ┆ AREASIZE ; MOVC 7<6 R0 ; ADD DEVICE-C R0 ; IEQ R2 0 ; IF STARTADR = 0 THEN JMP ERROR ; GOTO ERR; ; SENDD0: ; ADDRESS := ST┆
0x15700…15780 UnusedSector ┆ARTADDRESS ; MOV X2 R1 ; FOR I := 1 UNTIL AREASIZE DO INV R1 ; SWP R1 ; BEGIN CIO R1 R0 ; WRITE (FSC,HIGHBYTE(ADR)) ; SWP R┆
0x15780…15800 UnusedSector ┆1 ; CIO R1 R0 ; WRITE (FSC,LOWBYTE(ADR)) ; ADDC 1 R2 ; INCR (ADR) ; SOB R3 SENDD0 ; END ; ; JMP START ; FI ; LOADDATA: ; L┆
0x15800…15880 UnusedSector ┆OADDATA: JMP S5 GETADR ; GETADDRESS; JMP ERROR ; IF ERROR THEN GOTO ERROR; SUB BAS R3 ; LD0: ; LD0: JMP S6 INCHAR ; GET CHAR┆
0x15880…15900 UnusedSector ┆ACTER; IEQP R1 <:L:> ; L - DECR(RE.ADDRESS); ADDC -1 R3 ; JMP LD0 ; GOTO LD0; IEQ R1 <:S:> ; S - STOP INPUT; JMP START ; GO┆
0x15900…15980 UnusedSector ┆TO START; JMP S5 HEXIN1 ; CONVET TO HEX; JMP LD0 ; NO HEX CHAR: GOTO LD0; MOV R1 R2 ; MOVC 3 R4 ; 3 => COUNT; LD1: ; LD1: J┆
0x15980…15a00 UnusedSector ┆MP S5 HEXIN ; GET HEX CHAR; JMP ERROR ; IF ERROR THEN GOTO ERROR; SLL R2 4 ; HEX*16 => HEX; ADD R1 R2 ; CHAR+HEX => HEX; SOB┆
0x15a00…15a80 UnusedSector ┆ R4 LD1 ; IF DECR(COUNT) <> 0 THEN ; GOTO LD1; MOV R2 0. X3 ; SAVE WORD; ADDC 1 R3 ; INCR(RE.ADDRESS); JMP LD0 ; GOTO NEW DA┆
0x15a80…15b00 UnusedSector ┆DUMPAGAIN; FI NOP ; USE BASE PRG1:= LOC+BS1 INITP:= INIT+PRG1 END R1 6 ; ADDC FSCDEV R1 ; MOVC OC R0 ; CDLOOP: ;┆
0x15b00…15b80 UnusedSector ┆ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
[…0xd…]
0x16200…16280 UnusedSector ┆ERS ; MON GIVEUPTIME FI ; IBZP R3 15 ; IF NO DATA MOV SAVE1 R6 ; THEN JMP 1. X6 ; RETURN; IBZ R3 12 ; IF NOT IN LOCK JMP U┆
0x16280…16300 UnusedSector ┆PDAT0 ; THEN GOTO READ; MOV R3 SAVE2 ; SAVE (WORK1); SWP R3 ; WORK1 (11:4) XTR R3 4 ; => WORK1; JON R3 UPDAT0 ; IF NOT FR.B ┆
0x16300…16380 UnusedSector ┆THEN GOTO READ; MOV SAVE2 R3 ; IBNP R3 13 ; IF BITSLIPPAGE THEN MOVC SLIPPAGE R6 ; SLIPPAGE => MOV R6 LCKSTT ; 0.LOCKSTATE; ┆
0x16380…16400 UnusedSector ┆ MOV R1 SAVE3 ; R1 => 0.SAVER1; MOV R0 SAVE4 ; R0 => 0.SAVER0; ;>--------------------------------< ;> RELEASING INPUT MESSAGE┆
0x16400…16480 UnusedSector ┆S < ;>--------------------------------< MOV POINTER R1 ; 0.POINTER => POINT; MOVC SYNCLENGTH R0 ; SYNCLENGTH => ADDR; ADD X0┆
0x16480…16500 UnusedSector ┆ R1 ; 0.ADDR+POINT => POINT; MOV SETUPE R0 ; BLOCKLENGTH => ADDC BLOCKT R0 ; ADR; ;### ; UPDATETABLES1: ; WHILE 0.ADR <= POINT┆
0x16500…16580 UnusedSector ┆ DO ILT R1 X0 ; BEGIN JMP UPDAT2 ; SUB X0 R1 ; POINT-0.ADR => POINT; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; JMP S6 RETU┆
0x16580…16600 UnusedSector ┆RNBUF ; RETURNBUF; MON REGISTERS ; JMP UPDAT1 ; END; UPDATETABLES2: ; MOV R1 POINTER ; POINT => 0.POINTER; ;----------------┆
0x16600…16680 UnusedSector ┆------------------ MOV SUM R3 ; 0.SUM => CSUM; MOV SAVE2 R4 ; RESTORE (WORK1); MOV SAVE3 R1 ; 0.SAVER1 => R1; MOV SAVE4 R0 ;┆
0x16680…16700 UnusedSector ┆ 0.SAVER0 => R0; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; ;>--------------------------------< ;> UNLOCK-TESTING < ;>------┆
0x16700…16780 UnusedSector ┆--------------------------< IBZ R4 S2S ; IF WORK1(S2S:1) = 1 THEN JMP UPDAT3 ; BEGIN MOV SETUPE R6 ; 0.SETUPTABLE => ADR ADD┆
0x16780…16800 UnusedSector ┆C NOOFBAD R6 ; NOOFBAD+ADR => ADR; ADDC 1 R3 ; CSUM+1 => CSUM; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; ILO R3 0. X6 ; IF C┆
0x16800…16880 UnusedSector ┆SUM >= 0.ADR THEN JMP UPDAT4 ; BEGIN JMPI SAVE1 ; RETURN (UNLOCKED); UPDATETABLES3: ; END; MOVC 0 R3 ; CSUM => 0.SUM; UPDATET┆
0x16880…16900 UnusedSector ┆ABLES4: ; END MOV R3 SUM ; ELSE 0 => 0.SUM; ;---------------------------------- JMP UPDAT5 ; GOTO SET REGDEV; ; ; ;........┆
0x16900…16980 UnusedSector ┆.............................................................. ;### ;...........................................................┆
0x16980…16a00 UnusedSector ┆........... ;PULLDOWN ;...................................................................... ;MAKES SHURE, THAT UNLOCKING AND R┆
0x16a00…16a80 UnusedSector ┆ESTART OF THE FRAME SYNCHRONIZER ;IS PERFORMED IN THE CORRECT WAY ;FIRST THE 'WRITE-BIT' IS SET TO ZERO ;THEN INTERRUPTS ARE WAI┆
0x16a80…16b00 UnusedSector ┆TED FOR AND SERVED ;THE FIRST FRAMEBOUNDARY INTERRUPT IS TAKEN AS INDICATION OF COMPLETION ;OF THE WRITING IN THE MEMORY ;THEN T┆
0x16b00…16b80 UnusedSector ┆HE FRAME SYNCHRONIZER IS UNLOCKED AND RESTARTED WITH NEW ;(AND OLD) DMA-ADDRESSES ;............................................┆
0x16b80…16c00 UnusedSector ┆.......................... ; CALL EXIT ; ;R2 DESTROYED ;R3 DESTROYED ;R4 DESTROYED ;R5 LINK DESTROYED ;R6 DESTROYED ;R7 DESTROYE┆
0x16c00…16c80 UnusedSector ┆D ;...................................; ; PULLDOWN: ; PULLDOWN: IF TST MON REGISTERS ; MON GIVEUPTIME FI ; MOV R5 SAVE1 ; SAV┆
0x16c80…16d00 UnusedSector ┆E (LINK); MOVC 1 R4 ; 0 MOVC 0 R7 ; => JMP S6 SETPAE ; *WRITE*; MOV R0 SAVE2 ; R0 => 0.SAVER0; MOV R1 SAVE3 ; R1 => 0.SAVER┆
0x16d00…16d80 UnusedSector ┆1; ;>--------------------------------< ;> SERVING DMA-INTERRUPT WHILE < ;> WAITING FOR FR.B. INTERRUPT < ;>-----------------┆
0x16d80…16e00 UnusedSector ┆---------------< STOPPING: ; STOPPING: MOV INTERT-C R1 ; IF SLOW MODC #4000 FI ; MOVC 100 R0 ; SET DELAY = 10; MON WAITINTERR┆
0x16e00…16e80 UnusedSector ┆UPT ; WAITINTERRUPT; JMP TTIMEOUT ; IF TIMEOUT GOTO TIMEOUT; ;### ; MOV DEVPR-C R6 ; CASE XTR R6 2 ; PRI + 1 IF TST MON REGIS┆
0x16e80…16f00 UnusedSector ┆TERS ; MON GIVEUPTIME FI ; MOD R6 ; OF JMP LOC+1 ; BEGIN JMP PULPR0 ; JMP PULPR1 ; JMP PULPR2 ; JMP PULPR2 ; PULPR0: ; BE┆
0x16f00…16f80 UnusedSector ┆GIN MOV FSCDEV R6 ; ADDC SYS R6 ; PULL11: SIO R5 R6 ; PREAD: INV R5 ; *OPSTATUS* => ST; IF TST MON REGISTERS ; MON GIVEUPTIM┆
0x16f80…17000 UnusedSector ┆E FI ; IBN R5 15 ; IF ST VALID THEN JMP PULL11 ; GOTO PREAD; MOVC 7 R4 ; DISABLE FRAMB. INT.; MOVC 0 R7 ; JMP S6 SETPAE ; G┆
0x17000…17080 UnusedSector ┆OTO FINISHED; JMP STOPFI ; END; PULPR1: ; BEGIN JOZ R0 PULPA1 ; IF INTERRUPTCOUNT <> 0 THEN ; BEGIN MOVC 13 R4 ; 13 => ERRCO┆
0x17080…17100 UnusedSector ┆DE; JMP TRANI0 ; GOTO SYSTEM TOO SLOW; PULPA1: ; END; MOVC BUFCOUNT3 R6 ; BEGIN DEC 0. X6 ; DECR (0.BUFCOUNT3); MOV BUFCOUNT┆
0x17100…17180 UnusedSector ┆2 R6 ; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; ILTP R6 1 ; IF 0.BUFCOUNT2 <= 0 THEN MOVC 14 R4 ; BEGIN 14=>ERRCODE; JMP T┆
0x17180…17200 UnusedSector ┆RANI0 ; GOTO SYS.T.SLOW; END; JMP S6 SENDBUF ; SENDBUF; JMP STOPPING ; END; PULPR2: ; BEGIN MOVC ERROR R2 ; MOV FSCDEV R4 ; ┆
0x17200…17280 UnusedSector ┆ ADDC ORS R4 ; SIO R3 R4 ; INV R3 ; MOV R6 R4 ; JMP S5 CHECKERR ; IF NOT POS.MEM. FULL THEN JMP ERRORFUNC ; ERRORFUNC; JMP┆
0x17280…17300 UnusedSector ┆ STOPPING ; END; ; GOTO STOPPING; ; END; ;---------------------------------- ;### ; STOPFI: ; FINISHED: MOV SETUPE R4 ; IF S┆
0x17300…17380 UnusedSector ┆OURCE ION BITSYC.X4 ; <> CPU THEN JMP PULLD8 ; GOTO NOBLOCK; ;>--------------------------------< ;> SPECIAL FOR TEST DATA FR┆
0x17380…17400 UnusedSector ┆OM CPU< ;>--------------------------------< MOV FSCDEV R6 ; ADDC SDR R6 ; MOV SCOUNT R3 ; 0.COUNT => CO; ADDC 1 R3 ; CO+1 =┆
0x17400…17480 UnusedSector ┆> CO; MOVC #FFFF R4 ; 0 => DA; PULLD7: ; FOR I:=1 UNTIL CO DO CIO R4 R3 ; DA => *DATA*; NOP ; SOB R3 PULLD7 ; MOVC 1 R0 ; 1┆
0x17480…17500 UnusedSector ┆0 MSEC => DELAY; MOV INTERT-C R1 ; MON WAITINTERRUPT ; WAITINTERRUPT; JMP PULLD8 ; TIMEOUT: GOTO NOBLOCK; MOV DEVPR-C R6 ; ┆
0x17500…17580 UnusedSector ┆XTR R6 2 ; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; IEQ R6 1 ; IF PRI <> 1 THEN JMP PULLD9 ; BEGIN MOV FSCDEV R4 ; SIO R3┆
0x17580…17600 UnusedSector ┆ R4 ; INV R3 ; *OPSTATUS* => STATUS; MOV R6 R4 ; PRI => PRIO; MOVC ERROR R2 ; ERROR => CODE; JMP S5 CHECKERR ; IF NOT POS.ME┆
0x17600…17680 UnusedSector ┆M. FULL THEN JMP ERRORFUNC ; ERRORFUNC; PULLD9: ; END; MOVC BUFCOUNT3 R5 ; BUFCOUNT3 => ADDR; DEC 0. X5 ; DECR (0.ADDR); MOV┆
0x17680…17700 UnusedSector ┆ BUFCOUNT2 R4 ; IF 0.BUFCOUNT2 <= 0 THEN IF TST MON REGISTERS ; MON GIVEUPTIME FI ; ILTP R4 1 ; BEGIN MOVC OUTOFMESS R2 ; ERR┆
0x17700…17780 UnusedSector ┆ORFUNC (OUT OF MESS); JMP ERRORFUNC ; END; JMPI S6 LSENDBUF ; SENDBUF; ;---------------------------------- ;### ; PULLD8: ; N┆
0x17780…17800 UnusedSector ┆OBLOCK: ;>--------------------------------< ;> UNLOCK < ;>--------------------------------< MOVC 0 R7 ; MOVC 0 R4 ; 0 => J┆
0x17800…17880 UnusedSector ┆MPI S6 LSETPAE ; *LOCKMODE*; ;>--------------------------------< ;> RELEASING INPUT-MESSAGES < ;>----------------------------┆
0x17880…17900 UnusedSector ┆ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
[…0x4…]
0x17b00…17b80 UnusedSector ┆LIST 77.11.02 BEGIN USE BASE MODULE NOLIST $S8MXGL $S8MNAX XPD:= UTILITYLENGTH $S8MXP1 LIST OUTCHAR1=OUTCHAR INCHAR1=INCHAR B┆
0x17b80…17c00 UnusedSector ┆EGIN EXTERNAL OUTCHAR1, INCHAR1, OUTNL, SETDELAY, WAITEVENT, SETINTERRUPT EXTERNAL INITDEVICE, SENDANSWER, CURIN, CUROUT, INTERR┆
0x17c00…17c80 UnusedSector ┆UPT EXTERNAL RESUMEEVENT, OUTEND, REGISTERS, DEVPR, OUTTEXTP EXTERNAL LOCACTION, CAUSE, ENDPROGRAM ENTRY FIRST FRAMESYNC= TRUE ┆
0x17c80…17d00 UnusedSector ┆ BS1= #1000 ;DEVICE DEFINITIONS OC= 1 IF FRAMESYNC FSCDEV= 7 FI IF FRAMESYNC FI BAS:= 8 CURADR: 0 TOP: 0 STACK: 0 ┆
0x17d00…17d80 UnusedSector ┆ LOCA: LOCAC SAVE0: 0 IF FRAMESYNC BUFFSC: 0 BFCFSC: 0 CONT1: 0 FREEAR: 0 REPEAT 1024 FI USE PROG ;GETADR - GET ADDRE┆
0x17d80…17e00 UnusedSector ┆SS ; CALL EXIT ; ;R0 DESTROYED ;R1 DESTROYED ;R2 0 ;R3 ADDRESS ;R5 LINK DESTROYED ;R6 DESTROYED ;R7 DESTROYED GETADR┆
0x17e00…17e80 UnusedSector ┆: ; GETADR: MOV R5 STACK ; LINK=>0.STACK; MOVC 0 R3 ; 0=>VALUE; G1: ; G1: JMP S6 INCHAR ; GET CHAR; JMP S5 HEXIN1 ; TES┆
0x17e80…17f00 UnusedSector ┆T IF HEX CHAR; JMP G1 ; NOT HEX, GOTO G1; MOV R1 R3 ; MOVC 3 R2 ; 3=>COUNT; G0: ; G0: JMP S5 HEXIN ; GET HEX CHAR; JM┆
0x17f00…17f80 UnusedSector ┆PI STACK ; RETURN(ERROR); SLL R3 4 ; VALUE*16=>VALUE; ADD R1 R3 ; CHAR+VALUE=>VALUE; SOB R2 G0 ; IF DECR(COUNT)<> 0 THEN ┆
0x17f80…18000 UnusedSector ┆ ; GOTO G0 ; MOV STACK R5 ; 0.STACK=>LINK; JMP 1. X5 ; RETURN ;HEXIN ; CALL EXIT ; ;R0 DESTROYED ;R1 HEX CHAR ;R5 ┆
0x18000…18080 UnusedSector ┆LINK LINK ;R6 DESTROYED ;R7 DESTROYED HEXIN: ; HEXIN: JMP S6 INCHAR ; GET CHAR; HEXIN1: ; HEXIN1: IGE R1 <:A:> ; IF CH┆
0x18080…18100 UnusedSector ┆AR < <A> JMP HEXIN2 ; AND IGE R1 <:::> ; CHAR >= <:> THEN JMP 0. X5 ; RETURN(ERROR); HEXIN2: ; ADDC -<:A:>+10 R1 ; CHAR-<┆
0x18100…18180 UnusedSector ┆:A:>+10 => CHAR; ILT R1 10 ; IF CHAR<10 THEN ADDC <:A:>-10-<:0:> R1 ; CHAR+<:A:>-10-<:0:> =>CHAR; SGEP R1 16 ; IF CHAR<16 O┆
0x18180…18200 UnusedSector ┆R SLT R1 0 ; >=0 THEN JMP 1. X5 ; RETURN JMP 0. X5 ; RETURN(ERROR); ;HEXOUT ; CALL EXIT ; ;R1 DESTROYED ;R2 DESTR┆
0x18200…18280 UnusedSector ┆OYED ;R4 BIN VALUE DESTROYED ;R5 LINK LINK ;R6 DESTROYED ;R7 DESTROYED HEXOUT: ; HEXOUT: MOVC 8#40 R1 ; ASCII(SP) => CH┆
0x18280…18300 UnusedSector ┆AR; JMP S6 OUTCHAR ; OUTPUT CHAR; MOVC 4 R2 ; 4 => COUNT; H2: SLC R4 4 ; H2: MOV R4 R1 ; XTR R1 4 ; HEX(3:4) => VALUE; ┆
0x18300…18380 UnusedSector ┆ ILT R1 10 ; IF VALUE < 10 THEN ADDC <:0:>-<:A:>+10 R1 ; VALUE+<:0:>-<:A:>+10 =>VALUE ADDC <:A:>-10 R1 ; VALUE+<:A:>-10 => ┆
0x18380…18400 UnusedSector ┆CHAR; JMP S6 OUTCHAR ; OUTPUT CHAR; SOB R2 H2 ; IF DECR(COUNT)<>0 THEN ; GOTO H2; JMP 0. X5 ; RETURN; ;NEXTLIN ; C┆
0x18400…18480 UnusedSector ┆ALL EXIT ; ;R0 DESTROYED ;R1 DESTROYED ;R2 DESTROYED ;R5 LINK LINK ;R6 DESTROYED ;R7 DESTROYED NEXTLIN: ; NEXTLIN: X┆
0x18480…18500 UnusedSector ┆CH R6 R4 ; XCH R1 R3 ; MOV CUROUT-C R4 ; MON OUTNL ; XCH R6 R4 ; XCH R1 R3 ; JMP 0. X5 ; ;SPACE OUTPUT A SPACE; ; CAL┆
0x18500…18580 UnusedSector ┆L EXIT ; ;R0 DESTROYED ;R1 DESTROYED ;R6 LINK DESTROYED ;R7 DESTROYED SPACE: ; SPACE: MOVC <: :> R1 ; JMP OUTCHAR ; ┆
0x18580…18600 UnusedSector ┆OUTPUT(<SP>); INCHAR: ; INCHAR: XCH R4 R0 ; XCH R1 R3 ; MOV CURIN-C R4 ; MON INCHAR1 ; XCH R1 R3 ; XCH R0 R4 ; JMP ┆
0x18600…18680 UnusedSector ┆0. X6 ; ; OUTCHAR: ; OUTCHAR: XCH R4 R0 ; XCH R1 R3 ; MOV CUROUT-C R4 ; MON OUTCHAR1 ; XCH R1 R3 ; XCH R0 R4 ; JMP 0. ┆
0x18680…18700 UnusedSector ┆X6 ; ; ; ; FIRST: ; INIT INTERRUPTS: MOV LOCACN-C R0 ; MOV LOCA R1 ; MOV R1 LOCACN-C ; MOV R0 LOCA ; JMP S6 FIRSTTT ┆
0x18700…18780 UnusedSector ┆; <:FREE AREA FROM <0>:> <: TO <0>:> FIRSTTT: ; MOV CUROUT-C R4 ; MON OUTTEXTP ; MOVC FREEAR R4 ; ADD BAS R4 ; MOV R6 R3 ┆
0x18780…18800 UnusedSector ┆; JMP S5 HEXOUT ; MOV R3 R6 ; MOV CUROUT-C R4 ; MON OUTTEXTP ; MOVC FREEAR+1023 R4 ; ADD BAS R4 ; JMP S5 HEXOUT ; MOVC F┆
0x18800…18880 UnusedSector ┆SCDEV<2 R0 ; MOV R0 DEVPR-C ; MON INITDEVICE ; ; START: ; START: JMP S5 NEXTLIN ; NEW LINE; MOVC <:>:> R3 ; MOV CUROUT┆
0x18880…18900 UnusedSector ┆-C R4 ; MON OUTEND ; STR1: ; STR1: JMP S6 INCHAR ; GET COMMAND; ; IF FRAMESYNC IEQ R1 <:O:> ; O - SEND DATA JMP SENDDA┆
0x18900…18980 UnusedSector ┆TA ; FI IEQ R1 <:X:> ; X - EXIT MON ENDPROGRAM ; IEQ R1 <:D:> ; D - MEMDUMP; JMP MEMDUMP ; IEQ R1 <:C:> ; C - CONTINUE ┆
0x18980…18a00 UnusedSector ┆MEMDUMP; JMP CMEMDUMP ; IEQ R1 <:P:> ; P - LOAD DATA; JMP LOADDATA ; IEQ R1 <:Q:> ; Q - INSERT SAVE-LOAD PATCH; JMP PA┆
0x18a00…18a80 UnusedSector ┆TCH ; IF FRAMESYNC IEQ R1 <:A:> ; A - DEFINE DATA JMP FSCDATADF ; IEQ R1 <:G:> ; G - DUMP REGISTER IN FSC JMP FSCREGDMP┆
0x18a80…18b00 UnusedSector ┆ ; IEQ R1 <:L:> ; L - LOAD REGISTER IN FSC JMP FSCREGLOD ; IEQ R1 <:W:> ; W - WAIT INTERRUPT JMP WAITINT ; IEQ R1 <:E:┆
0x18b00…18b80 UnusedSector ┆> ; E - REPETITIVE LOAD JMP CONTLOAD ; IEQ R1 <:F:> ; F - REPETITIVE SENSE JMP CONTDUMP ; FI ; IEQ R1 <: :> ; IF CHAR = <┆
0x18b80…18c00 UnusedSector ┆SP> THEN JMP STR1 ; GOTO STR1; IEQ R1 10 ; JMP STR1 ; ; ERROR: ; ERROR: MOVC <:?:> R1 ; JMP S6 OUTCHAR ; OUTPUT ?; ┆
0x18c00…18c80 UnusedSector ┆JMP START ; GOTO START; ; ; IF FRAMESYNC ; ; SENDDATA: ; SEND DATA-AREA TO FSC: MOV BUFFSC R2 ; GET STARTADR ; MOV┆
0x18c80…18d00 UnusedSector ┆ BFCFSC R3 ; GET AREASIZE ; MOVC 7<6 +% ; FSCDEV R0 ; IEQ R2 0 ; IF STARTADR = 0 THEN JMP ERROR ; GOTO ERROR ; SENDD0┆
0x18d00…18d80 UnusedSector ┆: ; ADDRESS := STARTADDRESS ; MOV X2 R1 ; FOR I := 1 UNTIL AREASIZE DO INV R1 ; SWP R1 ; BEGIN CIO R1 R0 ; WRITE (FSC,HIG┆
0x18d80…18e00 UnusedSector ┆HBYTE(ADR)) ; SWP R1 ; CIO R1 R0 ; WRITE (FSC,LOWBYTE(ADR)) ; ADDC 1 R2 ; INCR (ADR) ; SOB R3 SENDD0 ; END ; ; JMP S┆
0x18e00…18e80 UnusedSector ┆TART ; FI ; LOADDATA: ; LOADDATA: JMP S5 GETADR ; GETADDRESS; JMP ERROR ; IF ERROR THEN GOTO ERROR; SUB BAS R3 ; LD0:┆
0x18e80…18f00 UnusedSector ┆ ; LD0: JMP S6 INCHAR ; GET CHARACTER; IEQP R1 <:L:> ; L - DECR(RE.ADDRESS); ADDC -1 R3 ; JMP LD0 ; GOTO LD0; IEQ R1 <┆
0x18f00…18f80 UnusedSector ┆:S:> ; S - STOP INPUT; JMP START ; GOTO START; JMP S5 HEXIN1 ; CONVET TO HEX; JMP LD0 ; NO HEX CHAR: GOTO LD0; MOV R1 R2┆
0x18f80…19000 UnusedSector ┆ ; MOVC 3 R4 ; 3 => COUNT; LD1: ; LD1: JMP S5 HEXIN ; GET HEX CHAR; JMP ERROR ; IF ERROR THEN GOTO ERROR; SLL R2 4 ; HE┆
0x19000…19080 UnusedSector ┆X*16 => HEX; ADD R1 R2 ; CHAR+HEX => HEX; SOB R4 LD1 ; IF DECR(COUNT) <> 0 THEN ; GOTO LD1; MOV R2 0. X3 ; SAVE WORD; ┆
0x19080…19100 UnusedSector ┆ADDC 1 R3 ; INCR(RE.ADDRESS); JMP LD0 ; GOTO NEW DATA(LD0); ; ; MEMDUMP: ; MEMDUMP: JMP S5 GETADR ; GET START ADDRESS; ┆
0x19100…19180 UnusedSector ┆ JMP ERROR ; IF ERROR THEN GOTO ERROR MOV R3 CURADR ; ADDRESS => 0.CURADR; MOVC #FFFF R3 ; MOV R3 TOP ; ADDRESS => 0.TOP;┆
0x19180…19200 UnusedSector ┆ ; CMEMDUMP: ; CONTINUE MEMDUMP: JMP S5 NEXTLIN ; NEW LINE; MOV CURADR R4 ; 0.0.CURADR => RE.ADR; JMP S5 HEXOUT ; OUTPU┆
0x19200…19280 UnusedSector ┆T RE.WORD; MOVC <:L:> R1 ; JMP S6 OUTCHAR ; L1: ; NEXT: MOV CURADR R3 ; 0.CURADR => RE.WORD; MOV TOP R4 ; 0.TOP => TOPAD┆
0x19280…19300 UnusedSector ┆DRESS; ILO R4 R3 ; IF TOPADDRESS <CURADR THEN JMP START ; GOTO START; MOVC 0 R0 ; MON SETDELAY ; MON WAITEVENT ; JMP ON┆
0x19300…19380 UnusedSector ┆ ; JMP MDANSW ; MON SENDANSWER ; JMP START ; MDANSW: ; MON RESUMEEVENT ; JMP START ; ON: ; MOV R3 R4 ; MODN BAS ; MOV ┆
0x19380…19400 UnusedSector ┆0. X4 R4 ; 0.CURADR => WORD; JMP S5 HEXOUT ; OUTPUT WORD; ADDC 1 R3 ; INCR(RE.WORD); MOV R3 CURADR ; RE.WORD => 0.CURADR; ┆
0x19400…19480 UnusedSector ┆ XTR R3 3 ; IF RE.WORD(2:3)<>0 INE R3 0 ; THEN JMP L1 ; GOTO NEXT; JMP CMEMDUMP ; GOTO CONTINUE MEMDUMP; ; PATCH: ; PA┆
0x19480…19500 UnusedSector ┆TCH: JMP S5 GETADR ; GET ADDRESS; JMP ERROR ; IF ERROR THEN GOTO ERROR; SUB BAS R3 ; MOVC #20BE R0 ; SVP MOV R0 0. X3 ┆
0x19500…19580 UnusedSector ┆; MOV BAS R0 ; SWP R0 ; XTR R0 8 ; SWP R0 ; ADDC #56 R0 ; MOV R0 1. X3 ; MOVC #0048 R0 ; MOV R0 2. X3 ; MOVC #┆
0x19580…19600 UnusedSector ┆40BC R0 ; LDN R0 MOV R0 3. X3 ; JMP START ; GOTO START IF FRAMESYNC ; ; FSCREGLOAD: ; LOAD REGISTER IN FSC: JMP S5 H┆
0x19600…19680 UnusedSector ┆EXIN ; GET REGISTERNUMBER JMP FSCRED ; ; MOV R1 R4 ; REG := REGNUMBER; ; JMP S6 INCHAR ; IF NEXTCHAR <> <SP> INE R1 ┆
0x19680…19700 UnusedSector ┆<: :> ; THEN JMP ERROR ; GOTO ERROR ; ; JMP S5 GETADR ; GET REGISTERCONTENT ; JMP ERROR ; IF ERROR THEN GOTO ERROR ; ;┆
0x19700…19780 UnusedSector ┆ SLL R4 6 ; WRITE ADDC FSCDEV R4 ; (REG, INV R3 ; CIO R3 R4 ; DEV,REGCONTENT) ; ; JMP START ; GOTO START ; ; ; F┆
0x19780…19800 UnusedSector ┆SCREGDUMP: ; DUMP REGISTER IN FSC: JMP S5 HEXIN ; GET REGISTER NUMBER ; JMP FSCREGDMP ; ; SLL R1 6 ; ADDC FSCDEV R1 ; ┆
0x19800…19880 UnusedSector ┆ SIO R4 R1 ; READ (REG,DEV,CONTENT) ; ; JMP S6 SPACE ; WRITE(<SP>) ; ; INV R4 ; JMP S5 HEXOUT ; WRITE (CONTENT) ; ; ┆
0x19880…19900 UnusedSector ┆ JMP START ; ; ; FSCDATADEF: ; DEFINE DATA TO FSC: JMP S5 GETADR ; GET STARTADR ; JMP ERROR ; IF ERROR THEN GOTO ERROR┆
0x19900…19980 UnusedSector ┆ ; JMP S6 INCHAR ; CHECK INE R1 <: :> ; SPACE JMP ERROR ; SEPARATOR ; ; MOV R3 R4 ; SAVEST := STARTADR ; ; JMP S┆
0x19980…19a00 UnusedSector ┆5 GETADR ; GET AREASIZE ; JMP ERROR ; IF ERROR THEN GOTO ERROR ; ; IEQ R3 0 ; IF AREASIZE = 0 THEN JMP ERROR ; GOTO ERRO┆
0x19a00…19a80 UnusedSector ┆R ; SUB BAS R4 ; ADJUST STARTADR TO RELATIVE; ; MOV R4 BUFFSC ; SAVE (STARTADR) ; MOV R3 BFCFSC ; SAVE (AREASIZE) ; ┆
0x19a80…19b00 UnusedSector ┆; JMP START ; ; ; ; WAITINT: ; WAIT INTERRUPT: MOV INTERRUPT-C R1 ; MON SETINT ; MON WAITEVENT ; JMP MDANSW ; JMP┆
0x19b00…19b80 UnusedSector ┆ WAIMES ; ; MOVC <:F:> R3 ; MOV CUROUT-C R4 ; MON OUTCHAR ; MON OUTNL ; JMP WAITINT ; WAIMES: ; MON SENDANSWER ; JMP STA┆
0x19b80…19c00 UnusedSector ┆RT ; ; ; ; CONTLOAD: ; REPETITIVE LOAD: JMP S5 HEXIN ; GET REG NUMBER; JMP CONTLOAD ; ; MOV R1 R4 ; REG := REGNUMBER; ; ┆
0x19c00…19c80 UnusedSector ┆ JMP S6 INCHAR ; CHECK INE R1 <: :> ; SPACE JMP ERROR ; SEPARATOR; ; JMP S5 GETADR ; GET REG CONT1; JMP ERROR ; MOV R3 CON┆
0x19c80…19d00 UnusedSector ┆T1 ; SAVECONT1 := REG CONT1; ; JMP S6 INCHAR ; CHECK INE R1 <: :> ; SPACE JMP ERROR ; SEPARATOR; ; JMP S5 GETADR ; GET REG┆
0x19d00…19d80 UnusedSector ┆ CONT2; JMP ERROR ; ; MOV CONT1 R1 ; REG CONT1 := SAVECONT1; INV R1 ; INV R3 ; ; SLL R4 6 ; ADDC FSCDEV R4 ; MOVC #FFFF┆
0x19d80…19e00 UnusedSector ┆ R0 ; CLLOOP: ; LOADAGAIN: CIO R1 R4 ; NOP ; ; CIO R3 R4 ; LOAD REG WITH REG CONT2; ; SOB R0 CLLOOP ; MOVC 0 R0 ; MON SE┆
0x19e00…19e80 UnusedSector ┆TDELAY ; MON WAITEVENT ; JMP TIMEOUT ; JMP MDANSW ; MON SENDANSWER ; JMP START ; TIMEOUT: ; MOVC #FFFF R0 ; JMP CLLOOP ; ┆
0x19e80…19f00 UnusedSector ┆ ; ; ; CONTDUMP: ; REPETITIVE SENSE: JMP S5 HEXIN ; GET REG NUMBER; JMP CONTDUMP ; ; SLL R1 6 ; ADDC FSCDEV R1 ; MOVC #F┆
0x19f00…19f80 UnusedSector ┆FFF R0 ; CDLOOP: ; DUMPAGAIN: SIO R3 R1 ; SENSE REG; SOB R0 CDLOOP ; MOVC 0 R0 ; MON SETDELAY ; MON WAITEVENT ; JMP CDTIME┆
0x19f80…1a000 UnusedSector ┆OUT ; JMP MDANSW ; MON SENDANSWER ; JMP START ; CDTIMEOUT: ; MOVC #FFFF R0 ; JMP CDLOOP ; FI LOCAC: ; MOV R0 SAVE0 ; M┆
0x1a000…1a080 UnusedSector ┆OV CAUSE-C R0 ; IEQP R0 0 ; MOV SAVE0 R0 ; JMPI LOCA ; JMP S6 LOCTXT ; <:<10>CAUSE:<0>:> LOCTXT: ; MOV CUROUT-C R4 ; MON ┆
0x1a080…1a100 UnusedSector ┆OUTTEXTP ; MOV R0 R4 ; JMP S5 HEXOUT ; MOVC 0 R0 ; LDS R0 ; MOV SAVE0 R0 ; JMP START ; NOP ; USE BASE END XPRPC= FIRST┆
0x1a100…1a180 UnusedSector ┆ XREFS=2 XBUFS=2 NOLIST $S8MXP2 LIST END JMPI LOCA ; JMP S6 LOCTXT ; <:<10>CAUSE:<0>:> LOCTXT: ; MOV CUROUT-C R4 ; MON ┆
0x1a180…1a200 UnusedSector ┆ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
[…0x16…]
0x1ad00…1ad80 UnusedSector ┆ MON OUTNL ; OUTNL; JMP C021 ; ;### ; OPERATIONEL COMMANDS, SETUP COMMANDS: ; ; CIG02: ; GET COMMAND: MOV CUROUT-C R4 ; MO┆
0x1ad80…1ae00 UnusedSector ┆VC <:/:> R3 ; MON OUTEND ; OUTEND <:/:>: C021: MON INCOMMAND ; INCOMMAND(SHARE); <:START:> , CMD0 ; START: <:STOP:>,0 , CMD1 ┆
0x1ae00…1ae80 UnusedSector ┆; STOP: <:LIST:>,0 , CMD2 ; LIST: <:TTHR:>,0 , CMD10 ; TRUE THRESHOLD; <:FTHR:>,0 , CMD11 ; FALSE THRESHOLD; <:FRAMEH:> , CM┆
0x1ae80…1af00 UnusedSector ┆D12 ; FRAMELENGTH; <:FORMAT:> , CMD13 ; FORMAT; <:LOCKME:> , CMD14 ; LOCKMODE; <:SORTPR:> , CMD15 ; SORT PARAMETER; <:WINDOW┆
0x1af00…1af80 UnusedSector ┆:> , CMD16 ; WINDOW; <:SOURCE:> , CMD17 ; SOURCE; <:SYNCWH:> , CMD18 ; SYNCWORKLENGTH; <:SYNCWD:> , CMD19 ; SYNCWORD; <:UNLO┆
0x1af80…1b000 UnusedSector ┆CK:> , CMD20 ; UNLOCKCRITERIA; <:ENDCOT:> , CMD21 ; ENDCOUNT; <:SPEED:> , CMD30 ; HDTR SPEED; <:VERNIR:> , CMD31 ; VERNIER; ┆
0x1b000…1b080 UnusedSector ┆<:FILE:>,0 , CMD32 ; FULL DATE; <:TIME:>,0 , CMD33 ; TIME; <:BLOCKR:> , CMD34 ; BLOCKNR; <:BLOCKT:> , CMD35 ; BLOCKCOUNT; <:┆
0x1b080…1b100 UnusedSector ┆BLOCKE:> , CMD36 ; BLOCKSIZE; <:HDTRMK:> , CMD37 ; HDTR MASK: <:DUMMYT:> , CMD38 ; DUMMY COUNT; <:METEOT:> , CMD39 ; METEOSAT┆
0x1b100…1b180 UnusedSector ┆ SETUP; 0 , 0 ; INE R3 0 ; ERROR: IF NOT EMPTY LINE OR JMP CIG07 ; NOTFOUND: GOTO ILL COMMAND; JMP CIG04 ; GOTO PROMT; CMD0┆
0x1b180…1b200 UnusedSector ┆: ; START: CLR SAVE0. X7 ; 0=>OPERATION; C001: ; GET FUNCTION: MON INCOMMAND ; <:TLM:>,0 , CMD40 ; TLM; <:FSC:>,0 , CMD41 ; ┆
0x1b200…1b280 UnusedSector ┆FSC; <:WRITE:> , CMD42 ; WRITE; <:READ:>,0 , CMD43 ; READ; <:INITWE:> , CMD44 ; INIT WRITE; <:WIND:>,0 , CMD45 ; WIND TAPE; ┆
0x1b280…1b300 UnusedSector ┆ <:REWIND:> , CMD46 ; REWIND TAPE; <:SEARCH:> , CMD47 ; SEARCH; <:POSITN:> , CMD48 ; POSITION FOR WRITE; <:LISTFS:> , CMD49 ;┆
0x1b300…1b380 UnusedSector ┆ LISTFILES; 0 , 0 ; INE R3 0 ; ERROR: IF ERROR OR JMP CIG05 ; NOTFOUND: GOTO ILL PARAM; ; EMPTY LINE: CONTINUE; MON BACKSPA┆
0x1b380…1b400 UnusedSector ┆CE ; BACKSPACE(SHARE); ;### ; TEST END: MOV SAVE0. X7 R0 ; GET FUNCTION; XTR R0 4 ; JOZ R0 CIG06 ; IF FUNCTION=0 THEN ; GOT┆
0x1b400…1b480 UnusedSector ┆O ILLEGAL FUNCTION; SEQP R0 1 ; SEQ R0 5 ; IF WRITE AND TLM IHS R0 10 ; OR IMPOSSIBLE READ THEN JMP CIG06 ; GOTO ILLEGAL FUN┆
0x1b480…1b500 UnusedSector ┆CTION; JMP C401 ; GOTO INIT FUNCTION; ; CMD49: MODC 1 ; LISTFILES:BIT NR 9 ORELSE CMD48: MODC 1 ; POSITION: BIT 8 CMD47: MODC ┆
0x1b500…1b580 UnusedSector ┆1 ; SEARCH: BIT 7 CMD46: MODC 1 ; REWIND: BIT 6 CMD45: MOVC 1 R1 ; WIND: BIT 5 SOZ SAVE0. X7 ; IF FUNCTION<>0 THEN JMP CIG06 ;┆
0x1b580…1b600 UnusedSector ┆ GOTO ILLEGAL FUNCTION; MOD R1 ; CONTINUE BIT SELECT; CMD44: MODC 1 ; INITWRITE:BIT 4 CMD43: MODC 1 ; READ: BIT 3 CMD42: MODC 1┆
0x1b600…1b680 UnusedSector ┆ ; WRITE: BIT 2 CMD41: MODC 1 ; FSC: BIT 1 CMD40: MOVC 0 R1 ; TLM: BIT 0 MOV SAVE0. X7 R0 ; RESTORE(FUNCTION); SETS R0 R1 ; 1=┆
0x1b680…1b700 UnusedSector ┆>FUNCTION[BIT]; IBN R0 4 ; IF INITWRITE THEN SETS R0 2 ; 1=>FUNCTION[WRITE]; MOV R0 SAVE0. X7 ; SAVE(FUNCTION); ILO R0 #20 ;┆
0x1b700…1b780 UnusedSector ┆ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
[…0x4…]
0x1b980…1ba00 UnusedSector ┆LIST 77.11.02 BEGIN USE BASE MODULE BS1 FRAMESYNC= TRUE BS1= #1000 ;DEVICE DEFINITIONS OC= 1 IF FRAMESYNC FSCDEV= 7 FI┆
0x1ba00…1ba80 UnusedSector ┆ LOC= BASE 0,REPEAT 7 BAS: BS1,BS1,PRG1,INITP,0,#E000,0,LOCACT,0,0,0,0 PR1= 0 BINP= 10 BOUT= 11 BPERR= 13 CAUSE= 17 F┆
0x1ba80…1bb00 UnusedSector ┆REST= 2#1000<11 IF FRAMESYNC DEVPR= 18 FI CURADR: 0 TOP: 0 STACK: 0 IF FRAMESYNC BUFFSC: 0 BFCFSC: 0 CONT1: 0 FI ┆
0x1bb00…1bb80 UnusedSector ┆ USE PROG ;GETADR - GET ADDRESS ; CALL EXIT ; ;R0 DESTROYED ;R1 DESTROYED ;R2 0 ;R3 ADDRESS ;R5 LINK DESTROYED ;R6 D┆
0x1bb80…1bc00 UnusedSector ┆ESTROYED ;R7 DESTROYED GETADR: ; GETADR: MOV R5 STACK ; LINK=>0.STACK; MOVC 0 R3 ; 0=>VALUE; G1: ; G1: JMP S6 INCHAR ┆
0x1bc00…1bc80 UnusedSector ┆; GET CHAR; JMP S5 HEXIN1 ; TEST IF HEX CHAR; JMP G1 ; NOT HEX, GOTO G1; MOV R1 R3 ; MOVC 3 R2 ; 3=>COUNT; G0: ; G0: ┆
0x1bc80…1bd00 UnusedSector ┆JMP S5 HEXIN ; GET HEX CHAR; JMPI STACK ; RETURN(ERROR); SLL R3 4 ; VALUE*16=>VALUE; ADD R1 R3 ; CHAR+VALUE=>VALUE; SOB ┆
0x1bd00…1bd80 UnusedSector ┆R2 G0 ; IF DECR(COUNT)<> 0 THEN ; GOTO G0 ; MOV STACK R5 ; 0.STACK=>LINK; JMP 1. X5 ; RETURN ;HEXIN ; CALL EXIT ; ┆
0x1bd80…1be00 UnusedSector ┆;R0 DESTROYED ;R1 HEX CHAR ;R5 LINK LINK ;R6 DESTROYED ;R7 DESTROYED HEXIN: ; HEXIN: JMP S6 INCHAR ; GET CHAR; HEXIN1:┆
0x1be00…1be80 UnusedSector ┆ ; HEXIN1: IGE R1 <:A:> ; IF CHAR < <A> JMP HEXIN2 ; AND IGE R1 <:::> ; CHAR >= <:> THEN JMP 0. X5 ; RETURN(ERROR); HEXI┆
0x1be80…1bf00 UnusedSector ┆N2: ; ADDC -<:A:>+10 R1 ; CHAR-<:A:>+10 => CHAR; ILT R1 10 ; IF CHAR<10 THEN ADDC <:A:>-10-<:0:> R1 ; CHAR+<:A:>-10-<:0:> =>┆
0x1bf00…1bf80 UnusedSector ┆CHAR; SGEP R1 16 ; IF CHAR<16 OR SLT R1 0 ; >=0 THEN JMP 1. X5 ; RETURN JMP 0. X5 ; RETURN(ERROR); ;HEXOUT ; CALL ┆
0x1bf80…1c000 UnusedSector ┆EXIT ; ;R1 DESTROYED ;R2 DESTROYED ;R4 BIN VALUE DESTROYED ;R5 LINK LINK ;R6 DESTROYED ;R7 DESTROYED HEXOUT: ; HEXOUT:┆
0x1c000…1c080 UnusedSector ┆ MOVC 8#40 R1 ; ASCII(SP) => CHAR; JMP S6 OUTCHAR ; OUTPUT CHAR; MOVC 4 R2 ; 4 => COUNT; H2: SLC R4 4 ; H2: MOV R4 R1 ;┆
0x1c080…1c100 UnusedSector ┆ XTR R1 4 ; HEX(3:4) => VALUE; ILT R1 10 ; IF VALUE < 10 THEN ADDC <:0:>-<:A:>+10 R1 ; VALUE+<:0:>-<:A:>+10 =>VALUE ADDC┆
0x1c100…1c180 UnusedSector ┆ <:A:>-10 R1 ; VALUE+<:A:>-10 => CHAR; JMP S6 OUTCHAR ; OUTPUT CHAR; SOB R2 H2 ; IF DECR(COUNT)<>0 THEN ; GOTO H2; JMP 0┆
0x1c180…1c200 UnusedSector ┆. X5 ; RETURN; ;NEXTLIN ; CALL EXIT ; ;R0 DESTROYED ;R1 DESTROYED ;R2 DESTROYED ;R5 LINK LINK ;R6 DESTROYED ;R7 DES┆
0x1c200…1c280 UnusedSector ┆TROYED NEXTLIN: ; NEXTLIN: MOVC 8#15 R1 ; ASCII(CR) => CHAR; JMP S6 OUTCHAR ; OUTPUT CHAR; MOVC 8#12 R1 ; ASCII(LF) => ┆
0x1c280…1c300 UnusedSector ┆CHAR; JMP S6 OUTCHAR ; OUTPUT CHAR; MOVC 6 R2 ; MOVC 0 R1 ; N1: JMP S6 OUTCHAR ; OUTPUT 6 FILLERS ; SOB R2 N1 ; JMP 0┆
0x1c300…1c380 UnusedSector ┆. X5 ; RETURN; ;SPACE OUTPUT A SPACE; ; CALL EXIT ; ;R0 DESTROYED ;R1 DESTROYED ;R6 LINK DESTROYED ;R7 DESTROYED S┆
0x1c380…1c400 UnusedSector ┆PACE: ; SPACE: MOVC <: :> R1 ; JMP OUTCHAR ; OUTPUT(<SP>); INCHAR: ; INCHAR: MOVC OC R0 ; OC=>DEVICE; SIO R7 R0 ; W┆
0x1c400…1c480 UnusedSector ┆AIT FOR INPUT READY; IBZ R7 BINP ; JMP INCHAR ; IBN R7 BPERR ; IF <BREAK> THEN JMP START ; GOTO START; RIO R1 R0 ; READ(┆
0x1c480…1c500 UnusedSector ┆CHAR,DEVICE); XTR R1 8 ; ; OUTCHAR: ; OUTCHAR: MOVC OC R0 ; OC => DEVICE; SIO R7 R0 ; IBZ R7 BOUT ; WAIT FOR OUTPUT R┆
0x1c500…1c580 UnusedSector ┆EADY; JMP OUTCHAR ; WIO R1 R0 ; WRITE(CHAR,DEVICE); JMP 0. X6 ; RETURN ; ; ; INIT: ; INIT INTERRUPTS: IF FRAMESYNC┆
0x1c580…1c600 UnusedSector ┆ MODN BAS ; MOVC 0 R4 ; -BASE => MEM; MOVC #015C R0 ; MOV R0 R5 ; #015C ADD R4 R5 ; -BASE => INTTABLE; MOVC 0 R1 ; ┆
0x1c600…1c680 UnusedSector ┆ MOVC 64 R2 ; 64 => COUNT; IN0: ; SETUP: MOV R1 0. X5 ; 0 => 0.INTTABLE; MOV R1 0. X4 ; 0 => 0.MEM; INCD R4 R5 ; INCR (IN┆
0x1c680…1c700 UnusedSector ┆TTABLE,MEM); SOB R2 IN0 ; IF DECR(COUNT)<>0 THEN ; GOTO SETUP; ADDC -64 R4 ; MOV R0 0. X4 ; #015C => RE.INTTABLE; MOV ┆
0x1c700…1c780 UnusedSector ┆R0 1. X4 ; MOV R0 2. X4 ; MOV R0 3. X4 ; ; ;INTERRUPT PROCESS: BASE = 0, PROG = 0, PRPC = 0 ; FIRST INSTRUCTION: JMP LOC┆
0x1c780…1c800 UnusedSector ┆ FI ; START: ; START: JMP S5 NEXTLIN ; NEW LINE; MOVC <:>:> R1 ; JMP S6 OUTCHAR ; OUTPUT >; STR1: ; STR1: JMP S6 IN┆
0x1c800…1c880 UnusedSector ┆CHAR ; GET COMMAND; ; IF FRAMESYNC IEQ R1 <:O:> ; O - SEND DATA JMP SENDDATA ; FI IEQ R1 <:D:> ; D - MEMDUMP; JMP ME┆
0x1c880…1c900 UnusedSector ┆MDUMP ; IEQ R1 <:C:> ; C - CONTINUE MEMDUMP; JMP CMEMDUMP ; IEQ R1 <:X:> ; X - RUN PROGRAM; JMP RUNPROG ; IEQ R1 <:P:>┆
0x1c900…1c980 UnusedSector ┆ ; P - LOAD DATA; JMP LOADDATA ; IEQ R1 <:Q:> ; Q - INSERT SAVE-LOAD PATCH; JMP PATCH ; IF FRAMESYNC IEQ R1 <:A:> ; A -┆
0x1c980…1ca00 UnusedSector ┆ DEFINE DATA JMP FSCDATADF ; IEQ R1 <:G:> ; G - DUMP REGISTER IN FSC JMP FSCREGDMP ; IEQ R1 <:L:> ; L - LOAD REGISTER IN┆
0x1ca00…1ca80 UnusedSector ┆ FSC JMP FSCREGLOD ; IEQ R1 <:W:> ; W - WAIT INTERRUPT JMP WAITINT ; IEQ R1 <:E:> ; E - REPETITIVE LOAD JMP CONTLOAD ; ┆
0x1ca80…1cb00 UnusedSector ┆ IEQ R1 <:F:> ; F - REPETITIVE SENSE JMP CONTDUMP ; FI ; IEQ R1 <: :> ; IF CHAR = <SP> THEN JMP STR1 ; GOTO STR1; ; ER┆
0x1cb00…1cb80 UnusedSector ┆ROR: ; ERROR: MOVC <:?:> R1 ; JMP S6 OUTCHAR ; OUTPUT ?; JMP START ; GOTO START; ; ; IF FRAMESYNC ; ; SENDDATA: ┆
0x1cb80…1cc00 UnusedSector ┆; SEND DATA-AREA TO FSC: MOV BUFFSC R2 ; GET STARTADR ; MOV BFCFSC R3 ; GET AREASIZE ; MOVC 7<6 +% ; FSCDEV R0 ; IEQ R┆
0x1cc00…1cc80 UnusedSector ┆2 0 ; IF STARTADR = 0 THEN JMP ERROR ; GOTO ERROR ; SENDD0: ; ADDRESS := STARTADDRESS ; MOV X2 R1 ; FOR I := 1 UNTIL AREA┆
0x1cc80…1cd00 UnusedSector ┆SIZE DO INV R1 ; SWP R1 ; BEGIN CIO R1 R0 ; WRITE (FSC,HIGHBYTE(ADR)) ; SWP R1 ; CIO R1 R0 ; WRITE (FSC,LOWBYTE(ADR)) ;┆
0x1cd00…1cd80 UnusedSector ┆ ADDC 1 R2 ; INCR (ADR) ; SOB R3 SENDD0 ; END ; ; JMP START ; FI ; RUNPROG: ; RUNPROG: JMP S5 GETADR ; GETADDRESS;┆
0x1cd80…1ce00 UnusedSector ┆ JMP ERROR ; IF ERROR THEN GOTO ERROR; LDN R3 ; ; LOADDATA: ; LOADDATA: JMP S5 GETADR ; GETADDRESS; JMP ERROR ; IF ER┆
0x1ce00…1ce80 UnusedSector ┆ROR THEN GOTO ERROR; SUB BAS R3 ; LD0: ; LD0: JMP S6 INCHAR ; GET CHARACTER; IEQP R1 <:L:> ; L - DECR(RE.ADDRESS); ADDC┆
0x1ce80…1cf00 UnusedSector ┆ -1 R3 ; JMP LD0 ; GOTO LD0; IEQ R1 <:S:> ; S - STOP INPUT; JMP START ; GOTO START; JMP S5 HEXIN1 ; CONVET TO HEX; JMP┆
0x1cf00…1cf80 UnusedSector ┆ LD0 ; NO HEX CHAR: GOTO LD0; MOV R1 R2 ; MOVC 3 R4 ; 3 => COUNT; LD1: ; LD1: JMP S5 HEXIN ; GET HEX CHAR; JMP ERROR ; ┆
0x1cf80…1d000 UnusedSector ┆IF ERROR THEN GOTO ERROR; SLL R2 4 ; HEX*16 => HEX; ADD R1 R2 ; CHAR+HEX => HEX; SOB R4 LD1 ; IF DECR(COUNT) <> 0 THEN ;┆
0x1d000…1d080 UnusedSector ┆ GOTO LD1; MOV R2 0. X3 ; SAVE WORD; ADDC 1 R3 ; INCR(RE.ADDRESS); JMP LD0 ; GOTO NEW DATA(LD0); ; ; MEMDUMP: ; MEMDU┆
0x1d080…1d100 UnusedSector ┆MP: JMP S5 GETADR ; GET START ADDRESS; JMP ERROR ; IF ERROR THEN GOTO ERROR MOV R3 CURADR ; ADDRESS => 0.CURADR; MOVC #F┆
0x1d100…1d180 UnusedSector ┆FFF R3 ; MOV R3 TOP ; ADDRESS => 0.TOP; ; CMEMDUMP: ; CONTINUE MEMDUMP: JMP S5 NEXTLIN ; NEW LINE; MOV CURADR R4 ; 0.0.┆
0x1d180…1d200 UnusedSector ┆CURADR => RE.ADR; JMP S5 HEXOUT ; OUTPUT RE.WORD; MOVC <:L:> R1 ; JMP S6 OUTCHAR ; L1: ; NEXT: MOV CURADR R3 ; 0.CURADR ┆
0x1d200…1d280 UnusedSector ┆=> RE.WORD; MOV TOP R4 ; 0.TOP => TOPADDRESS; ILO R4 R3 ; IF TOPADDRESS <CURADR THEN JMP START ; GOTO START; MOVC OC R0 ┆
0x1d280…1d300 UnusedSector ┆; SIO R1 R0 ; SENSE(STATUS,OC); IBN R1 BPERR ; IF STATUS(BPERR,1)<>0 THEN JMP START ; GOTO START; MOV R3 R4 ; MODN BAS┆
0x1d300…1d380 UnusedSector ┆ ; MOV 0. X4 R4 ; 0.CURADR => WORD; JMP S5 HEXOUT ; OUTPUT WORD; ADDC 1 R3 ; INCR(RE.WORD); MOV R3 CURADR ; RE.WORD => 0┆
0x1d380…1d400 UnusedSector ┆.CURADR; XTR R3 3 ; IF RE.WORD(2:3)<>0 INE R3 0 ; THEN JMP L1 ; GOTO NEXT; JMP CMEMDUMP ; GOTO CONTINUE MEMDUMP; ; ;┆
0x1d400…1d480 UnusedSector ┆ LOCACT: ; LOCAL ACTION: JMP S5 NEXTLIN ; MOVC <:C:> R1 ; WRITE (<:C::>); JMP S6 OUTCHAR ; MOVC <:::> R1 ; JMP S6 OUTCHAR┆
0x1d480…1d500 UnusedSector ┆ ; MOV CAUSE R4 ; JMP S5 HEXOUT ; WRITE (CAUSE); JMP S5 NEXTLIN ; MOV BAS R0 ; LDN R0 ; ; ; PATCH: ; PATCH: JMP S5 ┆
0x1d500…1d580 UnusedSector ┆GETADR ; GET ADDRESS; JMP ERROR ; IF ERROR THEN GOTO ERROR; SUB BAS R3 ; MOVC #20BE R0 ; SVP MOV R0 0. X3 ; MOV BAS R0┆
0x1d580…1d600 UnusedSector ┆ ; SWP R0 ; XTR R0 8 ; SWP R0 ; ADDC #56 R0 ; MOV R0 1. X3 ; MOVC #0048 R0 ; MOV R0 2. X3 ; MOVC #40BC R0 ; LDN ┆
0x1d600…1d680 UnusedSector ┆R0 MOV R0 3. X3 ; JMP START ; GOTO START IF FRAMESYNC ; ; FSCREGLOAD: ; LOAD REGISTER IN FSC: JMP S5 HEXIN ; GET REG┆
0x1d680…1d700 UnusedSector ┆ISTERNUMBER JMP FSCRED ; ; MOV R1 R4 ; REG := REGNUMBER; ; JMP S6 INCHAR ; IF NEXTCHAR <> <SP> INE R1 <: :> ; THEN ┆
0x1d700…1d780 UnusedSector ┆ JMP ERROR ; GOTO ERROR ; ; JMP S5 GETADR ; GET REGISTERCONTENT ; JMP ERROR ; IF ERROR THEN GOTO ERROR ; ; SLL R4 6 ; ┆
0x1d780…1d800 UnusedSector ┆WRITE ADDC FSCDEV R4 ; (REG, INV R3 ; CIO R3 R4 ; DEV,REGCONTENT) ; ; JMP START ; GOTO START ; ; ; FSCREGDUMP: ; D┆
0x1d800…1d880 UnusedSector ┆UMP REGISTER IN FSC: JMP S5 HEXIN ; GET REGISTER NUMBER ; JMP FSCREGDMP ; ; SLL R1 6 ; ADDC FSCDEV R1 ; SIO R4 R1 ; ┆
0x1d880…1d900 UnusedSector ┆READ (REG,DEV,CONTENT) ; ; JMP S6 SPACE ; WRITE(<SP>) ; ; INV R4 ; JMP S5 HEXOUT ; WRITE (CONTENT) ; ; JMP START ; ┆
0x1d900…1d980 UnusedSector ┆ ; ; FSCDATADEF: ; DEFINE DATA TO FSC: JMP S5 GETADR ; GET STARTADR ; JMP ERROR ; IF ERROR THEN GOTO ERROR ; JMP S6 ┆
0x1d980…1da00 UnusedSector ┆INCHAR ; CHECK INE R1 <: :> ; SPACE JMP ERROR ; SEPARATOR ; ; MOV R3 R4 ; SAVEST := STARTADR ; ; JMP S5 GETADR ; GET┆
0x1da00…1da80 UnusedSector ┆ AREASIZE ; JMP ERROR ; IF ERROR THEN GOTO ERROR ; ; IEQ R3 0 ; IF AREASIZE = 0 THEN JMP ERROR ; GOTO ERROR ; SUB BA┆
0x1da80…1db00 UnusedSector ┆S R4 ; ADJUST STARTADR TO RELATIVE; ; MOV R4 BUFFSC ; SAVE (STARTADR) ; MOV R3 BFCFSC ; SAVE (AREASIZE) ; ; JMP START ┆
0x1db00…1db80 UnusedSector ┆; ; ; ; WAITINT: ; WAIT INTERRUPT: ; WHILE NOT <BREAK> DO ; BEGIN MODN BAS ; RESERVE MOVC #015C R4 ; INTERRUPT MO┆
0x1db80…1dc00 UnusedSector ┆V BAS R0 ; FROM MOV R0 OC. X4 ; OC MOV R0 FSCDEV.X4 ; AND FSC; SVP WAIT0 ; ; MOVC 0 R0 ; GET LDN R0 ; INTERRUPT; ; ┆
0x1dc00…1dc80 UnusedSector ┆ WAIT0: ; MOV DEVPR R3 ; ILT R3 8<2 ; IF DEVICE > 8 JMP TERMINT ; THEN JMP S5 NEXTLIN ; BEGIN MOVC <:F:> R1 ; WRITE (<N┆
0x1dc80…1dd00 UnusedSector ┆L>); JMP S6 OUTCHAR ; JMP S6 SPACE ; WRITE (<:F P: :>); JMP S6 SPACE ; MOVC <:P:> R1 ; JMP S6 OUTCHAR ; MOVC <:::> R┆
0x1dd00…1dd80 UnusedSector ┆1 ; JMP S6 OUTCHAR ; JMP S6 SPACE ; XTR R3 2 ; MOV R3 R1 ; ADDC <:0:> R1 ; WRITE (PR); JMP S6 OUTCHAR ; JMP WAITINT ┆
0x1dd80…1de00 UnusedSector ┆; END TERMINT: ; MOVC OC R0 ; SIO R1 R0 ; IBZ R1 BPERR ; JMP WAITINT ; SVP ; SAVE PROCESS FOR LOCACT; JMP START ;┆
0x1de00…1de80 UnusedSector ┆ END; ; ; ; CONTLOAD: ; REPETITIVE LOAD: JMP S5 HEXIN ; GET REG NUMBER; JMP CONTLOAD ; ; MOV R1 R4 ; REG := REGNUMBER; ┆
0x1de80…1df00 UnusedSector ┆; JMP S6 INCHAR ; CHECK INE R1 <: :> ; SPACE JMP ERROR ; SEPARATOR; ; JMP S5 GETADR ; GET REG CONT1; JMP ERROR ; MOV R3 C┆
0x1df00…1df80 UnusedSector ┆ONT1 ; SAVECONT1 := REG CONT1; ; JMP S6 INCHAR ; CHECK INE R1 <: :> ; SPACE JMP ERROR ; SEPARATOR; ; JMP S5 GETADR ; GET R┆
0x1df80…1e000 UnusedSector ┆EG CONT2; JMP ERROR ; ; MOV CONT1 R2 ; REG CONT1 := SAVECONT1; INV R2 ; INV R3 ; ; SLL R4 6 ; ADDC FSCDEV R4 ; MOVC OC ┆
0x1e000…1e080 UnusedSector ┆R0 ; CLLOOP: ; LOADAGAIN: SIO R1 R0 ; IBN R1 BPERR ; IF <BREAK> THEN JMP START ; GOTO START; ; CIO R2 R4 ; LOAD REG WITH RE┆
0x1e080…1e100 UnusedSector ┆G CONT1; ; NOP ; NOP ; MAKE LOADS NOP ; PERIODIC; NOP ; ; CIO R3 R4 ; LOAD REG WITH REG CONT2; ; JMP CLLOOP ; GOTO LOAD┆
0x1e100…1e180 UnusedSector ┆AGAIN; ; ; ; CONTDUMP: ; REPETITIVE SENSE: JMP S5 HEXIN ; GET REG NUMBER; JMP CONTDUMP ; ; SLL R1 6 ; ADDC FSCDEV R1 ; ┆
0x1e180…1e200 UnusedSector ┆MOVC OC R0 ; CDLOOP: ; DUMPAGAIN: SIO R2 R0 ; IBN R2 BPERR ; IF <BREAK> THEN JMP START ; GOTO START; ; SIO R3 R1 ; SENSE RE┆
0x1e200…1e280 UnusedSector ┆G; JMP CDLOOP ; GOTO DUMPAGAIN; FI NOP ; USE BASE PRG1:= LOC+BS1 INITP:= INIT+PRG1 END R1 6 ; ADDC FSCDEV R1 ; ┆
0x1e280…1e300 UnusedSector ┆ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
[…0x11…]
0x1eb80…1ec00 UnusedSector ┆----< MOV POINTER R0 ; 0.POINTER => C; MOVC SYNCLENGTH R1 ; SYNCLENGTH => ADDRESS; ADD X1 R0 ; C+0.ADDRESS => C; MOV SETUPE ┆
0x1ec00…1ec80 UnusedSector ┆R1 ; 0.SETUPTABLE => ADD; ADDC BLOCKT R1 ; ADD+BLOCKLENGTH => ADD; PULLD1: ; WHILE C >= 0.ADD DO ILT R0 X1 ; BEGIN JMP PULLD0┆
0x1ec80…1ed00 UnusedSector ┆ ; SUB X1 R0 ; C-0.ADD => C; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; INEP R0 0 ; IF C <> 0 THEN JMPI S6 LRETURNBUF ; RETU┆
0x1ed00…1ed80 UnusedSector ┆RNBUF; MON REGISTERS ; JMP PULLD1 ; END; PULLD0: ; MOV R0 POINTER ; C => 0.POINTER; ;---------------------------------- ;###┆
0x1ed80…1ee00 UnusedSector ┆ ; IEQ R0 0 ; IF 0.POINTER = 0 THEN JMP PULLD6 ; GOTO FILLED; ;>--------------------------------< ;> IF THE WRITING IS NOT S┆
0x1ee00…1ee80 UnusedSector ┆TOPPED < ;> ON A BLOCKBOUNDARY, THEN THE < ;> DATAPATH IS CLEARED AND SETUP < ;> AGAIN < ;>--------------------------------<┆
0x1ee80…1ef00 UnusedSector ┆ MOVC #FFFF R3 ; 0 => MOV FSCDEV R6 ; ADDC DPC R6 ; CIO R3 R6 ; *DATAPATHCONTROL*; MOV SETUPE R4 ; 0.SETUPTABLE => ADDRESS;┆
0x1ef00…1ef80 UnusedSector ┆ IF TST MON REGISTERS ; MON GIVEUPTIME FI ; MOV BITSYC.X4 R3 ; BITSYNC.ADDRESS => D; SLL R3 2 ; D*4 => D; INV R3 ; CIO R3 R┆
0x1ef80…1f000 UnusedSector ┆6 ; D => *DATAPATHCONTROL*; ADDC -DAT R3 ; D+DAT => D; CIO R3 R6 ; D => *DATAPATHCONTROL*; ION BITSYC.X4 ; IF SOURCE = CPU TH┆
0x1f000…1f080 UnusedSector ┆EN JMP PULL10 ; BEGIN ADDC SDR-DPC R6 ; MOVC 0 R3 ; #FF => DATA; CIO R3 R6 ; PULL10: ; END; IF TST MON REGISTERS ; MON GIVE┆
0x1f080…1f100 UnusedSector ┆UPTIME FI ; MOV BUFCOUNT3 R6 ; ILT R6 1 ; IF 0.BUFCOUNT3 <= 0 THEN JMP PULL12 ; GOTO PULEMPTY; MOV OLDBUFCUR R7 ; ADDC 1 R7┆
0x1f100…1f180 UnusedSector ┆ ; MOV FSCDEV R6 ; ADDC SAR R6 ; CIO X7 R6 ; 0.OLDDMAADR => *DMAADR*; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; JMP PULLD3┆
0x1f180…1f200 UnusedSector ┆ ; GOTO OUTEMPTY; ;### ; PULL12: ; PULEMPTY: MOV SPULLD2 R6 ; MOV R6 STATE ; PEMPTY => 0.STATE; PULLD2: ; PEMPTY: MON WAITEVE┆
0x1f200…1f280 UnusedSector ┆NT ; WAITEVENT; JMP TREATR ; ANSWER: IMPOSSIBLE; JMPI S6 LINBUF ; MESSAGE: MOV X7 R1 ; INBUF; XTR R1 4 ; IF OPERATION <> TRA┆
0x1f280…1f300 UnusedSector ┆NSMIT INE R1 FTRANT ; JMP GOTOFUNC ; GOTO FUNCTION; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; JMPI S6 LSENDBUF ; SENDBUF; P┆
0x1f300…1f380 UnusedSector ┆ULLD3: ; OUTEMPTY: MOV SETUPE R5 ; 0.SETUPTABLE => ADDRESS; MOV FORMAT.X5 R4 ; FORMAT.ADDRESS => W; SLL R4 12 ; W*4096 => W; ┆
0x1f380…1f400 UnusedSector ┆ ADD BLOCKT.X5 R4 ; W+BLOCKLENGT.ADDRESS => W; INV R4 ; MOV FSCDEV R6 ; ADDC BLLFOS R6 ; CIO R4 R6 ; W => *BLLFOS*; MOVC 10┆
0x1f400…1f480 UnusedSector ┆ R0 ; 100 MSEC => DELAY; MOV INTERT-C R1 ; MON WAITINTERRUPT ; WAITINTERRUPT; JMP PULL14 ; IF TIMEOUT GOTO TMOUT; MOV DEVPR-┆
0x1f480…1f500 UnusedSector ┆C R6 ; XTR R6 2 ; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; IEQ R6 1 ; IF PRI <> 1 THEN JMP PULLD4 ; BEGIN MOVC ERROR R2 ;┆
0x1f500…1f580 UnusedSector ┆ MOV R6 R4 ; MOV FSCDEV R6 ; ERRORFUNC (ERROR,PRI,STATUS); SIO R3 R6 ; INV R3 ; JMP ERRORC ; ; END ELSE GOTO OK; PULL14: ;┆
0x1f580…1f600 UnusedSector ┆ TMOUT: MOVC 7 R0 ; 7 => ERRCODE; JMP NOREPLY ; GOTO NOREPLY; PULLD4: ; OK: JOZ R0 PULL13 ; IF INTERRUPTCOUNT >= 1 THEN MOVC┆
0x1f600…1f680 UnusedSector ┆ 12 R4 ; BEGIN 12=>ERRCODE; JMP TRANI0 ; GOTO SYSTEM TOO SLOW; END; PULL13: ; ;### ; MOV BUFCOUNT2 R6 ; IF TST MON REGISTERS ;┆
0x1f680…1f700 UnusedSector ┆ MON GIVEUPTIME FI ; IGE R6 1 ; IF 0.BUFCOUNT2 <= 0 THEN JMP PULLD5 ; BEGIN MOV SPULLDW R6 ; MOV R6 STATE ; MESSWAIT => 0.S┆
0x1f700…1f780 UnusedSector ┆TATE; PULLDW: ; MESSWAIT: MOV INTERT-C R1 ; MON SETINTERRUPT ; SET INTERRUPT; MON WAITEVENT ; WAIT EVENT; JMP TREATR ; ANSWE┆
0x1f780…1f800 UnusedSector ┆R: IMPOSSIBLE; JMP PULLDM ; JMP PULLDW ; INTERRUPT: IGNORE; PULLDM: ; MESSAGE: JMPI S6 LINBUF ; INBUF; MOV X7 R1 ; XTR R1 4┆
0x1f800…1f880 UnusedSector ┆ ; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; INE R1 FTRANT ; IF OPERATION <> TRANSMIT JMP GOTOFUNC ; THEN GOTO FUNCTION; PUL┆
0x1f880…1f900 UnusedSector ┆LD5: ; END; JMPI S6 LSENDBUF ; SENDBUF; ;---------------------------------- PULLD6: ; FILLED: MOVC BUFCOUNT3 R6 ; BUFCOUNT3 =┆
0x1f900…1f980 UnusedSector ┆> ADDRESS; ;>--------------------------------< ;> SET LOCKMODE AGAIN < ;>--------------------------------< MOVC 2 X6 ; 2 => ┆
0x1f980…1fa00 UnusedSector ┆0.ADDRESS; MOV SETUPE R5 ; 0.SETUPTABLE => ADDRESS; MOVC 0 R4 ; LOCKMODE.ADDRESS IF TST MON REGISTERS ; MON GIVEUPTIME FI ; ┆
0x1fa00…1fa80 UnusedSector ┆MOV LOCKME.X5 R7 ; => JMPI S6 LSETPAE ; *LOCKMODE*; ;---------------------------------- MOVC 7 R4 ; MOVC 1 R7 ; JMPI S6 LSE┆
0x1fa80…1fb00 UnusedSector ┆TPAE ; ENABLE FRAMEB. INTERRUPT; MOV SAVE2 R0 ; RESTORE R0; MOV SAVE3 R1 ; RESTORE R1; JMPI SAVE1 ; RETURN; ; ; ;..........┆
0x1fb00…1fb80 UnusedSector ┆............................................................ ;### ;.............................................................┆
0x1fb80…1fc00 UnusedSector ┆......... ;CHECKERROR ;...................................................................... ;CHECKS, IF THE ERROR-INTERRUPT IS┆
0x1fc00…1fc80 UnusedSector ┆ CAUSED BY ;POSITON MEMORY FULL ONLY ;...................................................................... ; CALL EXIT ; ;R3 S┆
0x1fc80…1fd00 UnusedSector ┆TATUS STATUS ;R4 PRIO PRIO ;R5 LINK LINK ;R6 DESTROYED ;...................................; ; CHECKERR: ; CHECKERROR: INE R4 ┆
0x1fd00…1fd80 UnusedSector ┆2 ; IF PRIO <> 2 THEN JMP 0. X5 ; RETURN (NOT P.M.F.); MOV R3 R6 ; STATUS => W; XTR R6 3 ; W (2:3) => W; INE R6 4 ; IF NOT P┆
0x1fd80…1fe00 UnusedSector ┆.M.F. ONLY THEN JMP 0. X5 ; RETURN (NOT P.M.F.); MOVC BADHAMM R6 ; BADHAMM => MOV R6 LCKSTT ; 0.LOCKSTATE; JMP 1. X5 ; RETUR┆
0x1fe00…1fe80 UnusedSector ┆N (ONLY P.M.F.); ; ; ;...................................................................... ;### ;...........................┆
0x1fe80…1ff00 UnusedSector ┆........................................... ;ERRORFUNC ;...................................................................... ;┆
0x1ff00…1ff80 UnusedSector ┆PERFORMS SETUP OF THE FRAME SYNCHRONIZER, EMPTIES THE MESSAGE BUFFER ;AND ANSWERS THEM ALL 'NOTDONE', EXCEPT THE LAST ONE, WHICH┆
0x1ff80…20000 UnusedSector ┆ IS ANSWERED ;WITH THE CODE SPECIFIED. ;IF PRESENT (AND MENINGFULL) FURTHER INFORMATION IS SENT IN THE ANSWER ;.................┆
0x20000…20080 UnusedSector ┆..................................................... ; CALL EXIT ; ;R0 DESTROYED ;R1 DESTROYED ;R2 CODE DESTROYED ;R3 STATUS DE┆
0x20080…20100 UnusedSector ┆STROYED ;R4 PRIO DESTROYED ;R5 DESTROYED ;R6 DESTROYED ;R7 DESTROYED ;...................................; ; ERRORFUNC: ; ERROR┆
0x20100…20180 UnusedSector ┆FUNC: MOV R2 SAVE1 ; SAVE (CODE); MOV R3 SAVE3 ; SAVE (STATUS); MOV R4 SAVE4 ; SAVE (PRIO); IF TST MON REGISTERS ; MON GIVEU┆
0x20180…20200 UnusedSector ┆PTIME FI ; JMP S6 DOSETUP ; MAKE SETUP; MOVC NOTDONE R4 ; JMPI S6 LEMPTYBUF ; EMPTYBUF (NOT DONE); MON REGISTERS ; IF EMPTY ┆
0x20200…20280 UnusedSector ┆SOFTWARE ERROR; MOVC SAVE3 R5 ; MOVL 0. X5 R0 ; STATUS => STATUS.ANSWER; MOVC ANSW R4 ; MOVL R0 2. X4 ; PRIO => PRIO.ANSWER;┆
0x20280…20300 UnusedSector ┆ MOV SAVE1 R7 ; RESTORE (CODE); JMPI S5 LANSWER ; ANSWER (CODE); JMP BLOCKED ; GOTO STATE BLOCKED; ; ; ;...................┆
0x20300…20380 UnusedSector ┆................................................... ;### ;......................................................................┆
0x20380…20400 UnusedSector ┆ ;TREAT ANSWER ;...................................................................... ;DUMMY ANSWER PROCEDURE (ANY ANSWER TO TH┆
0x20400…20480 UnusedSector ┆E DRIVER IS AN SOFTWARE ;ERROR AS NO MESSAGES ARE SENT) ;...................................; ; TREATANSWER: ; TREATANSWER: MO┆
0x20480…20500 UnusedSector ┆N REGISTERS ; REGISTERS; JMPI STATE ; RETURN TO STATE; ; ; ;.................................................................┆
0x20500…20580 UnusedSector ┆..... ;### ;...................................................................... ;DOSETUP ;...................................┆
0x20580…20600 UnusedSector ┆................................... ;PERFORMS SETUP OF THE FRAME SYNCHRONIZER PARAMETERS, EXCEPT FOR ;THE DMA-ADDRESSES, THE FOR┆
0x20600…20680 UnusedSector ┆MATTING OF THE OUTPUT AND THE DMA- ;BLOCKLENGTH ;...................................................................... ; CALL E┆
0x20680…20700 UnusedSector ┆XIT ; ;R0-R5 DESTROYED ;R6 LINK DESTROYED ;R7 DESTROYED ;...................................; ; DOSETUP: ; DOSETUP: MOV R6 SAV┆
0x20700…20780 UnusedSector ┆E0 ; SAVE (LINK); ;>--------------------------------< ;> TRANSFORMATION OF THE GIVEN < ;> SYNCWORD TO A BITSTRING, < ;> WHIC┆
0x20780…20800 UnusedSector ┆H IT IS POSSIBLE TO LOAD < ;> INTO THE FRAME SYNCHRONIZER < ;>--------------------------------< MOV SETADR R3 ; 0.SETADR => A┆
0x20800…20880 UnusedSector ┆DR; MOVC BAS R4 ; BASE => AD; SUB X4 R3 ; ADR-0.AD => ADR; MOVC 0 R0 ; 0 => W; MOVC 16 R4 ; 16 => COUNT; DOSET0: ; FOR I:=1 ┆
0x20880…20900 UnusedSector ┆UNTIL COUNT DO ; BEGIN MOV R0 X3 ; W => 0.ADR; ADDC 1 R3 ; ADR+1 => ADR; SOB R4 DOSET0 ; END; ADDC -17 R3 ; ADR-17 => ADR; ┆
0x20900…20980 UnusedSector ┆ MOV SETUPE R6 ; 0.SETUPTABLE => SETUPT; MOV SYNCWL.X6 R4 ; SYNCWL.SETUPT => SWL; MOVC 15 R5 ; 15 => OBITN; DOSET1: ; FOR I:=S┆
0x20980…20a00 UnusedSector ┆WL STEP -1 UNTIL 1 DO ; BEGIN MOV R4 R0 ; I => SBITN; MOV R4 R2 ; I => SWDN; ADDC 15 R0 ; SBITN+15 => SBITN; XTR R0 4 ; SBI┆
0x20a00…20a80 UnusedSector ┆TN(3:4) => SBITN; ADDC -1 R2 ; SWDN-1 => SWDN; SRL R2 4 ; SWDN DIV 16 => SWDN; XTR R5 4 ; OBITN(3:4) => OBITN; IEQ R5 15 ; I┆
0x20a80…20b00 UnusedSector ┆F OBITN = 15 THEN ADDC 1 R3 ; ADR+1 => ADR; MOD R2 ; (SYNCSTART+SWDN).SETUPT MOV SYNCST.X6 R2 ; => SYWD; MOD R0 ; IF SYWD (S┆
0x20b00…20b80 UnusedSector ┆BITN:1) = 1 IBN R2 0 ; THEN SETS X3 R5 ; 1 => 0.ADR(OBITN:1); ADDC -1 R5 ; OBITN-1 => OBITN; SOB R4 DOSET1 ; END; ;--------┆
0x20b80…20c00 UnusedSector ┆-------------------------- ;### ; MOV FSCDEV R2 ; MOV R2 R5 ; ADDC SDR R5 ; SIO R6 R5 ; RESET FSC; ;>----------------------┆
0x20c00…20c80 UnusedSector ┆----------< ;> COMPUTE MAX. SYNCWORDLENGTH < ;>--------------------------------< ADDC DPC-SDR R5 ; CPU => *SOURCE*; MOVC CPU┆
0x20c80…20d00 UnusedSector ┆S+SYN R6 ; SYNCW => *PATH*; INV R6 ; CIO R6 R5 ; MOVC 0 R4 ; 0 => MOV R4 MODER ; 0.MODEREGISTER; MOVC 1 R4 ; MOVC 1 R7 ; 1┆
0x20d00…20d80 UnusedSector ┆ => *WRITE*; JMPI S6 LSETPAE ; ADDC SAR-DPC R5 ; MOV SETADR R4 ; 0.SETADR => AD; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; ┆
0x20d80…20e00 UnusedSector ┆ ADDC 16 R4 ; AD+16 => AD; MOV R4 R3 ; AD => RELAD; INV R4 ; CIO R4 R5 ; AD => *DMAADR*; MOVC #3000 R4 ; INV R4 ; ADDC BLL┆
0x20e00…20e80 UnusedSector ┆FOS-SAR R5 ; CIO R4 R5 ; 3 => *FORMAT*; MOVC BAS R4 ; RELAD- SUB X4 R3 ; 0.BAS => RELAD; ADDC SDR-BLLFOS R5 ; MOVC -1 R6 ; ┆
0x20e80…20f00 UnusedSector ┆-1 => LCOUNT; MOVC 0 R4 ; MOV R4 X3 ; 0 => 0.RELAD; MOVC #55 R4 ; #AA => DAT; MOVC 34 R0 ; SETUP1: ; LOOP: CIO R4 R5 ; DAT ┆
0x20f00…20f80 UnusedSector ┆=> *DATA*; NOP ; NOP ; MOV X3 R1 ; 0.RELAD => R; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; ADDC 1 R6 ; LCOUNT+1 => LCOUNT;┆
0x20f80…21000 UnusedSector ┆ IGEP R6 R0 ; IF LCOUNT > 33 THEN BEGIN MOVC 6 R0 ; 6 => ERRCODE; JMP NOREPLY ; GOTO NOREPLY; END; XTR R1 4 ; R(3:4) => R; ┆
0x21000…21080 UnusedSector ┆INEP R1 #A ; IF R <> #A AND INE R1 5 ; R <> 5 THEN JMP SETUP1 ; GOTO LOOP; MOVC #FC R3 ; #FC => MASK; AND R3 R6 ; MASK AND L┆
0x21080…21100 UnusedSector ┆COUNT => LCOUNT; MOV R6 SCOUNT ; LCOUNT => 0.COUNT; ;---------------------------------- ;### ; ;>----------------------------┆
0x21100…21180 UnusedSector ┆----< ;> COMPUTE FRAMELENGTH IN CR80- < ;> WORDS AND SETUP FRAMELENGTH < ;>--------------------------------< SIO R6 R5 ; RES┆
0x21180…21200 UnusedSector ┆ET FSC; MOV SETUPE R6 ; 0.SETUPTABLE => ADR; MOV FRLMSB.X6 R1 ; FRAMELENGTH MOV FRLLSB.X6 R0 ; DIV MOV FORMAT.X6 R3 ; BIT X┆
0x21200…21280 UnusedSector ┆TR R3 3 ; PR MOD R3 ; WORD MOV DIVISOR R3 ; => DIV R3 R0 ; SYNCL; MOVC SYNCLH R4 ; MOVL R0 0. X4 ; SYNCL => 0.SYNCLENGTH; I┆
0x21280…21300 UnusedSector ┆F TST MON REGISTERS ; MON GIVEUPTIME FI ; MOV FRLMSB.X6 R1 ; FRAMELENGTH MOV FRLLSB.X6 R0 ; -1 MOVC 0 R3 ; ADDC -1 R0 ; => ┆
0x21300…21380 UnusedSector ┆ SUBU R3 R1 ; FRAMELENGTH; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; INV R0 ; SLL R1 12 ; INV R1 ; MOVC FL1 R5 ; FRAMELENG┆
0x21380…21400 UnusedSector ┆THMSB => *FRAMELMSB*; ADD R2 R5 ; CIO R1 R5 ; MOVC FL2 R5 ; FRAMELENGTHLSB => *FRAMELLSB*; ADD R2 R5 ; CIO R0 R5 ; IF TST M┆
0x21400…21480 UnusedSector ┆ON REGISTERS ; MON GIVEUPTIME FI ; ;---------------------------------- ;### ; ;>--------------------------------< ;> CHECK S┆
0x21480…21500 UnusedSector ┆YNCWORDLENGTH < ;>--------------------------------< MOV SYNCWL.X6 R1 ; SYNCWL.ADR => SYNCL; ADDC 15 R1 ; SYNCL+15 => SYNCL; ┆
0x21500…21580 UnusedSector ┆SRL R1 4 ; SYNCL DIV 16 => SYNCL; MOV SCOUNT R0 ; 0.SCOUNT => COUNT; SRL R0 1 ; COUNT DIV 2 => COUNT; IGE R0 R1 ; IF COUNT < ┆
0x21580…21600 UnusedSector ┆SYNCL THEN JMP SLNOERR ; BEGIN MOVC NOTDONE R4 ; JMPI S6 LEMPTYBUF ; EMPTYBUF (NOT DONE); MON REGISTERS ; IF EMPTY SOFTWARE ┆
0x21600…21680 UnusedSector ┆ERROR; MOVC ANSW R5 ; ANSW => ADDRESS; SLL R0 2 ; COUNT*4 => COUNT; MOV R0 2. X5 ; COUNT => 2.ADDRESS; MOVC 4 R6 ; 4 => P; ┆
0x21680…21700 UnusedSector ┆MOV R6 3. X5 ; P => 3.ADDRESS; MOVC ERROR R7 ; ERROR => ANSWCODE; JMPI S5 LANSWER ; ANSWER (ANSWCODE); MOV SSTART R5 ; START ┆
0x21700…21780 UnusedSector ┆=> MOV R5 STATE ; 0.STATE; JMP START ; GOTO START; SLNOERR: ; END; ;---------------------------------- ;### ; ;>------------┆
0x21780…21800 UnusedSector ┆--------------------< ;> SETUP OF SYNCWORD < ;>--------------------------------< MOV SETADR R4 ; 0.SETADR => ADR2; MOVC BAS ┆
0x21800…21880 UnusedSector ┆R3 ; BASE => AD; SUB X3 R4 ; ADR2-0.AD => ADR2; MOVC SYN+CPUS R3 ; SYNCW => *PATH*; MOVC DPC R5 ; ADD R2 R5 ; CPU => *SOURCE┆
0x21880…21900 UnusedSector ┆*; INV R3 ; CIO R3 R5 ; MOVC SDR R5 ; DATA + ADD R2 R5 ; FSC => REGDEV; MOV R1 R3 ; SYNCL => SSYNCL; SYNCLOOP0: ; FOR I := ┆
0x21900…21980 UnusedSector ┆1 UNTIL SSYNCL DO ; BEGIN IF TST MON REGISTERS ; MON GIVEUPTIME FI ; MOV 0. X4 R7 ; 0.ADR2 => DATA; INV R7 ; INVERT DATA; S┆
0x21980…21a00 UnusedSector ┆WP R7 ; CHANGE BYTES IN DATA; CIO R7 R5 ; LOWBYTE (DATA) => *DATA*; SWP R7 ; CHANGE BYTES IN DATA; CIO R7 R5 ; LOWBYTE (DATA)┆
0x21a00…21a80 UnusedSector ┆ => *DATA*; ADDC 1 R4 ; ADR2+1 => ADR2; SOB R3 SYNCL0 ; END; SUB R1 R0 ; COUNT-SYNCL => COUNT; ILT R0 1 ; IF COUNT > 0 THEN ┆
0x21a80…21b00 UnusedSector ┆ JMP SETUP2 ; BEGIN IF TST MON REGISTERS ; MON GIVEUPTIME FI ; MOVC #FF R7 ; 0 => DATA; SYNCLOOP1: ; FOR I := 1 UNTIL COUNT DO┆
0x21b00…21b80 UnusedSector ┆ ; BEGIN CIO R7 R5 ; DATA => *DATA*; CIO R7 R5 ; DATA => *DATA*; SOB R0 SYNCL1 ; END; SETUP2: ; END; ;---------------------┆
0x21b80…21c00 UnusedSector ┆------------- ;### ; ;>--------------------------------< ;> SETUP OF MASK < ;>--------------------------------< MOVC MAS+CPU┆
0x21c00…21c80 UnusedSector ┆S R3 ; MASK => *PATH*; MOVC DPC R4 ; CPU => *SOURCE*; ADD R2 R4 ; INV R3 ; CIO R3 R4 ; MOV SYNCWL.X6 R1 ; SYNCWL.ADR => SYN┆
0x21c80…21d00 UnusedSector ┆CL; MOV R1 R3 ; SYNCL => REST; SRL R1 3 ; SYNCL DIV 8 => SYNCL; MOV R1 R4 ; SYNCL => SSYNCL; IF TST MON REGISTERS ; MON GIVE┆
0x21d00…21d80 UnusedSector ┆UPTIME FI ; MOVC 0 R7 ; #FF => DATA; MASKLOOP0: ; FOR I := 1 UNTIL SSYNCL DO CIO R7 R5 ; DATA => *DATA*; IF TST MON REGISTERS ┆
0x21d80…21e00 UnusedSector ┆; MON GIVEUPTIME FI ; MOVC 0 R7 ; SOB R4 MASKL0 ; MOV SCOUNT R0 ; 0.SCOUNT => COUNT; IGE R1 R0 ; IF SYNCL < COUNT DO JMP S┆
0x21e00…21e80 UnusedSector ┆ETUP3 ; BEGIN XTR R3 3 ; #FF SHIFT IF TST MON REGISTERS ; MON GIVEUPTIME FI ; MOVC #FF R7 ; RIGHT MOD R3 ; (8-SYNCL REM 8) ┆
0x21e80…21f00 UnusedSector ┆SRL R7 0 ; => CIO R7 R5 ; *DATA*; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; SUB R1 R0 ; COUNT-SYNCL => COUNT; ADDC -1 R0 ; ┆
0x21f00…21f80 UnusedSector ┆COUNT-1 => COUNT; ILT R0 1 ; IF COUNT >= 1 THEN JMP SETUP3 ; BEGIN MOVC #FF R7 ; 0 => DATA; MASKLOOP1: ; FOR I:=1 UNTIL COUNT┆
0x21f80…22000 UnusedSector ┆ DO CIO R7 R5 ; DATA => *DATA*; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; MOVC #FF R7 ; SOB R0 MASKL1 ; END; SETUP3: ; END;┆
0x22000…22080 UnusedSector ┆ ;---------------------------------- ;### ; ;>--------------------------------< ;> SETUP OF LOCKMODE, SORTPAR < ;> WINDOWSIZ┆
0x22080…22100 UnusedSector ┆E, THRESHOLD AND < ;> DATAPATH < ;>--------------------------------< MOV R6 R5 ; ADR => ADR1; MOVC 0 R6 ; 0 => MOV R6 MODER┆
0x22100…22180 UnusedSector ┆ ; 0.MODEREGISTER; MOV LOCKME.X5 R7 ; LOCKMODE.ADR1 => FIELDVAL; MOVC 0 R4 ; 0 => FIELDNO; JMPI S6 LSETPAE ; SETPARINMODE; M┆
0x22180…22200 UnusedSector ┆OV SORTPR.X5 R7 ; SORTPAR.ADR1 => FIELDVAL; MOVC 5 R4 ; 5 => FIELDNO; JMPI S6 LSETPAE ; SETPARINMODE; MOV WZ. X5 R7 ; WZ.ADR1┆
0x22200…22280 UnusedSector ┆ => FIELDVAL; MOVC 6 R4 ; 6 => FIELDNO; JMPI S6 LSETPAE ; SETPARINMODE; MOV SYNCWL.X5 R0 ; SYNCWL.ADR1 => W; MOV FTHR. X5 R4┆
0x22280…22300 UnusedSector ┆ ; FALSETHR.ADR1 => FT; SUB R4 R0 ; W-FALSETHR.ADR1 => W; XTR R0 8 ; W*256 SWP R0 ; => W; ADD TTHR. X5 R0 ; W+TRUETHR.ADR1 =┆
0x22300…22380 UnusedSector ┆> W; INV R0 ; MOVC THR R4 ; ADD R2 R4 ; CIO R0 R4 ; W => *THRESHOLD*; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; MOV BITSY┆
0x22380…22400 UnusedSector ┆C.X5 R0 ; SLL R0 2 ; INV R0 ; MOVC DPC R4 ; ADD R2 R4 ; BITSYNC.ADR1 => SOURCE; CIO R0 R4 ; ADDC -DAT R0 ; DATA => *PATH*;┆
0x22400…22480 UnusedSector ┆ CIO R0 R4 ; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; ;---------------------------------- ;### ; ;>-----------------------┆
0x22480…22500 UnusedSector ┆---------< ;> SETUP OF CONDITION BITS < ;>--------------------------------< MOVC MODER R5 ; MOVC #FFFF R0 ; MODC DM ; 1 => ┆
0x22500…22580 UnusedSector ┆D (IN *MODE*); PUT R0 X5 ; MODC S1M ; 1 => S1 (IN *MODE*); PUT R0 X5 ; MODC S2M ; 1 => S2 (IN *MODE*); PUT R0 X5 ; MOV X5 ┆
0x22580…22600 UnusedSector ┆R3 ; INV R3 ; CIO R3 R2 ; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; ;>--------------------------------< ;> DIVERSE INITIAL┆
0x22600…22680 UnusedSector ┆ISATION < ;>--------------------------------< MOVC 1 R0 ; MOV R0 NEVERT ; 1 => NEVERADDRESSENT; MOV BUFIN R0 ; 0.BUFIN IF TS┆
0x22680…22700 UnusedSector ┆T MON REGISTERS ; MON GIVEUPTIME FI ; MOV R0 BUFCUR ; => 0.BUFCUR; MOVC 0 R0 ; 0 => MOV R0 SUM ; 0.SUM; MOV R0 POINTER ; 0 ┆
0x22700…22780 UnusedSector ┆=> 0.POINTER; MOV R0 LCKSTT ; 0 => 0.LOCKSTATE; MOV R0 BUFCOUNT3 ; 0 => 0.BUFCOUNT3; ;---------------------------------- MOV┆
0x22780…22800 UnusedSector ┆ INTERT-C R1 ; MON CLEARINTERRUPT ; CLEAR INTERRUPTS; MOV SBLOCKD R0 ; BLOCKED => MOV R0 STATE ; 0.STATE; IF TST MON REGISTER┆
0x22800…22880 UnusedSector ┆S ; MON GIVEUPTIME FI ; JMPI SAVE0 ; RETURN; ; ; ;...................................................................... ;##┆
0x22880…22900 UnusedSector ┆# ;...................................................................... ;INTERRUPT HANDLING UNDER TRANSPUT ;..................┆
0x22900…22980 UnusedSector ┆.................................................... ;SERVES THE INTERRUPTS FROM THE FRAME SYNCHRONIZER. ;IF THE DRIVER IS ABOUT┆
0x22980…22a00 UnusedSector ┆ TO RUN OUT OF MESSAGES, THE 'EMPTY' STATE ;IS ENTERED, WHERE EVENTS ARE WAITED FOR, AND IF THE EVENT IS A ;DMA-INTERRUPT, THE L┆
0x22a00…22a80 UnusedSector ┆AST MESSAGE IN THE MESSAGE-BUFFER IS ANSWERED ;'OUT-OF-MESSAGES'. IF THE EVENT IS A MESSAGE WITH FUNCTION ;'TRANSMIT', THE DMA-A┆
0x22a80…22b00 UnusedSector ┆DDRESS IS SENT TO THE FRAME SYNCHRONIZER ;AND THE 'EMPTY' STATE IS LEFT ;.......................................................┆
0x22b00…22b80 UnusedSector ┆............... ; CALL EXIT ; ;R2 DESTROYED ;R3 DESTROYED ;R4 DESTROYED ;R5 DESTROYED ;R6 LINK DESTROYED ;R7 DESTROYED ;........┆
0x22b80…22c00 UnusedSector ┆...........................; ; TRANIT: ; HANDLE INTERRUPT: MOV R6 SAVE0 ; SAVE (LINK) MOV DEVPR-C R6 ; CASE XTR R6 2 ; PRI I┆
0x22c00…22c80 UnusedSector ┆F TST MON REGISTERS ; MON GIVEUPTIME FI ; MOD R6 ; + 1 JMP LOC + 1 ; OF JMP TRAPR0 ; JMP TRAPR1 ; JMP TRAPR2 ; JMP TRAPR2┆
0x22c80…22d00 UnusedSector ┆ ; BEGIN ;### ; TRAPR0: ; BEGIN ;>--------------------------------< ;> FRAME BOUNDARY INTERRUPT < ;>-------------------------┆
0x22d00…22d80 UnusedSector ┆-------< JMPI S6 LUPDATS ; UPDATETABLES; JMP TRAUNL ; JMPI SAVE0 ; IF UNLOCKED THEN TRAUNL: ; BEGIN JMPI S5 LPULLDOWN ; PULL┆
0x22d80…22e00 UnusedSector ┆DOWN; JMPI S5 LOUTBUF ; OUTBUF; MON REGISTERS ; MOV POINTER R5 ; 0.POINTER => W; JON R5 TRAUN2 ; IF W = 0 THEN MOV SETUPE R┆
0x22e00…22e80 UnusedSector ┆5 ; BLOCKLENGTH.SETUPTABLE MOV BLOCKT.X5 R5 ; => W; TRAUN2: ; MOV R5 ANSW+1 ; W => 1.ANSWER; MOVC UNLOCKED R7 ; UNLOCKED => A┆
0x22e80…22f00 UnusedSector ┆NSWCODE; JMPI S5 LANSWER ; ANSWER (ANSWCODE); MOV SYNCLENGTH R4 ; 0.SYNCLENGTH => P; NEG R4 ; 0-P => P; MOV R4 POINTER ; P =┆
0x22f00…22f80 UnusedSector ┆> 0.POINTER; MOVC 3 R7 ; MOVC 3 R4 ; JMPI S6 LSETPAE ; 3 => *WRITEEXEC*; JMP TUNLOCKED ; GOTO UNLOCKED; ; END; ;----------┆
0x22f80…23000 UnusedSector ┆------------------------ ; END; ;### ; TRAPR1: ; BEGIN ;>--------------------------------< ;> DMA-INTERRUPT < ;>------------┆
0x23000…23080 UnusedSector ┆--------------------< JOZ R0 TRANI3 ; IF INTERRUPTCOUNT >= 0 THEN MOVC 10 R4 ; BEGIN 10=>ERRCODE; JMP TRANI0 ; GOTO SYSTEM TO┆
0x23080…23100 UnusedSector ┆O SLOW;END; TRANI3: ; MOVC BUFCOUNT3 R6 ; BUFCOUNT3 => ADD; DEC 0. X6 ; DECR (0.ADD); MOV BUFCOUNT2 R3 ; IF 0.BUFCOUNT2 IF TS┆
0x23100…23180 UnusedSector ┆T MON REGISTERS ; MON GIVEUPTIME FI ; IGE R3 1 ; <= 0 THEN JMP TRANI2 ; BEGIN MOV SEMPTY R3 ; MOV R3 STATE ; EMPTY => 0.STA┆
0x23180…23200 UnusedSector ┆TE; EMPTY: ; EMPTY: IF SLOW MODC #4000 FI ; MOVC 100 R0 ; 1 SEC => DELAY; MON SETDELAY ; MOV INTERT-C R1 ; MON SETINTERRUPT ┆
0x23200…23280 UnusedSector ┆; MON WAITEVENT ; WAITEVENT; JMP TTIMEOUT ; TIMEOUT: GOTO TIMEOUT; JMP TREATR ; JMP TRAMES ; MOV DEVPR-C R6 ; INTERRUPT: X┆
0x23280…23300 UnusedSector ┆TR R6 2 ; IF PRI = 1 THEN IF TST MON REGISTERS ; MON GIVEUPTIME FI ; IEQP R6 1 ; BEGIN MOVC 11 R4 ; 11=>ERRCODE; END ELSE JM┆
0x23300…23380 UnusedSector ┆P TRANI0 ; IF PRI = 0 THEN INE R6 0 ; BEGIN JMP TRANI1 ; JMPI S6 LUPDATS ; UPDATETABLES; JMP TRAUN1 ; IF UNLOCKED THEN JMP ┆
0x23380…23400 UnusedSector ┆EMPTY ; BEGIN TRAUN1: JMPI S5 LPULLDOWN ; PULLDOWN; JMPI S5 LOUTBUF ; OUTBUF; MON REGISTERS ; MOV POINTER R5 ; 0.POINTER => W┆
0x23400…23480 UnusedSector ┆; JOZ R5 TRAUN3 ; IF W = 0 THEN MOV SETUPE R5 ; BLOCKLENGTH. MOV BLOCKT.X5 R5 ; SETUPTABLE => W; TRAUN3: ; MOV R5 ANSW+1 ; W┆
0x23480…23500 UnusedSector ┆ => 1.ANSWER; MOVC UNLOCKED R7 ; JMPI S5 LANSWER ; ANSWER (UNLOCKED); MOV SYNCLENGTH R4 ; 0.SYNCLENGTH => P; NEG R4 ; 0-P =>┆
0x23500…23580 UnusedSector ┆ P; MOV R4 POINTER ; P => 0.POINTER; MOVC 3 R7 ; MOVC 3 R4 ; JMPI S6 LSETPAE ; 3 => *WRITEEXEC*; JMP TUNLOCKED ; GOTO UNLOC┆
0x23580…23600 UnusedSector ┆KED; ; END ; ELSE GOTO EMPTY; ; END; ;### ; TRANI1: ; BEGIN MOV R6 R4 ; MOVC ERROR R2 ; MOV FSCDEV R5 ; SIO R3 R5 ; INV ┆
0x23600…23680 UnusedSector ┆R3 ; IF NOT P.M.F.ONLY JMPI S5 LCHECKERR ; THEN JMP ERRORC ; ERR.FUNC(PRI,STATUS); JMP EMPTY ; GOTO EMPTY; ; END; ; END; TR┆
0x23680…23700 UnusedSector ┆ANI0: ; SYSTEM TOO SLOW: MOVC BUFCOUNT3 R6 ; BEGIN DEC 0. X6 ; DECR (0.BUFCOUNT3); MOVC OUTOFMESS R2 ; ERRORFUNC (OUTOFMESS);┆
0x23700…23780 UnusedSector ┆ MOVC 0 R3 ; 0 => STATUS; JMP ERRORC ; END; TRAMES: ; MESSAGE: JMPI S6 LINBUF ; INBUF; MOV X7 R1 ; IF OPERATION <> TRANSMIT ┆
0x23780…23800 UnusedSector ┆ XTR R1 4 ; INE R1 FTRANT ; THEN JMP GOTOFUNC ; GOTO FUNCTION; JMPI S6 LSENDBUF ; SENDBUF; MOV STRANSG R6 ; TRANSMITTING => ┆
0x23800…23880 UnusedSector ┆ MOV R6 STATE ; 0.STATE; JMPI SAVE0 ; END TRANI2: ; ELSE JMPI S6 LSENDBUF ; SENDBUF; ;---------------------------------- JMP┆
0x23880…23900 UnusedSector ┆I SAVE0 ; END; ;>--------------------------------< ;> ERROR-INTERRUPTS < ;>--------------------------------< TRAPR2: MOVC ERR┆
0x23900…23980 UnusedSector ┆OR R2 ; MOV FSCDEV R5 ; SIO R3 R5 ; INV R3 ; MOV R6 R4 ; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; JMPI S5 LCHECKERR ; I┆
0x23980…23a00 UnusedSector ┆F NOT POS.MEM.FULL THEN JMP ERRORC ; ERRORFUNC(ERROR,STATUS); ;---------------------------------- TRAOUT: ; END; IF TST MON RE┆
0x23a00…23a80 UnusedSector ┆GISTERS ; MON GIVEUPTIME FI ; JMPI SAVE0 ; RETURN ; ; ;.....................................................................┆
0x23a80…23b00 UnusedSector ┆. ;### ;...................................................................... ;GOTOFUNCTION ; CALL EXIT ; ;R1 OPERATION FUNCTIO┆
0x23b00…23b80 UnusedSector ┆N ;...................................; ; GOTOFUNC: ; XTR R1 4 ; MOD R1 ; CASE FUNCTION OF JMP LOC+1 ; BEGIN JMP DUMMYFUNC ┆
0x23b80…23c00 UnusedSector ┆; 0: GOTO DUMMYFUNC; JMP DUMMYC ; 1: GOTO DUMMYFUNC; JMP DUMMYC ; 2: GOTO DUMMYFUNC; JMP SETUP ; 3: GOTO SETUP; JMP TRANSMIT┆
0x23c00…23c80 UnusedSector ┆ ; 4: GOTO TRANSMIT; JMP DUMMYC ; 5: GOTO DUMMYFUNC; JMP DUMMYC ; 6: GOTO DUMMYFUNC; JMP DUMMYC ; 7: GOTO DUMMYFUNC; JMP DUM┆
0x23c80…23d00 UnusedSector ┆MYC ; 8: GOTO DUMMYFUNC; JMP DUMMYC ; 9: GOTO DUMMYFUNC; JMP DUMMYC ; 10: GOTO DUMMYFUNC; JMP DUMMYC ; 11: GOTO DUMMYFUNC; J┆
0x23d00…23d80 UnusedSector ┆MP DUMMYC ; 12: GOTO DUMMYFUNC; JMP DUMMYC ; 13: GOTO DUMMYFUNC; JMP DUMMYC ; 14: GOTO DUMMYFUNC; JMP DUMMYC ; 15: GOTO DUMMY┆
0x23d80…23e00 UnusedSector ┆FUNC; ; END; ; ; ;...................................................................... ;### ;------------------------------┆
0x23e00…23e80 UnusedSector ┆---------------------------------------- ; ; MAINPROGRAM ; ;--------------------------------------------------------------------┆
0x23e80…23f00 UnusedSector ┆-- ; INITIALIZING SEQUENCE ;---------------------------------------------------------------------- INIT: ; INIT: IF TST THEN M┆
0x23f00…23f80 UnusedSector ┆OVC RNAME R0 ; RNAME => MOV R0 WRK-1-C ; 0.RNAME; FI IF N THEN MOVC <:FS:> R0 ; "FSC" => NAME; MOV R0 NAME-C ; MOVC <:C:> R0┆
0x23f80…24000 UnusedSector ┆ ; MOV R0 NAME+1-C ; FI MOVC FSCDEVNO R0 ; MOV R0 FSCDEV ; SLL R0 2 ; MOV R0 DEVPR-C ; MON INITDEVICE ; INITDEVICE; MOVC ┆
0x24000…24080 UnusedSector ┆0 R0 ; IF N THEN MOV R0 NAME+2-C ; FI MOV R0 CONFIG ; 0 => 0.CONFIG; MOV R0 BUFCOUNT1 ; 0 => 0.BUFCOUNT1; MOV R0 BUFCOUNT2 ;┆
0x24080…24100 UnusedSector ┆ 0 => 0.BUFCOUNT2; MOV LOCACN-C R0 ; 0.LOCACN => WK; MOV R0 LOCA ; WK => 0.LOCA; MOVC LOCAC R0 ; LOCAC => ADR; MOV R0 LOCACN┆
0x24100…24180 UnusedSector ┆-C ; ADR => 0.LOCACN; MOVC BUFPL0 R0 ; MOV R0 BUFIN ; BUFPL0 => 0.BUFIN; MOV R0 BUFOUT ; BUFPL0 => 0.BUFOUT; MOV SSTART R1 ;┆
0x24180…24200 UnusedSector ┆ MOV R1 STATE ; START => STATE; ; ; ;---------------------------------------------------------------------- ;### ;-----------┆
0x24200…24280 UnusedSector ┆----------------------------------------------------------- ; START STATE - WAIT FOR SETUP-MESSAGE ;----------------------------┆
0x24280…24300 UnusedSector ┆------------------------------------------ START: ; START: MOV INTERT-C R1 ; MON SETINTERRUPT ; SETINTERRUPT; MON WAITEVENT ┆
0x24300…24380 UnusedSector ┆; WAITEVENT; JMP TREATR ; ANSWER: ILLEGAL; JMP STARTM ; JMP START ; INTERRUPT: GOTO START; STARTM: ; MESSAGE: JMPI S6 LINBUF┆
0x24380…24400 UnusedSector ┆ ; INBUF; MOV X7 R1 ; IF FUNCTION XTR R1 4 ; <> SETUP IF TST MON REGISTERS ; MON GIVEUPTIME FI ; IEQ R1 FSETUP ; THEN JMP S┆
0x24400…24480 UnusedSector ┆ETUP ; BEGIN JMPI S5 LOUTBUF ; OUTBUF; MON REGISTERS ; IF EMPTY SOFTWARE ERROR; MOVC ILLEGAL R7 ; ILLEGAL => ANSWCODE; JMPI ┆
0x24480…24500 UnusedSector ┆S5 LANSWER ; ANSWER (ANSWCODE); JMP START ; GOTO START; ; END; ; ; ;--------------------------------------------------------┆
0x24500…24580 UnusedSector ┆-------------- ;### ;---------------------------------------------------------------------- ; FUNCTION SETUP ;------------------┆
0x24580…24600 UnusedSector ┆---------------------------------------------------- SETUP: ; MOV 2. X7 R5 ; 2.WORK => ADRABS; MOVC BAS R4 ; BAS => AD; SUB ┆
0x24600…24680 UnusedSector ┆X4 R5 ; ADRABS-0.AD => ADDRESS; MOV R5 SETUPE ; ADDRESS => 0.SETUPTABLE; MOV 3. X7 R3 ; 3.WORK => SETAD; MOV R3 SETADR ; SETA┆
0x24680…24700 UnusedSector ┆D => 0.SETADR; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; JMPI S6 LDOSETUP ; DO SETUP; MOVC NOTDONE R4 ; JMPI S6 LEMPTYBUF ;┆
0x24700…24780 UnusedSector ┆ EMPTYBUF (NOT DONE); MON REGISTERS ; IF EMPTY SOFTWARE ERROR; MOV SYNCLH R2 ; 0.SYNCLENGTH MOVC ANSW R6 ; => MOV R2 1. X6 ;┆
0x24780…24800 UnusedSector ┆ COUNT.ANSWER; MOVC DONE R7 ; JMPI S5 LANSWER ; ANSWER (DONE); ; ; ;--------------------------------------------------------┆
0x24800…24880 UnusedSector ┆-------------- ;### ;---------------------------------------------------------------------- ; BLOCKED STATE - WAIT FOR ALL MESSA┆
0x24880…24900 UnusedSector ┆GES ;---------------------------------------------------------------------- BLOCKED: ; MOV INTERT-C R1 ; MON SETINTERRUPT ; S┆
0x24900…24980 UnusedSector ┆ETINTERRUPT; MON WAITEVENT ; WAITEVENT; JMP TREATR ; ANSWER: ILLEGAL; JMP BLOCKS ; JMP BLOCKED ; INTERRUPT: GOTO BLOCKED; BL┆
0x24980…24a00 UnusedSector ┆OCKEDMS: ; MESSAGE: JMPI S6 LINBUF ; INBUF; MOV X7 R1 ; 0.WORK => OPERATION; JMP GOTOFUNC ; GOTO FUNCTION; ; ; ;-----------┆
0x24a00…24a80 UnusedSector ┆----------------------------------------------------------- ;### ;--------------------------------------------------------------┆
0x24a80…24b00 UnusedSector ┆-------- ; FUNCTION TRANSMIT ;---------------------------------------------------------------------- TRANSMIT: ; MOV STATE R7 ┆
0x24b00…24b80 UnusedSector ┆; MOV R7 OLDSTATE ; 0.STATE => 0.OLDSTATE; MOV SCOLLEG R7 ; MOV R7 STATE ; COLLECTING => 0.STATE; MOV NEVERT R6 ; IF TST MON┆
0x24b80…24c00 UnusedSector ┆ REGISTERS ; MON GIVEUPTIME FI ; INEP R6 1 ; IF 0.NEVERADRSENT <> 1 THEN JMPI S6 LSENDBUF ; SENDBUF ELSE JMP COLLEG ; BEGIN ┆
0x24c00…24c80 UnusedSector ┆ MOVC 0 R6 ; 0 => MOV R6 NEVERT ; 0.NEVERADRSENT; JMPI S6 LSENDBUF ; SENDBUF; MOV SETUPE R6 ; 0.SETUPTABLE => ADR; MOV FORMA┆
0x24c80…24d00 UnusedSector ┆T.X6 R1 ; FORMAT.ADR => W; SLL R1 12 ; W<12 => W; MOV BLOCKT.X6 R2 ; BLOCKLENGTH.ADR => W1; ADD R2 R1 ; W1+W => W; IF TST MON┆
0x24d00…24d80 UnusedSector ┆ REGISTERS ; MON GIVEUPTIME FI ; MOV FSCDEV R6 ; ADDC BLLFOS R6 ; INV R1 ; CIO R1 R6 ; W => *BLOCKLENGTHFORMAT*; MOV INTER┆
0x24d80…24e00 UnusedSector ┆T-C R1 ; MOVC 10 R0 ; MON WAITINTERRUPT ; WAITINTERRUPT; JMP TRANS1 ; IF TIMEOUT THEN GOTO TOUT; MOV DEVPR-C R2 ; INTERRUPT:┆
0x24e00…24e80 UnusedSector ┆ CONTINUE; XTR R2 2 ; IF PRI <> IF TST MON REGISTERS ; MON GIVEUPTIME FI ; IEQ R2 1 ; 1 THEN JMP TRANS0 ; BEGIN MOV R2 R4 ;┆
0x24e80…24f00 UnusedSector ┆ PRI => PRIO; MOVC ERROR R2 ; MOV FSCDEV R5 ; SIO R3 R5 ; ERRORFUNC(ERROR,STATUS); INV R3 ; JMP ERRORC ; END ELSE GOTO OK; ┆
0x24f00…24f80 UnusedSector ┆TRANS1: ; TOUT: MOVC 8 R0 ; 8 => ERRCODE; JMP NOREPLY ; GOTO NOREPLY; TRANS0: ;OK:END; JOZ R0 COLLEG ; IF INTERRUPTCOUNT >= 0┆
0x24f80…25000 UnusedSector ┆ THEN JMP TRANI0 ; GOTO SYSTEM TOO SLOW; ; ; ;---------------------------------------------------------------------- ;### ;--┆
0x25000…25080 UnusedSector ┆-------------------------------------------------------------------- ; STATE COLLECTING ;---------------------------------------┆
0x25080…25100 UnusedSector ┆------------------------------- COLLECTING: ; COLLECTING: MOV INTERT-C R1 ; MON SETINTERRUPT ; SETINTERRUPT; MON WAITEVENT ;┆
0x25100…25180 UnusedSector ┆ WAITEVENT; JMP TREATR ; ANSWER: ILLEGAL; JMP COLLMS ; MOVC ERROR R2 ; INTERRUPT: MOV FSCDEV R5 ; SIO R3 R5 ; ERRORFUNC (ER┆
0x25180…25200 UnusedSector ┆ROR,STATUS); MOV DEVPR-C R4 ; XTR R4 2 ; INV R3 ; JMP ERRORC ; COLLMS: ; MESSAGE: JMPI S6 LINBUF ; INBUF; MOV X7 R1 ; XTR┆
0x25200…25280 UnusedSector ┆ R1 4 ; IF FUNCTION <> INE R1 FTRANT ; TRANSMIT THEN JMP GOTOFC ; GOTO FUNCTION; JMPI S6 LSENDBUF ; SENDBUF; MOV SYNCLENGTH ┆
0x25280…25300 UnusedSector ┆R4 ; 0.SYNCLENGTH => P; NEG R4 ; 0-P => P; MOV R4 POINTER ; P => 0.POINTER; MOVC 3 R4 ; 3 => MOVC 3 R7 ; *WRITEEXEC*; JMPI ┆
0x25300…25380 UnusedSector ┆S6 LSETPAE ; MOV STRANSG R6 ; TRANSMITTING => MOV R6 STATE ; 0.STATE; ; ; ;-------------------------------------------------┆
0x25380…25400 UnusedSector ┆--------------------- ;### ;---------------------------------------------------------------------- ; STATE TRANSMITTING ;-------┆
0x25400…25480 UnusedSector ┆--------------------------------------------------------------- TRANSMITTING: ; TRANSMITTING; IF SLOW MODC #4000 FI ; MOVC 100┆
0x25480…25500 UnusedSector ┆ R0 ; MON SETDELAY ; SET DELAY = 1 SEC; MOV INTERT-C R1 ; MON SETINTERRUPT ; SETINTERRUPT; MON WAITEVENT ; WAITEVENT; JMP T┆
0x25500…25580 UnusedSector ┆TIMEOUT ; JMP TREATR ; ANSWER: ILLEGAL; JMP TRANSM ; JMPI S6 LTRANIT ; INTERRUPT: HANDLE IT; JMP TRANSG ; GOTO TRANSMITTING;┆
0x25580…25600 UnusedSector ┆ TRANSM: ; MESSAGE: JMPI S6 LINBUF ; INBUF; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; JOZ R3 TRANF ; IF BUFFER FULL THEN TRA┆
0x25600…25680 UnusedSector ┆NSFULL: ; BEGIN MOV INTERT-C R1 ; BUFFILLED: IF SLOW MODC #4000 FI ; MOVC 100 R0 ; MON WAITINTERRUPT ; WAITINTERRUPT; JMP TT┆
0x25680…25700 UnusedSector ┆IMEOUT ; IF TIMEOUT GOTO TIMEOUT; JMPI S6 LTRANIT ; HANDLE INTERRUPT; MOV BUFSTATE R3 ; IF 0.BUFSTATE <> 0 THEN JON R3 TRANSF┆
0x25700…25780 UnusedSector ┆ULL ; GOTO BUFFILLED; TRANF: ; END; MOVC WRK-C R7 ; MOV X7 R1 ; XTR R1 4 ; IF FUNCTION <> TRANSMIT INE R1 FTRANT ; THEN JMP┆
0x25780…25800 UnusedSector ┆ GOTOFC ; GOTO FUNCTION; JMP TRANSG ; GOTO TRANSMITTING; TTIMEOUT: ; TIMEOUT: JMPI S5 LOUTBUF ; OUTBUF; MON REGISTERS ; IF EM┆
0x25800…25880 UnusedSector ┆PTY SOFTWARE ERROR; MOVC TIMEOUT R7 ; MOV POINTER R5 ; JON R5 TTIME1 ; IF 0.POINTER = 0 THEN MOV SETUPE R5 ; BLOCKLENGTH.SET┆
0x25880…25900 UnusedSector ┆UPTABLE => MOV BLOCKT.X5 R5 ; 1.ANSW TTIME1: ; ELSE MOVC ANSW+1 R4 ; 0.POINTER MOV R5 0. X4 ; => 1.ANSW; JMPI S5 LANSWER ; A┆
0x25900…25980 UnusedSector ┆NSWER (TIMEOUT,COUNT); JMPI S6 LDOSETUP ; DO SETUP; MOVC NOTDONE R4 ; JMPI S6 LEMPTYBUF ; EMPTYBUF (NOT DONE); JMP BLOCKED ;┆
0x25980…25a00 UnusedSector ┆ IF EMPTY GOTO BLOCKED; MOVC NOTDONE R7 ; JMPI S5 LANSWER ; ANSWER (NOT DONE); JMP BLOCKED ; GOTO BLOCKED; ; ;--------------┆
0x25a00…25a80 UnusedSector ┆-------------------------------------------------------- ;### ;-----------------------------------------------------------------┆
0x25a80…25b00 UnusedSector ┆----- ; DUMMYFUNCTION ;---------------------------------------------------------------------- DUMMYFUNC: ; DUMMYFUNCTION: MOVC┆
0x25b00…25b80 UnusedSector ┆ ILLEGAL R7 ; ILLEGAL => ANSWCODE; JMPI S6 LINSERT ; INSERT (ANSWCODE); JMPI STATE ; RETURN TO STATE; ; ; ;-----------------┆
0x25b80…25c00 UnusedSector ┆----------------------------------------------------- ;### ;--------------------------------------------------------------------┆
0x25c00…25c80 UnusedSector ┆-- ; STATE UNLOCKED ;---------------------------------------------------------------------- TUNLOCKED: ; UNLOCKED: MOV STUNLW ┆
0x25c80…25d00 UnusedSector ┆R6 ; WAITUNLCK => MOV R6 STATE ; 0.STATE; MOVC 0 R6 ; 0 => MOV R6 FRAMES ; 0.FRAMES; TUNLW: ; WAITUNLCK: IF SLOW MODC #4000 F┆
0x25d00…25d80 UnusedSector ┆I ; MOVC 100 R0 ; 1 SEC => DELAY; MON SETDELAY ; MOV INTERT-C R1 ; MON SETINTERRUPT ; SETINTERRUPT; MON WAITEVENT ; WAITEVE┆
0x25d80…25e00 UnusedSector ┆NT; JMP TTIMEOUT ; TIMEOUT: GOTO TIMEOUT; JMP TREATR ; ANSWER: IMPOSSIBLE; JMP TUNLM ; MOV DEVPR-C R4 ; INTERRUPT: XTR R4 2┆
0x25e00…25e80 UnusedSector ┆ ; IF PRI = 0 THEN IF TST MON REGISTERS ; MON GIVEUPTIME FI ; JON R4 TUNL1 ; BEGIN MOVC FRAMES R6 ; INC 0. X6 ; INCR (0.FRAM┆
0x25e80…25f00 UnusedSector ┆ES); MOV SETUPE R5 ; MOV NOOFFS.X5 R5 ; NOOFFRAMES.SETUPTABLE => W; IHS X6 R5 ; IF 0.FRAMES >= W THEN JMP TTIMEOUT ; GOTO TI┆
0x25f00…25f80 UnusedSector ┆MEOUT; JMPI S6 LUPDATES ; UPDATETABLES; MON REGISTERS ; IF UNLOCK REGISTERS; MOV SAVE2 R4 ; 0.SYNCSTATUS => S; IF TST MON REG┆
0x25f80…26000 UnusedSector ┆ISTERS FI ; IBZ R4 12 ; IF NOT IN LOCK THEN JMP TUNLW ; GOTO WAITUNLCK; MOV STRANSG R5 ; TRANSMITTING => MOV R5 STATE ; 0.ST┆
0x26000…26080 UnusedSector ┆ATE; JMP TRANSG ; GOTO TRANSMITTING; TUNL1: ; END; MOV FSCDEV R5 ; SIO R3 R5 ; *OPSTATUS* => STATUS; INV R3 ; MOVC ERROR R2┆
0x26080…26100 UnusedSector ┆ ; JMPI S5 LCHECKERR ; IF NOT POS.MEM.FULL ONLY THEN JMP ERRORFUNC ; ERRORFUNC; JMP TUNLW ; GOTO WAITUNLCK; ;### ; TUNLM: ; M┆
0x26100…26180 UnusedSector ┆ESSAGE: JMPI S6 LINBUF ; INBUF; JON R3 TUNLM1 ; IF BUFFER NOT FULL THEN MOV X7 R1 ; BEGIN XTR R1 4 ; IF FUNCTION <> TRANSMIT┆
0x26180…26200 UnusedSector ┆ INE R1 FTRANT ; THEN JMP GOTOFUNC ; GOTO FUNCTION; JMP TUNLW ; GOTO WAITUNLCK; TUNLM1: ; END; MOV INTERT-C R1 ; BUFFULL: IF┆
0x26200…26280 UnusedSector ┆ SLOW MODC #4000 FI ; MOVC 100 R0 ; 1 SEC => DELAY; MON WAITINTERRUPT ; WAITINTERRUPT; JMP TTIMEOUT ; TIMEOUT: GOTO TIMEOUT; ┆
0x26280…26300 UnusedSector ┆ MOV DEVPR-C R4 ; XTR R4 2 ; IF PRI = 0 THEN IF TST MON REGISTERS ; MON GIVEUPTIME FI ; JON R4 TUNL3 ; BEGIN MOVC FRAMES R6 ┆
0x26300…26380 UnusedSector ┆; INC 0. X6 ; INCR (0.FRAMES); MOV SETUPE R5 ; MOV NOOFFS.X5 R5 ; NOOFFRAMES.SETUPTABLE => W; IHS X6 R5 ; IF 0.FRAMES >= W T┆
0x26380…26400 UnusedSector ┆HEN JMP TTIMEOUT ; GOTO TIMEOUT; JMPI S6 LUPDATES ; UPDATETABLES; MON REGISTERS ; IF UNLOCK THEN REGISTERS; MOV SAVE2 R4 ; 0┆
0x26400…26480 UnusedSector ┆.SYNCSTATUS => S; IBZ R4 12 ; IF NOT IN LOCK THEN JMP TUNLM1 ; GOTO BUFFULL; MOV STRANSG R5 ; TRANSMITTING => MOV R5 STATE ;┆
0x26480…26500 UnusedSector ┆ 0.STATE; TUNL3: ; END; MOV FSCDEV R5 ; SIO R3 R5 ; *OPSTATUS* => STATUS; INV R3 ; MOVC ERROR R2 ; ERROR => CODE; JMPI S5 L┆
0x26500…26580 UnusedSector ┆CHECKERR ; IF NOT P.M.F. ONLY THEN JMP ERRORC ; ERRORFUNC; JMP TUNLM1 ; GOTO BUFFULL; ; ; ;---------------------------------┆
0x26580…26600 UnusedSector ┆------------------------------------- ;### ;---------------------------------------------------------------------- ; FUNCTION CL┆
0x26600…26680 UnusedSector ┆EAR POSITION MEMORY STATUS ;---------------------------------------------------------------------- CLRPOS: ; CLEARPOSMS: MOVC ┆
0x26680…26700 UnusedSector ┆8 R4 ; MOVC 0 R7 ; CLEAR POS. MEM. STATUS; JMPI S6 LSETPAE ; MOVC 8 R4 ; MOVC 1 R7 ; ENABLE POS. MEM. FULL INT. JMPI S6 LSE┆
0x26700…26780 UnusedSector ┆TPAE ; MOVC EXDONE R7 ; JMPI S6 LINSERT ; INSERT (EXDONE); JMPI STATE ; RETURN TO STATE; ; ; ;-----------------------------┆
0x26780…26800 UnusedSector ┆----------------------------------------- ;### FIRST=INIT END XPRPC=FIRST IF TST XREFS=20 ELSE XREFS=10 FI IF TST XBUFS=1 ELS┆
0x26800…26880 UnusedSector ┆E XBUFS=0 FI NOLIST MESSAGE <:END OF USER MODULE:> USE PROG XDEVPR= 0 XPSIZE= LOC USE BASE XCURIN= LOC 0,REPEAT CURSOUT-CURSIN-1┆
0x26880…26900 UnusedSector ┆ XCUROUT= LOC 0,REPEAT 4 XWORKING=0, XPROGRAM=LOC XWORDS=0, XREFSX=0, XBUFSX=0, XCURWORK=0, XCENTRY=0 XSIZE= LOC+C USE PROG IF L┆
0x26900…26980 UnusedSector ┆OC+XSIZE NE WORDS THEN MESSAGE <:SIZE <> WORDS:> MESSAGE WORDS MESSAGE XSIZE FI LIST END RIN= LOC 0,REPEAT CURSOUT-CURSIN-1┆
0x26980…26a00 UnusedSector ┆:A:>+10 => CHAR; ; AU000616 AU000617 1 0024 ILT R1 10 ; IF CHAR<10 THEN ; AU000617 AU000618 1 0025 ADDC <:A:>-10-<:0:> R1 ; CHAR┆
0x26a00…26a80 UnusedSector ┆+<:A:>-10-<:0:> =>CHAR; ; AU000618 AU000619 1 0026 SGEP R1 16 ; IF CHAR<16 OR ; AU000619 AU000620 1 0028 SLT R1 0 ; >=0 THEN ; A┆
0x26a80…26b00 UnusedSector ┆U000620 AU000621 1 0029 JMP 1. X5 ; RETURN ELSE ; AU000621 AU000622 1 002A JMP 0. X5 ; RETURN(ERROR); ; AU000622 AU000623 1 002B┆
0x26b00…26b80 UnusedSector ┆ ; AU000623 AU000624 1 002B ; AU000624 AU000625 1 002B ;HEXOUT ; AU000625 AU000626 1 002B ; CALL EXIT ; AU000626 AU000627 1 002B┆
0x26b80…26c00 UnusedSector ┆ ;R1 DESTROYED ; AU000627 AU000628 1 002B ;R2 DESTROYED ; AU000628 AU000629 1 002B ;R4 BIN VALUE DESTROYED ; AU000629 AU000630 1┆
0x26c00…26c80 UnusedSector ┆ 002B ;R5 LINK LINK ; AU000630 AU000631 1 002B ;R6 DESTROYED ; AU000631 AU000632 1 002B ;R7 DESTROYED ; AU000632 AU000633 1 002B┆
0x26c80…26d00 UnusedSector ┆ ; AU000633 AU000634 1 002B HEXOUT: ; HEXOUT: ; AU000634 AU000635 1 002B MOVC 8#40 R1 ; ASCII(SP) => CHAR; ; AU000635 AU000636 1┆
0x26d00…26d80 UnusedSector ┆ 002C JMP S6 OUTCHAR ; OUTPUT CHAR; ; AU000636 AU000637 1 002D MOVC 4 R2 ; 4 => COUNT; ; AU000637 AU000638 1 002E H2: SLC R4 4 ;┆
0x26d80…26e00 UnusedSector ┆ H2: ; AU000638 AU000639 1 002F MOV R4 R1 ; ; AU000639 AU000640 1 0030 XTR R1 4 ; HEX(3:4) => VALUE; ; AU000640 AU000641 1 0031 ┆
0x26e00…26e80 UnusedSector ┆ILT R1 10 ; IF VALUE < 10 THEN ; AU000641 AU000642 1 0032 ADDC <:0:>-<:A:>+10 R1 ; VALUE+<:0:>-<:A:>+10 =>VALUE ; AU000642 AU000┆
0x26e80…26f00 UnusedSector ┆643 1 0033 ADDC <:A:>-10 R1 ; VALUE+<:A:>-10 => CHAR; ; AU000643 AU000644 1 0034 JMP S6 OUTCHAR ; OUTPUT CHAR; ; AU000644 AU0006┆
0x26f00…26f80 UnusedSector ┆45 1 0035 SOB R2 H2 ; IF DECR(COUNT)<>0 THEN ; AU000645 AU000646 1 0036 ; GOTO H2; ; AU000646 AU000647 1 0036 JMP 0. X5 ; RETURN┆
0x26f80…27000 UnusedSector ┆; ; AU000647 AU000648 1 0037 ; AU000648 AU000649 1 0037 ; AU000649 AU000650 1 0037 ;NEXTLIN ; AU000650 AU000651 1 0037 ; CALL EX┆
0x27000…27080 UnusedSector ┆IT ; AU000651 AU000652 1 0037 ; ; AU000652 AU000653 1 0037 ;R0 DESTROYED ; AU000653 AU000654 1 0037 ;R1 DESTROYED ; AU000654 AU0┆
0x27080…27100 UnusedSector ┆00655 1 0037 ;R2 DESTROYED ; AU000655 AU000656 1 0037 ;R5 LINK LINK ; AU000656 AU000657 1 0037 ;R6 DESTROYED ; AU000657 AU000658┆
0x27100…27180 UnusedSector ┆ 1 0037 ;R7 DESTROYED ; AU000658 AU000659 1 0037 ; AU000659 AU000660 1 0037 NEXTLIN: ; NEXTLIN: ; AU000660 AU000661 1 0037 XCH R┆
0x27180…27200 UnusedSector ┆6 R4 ; ; AU000661 AU000662 1 0038 XCH R1 R3 ; ; AU000662 AU000663 1 0039 MOV CUROUT-C R4 ; ; AU000663 AU000664 1 003A MON OUTNL ┆
0x27200…27280 UnusedSector ┆; ; AU000664 AU000665 1 003B XCH R6 R4 ; ; AU000665 AU000666 1 003C XCH R1 R3 ; ; AU000666 AU000667 1 003D JMP 0. X5 ; ; AU00066┆
0x27280…27300 UnusedSector ┆ IF DATA TRANSFER FUNCTION THEN JMP C001 ; GOTO GET FUNCTION; ; C401: ; INIT FUNCTION: MOV SAVE0. X7 R0 ; MOV R0 1. X7 ; FUN┆
0x27300…27380 UnusedSector ┆CTION=>1.MESS; MODC BMSTART-BMSTOP ; START ORELSE CMD1: ; STOP: MOVC BMSTOP X7 ; STOP=>OPER.MESS; MOV R7 R1 ; MOD CBASE-C ; ┆
0x27380…27400 UnusedSector ┆ MOVC FSCSETUP R2 ; RE.SETUPTABLE MOV R2 2. X7 ; =>2.MESS; MOVC SCMNAME R0 ; MON SENDMESSAGE ; SENDMESSAGE; MON WAITANSWER ;┆
0x27400…27480 UnusedSector ┆ WAITANSWER; JMP CIG02 ; GOTO GET COMMAND; ;### ; PARAMETER COMMANDS: CMD10: MODC FSTTHRD-FSFTHRD ; TRUE THRESHOLD: CMD11: MOD┆
0x27480…27500 UnusedSector ┆C FSFTHRD-FSFORMAT ; FALSE THRESHOLD: CMD13: MODC FSFORMAT-FSLOCKMODE ; FORMAT: CMD14: MODC FSLOCKMODE-FSSORTPR ; LOCKMODE: CMD1┆
0x27500…27580 UnusedSector ┆5: MODC FSSORTPR-FSWINDOW ; SORTPAR: CMD16: MODC FSWINDOW-FSSOURCE ; WINDOW: CMD17: MODC FSSOURCE-FSSYNCWLH ; SOURCE: CMD18: MOD┆
0x27580…27600 UnusedSector ┆C FSSYNCWLH-FSUNLOCK ; SYNC WORD LENGTH: CMD20: MODC FSUNLOCK-FSENDCOUNT ; UNLOCK CRITERIA: CMD21: MODC FSENDCOUNT-HSPEED ; ENDC┆
0x27600…27680 UnusedSector ┆OUNT: CMD30: MODC HSPEED-HVERNIER ; SPEED: CMD31: MODC HVERNIER-HBLOCKNR ; VERNIER: CMD34: MODC HBLOCKNR-HBLOCKCT ; BLOCKNR: CMD┆
0x27680…27700 UnusedSector ┆35: MODC HBLOCKCT-HBLOCKSIZE ; BLOCKCOUNT: CMD36: MODC HBLOCKSIZE-HDTRMASK ; BLOCKSIZE: CMD37: MODC HDTRMASK-HDUMMYCOUNT ; HDTRM┆
0x27700…27780 UnusedSector ┆ASK CMD38: MODC HDUMMYCOUNT-0 ; DUMMYCOUNT: MOVC 0 R0 ; MOV R0 SAVE0. X7 ; SAVE(ADDR); MON INWORD ; GET WORD: JMP CIG05 ; ER┆
0x27780…27800 UnusedSector ┆ROR: GOTO ILLEGAL PARAM; MOV SAVE0. X7 R5 ; RESTORE(ADDR); ADD R5 R5 ; ADDR*2 ADDC VALUESPEC R5 ; +VALUESPEC=>VALUETABLE; MV┆
0x27800…27880 UnusedSector ┆P 0. X5 R0 ; 0.VALUETABLE=>MIN; MVP 1. X5 R1 ; 1.VALUETABLE=>MAX; SLO X6 R0 ; IF WORD<MIN ILO R1 X6 ; OR MAX<WORD THEN JMP C┆
0x27880…27900 UnusedSector ┆IG05 ; GOTO ILLEGAL PARAMETER; MOV SAVE0. X7 R5 ; RESTORE(ADDR) ADDC FSCSETUP R5 ; +FSCSETUP=>ADDR; MOV X6 0. X5 ; WORD=>0.AD┆
0x27900…27980 UnusedSector ┆DR; JMP CIG02 ; GOTO GET COMMAND; CMD39: ; SETUP METEOSAT: JMP S6 CIP02 ; JMP CIG02 ; GOTO GET COMMAND; ; CMD12: ; GET FRAM┆
0x27980…27a00 UnusedSector ┆ELENGTH: JMP S5 CIP40 ; GET WORD; JMP CIG05 ; ERROR: GOTO ILL PAR; MOVC FSCSETUP+FSFRAMEH R1 ; RE.FRAMELENGTH; MODC 2 ; MOV┆
0x27a00…27a80 UnusedSector ┆M X6 X1 ; MOVE(WORD,FRAMELENGTH); JMP CIG02 ; GOTO GET COMMAND; ; ; CMD19: ; GET SYNCWORD: JMP S5 CIP40 ; GET WORD; JMP CIG┆
0x27a80…27b00 UnusedSector ┆05 ; ERROR: GOTO ILL PAR; MOVC FSCSETUP+FSSYNCWD R1 ; RE.SYNCWORD; MODC 4 ; MOVM X6 X1 ; MOVE(WORD,SYNCWORD); JMP CIG02 ; GO┆
0x27b00…27b80 UnusedSector ┆TO GET COMMAND; ;### ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; CR80 SYSTEM ONE, UTILITY PROCEDU┆
0x27b80…27c00 UnusedSector ┆RE INPUT. ; INLONG(IN,ADDR),(ERROR); ; ; THE PROCEDURE READS UPTO 64 BITS INTO THE LEAST FOUR WORDS REFERENCED ; BY WORKING. THE┆
0x27c00…27c80 UnusedSector ┆ LONG NUMBER IS READ FROM CURIN USING CONVENTIONAL ; SYNTAX. EIGHT WORDS OF THE AREA REFERENCED BY WORKING ARE USED. ; THE PROC┆
0x27c80…27d00 UnusedSector ┆EDURE CALLS INTYPE. ; THE PROCEDURE SAVES ITS LINK IN SSAVE9.CURIN. ; THE ENTRY POINT IS: CIP40 ; ; CALL: EXIT: ; R0 DESTROYED ;┆
0x27d00…27d80 UnusedSector ┆ R1 DESTROYED ; R2 DESTROYED ; R3 DESTROYED ; R4 IN(=CURIN.CUR) ; R5 LINK DESTROYED ; R6 ADDR(=WORKING.CUR) ; R7 WORK ; LINK+0: ┆
0x27d80…27e00 UnusedSector ┆ERROR(OR EMPTY LINE) ; LINK+1: RETURN ; BEGIN USE PROG ENTRY CIP40 EXTERNAL CURIN,INTYPE,BACKSPACE,WORKING,NL USE BASE SSAVE9:= ┆
0x27e00…27e80 UnusedSector ┆#21 USE PROG CIP40: ; INLONG: MOV CURIN-C R4 ; CURIN.CUR =>IN; MOV R5 SSAVE9.X4 ; SAVE(LINK); L00: ; SKIP SPACES: MON INTYPE ┆
0x27e80…27f00 UnusedSector ┆; INTYPE(IN, JMP & L00 ; SPACE: GOTO SKIP SPACES, JMP & L20 ; DIGIT: GOTO INIT DECIMAL, JMP & L500 ; LETTER: GOTO ERROR, ; O┆
0x27f00…27f80 UnusedSector ┆THER: CONTINUE); IEQ R3 <:#:> ; IF CHAR="#" THEN JMP L25 ; GOTO INIT HEXA; IEQ R3 NL ; IF CHAR=NL THEN JMP L500 ; GOTO ERROR┆
0x27f80…28000 UnusedSector ┆; JMP L00 ; GOTO SKIP SPACES; L25: ; INIT HEXA: MOVC 16 R2 ; 16 =>RADIX; JMP L30 ; GOTO CLEAR; L20: ; INIT DECIMAL: MOVC 10 ┆
0x28000…28080 UnusedSector ┆R2 ; 10 =>RADIX; L30: ; CLEAR: MOVC 0 R1 ; 0 =>WORK; MOVC 8 R0 ; 8 =>COUNT; MOV WORKING-C R6 ; RE.WORING.CUR =>ADDR; L35: ; D┆
0x28080…28100 UnusedSector ┆O MOV R1 0. X6 ; WORK =>0.ADDR; ADDC 1 R6 ; ADDR+1 =>ADDR SOB R0 L35 ; WHILE DECR(COUNT)<>0 OD; MOV WORKING-C R6 ; WORKING.C┆
0x28100…28180 UnusedSector ┆UR =>ADDR; INE R2 10 ; IF RADIX<>10 THEN JMP L200 ; GOTO CONTINUE NUMBER; L50: ; CONVERT NUMBER: ADDC -<:0:> R3 ; CHAR-"0" =>┆
0x28180…28200 UnusedSector ┆CHAR; IHS R3 R2 ; IF CHAR>=RADIX THEN JMP L400 ; GOTO END; MOV R6 R5 ; ADDR ADDC 4 R5 ; +4 =>HELP; MODC 4 ; MOVM X6 X5 ; M┆
0x28200…28280 UnusedSector ┆OVE(4,ADDR,HELP); MOV R2 R1 ; RADIX ADDC -1 R1 ; -1 =>MUL; JOZ R1 L90 ; IF MUL=0 THEN ; GOTO AFTER UPDATE; L60: ; ADDING: ┆
0x28280…28300 UnusedSector ┆ADDC -4 R5 ; RESTORE(HELP); ADDC -4 R6 ; RESTORE(ADDR); MOVC 4 R0 ; 4 =>COUNT; ADDC 0 R0 ; CLEAR CARRY; A15: ; DO ADDU 0. X5┆
0x28300…28380 UnusedSector ┆ 0. X6 ; 0.HELP+0.ADDR =>0.ADDR; INCD R5 R6 ; INCR(HELP);INCR(ADDR); SOB R0 A15 ; WHILE DECR(COUNT)<>0 OD; SVS R0 ; STATUS.CP┆
0x28380…28400 UnusedSector ┆U =>STAT; IBN R0 4 ; IF STAT[CARRY] THEN JMP L500 ; GOTO ERROR; SOB R1 L60 ; IF DECR(MUL)<>0 THEN ; GOTO ADDING; L90: ; AFTE┆
0x28400…28480 UnusedSector ┆R UPDATE: JOZ R7 A120 ; IF FIRST TIME THEN ; BEGIN MOV R3 0. X6 ; CHAR =>0.HELP; CLR 1. X6 ; 0 =>1.HELP; CLR 2. X6 ; 0 =>2.┆
0x28480…28500 UnusedSector ┆HELP; CLR 3. X6 ; 0 =>3.HELP; MOVC 0 R7 ; FALSE =>FIRST TIME; MOVC 1 R1 ; 1 =>MUL; JMP L60 ; GOTO ADDING ; END; A120: MOV W┆
0x28500…28580 UnusedSector ┆ORKING-C R6 ; RE.WORKING.CUR =>ADDR; L200: ; CONTINUE NUMBER: MON INTYPE ; INTYPE(IN, JMP & L400 ; SPACE: GOTO END, JMP & L50┆
0x28580…28600 UnusedSector ┆ ; DIGIT: GOTO CONVERT NUMBER, JMP & L250 ; LETTER: GOTO TEST HEXA, ; OTHER: CONTINUE); INE R3 <:#:> ; IF CHAR<>"#" THEN JMP┆
0x28600…28680 UnusedSector ┆ L400 ; GOTO END; MOV 0. X6 R2 ; 0.ADDR =>RADIX; JMP L30 ; GOTO CLEAR; L250: ; TEST HEXA: SNE R2 16 ; IF RADIX<>16 IGE R3 <┆
0x28680…28700 UnusedSector ┆:G:> ; OR CHAR>"G" THEN JMP L400 ; GOTO END; ADDC <:9:>+1-<:A:> R3 ; CHAR+"9"+1-"A" =>CHAR; JMP L50 ; GOTO CONVERT NUMBER; L4┆
0x28700…28780 UnusedSector ┆00: ; END: CLR 4. X6 ; 0 =>4.ADDR; INC SSAVE9.X4 ; INCR(LINK); L500: ; ERROR: MON BACKSPACE ; JMPI SSAVE9.X4 ; RETURN; END ;┆
0x28780…28800 UnusedSector ┆ END OF INLONG; ; PROCEDURE INDATEELEMENT. ; THE PROCEDURE WILL SCAN AN INPUT LINE FOR ONE OR TWO DIGITS ; AND CONVERT THESE TO ┆
0x28800…28880 UnusedSector ┆A BINARY NUMBER. ; IF A LETTER IS DETECTED OR CR IS DETECTED AS THE FIRST ; CHARACTER, THE CHARACTER WILL BE BACKSPACED AND AN E┆
0x28880…28900 UnusedSector ┆RROR RETURN ; IS MADE. ; WHEN TWO DIGITS IN SEQUENCE IS DETECTED, THEY ARE CONVERTED TO ; A BINARY NUMBER. IF FIRST A DIGIT AND ┆
0x28900…28980 UnusedSector ┆THEN A NON DIGIT IS ; DETECTED, THE LAST CHARACTER IS BACKSPACED AND THE FIRST ONE ; IS CONVERTED TO A BINARY NUMBER. ; ; R0 DES┆
0x28980…28a00 UnusedSector ┆TROYED ; ; R3 DESTROYED ; ; R4 SHARE SHARE ; ; R5 DESTROYED ; ; R6 LINK LINK ; ; R7 WORK ; ; CIP20: ; FIRSTCHAR: MON INTYPE ; ┆
0x28a00…28a80 UnusedSector ┆INTYPE; JMP CIP20 ; SPACE: IGNORE; JMP P202 ; DIGIT: JMP P201 ; LETTER: GOTO ERROR; INE R3 NL ; OTHER: IF CHAR<>NL THEN JMP┆
0x28a80…28b00 UnusedSector ┆ CIP20 ; IGNORE; P201: ; ERROR: MON BACKSPACE ; BACKSPACE(CHAR); JMP 0. X6 ; RETURN(ERROR); P202: ; DIGIT: ADDC -<:0:> R3 ; C┆
0x28b00…28b80 UnusedSector ┆HAR-<:0:>=>FIRST; MOV R3 R0 ; SAVE(FIRST); MON INTYPE ; INTYPE; JMP P203 ; SPACE: GOTO OTHER; JMP P204 ; DIGIT: GOTO SECOND;┆
0x28b80…28c00 UnusedSector ┆ JMP P201 ; LETTER: GOTO ERROR; P203: ; OTHER: MON BACKSPACE ; BACKSPACE(CHAR); MOV R0 R3 ; FIRST=>NUMBER; JMP P206 ; GOTO A┆
0x28c00…28c80 UnusedSector ┆FTER ADJUSTMENT; ; P204: ; SECOND: MOVC 10 R5 ; MOVC 0 R7 ; P205: ; ADD R0 R7 ; FIRST*10=>FIRST; SOB R5 P205 ; ADDC -<:0:┆
0x28c80…28d00 UnusedSector ┆> R3 ; CHAR-<:0:>=>SECOND; ADD R7 R3 ; FIRST+SECOND=>NUMBER; P206: ; AFTER ADJUSTMENT: MOVC WORK R7 ; JMP 1. X6 ; RETURN(OK);┆
0x28d00…28d80 UnusedSector ┆ ;### CMD32: ; GET FILE ID: JMP S6 CIP20 ; INDATEELEMENT(YEAR); JMP CIG05 ; ERROR: GOTO ILL PAR; SLL R3 9 ; YEAR<9=>DATE; MO┆
0x28d80…28e00 UnusedSector ┆V R3 R1 ; JMP S6 CIP20 ; INDATELEMENT(MONTH); JMP CIG05 ; ERROR: GOTO ILL PAR; IHS R3 13 ; IF MONTH>=13 THEN JMP CIG05 ; GOT┆
0x28e00…28e80 UnusedSector ┆O ILL PAR; SLL R3 5 ; MONTH<5 ADD R3 R1 ; +DATE=>DATE; JMP S6 CIP20 ; INDATEELEMENT(DAY); JMP CIG05 ; ERROR: GOTO ILL PAR; ┆
0x28e80…28f00 UnusedSector ┆IHS R3 32 ; IF DAY>=32 THEN JMP CIG05 ; GOTO ILL PAR; ADD R3 R1 ; DAY+DATE MOV R1 HFILE % +FSCSETUP ; =>FILE.FSCSETUP; CMD33┆
0x28f00…28f80 UnusedSector ┆: ; GET FILE ID1: JMP S6 CIP20 ; INDATEELEMENT(HOUR); JMP CIG05 ; ERROR: GOTO ILL PAR; IHS R3 24 ; IF HOUR>=24 THEN JMP CIG0┆
0x28f80…29000 UnusedSector ┆5 ; GOTO ILL PAR; SLL R3 6 ; HOUR<6 MOV R3 R1 ; =>TIME; JMP S6 CIP20 ; INDATEELEMENT(MINUTE); JMP CIG05 ; ERROR: GOTO ILL PA┆
0x29000…29080 UnusedSector ┆R; IHS R3 60 ; IF HOUR>=24 THEN JMP CIG05 ; GOTO ILL PAR; ADD R3 R1 ; MINUTE+TIME MOV R1 HFILE+1 % +FSCSETUP ; =>FILE+1.FSC┆
0x29080…29100 UnusedSector ┆SETUP; JMP CIG02 ; GOTO GET COMMAND; ;### CMD2: ; LIST: MOVC CMD2 R0 ; INSERT LIST AS LINK; MOV R0 SAVE0. X7 ; MON INCOMMAND┆
0x29100…29180 UnusedSector ┆ ; GET LIST PARAMETER; <:TTHR:>,0 , LCMD10 ; <:FTHR:>,0 , LCMD11 ; <:FRAMEH:> , LCMD12 ; <:FORMAT:> , LCMD13 ; <:LOCKME:> ,┆
0x29180…29200 UnusedSector ┆ LCMD14 ; <:SORTPR:> , LCMD15 ; <:WINDOW:> , LCMD16 ; <:SOURCE:> , LCMD17 ; <:SYNCWH:> , LCMD18 ; <:SYNCWD:> , LCMD19 ; <:┆
0x29200…29280 UnusedSector ┆UNLOCK:> , LCMD20 ; <:ENDCOT:> , LCMD21 ; <:SPEED:> , LCMD30 ; <:VERNIR:> , LCMD31 ; <:FILE:>,0 , LCMD32 ; <:BLOCKR:> , LCM┆
0x29280…29300 UnusedSector ┆D34 ; <:BLOCKT:> , LCMD35 ; <:BLOCKE:> , LCMD36 ; <:HDTRMK:> , LCMD37 ; <:DUMMYT:> , LCMD38 ; <:SETUP:> , LCMD50 ; LIST SET┆
0x29300…29380 UnusedSector ┆UP TABLE; 0 , 0 ; INE R3 0 ; JMP CIG05 ; NOTFOUND: GOTO ILL PAR; JMP CIG04 ; EMPTY LINE: GOTO PROMT; ; LCMD10: MODC LTTHRES┆
0x29380…29400 UnusedSector ┆HOLD-LFTHRESHD ; LCMD11: MODC LFTHRESHOLD-LFORMAT ; XCMD12: MODC 0 ; LCMD13: MODC LFORMAT-LLOCKMODE ; LCMD14: MODC LLOCKMODE-LSO┆
0x29400…29480 UnusedSector ┆RTPAR ; LCMD15: MODC LSORTPAR-LWINDOW ; LCMD16: MODC LWINDOW-LSOURCE ; LCMD17: MODC LSOURCE-LSYNCWLH ; LCMD18: MODC LSYNCWLH-LUN┆
0x29480…29500 UnusedSector ┆LOCK ; XCMD19: MODC 0 ; LCMD20: MODC LUNLOCK-LENDCOUNT ; LCMD21: MODC LENDCOUNT-LSPEED ; LCMD30: MODC LSPEED-LVERNIER ; LCMD31: ┆
0x29500…29580 UnusedSector ┆MODC LVERNIER-LBLOCKNR ; XCMD32: MODC 0 ; LCMD34: MODC LBLOCKNR-LBLOCKCT ; LCMD35: MODC LBLOCKCT-LBLOCKSIZE ; LCMD36: MODC LBLOC┆
0x29580…29600 UnusedSector ┆KSIZE-LHDTRMASK ; LCMD37: MODC LHDTRMASK-LDUMMYCOUNT ; LCMD38: MODC LDUMMYCURNT ; LCMDLH= LOC- LCMD10 ; XL12= XCMD12-LCMD10 ; XL┆
0x29600…29680 UnusedSector ┆19= XCMD19-LCMD10 ; XL32= XCMD32-LCMD10 ; ; MOVC 0 R6 ; RE.TEXT; MOV CUROUT-C R4 ; MON OUTTEXTP ; OUTPUT TEXT; MVP 0. X6 R2┆
0x29680…29700 UnusedSector ┆ ; GET RE.WORD; MOV 0. X2 R2 ; GET WORD; MOVC <: :> R3 ; WITHOUT LEADING ZERO'S MON OUTINTEGER ; OUTINTEGER; MON OUTNL ; OUT┆
0x29700…29780 UnusedSector ┆NL; JMPI SAVE0. X7 ; RETURN(LIST PARAMETER); ; ; ; ; PROCEDURE OUTLONG. ; ; R0 LEAST SIGN. BITS ; ; R4 MOST SIGN. BITS ; ; ┆
0x29780…29800 UnusedSector ┆DIGITS: 0,0,6,5,5,3,6 ; ; CIP30: ; OUTLONG: MOVC 0 R2 ; 0=>TRANSFER; MOVC 7 R7 ; 7=>COUNT; MOV WORKING-C R5 ; RE.MULADDR; P3┆
0x29800…29880 UnusedSector ┆01: ; NEXT DIGIT: MOVC 0 R1 ; 0=>REM; MOVC 10 R3 ; DIV R3 R0 ; LSIGN/10=>LSIGN,REM; MOD R7 ; MOV DIGITS-1 R3 ; GET MULDIGIT┆
0x29880…29900 UnusedSector ┆; MOV R4 0. X5 ; MUL R3 0. X5 ; MUL MSIGN,DIGIT=>0.MULADDR; ADD 0. X5 R1 ; REM+0.MULADDR ADD R2 R1 ; +TRANSFER=>TEMP; MOVC ┆
0x29900…29980 UnusedSector ┆10 R3 ; MOVC 0 R2 ; DIV R3 R1 ; TEMP/10=>TRANSFER,DIGIT; MOD R7 ; MOV R2 0. X5 ; SAVE(DIGIT); MOV R1 R2 ; SAVE(TRANSFER); ┆
0x29980…29a00 UnusedSector ┆SOB R7 P301 ; IF DECR(COUNT)<>0 THEN ; GOTO NEXT DIGIT; MOV CUROUT-C R4 ; MOVC 7 R0 ; P302: ; OUTDIGIT: MOV 1. X5 R2 ; 1.MUL┆
0x29a00…29a80 UnusedSector ┆ADDR=>DIGIT; MOVC 1 R3 ; MON OUTINTEGER ; OUTINTEGER(FORM=5); ADDC 1 R5 ; INCR(MULADDR); SOB R0 P302 ; IF DECR(COUNT)<>0 THE┆
0x29a80…29b00 UnusedSector ┆N ; GOTO OUTDIGIT; JMP 0. X6 ; RETURN(OUTLONG); ;### RLC501: LC501 ; LCMD50: ; LIST SETUP TABLE: CLR SAVE1. X7 ; 0=>LISTNR; ┆
0x29b00…29b80 UnusedSector ┆MOV RLC501 R0 ; INSERT LINK; MOV R0 SAVE0. X7 ; LC501: ; MOV SAVE1. X7 R0 ; GET LISTNR; INC SAVE1. X7 ; INCR(LISTNR); IEQ R0┆
0x29b80…29c00 UnusedSector ┆ XL12 ; JMP LCMD12 ; LIST FRAMELENGTH; IEQ R0 XL19 ; JMP LCMD19 ; LIST SYNCWORD; IEQ R0 XL32 ; JMP LCMD32 ; LIST FILE; IEQ┆
0x29c00…29c80 UnusedSector ┆ R0 LCMDLENGTH ; IF END OF LIST THEN JMP CMD2 ; GOTO LIST NEXT; MOD R0 ; JMP LCMD10 ; GOTO LIST(LISTNR); ; LCMD12: ; LIST FR┆
0x29c80…29d00 UnusedSector ┆AMELENGTH: MOV CUROUT-C R4 ; MOVC LFRAMELENGTH R6 ; RE.TEXT; MON OUTTEXTP ; OUTPUT TEXT; MOV FSCSETUP+FSFRAMEH R0 ; RE.FRAME┆
0x29d00…29d80 UnusedSector ┆LH.FSCSETUP; MOV FSCSETUP+FSFRAH+1 R4 ; JMP S6 CIP30 ; OUTLONG; MON OUTNL ; OUTNL; JMPI SAVE0. X7 ; RETURN(LIST FRAMELENGTH)┆
0x29d80…29e00 UnusedSector ┆; ; ; LCMD19: ; LIST SYNCWORD: MOV CUROUT-C R4 ; MOVC LSYNCWORD R6 ; RE.TEXT; MON OUTTEXTP ; OUTPUT TEXT; MOVC FSCSETUP+FS┆
0x29e00…29e80 UnusedSector ┆SYNCWD-1 % R6 ; RE.SYNCWORD=>ADDR; MOV FSCSETUP+FSSYNCWH R0 ; SYNCWORDLENGTH.SETUP SRL R0 4 ; /16=>COUNT; ADDC 1 R0 ; COUNT+┆
0x29e80…29f00 UnusedSector ┆1=>COUNT; MOVC <:#:> R3 ; LC191: ; MOD R0 ; MOV 0. X6 R2 ; COUNT.ADDR=>WORD; MON OUTHEXA ; OUTPUT WORD; MOVC 1 R3 ; SOB R0┆
0x29f00…29f80 UnusedSector ┆ LC191 ; IF DECR(COUNT)<>0 THEN ; GOTO NEXT WORD; MON OUTNL ; OUTNL; JMPI SAVE0. X7 ; RETURN(LIST SYNCWORD); ; ; ;### LCMD3┆
0x29f80…2a000 UnusedSector ┆2: ; LIST FILE: MOV CUROUT-C R4 ; MOVC LFILE R6 ; RE.TEXT; MON OUTTEXTP ; OUTPUT TEXT; MOV FSCSETUP+HFILE R1 ; FILE.FSCSETUP┆
0x2a000…2a080 UnusedSector ┆=>WORD; MOVC 0 R2 ; SLLL R1 7 ; MOVC 2 R3 ; MON OUTINTEGER ; OUTPUT YEAR; MOVC <:.:> R3 ; MON OUTCHAR ; MOVC 0 R2 ; SLLL┆
0x2a080…2a100 UnusedSector ┆ R1 4 ; MOVC 2 R3 ; MON OUTINTEGER ; OUTPUT MONTH; MOVC <:.:> R3 ; MON OUTCHAR ; MOVC 0 R2 ; SLLL R1 5 ; MOVC 2 R3 ; MON┆
0x2a100…2a180 UnusedSector ┆ OUTINTEGER ; OUTPUT DATE; MOV FSCSETUP+HFILE+1 R1 ; FILE+1.FSCSETUP=>WORD; MOVC 0 R2 ; SLLL R1 10 ; MOVC <: :> R3 ; MON OU┆
0x2a180…2a200 UnusedSector ┆TINTEGER ; OUTPUT HOUR; MOVC 0 R2 ; SLLL R1 6 ; MOVC <:.:> R3 ; MON OUTCHAR ; MOVC 2 R3 ; MON OUTINTEGER ; OUTPUT MINUTE; ┆
0x2a200…2a280 UnusedSector ┆ MON OUTNL ; OUTNL; JMPI SAVE0. X7 ; RETURN(LIST FILE); ; XREFS= 8 XBUFS= 4 XPRPC= CIM00 NOLIST MESSAGE <:END OF USER MOD┆
0x2a280…2a300 UnusedSector ┆ULE:> USE PROG XDEVPR= 0 XPSIZE= LOC USE BASE XCURIN= LOC 0,REPEAT CURSOUT-CURSIN-1 XCUROUT= LOC 0,REPEAT 4 XWORKING=0, XPROGRAM┆
0x2a300…2a380 UnusedSector ┆=LOC XWORDS=0, XREFSX=0, XBUFSX=0, XCURWORK=0, XCENTRY=0 XSIZE= LOC+C USE PROG IF LOC+XSIZE NE WORDS THEN MESSAGE <:SIZE <> WORD┆
0x2a380…2a400 UnusedSector ┆S:> MESSAGE WORDS MESSAGE XSIZE FI LIST END URIN= LOC 0,REPEAT CURSOUT-CURSIN-1 XCUROUT= LOC 0,REPEAT 4 XWORKING=0, XPROGRAM┆
0x2a400…2a480 UnusedSector ┆ ERROR ; IF ERROR THEN GOTO ERROR; ; AU000940 AU000941 1 013B ; ; AU000941 AU000942 1 013B JMP S6 INCHAR ; CHECK ; AU000942 AU00┆
0x2a480…2a500 UnusedSector ┆LIST ; SCM - SYSTEM COMTROL MODULE ; BEGIN MODULE NOLIST ; AU000400 0 0000 LEVEL 1 NAMES: C= #000D INPARM= #0068 OUTNL= #005D┆
0x2a500…2a580 UnusedSector ┆ PROGLH= #000E BMBYTE= #0004 OUTHEA= #0064 CONTLH= #0005 WAITAR= #000D BMINPT= #0001 BMWORD= #0000 BMTIMR= #0002 GETINT┆
0x2a580…2a600 UnusedSector ┆= #0004 REGISS= #0013 SETDEY= #0077 WAITET= #000F BACKSE= #0063 WAITIT= #0005 OUTCHR= #005F IDLENH= #0004 INCHAR= #0061 ┆
0x2a600…2a680 UnusedSector ┆ REGREE= #0010 NAMELH= #0003 SETINT= #0078 INCOMD= #0086 WAIT= #0059 INITDE= #0042 BMOUTT= #0003 SENDME= #000B SENDAR= #┆
0x2a680…2a700 UnusedSector ┆000C RESUMT= #0011 BMREET= #0001 BMDISP= #0001 OUTTEP= #005A USE BASE STACKH:= #0005 PROCLH:= #0052 NEXT:= #0002 SACTIN:┆
0x2a700…2a780 UnusedSector ┆= #0008 WORK:= #0040 NL:= #000A WORKAA:= #0295 BFIRST:= #0006 CAUSE:= #001E NAME:= #0007 WRK:= #004D UTILIH:= #02A1 CUR┆
0x2a780…2a800 UnusedSector ┆IN:= #005A DEVPR:= #001F ENTRYA:= #0275 BUFFEH:= #0008 CURSIN:= #005F INTERT:= #0054 WORKLH:= #000C CATALH:= #0058 REFLE┆
0x2a800…2a880 UnusedSector ┆H:= #0004 LOCACN:= #001C ENTRYH:= #0020 BNEXT:= #0007 PROC:= #000D MCOUNT:= #0001 SMASK:= #0007 BUFLEH:= #0009 CBASE:= #┆
0x2a880…2a900 UnusedSector ┆0015 KINDOC:= #0100 SHAREH:= #0022 INTRPT:= #0034 DRIVEH:= #0055 MADDRS:= #0002 CURSWK:= #01C3 CURSOT:= #0111 CUROUT:= #┆
0x2a900…2a980 UnusedSector ┆005B USE PROG LOCACT:= #822F USE #0 LIST XPD:= UTILITYLENGTH NOLIST IF XPD EQ UTILITYLENGTH OR XPD EQ PROGLENGTH THEN IF WORDS ┆
0x2a980…2aa00 UnusedSector ┆NE 0 THEN MESSAGE WORDS FI AREASWITCH=1 USE PROG LOC=PROG-1 BMREENTRANT XREFS XBUFS XWORDS XPSIZE 0,1,0,0,0,0 XSIZE 0 X┆
0x2aa00…2aa80 UnusedSector ┆PRPC IF LOC NE PROGLENGTH THEN MESSAGE <:ERROR: PROG LENGTH:> FI FI IF XPD GT PROGLENGTH THEN USE BASE LOC=BASE 0,REPEAT 12 IF┆
0x2aa80…2ab00 UnusedSector ┆ LOC NE PROC THEN MESSAGE <:ERROR: XPROC LOCATION:> FI 0 REPEAT 7 ; REGISTERS 0,0 XPROGRAM XPRPC 100 0 0 LOCACT 0 0 X┆
0x2ab00…2ab80 UnusedSector ┆DEVPR 100 0 REPEAT 12 ; TIME0 - FREEAREAS #FFFF 0,0,0 0 REPEAT 3 ; PRICHN - ADJUST XREFSX XBUFSX IF XPD NE UTILITYLENGTH ┆
0x2ab80…2ac00 UnusedSector ┆THEN XREFS=0 XBUFS=1 FI 0 REPEAT 20 ; RESTING - SAVE19 0,REPEAT CONTLENGTH-1 LOC= LOC-C IF LOC NE PROCLENGTH-C THEN MESSAGE <┆
0x2ac00…2ac80 UnusedSector ┆:ERROR: XPROC LENGTH:> FI IF XPD GT PROCLENGTH THEN 0,0,0 IF LOC NE DRIVERLENGTH-C THEN MESSAGE <:ERROR: XDRIVER LENGTH:> FI ┆
0x2ac80…2ad00 UnusedSector ┆IF XPD GT DRIVERLENGTH THEN 0 REPEAT 2 ; ESPECIAL - CATALOG IF LOC NE CATALOGLENGTH-C THEN MESSAGE <:ERROR: XCATALOG LENGTH:> F┆
0x2ad00…2ad80 UnusedSector ┆I IF XPD GT CATALOGLENGTH THEN LOCACT LOCACT XCURIN XCUROUT XCURWORK XCENTRY XWORKING FI FI FI FI XLOC= LOC MESSAGE <:┆
0x2ad80…2ae00 UnusedSector ┆START OF USER MODULE:> LIST T= TRUE ; TEST; D= FALSE ; DEBUG; BEGIN ; BEGIN SYSTEM CONTROL; GLOBAL REGISTERS,T,D ; ENTRY SCE0┆
0x2ae00…2ae80 UnusedSector ┆0 ; EXTERNAL SENDMESSAGE, WAITANSWER,WAITEVENT,SENDANSWER,REGRETMESSAGE EXTERNAL REGISTERS,MADDRS,MCOUNT,CBASE,C,WORK,IDLENGTH,N┆
0x2ae80…2af00 UnusedSector ┆AME EXTERNAL T,D BUFCOUNT= 6 ; NR. OF DATABUFFERS; BUFSIZE= 366 ; SIZE OF DATABUFFER FSC= 0 ; FRAME SYNC PROCESS NR.; TLMQ= 1 ;┆
0x2af00…2af80 UnusedSector ┆ TELEMECANIQUE PROCESS NR.; HDTR= 2 ; HDTR DRIVER PROCESS NR.; CIM= 3 ; COMMAND INTERPRETER PROCESS NR. MAXDRIVERS= CIM ; MAX. C┆
0x2af80…2b000 UnusedSector ┆OMMUNICATION PROCESSES; CIMMCOUNT= 6 ; MAX NR. OF MESSAGES IN QUEUE ; TO CIM; ; ERRSTOPPED= 1 ; SYSTEM STOPPED; ERRSYSTEM= 2 ;┆
0x2b000…2b080 UnusedSector ┆ SYSTEM ERROR; ERRFSC= 3 ; FSC ERROR; ERRTLMQ= 4 ; TLMQ ERROR; ERRHDTR= 5 ; ERRUNLOCKED= 6 ; FSC UNLOCKED; ERRENDFORMAT= 7 ; END┆
0x2b080…2b100 UnusedSector ┆ OF FORMAT; ERRSTARTFORT= 8 ; START OF FORMAT; ERRILLEGAL= 9 ; ILLEGAL OPERATION; ERRSLOW= 10 ; OUTPUT DEVICE TOO SLOW; ERRSLIPP┆
0x2b100…2b180 UnusedSector ┆AGE= 13 ; ERRHAMMING= 14 ; BAD HAMMING DISTANCE; ; BMSTART= 1 ; START SYSTEM; BMSTOP= 2 ; STOP SYSTEM; BMSETUP= 3 ; SETUP CODE;┆
0x2b180…2b200 UnusedSector ┆ BMINPUT= 4 ; INPUT OPERATION; BMOUTPUT= 5 ; OUTPUT OPERATION; BMNOTREADY= 6 ; NOTREADY; BMTIMEOUT= 7 ; SOFTWARE TIMEOUT; BMERRO┆
0x2b200…2b280 UnusedSector ┆R= 8 ; DEVICE ERROR; BMILLEGAL= 9 ; ILLEGAL OPERATION; BMNOTDONE= 10 ; NOT DONE; BMOUTOFMESS= 11 ; OUT OF MESSAGES; BMUNLOCKED= ┆
0x2b280…2b300 UnusedSector ┆12 ; FSC UNLOCK; BMSLIPPAGE= 13 ; BIT SLIPPAGE; BMHAMMING= 14 ; BAD HAMMING DISTANCE; ;### BNTLM= 0 ; BNFSC= 1 ; BNWRITE= 2 ; BN┆
0x2b300…2b380 UnusedSector ┆READ= 3 ; BNINITWRITE= 4 ; BNWIND= 5 ; BNREWIND= 6 ; BNSEARCH= 7 ; BNPOSITION= 8 ; BNLISTFILES= 9 ; ; LINK0: LOC=LOC+1 ; LINK S┆
0x2b380…2b400 UnusedSector ┆AVE; LINK1: LOC=LOC+1 ; LINK2: LOC=LOC+1 ; LOC=LOC-WORK ; MESSCOUNTS: LOC=LOC+MAXDRIVERS+1 ; MESSAGE COUNT TABLE; LOC=LOC+WORK┆
0x2b400…2b480 UnusedSector ┆ ; INPROCEDURE: LOC=LOC+1 ; INPUT PROCEDURE ADDRESS; OUTPROCES: LOC=LOC+2 ; ANSWERS: LOC=LOC+MAXDRIVERS+1 ; ANSWER PROCEDURES; F┆
0x2b480…2b500 UnusedSector ┆SCNAME: LOC=LOC+IDLENGTH+1 ; FSC DRIVER NAME; TLMQNAME: LOC=LOC+IDLENGTH+1 ; TLMQ DRIVER NAME; HDTRNAME: LOC=LOC+IDLENGTH+1 ; HD┆
0x2b500…2b580 UnusedSector ┆TR DRIVER NAME; CIMNAME: LOC=LOC+IDLENGTH+1 ; CIM MODULE NAME; ; BUFSTATE0: LOC=BASE ; BUFFER STATE TABLES: LOC=LOC+MAXDRIVERS┆
0x2b580…2b600 UnusedSector ┆ ; EVENTS; STATEADDRESS:LOC=LOC+1 ; BUFFER ADDRESS (ABS); STATENR: LOC=LOC+1 ; NR. OF THIS STATE; STATELENGTH= LOC ; LOC=LOC+BU┆
0x2b600…2b680 UnusedSector ┆FSTATE0 ; BUFSTATE1: LOC=LOC+STATELENGTH ; BUFSTATE2: LOC=LOC+STATELENGTH ; BUFSTATE3: LOC=LOC+STATELENGTH ; BUFSTATE4: LOC=LOC+┆
0x2b680…2b700 UnusedSector ┆STATELENGTH ; BUFSTATE5: LOC=LOC+STATELENGTH ; SETUPTABLE: LOC=LOC+1 ; FSC SETUPTABLE ADDRESS; DATABUFFER:= #0700 ; START OF DAT┆
0x2b700…2b780 UnusedSector ┆ABUFFER AREA; CIMQUEUE: LOC=LOC+CIMMCOUNT ; CIM EVENT QUEUE; SYSFUNCTION: LOC=LOC+1 ; TOP: ; TOP OF BASE AREA; 0,REPEAT TOP-LINK┆
0x2b780…2b800 UnusedSector ┆0-1, LOC=TOP ; ADJUST WORDS; ;### USE PROG ; START OF PROGRAM AREA; ; PROCEDURES: ; ; SCP10 ERROR/MESSAGE REPORT ; ; SCP20 FREE ┆
0x2b800…2b880 UnusedSector ┆BUFFER ; ; SCP30 DUMMY OUTPUT ANSWER ; ; SCP32 DUMMY INPUT ANSWER ; ; SCP35 REQUEST INPUT ; ; SCP36 REQUEST OUTPUT ; ; SCP39 DUM┆
0x2b880…2b900 UnusedSector ┆MY PROCEDURE ; ; SCP40 FSC INPUT ; ; SCP41 FSC SETUP ; ; SCP43 FSC STARTUP ; ; SCP44 FSC NORMAL ANSWER ; ; SCP50 TLMQ OUTPUT ; ;┆
0x2b900…2b980 UnusedSector ┆ SCP55 TLMQ INPUT ; ; ; SCE00 SYSTEM START ; ; SCE10 WAIT FOR NEXT EVENT ; ; SCG20 MESSAGE RECEIVED ; ; SCG90 SYSTEM STOP ; ; ┆
0x2b980…2ba00 UnusedSector ┆ ; STATEREF: BUFSTATE0 ; RE.BUFSTATES; BUFSTATE1 ; BUFSTATE2 ; BUFSTATE3 ; BUFSTATE4 ; BUFSTATE5 ; INITTABLE: ; MODULE INIT┆
0x2ba00…2ba80 UnusedSector ┆ TABLE: <:FS:>,FSCNAME ; VALUE,DESTINATION; <:C:> ,FSCNAME+1 ; <:TL:>,TLMQNAME ; <:MQ:>,TLMQNAME+1 ; <:CI:>,CIMNAME ; <:M:┆
0x2ba80…2bb00 UnusedSector ┆>, CIMNAME+1 ; <:SC:>,NAME-C ; <:M:>, NAME-C+1 ; 0, NAME-C+2 ; 0, NAME-C+3 ; 1, BUFSTATE1+STATENR ; 2, BUFSTATE2+STATENR ;┆
0x2bb00…2bb80 UnusedSector ┆ 3, BUFSTATE3+STATENR ; 4, BUFSTATE4+STATENR ; 5, BUFSTATE5+STATENR ; SCP60, ANSWERS+CIM ; CIM ANSWER PROCEDURE; SCP39, OUT┆
0x2bb80…2bc00 UnusedSector ┆PROCEDURES ; SCP39, OUTPROCEDUS+1 ; DATABR+0*BUFSIZE, BUFSTATE0+STATES ; DATABUFFER ADDRESSES; DATABR+1*BUFSIZE, BUFSTATE1+STAT┆
0x2bc00…2bc80 UnusedSector ┆ES ; DATABR+2*BUFSIZE, BUFSTATE2+STATES ; DATABR+3*BUFSIZE, BUFSTATE3+STATES ; DATABR+4*BUFSIZE, BUFSTATE4+STATES ; DATABR+5*BUF┆
0x2bc80…2bd00 UnusedSector ┆SIZE, BUFSTATE5+STATES ; INITTABLELH= LOC-INITTABLE ; ;### ; ERROR/MESSAGE REPORT PROCEDURE. ; MESSAGES ARE SENT TO CIM-MODULE I┆
0x2bd00…2bd80 UnusedSector ┆F LESS THAN CIMMCOUNT MESSAGES ; HAS BEEN SENT AND NOT YET ANSWERED; ; ELSE THE PRESENT MESSAGE IS IGNORED. ; ; BEGIN USE PROG ┆
0x2bd80…2be00 UnusedSector ┆; BEGIN ERROR REPORT; ENTRY SCP10,SCP11 ; EXTERNAL CIM,CIMNAME,MESSCOUNTS,CIMMCOUNT,CIMQUEUE EXTERNAL SCG90,SENDMESSAGE,REGRETME┆
0x2be00…2be80 UnusedSector ┆SSAGE ; ; R0 ERRORCODE DESTROYED ; ; R1 DESTROYED ; ; R2 DESTROYED ; ; R6 LINK LINK ; ; R7 WORK WORK ; ; SCP11: ; CLR 1. X7 ;┆
0x2be80…2bf00 UnusedSector ┆ CLR 2. X7 ; CLR 3. X7 ; SCP10: ; ERROR REPORT: MOV R7 R1 ; WORK=>MESS; MOV R0 0. X7 ; ERROR=>0.MESS; MOVC CIMNAME R0 ; CIM┆
0x2bf00…2bf80 UnusedSector ┆NAME=>NAME; MOVC CIM R2 ; CIM SWP R2 ; <8 MOV R2 4. X7 ; =>SPECIAL.MESS; MON SENDMESSAGE ; SENDMESSAGE(MESS,NAME); INC MESS┆
0x2bf80…2c000 UnusedSector ┆COUNTS+CIM. X7 ; INCR(CIM.MESSCOUNTS); MOVC CIMQUEUE % END CIMQUEUE +CIMMCOUNT-1 R0 ; =>ADDR; L0: ; GET HOLE: JOZ X0 L1 ; IF ┆
0x2c000…2c080 UnusedSector ┆0.ADDR=0 THEN GOTO FOUND; INE R0 CIMQUEUE ; IF ADDR<>CIMQUEUE THEN ; BEGIN SOB R0 L0 ; DECR(ADDR); ; GOTO GET HOLE; ; END; ┆
0x2c080…2c100 UnusedSector ┆ XCH R2 0. X0 ; EXCHANGE(EVENT,0.ADDR); MON REGRETMESSAGE ; REGRETMESSAGE(EVENT); DEC MESSCOUNTS+CIM. X7 ; DECR(CIM.MESSCOUNTS┆
0x2c100…2c180 UnusedSector ┆); JMP 0. X6 ; RETURN; L1: ; FOUND: MOV R2 0. X0 ; EVENT=>0.ADDR; IF D MON REGISTERS FI ; JMP 0. X6 ; RETURN; END ; END ERROR┆
0x2c180…2c200 UnusedSector ┆ REPORT; ;### ; PROCEDURE FREE BUFFER. ; THE PROCEDURE SETS THE STATE TO FREE FOR THE DRIVER ; WHOSE ANSWER JUST HAS BEEN RECEIV┆
0x2c200…2c280 UnusedSector ┆ED. IT THEN EXA- ; MINES THE STATE OF THE BUFFER FOR ALL DRIVERS, TO ; REPORT IF THE BUFFER IS FREE OR NOT. ; ; R0 DESTROYED ; ;┆
0x2c280…2c300 UnusedSector ┆ R2 EVENT EVENT ; ; R4 RE.BUFSTATE ; ; R6 LINK LINK ; ; R7 WORK WORK ; WORK MUST CONTAIN AN ANSWER; ; BEGIN USE PROG ; BEGIN FR┆
0x2c300…2c380 UnusedSector ┆EE BUFFER; ENTRY SCP20 ; EXTERNAL STATEREF,MAXDRIVERS,SCG90 ; ; SCP20: ; FREE: MOV 4. X7 R0 ; SPECIAL.ANSWER(7:0) XTR R0 8 ; ┆
0x2c380…2c400 UnusedSector ┆=>STATENR; MOD R0 ; MOV STATEREF R4 ; STATENR.STATEREF=>STATE; MOV 4. X7 R0 ; SPECIAL.ANSWER(15:8) SRL R0 8 ; =>DRIVER NR; I┆
0x2c400…2c480 UnusedSector ┆F T MOD R0 ;T INEP R2 0. X4 ;T IF EVENT<>DRIVER.BUFSTATE THEN MON REGISTERS FI ;T REGISTERS; JMP SCG90 ;T GOTO SYSTEM STOP; ┆
0x2c480…2c500 UnusedSector ┆MOD R0 ; CLR 0. X4 ; 0=>DRIVER.STATE; MOVC MAXDRIVERS R0 ; MAXDRIVERS=>COUNT; L0: ; TEST STATE: MOD R0 ; SONP -1. X4 ; IF CO┆
0x2c500…2c580 UnusedSector ┆UNT-1.STATE=0 THEN ; BEGIN SOB R0 L0 ; IF DECR(COUNT)<>0 THEN ; GOTO TEST STATE; JMP 0. X6 ; RETURN(FREE); ; END; IF D MON ┆
0x2c580…2c600 UnusedSector ┆REGISTERS FI ; JMP 1. X6 ; RETURN(NOT FREE); END ; END FREE BUFFER; ;### ; DUMMY ANSWER PROCEDURE FOR OUTPUT; ; THE PROCEDURE W┆
0x2c600…2c680 UnusedSector ┆ILL FREE THE BUFFERSTATE CORRESPONDING TO THE ; DRIVER. IF THE BUFFER BECOMES TOTAL FREE, NEW INPUT IS ; REQUESTED TO THE BUFFE┆
0x2c680…2c700 UnusedSector ┆R. ; ; R0 DESTROYED ; ; R2 EVENT DESTROYED ; ; R4 RE.BUFSTATE ; ; R6 LINK DESTROYED ; ; R7 WORK WORK ; ; BEGIN USE PROG ; BEGIN┆
0x2c700…2c780 UnusedSector ┆ DUMMY OUTPUT ANSWER; ENTRY SCP30 ; EXTERNAL LINK0,MESSCOUNTS,SCP20,SCP35 ; SCP30: ; DUMMY OUTPUT ANSWER: IF D MON REGISTERS FI┆
0x2c780…2c800 UnusedSector ┆ ; MOV R6 LINK0 ; SAVE(LINK); MOV 4. X7 R6 ; SPECIAL.ANSWER SRL R6 8 ; =>DRIVER); MOD R6 ; DEC MESSCS.X7 ; DECR(DRIVER.MESS┆
0x2c800…2c880 UnusedSector ┆COUNTS); JMP S6 SCP20 ; FREE BUFFER; JMP S6 &SCP35 ; FREE: REQUEST INPUT; JMPI LINK0 ; RETURN(DUMMY OUTPUT ANSWER); END ; END┆
0x2c880…2c900 UnusedSector ┆ DUMMY OUTPUT ANSWER; ; DUMMY INPUT ANSWER PROCEDURE. ; THE PROCEDURE WILL FREE THE BUFFERSTATE CORRESPONDING TO THE DRIVER. ;┆
0x2c900…2c980 UnusedSector ┆ ; R0 DESTROYED ; ; R2 EVENT DESTROYED ; ; R4 RE.BUFSTATE ; ; R6 LINK DESTROYED ; ; R7 WORK WORK ; ; BEGIN USE PROG ; BEGIN DUM┆
0x2c980…2ca00 UnusedSector ┆MY INPUT ANSWER; ENTRY SCP32 ; EXTERNAL LINK0,MESSCOUNTS,SCP20 ; ; SCP32: ; INPUT ANSWER: IF D MON REGISTERS FI ; MOV R6 LINK0┆
0x2ca00…2ca80 UnusedSector ┆ ; SAVE(LINK); MOV 4. X7 R6 ; SPECIAL.ANSWER(15:8) SRL R6 8 ; =>DRIVER; MOD R6 ; DEC MESSCS.X7 ; DECR(DRIVER.MESSCOUNT); JM┆
0x2ca80…2cb00 UnusedSector ┆P S6 SCP20 ; FREE BUFFER; NOP ; FREE: CONTINUE; JMPI LINK0 ; RETURN(INPUT ANSWER); END ; END DUMMY INPUT ANSWER; ;### ; REQUES┆
0x2cb00…2cb80 UnusedSector ┆T INPUT; ; ; R4 RE.BUFSTATE RE.BUFSTATE ; ; R6 LINK LINK ; ; BEGIN USE PROG ; BEGIN REQUEST INPUT; ENTRY SCP35 ; EXTERNAL LINK1┆
0x2cb80…2cc00 UnusedSector ┆,INPROCEDURE ; ; SCP35: ; REQUEST INPUT: MOV R6 LINK1 ; SAVE(LINK); JMP S6 H0 ; RE.LINK; JMPI LINK1 ; RETURN; ; H0: JMPI IN┆
0x2cc00…2cc80 UnusedSector ┆PROCEDURE ; CALL INPUT PROCEDURE; END ; END REQUEST INPUT; ; REQUEST OUTPUT; ; ; R4 RE.BUFSTATE RE.BUFSTATE ; ; R6 LINK DESTRO┆
0x2cc80…2cd00 UnusedSector ┆YED ; ; BEGIN USE PROG ; BEGIN REQUEST OUTPUT: ENTRY SCP36 ; EXTERNAL LINK2,OUTPROCEDURES,SCP35,TLMQ,HDTR ; SCP36: ; REQUEST O┆
0x2cd00…2cd80 UnusedSector ┆UTPUT: MOV R6 LINK2 ; SAVE(LINK); JMP S6 H0 ; CALL OUTPROCEDURES; JMP S6 H1 ; SONP TLMQ. X4 ; IF TLMQ.STATE=0 SON HDTR. X4 ┆
0x2cd80…2ce00 UnusedSector ┆; AND HDTR.STATE=0 THEN JMP S6 SCP35 ; REQUEST INPUT; JMPI LINK2 ; RETURN; ; H0: JMPI OUTPROCES ; CALL OUTPUT PROCEDURE; H1: ┆
0x2ce00…2ce80 UnusedSector ┆JMPI OUTPROCES+1; END ; ; DUMMY PROCEDURE; ; ; R6 LINK LINK ; ; BEGIN USE PROG ; ENTRY SCP39 ; EXTERNAL ; ; SCP39: ; DUMMY ┆
0x2ce80…2cf00 UnusedSector ┆PROCEDURE: JMP 0. X6 ; RETURN; ; END ; END DUMMY PROCEDURE; ;### ; FRAME SYNCHRONIZER INPUT PROCEDURE. ; ; R0-R2 DESTROYED ; ;┆
0x2cf00…2cf80 UnusedSector ┆ R4 RE.STATE RE.STATE ; ; R6 LINK LINK ; ; R7 WORK WORK ; ; BEGIN USE PROG ; BEGIN FSYNC INPUT; ENTRY SCP40 ; EXTERNAL SENDMESS┆
0x2cf80…2d000 UnusedSector ┆AGE,MADDRESS ; EXTERNAL BMINPUT,STATEADDRESS,STATENR,FSC,FSCNAME EXTERNAL MESSCOUNTS ; ; SCP40: ; FSYNC INPUT: MOVC BMINPUT X7┆
0x2d000…2d080 UnusedSector ┆ ; INPUT=>OPER.MESS; MOV STATES.X4 R0 ; ADDRESS.STATE MOV R0 MADDRS.X7 ; =>ADDRESS.MESS; MOVC FSC<8 R0 ; FSC<8 ADD STATER.X4┆
0x2d080…2d100 UnusedSector ┆ R0 ; +STATENR.STATE MOV R0 4. X7 ; =>SPECIAL.MESS; IF D MON REGISTERS FI ; MOVC FSCNAME R0 ; FSCNAME=>NAME; MOV R7 R1 ; WORK┆
0x2d100…2d180 UnusedSector ┆=>MESS; MON SENDMESSAGE ; SENDMESSAGE(NAME,MESS,EVENT); MOV R2 FSC. X4 ; EVENT=>FSC.STATE; INC MESSCOUNTS+FSC. X7 ; INCR(FSC.┆
0x2d180…2d200 UnusedSector ┆MESSCOUNTS); JMP 0. X6 ; RETURN(FSYNC INPUT); END ; END FSYNC INPUT; ; FRAME SYNCHRONIZER SETUP PROCEDURE. ; ; R0-R2 DESTROYED┆
0x2d200…2d280 UnusedSector ┆ ; ; R6 LINK DESTROYED ; ; R7 WORK WORK ; ; BEGIN USE PROG ; BEGIN FSC SETUP; ENTRY SCP41 ; EXTERNAL SENDMESSAGE,WAITANSWER,WOR┆
0x2d280…2d300 UnusedSector ┆K,BMSETUP,LINK0,SCP10,MADDRS EXTERNAL SETUPTABLE,BUFSTATE0,STATEADDRS,ERRFSC,FSCNAME ; SCP41: ; FSC SETUP: ADDC 1 R6 ; INCR(LI┆
0x2d300…2d380 UnusedSector ┆NK); MOV R6 LINK0 ; SAVE(LINK); MOVC BMSETUP X7 ; SETUP=>OPER.MESS; MOV SETUPTABLE R0 ; 0.SETUPTABLE MOV R0 MADDRS.X7 ; =>AD┆
0x2d380…2d400 UnusedSector ┆DR.MESS; MOV BUFSTATE0+STATES R0 ; ADDRESS.BUFSTATE0 MOV R0 3. X7 ; =>3.MESS; MOVC FSCNAME R0 ; RE.NAME; MOV R7 R1 ; RE.MESS┆
0x2d400…2d480 UnusedSector ┆; MON SENDMESSAGE ; SENDMESSAGE(NAME,MESS); MON WAITANSWER ; WAITANSWER; JOZ X7 L1 ; IF RESULT<>0 THEN MOV 0. X7 1. X7 ; RES┆
0x2d480…2d500 UnusedSector ┆ULT=>1.MESSAGE; MOVC ERRFSC R0 ; JMP S6 SCP10 ; MESSAGE(FSC ERROR); DEC LINK0 -WORK. X7 ; DECR(LINK); L1: JMPI LINK0 ; RETURN┆
0x2d500…2d580 UnusedSector ┆; END ; END FSC SETUP; ;### ; FRAME SYNCHROIZER STARTUP ANSWER PROCEDURE. ; ; R4 RE.BUFSTATE ; ; R6 LINK DESTROYED ; ; ; BEGIN┆
0x2d580…2d600 UnusedSector ┆ USE PROG ; BEGIN STARTUP ANSWER; ENTRY SCP43 ; EXTERNAL SCP11,SCP20,SCP36,SCG90,SCG44,SCP40,SCP44 EXTERNAL LINK0,MESSCOUNTS,FSC┆
0x2d600…2d680 UnusedSector ┆,ANSWERS EXTERNAL ERRSTARTOFFORMAT,BMTIMEOUT ; ; RSCP44: SCP44 ; RE.NORMAL FSC ANSWER PROCEDURE; SCP43: ; FSC STARTUP: IF D MON┆
0x2d680…2d700 UnusedSector ┆ REGISTERS FI ; MOV R6 LINK0 ; SAVE(LINK); DEC MESSCOUNTS+FSC. X7 ; DECR(FSC.MESSCOUNTS); JMP S6 SCP20 ; FREE BUFFER; JMP L1┆
0x2d700…2d780 UnusedSector ┆ ; FREE: CONTINUE; MON REGISTERS ; NOT FREE: SOFTWARE ERROR; JMP SCG90 ; GOTO SYSTEM STOP; L1: JON X7 L3 ; IF RESULT=0 THEN ;┆
0x2d780…2d800 UnusedSector ┆ BEGIN IF D MON REGISTERS FI ; JMP S6 SCP36 ; REQUEST OUTPUT; MOVC ERRSTARTFORMAT R0 ; MESSAGE: START OF FORMAT; JMP S6 SCP11┆
0x2d800…2d880 UnusedSector ┆ ; MOV RSCP44 R0 ; NORMAL FSC ANSWER MOV R0 ANSWERS+FSC; =>FSC.ANSWERS; JMPI LINK0 ; RETURN(ANSWER); ; END; L3: INE X7 BMTIM┆
0x2d880…2d900 UnusedSector ┆EOUT ; IF RESULT<>TIMEOUT THEN JMP SCG44 ; GOTO TEST ERROR; JMP S6 SCP40 ; REQUEST INPUT; JMPI LINK0 ; RETURN(ANSWER PROCEDUR┆
0x2d900…2d980 UnusedSector ┆E); END ; END FSC STARTUP ANSWER; ;### ; FRAME SYNCHRONIZER NORMAL ANSWER PROCEDURE. ; ; R4 RE.BUFSTATE ; ; R6 LINK DESTROYED ; ┆
0x2d980…2da00 UnusedSector ┆ ; BEGIN USE PROG ; BEGIN FSC ANSWER; ENTRY SCP44,SCG44 ; EXTERNAL SCP10,SCP11,SCP20,SCP36,SCP40,SCP43,SCP52,SCG90 EXTERNAL LINK┆
0x2da00…2da80 UnusedSector ┆0,MESSCOUNTS,FSC,ANSWERS,MAXDRIVERS EXTERNAL ERRENDOFFORMAT,ERRSYSTEM,ERRFSC,ERRUNLOCKED EXTERNAL BMUNLOCKED BMNOTREADY,BMTIMEOU┆
0x2da80…2db00 UnusedSector ┆T,BMILLEGAL,BMSTOP,BNTLM EXTERNAL BMERROR,BMNOTDONE,BMSETUP,BMOUTOFMESS,WORK,SYSFUNCTION EXTERNAL BMSLIPPAGE,BMHAMMING,ERRSLOW ┆
0x2db00…2db80 UnusedSector ┆; SCP44: ; FSC ANSWER: IF D MON REGISTERS FI ; MOV R6 LINK0 ; SAVE(LINK); DEC MESSCOUNTS+FSC. X7 ; DECR(FSC.MESSCOUNTS); JMP ┆
0x2db80…2dc00 UnusedSector ┆S6 SCP20 ; FREE BUFFER; JMP L1 ; FREE:CONTINUE; MON REGISTERS ; NOT EMPTY: SOFTWARE ERROR; JMP SCG90 ; GOTO SYSTEM STOP; L1: ┆
0x2dc00…2dc80 UnusedSector ┆JON X7 SCG44 ; IF RESULT=0 THEN ; BEGIN JMP S6 SCP36 ; REQUEST OUTPUT; JMPI LINK0 ; RETURN(ANSWER PROCEDURE); ; END; SCG44: ┆
0x2dc80…2dd00 UnusedSector ┆; TEST ERROR: IF D MOV 0. X7 R0 ; MON REGISTERS FI ; IEQ X7 BMUNLOCKED ; TEST UNLOCKED; JMP L5 ; IEQ X7 BMNOTREADY ; TEST NO┆
0x2dd00…2dd80 UnusedSector ┆TREADY; JMP L6 ; IEQ X7 BMTIMEOUT ; TEST TIMEOUT; JMP L7 ; IEQ X7 BMOUTOFMES ; TEST OUT OF MESSAGES; JMP L8 ; IEQ X7 BMILL┆
0x2dd80…2de00 UnusedSector ┆EGAL ; TEST ILLEGAL; JMP L9 ; IEQ X7 BMERROR ; TEST ERROR; JMP L10 ; IEQ X7 BMNOTDONE ; TEST NOTDONE; JMP L12 ; IEQ X7 BMS┆
0x2de00…2de80 UnusedSector ┆LIPPAGE ; TEST BIT SLIPPAGE JMP L13 ; IEQ X7 BMHAMMING ; TEST BAD HAMMING DISTANCE; JMP L13 ; UNS 4 ; ILLEGAL ERRORCODE: MO┆
0x2de80…2df00 UnusedSector ┆N REGISTERS ; DISPLAY WORK; MOVC ERRSYSTEM R0 ; MESSAGE: SYSTEM ERROR; JMP S6 SCP10 ; JMP SCG90 ; GOTO SYSTEM STOP; ; ;### L┆
0x2df00…2df80 UnusedSector ┆5: ; UNLOCKED: MOVC BMSTOP X7 ; STOP=>OPER.MESS; MOV SYSFUNCTION R0 ; GET FUNCTION; IBN R0 BNTLM ; IF FUNCTION[TLM] THEN JMP┆
0x2df80…2e000 UnusedSector ┆ S6 SCP52 ; UNLOCK TLM; MOVC ERRUNLOCKED R0 ; MESSAGE: UNLOCKED; JMP S6 SCP11 ; JMPI LINK0 ; RETURN(ANSWER PROCEDURE); L6: ; ┆
0x2e000…2e080 UnusedSector ┆NOTREADY: MOV X7 1. X7 ; ERROR CODE=>1.MESS; MOVC ERRFSC R0 ; MESSAGE: FSC NOT READY; JMP S6 SCP11 ; JMP SCG90 ; GOTO SYSTEM┆
0x2e080…2e100 UnusedSector ┆ STOP; L7: ; TIMEOUT: JMP S6 SCP40 ; REQUEST INPUT; MOVC ERRENDFORMAT R0 ; MESSAGE: END OF FORMAT; JMP S6 SCP11 ; MOVC SCP43┆
0x2e100…2e180 UnusedSector ┆ R0 ; STARTUP ANSWER PROCEDURE MOV R0 ANSWERS+FSC; =>FSC.ANSWERS; JMPI LINK0 ; RETURN(FSC ANSWER); L8: ; OUTOFMESSAGES: MOVC ┆
0x2e180…2e200 UnusedSector ┆MESSCOUNTS+WORK R7 ; DISPLAY MESSAGECOUNTS; UNS MAXDRIVERS ; MON REGISTERS ; MOVC ERRSLOW R0 ; MESSAGE: SYSTEM ERROR; JMP S6┆
0x2e200…2e280 UnusedSector ┆ SCP10 ; JMP SCG90 ; GOTO SYSTEM STOP; L9: ; ILLEGAL: MON REGISTERS ; SOFTWARE ERROR; ; L10: ; ERROR: UNS 4 ; DISPLAY WORK; ┆
0x2e280…2e300 UnusedSector ┆ MON REGISTERS ; MOVC ERRFSC R0 ; MESSAGE FSC ERROR; JMP S6 SCP10 ; JMP SCG90 ; GOTO SYSTEM STOP; L12: ; NOTDONE: JMP S6 SCP┆
0x2e300…2e380 UnusedSector ┆40 ; REQUEST INPUT; JMPI LINK0 ; RETURN(ANSWER PROCEDURE); ; L13: ; BAD HAMMING OR SLIPPAGE; MOV 0. X7 R0 ; GET ERROR CODE; ┆
0x2e380…2e400 UnusedSector ┆MOV 4. X7 R3 ; SAVE(SPECIAL.ANSWER); JMP S6 SCP11 ; MESSAGE: SLIPPAGE OR HAMMING; MOV R3 4. X7 ; RESTORE(SPECIAL.ANSWER); JMP┆
0x2e400…2e480 UnusedSector ┆ S6 SCP36 ; REQUEST OUTPUT; JMPI LINK0 ; RETURN; END ; END FSC ANSWER; ;### ; TELEMECANIQUE OUTPUT PROCEDURE; ; ; R0 DESTROYED ┆
0x2e480…2e500 UnusedSector ┆; ; R1 DESTROYED ; ; R2 DESTROYED ; ; R4 RE.STATE RE.STATE ; ; R6 LINK LINK ; ; R7 WORK WORK ; ; BEGIN USE PROG ; BEGIN TLMQ OU┆
0x2e500…2e580 UnusedSector ┆TPUT; ENTRY SCP50,SCP52 ; EXTERNAL SENDMESSAGE,MCOUNT,MADDRESS; EXTERNAL MESSCOUNTS,TLMQ,TLMQNAME,BUFSIZE,STATEADDRESS,STATENR E┆
0x2e580…2e600 UnusedSector ┆XTERNAL BMOUTPUT ; ; SCP50: ; TLMQ OUTPUT: MOVC BMOUTPUT X7 ; OUTPUT=>OPER.MESS; MOVC BUFSIZE R0 ; BUFLENGTH MOV R0 MCOUNT.X┆
0x2e600…2e680 UnusedSector ┆7 ; =>COUNT.MESS; SCP52: ; TLMQ SUBOUTPUT: IF D MON REGISTERS FI ; MOV STATES.X4 R0 ; ADDRESS.STATE MOV R0 MADDRS.X7 ; =>ADDRE┆
0x2e680…2e700 UnusedSector ┆SS.MESS; MOVC TLMQ<8 R0 ; TLMQ<8 ADD STATER.X4 R0 ; +STATENR.STATE MOV R0 4. X7 ; =>SPECIAL.MESS; MOVC TLMQNAME R0 ; TLMQNAM┆
0x2e700…2e780 UnusedSector ┆E=>NAME; MOV R7 R1 ; WORK=>MESS; MON SENDMESSAGE ; SENDMESSAGE(NAME,MESS,EVENT); MOV R2 TLMQ. X4 ; EVENT=>TLMQ.STATE; INC ME┆
0x2e780…2e800 UnusedSector ┆SSCOUNTS+TLMQ. X7 ; INCR(TLMQ.MESSCOUNTS); JMP 0. X6 ; RETURN(TLMQ OUTPUT); END ; END TLMQ OUTPUT PROCEDURE; ;### ; TELEMECANIQ┆
0x2e800…2e880 UnusedSector ┆UE ANSWER PROCEDURE; ; ; R0 DESTROYED ; ; R2 DESTROYED ; ; R4 DESTROYED ; ; R6 LINK LINK ; ; ; BEGIN USE PROG ; BEGIN TLMQ ANSW┆
0x2e880…2e900 UnusedSector ┆ER PROCEDURE; ENTRY SCP55 ; EXTERNAL SCP35,SCP39,SCP10,SCP20,SCP30,SCG90 EXTERNAL LINK0,MESSCOUNTS,TLMQ,ANSWERS,OUTPROCEDURES EX┆
0x2e900…2e980 UnusedSector ┆TERNAL BMERROR,ERRTLMQ,ERRSYSTEM ; SCP55: ; TLMQ ANSWER: MOV R6 LINK0 ; SAVE(LINK); DEC MESSCOUNTS+TLMQ. X7 ; DECR(TLMQ.MESSCO┆
0x2e980…2ea00 UnusedSector ┆UNTS); JON X7 L1 ; IF RESULT<>0 THEN ; GOTO TEST ERROR IF D MON REGISTERS FI ; JMP S6 SCP20 ; FREE BUFFER; JMP S6 SCP35 ; FR┆
0x2ea00…2ea80 UnusedSector ┆EE: REQUEST INPUT; JMPI LINK0 ; RETURN; ; L1: ; TEST ERROR: MOV 4. X7 R3 ; SAVE(SPECIAL.ANSWER); MOV 0. X7 1. X7 ; RESULT=>1┆
0x2ea80…2eb00 UnusedSector ┆.MESSAGE); MOVC ERRTLMQ R0 ; MESSAGE: TLMQ NOT READY; JMP S6 SCP10 ; MOVC SCP30 R0 ; DUMMY ANSWER MOV R0 ANSWES+TLMQ; =>TLMQ┆
0x2eb00…2eb80 UnusedSector ┆.ANSWERS; MOVC SCP39 R0 ; DUMMY MOV R0 OUTPROCES ; =>0.OUTPROCEDURES; MOV R3 4. X7 ; RESTORE(SPECIAL.ANSWER)+ JMP S6 SCP20 ;┆
0x2eb80…2ec00 UnusedSector ┆ FREE BUFFER; JMP S6 SCP35 ; FREE: REQUEST INPUT; JMPI LINK0 ; RETURN; END ; END TLMQ ANSWER PROCEDURE; ;### ; COMMAND INTERPR┆
0x2ec00…2ec80 UnusedSector ┆ETER ANSWER PROCEDURE. ; ; R6 LINK LINK ; ; BEGIN USE PROG ; BEGIN CIM ANSWER; ENTRY SCP60 ; EXTERNAL CIM,MESSCOUNTS,CIMQUEUE,C┆
0x2ec80…2ed00 UnusedSector ┆IMMCOUNT,SCG90 ; SCP60: ; CIM ANSWER: IF D MON REGISTERS FI ; MOVC CIMQUEUE % END CIMQUEUE +CIMMCOUNT-1 R0 ; =>ADDR; L0: ; FI┆
0x2ed00…2ed80 UnusedSector ┆ND EVENT: IF T ILOP R0 CIMQUEUE ;T IF ADDR<CIMQUEUE THEN MON REGISTERS ;T JMP SCG90 ;T GOTO SYSTEM STOP; FI ;T SEQ R2 0. X0 ;┆
0x2ed80…2ee00 UnusedSector ┆ IF EVENT=0.ADDR THEN SOB R0 L0 ; DECR(ADDR); GOTO FIND EVENT; XTR X0 0 ; 0=>0.ADDR; DEC MESSCOUNTS+CIM. X7 ; DECR(CIM.MESSCO┆
0x2ee00…2ee80 UnusedSector ┆UNTS); JMP 0. X6 ; RETURN; END ; END CIM ANSWER; ;### ; SYSTEM CONTROL ENTRY POINT; ; SCE00: ; SYSTEM START: MOVC 0 R0 ; 0=>C┆
0x2ee80…2ef00 UnusedSector ┆OUNT; L0: ; INIT: MOD R0 ; MOV INITTABLE R1 ; COUNT.INITTABLE=>VALUE; ADDC 1 R0 ; INCR(COUNT); MOD R0 ; MOV INITTABLE R4 ; ┆
0x2ef00…2ef80 UnusedSector ┆COUNT.INITTABLE=>ADDRESS; MOV R1 0. X4 ; VALUE=>0.ADDRESS; ADDC 1 R0 ; INCR(COUNT); ILT R0 INITTABLH ; IF COUNT<INITTABLELENG┆
0x2ef80…2f000 UnusedSector ┆TH THEN JMP L0 ; GOTO INIT; SCE10: ; NEXT EVENT: MON WAITEVENT ; WAITEVENT; JMP L3 ; ANSWER: JMP SCG20 ; MESSAGE: GOTO MESS┆
0x2f000…2f080 UnusedSector ┆AGE; L3: ; ANSWER: CONTINUE; IF T MOV 4. X7 R0 ;T SPECIAL.MESSAGE(7:0) XTR R0 8 ;T =>STATENR; IGE R0 BUFCOUNT ;T IF STATENR>=B┆
0x2f080…2f100 UnusedSector ┆UFCOUNT THEN JMP L1 ;T GOTO ILLEGAL ANSWER; MOV 4. X7 R0 ;T SPECIAL.MESS(15:8) SRL R0 8 ;T =>DRIVER; IHS R0 MAXDRIVERS %T IF┆
0x2f100…2f180 UnusedSector ┆ DRIVER>=MAXDRIVERS THEN +1 ;T JMP L1 ;T GOTO ILLEGAL ANSWER; FI ;T JMP S6 L2 ; RE.LINK; JMP SCE10 ; GOTO NEXT EVENT; L2: ; ┆
0x2f180…2f200 UnusedSector ┆ MOD R0 ; JMPI ANSWERS ; CALL ANSWER PROCEDURE(DRIVER); ; L1: ; ILLEGAL ANSWER: MOV R2 R5 ; SAVE(EVENT); UNS 4 ; MON REGIST┆
0x2f200…2f280 UnusedSector ┆ERS ; DISPLAY WORK; JMP SCE10 ; GOTO NEXT EVENT; ;### ; FUNCTION MESSAGE RECEIVED. ; ; BEGIN USE PROG ; BEGIN TEST MESSAGE; EN┆
0x2f280…2f300 UnusedSector ┆TRY SCG20 ; EXTERNAL SCE10,SCP40,SCP41,SCP10,SCG90,SCP55 EXTERNAL SCP43,SCP50 EXTERNAL SENDMESSAGE,WAITANSWER,SENDANSWER,WORK EX┆
0x2f300…2f380 UnusedSector ┆TERNAL TLMQ,FSC,TLMQNAME,ERRILLEGAL,ERRTLMQ,MADDRS EXTERNAL BUFCOUNT,STATEREF,SETUPTABLE,SYSFUNCTION,ANSWERS EXTERNAL BMSTART,BM┆
0x2f380…2f400 UnusedSector ┆STOP,BMSETUP,BNTLM EXTERNAL INPROCEDURE,OUTPROCEDURES ; ; SCG20: ; MESSAGE: IF D MOV 0. X7 R0 ; MON REGISTERS FI ; MON SENDAN┆
0x2f400…2f480 UnusedSector ┆SWER ; SENDANSWER; IEQ X7 BMSTART ; IF OPER.MESS=START THEN JMP L0 ; GOTO START; IEQ X7 BMSTOP ; IF OPER.MESS=STOP THEN JMP┆
0x2f480…2f500 UnusedSector ┆LIST ; SCM - SYSTEM COMTROL MODULE ; BEGIN MODULE NOLIST ; AU000400 0 0000 LEVEL 1 NAMES: C= #000D INPARM= #0068 OUTNL= #005D┆
0x2f500…2f580 UnusedSector ┆ PROGLH= #000E BMBYTE= #0004 OUTHEA= #0064 CONTLH= #0005 WAITAR= #000D BMINPT= #0001 BMWORD= #0000 BMTIMR= #0002 GETINT┆
0x2f580…2f600 UnusedSector ┆= #0004 REGISS= #0013 SETDEY= #0077 WAITET= #000F BACKSE= #0063 WAITIT= #0005 OUTCHR= #005F IDLENH= #0004 INCHAR= #0061 ┆
0x2f600…2f680 UnusedSector ┆ REGREE= #0010 NAMELH= #0003 SETINT= #0078 INCOMD= #0086 WAIT= #0059 INITDE= #0042 BMOUTT= #0003 SENDME= #000B SENDAR= #┆
0x2f680…2f700 UnusedSector ┆000C RESUMT= #0011 BMREET= #0001 BMDISP= #0001 OUTTEP= #005A USE BASE STACKH:= #0005 PROCLH:= #0052 NEXT:= #0002 SACTIN:┆
0x2f700…2f780 UnusedSector ┆= #0008 WORK:= #0040 NL:= #000A WORKAA:= #0295 BFIRST:= #0006 CAUSE:= #001E NAME:= #0007 WRK:= #004D UTILIH:= #02A1 CUR┆
0x2f780…2f800 UnusedSector ┆IN:= #005A DEVPR:= #001F ENTRYA:= #0275 BUFFEH:= #0008 CURSIN:= #005F INTERT:= #0054 WORKLH:= #000C CATALH:= #0058 REFLE┆
0x2f800…2f880 UnusedSector ┆H:= #0004 LOCACN:= #001C ENTRYH:= #0020 BNEXT:= #0007 PROC:= #000D MCOUNT:= #0001 SMASK:= #0007 BUFLEH:= #0009 CBASE:= #┆
0x2f880…2f900 UnusedSector ┆0015 KINDOC:= #0100 SHAREH:= #0022 INTRPT:= #0034 DRIVEH:= #0055 MADDRS:= #0002 CURSWK:= #01C3 CURSOT:= #0111 CUROUT:= #┆
0x2f900…2f980 UnusedSector ┆005B USE PROG LOCACT:= #822F USE #0 LIST XPD:= UTILITYLENGTH NOLIST IF XPD EQ UTILITYLENGTH OR XPD EQ PROGLENGTH THEN IF WORDS ┆
0x2f980…2fa00 UnusedSector ┆NE 0 THEN MESSAGE WORDS FI AREASWITCH=1 USE PROG LOC=PROG-1 BMREENTRANT XREFS XBUFS XWORDS XPSIZE 0,1,0,0,0,0 XSIZE 0 X┆
0x2fa00…2fa80 UnusedSector ┆PRPC IF LOC NE PROGLENGTH THEN MESSAGE <:ERROR: PROG LENGTH:> FI FI IF XPD GT PROGLENGTH THEN USE BASE LOC=BASE 0,REPEAT 12 IF┆
0x2fa80…2fb00 UnusedSector ┆ LOC NE PROC THEN MESSAGE <:ERROR: XPROC LOCATION:> FI 0 REPEAT 7 ; REGISTERS 0,0 XPROGRAM XPRPC 100 0 0 LOCACT 0 0 X┆
0x2fb00…2fb80 UnusedSector ┆DEVPR 100 0 REPEAT 12 ; TIME0 - FREEAREAS #FFFF 0,0,0 0 REPEAT 3 ; PRICHN - ADJUST XREFSX XBUFSX IF XPD NE UTILITYLENGTH ┆
0x2fb80…2fc00 UnusedSector ┆THEN XREFS=0 XBUFS=1 FI 0 REPEAT 20 ; RESTING - SAVE19 0,REPEAT CONTLENGTH-1 LOC= LOC-C IF LOC NE PROCLENGTH-C THEN MESSAGE <┆
0x2fc00…2fc80 UnusedSector ┆:ERROR: XPROC LENGTH:> FI IF XPD GT PROCLENGTH THEN 0,0,0 IF LOC NE DRIVERLENGTH-C THEN MESSAGE <:ERROR: XDRIVER LENGTH:> FI ┆
0x2fc80…2fd00 UnusedSector ┆IF XPD GT DRIVERLENGTH THEN 0 REPEAT 2 ; ESPECIAL - CATALOG IF LOC NE CATALOGLENGTH-C THEN MESSAGE <:ERROR: XCATALOG LENGTH:> F┆
0x2fd00…2fd80 UnusedSector ┆I IF XPD GT CATALOGLENGTH THEN LOCACT LOCACT XCURIN XCUROUT XCURWORK XCENTRY XWORKING FI FI FI FI XLOC= LOC MESSAGE <:┆
0x2fd80…2fe00 UnusedSector ┆START OF USER MODULE:> LIST T= TRUE ; TEST; D= FALSE ; DEBUG; BEGIN ; BEGIN SYSTEM CONTROL; GLOBAL REGISTERS,T,D ; ENTRY SCE0┆
0x2fe00…2fe80 UnusedSector ┆0 ; EXTERNAL SENDMESSAGE, WAITANSWER,WAITEVENT,SENDANSWER,REGRETMESSAGE EXTERNAL REGISTERS,MADDRS,MCOUNT,CBASE,C,WORK,IDLENGTH,N┆
0x2fe80…2ff00 UnusedSector ┆AME EXTERNAL T,D BUFCOUNT= 6 ; NR. OF DATABUFFERS; BUFSIZE= 366 ; SIZE OF DATABUFFER FSC= 0 ; FRAME SYNC PROCESS NR.; TLMQ= 1 ;┆
0x2ff00…2ff80 UnusedSector ┆ TELEMECANIQUE PROCESS NR.; HDTR= 2 ; HDTR DRIVER PROCESS NR.; CIM= 3 ; COMMAND INTERPRETER PROCESS NR. MAXDRIVERS= CIM ; MAX. C┆
0x2ff80…30000 UnusedSector ┆OMMUNICATION PROCESSES; CIMMCOUNT= 6 ; MAX NR. OF MESSAGES IN QUEUE ; TO CIM; ; ERRSTOPPED= 1 ; SYSTEM STOPPED; ERRSYSTEM= 2 ;┆
0x30000…30080 UnusedSector ┆ SYSTEM ERROR; ERRFSC= 3 ; FSC ERROR; ERRTLMQ= 4 ; TLMQ ERROR; ERRHDTR= 5 ; ERRUNLOCKED= 6 ; FSC UNLOCKED; ERRENDFORMAT= 7 ; END┆
0x30080…30100 UnusedSector ┆ OF FORMAT; ERRSTARTFORT= 8 ; START OF FORMAT; ERRILLEGAL= 9 ; ILLEGAL OPERATION; ERRSLOW= 10 ; OUTPUT DEVICE TOO SLOW; ERRSLIPP┆
0x30100…30180 UnusedSector ┆AGE= 13 ; ERRHAMMING= 14 ; BAD HAMMING DISTANCE; ; BMSTART= 1 ; START SYSTEM; BMSTOP= 2 ; STOP SYSTEM; BMSETUP= 3 ; SETUP CODE;┆
0x30180…30200 UnusedSector ┆ BMINPUT= 4 ; INPUT OPERATION; BMOUTPUT= 5 ; OUTPUT OPERATION; BMNOTREADY= 6 ; NOTREADY; BMTIMEOUT= 7 ; SOFTWARE TIMEOUT; BMERRO┆
0x30200…30280 UnusedSector ┆R= 8 ; DEVICE ERROR; BMILLEGAL= 9 ; ILLEGAL OPERATION; BMNOTDONE= 10 ; NOT DONE; BMOUTOFMESS= 11 ; OUT OF MESSAGES; BMUNLOCKED= ┆
0x30280…30300 UnusedSector ┆12 ; FSC UNLOCK; BMSLIPPAGE= 13 ; BIT SLIPPAGE; BMHAMMING= 14 ; BAD HAMMING DISTANCE; ;### BNTLM= 0 ; BNFSC= 1 ; BNWRITE= 2 ; BN┆
0x30300…30380 UnusedSector ┆READ= 3 ; BNINITWRITE= 4 ; BNWIND= 5 ; BNREWIND= 6 ; BNSEARCH= 7 ; BNPOSITION= 8 ; BNLISTFILES= 9 ; ; LINK0: LOC=LOC+1 ; LINK S┆
0x30380…30400 UnusedSector ┆AVE; LINK1: LOC=LOC+1 ; LINK2: LOC=LOC+1 ; LOC=LOC-WORK ; MESSCOUNTS: LOC=LOC+MAXDRIVERS+1 ; MESSAGE COUNT TABLE; LOC=LOC+WORK┆
0x30400…30480 UnusedSector ┆ ; INPROCEDURE: LOC=LOC+1 ; INPUT PROCEDURE ADDRESS; OUTPROCES: LOC=LOC+2 ; ANSWERS: LOC=LOC+MAXDRIVERS+1 ; ANSWER PROCEDURES; F┆
0x30480…30500 UnusedSector ┆SCNAME: LOC=LOC+IDLENGTH+1 ; FSC DRIVER NAME; TLMQNAME: LOC=LOC+IDLENGTH+1 ; TLMQ DRIVER NAME; HDTRNAME: LOC=LOC+IDLENGTH+1 ; HD┆
0x30500…30580 UnusedSector ┆TR DRIVER NAME; CIMNAME: LOC=LOC+IDLENGTH+1 ; CIM MODULE NAME; ; BUFSTATE0: LOC=BASE ; BUFFER STATE TABLES: LOC=LOC+MAXDRIVERS┆
0x30580…30600 UnusedSector ┆ ; EVENTS; STATEADDRESS:LOC=LOC+1 ; BUFFER ADDRESS (ABS); STATENR: LOC=LOC+1 ; NR. OF THIS STATE; STATELENGTH= LOC ; LOC=LOC+BU┆
0x30600…30680 UnusedSector ┆FSTATE0 ; BUFSTATE1: LOC=LOC+STATELENGTH ; BUFSTATE2: LOC=LOC+STATELENGTH ; BUFSTATE3: LOC=LOC+STATELENGTH ; BUFSTATE4: LOC=LOC+┆
0x30680…30700 UnusedSector ┆STATELENGTH ; BUFSTATE5: LOC=LOC+STATELENGTH ; SETUPTABLE: LOC=LOC+1 ; FSC SETUPTABLE ADDRESS; DATABUFFER:= #0700 ; START OF DAT┆
0x30700…30780 UnusedSector ┆ABUFFER AREA; CIMQUEUE: LOC=LOC+CIMMCOUNT ; CIM EVENT QUEUE; SYSFUNCTION: LOC=LOC+1 ; POINT: LOC=LOC+1 ; SYCL: LOC=LOC+1 ; TOP: ┆
0x30780…30800 UnusedSector ┆; TOP OF BASE AREA; 0,REPEAT TOP-LINK0-1, LOC=TOP ; ADJUST WORDS; ;### USE PROG ; START OF PROGRAM AREA; ; PROCEDURES: ; ; SCP10┆
0x30800…30880 UnusedSector ┆ ERROR/MESSAGE REPORT ; ; SCP20 FREE BUFFER ; ; SCP30 DUMMY OUTPUT ANSWER ; ; SCP32 DUMMY INPUT ANSWER ; ; SCP35 REQUEST INPUT ;┆
0x30880…30900 UnusedSector ┆ ; SCP36 REQUEST OUTPUT ; ; SCP39 DUMMY PROCEDURE ; ; SCP40 FSC INPUT ; ; SCP41 FSC SETUP ; ; SCP43 FSC STARTUP ; ; SCP44 FSC NO┆
0x30900…30980 UnusedSector ┆RMAL ANSWER ; ; SCP50 TLMQ OUTPUT ; ; SCP55 TLMQ INPUT ; ; ; SCE00 SYSTEM START ; ; SCE10 WAIT FOR NEXT EVENT ; ; SCG20 MESSAGE┆
0x30980…30a00 UnusedSector ┆ RECEIVED ; ; SCG90 SYSTEM STOP ; ; ; STATEREF: BUFSTATE0 ; RE.BUFSTATES; BUFSTATE1 ; BUFSTATE2 ; BUFSTATE3 ; BUFSTATE4 ; ┆
0x30a00…30a80 UnusedSector ┆ BUFSTATE5 ; INITTABLE: ; MODULE INIT TABLE: <:FS:>,FSCNAME ; VALUE,DESTINATION; <:C:> ,FSCNAME+1 ; <:TL:>,TLMQNAME ; <:MQ:>┆
0x30a80…30b00 UnusedSector ┆,TLMQNAME+1 ; <:CI:>,CIMNAME ; <:M:>, CIMNAME+1 ; <:SC:>,NAME-C ; <:M:>, NAME-C+1 ; 0, NAME-C+2 ; 0, NAME-C+3 ; 1, BUFSTA┆
0x30b00…30b80 UnusedSector ┆TE1+STATENR ; 2, BUFSTATE2+STATENR ; 3, BUFSTATE3+STATENR ; 4, BUFSTATE4+STATENR ; 5, BUFSTATE5+STATENR ; SCP60, ANSWERS+CI┆
0x30b80…30c00 UnusedSector ┆M ; CIM ANSWER PROCEDURE; SCP39, OUTPROCEDURES ; SCP39, OUTPROCEDUS+1 ; DATABR+0*BUFSIZE, BUFSTATE0+STATES ; DATABUFFER ADDRES┆
0x30c00…30c80 UnusedSector ┆SES; DATABR+1*BUFSIZE, BUFSTATE1+STATES ; DATABR+2*BUFSIZE, BUFSTATE2+STATES ; DATABR+3*BUFSIZE, BUFSTATE3+STATES ; DATABR+4*BUF┆
0x30c80…30d00 UnusedSector ┆SIZE, BUFSTATE4+STATES ; DATABR+5*BUFSIZE, BUFSTATE5+STATES ; INITTABLELH= LOC-INITTABLE ; ;### ; ERROR/MESSAGE REPORT PROCEDURE┆
0x30d00…30d80 UnusedSector ┆. ; MESSAGES ARE SENT TO CIM-MODULE IF LESS THAN CIMMCOUNT MESSAGES ; HAS BEEN SENT AND NOT YET ANSWERED; ; ELSE THE PRESENT MES┆
0x30d80…30e00 UnusedSector ┆SAGE IS IGNORED. ; ; BEGIN USE PROG ; BEGIN ERROR REPORT; ENTRY SCP10,SCP11 ; EXTERNAL CIM,CIMNAME,MESSCOUNTS,CIMMCOUNT,CIMQUEU┆
0x30e00…30e80 UnusedSector ┆E EXTERNAL SCG90,SENDMESSAGE,REGRETMESSAGE ; ; R0 ERRORCODE DESTROYED ; ; R1 DESTROYED ; ; R2 DESTROYED ; ; R6 LINK LINK ; ; R7┆
0x30e80…30f00 UnusedSector ┆ WORK WORK ; ; SCP11: ; CLR 1. X7 ; CLR 2. X7 ; CLR 3. X7 ; SCP10: ; ERROR REPORT: MOV R7 R1 ; WORK=>MESS; MOV R0 0. X7 ; ┆
0x30f00…30f80 UnusedSector ┆ERROR=>0.MESS; MOVC CIMNAME R0 ; CIMNAME=>NAME; MOVC CIM R2 ; CIM SWP R2 ; <8 MOV R2 4. X7 ; =>SPECIAL.MESS; MON SENDMESSAG┆
0x30f80…31000 UnusedSector ┆E ; SENDMESSAGE(MESS,NAME); INC MESSCOUNTS+CIM. X7 ; INCR(CIM.MESSCOUNTS); MOVC CIMQUEUE % END CIMQUEUE +CIMMCOUNT-1 R0 ; =>A┆
0x31000…31080 UnusedSector ┆DDR; L0: ; GET HOLE: JOZ X0 L1 ; IF 0.ADDR=0 THEN GOTO FOUND; INE R0 CIMQUEUE ; IF ADDR<>CIMQUEUE THEN ; BEGIN SOB R0 L0 ; D┆
0x31080…31100 UnusedSector ┆ECR(ADDR); ; GOTO GET HOLE; ; END; XCH R2 0. X0 ; EXCHANGE(EVENT,0.ADDR); MON REGRETMESSAGE ; REGRETMESSAGE(EVENT); DEC MES┆
0x31100…31180 UnusedSector ┆SCOUNTS+CIM. X7 ; DECR(CIM.MESSCOUNTS); JMP 0. X6 ; RETURN; L1: ; FOUND: MOV R2 0. X0 ; EVENT=>0.ADDR; IF D MON REGISTERS FI ;┆
0x31180…31200 UnusedSector ┆ JMP 0. X6 ; RETURN; END ; END ERROR REPORT; ;### ; PROCEDURE FREE BUFFER. ; THE PROCEDURE SETS THE STATE TO FREE FOR THE DRIVE┆
0x31200…31280 UnusedSector ┆R ; WHOSE ANSWER JUST HAS BEEN RECEIVED. IT THEN EXA- ; MINES THE STATE OF THE BUFFER FOR ALL DRIVERS, TO ; REPORT IF THE BUFFER┆
0x31280…31300 UnusedSector ┆ IS FREE OR NOT. ; ; R0 DESTROYED ; ; R2 EVENT EVENT ; ; R4 RE.BUFSTATE ; ; R6 LINK LINK ; ; R7 WORK WORK ; WORK MUST CONTAIN AN┆
0x31300…31380 UnusedSector ┆ ANSWER; ; BEGIN USE PROG ; BEGIN FREE BUFFER; ENTRY SCP20 ; EXTERNAL STATEREF,MAXDRIVERS,SCG90 ; ; SCP20: ; FREE: MOV 4. X7 ┆
0x31380…31400 UnusedSector ┆R0 ; SPECIAL.ANSWER(7:0) XTR R0 8 ; =>STATENR; MOD R0 ; MOV STATEREF R4 ; STATENR.STATEREF=>STATE; MOV 4. X7 R0 ; SPECIAL.AN┆
0x31400…31480 UnusedSector ┆SWER(15:8) SRL R0 8 ; =>DRIVER NR; IF T MOD R0 ;T INEP R2 0. X4 ;T IF EVENT<>DRIVER.BUFSTATE THEN MON REGISTERS FI ;T REGISTE┆
0x31480…31500 UnusedSector ┆RS; JMP SCG90 ;T GOTO SYSTEM STOP; MOD R0 ; CLR 0. X4 ; 0=>DRIVER.STATE; MOVC MAXDRIVERS R0 ; MAXDRIVERS=>COUNT; L0: ; TEST ┆
0x31500…31580 UnusedSector ┆STATE: MOD R0 ; SONP -1. X4 ; IF COUNT-1.STATE=0 THEN ; BEGIN SOB R0 L0 ; IF DECR(COUNT)<>0 THEN ; GOTO TEST STATE; JMP 0.┆
0x31580…31600 UnusedSector ┆ X6 ; RETURN(FREE); ; END; IF D MON REGISTERS FI ; JMP 1. X6 ; RETURN(NOT FREE); END ; END FREE BUFFER; ;### ; DUMMY ANSWER PR┆
0x31600…31680 UnusedSector ┆OCEDURE FOR OUTPUT; ; THE PROCEDURE WILL FREE THE BUFFERSTATE CORRESPONDING TO THE ; DRIVER. IF THE BUFFER BECOMES TOTAL FREE, N┆
0x31680…31700 UnusedSector ┆EW INPUT IS ; REQUESTED TO THE BUFFER. ; ; R0 DESTROYED ; ; R2 EVENT DESTROYED ; ; R4 RE.BUFSTATE ; ; R6 LINK DESTROYED ; ; R7 ┆
0x31700…31780 UnusedSector ┆WORK WORK ; ; BEGIN USE PROG ; BEGIN DUMMY OUTPUT ANSWER; ENTRY SCP30 ; EXTERNAL LINK0,MESSCOUNTS,SCP20,SCP35 ; SCP30: ; DUMMY┆
0x31780…31800 UnusedSector ┆ OUTPUT ANSWER: IF D MON REGISTERS FI ; MOV R6 LINK0 ; SAVE(LINK); MOV 4. X7 R6 ; SPECIAL.ANSWER SRL R6 8 ; =>DRIVER); MOD R┆
0x31800…31880 UnusedSector ┆6 ; DEC MESSCS.X7 ; DECR(DRIVER.MESSCOUNTS); JMP S6 SCP20 ; FREE BUFFER; JMP S6 &SCP35 ; FREE: REQUEST INPUT; JMPI LINK0 ; R┆
0x31880…31900 UnusedSector ┆ETURN(DUMMY OUTPUT ANSWER); END ; END DUMMY OUTPUT ANSWER; ; DUMMY INPUT ANSWER PROCEDURE. ; THE PROCEDURE WILL FREE THE BUFFE┆
0x31900…31980 UnusedSector ┆RSTATE CORRESPONDING TO THE DRIVER. ; ; R0 DESTROYED ; ; R2 EVENT DESTROYED ; ; R4 RE.BUFSTATE ; ; R6 LINK DESTROYED ; ; R7 WORK┆
0x31980…31a00 UnusedSector ┆ WORK ; ; BEGIN USE PROG ; BEGIN DUMMY INPUT ANSWER; ENTRY SCP32 ; EXTERNAL LINK0,MESSCOUNTS,SCP20 ; ; SCP32: ; INPUT ANSWER: ┆
0x31a00…31a80 UnusedSector ┆IF D MON REGISTERS FI ; MOV R6 LINK0 ; SAVE(LINK); MOV 4. X7 R6 ; SPECIAL.ANSWER(15:8) SRL R6 8 ; =>DRIVER; MOD R6 ; DEC ME┆
0x31a80…31b00 UnusedSector ┆SSCS.X7 ; DECR(DRIVER.MESSCOUNT); JMP S6 SCP20 ; FREE BUFFER; NOP ; FREE: CONTINUE; JMPI LINK0 ; RETURN(INPUT ANSWER); END ; ┆
0x31b00…31b80 UnusedSector ┆END DUMMY INPUT ANSWER; ;### ; REQUEST INPUT; ; ; R4 RE.BUFSTATE RE.BUFSTATE ; ; R6 LINK LINK ; ; BEGIN USE PROG ; BEGIN REQUES┆
0x31b80…31c00 UnusedSector ┆T INPUT; ENTRY SCP35 ; EXTERNAL LINK1,INPROCEDURE ; ; SCP35: ; REQUEST INPUT: MOV R6 LINK1 ; SAVE(LINK); JMP S6 H0 ; RE.LINK;┆
0x31c00…31c80 UnusedSector ┆ JMPI LINK1 ; RETURN; ; H0: JMPI INPROCEDURE ; CALL INPUT PROCEDURE; END ; END REQUEST INPUT; ; REQUEST OUTPUT; ; ; R4 RE.BU┆
0x31c80…31d00 UnusedSector ┆FSTATE RE.BUFSTATE ; ; R6 LINK DESTROYED ; ; BEGIN USE PROG ; BEGIN REQUEST OUTPUT: ENTRY SCP36 ; EXTERNAL LINK2,OUTPROCEDURES,┆
0x31d00…31d80 UnusedSector ┆SCP35,TLMQ,HDTR ; SCP36: ; REQUEST OUTPUT: MOV R6 LINK2 ; SAVE(LINK); JMP S6 H0 ; CALL OUTPROCEDURES; JMP S6 H1 ; SONP TLMQ┆
0x31d80…31e00 UnusedSector ┆. X4 ; IF TLMQ.STATE=0 SON HDTR. X4 ; AND HDTR.STATE=0 THEN JMP S6 SCP35 ; REQUEST INPUT; JMPI LINK2 ; RETURN; ; H0: JMPI OU┆
0x31e00…31e80 UnusedSector ┆TPROCES ; CALL OUTPUT PROCEDURE; H1: JMPI OUTPROCES+1; END ; ; DUMMY PROCEDURE; ; ; R6 LINK LINK ; ; BEGIN USE PROG ; ENTRY ┆
0x31e80…31f00 UnusedSector ┆SCP39 ; EXTERNAL ; ; SCP39: ; DUMMY PROCEDURE: JMP 0. X6 ; RETURN; ; END ; END DUMMY PROCEDURE; ;### ; FRAME SYNCHRONIZER INP┆
0x31f00…31f80 UnusedSector ┆UT PROCEDURE. ; ; R0-R2 DESTROYED ; ; R4 RE.STATE RE.STATE ; ; R6 LINK LINK ; ; R7 WORK WORK ; ; BEGIN USE PROG ; BEGIN FSYNC I┆
0x31f80…32000 UnusedSector ┆NPUT; ENTRY SCP40 ; EXTERNAL SENDMESSAGE,MADDRESS ; EXTERNAL BMINPUT,STATEADDRESS,STATENR,FSC,FSCNAME EXTERNAL MESSCOUNTS ; ; S┆
0x32000…32080 UnusedSector ┆CP40: ; FSYNC INPUT: MOVC BMINPUT X7 ; INPUT=>OPER.MESS; MOV STATES.X4 R0 ; ADDRESS.STATE MOV R0 MADDRS.X7 ; =>ADDRESS.MESS; ┆
0x32080…32100 UnusedSector ┆ MOVC FSC<8 R0 ; FSC<8 ADD STATER.X4 R0 ; +STATENR.STATE MOV R0 4. X7 ; =>SPECIAL.MESS; IF D MON REGISTERS FI ; MOVC FSCNAME ┆
0x32100…32180 UnusedSector ┆R0 ; FSCNAME=>NAME; MOV R7 R1 ; WORK=>MESS; MON SENDMESSAGE ; SENDMESSAGE(NAME,MESS,EVENT); MOV R2 FSC. X4 ; EVENT=>FSC.STATE┆
0x32180…32200 UnusedSector ┆ ; MESSAGE: ANSWER AND GOTO START; JMP START ; ; ; ; CONTLOAD: ; REPETITIVE LOAD: JMPI S5 IGETADR ; GET REG NUMBER; JMP CO┆
0x32200…32280 UnusedSector ┆NTLOAD ; MOV R3 R4 ; REG := REGNUMBER; JMPI S6 IINCHAR ; CHECK INE R1 <: :> ; SPACE JMP ERROR ; SEPARATOR; JMPI S5 IGETADR ┆
0x32280…32300 UnusedSector ┆; GET REG CONT1; JMP ERROR ; MOV R3 CONT1 ; SAVECONT1 := REG CONT1; JMPI S6 IINCHAR ; CHECK INE R1 <: :> ; SPACE JMP ERROR ┆
0x32300…32380 UnusedSector ┆; SEPARATOR; JMPI S5 IGETADR ; JMP ERROR ; MOVC #FFFF R5 ; MOV R3 R2 ; SAVE REG CONT2; CLLOOP: ; LOADAGAIN: MOV CONT1 R3 ; ┆
0x32380…32400 UnusedSector ┆REG CONT1 => VALUE; JMPI S6 ILOADREG ; LOADREGISTER; MOV R2 R3 ; REG CONT2 => VALUE; JMPI S6 ILOADREG ; LOADREGISTER; SOB R5┆
0x32400…32480 UnusedSector ┆ CLLOOP ; MOVC 0 R0 ; MON SETDELAY ; MON WAITEVENT ; JMP TIMEOUT ; JMP MDANSW ; MON SENDANSWER ; JMP START ; TIMEOUT: ; ┆
0x32480…32500 UnusedSector ┆MOVC #FFFF R5 ; JMP CLLOOP ; ; ; ; CONTDUMP: ; REPETITIVE SENSE: JMPI S5 IGETADR ; GET REG NUMBER; JMP CONTDUMP ; MOV R3 ┆
0x32500…32580 UnusedSector ┆R4 ; REG NUMBER => REGN; MOVC #FFFF R5 ; CDLOOP: ; DUMPAGAIN: JMPI S6 IGETREG ; GETREGISTER; SOB R5 CDLOOP ; MOVC 0 R0 ; MO┆
0x32580…32600 UnusedSector ┆N SETDELAY ; MON WAITEVENT ; JMP CDTIMEOUT ; JMP MDANSW ; MON SENDANSWER ; JMP START ; CDTIMEOUT: ; MOVC #FFFF R5 ; JMP C┆
0x32600…32680 UnusedSector ┆DLOOP ; ; ; ; ; INTTIME: ; MEASURE INTERRUPT TIME: JMPI S5 IGETADR ; GET NO OF INTERRUPTS; JMP ERROR ; WINT: ; NEW INTERRU┆
0x32680…32700 UnusedSector ┆ SCG90 ; GOTO SYSTEM STOP MOVC ERRILL R0 ; MESSAGE: ILLEGAL FUNCTION; JMP S6 SCP10 ; JMP SCE10 ; GOTO NEXT EVENT; ; L0: ; ST┆
0x32700…32780 UnusedSector ┆ART: SOZ SYSFUNCTION-WORK. X7 ; IF ALREADY STARTED THEN JMP SCE10 ; GOTO NEXT EVENT; MOVL 1. X7 R0 ; SYSFUNCTION,ADDRESS.MESS┆
0x32780…32800 UnusedSector ┆ MOV R0 SYSFUNCTION; =>0.SYSFUNCTION, MOV R1 SETUPTABLE ; 0.SETUPTABLE; JMP S6 SCP41 ; SETUP FSC; JMP SCG90 ; ERROR: GOTO SY┆
0x32800…32880 UnusedSector ┆STEM STOP; L1: ; SETUP TLMQ; MOV SYSFUNCTION R0 ; IBZ R0 BNTLM ; JMP L2 ; MOVC BMSETUP X7 ; MOVC TLMQNAME R0 ; MOV R7 R1 ┆
0x32880…32900 UnusedSector ┆; MON SENDMESSAGE ; MON WAITANSWER ; IF D MOV 0. X7 R0 ; MON REGISTERS FI ; JOZ X7 L2 ; MOVC ERRTLMQ R0 ; JMP S6 SCP10 ; ┆
0x32900…32980 UnusedSector ┆JMP SCG90 ; L2: MOVC 0 R3 ; 0=>STATENR; ;### L3: ; NEXTSTATE: MOD R3 ; MOV STATEREF R4 ; STATENR.STATEREF=>STATE; JMP S6 SCP4┆
0x32980…32a00 UnusedSector ┆0 ; REQUEST INPUT; IF D MON REGISTERS FI ; ADDC 1 R3 ; INCR(STATENR); ILT R3 BUFCOUNT ; IF BUFNR<BUFCOUNT THEN JMP L3 ; GOTO ┆
0x32a00…32a80 UnusedSector ┆NEXTSTATE; MOVC SCP43 R0 ; FSC STARTUP MOV R0 ANSWERS+FSC; =>FSC.ANSWERS; MOVC SCP40 R0 ; FSCINPUT MOV R0 INPROCEDURE; =>0.I┆
0x32a80…32b00 UnusedSector ┆NPROCEDURE; MOV SYSFUNCTION R0 ; IBZ R0 BNTLM ; IF NOT SYSFUNCTION[TLM] THEN JMP SCE10 ; GOTO NEXT EVENT; MOVC SCP50 R0 ; TL┆
0x32b00…32b80 UnusedSector ┆MQ OUTPUT MOV R0 OUTPROCES ; =>0.OUTPROCEDURES; MOVC SCP55 R0 ; TLMQ ANSWER PROCEDURE MOV R0 ANSWES+TLMQ; =>TLMQ.ANSWERS; JM┆
0x32b80…32c00 UnusedSector ┆P SCE10 ; GOTO NEXT EVENT; ; END ; END MESSAGE; ;### ; SYSTEM STOP ; BEGIN USE PROG ; BEGIN SYSTEM STOP; ENTRY SCG90 ; EXTERNAL┆
0x32c00…32c80 UnusedSector ┆ SCE10,SCP11,SCP39,SCP41 ; EXTERNAL REGRETMESSAGE,SENDMESSAGE,WAITANSWER,WORK EXTERNAL ERRSTOPPED,BUFCOUNT,STATEREF,MESSCOUNTS,M┆
0x32c80…32d00 UnusedSector ┆AXDRIVERS EXTERNAL CIMQUEUE,CIM,OUTPROCEDURES,BUFSTATE0,STATEADDRS EXTERNAL TLMQNAME,MCOUNT,MADDRS,BMSTOP,SYSFUNCTION,BNTLM ; S┆
0x32d00…32d80 UnusedSector ┆CG90: ; SYSTEM STOP: IF D MON REGISTERS FI ; MOVC BUFCOUNT R0 ; BUFCOUNT=>COUNT; L0: ; GET STATE: MOD R0 ; MOV STATEREF-1 R4 ┆
0x32d80…32e00 UnusedSector ┆; COUNT-1.STATEREF=>STATE; MOVC 0 R1 ; 0=>DRIVER; L1: ; GET EVENT: MOD R1 ; MOV 0. X4 R2 ; DRIVER.STATE=>EVENT; JOZ R2 L2 ; ┆
0x32e00…32e80 UnusedSector ┆IF EVENT<>0 THEN ; BEGIN IF D MON REGISTERS FI ; MOD R1 ; CLR 0. X4 ; 0=>DRIVER.STATE; MON REGRETMESSAGE ; REGRETMESSAGE; M┆
0x32e80…32f00 UnusedSector ┆OD R1 ; DEC MESSCOUNTS+0. X7 ; DECR(DRIVER.MESSCOUNTS; L2: ; END; ADDC 1 R1 ; INCR(DRIVER); INE R1 MAXDRIVERS ; IF DRIVER<>MA┆
0x32f00…32f80 UnusedSector ┆XDRIVERS THEN JMP L1 ; GOTO GET EVENT; SOB R0 L0 ; IF DECR(COUNT)<>0 THEN ; GOTO GET STATE; MOV SYSFUNCTION R0 ; IBZ R0 BNT┆
0x32f80…33000 UnusedSector ┆LM ; JMP L3 ; CLR MCOUNT.X7 ; 0=>COUNT.MESS; MOVC BMSTOP X7 ; STOP=>OPER.MESS; MOV BUFSTATE0+STATES R0 ; STATEADDRS.BUFSTATE┆
0x33000…33080 UnusedSector ┆0 MOV R0 MADDRS.X7 ; =>ADDRS.MESS; MOV R7 R1 ; MOVC TLMQNAME R0 ; RE.NAME; MON SENDMESSAGE ; SENDMESSAGE(NAME,MESS); MON WA┆
0x33080…33100 UnusedSector ┆ITANSWER ; WAITANSWER; L3: ; JMP S6 SCP41 ; SETUP FSC; NOP ; ERROR: IGNORE; MOVC SCP39 R0 ; DUMMY PROCEDURE MOV R0 OUTPROCES┆
0x33100…33180 UnusedSector ┆ ; =>0.OUTPROCEDURES; MOVC ERRSTOPPED R0 ; MESSAGE: SYSTEM STOPPED; JMP S6 SCP11 ; IF D MON REGISTERS FI ; CLR SYSFUNCTION-WO┆
0x33180…33200 UnusedSector ┆RK. X7 ; 0=>0.SYSFUNCTION; JMP SCE10 ; GOTO NEXT EVENT; END ; END SYSTEM STOP; END ; END SYSTEM CONTROL; ;### XPRPC= SCE00 XREF┆
0x33200…33280 UnusedSector ┆S= 4 XBUFS= 14 NOLIST MESSAGE <:END OF USER MODULE:> USE PROG XDEVPR= 0 XPSIZE= LOC USE BASE XCURIN= LOC 0,REPEAT CURSOUT-CURSIN┆
0x33280…33300 UnusedSector ┆-1 XCUROUT= LOC 0,REPEAT 4 XWORKING=0, XPROGRAM=LOC XWORDS=0, XREFSX=0, XBUFSX=0, XCURWORK=0, XCENTRY=0 XSIZE= LOC+C USE PROG IF┆
0x33300…33380 UnusedSector ┆ LOC+XSIZE NE WORDS THEN MESSAGE <:SIZE <> WORDS:> MESSAGE WORDS MESSAGE XSIZE FI LIST END CURIN= LOC 0,REPEAT CURSOUT-CURSIN┆
0x33380…33400 UnusedSector ┆T MON REGISTERS ; MON GIVEUPTIME FI ; JMP S5 OUTBUF ; OUTBUF; JMP 0. X6 ; IF EMPTY RETURN (EMPTY); IEQ X7 0 ; IF 0.BUFCOUNT1┆
0x33400…33480 UnusedSector ┆ <> 0 THEN JMP EMPTYB0 ; BEGIN MOV R4 R7 ; CODE => ANSWCODE; JMP S5 ANSWER ; ANSWER (ANSWCODE); JMP EMPTYBUF ; GOTO EMPTYBUF┆
0x33480…33500 UnusedSector ┆; EMPTYBUF0: ; END; MOV BUFIN R5 ; BUFIN => ADDRESS; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; MOV R5 BUFCUR ; 0.ADDRESS => ┆
0x33500…33580 UnusedSector ┆0.BUFCUR; MOVC BUFCOUNT2 R5 ; BUFCOUNT2 => ADDRESS; MOVC 0 X5 ; 0 => 0.ADDRESS; JMP 1. X6 ; RETURN; ; ; ;..................┆
0x33580…33600 UnusedSector ┆.................................................... ;### ;.....................................................................┆
0x33600…33680 UnusedSector ┆. ;ANSWER ;...................................................................... ; CALL EXIT ;R3 EVENT DESTROYED ;R5 LINK LINK ┆
0x33680…33700 UnusedSector ┆;R7 CODE DESTROYED ;...................................; ; ANSWER: ; ANSWER: MOV R2 SAVE5 ; SAVE R2; MOV R3 R2 ; EVENT => ANS┆
0x33700…33780 UnusedSector ┆WEVENT; MOV LCKSTT R3 ; LOCKSTATE => W; JOZ R3 ANSWE1 ; IF W <> 0 THEN MOV R3 R7 ; W => CODE; ANSWE1: ; MOVC ANSW R3 ; MOV ┆
0x33780…33800 UnusedSector ┆R7 X3 ; CODE => 0.ANSW; MOV OLDBUFOUT R7 ; 3.OLDBUFOUT => ADDC 3 R7 ; MOV X7 4. X3 ; 4.ANSW; IF TST MON REGISTERS ; MON GIVE┆
0x33800…33880 UnusedSector ┆UPTIME FI ; XCH R1 R3 ; R1 <=> ANSW; MON SENDANSWER ; SENDANSWER; MOV R3 R1 ; ANSW => R1; MOVC 0 R3 ; 0 => MOV R3 LCKSTT ; ┆
0x33880…33900 UnusedSector ┆0.LOCKSTATE; MOV SAVE5 R2 ; RESTORE R2; JMP 0. X5 ; RETURN; ; ; ;...........................................................┆
0x33900…33980 UnusedSector ┆........... ;### ;...................................................................... ;UPDATETABLES ;........................┆
0x33980…33a00 UnusedSector ┆.............................................. ;EMPTIES THE SYNCSTATUS-FIFO, AND CHECKS THE UNLOCK-CRITERIUM ;FROM THE FRAMEBOUN┆
0x33a00…33a80 UnusedSector ┆DARY-STATUS ;...................................................................... ; CALL EXIT ; ;R3 DESTROYED ;R4 DESTROYED ;R┆
0x33a80…33b00 UnusedSector ┆; INC MESSCOUNTS+FSC. X7 ; INCR(FSC.MESSCOUNTS); JMP 0. X6 ; RETURN(FSYNC INPUT); END ; END FSYNC INPUT; ; FRAME SYNCHRONIZER┆
0x33b00…33b80 UnusedSector ┆ SETUP PROCEDURE. ; ; R0-R2 DESTROYED ; ; R6 LINK DESTROYED ; ; R7 WORK WORK ; ; BEGIN USE PROG ; BEGIN FSC SETUP; ENTRY SCP41 ┆
0x33b80…33c00 UnusedSector ┆; EXTERNAL SENDMESSAGE,WAITANSWER,WORK,BMSETUP,LINK0,SCP10,MADDRS EXTERNAL SETUPTABLE,BUFSTATE0,STATEADDRS,ERRFSC,FSCNAME,SYCL,M┆
0x33c00…33c80 UnusedSector ┆COUNT ; SCP41: ; FSC SETUP: ADDC 1 R6 ; INCR(LINK); MOV R6 LINK0 ; SAVE(LINK); MOVC BMSETUP X7 ; SETUP=>OPER.MESS; MOV SETU┆
0x33c80…33d00 UnusedSector ┆PTABLE R0 ; 0.SETUPTABLE MOV R0 MADDRS.X7 ; =>ADDR.MESS; MOV BUFSTATE0+STATES R0 ; ADDRESS.BUFSTATE0 MOV R0 3. X7 ; =>3.MESS;┆
0x33d00…33d80 UnusedSector ┆ MOVC FSCNAME R0 ; RE.NAME; MOV R7 R1 ; RE.MESS; MON SENDMESSAGE ; SENDMESSAGE(NAME,MESS); MON WAITANSWER ; WAITANSWER; MOV┆
0x33d80…33e00 UnusedSector ┆ MCOUNT.X7 R0 ; MOV R0 SYCL ; MOVC 0 R0 ; MOV R0 POINT ; JOZ X7 L1 ; IF RESULT<>0 THEN MOV 0. X7 1. X7 ; RESULT=>1.MESSAGE;┆
0x33e00…33e80 UnusedSector ┆ MOVC ERRFSC R0 ; JMP S6 SCP10 ; MESSAGE(FSC ERROR); DEC LINK0 -WORK. X7 ; DECR(LINK); L1: JMPI LINK0 ; RETURN; END ; END FSC┆
0x33e80…33f00 UnusedSector ┆ SETUP; ;### ; FRAME SYNCHROIZER STARTUP ANSWER PROCEDURE. ; ; R4 RE.BUFSTATE ; ; R6 LINK DESTROYED ; ; ; BEGIN USE PROG ; BEG┆
0x33f00…33f80 UnusedSector ┆IN STARTUP ANSWER; ENTRY SCP43 ; EXTERNAL SCP11,SCP20,SCP36,SCG90,SCG44,SCP40,SCP44 EXTERNAL LINK0,MESSCOUNTS,FSC,ANSWERS EXTERN┆
0x33f80…34000 UnusedSector ┆AL ERRSTARTOFFORMAT,BMTIMEOUT ; ; RSCP44: SCP44 ; RE.NORMAL FSC ANSWER PROCEDURE; SCP43: ; FSC STARTUP: IF D MON REGISTERS FI ;┆
0x34000…34080 UnusedSector ┆ MOV R6 LINK0 ; SAVE(LINK); DEC MESSCOUNTS+FSC. X7 ; DECR(FSC.MESSCOUNTS); JMP S6 SCP20 ; FREE BUFFER; JMP L1 ; FREE: CONTIN┆
0x34080…34100 UnusedSector ┆UE; MON REGISTERS ; NOT FREE: SOFTWARE ERROR; JMP SCG90 ; GOTO SYSTEM STOP; L1: JON X7 L3 ; IF RESULT=0 THEN ; BEGIN IF D MON┆
0x34100…34180 UnusedSector ┆ REGISTERS FI ; JMP S6 SCP36 ; REQUEST OUTPUT; MOVC ERRSTARTFORMAT R0 ; MESSAGE: START OF FORMAT; JMP S6 SCP11 ; MOV RSCP44 ┆
0x34180…34200 UnusedSector ┆R0 ; NORMAL FSC ANSWER MOV R0 ANSWERS+FSC; =>FSC.ANSWERS; JMPI LINK0 ; RETURN(ANSWER); ; END; L3: INE X7 BMTIMEOUT ; IF RESUL┆
0x34200…34280 UnusedSector ┆T<>TIMEOUT THEN JMP SCG44 ; GOTO TEST ERROR; JMP S6 SCP40 ; REQUEST INPUT; JMPI LINK0 ; RETURN(ANSWER PROCEDURE); END ; END F┆
0x34280…34300 UnusedSector ┆SC STARTUP ANSWER; ;### ; FRAME SYNCHRONIZER NORMAL ANSWER PROCEDURE. ; ; R4 RE.BUFSTATE ; ; R6 LINK DESTROYED ; ; BEGIN USE PR┆
0x34300…34380 UnusedSector ┆OG ; BEGIN FSC ANSWER; ENTRY SCP44,SCG44 ; EXTERNAL SCP10,SCP11,SCP20,SCP36,SCP40,SCP43,SCP52,SCG90 EXTERNAL LINK0,MESSCOUNTS,FS┆
0x34380…34400 UnusedSector ┆C,ANSWERS,MAXDRIVERS EXTERNAL ERRENDOFFORMAT,ERRSYSTEM,ERRFSC,ERRUNLOCKED EXTERNAL BMUNLOCKED BMNOTREADY,BMTIMEOUT,BMILLEGAL,BMS┆
0x34400…34480 UnusedSector ┆TOP,BNTLM EXTERNAL BMERROR,BMNOTDONE,BMSETUP,BMOUTOFMESS,WORK,SYSFUNCTION EXTERNAL BMSLIPPAGE,BMHAMMING,ERRSLOW ; SCP44: ; FSC ┆
0x34480…34500 UnusedSector ┆ANSWER: IF D MON REGISTERS FI ; MOV R6 LINK0 ; SAVE(LINK); DEC MESSCOUNTS+FSC. X7 ; DECR(FSC.MESSCOUNTS); JMP S6 SCP20 ; FREE┆
0x34500…34580 UnusedSector ┆ BUFFER; JMP L1 ; FREE:CONTINUE; MON REGISTERS ; NOT EMPTY: SOFTWARE ERROR; JMP SCG90 ; GOTO SYSTEM STOP; L1: JON X7 SCG44 ; ┆
0x34580…34600 UnusedSector ┆IF RESULT=0 THEN ; BEGIN JMP S6 SCP36 ; REQUEST OUTPUT; JMPI LINK0 ; RETURN(ANSWER PROCEDURE); ; END; SCG44: ; TEST ERROR: I┆
0x34600…34680 UnusedSector ┆F D MOV 0. X7 R0 ; MON REGISTERS FI ; IEQ X7 BMUNLOCKED ; TEST UNLOCKED; JMP L5 ; IEQ X7 BMNOTREADY ; TEST NOTREADY; JMP L6┆
0x34680…34700 UnusedSector ┆ ; IEQ X7 BMTIMEOUT ; TEST TIMEOUT; JMP L7 ; IEQ X7 BMOUTOFMES ; TEST OUT OF MESSAGES; JMP L8 ; IEQ X7 BMILLEGAL ; TEST ILL┆
0x34700…34780 UnusedSector ┆EGAL; JMP L9 ; IEQ X7 BMERROR ; TEST ERROR; JMP L10 ; IEQ X7 BMNOTDONE ; TEST NOTDONE; JMP L12 ; IEQ X7 BMSLIPPAGE ; TEST ┆
0x34780…34800 UnusedSector ┆BIT SLIPPAGE JMP L13 ; IEQ X7 BMHAMMING ; TEST BAD HAMMING DISTANCE; JMP L13 ; UNS 4 ; ILLEGAL ERRORCODE: MON REGISTERS ; D┆
0x34800…34880 UnusedSector ┆ISPLAY WORK; MOVC ERRSYSTEM R0 ; MESSAGE: SYSTEM ERROR; JMP S6 SCP10 ; JMP SCG90 ; GOTO SYSTEM STOP; ; ;### L5: ; UNLOCKED: ┆
0x34880…34900 UnusedSector ┆ MOVC BMSTOP X7 ; STOP=>OPER.MESS; MOV SYSFUNCTION R0 ; GET FUNCTION; IBN R0 BNTLM ; IF FUNCTION[TLM] THEN JMP S6 SCP52 ; UNL┆
0x34900…34980 UnusedSector ┆OCK TLM; MOVC ERRUNLOCKED R0 ; MESSAGE: UNLOCKED; JMP S6 SCP11 ; JMPI LINK0 ; RETURN(ANSWER PROCEDURE); L6: ; NOTREADY: MOV ┆
0x34980…34a00 UnusedSector ┆X7 1. X7 ; ERROR CODE=>1.MESS; MOVC ERRFSC R0 ; MESSAGE: FSC NOT READY; JMP S6 SCP11 ; JMP SCG90 ; GOTO SYSTEM STOP; L7: ; TI┆
0x34a00…34a80 UnusedSector ┆MEOUT: JMP S6 SCP40 ; REQUEST INPUT; MOVC ERRENDFORMAT R0 ; MESSAGE: END OF FORMAT; JMP S6 SCP11 ; MOVC SCP43 R0 ; STARTUP A┆
0x34a80…34b00 UnusedSector ┆NSWER PROCEDURE MOV R0 ANSWERS+FSC; =>FSC.ANSWERS; JMPI LINK0 ; RETURN(FSC ANSWER); L8: ; OUTOFMESSAGES: MOVC MESSCOUNTS+WORK┆
0x34b00…34b80 UnusedSector ┆ R7 ; DISPLAY MESSAGECOUNTS; UNS MAXDRIVERS ; MON REGISTERS ; MOVC ERRSLOW R0 ; MESSAGE: SYSTEM ERROR; JMP S6 SCP10 ; JMP S┆
0x34b80…34c00 UnusedSector ┆CG90 ; GOTO SYSTEM STOP; L9: ; ILLEGAL: MON REGISTERS ; SOFTWARE ERROR; ; L10: ; ERROR: UNS 4 ; DISPLAY WORK; MON REGISTERS ┆
0x34c00…34c80 UnusedSector ┆; MOVC ERRFSC R0 ; MESSAGE FSC ERROR; JMP S6 SCP10 ; JMP SCG90 ; GOTO SYSTEM STOP; L12: ; NOTDONE: JMP S6 SCP40 ; REQUEST IN┆
0x34c80…34d00 UnusedSector ┆PUT; JMPI LINK0 ; RETURN(ANSWER PROCEDURE); ; L13: ; BAD HAMMING OR SLIPPAGE; MOV 0. X7 R0 ; GET ERROR CODE; MOV 4. X7 R3 ; ┆
0x34d00…34d80 UnusedSector ┆SAVE(SPECIAL.ANSWER); JMP S6 SCP11 ; MESSAGE: SLIPPAGE OR HAMMING; MOV R3 4. X7 ; RESTORE(SPECIAL.ANSWER); JMP S6 SCP36 ; REQ┆
0x34d80…34e00 UnusedSector ┆UEST OUTPUT; JMPI LINK0 ; RETURN; END ; END FSC ANSWER; ;### ; TELEMECANIQUE OUTPUT PROCEDURE; ; ; R0 DESTROYED ; ; R1 DESTROYE┆
0x34e00…34e80 UnusedSector ┆D ; ; R2 DESTROYED ; ; R4 RE.STATE RE.STATE ; ; R6 LINK LINK ; ; R7 WORK WORK ; ; BEGIN USE PROG ; BEGIN TLMQ OUTPUT; ENTRY SCP┆
0x34e80…34f00 UnusedSector ┆50,SCP52 ; EXTERNAL SENDMESSAGE,MCOUNT,MADDRESS; EXTERNAL MESSCOUNTS,TLMQ,TLMQNAME,BUFSIZE,STATEADDRESS,STATENR EXTERNAL BMOUTPU┆
0x34f00…34f80 UnusedSector ┆T,SYCL,POINT ; ; SCP50: ; TLMQ OUTPUT: MOVC BMOUTPUT X7 ; OUTPUT=>OPER.MESS; MOVC BUFSIZE R0 ; BUFLENGTH MOV R0 MCOUNT.X7 ; ┆
0x34f80…35000 UnusedSector ┆=>COUNT.MESS; SCP52: ; TLMQ SUBOUTPUT: IF D MON REGISTERS FI ; MOV STATES.X4 R0 ; ADDRESS.STATE MOV R0 MADDRS.X7 ; =>ADDRESS.M┆
0x35000…35080 UnusedSector ┆ESS; MOVC TLMQ<8 R0 ; TLMQ<8 ADD STATER.X4 R0 ; +STATENR.STATE MOV R0 4. X7 ; =>SPECIAL.MESS; MOVC TLMQNAME R0 ; TLMQNAME=>N┆
0x35080…35100 UnusedSector ┆AME; MOV R7 R1 ; WORK=>MESS; MON SENDMESSAGE ; SENDMESSAGE(NAME,MESS,EVENT); MOV R2 TLMQ. X4 ; EVENT=>TLMQ.STATE; INC MESSCO┆
0x35100…35180 UnusedSector ┆UNTS+TLMQ. X7 ; INCR(TLMQ.MESSCOUNTS); MOVC #050C R5 ; MOV MADDRS.X7 R0 ; SUB 8 R0 ; MOV POINT R1 ; MOV MCOUNT.X7 R3 ; L0: ┆
0x35180…35200 UnusedSector ┆; IGE R1 R3 ; JMP L1 ; MOD R1 ; IEQ R5 X0 ; JMP L2 ; UNS 4 ; MON REGISTERS ; MOVC #FFE0 R0 ; LDP R0 ; L2: ; ADD SYCL R┆
0x35200…35280 UnusedSector ┆1 ; JMP L0 ; L1: ; SUB R3 R1 ; MOV R1 POINT ; JMP 0. X6 ; RETURN(TLMQ OUTPUT); END ; END TLMQ OUTPUT PROCEDURE; ;### ; TELEM┆
0x35280…35300 UnusedSector ┆ECANIQUE ANSWER PROCEDURE; ; ; R0 DESTROYED ; ; R2 DESTROYED ; ; R4 DESTROYED ; ; R6 LINK LINK ; ; ; BEGIN USE PROG ; BEGIN TLM┆
0x35300…35380 UnusedSector ┆Q ANSWER PROCEDURE; ENTRY SCP55 ; EXTERNAL SCP35,SCP39,SCP10,SCP20,SCP30,SCG90 EXTERNAL LINK0,MESSCOUNTS,TLMQ,ANSWERS,OUTPROCEDU┆
0x35380…35400 UnusedSector ┆RES EXTERNAL BMERROR,ERRTLMQ,ERRSYSTEM ; SCP55: ; TLMQ ANSWER: MOV R6 LINK0 ; SAVE(LINK); DEC MESSCOUNTS+TLMQ. X7 ; DECR(TLMQ.┆
0x35400…35480 UnusedSector ┆MESSCOUNTS); JON X7 L1 ; IF RESULT<>0 THEN ; GOTO TEST ERROR IF D MON REGISTERS FI ; JMP S6 SCP20 ; FREE BUFFER; JMP S6 SCP3┆
0x35480…35500 UnusedSector ┆5 ; FREE: REQUEST INPUT; JMPI LINK0 ; RETURN; ; L1: ; TEST ERROR: MOV 4. X7 R3 ; SAVE(SPECIAL.ANSWER); MOV 0. X7 1. X7 ; RES┆
0x35500…35580 UnusedSector ┆ULT=>1.MESSAGE); MOVC ERRTLMQ R0 ; MESSAGE: TLMQ NOT READY; JMP S6 SCP10 ; MOVC SCP30 R0 ; DUMMY ANSWER MOV R0 ANSWES+TLMQ; ┆
0x35580…35600 UnusedSector ┆=>TLMQ.ANSWERS; MOVC SCP39 R0 ; DUMMY MOV R0 OUTPROCES ; =>0.OUTPROCEDURES; MOV R3 4. X7 ; RESTORE(SPECIAL.ANSWER)+ JMP S6 S┆
0x35600…35680 UnusedSector ┆CP20 ; FREE BUFFER; JMP S6 SCP35 ; FREE: REQUEST INPUT; JMPI LINK0 ; RETURN; END ; END TLMQ ANSWER PROCEDURE; ;### ; COMMAND I┆
0x35680…35700 UnusedSector ┆NTERPRETER ANSWER PROCEDURE. ; ; R6 LINK LINK ; ; BEGIN USE PROG ; BEGIN CIM ANSWER; ENTRY SCP60 ; EXTERNAL CIM,MESSCOUNTS,CIMQ┆
0x35700…35780 UnusedSector ┆UEUE,CIMMCOUNT,SCG90 ; SCP60: ; CIM ANSWER: IF D MON REGISTERS FI ; MOVC CIMQUEUE % END CIMQUEUE +CIMMCOUNT-1 R0 ; =>ADDR; L0┆
0x35780…35800 UnusedSector ┆: ; FIND EVENT: IF T ILOP R0 CIMQUEUE ;T IF ADDR<CIMQUEUE THEN MON REGISTERS ;T JMP SCG90 ;T GOTO SYSTEM STOP; FI ;T SEQ R2 0┆
0x35800…35880 UnusedSector ┆. X0 ; IF EVENT=0.ADDR THEN SOB R0 L0 ; DECR(ADDR); GOTO FIND EVENT; XTR X0 0 ; 0=>0.ADDR; DEC MESSCOUNTS+CIM. X7 ; DECR(CIM.┆
0x35880…35900 UnusedSector ┆MESSCOUNTS); JMP 0. X6 ; RETURN; END ; END CIM ANSWER; ;### ; SYSTEM CONTROL ENTRY POINT; ; SCE00: ; SYSTEM START: MOVC 0 R0 ┆
0x35900…35980 UnusedSector ┆; 0=>COUNT; L0: ; INIT: MOD R0 ; MOV INITTABLE R1 ; COUNT.INITTABLE=>VALUE; ADDC 1 R0 ; INCR(COUNT); MOD R0 ; MOV INITTABLE┆
0x35980…35a00 UnusedSector ┆ R4 ; COUNT.INITTABLE=>ADDRESS; MOV R1 0. X4 ; VALUE=>0.ADDRESS; ADDC 1 R0 ; INCR(COUNT); ILT R0 INITTABLH ; IF COUNT<INITTAB┆
0x35a00…35a80 UnusedSector ┆LELENGTH THEN JMP L0 ; GOTO INIT; SCE10: ; NEXT EVENT: MON WAITEVENT ; WAITEVENT; JMP L3 ; ANSWER: JMP SCG20 ; MESSAGE: GOT┆
0x35a80…35b00 UnusedSector ┆O MESSAGE; L3: ; ANSWER: CONTINUE; IF T MOV 4. X7 R0 ;T SPECIAL.MESSAGE(7:0) XTR R0 8 ;T =>STATENR; IGE R0 BUFCOUNT ;T IF STAT┆
0x35b00…35b80 UnusedSector ┆ENR>=BUFCOUNT THEN JMP L1 ;T GOTO ILLEGAL ANSWER; MOV 4. X7 R0 ;T SPECIAL.MESS(15:8) SRL R0 8 ;T =>DRIVER; IHS R0 MAXDRIVERS┆
0x35b80…35c00 UnusedSector ┆ %T IF DRIVER>=MAXDRIVERS THEN +1 ;T JMP L1 ;T GOTO ILLEGAL ANSWER; FI ;T JMP S6 L2 ; RE.LINK; JMP SCE10 ; GOTO NEXT EVENT; ┆
0x35c00…35c80 UnusedSector ┆L2: ; MOD R0 ; JMPI ANSWERS ; CALL ANSWER PROCEDURE(DRIVER); ; L1: ; ILLEGAL ANSWER: MOV R2 R5 ; SAVE(EVENT); UNS 4 ; MON ┆
0x35c80…35d00 UnusedSector ┆REGISTERS ; DISPLAY WORK; JMP SCE10 ; GOTO NEXT EVENT; ;### ; FUNCTION MESSAGE RECEIVED. ; ; BEGIN USE PROG ; BEGIN TEST MESSA┆
0x35d00…35d80 UnusedSector ┆GE; ENTRY SCG20 ; EXTERNAL SCE10,SCP40,SCP41,SCP10,SCG90,SCP55 EXTERNAL SCP43,SCP50 EXTERNAL SENDMESSAGE,WAITANSWER,SENDANSWER,W┆
0x35d80…35e00 UnusedSector ┆ORK EXTERNAL TLMQ,FSC,TLMQNAME,ERRILLEGAL,ERRTLMQ,MADDRS EXTERNAL BUFCOUNT,STATEREF,SETUPTABLE,SYSFUNCTION,ANSWERS EXTERNAL BMST┆
0x35e00…35e80 UnusedSector ┆ART,BMSTOP,BMSETUP,BNTLM EXTERNAL INPROCEDURE,OUTPROCEDURES ; ; SCG20: ; MESSAGE: IF D MOV 0. X7 R0 ; MON REGISTERS FI ; MON ┆
0x35e80…35f00 UnusedSector ┆SENDANSWER ; SENDANSWER; IEQ X7 BMSTART ; IF OPER.MESS=START THEN JMP L0 ; GOTO START; IEQ X7 BMSTOP ; IF OPER.MESS=STOP THE┆
0x35f00…35f80 UnusedSector ┆N JMP SCG90 ; GOTO SYSTEM STOP MOVC ERRILL R0 ; MESSAGE: ILLEGAL FUNCTION; JMP S6 SCP10 ; JMP SCE10 ; GOTO NEXT EVENT; ; L0┆
0x35f80…36000 UnusedSector ┆: ; START: SOZ SYSFUNCTION-WORK. X7 ; IF ALREADY STARTED THEN JMP SCE10 ; GOTO NEXT EVENT; MOVL 1. X7 R0 ; SYSFUNCTION,ADDRES┆
0x36000…36080 UnusedSector ┆S.MESS MOV R0 SYSFUNCTION; =>0.SYSFUNCTION, MOV R1 SETUPTABLE ; 0.SETUPTABLE; JMP S6 SCP41 ; SETUP FSC; JMP SCG90 ; ERROR: G┆
0x36080…36100 UnusedSector ┆OTO SYSTEM STOP; L1: ; SETUP TLMQ; MOV SYSFUNCTION R0 ; IBZ R0 BNTLM ; JMP L2 ; MOVC BMSETUP X7 ; MOVC TLMQNAME R0 ; MOV ┆
0x36100…36180 UnusedSector ┆R7 R1 ; MON SENDMESSAGE ; MON WAITANSWER ; IF D MOV 0. X7 R0 ; MON REGISTERS FI ; JOZ X7 L2 ; MOVC ERRTLMQ R0 ; JMP S6 SCP┆
0x36180…36200 UnusedSector ┆10 ; JMP SCG90 ; L2: MOVC 0 R3 ; 0=>STATENR; ;### L3: ; NEXTSTATE: MOD R3 ; MOV STATEREF R4 ; STATENR.STATEREF=>STATE; JMP S┆
0x36200…36280 UnusedSector ┆6 SCP40 ; REQUEST INPUT; IF D MON REGISTERS FI ; ADDC 1 R3 ; INCR(STATENR); ILT R3 BUFCOUNT ; IF BUFNR<BUFCOUNT THEN JMP L3 ;┆
0x36280…36300 UnusedSector ┆ GOTO NEXTSTATE; MOVC SCP43 R0 ; FSC STARTUP MOV R0 ANSWERS+FSC; =>FSC.ANSWERS; MOVC SCP40 R0 ; FSCINPUT MOV R0 INPROCEDURE;┆
0x36300…36380 UnusedSector ┆ =>0.INPROCEDURE; MOV SYSFUNCTION R0 ; IBZ R0 BNTLM ; IF NOT SYSFUNCTION[TLM] THEN JMP SCE10 ; GOTO NEXT EVENT; MOVC SCP50 R┆
0x36380…36400 UnusedSector ┆0 ; TLMQ OUTPUT MOV R0 OUTPROCES ; =>0.OUTPROCEDURES; MOVC SCP55 R0 ; TLMQ ANSWER PROCEDURE MOV R0 ANSWES+TLMQ; =>TLMQ.ANSWER┆
0x36400…36480 UnusedSector ┆S; JMP SCE10 ; GOTO NEXT EVENT; ; END ; END MESSAGE; ;### ; SYSTEM STOP ; BEGIN USE PROG ; BEGIN SYSTEM STOP; ENTRY SCG90 ; EX┆
0x36480…36500 UnusedSector ┆TERNAL SCE10,SCP11,SCP39,SCP41 ; EXTERNAL REGRETMESSAGE,SENDMESSAGE,WAITANSWER,WORK EXTERNAL ERRSTOPPED,BUFCOUNT,STATEREF,MESSCO┆
0x36500…36580 UnusedSector ┆UNTS,MAXDRIVERS EXTERNAL CIMQUEUE,CIM,OUTPROCEDURES,BUFSTATE0,STATEADDRS EXTERNAL TLMQNAME,MCOUNT,MADDRS,BMSTOP,SYSFUNCTION,BNTL┆
0x36580…36600 UnusedSector ┆M ; SCG90: ; SYSTEM STOP: IF D MON REGISTERS FI ; MOVC BUFCOUNT R0 ; BUFCOUNT=>COUNT; L0: ; GET STATE: MOD R0 ; MOV STATEREF┆
0x36600…36680 UnusedSector ┆-1 R4 ; COUNT-1.STATEREF=>STATE; MOVC 0 R1 ; 0=>DRIVER; L1: ; GET EVENT: MOD R1 ; MOV 0. X4 R2 ; DRIVER.STATE=>EVENT; JOZ R2┆
0x36680…36700 UnusedSector ┆ L2 ; IF EVENT<>0 THEN ; BEGIN IF D MON REGISTERS FI ; MOD R1 ; CLR 0. X4 ; 0=>DRIVER.STATE; MON REGRETMESSAGE ; REGRETMESSA┆
0x36700…36780 UnusedSector ┆GE; MOD R1 ; DEC MESSCOUNTS+0. X7 ; DECR(DRIVER.MESSCOUNTS; L2: ; END; ADDC 1 R1 ; INCR(DRIVER); INE R1 MAXDRIVERS ; IF DRIV┆
0x36780…36800 UnusedSector ┆ER<>MAXDRIVERS THEN JMP L1 ; GOTO GET EVENT; SOB R0 L0 ; IF DECR(COUNT)<>0 THEN ; GOTO GET STATE; MOV SYSFUNCTION R0 ; IBZ ┆
0x36800…36880 UnusedSector ┆R0 BNTLM ; JMP L3 ; CLR MCOUNT.X7 ; 0=>COUNT.MESS; MOVC BMSTOP X7 ; STOP=>OPER.MESS; MOV BUFSTATE0+STATES R0 ; STATEADDRS.BU┆
0x36880…36900 UnusedSector ┆FSTATE0 MOV R0 MADDRS.X7 ; =>ADDRS.MESS; MOV R7 R1 ; MOVC TLMQNAME R0 ; RE.NAME; MON SENDMESSAGE ; SENDMESSAGE(NAME,MESS); ┆
0x36900…36980 UnusedSector ┆MON WAITANSWER ; WAITANSWER; L3: ; JMP S6 SCP41 ; SETUP FSC; NOP ; ERROR: IGNORE; MOVC SCP39 R0 ; DUMMY PROCEDURE MOV R0 OUT┆
0x36980…36a00 UnusedSector ┆PROCES ; =>0.OUTPROCEDURES; MOVC ERRSTOPPED R0 ; MESSAGE: SYSTEM STOPPED; JMP S6 SCP11 ; IF D MON REGISTERS FI ; CLR SYSFUNCT┆
0x36a00…36a80 UnusedSector ┆ION-WORK. X7 ; 0=>0.SYSFUNCTION; JMP SCE10 ; GOTO NEXT EVENT; END ; END SYSTEM STOP; END ; END SYSTEM CONTROL; ;### XPRPC= SCE0┆
0x36a80…36b00 UnusedSector ┆0 XREFS= 4 XBUFS= 14 NOLIST MESSAGE <:END OF USER MODULE:> USE PROG XDEVPR= 0 XPSIZE= LOC USE BASE XCURIN= LOC 0,REPEAT CURSOUT-┆
0x36b00…36b80 UnusedSector ┆CURSIN-1 XCUROUT= LOC 0,REPEAT 4 XWORKING=0, XPROGRAM=LOC XWORDS=0, XREFSX=0, XBUFSX=0, XCURWORK=0, XCENTRY=0 XSIZE= LOC+C USE P┆
0x36b80…36c00 UnusedSector ┆ROG IF LOC+XSIZE NE WORDS THEN MESSAGE <:SIZE <> WORDS:> MESSAGE WORDS MESSAGE XSIZE FI LIST END CURIN= LOC 0,REPEAT CURSOUT-┆
0x36c00…36c80 UnusedSector ┆AT REFLENGTH-4 ELSE 0 REPEAT REFLENGTH-1 FI XREFS=XREFS-1 IF XREFS GT 0 THEN 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 ┆
0x36c80…36d00 UnusedSector ┆ELSE 0 REPEAT REFLENGTH-1 FI XREFS=XREFS-1 IF XREFS GT 0 THEN 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 ELSE 0 REPEAT R┆
0x36d00…36d80 UnusedSector ┆EFLENGTH-1 FI XREFS=XREFS-1 IF XREFS GT 0 THEN 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 ELSE 0 REPEAT REFLENGTH-1 FI ┆
0x36d80…36e00 UnusedSector ┆XREFS=XREFS-1 IF XREFS GT 0 THEN 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 ELSE 0 REPEAT REFLENGTH-1 FI XREFS=XREFS-1 I┆
0x36e00…36e80 UnusedSector ┆F XREFS GT 0 THEN 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 ELSE 0 REPEAT REFLENGTH-1 FI XREFS=XREFS-1 IF XREFS GT 0 THE┆
0x36e80…36f00 UnusedSector ┆N 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 ELSE 0 REPEAT REFLENGTH-1 FI XREFS=XREFS-1 IF XREFS GT 0 THEN 0,0,LOC+REFLE┆
0x36f00…36f80 UnusedSector ┆NGTH-NEXT,0 REPEAT REFLENGTH-4 ELSE 0 REPEAT REFLENGTH-1 FI FI IF XBUFS EQ 0 THEN XBUFSX=0 ELSE XBUFSX: XBUFS=XBUFS-1 IF┆
0x36f80…37000 UnusedSector ┆ XBUFS GT 0 THEN 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 ELSE 0 REPEAT BUFLENGTH-1 FI XBUFS=XBUFS-1 IF XBUFS GT 0 THEN┆
0x37000…37080 UnusedSector ┆ 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 ELSE 0 REPEAT BUFLENGTH-1 FI XBUFS=XBUFS-1 IF XBUFS GT 0 THEN 0,0,LOC+BUFLEN┆
0x37080…37100 UnusedSector ┆GTH-NEXT,0 REPEAT BUFLENGTH-4 ELSE 0 REPEAT BUFLENGTH-1 FI XBUFS=XBUFS-1 IF XBUFS GT 0 THEN 0,0,LOC+BUFLENGTH-NEXT,0 REPEA┆
0x37100…37180 UnusedSector ┆T BUFLENGTH-4 ELSE 0 REPEAT BUFLENGTH-1 FI XBUFS=XBUFS-1 IF XBUFS GT 0 THEN 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 E┆
0x37180…37200 UnusedSector ┆LSE 0 REPEAT BUFLENGTH-1 FI XBUFS=XBUFS-1 IF XBUFS GT 0 THEN 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 ELSE 0 REPEAT BU┆
0x37200…37280 UnusedSector ┆FLENGTH-1 FI XBUFS=XBUFS-1 IF XBUFS GT 0 THEN 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 ELSE 0 REPEAT BUFLENGTH-1 FI X┆
0x37280…37300 UnusedSector ┆BUFS=XBUFS-1 IF XBUFS GT 0 THEN 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 ELSE 0 REPEAT BUFLENGTH-1 FI XBUFS=XBUFS-1 IF┆
0x37300…37380 UnusedSector ┆ XBUFS GT 0 THEN 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 ELSE 0 REPEAT BUFLENGTH-1 FI FI FI XSIZE= LOC-ITEM XPROGRA┆
0x37380…37400 UnusedSector ┆M= LOC USE PROG IF LOC+XSIZE NE WORDS THEN MESSAGE <:ERROR: LOC+XSIZE<>WORDS:> FI IF XPD NE PROGLENGTH THEN USE BASE FI LIST E┆
0x37400…37480 UnusedSector ┆ND T 0 THEN 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 ELSE 0 REPEAT BUFLENGTH-1 FI FI FI XSIZE= LOC-ITEM XPROGRA┆
0x37480…37500 UnusedSector ┆5 ; CIO R1 R5 ; MOVC FL2 R5 ; FRAMELENGTHLSB => *FRAMELLSB*; ADD R2 R5 ; CIO R0 R5 ; IF TST MON REGISTERS ; MON GIVEUPTIME ┆
0x37500…37580 UnusedSector ┆FI ; ;---------------------------------- ;### ; ;>--------------------------------< ;> CHECK SYNCWORDLENGTH < ;>------------┆
0x37580…37600 UnusedSector ┆--------------------< MOV R6 R4 ; ADR => ADR2; ADDC SYNCST R4 ; ADR2+SYNCSTART => ADR2; MOV SYNCWL.X6 R1 ; SYNCWL.ADR => SYNC┆
0x37600…37680 UnusedSector ┆L; ADDC 15 R1 ; SYNCL+15 => SYNCL; SRL R1 4 ; SYNCL DIV 16 => SYNCL; MOV SCOUNT R0 ; 0.SCOUNT => COUNT; SRL R0 1 ; COUNT DIV┆
0x37680…37700 UnusedSector ┆PT: MOVC 255 R0 ; 2.55 SEC => DELAY; MOV INTERRUPT-C R1 ; MON WAITINTERRUPT ; WAITINTERRUPT; JMP INTSLOW ; TIMEOUT: GOTO SLO┆
0x37700…37780 UnusedSector ┆W; SOB R3 WINT ; INTERRUPT: IF DECR(COUNT)>0 THEN ; GOTO NEW INTERRUPT JMP START ; ELSE GOTO START; INTSLOW: ; SLOW: JMP S6 ┆
0x37780…37800 UnusedSector ┆INTTXT ; <:TOO SLOW INTERRUPT RATE<0>:> INTTXT: MOV CUROUT-C R4 ; MON OUTTEXTP ; JMP START ; ; ; ; INVERT: ; SET INVERTED ┆
0x37800…37880 UnusedSector ┆DEVICE COMM.: MOVC MODE R0 ; MODE => ADR; MOVC #FFFF R1 ; #FFFF => BITS; MODC #0001 ; #0001 => MASK; PUT R1 X0 ; PUT BITS MA┆
0x37880…37900 UnusedSector ┆SKED INTO 0.ADR; JMP START ; GOTO START; ; ; NONINVERT: ; SET NONINVERTED DEVICE COMM.: MOVC MODE R0 ; MODE => ADR; MOVC 0 ┆
0x37900…37980 UnusedSector ┆R1 ; 0 => BITS; MODC #0001 ; #0001 => MASK; PUT R1 X0 ; PUT BITS MASKED INTO 0.ADR; JMP START ; GOTO START ; ; READWRITE: ;┆
0x37980…37a00 UnusedSector ┆ SET READWRITE DEVICE COMM.: MOVC MODE R0 ; MODE => ADR; MOVC 0 R1 ; 0 => BITS; MODC #0002 ; #0002 => MASK; PUT R1 X0 ; PUT ┆
0x37a00…37a80 UnusedSector ┆BITS MASKED INTO 0.ADR; JMP START ; GOTO START; ; ; SENSECONTROL: ; SET SENSECONTROL DEVICE COMM.: MOVC MODE R0 ; MODE => AD┆
0x37a80…37b00 UnusedSector ┆R; MOVC #FFFF R1 ; #FFFF => BITS; MODC #0002 ; #0002 => MASK; PUT R1 X0 ; PUT BITS MASKED INTO 0.ADR; JMP START ; GOTO START┆
0x37b00…37b80 UnusedSector ┆; FI LOCAC: ; MOV R0 SAVE0 ; MOV CAUSE-C R0 ; IEQP R0 0 ; MOV SAVE0 R0 ; JMPI LOCA ; JMP S6 LOCTXT ; <:<10>CAUSE:<0>:> L┆
0x37b80…37c00 UnusedSector ┆OCTXT: ; MOV CUROUT-C R4 ; MON OUTTEXTP ; MOV R0 R4 ; JMPI S5 IHEXOUT ; MOVC 0 R0 ; LDS R0 ; MOV SAVE0 R0 ; JMP START ; ┆
0x37c00…37c80 UnusedSector ┆ NOP ; USE BASE END XPRPC= FIRST XREFS=2 XBUFS=2 NOLIST $S8MXP2 LIST END MPI LOCA ; JMP S6 LOCTXT ; <:<10>CAUSE:<0>:> L┆
0x37c80…37d00 UnusedSector ┆ ;> SETUP OF MASK < ;>--------------------------------< MOVC MAS+CPUS R3 ; MASK => *PATH*; MOVC DPC R4 ; CPU => *SOURCE*; A┆
0x37d00…37d80 UnusedSector ┆DD R2 R4 ; INV R3 ; CIO R3 R4 ; MOV SYNCWL.X6 R1 ; SYNCWL.ADR => SYNCL; MOV R1 R3 ; SYNCL => REST; SRL R1 3 ; SYNCL DIV 8 =┆
0x37d80…37e00 UnusedSector ┆> SYNCL; MOV R1 R4 ; SYNCL => SSYNCL; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; MOVC 0 R7 ; #FF => DATA; MASKLOOP0: ; FOR I ┆
0x37e00…37e80 UnusedSector ┆:= 1 UNTIL SSYNCL DO CIO R7 R5 ; DATA => *DATA*; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; MOVC 0 R7 ; SOB R4 MASKL0 ; MOV┆
0x37e80…37f00 UnusedSector ┆ SCOUNT R0 ; 0.SCOUNT => COUNT; IGE R1 R0 ; IF SYNCL < COUNT DO JMP SETUP3 ; BEGIN XTR R3 3 ; #FF SHIFT IF TST MON REGISTERS ┆
0x37f00…37f80 UnusedSector ┆; MON GIVEUPTIME FI ; MOVC #FF R7 ; RIGHT MOD R3 ; (8-SYNCL REM 8) SRL R7 0 ; => CIO R7 R5 ; *DATA*; IF TST MON REGISTERS ;┆
0x37f80…38000 UnusedSector ┆ MON GIVEUPTIME FI ; SUB R1 R0 ; COUNT-SYNCL => COUNT; ADDC -1 R0 ; COUNT-1 => COUNT; ILT R0 1 ; IF COUNT >= 1 THEN JMP SET┆
0x38000…38080 UnusedSector ┆UP3 ; BEGIN MOVC #FF R7 ; 0 => DATA; MASKLOOP1: ; FOR I:=1 UNTIL COUNT DO CIO R7 R5 ; DATA => *DATA*; IF TST MON REGISTERS ; ┆
0x38080…38100 UnusedSector ┆MON GIVEUPTIME FI ; MOVC #FF R7 ; SOB R0 MASKL1 ; END; SETUP3: ; END; ;---------------------------------- ;### ; ;>---------┆
0x38100…38180 UnusedSector ┆-----------------------< ;> SETUP OF LOCKMODE, SORTPAR < ;> WINDOWSIZE, THRESHOLD AND < ;> DATAPATH < ;>--------------------┆
0x38180…38200 UnusedSector ┆------------< MOV R6 R5 ; ADR => ADR1; MOVC 0 R6 ; 0 => MOV R6 MODER ; 0.MODEREGISTER; MOV LOCKME.X5 R7 ; LOCKMODE.ADR1 => F┆
0x38200…38280 UnusedSector ┆IELDVAL; MOVC 0 R4 ; 0 => FIELDNO; JMPI S6 LSETPAE ; SETPARINMODE; MOV SORTPR.X5 R7 ; SORTPAR.ADR1 => FIELDVAL; MOVC 5 R4 ; ┆
0x38280…38300 UnusedSector ┆5 => FIELDNO; JMPI S6 LSETPAE ; SETPARINMODE; MOV WZ. X5 R7 ; WZ.ADR1 => FIELDVAL; MOVC 6 R4 ; 6 => FIELDNO; JMPI S6 LSETPAE┆
0x38300…38380 UnusedSector ┆ ; SETPARINMODE; MOV SYNCWL.X5 R0 ; SYNCWL.ADR1 => W; MOV FTHR. X5 R4 ; FALSETHR.ADR1 => FT; SUB R4 R0 ; W-FALSETHR.ADR1 => W┆
0x38380…38400 UnusedSector ┆; XTR R0 8 ; W*256 SWP R0 ; => W; ADD TTHR. X5 R0 ; W+TRUETHR.ADR1 => W; INV R0 ; MOVC THR R4 ; ADD R2 R4 ; CIO R0 R4 ; W┆
0x38400…38480 UnusedSector ┆ => *THRESHOLD*; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; MOV BITSYC.X5 R0 ; SLL R0 2 ; INV R0 ; MOVC DPC R4 ; ADD R2 R4┆
0x38480…38500 UnusedSector ┆ ; BITSYNC.ADR1 => SOURCE; CIO R0 R4 ; ADDC -DAT R0 ; DATA => *PATH*; CIO R0 R4 ; IF TST MON REGISTERS ; MON GIVEUPTIME FI ;┆
0x38500…38580 UnusedSector ┆ ;---------------------------------- ;### ; ;>--------------------------------< ;> SETUP OF CONDITION BITS < ;>-------------┆
0x38580…38600 UnusedSector ┆-------------------< MOVC MODER R5 ; MOVC #FFFF R0 ; MODC DM ; 1 => D (IN *MODE*); PUT R0 X5 ; MODC S1M ; 1 => S1 (IN *MODE┆
0x38600…38680 UnusedSector ┆*); PUT R0 X5 ; MODC S2M ; 1 => S2 (IN *MODE*); PUT R0 X5 ; MOV X5 R3 ; INV R3 ; CIO R3 R2 ; IF TST MON REGISTERS ; MON G┆
0x38680…38700 UnusedSector ┆IVEUPTIME FI ; ;>--------------------------------< ;> DIVERSE INITIALISATION < ;>--------------------------------< MOVC 1 R0┆
0x38700…38780 UnusedSector ┆ ; 1 => MOV R0 MINBUF ; 0.MINBUF; MOV R0 NEVERT ; 1 => NEVERADDRESSENT; MOV BUFIN R0 ; 0.BUFIN IF TST MON REGISTERS ; MON GI┆
0x38780…38800 UnusedSector ┆VEUPTIME FI ; MOV R0 BUFCUR ; => 0.BUFCUR; MOVC 0 R0 ; 0 => MOV R0 SUM ; 0.SUM; MOV R0 POINTER ; 0 => 0.POINTER; MOV R0 LCK┆
0x38800…38880 UnusedSector ┆STT ; 0 => 0.LOCKSTATE; MOV R0 BUFCOUNT3 ; 0 => 0.BUFCOUNT3; ;---------------------------------- MOV INTERT-C R1 ; MON CLEAR┆
0x38880…38900 UnusedSector ┆INTERRUPT ; CLEAR INTERRUPTS; MOV SBLOCKD R0 ; BLOCKED => MOV R0 STATE ; 0.STATE; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; ┆
0x38900…38980 UnusedSector ┆ JMPI SAVE0 ; RETURN; ; ; ;...................................................................... ;### ;......................┆
0x38980…38a00 UnusedSector ┆................................................ ;INTERRUPT HANDLING UNDER TRANSPUT ;...........................................┆
0x38a00…38a80 UnusedSector ┆........................... ;SERVES THE INTERRUPTS FROM THE FRAME SYNCHRONIZER. ;IF THE DRIVER IS ABOUT TO RUN OUT OF MESSAGES, ┆
0x38a80…38b00 UnusedSector ┆THE 'EMPTY' STATE ;IS ENTERED, WHERE EVENTS ARE WAITED FOR, AND IF THE EVENT IS A ;DMA-INTERRUPT, THE LAST MESSAGE IN THE MESSAG┆
0x38b00…38b80 UnusedSector ┆E-BUFFER IS ANSWERED ;'OUT-OF-MESSAGES'. IF THE EVENT IS A MESSAGE WITH FUNCTION ;'TRANSMIT', THE DMA-ADDRESS IS SENT TO THE FRA┆
0x38b80…38c00 UnusedSector ┆ME SYNCHRONIZER ;AND THE 'EMPTY' STATE IS LEFT ;...................................................................... ; CALL EX┆
0x38c00…38c80 UnusedSector ┆IT ; ;R2 DESTROYED ;R3 DESTROYED ;R4 DESTROYED ;R5 DESTROYED ;R6 LINK DESTROYED ;R7 DESTROYED ;.................................┆
0x38c80…38d00 UnusedSector ┆..; ; TRANIT: ; HANDLE INTERRUPT: MOV R6 SAVE0 ; SAVE (LINK) MOV DEVPR-C R6 ; CASE XTR R6 2 ; PRI IF TST MON REGISTERS ; MO┆
0x38d00…38d80 UnusedSector ┆N GIVEUPTIME FI ; MOD R6 ; + 1 JMP LOC + 1 ; OF JMP TRAPR0 ; JMP TRAPR1 ; JMP TRAPR2 ; JMP TRAPR2 ; BEGIN ;### ; TRAPR0: ;┆
0x38d80…38e00 UnusedSector ┆ BEGIN ;>--------------------------------< ;> FRAME BOUNDARY INTERRUPT < ;>--------------------------------< JMPI S6 LUPDATS┆
0x38e00…38e80 UnusedSector ┆ ; UPDATETABLES; JMP TRAUNL ; JMPI SAVE0 ; IF UNLOCKED THEN TRAUNL: ; BEGIN JMPI S5 LPULLDOWN ; PULLDOWN; JMPI S5 LOUTBUF ; ┆
0x38e80…38f00 UnusedSector ┆OUTBUF; MON REGISTERS ; MOV POINTER R5 ; 0.POINTER => W; JON R5 TRAUN2 ; IF W = 0 THEN MOV SETUPE R5 ; BLOCKLENGTH.SETUPTABL┆
0x38f00…38f80 UnusedSector ┆E MOV BLOCKT.X5 R5 ; => W; TRAUN2: ; MOV R5 ANSW+1 ; W => 1.ANSWER; MOVC UNLOCKED R7 ; UNLOCKED => ANSWCODE; JMPI S5 LANSWER┆
0x38f80…39000 UnusedSector ┆ ; ANSWER (ANSWCODE); MOV SYNCLENGTH R4 ; 0.SYNCLENGTH => P; NEG R4 ; 0-P => P; MOV R4 POINTER ; P => 0.POINTER; MOVC 3 R7 ;┆
0x39000…39080 UnusedSector ┆ MOVC 3 R4 ; JMPI S6 LSETPAE ; 3 => *WRITEEXEC*; JMP TUNLOCKED ; GOTO UNLOCKED; ; END; ;---------------------------------- ┆
0x39080…39100 UnusedSector ┆ ; END; ;### ; TRAPR1: ; BEGIN ;>--------------------------------< ;> DMA-INTERRUPT < ;>--------------------------------< JO┆
0x39100…39180 UnusedSector ┆Z R0 TRANI3 ; IF INTERRUPTCOUNT >= 0 THEN JMP TRANI0 ; GOTO SYSTEM TOO SLOW; TRANI3: ; MOVC BUFCOUNT3 R6 ; BUFCOUNT3 => ADD; ┆
0x39180…39200 UnusedSector ┆DEC 0. X6 ; DECR (0.ADD); MOV BUFCOUNT2 R3 ; IF 0.BUFCOUNT2 IF TST MON REGISTERS ; MON GIVEUPTIME FI ; IGE R3 1 ; <= 0 THEN ┆
0x39200…39280 UnusedSector ┆JMP TRANI2 ; BEGIN MOV SEMPTY R3 ; MOV R3 STATE ; EMPTY => 0.STATE; EMPTY: ; EMPTY: IF SLOW MODC #4000 FI ; MOVC 100 R0 ; 1 S┆
0x39280…39300 UnusedSector ┆EC => DELAY; MON SETDELAY ; MOV INTERT-C R1 ; MON SETINTERRUPT ; MON WAITEVENT ; WAITEVENT; JMP TTIMEOUT ; TIMEOUT: GOTO TI┆
0x39300…39380 UnusedSector ┆MEOUT; JMP TREATR ; JMP TRAMES ; MOV DEVPR-C R6 ; INTERRUPT: XTR R6 2 ; IF PRI <> 1 THEN IF TST MON REGISTERS ; MON GIVEUPT┆
0x39380…39400 UnusedSector ┆IME FI ; IEQ R6 1 ; BEGIN JMP TRANI0 ; IF PRI = 0 THEN INE R6 0 ; BEGIN JMP TRANI1 ; JMPI S6 LUPDATS ; UPDATETABLES; JMP T┆
0x39400…39480 UnusedSector ┆RAUN1 ; IF UNLOCKED THEN JMP EMPTY ; BEGIN TRAUN1: JMPI S5 LPULLDOWN ; PULLDOWN; JMPI S5 LOUTBUF ; OUTBUF; MON REGISTERS ; M┆
0x39480…39500 UnusedSector ┆OV POINTER R5 ; 0.POINTER => W; JOZ R5 TRAUN3 ; IF W = 0 THEN MOV SETUPE R5 ; BLOCKLENGTH. MOV BLOCKT.X5 R5 ; SETUPTABLE => W┆
0x39500…39580 UnusedSector ┆; TRAUN3: ; MOV R5 ANSW+1 ; W => 1.ANSWER; MOVC UNLOCKED R7 ; JMPI S5 LANSWER ; ANSWER (UNLOCKED); MOV SYNCLENGTH R4 ; 0.SYN┆
0x39580…39600 UnusedSector ┆CLENGTH => P; NEG R4 ; 0-P => P; MOV R4 POINTER ; P => 0.POINTER; MOVC 3 R7 ; MOVC 3 R4 ; JMPI S6 LSETPAE ; 3 => *WRITEEXEC┆
0x39600…39680 UnusedSector ┆*; JMP TUNLOCKED ; GOTO UNLOCKED; ; END ; ELSE GOTO EMPTY; ; END; ;### ; TRANI1: ; BEGIN MOV R6 R4 ; MOVC ERROR R2 ; MOV ┆
0x39680…39700 UnusedSector ┆FSCDEV R5 ; SIO R3 R5 ; INV R3 ; IF NOT P.M.F.ONLY JMPI S5 LCHECKERR ; THEN JMP ERRORC ; ERR.FUNC(PRI,STATUS); JMP EMPTY ; ┆
0x39700…39780 UnusedSector ┆GOTO EMPTY; ; END; ; END; TRANI0: ; SYSTEM TOO SLOW: MOVC BUFCOUNT3 R6 ; BEGIN DEC 0. X6 ; DECR (0.BUFCOUNT3); MOVC OUTOFME┆
0x39780…39800 UnusedSector ┆SS R2 ; ERRORFUNC (OUTOFMESS); JMP ERRORC ; END; TRAMES: ; MESSAGE: JMPI S6 LINBUF ; INBUF; MOV X7 R1 ; IF OPERATION <> TRANS┆
0x39800…39880 UnusedSector ┆MIT XTR R1 4 ; INE R1 FTRANT ; THEN JMP GOTOFUNC ; GOTO FUNCTION; JMPI S6 LSENDBUF ; SENDBUF; MOV STRANSG R6 ; TRANSMITTING┆
0x39880…39900 UnusedSector ┆ => MOV R6 STATE ; 0.STATE; JMPI SAVE0 ; END TRANI2: ; ELSE JMPI S6 LSENDBUF ; SENDBUF; ;---------------------------------- ┆
0x39900…39980 UnusedSector ┆ JMPI SAVE0 ; END; ;>--------------------------------< ;> ERROR-INTERRUPTS < ;>--------------------------------< TRAPR2: MOVC┆
0x39980…39a00 UnusedSector ┆ ERROR R2 ; MOV FSCDEV R5 ; SIO R3 R5 ; INV R3 ; MOV R6 R4 ; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; JMPI S5 LCHECKERR┆
0x39a00…39a80 UnusedSector ┆ ; IF NOT POS.MEM.FULL THEN JMP ERRORC ; ERRORFUNC(ERROR,STATUS); ;---------------------------------- TRAOUT: ; END; IF TST MO┆
0x39a80…39b00 UnusedSector ┆N REGISTERS ; MON GIVEUPTIME FI ; JMPI SAVE0 ; RETURN ; ; ;.................................................................┆
0x39b00…39b80 UnusedSector ┆..... ;### ;...................................................................... ;GOTOFUNCTION ; CALL EXIT ; ;R1 OPERATION FUN┆
0x39b80…39c00 UnusedSector ┆CTION ;...................................; ; GOTOFUNC: ; XTR R1 4 ; MOD R1 ; CASE FUNCTION OF JMP LOC+1 ; BEGIN JMP DUMMYF┆
0x39c00…39c80 UnusedSector ┆UNC ; 0: GOTO DUMMYFUNC; JMP DUMMYC ; 1: GOTO DUMMYFUNC; JMP DUMMYC ; 2: GOTO DUMMYFUNC; JMP SETUP ; 3: GOTO SETUP; JMP TRAN┆
0x39c80…39d00 UnusedSector ┆SMIT ; 4: GOTO TRANSMIT; JMP DUMMYC ; 5: GOTO DUMMYFUNC; JMP DUMMYC ; 6: GOTO DUMMYFUNC; JMP DUMMYC ; 7: GOTO DUMMYFUNC; JMP┆
0x39d00…39d80 UnusedSector ┆ DUMMYC ; 8: GOTO DUMMYFUNC; JMP DUMMYC ; 9: GOTO DUMMYFUNC; JMP DUMMYC ; 10: GOTO DUMMYFUNC; JMP DUMMYC ; 11: GOTO DUMMYFUNC┆
0x39d80…39e00 UnusedSector ┆; JMP DUMMYC ; 12: GOTO DUMMYFUNC; JMP DUMMYC ; 13: GOTO DUMMYFUNC; JMP DUMMYC ; 14: GOTO DUMMYFUNC; JMP DUMMYC ; 15: GOTO D┆
0x39e00…39e80 UnusedSector ┆UMMYFUNC; ; END; ; ; ;...................................................................... ;### ;--------------------------┆
0x39e80…39f00 UnusedSector ┆-------------------------------------------- ; ; MAINPROGRAM ; ;----------------------------------------------------------------┆
0x39f00…39f80 UnusedSector ┆------ ; INITIALIZING SEQUENCE ;---------------------------------------------------------------------- INIT: ; INIT: IF TST THE┆
0x39f80…3a000 UnusedSector ┆N MOVC RNAME R0 ; RNAME => MOV R0 WRK-1-C ; 0.RNAME; FI IF N THEN MOVC <:FS:> R0 ; "FSC" => NAME; MOV R0 NAME-C ; MOVC <:C:┆
0x3a000…3a080 UnusedSector ┆> R0 ; MOV R0 NAME+1-C ; FI MOVC FSCDEVNO R0 ; MOV R0 FSCDEV ; SLL R0 2 ; MOV R0 DEVPR-C ; MON INITDEVICE ; INITDEVICE; M┆
0x3a080…3a100 UnusedSector ┆OVC 0 R0 ; IF N THEN MOV R0 NAME+2-C ; FI MOV R0 CONFIG ; 0 => 0.CONFIG; MOV R0 BUFCOUNT1 ; 0 => 0.BUFCOUNT1; MOV R0 BUFCOUN┆
0x3a100…3a180 UnusedSector ┆T2 ; 0 => 0.BUFCOUNT2; MOV LOCACN-C R0 ; 0.LOCACN => WK; MOV R0 LOCA ; WK => 0.LOCA; MOVC LOCAC R0 ; LOCAC => ADR; MOV R0 LO┆
0x3a180…3a200 UnusedSector ┆CACN-C ; ADR => 0.LOCACN; MOVC BUFPL0 R0 ; MOV R0 BUFIN ; BUFPL0 => 0.BUFIN; MOV R0 BUFOUT ; BUFPL0 => 0.BUFOUT; MOV SSTART ┆
0x3a200…3a280 UnusedSector ┆R1 ; MOV R1 STATE ; START => STATE; ; ; ;---------------------------------------------------------------------- ;### ;-------┆
0x3a280…3a300 UnusedSector ┆--------------------------------------------------------------- ; START STATE - WAIT FOR SETUP-MESSAGE ;------------------------┆
0x3a300…3a380 UnusedSector ┆---------------------------------------------- START: ; START: MOV INTERT-C R1 ; MON SETINTERRUPT ; SETINTERRUPT; MON WAITEV┆
0x3a380…3a400 UnusedSector ┆ENT ; WAITEVENT; JMP TREATR ; ANSWER: ILLEGAL; JMP STARTM ; JMP START ; INTERRUPT: GOTO START; STARTM: ; MESSAGE: JMPI S6 LI┆
0x3a400…3a480 UnusedSector ┆NBUF ; INBUF; MOV X7 R1 ; IF FUNCTION XTR R1 4 ; <> SETUP IF TST MON REGISTERS ; MON GIVEUPTIME FI ; IEQ R1 FSETUP ; THEN J┆
0x3a480…3a500 UnusedSector ┆MP SETUP ; BEGIN JMPI S5 LOUTBUF ; OUTBUF; MON REGISTERS ; IF EMPTY SOFTWARE ERROR; MOVC ILLEGAL R7 ; ILLEGAL => ANSWCODE; J┆
0x3a500…3a580 UnusedSector ┆MPI S5 LANSWER ; ANSWER (ANSWCODE); JMP START ; GOTO START; ; END; ; ; ;----------------------------------------------------┆
0x3a580…3a600 UnusedSector ┆------------------ ;### ;---------------------------------------------------------------------- ; FUNCTION SETUP ;--------------┆
0x3a600…3a680 UnusedSector ┆-------------------------------------------------------- SETUP: ; MOV 2. X7 R5 ; 2.WORK => ADRABS; MOVC BAS R4 ; BAS => AD; ┆
0x3a680…3a700 UnusedSector ┆SUB X4 R5 ; ADRABS-0.AD => ADDRESS; MOV R5 SETUPE ; ADDRESS => 0.SETUPTABLE; MOV 3. X7 R3 ; 3.WORK => SETAD; MOV R3 SETADR ; ┆
0x3a700…3a780 UnusedSector ┆SETAD => 0.SETADR; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; JMPI S6 LDOSETUP ; DO SETUP; MOVC NOTDONE R4 ; JMPI S6 LEMPTYB┆
0x3a780…3a800 UnusedSector ┆UF ; EMPTYBUF (NOT DONE); MON REGISTERS ; IF EMPTY SOFTWARE ERROR; MOV SYNCLH R2 ; 0.SYNCLENGTH MOVC ANSW R6 ; => MOV R2 1. ┆
0x3a800…3a880 UnusedSector ┆X6 ; COUNT.ANSWER; MOVC DONE R7 ; JMPI S5 LANSWER ; ANSWER (DONE); ; ; ;----------------------------------------------------┆
0x3a880…3a900 UnusedSector ┆------------------ ;### ;---------------------------------------------------------------------- ; BLOCKED STATE - WAIT FOR ALL M┆
0x3a900…3a980 UnusedSector ┆ESSAGES ;---------------------------------------------------------------------- BLOCKED: ; MOV INTERT-C R1 ; MON SETINTERRUPT┆
0x3a980…3aa00 UnusedSector ┆ ; SETINTERRUPT; MON WAITEVENT ; WAITEVENT; JMP TREATR ; ANSWER: ILLEGAL; JMP BLOCKS ; JMP BLOCKED ; INTERRUPT: GOTO BLOCKED┆
0x3aa00…3aa80 UnusedSector ┆; BLOCKEDMS: ; MESSAGE: JMPI S6 LINBUF ; INBUF; MOV X7 R1 ; 0.WORK => OPERATION; JMP GOTOFUNC ; GOTO FUNCTION; ; ; ;-------┆
0x3aa80…3ab00 UnusedSector ┆--------------------------------------------------------------- ;### ;----------------------------------------------------------┆
0x3ab00…3ab80 UnusedSector ┆------------ ; FUNCTION TRANSMIT ;---------------------------------------------------------------------- TRANSMIT: ; MOV STATE┆
0x3ab80…3ac00 UnusedSector ┆ R7 ; MOV R7 OLDSTATE ; 0.STATE => 0.OLDSTATE; MOV SCOLLEG R7 ; MOV R7 STATE ; COLLECTING => 0.STATE; MOV NEVERT R6 ; IF TST┆
0x3ac00…3ac80 UnusedSector ┆ MON REGISTERS ; MON GIVEUPTIME FI ; INE R6 1 ; IF 0.NEVERADRSENT = 1 THEN JMP COLLEG ; BEGIN MOVC 0 R6 ; 0 => MOV R6 NEVER┆
0x3ac80…3ad00 UnusedSector ┆T ; 0.NEVERADRSENT; JMPI S6 LSENDBUF ; SENDBUF; MOV SETUPE R6 ; 0.SETUPTABLE => ADR; MOV FORMAT.X6 R1 ; FORMAT.ADR => W; SLL┆
0x3ad00…3ad80 UnusedSector ┆ R1 12 ; W<12 => W; MOV BLOCKT.X6 R2 ; BLOCKLENGTH.ADR => W1; ADD R2 R1 ; W1+W => W; IF TST MON REGISTERS ; MON GIVEUPTIME FI┆
0x3ad80…3ae00 UnusedSector ┆ ; MOV FSCDEV R6 ; ADDC BLLFOS R6 ; INV R1 ; CIO R1 R6 ; W => *BLOCKLENGTHFORMAT*; MOV INTERT-C R1 ; MOVC 10 R0 ; MON WAI┆
0x3ae00…3ae80 UnusedSector ┆TINTERRUPT ; WAITINTERRUPT; JMP NOREPLY ; IF TIMEOUT THEN GOTO NOREPLY; MOV DEVPR-C R2 ; IF PRI XTR R2 2 ; <> IF TST MON REGI┆
0x3ae80…3af00 UnusedSector ┆STERS ; MON GIVEUPTIME FI ; IEQ R2 1 ; 1 THEN JMP TRANS0 ; BEGIN MOV R2 R4 ; PRI => PRIO; MOVC ERROR R2 ; MOV FSCDEV R5 ; ┆
0x3af00…3af80 UnusedSector ┆ SIO R3 R5 ; ERRORFUNC(ERROR,STATUS); INV R3 ; JMP ERRORC ; END; TRANS0: ; END; JOZ R0 COLLEG ; IF INTERRUPTCOUNT >= 0 THEN ┆
0x3af80…3b000 UnusedSector ┆JMP TRANI0 ; GOTO SYSTEM TOO SLOW; ; ; ;---------------------------------------------------------------------- ;### ;---------┆
0x3b000…3b080 UnusedSector ┆------------------------------------------------------------- ; STATE COLLECTING ;----------------------------------------------┆
0x3b080…3b100 UnusedSector ┆------------------------ COLLECTING: ; COLLECTING: MOV INTERT-C R1 ; MON SETINTERRUPT ; SETINTERRUPT; MON WAITEVENT ; WAITEV┆
0x3b100…3b180 UnusedSector ┆ENT; JMP TREATR ; ANSWER: ILLEGAL; JMP COLLMS ; MOVC ERROR R2 ; INTERRUPT: MOV FSCDEV R5 ; SIO R3 R5 ; ERRORFUNC (ERROR,STA┆
0x3b180…3b200 UnusedSector ┆TUS); MOV DEVPR-C R4 ; XTR R4 2 ; INV R3 ; JMP ERRORC ; COLLMS: ; MESSAGE: JMPI S6 LINBUF ; INBUF; MOV X7 R1 ; XTR R1 4 ;┆
0x3b200…3b280 UnusedSector ┆ IF FUNCTION <> INE R1 FTRANT ; TRANSMIT THEN JMP GOTOFC ; GOTO FUNCTION; MOVC BUFCO1 R5 ; IF 0.BUFCOUNT1 MOVC MINBUF R4 ; <┆
0x3b280…3b300 UnusedSector ┆ MINBUF THEN ILT X5 X4 ; JMP COLLEG ; GOTO COLLECTING; JMPI S6 LSENDBUF ; SENDBUF; MOV SYNCLENGTH R4 ; 0.SYNCLENGTH => P; N┆
0x3b300…3b380 UnusedSector ┆EG R4 ; 0-P => P; MOV R4 POINTER ; P => 0.POINTER; MOVC 3 R4 ; 3 => MOVC 3 R7 ; *WRITEEXEC*; JMPI S6 LSETPAE ; MOV STRANSG ┆
0x3b380…3b400 UnusedSector ┆R6 ; TRANSMITTING => MOV R6 STATE ; 0.STATE; ; ; ;---------------------------------------------------------------------- ;###┆
0x3b400…3b480 UnusedSector ┆ ;---------------------------------------------------------------------- ; STATE TRANSMITTING ;---------------------------------┆
0x3b480…3b500 UnusedSector ┆------------------------------------- TRANSMITTING: ; TRANSMITTING; IF SLOW MODC #4000 FI ; MOVC 100 R0 ; MON SETDELAY ; SET ┆
0x3b500…3b580 UnusedSector ┆DELAY = 1 SEC; MOV INTERT-C R1 ; MON SETINTERRUPT ; SETINTERRUPT; MON WAITEVENT ; WAITEVENT; JMP TTIMEOUT ; JMP TREATR ; AN┆
0x3b580…3b600 UnusedSector ┆SWER: ILLEGAL; JMP TRANSM ; JMPI S6 LTRANIT ; INTERRUPT: HANDLE IT; JMP TRANSG ; GOTO TRANSMITTING; TRANSM: ; MESSAGE: JMPI ┆
0x3b600…3b680 UnusedSector ┆S6 LINBUF ; INBUF; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; JOZ R3 TRANF ; IF BUFFER FULL THEN TRANSFULL: ; BEGIN MOV INTER┆
0x3b680…3b700 UnusedSector ┆T-C R1 ; BUFFILLED: IF SLOW MODC #4000 FI ; MOVC 100 R0 ; MON WAITINTERRUPT ; WAITINTERRUPT; JMP TTIMEOUT ; IF TIMEOUT GOTO T┆
0x3b700…3b780 UnusedSector ┆IMEOUT; JMPI S6 LTRANIT ; HANDLE INTERRUPT; MOV BUFSTATE R3 ; IF 0.BUFSTATE <> 0 THEN JON R3 TRANSFULL ; GOTO BUFFILLED; TRAN┆
0x3b780…3b800 UnusedSector ┆F: ; END; MOVC WRK-C R7 ; MOV X7 R1 ; XTR R1 4 ; IF FUNCTION <> TRANSMIT INE R1 FTRANT ; THEN JMP GOTOFC ; GOTO FUNCTION; ┆
0x3b800…3b880 UnusedSector ┆JMP TRANSG ; GOTO TRANSMITTING; TTIMEOUT: ; TIMEOUT: JMPI S5 LOUTBUF ; OUTBUF; MON REGISTERS ; IF EMPTY SOFTWARE ERROR; MOVC ┆
0x3b880…3b900 UnusedSector ┆TIMEOUT R7 ; MOV POINTER R5 ; JON R5 TTIME1 ; IF 0.POINTER = 0 THEN MOV SETUPE R5 ; BLOCKLENGTH.SETUPTABLE => MOV BLOCKT.X5 ┆
0x3b900…3b980 UnusedSector ┆R5 ; 1.ANSW TTIME1: ; ELSE MOVC ANSW+1 R4 ; 0.POINTER MOV R5 0. X4 ; => 1.ANSW; JMPI S5 LANSWER ; ANSWER (TIMEOUT,COUNT); JM┆
0x3b980…3ba00 UnusedSector ┆PI S6 LDOSETUP ; DO SETUP; MOVC NOTDONE R4 ; JMPI S6 LEMPTYBUF ; EMPTYBUF (NOT DONE); JMP BLOCKED ; IF EMPTY GOTO BLOCKED; M┆
0x3ba00…3ba80 UnusedSector ┆OVC NOTDONE R7 ; JMPI S5 LANSWER ; ANSWER (NOT DONE); JMP BLOCKED ; GOTO BLOCKED; ; ;----------------------------------------┆
0x3ba80…3bb00 UnusedSector ┆------------------------------ ;### ;---------------------------------------------------------------------- ; DUMMYFUNCTION ;---┆
0x3bb00…3bb80 UnusedSector ┆------------------------------------------------------------------- DUMMYFUNC: ; DUMMYFUNCTION: MOVC ILLEGAL R7 ; ILLEGAL => A┆
0x3bb80…3bc00 UnusedSector ┆NSWCODE; JMPI S6 LINSERT ; INSERT (ANSWCODE); JMPI STATE ; RETURN TO STATE; ; ; ;-------------------------------------------┆
0x3bc00…3bc80 UnusedSector ┆--------------------------- ;### ;---------------------------------------------------------------------- ; STATE UNLOCKED ;-----┆
0x3bc80…3bd00 UnusedSector ┆----------------------------------------------------------------- TUNLOCKED: ; UNLOCKED: MOV STUNLW R6 ; WAITUNLCK => MOV R6 ┆
0x3bd00…3bd80 UnusedSector ┆STATE ; 0.STATE; MOVC 0 R6 ; 0 => MOV R6 FRAMES ; 0.FRAMES; TUNLW: ; WAITUNLCK: IF SLOW MODC #4000 FI ; MOVC 100 R0 ; 1 SEC =┆
0x3bd80…3be00 UnusedSector ┆> DELAY; MON SETDELAY ; MOV INTERT-C R1 ; MON SETINTERRUPT ; SETINTERRUPT; MON WAITEVENT ; WAITEVENT; JMP TTIMEOUT ; TIMEOU┆
0x3be00…3be80 UnusedSector ┆T: GOTO TIMEOUT; JMP TREATR ; ANSWER: IMPOSSIBLE; JMP TUNLM ; MOV DEVPR-C R4 ; INTERRUPT: XTR R4 2 ; IF PRI = 0 THEN IF TST ┆
0x3be80…3bf00 UnusedSector ┆MON REGISTERS ; MON GIVEUPTIME FI ; JON R4 TUNL1 ; BEGIN MOVC FRAMES R6 ; INC 0. X6 ; INCR (0.FRAMES); MOV SETUPE R5 ; MOV┆
0x3bf00…3bf80 UnusedSector ┆ NOOFFS.X5 R5 ; NOOFFRAMES.SETUPTABLE => W; IHS X6 R5 ; IF 0.FRAMES >= W THEN JMP TTIMEOUT ; GOTO TIMEOUT; JMPI S6 LUPDATES ;┆
0x3bf80…3c000 UnusedSector ┆ UPDATETABLES; MON REGISTERS ; IF UNLOCK REGISTERS; MOV SAVE2 R4 ; 0.SYNCSTATUS => S; IF TST MON REGISTERS FI ; IBZ R4 12 ; I┆
0x3c000…3c080 UnusedSector ┆F NOT IN LOCK THEN JMP TUNLW ; GOTO WAITUNLCK; MOV STRANSG R5 ; TRANSMITTING => MOV R5 STATE ; 0.STATE; JMP TRANSG ; GOTO TR┆
0x3c080…3c100 UnusedSector ┆ANSMITTING; TUNL1: ; END; MOV FSCDEV R5 ; SIO R3 R5 ; *OPSTATUS* => STATUS; INV R3 ; MOVC ERROR R2 ; JMPI S5 LCHECKERR ; IF┆
0x3c100…3c180 UnusedSector ┆ NOT POS.MEM.FULL ONLY THEN JMP ERRORFUNC ; ERRORFUNC; JMP TUNLW ; GOTO WAITUNLCK; ;### ; TUNLM: ; MESSAGE: JMPI S6 LINBUF ; ┆
0x3c180…3c200 UnusedSector ┆INBUF; JON R3 TUNLM1 ; IF BUFFER NOT FULL THEN MOV X7 R1 ; BEGIN XTR R1 4 ; IF FUNCTION <> TRANSMIT INE R1 FTRANT ; THEN JM┆
0x3c200…3c280 UnusedSector ┆P GOTOFUNC ; GOTO FUNCTION; JMP TUNLW ; GOTO WAITUNLCK; TUNLM1: ; END; MOV INTERT-C R1 ; BUFFULL: IF SLOW MODC #4000 FI ; MOV┆
0x3c280…3c300 UnusedSector ┆C 100 R0 ; 1 SEC => DELAY; MON WAITINTERRUPT ; WAITINTERRUPT; JMP TTIMEOUT ; TIMEOUT: GOTO TIMEOUT; MOV DEVPR-C R4 ; XTR R4 ┆
0x3c300…3c380 UnusedSector ┆2 ; IF PRI = 0 THEN IF TST MON REGISTERS ; MON GIVEUPTIME FI ; JON R4 TUNL3 ; BEGIN MOVC FRAMES R6 ; INC 0. X6 ; INCR (0.FRA┆
0x3c380…3c400 UnusedSector ┆MES); MOV SETUPE R5 ; MOV NOOFFS.X5 R5 ; NOOFFRAMES.SETUPTABLE => W; IHS X6 R5 ; IF 0.FRAMES >= W THEN JMP TTIMEOUT ; GOTO T┆
0x3c400…3c480 UnusedSector ┆IMEOUT; JMPI S6 LUPDATES ; UPDATETABLES; MON REGISTERS ; IF UNLOCK THEN REGISTERS; MOV SAVE2 R4 ; 0.SYNCSTATUS => S; IBZ R4 ┆
0x3c480…3c500 UnusedSector ┆12 ; IF NOT IN LOCK THEN JMP TUNLM1 ; GOTO BUFFULL; MOV STRANSG R5 ; TRANSMITTING => MOV R5 STATE ; 0.STATE; TUNL3: ; END; M┆
0x3c500…3c580 UnusedSector ┆OV FSCDEV R5 ; SIO R3 R5 ; *OPSTATUS* => STATUS; INV R3 ; MOVC ERROR R2 ; ERROR => CODE; JMPI S5 LCHECKERR ; IF NOT P.M.F. O┆
0x3c580…3c600 UnusedSector ┆NLY THEN JMP ERRORC ; ERRORFUNC; JMP TUNLM1 ; GOTO BUFFULL; ; ; ;-----------------------------------------------------------┆
0x3c600…3c680 UnusedSector ┆----------- ;### ;---------------------------------------------------------------------- ; FUNCTION CLEAR POSITION MEMORY STATUS┆
0x3c680…3c700 UnusedSector ┆ ;---------------------------------------------------------------------- CLRPOS: ; CLEARPOSMS: MOVC 8 R4 ; MOVC 0 R7 ; CLEAR ┆
0x3c700…3c780 UnusedSector ┆POS. MEM. STATUS; JMPI S6 LSETPAE ; MOVC 8 R4 ; MOVC 1 R7 ; ENABLE POS. MEM. FULL INT. JMPI S6 LSETPAE ; MOVC EXDONE R7 ; ┆
0x3c780…3c800 UnusedSector ┆JMPI S6 LINSERT ; INSERT (EXDONE); JMPI STATE ; RETURN TO STATE; ; ; ;-------------------------------------------------------┆
0x3c800…3c880 UnusedSector ┆--------------- ;### FIRST=INIT END XPRPC=FIRST IF TST XREFS=20 ELSE XREFS=10 FI IF TST XBUFS=1 ELSE XBUFS=0 FI NOLIST MESSAG┆
0x3c880…3c900 UnusedSector ┆E <:END OF USER MODULE:> USE PROG XDEVPR= 0 XPSIZE= LOC USE BASE XCURIN= LOC 0,REPEAT CURSOUT-CURSIN-1 XCUROUT= LOC 0,REPEAT 4 X┆
0x3c900…3c980 UnusedSector ┆WORKING=0, XPROGRAM=LOC XWORDS=0, XREFSX=0, XBUFSX=0, XCURWORK=0, XCENTRY=0 XSIZE= LOC+C USE PROG IF LOC+XSIZE NE WORDS THEN MES┆
0x3c980…3ca00 UnusedSector ┆SAGE <:SIZE <> WORDS:> MESSAGE WORDS MESSAGE XSIZE FI LIST END RIN= LOC 0,REPEAT CURSOUT-CURSIN-1 XCUROUT= LOC 0,REPEAT 4 X┆
0x3ca00…3ca80 UnusedSector ┆ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
[…0x3d…]
