OctetView
0x00000…00080 UnusedSector ┆ ░░░░░░░░░░░░░░░░░░ b░ 0C t ░ EF t ░ DF H V ░ ░ GF' C ░ KF 6K 8) ░ !C !C ░!? ░!C V ┆
0x00080…00100 UnusedSector ┆ ░░░░░░░░░░░░░░░░░ 8 ░░░░░░░░░░░░░░░┆
0x00100…00180 UnusedSector ┆░░░░░░░░░░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x00180…001c0 DirEnt {filename=»«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0001, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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 ff ff ff ff 00 03 00 00 00 07 00 00 00 38 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆░░░░ 8 ┆
0x001e0…00200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff c0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ░ ░░░░░░░░░░░░░░┆
0x00200…00280 UnusedSector ┆&:>+ ( ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00280…00300 UnusedSector ┆ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00300…00380 UnusedSector ┆) ,=66+;& ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00380…00400 UnusedSector ┆;7 &; > > ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00400…00440 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0019, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00440…00480 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x00480…004c0 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, de0f=0x0009, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x004c0…00500 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
[…0x1…]
0x00540…00580 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x00580…005c0 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=0x0019, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x005c0…00600 DirEnt {filename=»░░C«, 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=0x0f11, 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}
0x00600…00640 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
0x00640…00680 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x00680…006c0 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x006c0…00700 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
[…0x1…]
0x00740…00780 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x00780…007c0 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x007c0…00800 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
[…0x1…]
0x00840…00880 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x00880…008c0 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=0x0019, 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}
0x008c0…00900 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
[…0x1…]
0x00940…00980 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x00980…009c0 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x009c0…00a00 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
[…0x1…]
0x00a40…00a80 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x00a80…00ac0 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x00ac0…00b00 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
[…0x1…]
0x00b40…00b80 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x00b80…00bc0 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x00bc0…00c00 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x00c40…00c80 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0019, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00cc0…00d00 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x00d00…00d40 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x00d40…00d80 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
0x00d80…00dc0 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=0x0019, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00dc0…00e00 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x00e00…00e40 DirEnt {filename=»B8ASNN«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0xffff, de0d=0x0000, cluster2=0x0019, de0f=0xffff, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00e40…00e80 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
0x00e80…00ec0 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=0x0019, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00ec0…00f00 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x00f00…00f40 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x00f40…00f80 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x0019, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00fc0…01000 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x01000…01040 DirEnt {filename=»S8DOC«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0020, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x009f, de0d=0x0000, cluster2=0x0020, de0f=0x0217, de10=0x0403, de11=0x0509, de12=0x060f, de13=0x0715, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x000a, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x01040…01080 DirEnt {filename=»S8DOC«, kind=0x0001, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0011, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x009e, de0d=0x0000, cluster2=0x0011, de0f=0x0903, de10=0x0914, de11=0x0a0b, de12=0x0b02, de13=0x0b13, de14=0x0c0a, de15=0x0d01, de16=0x0d12, de17=0x0e09, de18=0x0e1a, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x002a, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x01080…010c0 DirEnt {filename=»S8DOCB«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0009, de0d=0x0000, cluster2=0x0019, de0f=0x2a15, 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}
0x010c0…01100 DirEnt {filename=»S8DOCM«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0020, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0132, de0d=0x0000, cluster2=0x0020, de0f=0x1608, de10=0x1711, de11=0x1817, de12=0x1a03, de13=0x1b09, de14=0x1c0f, de15=0x1d15, de16=0x1f01, de17=0x2007, de18=0x210d, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x001e, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x01100…01140 DirEnt {filename=»COM«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0001, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0001, de0d=0x0000, cluster2=0x0001, de0f=0x0901, de10=0x0902, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0008, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x01140…01180 DirEnt {filename=»░░DOCM«, kind=0x0002, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0023, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0135, de0d=0x0000, cluster2=0x0023, de0f=0x0f11, de10=0x101a, de11=0x1209, de12=0x1312, de13=0x2213, de14=0x2402, de15=0x250b, de16=0x2614, de17=0x2803, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x003a, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x01180…011c0 DirEnt {filename=»S8DOCB«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0005, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x001c, de0d=0x0000, cluster2=0x0005, de0f=0x1501, de10=0x1506, de11=0x150b, de12=0x1510, de13=0x1515, de14=0x151a, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0025, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x011c0…01200 DirEnt {filename=»░░DOCM«, kind=0x0003, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0023, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0136, de0d=0x0000, cluster2=0x0023, de0f=0x2b14, de10=0x2d03, de11=0x2e0c, de12=0x2f15, de13=0x3104, de14=0x320d, de15=0x3316, de16=0x3505, de17=0x360e, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0004, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x01200…01240 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x01240…01280 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
0x01280…012c0 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=0x0019, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x012c0…01300 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x01300…01340 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x01340…01380 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
0x01380…013c0 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=0x0019, 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}
0x013c0…01400 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x01400…01440 DirEnt {filename=»░░CGSB«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x00a7, de0d=0x0000, cluster2=0x001e, de0f=0x2501, de10=0x2605, de11=0x2709, de12=0x280d, de13=0x2911, de14=0x3b13, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0035, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x01440…01480 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
0x01480…014c0 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=0x0019, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x014c0…01500 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x01500…01540 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x01540…01580 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
0x01580…015c0 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=0x0019, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x015c0…01600 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x01600…01640 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x01640…01680 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
0x01680…016c0 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=0x0019, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x016c0…01700 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x01700…01740 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x01740…01780 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
0x01780…017c0 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=0x0019, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x017c0…01800 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x01800…01840 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x01840…01880 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
0x01880…018c0 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=0x0019, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x018c0…01900 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x01900…01940 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x01940…01980 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
0x01980…019c0 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=0x0019, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x019c0…01a00 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x01a00…01a40 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x01a40…01a80 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
0x01a80…01ac0 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=0x0019, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x01ac0…01b00 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x01b00…01b40 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x01b40…01b80 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
0x01b80…01bc0 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=0x0019, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x01bc0…01c00 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x01c00…01c40 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x01c40…01c80 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
0x01c80…01cc0 DirEnt {filename=»░░1«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0037, de0d=0x0000, cluster2=0x0019, de0f=0x3717, de10=0x3816, de11=0x3915, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0022, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x01cc0…01d00 DirEnt {filename=»░░1«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0013, de0d=0x0000, cluster2=0x0019, de0f=0x3a14, 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}
0x01d00…01d40 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, 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}
0x01d40…01d80 DirEnt {filename=»░░«, kind=0x0300, 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}
0x01d80…01dc0 DirEnt {filename=»░░GSB«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x00a9, de0d=0x0000, cluster2=0x001e, de0f=0x0f11, de10=0x1015, de11=0x1119, de12=0x1303, de13=0x2213, de14=0x2317, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x01dc0…01e00 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x01e00…01e40 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x01e40…01e80 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
0x01e80…01ec0 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=0x0019, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x01ec0…01f00 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x01f00…01f40 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x01f40…01f80 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
0x01f80…01fc0 DirEnt {filename=»░░0020«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0003, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0002, de0d=0x0000, cluster2=0x0003, de0f=0x1605, 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=0x0032, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x01fc0…02000 DirEnt {filename=»░░0016«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0003, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0002, de0d=0x0000, cluster2=0x0003, de0f=0x0f14, 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=0x0032, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x02000…02040 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x02040…02080 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
0x02080…020c0 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=0x0019, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x020c0…02100 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x02100…02140 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x02140…02180 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
0x02180…021c0 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=0x0019, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x021c0…02200 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x02200…02240 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x02240…02280 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
0x02280…022c0 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=0x0019, 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}
0x022c0…02300 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x02300…02340 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x02340…02380 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
0x02380…023c0 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=0x0019, 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}
0x023c0…02400 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x02400…02440 DirEnt {filename=»░░«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0010, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0010, 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}
0x02440…02480 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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}
0x02480…024c0 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=0x0019, 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}
0x024c0…02500 DirEnt {filename=»░░░░░░«, kind=0xffff, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, 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=0x0003, de1e=0x0000, de1f=0x0000}
0x02500…02580 DataSector[»S8DOC«]
[…0x9f…]
0x07500…07580 DataSector[»COM«]
[…0x1…]
0x07600…07680 UnusedSector ┆; CR80 SYSTEM ONE ; DRIVER ; MODULE: DOC - DRIVER, OPERATOR'S CONSOLE (SILENT 700) BEGIN MODULE MYPROC MESSAGE <:DOC:> ; BEGIN┆
0x07680…07700 UnusedSector ┆ MODULE: DOC; GLOBAL NL,LF,CR,BYTE,MADDRESS,WORK,PROGRAM,C,DEVICE GLOBAL BMTIMER,BMERROR,INTERRUPT,ADJUST,CBASE,BS,EM,CAN,DEL GL┆
0x07700…07780 UnusedSector ┆OBAL GETBYTE,PUTBYTE,WAITINTERRUPT GLOBAL CUREVENT,BNIGNR,STATE,NAMEBYTES USE BASE NOLIST $S8MNAX LIST XPD:= DRIVERLENGTH NOLIS┆
0x07780…07800 UnusedSector ┆T $S8MXPX1 LIST DEV:= 1 PR:= 0 MYBASE:= #18D0 MYPROC:= MYBASE+ITEM BNINREADY:= 10 BNOUTREADY:= 11 ; 12 ; OVERRUN BNBREAK:= 13 ┆
0x07800…07880 UnusedSector ┆; DEVICE-FAILURE ; 14 ; PARITY AHEADS:= 32 ASAVE= LOC*2 0 REPEAT (AHEADS-1)/2 LOC= LOC-WORK WLINK0: 0 WLINK1: 0 WLINK2: 0 WMO┆
0x07880…07900 UnusedSector ┆DE: 0 WAHEAD: 0 WLAST: 0 WANY: TRUE WECHO: TRUE WBREAK: FALSE WSEARCHED: FALSE WINPUT: FALSE WBUSY: FALSE LOC= LOC+WORK WPROMPT┆
0x07900…07980 UnusedSector ┆:= LOC-WORK PROMPT: 0 ZERO: ATTMESS: 0 OUTUSER: <:<7>-> :> WARROW= OUTUSER*2+1-WORK USER: 0 REPEAT IDLENGTH-1,0 WIDENT:= USER+NA┆
0x07980…07a00 UnusedSector ┆MEIDENT-WORK SEND: 0 REPEAT IDLENGTH-1 USE PROG ; PROCEDURE SENSE DEVICE(STATUS,CHAR),(ERROR); ; SENSES THE DEVICE STATUS AND ┆
0x07a00…07a80 UnusedSector ┆REFLECTS THE SWOPPED STATUS BACK TO ; THE DEVICE. EXTRACTS THE ACTIVE STATUS BITS. DETECTS A POSSIBLE BREAK. ; CALL: EXIT: ; R0 ┆
0x07a80…07b00 UnusedSector ┆CHAR ; R1 STATUS ; R5 LINK UNDEFINED ; R7 WORK WORK ; LINK0+1 ERROR ; LINK+0 RETURN BEGIN USE PROG EXTERNAL WLINK0,WAHEAD,WBREAK┆
0x07b00…07b80 UnusedSector ┆,BNBREAK,BNINREADY,L157 EXTERNAL ASAVE,WLAST,AHEADS ENTRY P10,G10,P11 USE BASE LOC= LOC-WORK WSAVE6: 0 ; SAVE R6 LOC= LOC+WORK ┆
0x07b80…07c00 UnusedSector ┆USE PROG P11: ; SENSE DEVICE(*,*,CONTINUE): MOV R5 WLINK0.X7 ; LINK DEC WLINK0.X7 ; -1 =>LINK0; P10: ; SENSE DEVICE: MOV CUR┆
0x07c00…07c80 UnusedSector ┆EVENT-C R0 ; CURRENT EVENT.CUR =>EVENT; JOZ R0 A1 ; IF EVENT<>0 THEN SUB CBASE-C R0 ; IBN STATE. X0 BNIGNR ; IF STATE.EVENT[I┆
0x07c80…07d00 UnusedSector ┆GNR] THEN JMP L157 ; GOTO DUMMY RETURN; A1: MOV DEVICE-C R0 ; DEVICE.CUR =>DEVICE; SIO R1 R0 ; SENSE(STATUS,DEVICE); SWP R1 ;┆
0x07d00…07d80 UnusedSector ┆ CIO R1 R0 ; CONTROL(SWOP(STATUS),DEVICE); RIO R0 R0 ; READ(CHAR,DEVICE); XTR R0 7 ; CHAR[6:7] =>CHAR; SLL R1 8 ; 0 =>STATUS┆
0x07d80…07e00 UnusedSector ┆[7:8]; XTR R1 15 ; STATUS[14:15] =>STATUS; MOV R6 WSAVE6.X7 ; SAVE(R6); MOV WAHEAD.X7 R6 ; AHEAD.WORK =>AHEAD; ILO R6 AHEADS┆
0x07e00…07e80 UnusedSector ┆ ; IF AHEAD<AHEADS SBN R1 BNINREADY ; AND STATUS[IN READY] THEN JMP A2 ; BEGIN INC WAHEAD.X7 ; INCR(AHEAD.WORK); ADD WLAST. ┆
0x07e80…07f00 UnusedSector ┆X7 R6 ; LAST.WORK+AHEAD =>AHEAD; IHS R6 AHEADS ; IF AHEAD>=AHEADS THEN ADDC -AHEADS R6 ; AHEAD-AHEADS =>AHEAD; MOVB R0 ASAVE.┆
0x07f00…07f80 UnusedSector ┆ X6 ; CHAR =>BYTE.AHEAD.SAVE A2: ; END; MOV WSAVE6.X7 R6 ; RESTORE(R6); SLO R1 1<12 ; IF STATUS[15:12]=0 IBZ R1 BNINREADY ; O┆
0x07f80…08000 UnusedSector ┆R NOT STATUS[IN READY] THEN JMP 0. X5 ; RETURN; JON R0 G10 ; IF CHAR=0 THEN IBNP R1 BNBREAK ; IF STATUS[BREAK] THEN ; BEGIN ┆
0x08000…08080 UnusedSector ┆ CLR WAHEAD.X7 ; 0 =>AHEAD.WORK; MOV R7 WBREAK.X7 ; TRUE =>BREAK.WORK ; END; G10: MOV WLINK0.X7 R5 ; ERROR RETURN: JMP 1. X5 ┆
0x08080…08100 UnusedSector ┆; GOTO ERROR.LINK0; END ; END OF SENSE DEVICE; ; PROCEDURE TYPE CHAR(CHAR),(TIMEOUT,ERROR); ; WRITES THE CHARACTER ON THE CONSO┆
0x08100…08180 UnusedSector ┆LE. ; CALL: EXIT: ; R0 DESTROYED ; R1 DESTROYED ; R3 CHAR CHAR ; R4 DESTROYED ; R5 LINK DESTROYED ; R7 WORK WORK ; LINK0+0 TIMEO┆
0x08180…08200 UnusedSector ┆UT ; LINK0+1 ERROR ; LINK+0 RETURN BEGIN USE PROG EXTERNAL P10,P50,P51,P53,P61,G50,WLINK0,WLINK1,BNOUTREADY,WINPOS,WECHO EXTERNA┆
0x08200…08280 UnusedSector ┆L WMODE,PROMPT ENTRY P20,WPOS USE BASE LOC= LOC-WORK WPOS: 0 ; POSITION ON LINE WMAX: 80 ; MAX POSITION WSAVE3: 0 ; SAVE CHAR L┆
0x08280…08300 UnusedSector ┆OC= LOC+WORK USE PROG P20: MOV WECHO. X7 R0 ; TYPE CHAR: JON R0 A20 ; IF NOT ECHO.WORK THEN JMP 0. X5 ; RETURN; A20: MOV R5 W┆
0x08300…08380 UnusedSector ┆LINK1.X7 ; SAVE(LINK); MOV R3 WSAVE3.X7 ; SAVE(CHAR); IEQ R3 NL ; IF CHAR=NL THEN MOVC CR R3 ; CR =>CHAR; IEQP R3 CR ; IF CH┆
0x08380…08400 UnusedSector ┆AR=CR THEN ; BEGIN MOVC 8 R4 ; 8 =>LOOP; JMP L1 ; GOTO SENSE IT ; END; MOVC 1 R4 ; 1 =>LOOP; MOV WPOS. X7 R0 ; POS.WORK =>┆
0x08400…08480 UnusedSector ┆POS; JOZ R3 L11 ; IF CHAR=0 THEN ; GOTO TEST POSITION; IEQP R3 BS ; IF CHAR=BS THEN ; BEGIN DEC WPOS. X7 ; DECR(POS.WORK); ┆
0x08480…08500 UnusedSector ┆ JON R0 L11 ; IF POS<>0 THEN ; GOTO TEST POSITION ; END; INC WPOS. X7 ; INCR(POS.WORK); L11: ; TEST POSITION: MOV WSAVE3.X7 ┆
0x08500…08580 UnusedSector ┆R3 ; RESTORE(CHAR); XCH R4 R0 ; SAVE(LOOP); MOV R6 R1 ; SAVE(R6); JON R4 A12 ; IF POS=0 THEN MOV WMODE. X7 R4 ; IF MODE.WORK┆
0x08580…08600 UnusedSector ┆ JOZ R4 A12 ; <>0 THEN MOVC PROMPT R6 ; IF 0.PROMPT JOZ 0. X6 A12 ; <>0 THEN MOV WLINK0.X7 R4 ; IF NOT CALLED MOVC G50 R5 ;┆
0x08600…08680 UnusedSector ┆ FROM INE R4 R5 ; TYPE TEXT THEN JMP S5 P50 ; TYPE TEXT(PROMPT); A12: MOV WPOS. X7 R5 ; POS.WORK =>POS; MOV WMAX. X7 R6 ; MAX┆
0x08680…08700 UnusedSector ┆.WORK =>MAX; SLO R6 R5 ; IF POS>MAX THEN JMP A13 ; BEGIN JMP S5 P53 ; TYPE NL; JMP S6 A11 ; RE. <: <92><0>:> ; " <92><0>" =┆
0x08700…08780 UnusedSector ┆>ADDR; A11: JMP S5 P51 ; TYPE PROG TEXT(ADDR) A13: ; END; MOV R1 R6 ; RESTORE(R6); MOV R0 R4 ; RESTORE(LOOP); MOV R3 WSAVE3.X┆
0x08780…08800 UnusedSector ┆7 ; SAVE(CHAR); JON R3 L1 ; IF CHAR<>0 THEN ; GOTO SENSE IT; JMPI WLINK1.X7 ; RETURN; L1: ; SENSE IT: JMP S5 P10 ; SENSE DEV┆
0x08800…08880 UnusedSector ┆ICE(STATUS,IRR, ; ERROR: GOTO ERROR.LINK0); IBZP R1 BNOUTREADY ; IF NOT STATUS[OUTPUT READY] THEN ; BEGIN JMP S5 P61 ; WAIT ┆
0x08880…08900 UnusedSector ┆IT(50, ; TIMOUT: GOTO TIMOUT.LNK0); JMP L1 ; GOTO SENSE IT ; END; IEQ R4 7 ; IF LOOP=7 THEN MOV WSAVE3.X7 R3 ; RESTORE(CHAR┆
0x08900…08980 UnusedSector ┆); IEQ R4 6 ; IF LOOP=6 THEN MOVC 0 R3 ; 0 =>CHAR; MOV DEVICE-C R1 ; WIO R3 R1 ; WRITE(CHAR,DEVICE.CUR); SOB R4 L1 ; IF DEC┆
0x08980…08a00 UnusedSector ┆R(LOOP)<>0 THEN ; GOTO SENSE IT; JON R3 A2 ; IF CHAR<>0 THEN ; RETURN; MOV WSAVE3.X7 R3 ; RESTORE(CHAR); MOV WPOS. X7 R0 ; ┆
0x08a00…08a80 UnusedSector ┆ MODC WINPOS ; INPOS.WORK SUB R0 0. X7 ; -POS.WORK =>INPOS.WORK; CLR WPOS. X7 ; 0 =>POS.WORK; A2: JMPI WLINK1.X7 ; RETURN; END┆
0x08a80…08b00 UnusedSector ┆ ; END OF TYPE CHAR; ; PROCEDURE TYPE IN(COUNT,CHAR,ADDR),(TIMEOUT,ERROR); ; READS A STRING OF CHARACTERS AND STORES THEM AT AD┆
0x08b00…08b80 UnusedSector ┆DR AND ON. ; THE VARIABLES, ADDR AND COUNT, ARE INCREMENTED AND DECREMENTED ; ACCORDINGLY. THE CHARACTERS ARE ECHOED BY MEANS OF┆
0x08b80…08c00 UnusedSector ┆ TYPE CHAR. ; THE FOLLOWING CHARACTERS HAVE SPECIAL MEANINGS: ; LF LINE FEED: THE CHARACTER IS REPLACED BY A CR CHARACTER. ; THE┆
0x08c00…08c80 UnusedSector ┆ TEXT, "*CR<10>", IS OUTPUT. ; CR CARRIAGE RETURN: THE CHARACTER IS REPLACED BY NL(=LF). ; READING IS TERMINATED WHEN COUNT BECO┆
0x08c80…08d00 UnusedSector ┆MES ZERO OR WHEN A CR CHARACTER ; IS READ. ; CALL: EXIT: ; R0 DESTROYED ; R1 DESTROYED ; R2 COUNT COUNT (UPDATED) ; R3 CHAR (LAS┆
0x08d00…08d80 UnusedSector ┆T INPUT) ; R4 DESTROYED ; R5 LINK DESTROYED ; R6 ADDR ADDR (UPDATED) ; R7 WORK WORK ; LINK+0 TIMEOUT ; LINK+1 ERROR ; LINK+2 RET┆
0x08d80…08e00 UnusedSector ┆URN BEGIN USE PROG EXTERNAL P10,G10,P11,P20,P51,P51P52,P52,P60,P61 EXTERNAL WLINK0,WBREAK,BNINREADY,WPOS,BNOUTREADY,WAHEAD EXTER┆
0x08e00…08e80 UnusedSector ┆NAL ASAVE,WLAST,AHEADS ENTRY P30,G30,G31,WINPOS USE BASE LOC= LOC-WORK WCANCEL: FALSE ; CANCEL WSAVE3: 0 ; SAVE R3 WCOUNT: 0 ; ┆
0x08e80…08f00 UnusedSector ┆COUNT WADDR: 0 ; ADDR WINPOS: 0 ; IN POSITION ON LINE LOC= LOC+WORK USE PROG P30: ; TYPE IN: MOV R5 WLINK0.X7 ; SAVE(LINK); M┆
0x08f00…08f80 UnusedSector ┆OVC 0 R3 ; JMP S5 P20 ; TYPE CHAR(0); MOV R6 WADDR. X7 ; ADDR =>ADDR.WORK; MOV R2 WCOUNT.X7 ; COUNT =>COUNT.WORK; MOV WPOS. ┆
0x08f80…09000 UnusedSector ┆X7 R4 ; POS.WORK MOV R4 WINPOS.X7 ; =>INPOS.WORK; L1: ; NEXT IN: MOV WAHEAD.X7 R5 ; AHEAD.WORK =>AHEAD; JOZ R5 L8 ; IF AHEAD=┆
0x09000…09080 UnusedSector ┆0 THEN ; GOTO SENSE IT; MOV WLAST. X7 R5 ; LAST.WORK =>LAST; MOVB ASAVE. X5 R3 ; BYTE.LAST.SAVE =>CHAR; DEC WAHEAD.X7 ; DECR┆
0x09080…09100 UnusedSector ┆(AHEAD.WORK); INC WLAST. X7 ; INCR(LAST.WORK); IEQ R5 AHEADS-1 ; IF LAST=AHEADS-1 THEN CLR WLAST. X7 ; 0 =>LAST.WORK; JMP L3┆
0x09100…09180 UnusedSector ┆ ; GOTO TEST CHAR; ; GOTO TEST CHAR; L8: MOV WLINK0.X7 R4 ;*SENSE IT: JMP S5 P11 ;* SENSE DEVICE(STATUS,CHAR, MOV R4 WLINK0.X┆
0x09180…09200 UnusedSector ┆7 ;* ERROR: CONTINUE); CLR WAHEAD.X7 ; 0 =>AHEAD.WORK; MOV R0 R3 ; MOV WCOUNT.X7 R0 ; IF COUNT.WORK INE R2 R0 ; <>COUNT THEN┆
0x09200…09280 UnusedSector ┆ MODC #7F00 ; #7F00 =>DELAY MOVC 50 R0 ; ELSE 50 =>DELAY; IBZP R1 BNINREADY ; IF NOT STATUS[INPUT READY] THEN ; BEGIN JMP S┆
0x09280…09300 UnusedSector ┆5 P60 ; WAIT IT(DELAY, ; TIMOUT: GOTO TIMOUT.LINK); JMP L1 ; GOTO NEXT IN ; END; L3: ; TEST CHAR: MOV WBREAK.X7 R4 ; IF BREA┆
0x09300…09380 UnusedSector ┆K.WORK THEN JON R4 L2 ; GOTO DELETE; IEQ R3 CAN ; IF CHAR=CAN THEN JMP L4 ; GOTO CANCEL; INE R3 DEL ; IF CHAR<>DEL THEN JMP┆
0x09380…09400 UnusedSector ┆ L5 ; GOTO TEST CANCEL; L2: ; DELETE: JMP S6 A3 ; RE. <:*DL<10><0>:> ; "*DL<10>" =>ADDR; A3: MOV WCOUNT.X7 R5 ; INEP R5 R2 ; ┆
0x09400…09480 UnusedSector ┆IF COUNT.WORK<>COUNT THEN ; BEGIN CLR WPOS. X7 ; 0 =>POS.WORK; JMP S5 P51 ; TYPE PROG TEXT(ADDR) ; END; MOV WPOS. X7 R4 ; P┆
0x09480…09500 UnusedSector ┆OS.WORK MOV R4 WINPOS.X7 ; =>INPOS.WORK; MOV WADDR. X7 R6 ; ADDR.WORK =>ADDR; MOV WCOUNT.X7 R2 ; COUNT.WORK =>COUNT; MOV WBR┆
0x09500…09580 UnusedSector ┆EAK.X7 R3 ; IF NOT BREAK.WORK THEN JOZ R3 L1 ; GOTO NEXT IN; JMP G10 ; GOTO ERROR RETURN; L4: MOV WCOUNT.X7 R1 ; CANCEL: IEQ ┆
0x09580…09600 UnusedSector ┆R1 R2 ; IF COUNT.WORK=COUNT THEN JMP L1 ; GOTO NEXT IN; MOV ADJUST-C R1 ; IF ADJUST.CUR JON R1 A41 ; <>0 IHS R2 -NAMEBYTES ;┆
0x09600…09680 UnusedSector ┆ OR COUNT>=-NAMEBYTES THEN A41: ADDC -1 R6 ; DECR(ADDR); MOV R6 R1 ; SAVE(ADDR); MON GETBYTE ; GET BYTE(ADDR,CHAR);; SNE R3 B┆
0x09680…09700 UnusedSector ┆S ; IF CHAR<>BS THEN JMP A42 ; BEGIN JMP S6 A4 ; RE. <:<8>X<8><0>:> ; "<BS>X<BS>" =>ADDR; A4: MODC P51P52 ; TYPE PROG TEXT(AD┆
0x09700…09780 UnusedSector ┆DR) A42: ; END JMP S5 P52 ; ELSE TYPE SPACE; MOV R1 R6 ; RESTORE(ADDR); MOV R7 WCANCL.X7 ; TRUE =>CANCEL.WORK; ADDC 1 R2 ; I┆
0x09780…09800 UnusedSector ┆NCR(COUNT); JMP L1 ; GOTO NEXT IN; L5: ; TEST CANCEL: MOV WCANCL.X7 R1 ; CANCEL.WORK =>CANCEL; JOZ R1 L6 ; IF NOT CANCEL THEN┆
0x09800…09880 UnusedSector ┆ ; GOTO ECHO IT; MOV R3 WSAVE3.X7 ; SAVE(CHAR); MOVC LF R3 ; MOV DEVICE-C R1 ; WIO R3 R1 ; WRITE(LF,DEVICE.CUR); MOV WSAVE┆
0x09880…09900 UnusedSector ┆3.X7 R3 ; RESTORE(CHAR); CLR WCANCL.X7 ; FALSE =>CANCEL.WORK; L6: MOV WINPOS.X7 R1 ; ECHO IT: MOV WPOS. X7 R5 ; IEQP R3 BS ; ┆
0x09900…09980 UnusedSector ┆IF CHAR=BS THEN IGE R1 R5 ; IF POS.WORK<=INPOS.WORK THEN JMP L1 ; GOTO NEXT IN; SEQ R3 LF ; IF CHAR=LF THEN JMP A51 ; BEGIN ┆
0x09980…09a00 UnusedSector ┆ MOV R6 R1 ; SAVE(ADDR); CLR WPOS. X7 ; 0 =>POS.WORK; JMP S6 A5 ; RE. <:*CR<10><0>:> ; "*CR<10>" =>ADDR; A5: JMP S5 P51 ; TYP┆
0x09a00…09a80 UnusedSector ┆E PROG TEXT(ADDR); CLR WINPOS.X7 ; 0 =>INPOS.WORK; MOV R1 R6 ; RESTORE(ADDR); MOVC CR R3 ; CR =>CHAR; JMP L7 ; GOTO PUT IT A┆
0x09a80…09b00 UnusedSector ┆51: ; END; IEQ R3 CR ; IF CHAR=CR THEN MOVC NL R3 ; NL =>CHAR; JMP S5 P20 ; TYPE CHAR(CHAR, ; TIMEOUT: GOTO TIMEOUT.LINK, ;┆
0x09b00…09b80 UnusedSector ┆ ERROR: GOTO ERROR.LINK); L7: ; PUT IT: MOV ADJUST-C R0 ; IF ADJUST.CUR JON R0 A7 ; =0 THEN MOV WADDR. X7 R0 ; IF ADDR.CUR S┆
0x09b80…09c00 UnusedSector ┆UB R6 R0 ; -ADDR IEQP R0 -NAMEBYTES ; <-NAMEBYTES THEN INE R3 NL ; IF CHAR<>NL THEN ADDC -1 R6 ; DECR(ADDR); A7: MON PUTBYTE ┆
0x09c00…09c80 UnusedSector ┆; PUT BYTE(ADDR,CHAR); ADDC 1 R6 ; INCR(ADDR); SEQ R3 EM ; IF CHAR=EM IEQ R3 NL ; OR CHAR=NL THEN JMP G31 ; GOTO COUNT RETUR┆
0x09c80…09d00 UnusedSector ┆N; SOB R2 L1 ; IF DECR(COUNT)<>0 THEN ; GOTO NEXT IN; JMP G30 ; GOTO TYPE RETURN; G31: ; COUNT RETURN: ADDC -1 R2 ; DECR(COU┆
0x09d00…09d80 UnusedSector ┆NT); G30: ; TYPE RETURN: JMP S5 P10 ; SENSE DEVICE(STATUS,IRR, ; ERROR: GOTO ERROR.LINK0); IBZ R1 BNOUTREADY ; IF NOT STATUS[┆
0x09d80…09e00 UnusedSector ┆OUTPUT READY] THEN JMP S5 P61 ; WAIT IT(50, ; TIMEOUT: GOTO TIMEOUT.LINK); MOV WLINK0.X7 R5 ; JMP 2 .X5 ; RETURN(LINK); END ┆
0x09e00…09e80 UnusedSector ┆; END OF TYPE IN; ; PROCEDURE TYPE OUT(COUNT,CHAR,ADDR),(TIMEOUT,ERROR); ; WRITES A STRING OF CHARACTERS FROM ADDR AND ON. THE ┆
0x09e80…09f00 UnusedSector ┆VARIABLES, ; ADDR AND COUNT, ARE INCREMENTED AND DECREMENTED ACCORDINGLY. THE ; CHARACTERS ARE WRITTEN BY MEANS OF TYPE CHAR. ; ┆
0x09f00…09f80 UnusedSector ┆CALL: EXIT: ; R0 DESTROYED ; R1 DESTROYED ; R2 COUNT COUNT (UPDATED) ; R3 CHAR (LAST OUTPUT) ; R4 DESTROYED ; R5 LINK DESTROYED ┆
0x09f80…0a000 UnusedSector ┆; R6 ADDR ADDR (UPDATED) ; R7 WORK WORK ; LINK+0 TIMEOUT ; LINK+1 ERROR ; LINK+2 RETURN BEGIN USE PROG EXTERNAL P20,G30,G31,WLIN┆
0x0a000…0a080 UnusedSector ┆K0 ENTRY P40 P40: ; TYPE OUT: MOV R5 WLINK0.X7 ;* SAVE(LINK); L1: ; NEXT OUT: MON GETBYTE ; GET BYTE(ADDR,CHAR); JMP S5 P20 ;┆
0x0a080…0a100 UnusedSector ┆ TYPE CHAR(CHAR, ; TIMEOUT: GOTO TIMEOUT.LINK, ; ERROR: GOTO ERROR.LINK); ADDC 1 R6 ; INCR(ADDR); JOZ R3 G31 ; IF CHAR=0 THE┆
0x0a100…0a180 UnusedSector ┆N ; GOTO COUNT RETURN; SOB R2 L1 ; IF DECR(COUNT)<>0 THEN ; GOTO NEXT OUT; JMP G30 ; GOTO TYPE RETURN; END ; END OF TYPE OUT┆
0x0a180…0a200 UnusedSector ┆; ; PROCEDURE TYPE NL; ; TYPES A NL CHARACTER, USING TYPE PROG TEXT. ; CALL: EXIT: ; R4 DESTROYED ; R5 LINK DESTROYED ; R6 DES┆
0x0a200…0a280 UnusedSector ┆TROYED ; R7 WORK WORK BEGIN USE PROG EXTERNAL P51 ENTRY P53 P53: ; TYPE NL: JMP S6 P51 ; RE."<10>" =>ADDR; <:<10><0>:> ; GOTO ┆
0x0a280…0a300 UnusedSector ┆TYPE PROG TEXT; END ; END OF TYPE NL; ; PROCEDURE TYPE SPACE; ; TYPES A SPACE, USING TYPE PROG TEXT. ; CALL: EXIT: ; R4 DESTROY┆
0x0a300…0a380 UnusedSector ┆ED ; R5 LINK DESTROYED ; R6 DESTROYED ; R7 WORK WORK BEGIN USE PROG EXTERNAL P51 ENTRY P52 P52: ; TYPE SPACE: JMP S6 P51 ; RE."┆
0x0a380…0a400 UnusedSector ┆ " =>ADDR; <: <0>:> ; GOTO TYPE PROG TEXT; END ; END OF TYPE SPACE; ; PROCEDURE TYPE PROG TEXT(ADDR); ; ADDR IS CHANGED FROM B┆
0x0a400…0a480 UnusedSector ┆EING A PROG-RELATIVE WORD-ADDRESS TO A ; BASE-RELATIVE WORD-ADDRESS. THE PROCEDURE CONTINUES WITH TYPE TEXT. ; CALL: EXIT: ; R4 ┆
0x0a480…0a500 UnusedSector ┆DESTROYED ; R5 LINK DESTROYED ; R6 ADDR ADDR (CHANGED AND UPDATED) ; R7 WORK WORK BEGIN USE PROG EXTERNAL ENTRY P51 P51: ; TYPE ┆
0x0a500…0a580 UnusedSector ┆PROG TEXT: MOD PROGRAM-C ; PROGRAM.CUR MODN CBASE-C ; -BASE.CUR ORELSE ;* CONTINUE WITH TYPE TEXT; END ; END OF TYPE PROG TEX┆
0x0a580…0a600 UnusedSector ┆T; P51P52:=P51-P52 ; PROCEDURE TYPE TEXT(ADDR); ; ADDR IS CHANGED FROM BEING A WORD-ADDRESS TO A BYTE-ADDRESS. THE ; PROCEDURE┆
0x0a600…0a680 UnusedSector ┆ TYPES THE TEXT BY MEANS OF TYPE OUT. ; CALL: EXIT: ; R4 DESTROYED ; R5 LINK DESTROYED ; R6 ADDR ADDR (CHANGED AND UPDATED) ; R7┆
0x0a680…0a700 UnusedSector ┆ WORK WORK BEGIN USE PROG EXTERNAL G4,P40,WLINK0,WLINK2 ENTRY P50,G50 USE BASE LOC= LOC-WORK WSAVEA: 0 ; SAVE ADJUST WSAVEL: 0 ┆
0x0a700…0a780 UnusedSector ┆; SAVE LINK0 0 ; SAVE LINK1 WSAVE0: 0 ; SAVE R0 0 ; SAVE R1 WSAVE2: 0 ; SAVE R2 0 ; SAVE R3 LOC= LOC+WORK USE PROG P50: ; TY┆
0x0a780…0a800 UnusedSector ┆PE TEXT: MOVC 0 R4 ;* 0 =>ADJUST; MOV R5 WLINK2.X7 ; SAVE(LINK); MOVL R01 WSAVE0.X77 ; SAVE(R0,R1); MOVL R23 WSAVE2.X77 ; SA┆
0x0a800…0a880 UnusedSector ┆VE(R2,R3); MOVL WLINK0.X77 R01 ; SAVE(LINK0, MOVL R01 WSAVEL.X77 ; ,LINK1); MOV ADJUST-C R0 ; MOV R0 WSAVEA.X7 ; SAVE(ADJUST┆
0x0a880…0a900 UnusedSector ┆.CUR); MOV R4 ADJUST-C ; ADJUST =>ADJUST.CUR; MOVC 100 R2 ; 100 =>COUNT; ADD R6 R6 ; ADDR+ADDR =>ADDR; JMP S5 P40 ; TYPE OUT┆
0x0a900…0a980 UnusedSector ┆(COUNT,IRR,ADDR, G50: JMP G4 ; TIMEOUT: GOTO BREAK, JMP G4 ; ERROR: GOTO BREAK); MOV WSAVEA.X7 R0 ; MOV R0 ADJUST-C ; RESTORE┆
0x0a980…0aa00 UnusedSector ┆(ADJUST.CUR); MOVL WSAVEL.X77 R01 ; RESTORE(LINK0, MOVL R01 WLINK0.X77 ; LINK1); MOVL WSAVE2.X77 R23 ; RESTORE(R2,R3); MOVL ┆
0x0aa00…0aa80 UnusedSector ┆WSAVE0.X77 R01 ; RESTORE(R0,R1); JMPI WLINK2.X7 ; RETURN; END ; END OF TYPE TEXT; ; PROCEDURE WAIT IT(DELAY),(TIMEOUT); ; CALL┆
0x0aa80…0ab00 UnusedSector ┆: EXIT: ; R0 DELAY COUNT ; R1 INTERRUPT.CUR ; R5 LINK UNDEFINED ; R7 WORK WORK BEGIN USE PROG EXTERNAL WLINK0 ENTRY P60,P61 P61:┆
0x0ab00…0ab80 UnusedSector ┆ ; WAIT IT(50,*): MOVC 50 R0 ; 50 =>DELAY; P60: ; WAIT IT: MOV INTERRUPT-C R1 ; INTERRUPT.CUR =>INTRPT; MON WAITINTERRUPT ; W┆
0x0ab80…0ac00 UnusedSector ┆AIT INTERRUPT(DELAY,INTRPT, JMPI WLINK0.X7 ; TIMEOUT: GOTO TIMEOUT.LINK0, JMP 0. X5 ; INTERRUPT: RETURN); END ; END OF WAIT IT┆
0x0ac00…0ac80 UnusedSector ┆; ; REGISTER USE IN THE DRIVER: ; R0 DESTROYED ; R1 DESTROYED ; R2 COUNT ; R3 CHAR ; R4 LOOP.TYPE CHAR ; R5 LINKS ; R6 ADDR ; R┆
0x0ac80…0ad00 UnusedSector ┆7 WORK L0: ; INIT: MON INITDEVICE ; INIT DEVICE(INTERRUPT,DEVICE); L1: ; ANY USER: MOVL WSEARD.X77 R01 ; SEARCHED.WORK =>SEAR┆
0x0ad00…0ad80 UnusedSector ┆CHED; MOV R7 WSEARD.X7 ; TRUE =>SEARCHED.WORK; JOZ R0 L111 ; IF NOT SEARCHED JON R1 L111 ; OR INPUT.WORK THEN ; GOTO INIT QU┆
0x0ad80…0ae00 UnusedSector ┆EUE; MOV WBUSY. X7 R0 ; JOZ R0 A1 ; IF BUSY.WORK THEN JMP L171 ; GOTO BUSY; A1: MOV FIRSTEVENT-C R0 ; IF FIRST EVENT.CUR=0 TH┆
0x0ae00…0ae80 UnusedSector ┆EN JOZ R0 L10 ; GOTO READY; MOV R7 WANY. X7 ; TRUE =>ANY.WORK; L10: ; READY: JMP S5 P11 ;* SENSE DEVICE(STATUS,IRR, ;* ERROR┆
0x0ae80…0af00 UnusedSector ┆: CONTINUE); MOV INTERRUPT-C R1 ; INTERRUPT.CUR =>INTRPT; MON CLEARINTERRUPT ; CLEAR INTERRUPT(INTRPT,IRR); L11: ; INSPECT QUE┆
0x0af00…0af80 UnusedSector ┆UE: CLR WSEARD.X7 ; FALSE =>SEARCHED.WORK; L111: ; INIT QUEUE: CLR WINPUT.X7 ; FALSE =>INPUT.WORK; MON INITWAIT ; INIT WAIT; ┆
0x0af80…0b000 UnusedSector ┆L12: MOV WBREAK.X7 R0 ; NEXT EVENT: JOZ R0 A12 ; IF BREAK.WORK THEN JMP G4 ; GOTO BREAK; A12: MOVC 10 R0 ; MON SETDELAY ; SET┆
0x0b000…0b080 UnusedSector ┆ DELAY(10); MOV INTERRUPT-C R1 ; INTERRUPT.CUR =>INTRPT; MON SETINTERRUPT ; SET INTERRUPT(INTRPT); MON WAITNEXT ; WAIT NEXT(E┆
0x0b080…0b100 UnusedSector ┆VENT, JMP L1 ; TIME OUT: GOTO ANY USER, TRP 0 ; ANSWER: IMPOSSIBLE, JMP L13 ; MESSAGE: GOTO MESSAGE, ; INTERRUPT: CONTINUE);┆
0x0b100…0b180 UnusedSector ┆ JMP S5 P11 ;* SENSE DEVICE(STATUS,IRR, ;* ERROR: CONTINUE); JMP L12 ; GOTO NEXT EVENT; L13: ; MESSAGE: MOV MCOUNT.X7 R2 ; C┆
0x0b180…0b200 UnusedSector ┆OUNT.MESS =>COUNT; IBN MOPERN.X7 BNTPUT ; IF OPER.MESS[TRANSPUT] THEN JMP L14 ; GOTO TRANSPUT; ; CONTROL: IBNP MOPERN.X7 BNR┆
0x0b200…0b280 UnusedSector ┆ESERVE ; IF OPER.MESS[RESERVE] THEN MOVC ITEM +KIND R5 ; COUNT SUB 0. X5 R2 ; -KIND.CUR =>COUNT; A15: JMP L15 ; GOTO DONE; L14┆
0x0b280…0b300 UnusedSector ┆: ; TRANSPUT: JOZ R2 A15 ; IF COUNT=0 THEN ; GOTO DONE; MOVC SEND R0 ; MON GETEVENTNAME ; GET EVENT NAME(SEND); MOVC USER R┆
0x0b300…0b380 UnusedSector ┆1 ; MON COMPARENAMES ; COMPARE NAMES(SEND,USER, JMP L16 ; UNEQUAL: NOT USER); CLR WBUSY. X7 ; FALSE =>BUSY.WORK; MOV WSEARD.┆
0x0b380…0b400 UnusedSector ┆X7 R0 ; JON R0 A14 ; IF NOT SEARCHED.WORK SBZ MOPERN.X7 BNOPUT ; IF NOT OPER.MESS[OUTPUT] THEN JMP A14 ; BEGIN MOV R7 WINPUT┆
0x0b400…0b480 UnusedSector ┆.X7 ; TRUE =>INPUT.WORK; MON RESUMEEVENT ; RESUME EVENT; JMP L12 ; GOTO NEXT EVENT A14: ; END; MOV MCOUNT.X7 R2 ; COUNT.MESS ┆
0x0b480…0b500 UnusedSector ┆=>COUNT; MON GETADDRESS ; GET ADDRESS(COUNT,ADDR, JMP L158 ; ILLEGAL: GOTO ILLEGAL); MOV WPROMT.X7 R1 ; PROMPT.WORK =>OLD; M┆
0x0b500…0b580 UnusedSector ┆OV WMODE. X7 R0 ; IF MODE.WORK<>0 THEN JOZ R0 A141 ; BEGIN IBN MOPERN.X7 BNOPUT ; IF OPER.MESS[OUTPUT] THEN MODC <: :> -<:. :┆
0x0b580…0b600 UnusedSector ┆> ; " " =>HEAD MOVC <:. :> R0 ; ELSE ". " =>HEAD; MOV R0 WPROMT.X7 ; HEAD =>PROMPT.WORK; JOZ R1 A141 ; IF OLD<>0 THEN SNE R1┆
0x0b600…0b680 UnusedSector ┆ R0 ; IF OLD<>HEAD THEN JMP A141 ; BEGIN MOV R6 R1 ; SAVE(ADDR); MOV WPOS. X7 R0 ; POS.WORK =>POS; IEQP R0 2 ; IF POS=2 THEN┆
0x0b680…0b700 UnusedSector ┆ JMP S5 P53 ; TYPE NL; MOV R1 R6 ; RESTORE(ADDR) ; END A141: ; END; IBN MOPERN.X7 BNNOEC ; IF OPER.MESS[NO ECHO] THEN CLR W┆
0x0b700…0b780 UnusedSector ┆ECHO. X7 ; FALSE =>ECHO.WORK; IBN MOPERN.X7 BNOPUT ;* IF OPER.MESS[OUTPUT] THEN MODC -P30 +P40 ;* TYPE OUT(COUNT,IRR,ADDR, ;*┆
0x0b780…0b800 UnusedSector ┆ TIMEOUT: GOTO TIMER, ;* ERROR: GOTO ERROR) JMP S5 P30 ;* ELSE TYPE IN(COUNT,IRR,ADDR, ;* TIMEOUT: GOTO TIMER, ;* ERROR: GOT┆
0x0b800…0b880 UnusedSector ┆O ERROR); ;* GOTO DONE; ;*TIMER: MODC BMTIMER -BMERROR ;* TIMER ORELSE ;*ERROR: MODC BMERROR -0 ;* ERROR ORELSE L15: ;*DONE┆
0x0b880…0b900 UnusedSector ┆: MODC 0 -BMILLEGAL ;* 0 ORELSE L158: ; ILLEGAL: MOVC BMILLEGAL ARESUT.X7 ; ILLEGAL =>RESULT.ANSWER; JMP S5 P11 ;* SENSE DEVI┆
0x0b900…0b980 UnusedSector ┆CE(STATUS,IRR, ;* ERROR: CONTINUE); L157: ; DUMMY RETURN: MON RETURNANSWER ; RETURN ANSWER(STATUS,COUNT); MOV R7 WECHO. X7 ; ┆
0x0b980…0ba00 UnusedSector ┆TRUE =>ECHO.WORK; JMP L10 ; GOTO READY; G4: MOVC 10 R0 ; BREAK: MON WAITDELAY ; WAIT DELAY(10); CLR WBREAK.X7 ; FALSE =>BREAK┆
0x0ba00…0ba80 UnusedSector ┆.WORK; JMP S5 P11 ;* SENSE DEVICE(STATUS, ;* ERROR: CONTINUE); MOV WBREAK.X7 R0 ; IF BREAK.WORK THEN JON R0 G4 ; GOTO BREAK;┆
0x0ba80…0bb00 UnusedSector ┆ JMP S5 P53 ; TYPE NL; CLR USER -WORK .X7 ; 0 =>0.USER; CLR PROMPT -WORK. X7 ; 0 =>0.PROMPT; MOVC <:=:> R0 ; "=" MOVB R0 WA┆
0x0bb00…0bb80 UnusedSector ┆RROW.X7 ; =>ARROW.WORK; MOVC OUTUSER R6 ; RE.OUTUSER =>ADDR; JMP S5 P50 ; TYPE TEXT(ADDR); CLR ADJUST-C -WORK. X7 ; 0 =>ADJUS┆
0x0bb80…0bc00 UnusedSector ┆T.CUR; MOVC USER*2 R6 ; RE.USER =>ADDR; L41: ; IN NAME: MOVC 0 R2 ; 0 =>COUNT; JMP S5 P30 ; TYPE IN(COUNT,CHAR,ADDR, JMP L41┆
0x0bc00…0bc80 UnusedSector ┆ ; TIMEOUT: GOTO IN NAME, JMP G4 ; ERROR: GOTO BREAK); CLR WAHEAD.X7 ; 0 =>AHEAD.WORK; ADDC -1 R6 ; DECR(ADDR); MOVC USER*2+┆
0x0bc80…0bd00 UnusedSector ┆NAMEBYTES+1R2 ; RE.USER+NAMEBYTES+1 SUB R6 R2 ; -ADDR =>COUNT; MOVC 0 R3 ; 0 =>CHAR; L6: ; INSERT ZERO: MOVB R3 BYTE. X6 ; CH┆
0x0bd00…0bd80 UnusedSector ┆AR =>BYTE.ADDR; ADDC 1 R6 ; INCR(ADDR); SOB R2 L6 ; IF DECR(COUNT)<>0 THEN ; GOTO INSERT ZERO; CLR WIDENT.X7 ; 0 =>IDENT.WOR┆
0x0bd80…0be00 UnusedSector ┆K; MOVC USER R0 ; MON SEARCHPROCESS ; SEARCH PROCESS(USER, JMP L9 ; NOT FOUND: GOTO UNKNOWN); CLR WANY. X7 ; FALSE =>ANY.WOR┆
0x0be00…0be80 UnusedSector ┆K; MOD CBASE-C ; INE R1 ITEM ; IF PROC<>ITEM.BASE.CUR THEN JMP L18 ; GOTO ATTENTION; JMP S6 A6 ; RE. <:.:<0>:> ; ".:" =>ADD┆
0x0be80…0bf00 UnusedSector ┆R; A6: JMP S5 P51 ; TYPE PROG TEXT(ADDR); L61: ; IN MODE: MOVC 1 R2 ; 1 =>COUNT; MOVC USER*2 R6 ; RE.USER =>ADDR; JMP S5 P30 ┆
0x0bf00…0bf80 UnusedSector ┆; TYPE IN(COUNT,CHAR,ADDR, JMP L61 ; TIMEOUT: GOTO IN MODE, JMP G4 ; ERROR: GOTO BREAK); ADDC -<:0:> R3 ; CHAR-"0" MOV R3 WM┆
0x0bf80…0c000 UnusedSector ┆ODE. X7 ; =>MODE.WORK; JMP S5 P53 ; TYPE NL; JMP L10 ; GOTO READY; L18: MOVC USER R0 ; ATTENTION: MOVC ATTMESS R1 ; ATTMESS =┆
0x0c000…0c080 UnusedSector ┆>MESS; MON SENDMESSAGE ; SEND MESSAGE(USER,MESS,EVENT); MOVC 50 R0 ; MON SETDELAY ; SET DELAY(50); MON WAITANSWER ; WAIT ANS┆
0x0c080…0c100 UnusedSector ┆WER(EVENT, MON REGRETMESSAGE ; TIMEOUT: REGRET MESS(EVENT)); MOV R7 WBUSY. X7 ; TRUE =>BUSY.WORK; JMP L10 ; GOTO READY; L171:┆
0x0c100…0c180 UnusedSector ┆ ; BUSY: CLR WBUSY. X7 ; FALSE =>BUSY.WORK; JMP S6 L20 ; RE."BUSY" =>ADDR; <:BUSY<0>:> ; GOTO TYPE OWN TEXT; L16: ; NOT USER:┆
0x0c180…0c200 UnusedSector ┆ MOV EVENTSTATUS-C R2 ; EVENT STATUS.CUR =>STATE; MON RESUMEEVENT ; RESUME EVENT; MOV WANY. X7 R5 ; ILO R2 #100 ; IF PRIORIT┆
0x0c200…0c280 UnusedSector ┆Y.STATE=0 THEN JOZ R5 L12 ; IF NOT ANY.WORK THEN ; GOTO NEXT EVENT; MOV WBUSY. X7 R2 ; IF BUSY.WORK THEN JON R2 L171 ; GOTO ┆
0x0c280…0c300 UnusedSector ┆BUSY; MOVC USER R1 ; MODC IDLENGTH ; IDLENGTH =>LENGTH; MOVM X0 X1 ; MOVEMULT(LENGTH,SEND,USER); CLR WANY. X7 ; FALSE =>ANY.┆
0x0c300…0c380 UnusedSector ┆WORK; JMP S5 P53 ; TYPE NL; MOVC <:-:> R0 ; "-" MOVB R0 WARROW.X7 ; =>ARROW.WORK; MOVC OUTUSER R6 ; RE.OUTUSER =>ADDR; MODC┆
0x0c380…0c400 UnusedSector ┆ P50 -P51 ; TYPE TEXT(ADDR) ORELSE L20: ; TYPE OWN TEXT: JMP S5 P51 ; TYPE PROG TEXT(ADDR); JMP S5 P53 ; TYPE NL; JMP L10 ; G┆
0x0c400…0c480 UnusedSector ┆OTO READY; L9: ; UNKNOWN: JMP S6 L20 ; RE."UNKNOWN" =>ADDR; <:UNKNOWN<0>:> ; GOTO TYPE OWN TEXT; USE BASE XNAME0= <:OC:> XKIN┆
0x0c480…0c500 UnusedSector ┆D= KINDOC OR BMBYTE OR BMDISP XPRPC= L0 XDEVPR= DEV<2+PR XREFS= 8 XBUFS= 1 NOLIST $S8MXPX2 LIST END ; END OF MODULE: DOC; # ┆
0x0c500…0c580 UnusedSector ┆ TYPE OWN TEXT; USE BASE XNAME0= <:OC:> XKIN┆
0x0c580…0c600 UnusedSector ┆ O TYPE OWN TEXT; USE BASE XNAME0= <:OC:> XKIND= KINDOC OR BMBYTE OR┆
0x0c600…0c680 UnusedSector 0xff[128]
0x0c680…0c700 UnusedSector 0x00[128]
[…0x3…]
0x0c880…0c900 UnusedSector 0xff[128]
[…0x3…]
0x0ca80…0cb00 UnusedSector 0x00[128]
0x0cb00…0cb80 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0cb80…0cc00 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0cc00…0cc80 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0cc80…0cd00 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0cd00…0cd80 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0cd80…0ce00 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0ce00…0ce80 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0ce80…0cf00 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0cf00…0cf80 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0cf80…0d000 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0d000…0d080 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0d080…0d100 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0d100…0d180 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0d180…0d200 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0d200…0d280 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0d280…0d300 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0d300…0d380 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0d380…0d400 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0d400…0d480 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0d480…0d500 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0d500…0d580 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0d580…0d600 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0d600…0d680 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0d680…0d700 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0d700…0d780 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0d780…0d800 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0d800…0d880 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0d880…0d900 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0d900…0d980 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0d980…0da00 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0da00…0da80 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0da80…0db00 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0db00…0db80 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0db80…0dc00 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0dc00…0dc80 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0dc80…0dd00 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0dd00…0dd80 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0dd80…0de00 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0de00…0de80 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0de80…0df00 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0df00…0df80 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0df80…0e000 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0e000…0e080 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0e080…0e100 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0e100…0e180 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0e180…0e200 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0e200…0e280 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0e280…0e300 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0e300…0e380 UnusedSector ┆░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x0e380…0e400 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░C 2 1 2 ░░░░░░░░░░░░░░░░░░ ┆
0x0e400…0e480 UnusedSector ┆ES THEM AT ADDR AND ON. ; THE VARIABLES, ADDR AND COUNT, ARE INCREMENTED AND DECREMENTED ; ACCORDINGLY. THE CHARACTERS ARE ECHOE┆
0x0e480…0e500 UnusedSector ┆D BY MEANS OF TYPE CHAR. ; THE FOLLOWING CHARACTERS HAVE SPECIAL MEANINGS: ; LF LINE FEED: THE CHARACTER IS REPLACED BY A CR CHA┆
0x0e500…0e580 UnusedSector ┆RACTER. ; THE TEXT, "*CR<10>", IS OUTPUT. ; CR CARRIAGE RETURN: THE CHARACTER IS REPLACED BY NL(=LF). ; READING IS TERMINATED WH┆
0x0e580…0e600 UnusedSector ┆EN COUNT BECOMES ZERO OR WHEN A CR CHARACTER ; IS READ. ; CALL: EXIT: ; R0 DESTROYED ; R1 DESTROYED ; R2 COUNT COUNT (UPDATED) ;┆
0x0e600…0e680 UnusedSector ┆ R3 CHAR (LAST INPUT) ; R4 DESTROYED ; R5 LINK DESTROYED ; R6 ADDR ADDR (UPDATED) ; R7 WORK WORK ; LINK+0 TIMEOUT ; LINK+1 ERROR┆
0x0e680…0e700 UnusedSector ┆ ; LINK+2 RETURN BEGIN USE PROG EXTERNAL P10,G10,P11,P20,P51,P51P52,P52,P60,P61 EXTERNAL WLINK0,WBREAK,BNINREADY,WPOS,BNOUTREADY┆
0x0e700…0e780 UnusedSector ┆,WAHEAD EXTERNAL ASAVE,WLAST,AHEADS ENTRY P30,G30,G31,WINPOS USE BASE LOC= LOC-WORK WCANCEL: FALSE ; CANCEL WSAVE3: 0 ; SAVE R3┆
0x0e780…0e800 UnusedSector ┆ WCOUNT: 0 ; COUNT WADDR: 0 ; ADDR WINPOS: 0 ; IN POSITION ON LINE LOC= LOC+WORK USE PROG P30: ; TYPE IN: MOV R5 WLINK0.X7 ; S┆
0x0e800…0e880 UnusedSector ┆AVE(LINK); MOVC 0 R3 ; JMP S5 P20 ; TYPE CHAR(0); MOV R6 WADDR. X7 ; ADDR =>ADDR.WORK; MOV R2 WCOUNT.X7 ; COUNT =>COUNT.WORK┆
0x0e880…0e900 UnusedSector ┆; MOV WPOS. X7 R4 ; POS.WORK MOV R4 WINPOS.X7 ; =>INPOS.WORK; L1: ; NEXT IN: MOV WAHEAD.X7 R5 ; AHEAD.WORK =>AHEAD; JOZ R5 L┆
0x0e900…0e980 UnusedSector ┆8 ; IF AHEAD=0 THEN ; GOTO SENSE IT; MOV WLAST. X7 R5 ; LAST.WORK =>LAST; MOVB ASAVE. X5 R3 ; BYTE.LAST.SAVE =>CHAR; DEC WAH┆
0x0e980…0ea00 UnusedSector ┆EAD.X7 ; DECR(AHEAD.WORK); INC WLAST. X7 ; INCR(LAST.WORK); IEQ R5 AHEADS-1 ; IF LAST=AHEADS-1 THEN CLR WLAST. X7 ; 0 =>LAST.┆
0x0ea00…0ea80 UnusedSector ┆WORK; JMP L3 ; GOTO TEST CHAR; ; GOTO TEST CHAR; L8: MOV WLINK0.X7 R4 ;*SENSE IT: JMP S5 P11 ;* SENSE DEVICE(STATUS,CHAR, MO┆
0x0ea80…0eb00 UnusedSector ┆V R4 WLINK0.X7 ;* ERROR: CONTINUE); CLR WAHEAD.X7 ; 0 =>AHEAD.WORK; MOV R0 R3 ; MOV WCOUNT.X7 R0 ; IF COUNT.WORK INE R2 R0 ;┆
0x0eb00…0eb80 UnusedSector ┆ <>COUNT THEN MODC #7F00 ; #7F00 =>DELAY MOVC 50 R0 ; ELSE 50 =>DELAY; IBZP R1 BNINREADY ; IF NOT STATUS[INPUT READY] THEN ;┆
0x0eb80…0ec00 UnusedSector ┆ BEGIN JMP S5 P60 ; WAIT IT(DELAY, ; TIMOUT: GOTO TIMOUT.LINK); JMP L1 ; GOTO NEXT IN ; END; L3: ; TEST CHAR: MOV WBREAK.X7┆
0x0ec00…0ec80 UnusedSector ┆ R4 ; IF BREAK.WORK THEN JON R4 L2 ; GOTO DELETE; IEQ R3 CAN ; IF CHAR=CAN THEN JMP L4 ; GOTO CANCEL; INE R3 DEL ; IF CHAR<>┆
0x0ec80…0ed00 UnusedSector ┆DEL THEN JMP L5 ; GOTO TEST CANCEL; L2: ; DELETE: JMP S6 A3 ; RE. <:*DL<10><0>:> ; "*DL<10>" =>ADDR; A3: MOV WCOUNT.X7 R5 ; ┆
0x0ed00…0ed80 UnusedSector ┆INEP R5 R2 ; IF COUNT.WORK<>COUNT THEN ; BEGIN CLR WPOS. X7 ; 0 =>POS.WORK; JMP S5 P51 ; TYPE PROG TEXT(ADDR) ; END; MOV WP┆
0x0ed80…0ee00 UnusedSector ┆OS. X7 R4 ; POS.WORK MOV R4 WINPOS.X7 ; =>INPOS.WORK; MOV WADDR. X7 R6 ; ADDR.WORK =>ADDR; MOV WCOUNT.X7 R2 ; COUNT.WORK =>CO┆
0x0ee00…0ee80 UnusedSector ┆UNT; MOV WBREAK.X7 R3 ; IF NOT BREAK.WORK THEN JOZ R3 L1 ; GOTO NEXT IN; JMP G10 ; GOTO ERROR RETURN; L4: MOV WCOUNT.X7 R1 ; ┆
0x0ee80…0ef00 UnusedSector ┆CANCEL: IEQ R1 R2 ; IF COUNT.WORK=COUNT THEN JMP L1 ; GOTO NEXT IN; MOV ADJUST-C R1 ; IF ADJUST.CUR JON R1 A41 ; <>0 IHS R2┆
0x0ef00…0ef80 UnusedSector ┆ -NAMEBYTES ; OR COUNT>=-NAMEBYTES THEN A41: ADDC -1 R6 ; DECR(ADDR); MOV R6 R1 ; SAVE(ADDR); MON GETBYTE ; GET BYTE(ADDR,CHAR┆
0x0ef80…0f000 UnusedSector ┆);; SNE R3 BS ; IF CHAR<>BS THEN JMP A42 ; BEGIN JMP S6 A4 ; RE. <:<8>X<8><0>:> ; "<BS>X<BS>" =>ADDR; A4: MODC P51P52 ; TYPE┆
0x0f000…0f080 UnusedSector ┆ PROG TEXT(ADDR) A42: ; END JMP S5 P52 ; ELSE TYPE SPACE; MOV R1 R6 ; RESTORE(ADDR); MOV R7 WCANCL.X7 ; TRUE =>CANCEL.WORK; ┆
0x0f080…0f100 UnusedSector ┆ADDC 1 R2 ; INCR(COUNT); JMP L1 ; GOTO NEXT IN; L5: ; TEST CANCEL: MOV WCANCL.X7 R1 ; CANCEL.WORK =>CANCEL; JOZ R1 L6 ; IF NO┆
0x0f100…0f180 UnusedSector ┆T CANCEL THEN ; GOTO ECHO IT; MOV R3 WSAVE3.X7 ; SAVE(CHAR); MOVC LF R3 ; MOV DEVICE-C R1 ; WIO R3 R1 ; WRITE(LF,DEVICE.CUR┆
0x0f180…0f200 UnusedSector ┆); MOV WSAVE3.X7 R3 ; RESTORE(CHAR); CLR WCANCL.X7 ; FALSE =>CANCEL.WORK; L6: MOV WINPOS.X7 R1 ; ECHO IT: MOV WPOS. X7 R5 ; ┆
0x0f200…0f280 UnusedSector ┆IEQP R3 BS ; IF CHAR=BS THEN IGE R1 R5 ; IF POS.WORK<=INPOS.WORK THEN JMP L1 ; GOTO NEXT IN; SEQ R3 LF ; IF CHAR=LF THEN JMP┆
0x0f280…0f300 UnusedSector ┆ A51 ; BEGIN MOV R6 R1 ; SAVE(ADDR); CLR WPOS. X7 ; 0 =>POS.WORK; JMP S6 A5 ; RE. <:*CR<10><0>:> ; "*CR<10>" =>ADDR; A5: JMP┆
0x0f300…0f380 UnusedSector ┆ S5 P51 ; TYPE PROG TEXT(ADDR); CLR WINPOS.X7 ; 0 =>INPOS.WORK; MOV R1 R6 ; RESTORE(ADDR); MOVC CR R3 ; CR =>CHAR; JMP L7 ; ┆
0x0f380…0f400 UnusedSector ┆GOTO PUT IT A51: ; END; IEQ R3 CR ; IF CHAR=CR THEN MOVC NL R3 ; NL =>CHAR; JMP S5 P20 ; TYPE CHAR(CHAR, ; TIMEOUT: GOTO TIM┆
0x0f400…0f480 UnusedSector ┆EOUT.LINK, ; ERROR: GOTO ERROR.LINK); L7: ; PUT IT: MOV ADJUST-C R0 ; IF ADJUST.CUR JON R0 A7 ; =0 THEN MOV WADDR. X7 R0 ; I┆
0x0f480…0f500 UnusedSector ┆F ADDR.CUR SUB R6 R0 ; -ADDR IEQP R0 -NAMEBYTES ; <-NAMEBYTES THEN INE R3 NL ; IF CHAR<>NL THEN ADDC -1 R6 ; DECR(ADDR); A7:┆
0x0f500…0f580 UnusedSector ┆ MON PUTBYTE ; PUT BYTE(ADDR,CHAR); ADDC 1 R6 ; INCR(ADDR); SEQ R3 EM ; IF CHAR=EM IEQ R3 NL ; OR CHAR=NL THEN JMP G31 ; GOT┆
0x0f580…0f600 UnusedSector ┆O COUNT RETURN; SOB R2 L1 ; IF DECR(COUNT)<>0 THEN ; GOTO NEXT IN; JMP G30 ; GOTO TYPE RETURN; G31: ; COUNT RETURN: ADDC -1 ┆
0x0f600…0f680 UnusedSector ┆R2 ; DECR(COUNT); G30: ; TYPE RETURN: JMP S5 P10 ; SENSE DEVICE(STATUS,IRR, ; ERROR: GOTO ERROR.LINK0); IBZ R1 BNOUTREADY ; I┆
0x0f680…0f700 UnusedSector ┆F NOT STATUS[OUTPUT READY] THEN JMP S5 P61 ; WAIT IT(50, ; TIMEOUT: GOTO TIMEOUT.LINK); MOV WLINK0.X7 R5 ; JMP 2 .X5 ; RETUR┆
0x0f700…0f780 UnusedSector ┆N(LINK); END ; END OF TYPE IN; ; PROCEDURE TYPE OUT(COUNT,CHAR,ADDR),(TIMEOUT,ERROR); ; WRITES A STRING OF CHARACTERS FROM ADDR┆
0x0f780…0f800 UnusedSector ┆ AND ON. THE VARIABLES, ; ADDR AND COUNT, ARE INCREMENTED AND DECREMENTED ACCORDINGLY. THE ; CHARACTERS ARE WRITTEN BY MEANS OF ┆
0x0f800…0f880 UnusedSector ┆TYPE CHAR. ; CALL: EXIT: ; R0 DESTROYED ; R1 DESTROYED ; R2 COUNT COUNT (UPDATED) ; R3 CHAR (LAST OUTPUT) ; R4 DESTROYED ; R5 LI┆
0x0f880…0f900 UnusedSector ┆NK DESTROYED ; R6 ADDR ADDR (UPDATED) ; R7 WORK WORK ; LINK+0 TIMEOUT ; LINK+1 ERROR ; LINK+2 RETURN BEGIN USE PROG EXTERNAL P20┆
0x0f900…0f980 UnusedSector ┆,G30,G31,WLINK0 ENTRY P40 P40: ; TYPE OUT: MOV R5 WLINK0.X7 ;* SAVE(LINK); L1: ; NEXT OUT: MON GETBYTE ; GET BYTE(ADDR,CHAR); ┆
0x0f980…0fa00 UnusedSector ┆ JMP S5 P20 ; TYPE CHAR(CHAR, ; TIMEOUT: GOTO TIMEOUT.LINK, ; ERROR: GOTO ERROR.LINK); ADDC 1 R6 ; INCR(ADDR); JOZ R3 G31 ; ┆
0x0fa00…0fa80 UnusedSector ┆IF CHAR=0 THEN ; GOTO COUNT RETURN; SOB R2 L1 ; IF DECR(COUNT)<>0 THEN ; GOTO NEXT OUT; JMP G30 ; GOTO TYPE RETURN; END ; EN┆
0x0fa80…0fb00 UnusedSector ┆D OF TYPE OUT; ; PROCEDURE TYPE NL; ; TYPES A NL CHARACTER, USING TYPE PROG TEXT. ; CALL: EXIT: ; R4 DESTROYED ; R5 LINK DESTR┆
0x0fb00…0fb80 UnusedSector ┆OYED ; R6 DESTROYED ; R7 WORK WORK BEGIN USE PROG EXTERNAL P51 ENTRY P53 P53: ; TYPE NL: JMP S6 P51 ; RE."<10>" =>ADDR; <:<10>┆
0x0fb80…0fc00 UnusedSector ┆<0>:> ; GOTO TYPE PROG TEXT; END ; END OF TYPE NL; ; PROCEDURE TYPE SPACE; ; TYPES A SPACE, USING TYPE PROG TEXT. ; CALL: EXIT:┆
0x0fc00…0fc80 UnusedSector ┆ ; R4 DESTROYED ; R5 LINK DESTROYED ; R6 DESTROYED ; R7 WORK WORK BEGIN USE PROG EXTERNAL P51 ENTRY P52 P52: ; TYPE SPACE: JMP ┆
0x0fc80…0fd00 UnusedSector ┆S6 P51 ; RE." " =>ADDR; <: <0>:> ; GOTO TYPE PROG TEXT; END ; END OF TYPE SPACE; ; PROCEDURE TYPE PROG TEXT(ADDR); ; ADDR IS C┆
0x0fd00…0fd80 UnusedSector ┆HANGED FROM BEING A PROG-RELATIVE WORD-ADDRESS TO A ; BASE-RELATIVE WORD-ADDRESS. THE PROCEDURE CONTINUES WITH TYPE TEXT. ; CALL┆
0x0fd80…0fe00 UnusedSector ┆: EXIT: ; R4 DESTROYED ; R5 LINK DESTROYED ; R6 ADDR ADDR (CHANGED AND UPDATED) ; R7 WORK WORK BEGIN USE PROG EXTERNAL ENTRY P51┆
0x0fe00…0fe80 UnusedSector ┆ P51: ; TYPE PROG TEXT: MOD PROGRAM-C ; PROGRAM.CUR MODN CBASE-C ; -BASE.CUR ORELSE ;* CONTINUE WITH TYPE TEXT; END ; END OF ┆
0x0fe80…0ff00 UnusedSector ┆TYPE PROG TEXT; P51P52:=P51-P52 ; PROCEDURE TYPE TEXT(ADDR); ; ADDR IS CHANGED FROM BEING A WORD-ADDRESS TO A BYTE-ADDRESS. TH┆
0x0ff00…0ff80 UnusedSector ┆E ; PROCEDURE TYPES THE TEXT BY MEANS OF TYPE OUT. ; CALL: EXIT: ; R4 DESTROYED ; R5 LINK DESTROYED ; R6 ADDR ADDR (CHANGED AND ┆
0x0ff80…10000 UnusedSector ┆UPDATED) ; R7 WORK WORK BEGIN USE PROG EXTERNAL G4,P40,WLINK0,WLINK2 ENTRY P50,G50 USE BASE LOC= LOC-WORK WSAVEA: 0 ; SAVE ADJU┆
0x10000…10080 UnusedSector ┆ST WSAVEL: 0 ; SAVE LINK0 0 ; SAVE LINK1 WSAVE0: 0 ; SAVE R0 0 ; SAVE R1 WSAVE2: 0 ; SAVE R2 0 ; SAVE R3 LOC= LOC+WORK USE PR┆
0x10080…10100 UnusedSector ┆OG P50: ; TYPE TEXT: MOVC 0 R4 ;* 0 =>ADJUST; MOV R5 WLINK2.X7 ; SAVE(LINK); MOVL R01 WSAVE0.X77 ; SAVE(R0,R1); MOVL R23 WS┆
0x10100…10180 UnusedSector ┆AVE2.X77 ; SAVE(R2,R3); MOVL WLINK0.X77 R01 ; SAVE(LINK0, MOVL R01 WSAVEL.X77 ; ,LINK1); MOV ADJUST-C R0 ; MOV R0 WSAVEA.X7 ┆
0x10180…10200 UnusedSector ┆; SAVE(ADJUST.CUR); MOV R4 ADJUST-C ; ADJUST =>ADJUST.CUR; MOVC 100 R2 ; 100 =>COUNT; ADD R6 R6 ; ADDR+ADDR =>ADDR; JMP S5 P┆
0x10200…10280 UnusedSector ┆40 ; TYPE OUT(COUNT,IRR,ADDR, G50: JMP G4 ; TIMEOUT: GOTO BREAK, JMP G4 ; ERROR: GOTO BREAK); MOV WSAVEA.X7 R0 ; MOV R0 ADJUS┆
0x10280…10300 UnusedSector ┆T-C ; RESTORE(ADJUST.CUR); MOV WSAVEL % RESTORE(LINK0, MOV WSAVEL % RESTORE(LINK0, +1. X7 R0 ; MOV WSAVEL % LINK1); +1. X7 ┆
0x10300…10380 UnusedSector ┆R1 ; MOVL R01 WLINK0.X77 ; LINK1); MOV WSAVE2.X7 R2 ; RESTORE(R2); MOV WSAVE3.X7 R2 ; RESTORE(R3); MOV WSAVE0.X7 R0 ; RESTOR┆
0x10380…10400 UnusedSector ┆E(R0); MOV WSAVE1.X7 R0 ; RESTORE(R1); JMPI WLINK2.X7 ; RETURN; END ; END OF TYPE TEXT; ; PROCEDURE WAIT IT(DELAY),(TIMEOUT);┆
0x10400…10480 UnusedSector ┆ ; CALL: EXIT: ; R0 DELAY COUNT ; R1 INTERRUPT.CUR ; R5 LINK UNDEFINED ; R7 WORK WORK BEGIN USE PROG EXTERNAL WLINK0 ENTRY P60,P┆
0x10480…10500 UnusedSector ┆61 P61: ; WAIT IT(50,*): MOVC 50 R0 ; 50 =>DELAY; P60: ; WAIT IT: MOV INTERRUPT-C R1 ; INTERRUPT.CUR =>INTRPT; MON WAITINTERR┆
0x10500…10580 UnusedSector ┆UPT ; WAIT INTERRUPT(DELAY,INTRPT, JMPI WLINK0.X7 ; TIMEOUT: GOTO TIMEOUT.LINK0, JMP 0. X5 ; INTERRUPT: RETURN); END ; END OF ┆
0x10580…10600 UnusedSector ┆WAIT IT; ; REGISTER USE IN THE DRIVER: ; R0 DESTROYED ; R1 DESTROYED ; R2 COUNT ; R3 CHAR ; R4 LOOP.TYPE CHAR ; R5 LINKS ; R6 A┆
0x10600…10680 UnusedSector ┆DDR ; R7 WORK L0: ; INIT: MOVC XNAME0 R0 ; MOVC XNAME1 R1 ; NAME MOV R0 NAME-C ; =>NAME.CUR; MOV R1 NAME-C+1 ; MOVC TRUE R┆
0x10680…10700 UnusedSector ┆0 ; TRUE MOVC TRUE R1 ; MOVL R01 WANY.X7 ; =>(ANY,ECHO).WORK; MOVC DEV<2+PR R0 ; DEV<2+PR MOV R0 DEVPR-C ; =>DEVPR.CUR; MON┆
0x10700…10780 UnusedSector ┆LR WPOS. X7 ; 0 =>POS.WORK; A2: JMPI WLINK1.X7 ; RETURN; END ; END OF TYPE CHAR; ; PROCEDURE TYPE IN(COUNT,CHAR,ADDR),(TIMEOUT,┆
0x10780…10800 UnusedSector ┆ERROR); ; READS A STRING OF CHARACTERS AND STORES THEM AT ADDR AND ON. ; THE VARIABLES, ADDR AND COUNT, ARE INCREMENTED AND DECR┆
0x10800…10880 UnusedSector ┆EMENTED ; ACCORDINGLY. THE CHARACTERS ARE ECHOED BY MEANS OF TYPE CHAR. ; THE FOLLOWING CHARACTERS HAVE SPECIAL MEANINGS: ; LF L┆
0x10880…10900 UnusedSector ┆INE FEED: THE CHARACTER IS REPLACED BY A CR CHARACTER. ; THE TEXT, "*CR<10>", IS OUTPUT. ; CR CARRIAGE RETURN: THE CHARACTER IS ┆
0x10900…10980 UnusedSector ┆REPLACED BY NL(=LF). ; READING IS TERMINATED WHEN COUNT BECOMES ZERO OR WHEN A CR CHARACTER ; IS READ. ; CALL: EXIT: ; R0 DESTRO┆
0x10980…10a00 UnusedSector ┆YED ; R1 DESTROYED ; R2 COUNT COUNT (UPDATED) ; R3 CHAR (LAST INPUT) ; R4 DESTROYED ; R5 LINK DESTROYED ; R6 ADDR ADDR (UPDATED)┆
0x10a00…10a80 UnusedSector ┆ ; R7 WORK WORK ; LINK+0 TIMEOUT ; LINK+1 ERROR ; LINK+2 RETURN BEGIN USE PROG EXTERNAL P10,G10,P11,P20,P51,P51P52,P52,P60,P61 E┆
0x10a80…10b00 UnusedSector ┆XTERNAL WLINK0,WBREAK,BNINREADY,WPOS,BNOUTREADY,WAHEAD EXTERNAL ASAVE,WLAST,AHEADS ENTRY P30,G30,G31,WINPOS USE BASE LOC= LOC-W┆
0x10b00…10b80 UnusedSector ┆ORK WCANCEL: FALSE ; CANCEL WSAVE3: 0 ; SAVE R3 WCOUNT: 0 ; COUNT WADDR: 0 ; ADDR WINPOS: 0 ; IN POSITION ON LINE LOC= LOC+WORK ┆
0x10b80…10c00 UnusedSector ┆USE PROG P30: ; TYPE IN: MOV R5 WLINK0.X7 ; SAVE(LINK); MOVC 0 R3 ; JMP S5 P20 ; TYPE CHAR(0); MOV R6 WADDR. X7 ; ADDR =>AD┆
0x10c00…10c80 UnusedSector ┆DR.WORK; MOV R2 WCOUNT.X7 ; COUNT =>COUNT.WORK; MOV WPOS. X7 R4 ; POS.WORK MOV R4 WINPOS.X7 ; =>INPOS.WORK; L1: ; NEXT IN: M┆
0x10c80…10d00 UnusedSector ┆OV WAHEAD.X7 R5 ; AHEAD.WORK =>AHEAD; JOZ R5 L8 ; IF AHEAD=0 THEN ; GOTO SENSE IT; MOV WLAST. X7 R5 ; LAST.WORK =>LAST; MOVB┆
0x10d00…10d80 UnusedSector ┆ ASAVE. X5 R3 ; BYTE.LAST.SAVE =>CHAR; DEC WAHEAD.X7 ; DECR(AHEAD.WORK); INC WLAST. X7 ; INCR(LAST.WORK); IEQ R5 AHEADS-1 ; I┆
0x10d80…10e00 UnusedSector ┆F LAST=AHEADS-1 THEN CLR WLAST. X7 ; 0 =>LAST.WORK; JMP L3 ; GOTO TEST CHAR; ; GOTO TEST CHAR; L8: MOV WLINK0.X7 R4 ;*SENSE I┆
0x10e00…10e80 UnusedSector ┆T: JMP S5 P11 ;* SENSE DEVICE(STATUS,CHAR, MOV R4 WLINK0.X7 ;* ERROR: CONTINUE); CLR WAHEAD.X7 ; 0 =>AHEAD.WORK; MOV R0 R3 ;┆
0x10e80…10f00 UnusedSector ┆ MOV WCOUNT.X7 R0 ; IF COUNT.WORK INE R2 R0 ; <>COUNT THEN MODC #7F00 ; #7F00 =>DELAY MOVC 50 R0 ; ELSE 50 =>DELAY; IBZP R1┆
0x10f00…10f80 UnusedSector ┆ BNINREADY ; IF NOT STATUS[INPUT READY] THEN ; BEGIN JMP S5 P60 ; WAIT IT(DELAY, ; TIMOUT: GOTO TIMOUT.LINK); JMP L1 ; GOTO ┆
0x10f80…11000 UnusedSector ┆NEXT IN ; END; L3: ; TEST CHAR: MOV WBREAK.X7 R4 ; IF BREAK.WORK THEN JON R4 L2 ; GOTO DELETE; IEQ R3 CAN ; IF CHAR=CAN THEN┆
0x11000…11080 UnusedSector ┆ JMP L4 ; GOTO CANCEL; INE R3 DEL ; IF CHAR<>DEL THEN JMP L5 ; GOTO TEST CANCEL; L2: ; DELETE: JMP S6 A3 ; RE. <:*DL<10><0>┆
0x11080…11100 UnusedSector ┆:> ; "*DL<10>" =>ADDR; A3: MOV WCOUNT.X7 R5 ; INEP R5 R2 ; IF COUNT.WORK<>COUNT THEN ; BEGIN CLR WPOS. X7 ; 0 =>POS.WORK; JM┆
0x11100…11180 DataSector[»S8DOCB«]
[…0x1c…]
0x11f80…12000 UnusedSector ┆░░ ░░░░░░░░░░░░░░░░░░ ░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x12000…12080 UnusedSector ┆OC ░ O @ = > f\ 7 4 4 $S8DOCM.3 ILES .CAT T ┆
0x12080…12100 UnusedSector 0x00[128]
0x12100…12180 UnusedSector ┆ $S8DOCM.3 ILES .CAT T ┆
0x12180…12200 DataSector[»S8DOCM«]
[…0x1f…]
0x13180…13200 UnusedSector ┆S8DOC #- @ B C 8 . P00006 B H @ | 6 @ ~ . ┆
0x13200…13280 UnusedSector ┆ TYPE OWN TEXT; USE BASE XNAME0= <:OC:> XKIND= KINDOC OR BMBYTE OR BMDISP XPRPC= L0 XDEVPR= D┆
0x13280…13300 UnusedSector ┆EV<2+PR XREFS= 8 XBUFS= 1 NOLIST $S8MXPX2 LIST END ; END OF MODULE: DOC; # ┆
0x13300…13380 DataSector[»S8DOCM«]
[…0x112…]
0x1bc80…1bd00 UnusedSector ┆░* V@~ ░* B C D B ░* A !░* ) O░* ] _ % | \X X ┆
0x1bd00…1bd80 UnusedSector ┆ / X yJ V v V w ░$V n V o L Z y V w jPkJ P K P V o ZoV o Zn | t]p^q_r` wd # ? ┆
0x1bd80…1be00 UnusedSector ┆ h , ) , E , h X| p i , , ,h S| O| P| N~ , H hX$ i , , , hp\X,lM TH K S -H@ hR L V H $ ┆
0x1be00…1be80 UnusedSector ┆| ,H S .V L V H S /V L;V H S 0V v ░! I ░ C8 ░ C @ C ░ C CD ░ C░ ░ C░ ┆
0x1be80…1bf00 UnusedSector ┆ V v ░!c ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U ┆
0x1bf00…1bf80 UnusedSector ┆V W X Y Z [ \ ] ^ _ ` a b c d e f g h i o t y ░ C ░:j ░ C ░;V pk░ ░:o ░ ░;V pp░ ░:t ┆
0x1bf80…1c000 UnusedSector ┆░ d ░;V pu░ ░:y ░ c ░;V pz░ ░:~ ░ ░;V p ░ ░: ░ ░;V p ░ ░: ░ ░;V p ░ ░: ░ ░;V p ░ ┆
0x1c000…1c080 UnusedSector ┆░: ░ ░;V p ░ ░: ░ ░;V p ░ ░: ░ ░;V p ░ ░: ░ ░;V p ░ ░: ░ ? ░;V p ░ ░: ░ ? ░;V ┆
0x1c080…1c100 UnusedSector ┆p ░ ░: ░ ? ░;V p ░ ░: ░ ░;V p ░ ░: ░ ░;V p ░ ░: ░ ░;V p ░ ░: ░ ░;V p ░ ░: ░ ┆
0x1c100…1c180 UnusedSector ┆░;V p ░ ░: ░ ░;V p ░ ░: ░ ░;V p ░ ░: ░ ░;V p ░ ░: ░ ░;V p ░ ░: ░ ░;V p ░ ┆
0x1c180…1c200 UnusedSector ┆ ░: ░ ░;V p ░ ░: ░ ░;V p ░ ░: ░ ░;V p I ░ [C V v ░!|8 s V v ░! I i V h ┆
0x1c200…1c280 UnusedSector ┆ i V h > ? ? A░ D D# D D D D D C > @ @ A V v ░! I ┆
0x1c280…1c300 UnusedSector ┆ ░ )C I ░ j / ░ \C / ░!G ░ j / ; ░ \Cj ░!G ░ \Cj ┆
0x1c300…1c380 UnusedSector ┆ INITDEVICE ; INIT DEVICE(INTERRUPT,DEVICE); L1: ; ANY USER: MOVL WSEARD.X77 R01 ; SEARCHED.WORK =>SEARCHED; MOV R7 WSEARD.X7 ┆
0x1c380…1c400 UnusedSector ┆; TRUE =>SEARCHED.WORK; JOZ R0 L111 ; IF NOT SEARCHED JON R1 L111 ; OR INPUT.WORK THEN ; GOTO INIT QUEUE; MOV WBUSY. X7 R0 ;┆
0x1c400…1c480 UnusedSector ┆ JOZ R0 A1 ; IF BUSY.WORK THEN JMP L171 ; GOTO BUSY; A1: MOV FIRSTEVENT-C R0 ; IF FIRST EVENT.CUR=0 THEN JOZ R0 L10 ; GOTO RE┆
0x1c480…1c500 UnusedSector ┆ADY; MOV R7 WANY. X7 ; TRUE =>ANY.WORK; L10: ; READY: JMP S5 P11 ;* SENSE DEVICE(STATUS,IRR, ;* ERROR: CONTINUE); MOV INTERR┆
0x1c500…1c580 UnusedSector ┆UPT-C R1 ; INTERRUPT.CUR =>INTRPT; MON CLEARINTERRUPT ; CLEAR INTERRUPT(INTRPT,IRR); L11: ; INSPECT QUEUE: CLR WSEARD.X7 ; FAL┆
0x1c580…1c600 UnusedSector ┆SE =>SEARCHED.WORK; L111: ; INIT QUEUE: CLR WINPUT.X7 ; FALSE =>INPUT.WORK; MON INITWAIT ; INIT WAIT; L12: MOV WBREAK.X7 R0 ; ┆
0x1c600…1c680 UnusedSector ┆NEXT EVENT: JOZ R0 A12 ; IF BREAK.WORK THEN JMP G4 ; GOTO BREAK; A12: MOVC 10 R0 ; MON SETDELAY ; SET DELAY(10); MOV INTERRU┆
0x1c680…1c700 UnusedSector ┆PT-C R1 ; INTERRUPT.CUR =>INTRPT; MON SETINTERRUPT ; SET INTERRUPT(INTRPT); MON WAITNEXT ; WAIT NEXT(EVENT, JMP L1 ; TIME OUT┆
0x1c700…1c780 UnusedSector ┆: GOTO ANY USER, TRP 0 ; ANSWER: IMPOSSIBLE, JMP L13 ; MESSAGE: GOTO MESSAGE, ; INTERRUPT: CONTINUE); JMP S5 P11 ;* SENSE DE┆
0x1c780…1c800 UnusedSector ┆VICE(STATUS,IRR, ;* ERROR: CONTINUE); JMP L12 ; GOTO NEXT EVENT; L13: ; MESSAGE: MOV MCOUNT.X7 R2 ; COUNT.MESS =>COUNT; IBN ┆
0x1c800…1c880 UnusedSector ┆MOPERN.X7 BNTPUT ; IF OPER.MESS[TRANSPUT] THEN JMP L14 ; GOTO TRANSPUT; ; CONTROL: IBNP MOPERN.X7 BNRESERVE ; IF OPER.MESS[RE┆
0x1c880…1c900 UnusedSector ┆SERVE] THEN MOVC ITEM +KIND R5 ; COUNT SUB 0. X5 R2 ; -KIND.CUR =>COUNT; A15: JMP L15 ; GOTO DONE; L14: ; TRANSPUT: JOZ R2 A1┆
0x1c900…1c980 UnusedSector ┆5 ; IF COUNT=0 THEN ; GOTO DONE; MOVC SEND R0 ; MON GETEVENTNAME ; GET EVENT NAME(SEND); MOVC USER R1 ; MON COMPARENAMES ; ┆
0x1c980…1ca00 UnusedSector ┆COMPARE NAMES(SEND,USER, JMP L16 ; UNEQUAL: NOT USER); CLR WBUSY. X7 ; FALSE =>BUSY.WORK; MOV WSEARD.X7 R0 ; JON R0 A14 ; IF┆
0x1ca00…1ca80 UnusedSector ┆ NOT SEARCHED.WORK SBZ MOPERN.X7 BNOPUT ; IF NOT OPER.MESS[OUTPUT] THEN JMP A14 ; BEGIN MOV R7 WINPUT.X7 ; TRUE =>INPUT.WORK;┆
0x1ca80…1cb00 UnusedSector ┆ MON RESUMEEVENT ; RESUME EVENT; JMP L12 ; GOTO NEXT EVENT A14: ; END; MOV MCOUNT.X7 R2 ; COUNT.MESS =>COUNT; MON GETADDRESS┆
0x1cb00…1cb80 UnusedSector ┆ ; GET ADDRESS(COUNT,ADDR, JMP L158 ; ILLEGAL: GOTO ILLEGAL); MOV WPROMT.X7 R1 ; PROMPT.WORK =>OLD; MOV WMODE. X7 R0 ; IF MOD┆
0x1cb80…1cc00 UnusedSector ┆E.WORK<>0 THEN JOZ R0 A141 ; BEGIN IBN MOPERN.X7 BNOPUT ; IF OPER.MESS[OUTPUT] THEN MODC <: :> -<:. :> ; " " =>HEAD MOVC <:.┆
0x1cc00…1cc80 UnusedSector ┆ :> R0 ; ELSE ". " =>HEAD; MOV R0 WPROMT.X7 ; HEAD =>PROMPT.WORK; JOZ R1 A141 ; IF OLD<>0 THEN SNE R1 R0 ; IF OLD<>HEAD THEN ┆
0x1cc80…1cd00 UnusedSector ┆ JMP A141 ; BEGIN MOV R6 R1 ; SAVE(ADDR); MOV WPOS. X7 R0 ; POS.WORK =>POS; IEQP R0 2 ; IF POS=2 THEN JMP S5 P53 ; TYPE NL; ┆
0x1cd00…1cd80 UnusedSector ┆ MOV R1 R6 ; RESTORE(ADDR) ; END A141: ; END; IBN MOPERN.X7 BNNOEC ; IF OPER.MESS[NO ECHO] THEN CLR WECHO. X7 ; FALSE =>ECHO.┆
0x1cd80…1ce00 UnusedSector ┆WORK; IBN MOPERN.X7 BNOPUT ;* IF OPER.MESS[OUTPUT] THEN MODC -P30 +P40 ;* TYPE OUT(COUNT,IRR,ADDR, ;* TIMEOUT: GOTO TIMER, ;┆
0x1ce00…1ce80 UnusedSector ┆* ERROR: GOTO ERROR) JMP S5 P30 ;* ELSE TYPE IN(COUNT,IRR,ADDR, ;* TIMEOUT: GOTO TIMER, ;* ERROR: GOTO ERROR); ;* GOTO DONE;┆
0x1ce80…1cf00 UnusedSector ┆ ;*TIMER: MODC BMTIMER -BMERROR ;* TIMER ORELSE ;*ERROR: MODC BMERROR -0 ;* ERROR ORELSE L15: ;*DONE: MODC 0 -BMILLEGAL ;* ┆
0x1cf00…1cf80 UnusedSector ┆0 ORELSE L158: ; ILLEGAL: MOVC BMILLEGAL ARESUT.X7 ; ILLEGAL =>RESULT.ANSWER; JMP S5 P11 ;* SENSE DEVICE(STATUS,IRR, ;* ERROR┆
0x1cf80…1d000 UnusedSector ┆: CONTINUE); L157: ; DUMMY RETURN: MON RETURNANSWER ; RETURN ANSWER(STATUS,COUNT); MOV R7 WECHO. X7 ; TRUE =>ECHO.WORK; JMP L┆
0x1d000…1d080 UnusedSector ┆10 ; GOTO READY; G4: MOVC 10 R0 ; BREAK: MON WAITDELAY ; WAIT DELAY(10); CLR WBREAK.X7 ; FALSE =>BREAK.WORK; JMP S5 P11 ;* SE┆
0x1d080…1d100 UnusedSector ┆NSE DEVICE(STATUS, ;* ERROR: CONTINUE); MOV WBREAK.X7 R0 ; IF BREAK.WORK THEN JON R0 G4 ; GOTO BREAK; JMP S5 P53 ; TYPE NL; ┆
0x1d100…1d180 UnusedSector ┆ CLR USER -WORK .X7 ; 0 =>0.USER; CLR PROMPT -WORK. X7 ; 0 =>0.PROMPT; MOVC <:=:> R0 ; "=" MOVB R0 WARROW.X7 ; =>ARROW.WORK; ┆
0x1d180…1d200 UnusedSector ┆ MOVC OUTUSER R6 ; RE.OUTUSER =>ADDR; JMP S5 P50 ; TYPE TEXT(ADDR); CLR ADJUST-C -WORK. X7 ; 0 =>ADJUST.CUR; MOVC USER*2 R6 ;┆
0x1d200…1d280 UnusedSector ┆ RE.USER =>ADDR; L41: ; IN NAME: MOVC 0 R2 ; 0 =>COUNT; JMP S5 P30 ; TYPE IN(COUNT,CHAR,ADDR, JMP L41 ; TIMEOUT: GOTO IN NAME┆
0x1d280…1d300 UnusedSector ┆, JMP G4 ; ERROR: GOTO BREAK); CLR WAHEAD.X7 ; 0 =>AHEAD.WORK; ADDC -1 R6 ; DECR(ADDR); MOVC USER*2+NAMEBYTES+1R2 ; RE.USER+┆
0x1d300…1d380 UnusedSector ┆NAMEBYTES+1 SUB R6 R2 ; -ADDR =>COUNT; MOVC 0 R3 ; 0 =>CHAR; L6: ; INSERT ZERO: MOVB R3 BYTE. X6 ; CHAR =>BYTE.ADDR; ADDC 1 ┆
0x1d380…1d400 UnusedSector ┆R6 ; INCR(ADDR); SOB R2 L6 ; IF DECR(COUNT)<>0 THEN ; GOTO INSERT ZERO; CLR WIDENT.X7 ; 0 =>IDENT.WORK; MOVC USER R0 ; MON ┆
0x1d400…1d480 UnusedSector ┆SEARCHPROCESS ; SEARCH PROCESS(USER, JMP L9 ; NOT FOUND: GOTO UNKNOWN); CLR WANY. X7 ; FALSE =>ANY.WORK; MOD CBASE-C ; INE R┆
0x1d480…1d500 UnusedSector ┆1 ITEM ; IF PROC<>ITEM.BASE.CUR THEN JMP L18 ; GOTO ATTENTION; JMP S6 A6 ; RE. <:.:<0>:> ; ".:" =>ADDR; A6: JMP S5 P51 ; TYPE┆
0x1d500…1d580 UnusedSector ┆ PROG TEXT(ADDR); L61: ; IN MODE: MOVC 1 R2 ; 1 =>COUNT; MOVC USER*2 R6 ; RE.USER =>ADDR; JMP S5 P30 ; TYPE IN(COUNT,CHAR,ADD┆
0x1d580…1d600 UnusedSector ┆R, JMP L61 ; TIMEOUT: GOTO IN MODE, JMP G4 ; ERROR: GOTO BREAK); ADDC -<:0:> R3 ; CHAR-"0" MOV R3 WMODE. X7 ; =>MODE.WORK; ┆
0x1d600…1d680 UnusedSector ┆JMP S5 P53 ; TYPE NL; JMP L10 ; GOTO READY; L18: MOVC USER R0 ; ATTENTION: MOVC ATTMESS R1 ; ATTMESS =>MESS; MON SENDMESSAGE ┆
0x1d680…1d700 UnusedSector ┆; SEND MESSAGE(USER,MESS,EVENT); MOVC 50 R0 ; MON SETDELAY ; SET DELAY(50); MON WAITANSWER ; WAIT ANSWER(EVENT, MON REGRETME┆
0x1d700…1d780 UnusedSector ┆SSAGE ; TIMEOUT: REGRET MESS(EVENT)); MOV R7 WBUSY. X7 ; TRUE =>BUSY.WORK; JMP L10 ; GOTO READY; L171: ; BUSY: CLR WBUSY. X7 ┆
0x1d780…1d800 UnusedSector ┆; FALSE =>BUSY.WORK; JMP S6 L20 ; RE."BUSY" =>ADDR; <:BUSY<0>:> ; GOTO TYPE OWN TEXT; L16: ; NOT USER: MOV EVENTSTATUS-C R2 ;┆
0x1d800…1d880 UnusedSector ┆ EVENT STATUS.CUR =>STATE; MON RESUMEEVENT ; RESUME EVENT; MOV WANY. X7 R5 ; ILO R2 #100 ; IF PRIORITY.STATE=0 THEN JOZ R5 L┆
0x1d880…1d900 UnusedSector ┆12 ; IF NOT ANY.WORK THEN ; GOTO NEXT EVENT; MOV WBUSY. X7 R2 ; IF BUSY.WORK THEN JON R2 L171 ; GOTO BUSY; MOVC USER R1 ; M┆
0x1d900…1d980 UnusedSector ┆ODC IDLENGTH ; IDLENGTH =>LENGTH; MOVM X0 X1 ; MOVEMULT(LENGTH,SEND,USER); CLR WANY. X7 ; FALSE =>ANY.WORK; JMP S5 P53 ; TYPE┆
0x1d980…1da00 UnusedSector ┆ NL; MOVC <:-:> R0 ; "-" MOVB R0 WARROW.X7 ; =>ARROW.WORK; MOVC OUTUSER R6 ; RE.OUTUSER =>ADDR; MODC P50 -P51 ; TYPE TEXT(AD┆
0x1da00…1da80 UnusedSector ┆DR) ORELSE L20: ; TYPE OWN TEXT: JMP S5 P51 ; TYPE PROG TEXT(ADDR); JMP S5 P53 ; TYPE NL; JMP L10 ; GOTO READY; L9: ; UNKNOWN┆
0x1da80…1db00 UnusedSector ┆: JMP S6 L20 ; RE."UNKNOWN" =>ADDR; <:UNKNOWN<0>:> ; GOTO TYPE OWN TEXT; USE BASE XNAME0= <:OC:> XKIND= KINDOC OR BMBYTE OR B┆
0x1db00…1db80 UnusedSector ┆MDISP XPRPC= L0 XDEVPR= DEV<2+PR XREFS= 8 XBUFS= 1 NOLIST $S8MXPX2 LIST END ; END OF MODULE: DOC; # ┆
0x1db80…1dc00 UnusedSector ┆ O TYPE OWN TEXT; USE BASE XNAME0= <:OC:> XKIND= KINDOC OR BMBYTE OR B┆
0x1dc00…1dc80 UnusedSector ┆X7 ; TRUE =>SEARCHED.WORK; JOZ R0 L111 ; IF NOT SEARCHED JON R1 L111 ; OR INPUT.WORK THEN ; GOTO INIT QUEUE; MOV WBUSY. X7 R┆
0x1dc80…1dd00 UnusedSector ┆0 ; JOZ R0 A1 ; IF BUSY.WORK THEN JMP L171 ; GOTO BUSY; A1: MOV FIRSTEVENT-C R0 ; IF FIRST EVENT.CUR=0 THEN JOZ R0 L10 ; GOTO┆
0x1dd00…1dd80 UnusedSector ┆ READY; MOV R7 WANY. X7 ; TRUE =>ANY.WORK; L10: ; READY: JMP S5 P11 ;* SENSE DEVICE(STATUS,IRR, ;* ERROR: CONTINUE); MOV INT┆
0x1dd80…1de00 UnusedSector ┆ERRUPT-C R1 ; INTERRUPT.CUR =>INTRPT; MON CLEARINTERRUPT ; CLEAR INTERRUPT(INTRPT,IRR); L11: ; INSPECT QUEUE: CLR WSEARD.X7 ; ┆
0x1de00…1de80 UnusedSector ┆FALSE =>SEARCHED.WORK; L111: ; INIT QUEUE: CLR WINPUT.X7 ; FALSE =>INPUT.WORK; MON INITWAIT ; INIT WAIT; L12: MOV WBREAK.X7 R0┆
0x1de80…1df00 UnusedSector ┆ ; NEXT EVENT: JOZ R0 A12 ; IF BREAK.WORK THEN JMP G4 ; GOTO BREAK; A12: MOVC 10 R0 ; MON SETDELAY ; SET DELAY(10); MOV INTE┆
0x1df00…1df80 UnusedSector ┆RRUPT-C R1 ; INTERRUPT.CUR =>INTRPT; MON SETINTERRUPT ; SET INTERRUPT(INTRPT); MON WAITNEXT ; WAIT NEXT(EVENT, JMP L1 ; TIME ┆
0x1df80…1e000 UnusedSector ┆OUT: GOTO ANY USER, TRP 0 ; ANSWER: IMPOSSIBLE, JMP L13 ; MESSAGE: GOTO MESSAGE, ; INTERRUPT: CONTINUE); JMP S5 P11 ;* SENSE┆
0x1e000…1e080 UnusedSector ┆ DEVICE(STATUS,IRR, ;* ERROR: CONTINUE); JMP L12 ; GOTO NEXT EVENT; L13: ; MESSAGE: MOV MCOUNT.X7 R2 ; COUNT.MESS =>COUNT; I┆
0x1e080…1e100 UnusedSector ┆BN MOPERN.X7 BNTPUT ; IF OPER.MESS[TRANSPUT] THEN JMP L14 ; GOTO TRANSPUT; ; CONTROL: IBNP MOPERN.X7 BNRESERVE ; IF OPER.MESS┆
0x1e100…1e180 UnusedSector ┆; CR80 SYSTEM ONE ; DRIVER ; MODULE: DOC - DRIVER, OPERATOR'S CONSOLE (SILENT 700) BEGIN MODULE MYPROC MESSAGE <:DOC:> ; BEGIN┆
0x1e180…1e200 UnusedSector ┆ MODULE: DOC; GLOBAL NL,LF,CR,BYTE,MADDRESS,WORK,PROGRAM,DEVICE GLOBAL BMTIMER,BMERROR,INTERRUPT,ADJUST,CBASE,BS,EM,CAN,DEL GLOB┆
0x1e200…1e280 UnusedSector ┆AL GETBYTE,PUTBYTE,WAITINTERRUPT GLOBAL CUREVENT,BNIGNR,STATE,NAMEBYTES ; $S8MXGL USE BASE NOLIST $S8MNAX LIST XPD:= DRIVERLENG┆
0x1e280…1e300 UnusedSector ┆TH NOLIST $S8MXPX1 LIST DEV:= 1 PR:= 0 TAB:= 9 MYBASE:= #18D0 MYPROC:= MYBASE+ITEM BNINREADY:= 10 BNOUTREADY:= 11 ; 12 ; OVERR┆
0x1e300…1e380 UnusedSector ┆UN BNBREAK:= 13 ; DEVICE-FAILURE ; 14 ; PARITY AHEADS:= 72 ASAVE= LOC*2 0 REPEAT (AHEADS-1)/2 LOC= LOC-WORK WLINK0: 0 WLINK1:┆
0x1e380…1e400 UnusedSector ┆ 0 WLINK2: 0 WMODE: 0 WAHEAD: 0 WLAST: 0 WANY: TRUE WECHO: TRUE WBREAK: FALSE WSEARCHED: FALSE WINPUT: FALSE WBUSY: FALSE LOC= L┆
0x1e400…1e480 UnusedSector ┆OC+WORK WPROMPT:= LOC-WORK PROMPT: 0 ZERO: ATTMESS: 0 USER: 0 REPEAT IDLENGTH-1,0 WIDENT:= USER+NAMEIDENT-WORK SEND: 0 REPEAT I┆
0x1e480…1e500 UnusedSector ┆DLENGTH-1 USE PROG ; PROCEDURE SENSE DEVICE(STATUS,CHAR),(ERROR); ; SENSES THE DEVICE STATUS AND REFLECTS THE SWOPPED STATUS B┆
0x1e500…1e580 UnusedSector ┆ACK TO ; THE DEVICE. EXTRACTS THE ACTIVE STATUS BITS. DETECTS A POSSIBLE BREAK. ; CALL: EXIT: ; R0 CHAR ; R1 STATUS ; R5 LINK UN┆
0x1e580…1e600 UnusedSector ┆DEFINED ; R7 WORK WORK ; LINK0+1 ERROR ; LINK+0 RETURN BEGIN USE PROG EXTERNAL WLINK0,WAHEAD,WBREAK,BNBREAK,BNINREADY,L157 EXTER┆
0x1e600…1e680 UnusedSector ┆NAL ASAVE,WLAST,AHEADS,TAB ENTRY P10,G10,P11 USE BASE LOC= LOC-WORK WSAVE6: 0 ; SAVE R6 WSAVE2: 0 ; SAVE R2 TABPOS: 0 ; TAB POS┆
0x1e680…1e700 UnusedSector ┆ITION; LOC= LOC+WORK USE PROG P11: ; SENSE DEVICE(*,*,CONTINUE): MOV R5 WLINK0.X7 ; LINK DEC WLINK0.X7 ; -1 =>LINK0; P10: ; S┆
0x1e700…1e780 UnusedSector ┆ENSE DEVICE: MOV CUREVENT-C R0 ; CURRENT EVENT.CUR =>EVENT; JOZ R0 A1 ; IF EVENT<>0 THEN SUB CBASE-C R0 ; IBN STATE. X0 BNIG┆
0x1e780…1e800 UnusedSector ┆NR ; IF STATE.EVENT[IGNR] THEN JMP L157 ; GOTO DUMMY RETURN; A1: MOV DEVICE-C R0 ; DEVICE.CUR =>DEVICE; SIO R1 R0 ; SENSE(STAT┆
0x1e800…1e880 UnusedSector ┆US,DEVICE); SWP R1 ; CIO R1 R0 ; CONTROL(SWOP(STATUS),DEVICE); RIO R0 R0 ; READ(CHAR,DEVICE); XTR R0 7 ; CHAR[6:7] =>CHAR; ┆
0x1e880…1e900 UnusedSector ┆SLL R1 8 ; 0 =>STATUS[7:8]; XTR R1 15 ; STATUS[14:15] =>STATUS; MOV R6 WSAVE6.X7 ; SAVE(R6); MOV WAHEAD.X7 R6 ; AHEAD.WORK =>┆
0x1e900…1e980 UnusedSector ┆AHEAD; ILO R6 AHEADS ; IF AHEAD<AHEADS SBN R1 BNINREADY ; AND STATUS[IN READY] THEN JMP A2 ; BEGIN MOV R2 WSAVE2.X7 ; SAVE(R┆
0x1e980…1ea00 UnusedSector ┆2); INEP R0 TAB ; IF CHAR<>TAB THEN MOVC -1 R2 ; -1=>COUNT; JMP A3 ; GOTO ADJUST; MOV TABPOS.X7 R2 ; TABPOS.WORK=>COUNT; AD┆
0x1ea00…1ea80 UnusedSector ┆DC -8 R2 ; COUNT-8=>COUNT; ILT R2 0 ; IF COUNT<0 THEN JMP A3 ; GOTO ADJUST; ADDC -14 + 8 R2 ; ILT R2 0 ; JMP A3 ; ADDC -21┆
0x1ea80…1eb00 UnusedSector ┆ + 14 R2 ; ILT R2 0 ; JMP A3 ; ADDC -25 + 21 R2 ; ILT R2 0 ; JMP A3 ; ADDC -32 + 25 R2 ; ILT R2 0 ; JMP A3 ; ADDC -36 +┆
0x1eb00…1eb80 UnusedSector ┆ 32 R2 ; ILT R2 0 ; JMP A3 ; ADDC -40 + 36 R2 ; IGE R2 0 ; IF TABCOUNT-40>=0 THEN MOVC -1 R2 ; -1=>COUNT; A3: ; ADJUST: NE┆
0x1eb80…1ec00 UnusedSector ┆G R2 ; NEGATE(COUNT); A4: ; STORE: INC WAHEAD.X7 ; INCR(AHEAD.WORK); ADD WLAST. X7 R6 ; LAST.WORK+AHEAD =>AHEAD; IHS R6 AHEAD┆
0x1ec00…1ec80 UnusedSector ┆S ; IF AHEAD>=AHEADS THEN ADDC -AHEADS R6 ; AHEAD-AHEADS =>AHEAD; MOVB R0 ASAVE. X6 ; CHAR =>BYTE.AHEAD.SAVE INC TABPOS.X7 ; ┆
0x1ec80…1ed00 UnusedSector ┆INCR(TABPOS.WORK); SOB R2 A4 ; IF DECR(COUNT)<>0 THEN ; GOTO STORE; SEQ R0 CAN ; IF CHAR=CAN IEQ R0 BS ; OR CHAR=BS THEN DE┆
0x1ed00…1ed80 UnusedSector ┆C TABPOS.X7 ; DECR(TABPOS.WORK); SEQP R0 DEL ; IF CHAR=DEL SEQ R0 LF ; OR CHAR=LF IEQ R0 CR ; OR CHAR=CR THEN CLR TABPOS.X7 ┆
0x1ed80…1ee00 UnusedSector ┆; 0=>TABPOS.WORK; IBN R1 BNBRK ; IF STATUS[BREAK] THEN CLR TABPOS.X7 ; 0=>TABPOS.WORK; MOV WSAVE2.X7 R2 ; RESTORE(R2); A2: ; ┆
0x1ee00…1ee80 UnusedSector ┆END; MOV WSAVE6.X7 R6 ; RESTORE(R6); SLO R1 1<12 ; IF STATUS[15:12]=0 IBZ R1 BNINREADY ; OR NOT STATUS[IN READY] JMP 0. X5 ;┆
0x1ee80…1ef00 UnusedSector ┆ THEN RETURN; JON R0 G10 ; IF CHAR=0 THEN IBNP R1 BNBREAK ; IF STATUS[BREAK] THEN ; BEGIN CLR WAHEAD.X7 ; 0 =>AHEAD.WORK; M┆
0x1ef00…1ef80 UnusedSector ┆OV R7 WBREAK.X7 ; TRUE =>BREAK.WORK ; END; G10: MOV WLINK0.X7 R5 ; ERROR RETURN: JMP 1. X5 ; GOTO ERROR.LINK0; END ; END OF SE┆
0x1ef80…1f000 UnusedSector ┆NSE DEVICE; ; PROCEDURE TYPE CHAR(CHAR),(TIMEOUT,ERROR); ; WRITES THE CHARACTER ON THE CONSOLE. ; CALL: EXIT: ; R0 DESTROYED ; ┆
0x1f000…1f080 UnusedSector ┆R1 DESTROYED ; R3 CHAR CHAR ; R4 DESTROYED ; R5 LINK DESTROYED ; R7 WORK WORK ; LINK0+0 TIMEOUT ; LINK0+1 ERROR ; LINK+0 RETURN ┆
0x1f080…1f100 UnusedSector ┆BEGIN USE PROG EXTERNAL P10,P50,P51,P53,P61,G50,WLINK0,WLINK1,BNOUTREADY,WINPOS,WECHO EXTERNAL WMODE,PROMPT ENTRY P20,WPOS USE ┆
0x1f100…1f180 UnusedSector ┆BASE LOC= LOC-WORK WPOS: 0 ; POSITION ON LINE WMAX:= 80 ; MAX POSITION WSAVE3: 0 ; SAVE CHAR LOC= LOC+WORK USE PROG P20: MOV WE┆
0x1f180…1f200 UnusedSector ┆CHO. X7 R0 ; TYPE CHAR: JON R0 A20 ; IF NOT ECHO.WORK THEN JMP 0. X5 ; RETURN; A20: MOV R5 WLINK1.X7 ; SAVE(LINK); MOV R3 WSA┆
0x1f200…1f280 UnusedSector ┆VE3.X7 ; SAVE(CHAR); IEQ R3 NL ; IF CHAR=NL THEN MOVC CR R3 ; CR =>CHAR; IEQP R3 CR ; IF CHAR=CR THEN ; BEGIN MOVC 8 R4 ; 8┆
0x1f280…1f300 UnusedSector ┆ =>LOOP; JMP L1 ; GOTO SENSE IT ; END; MOVC 1 R4 ; 1 =>LOOP; MOV WPOS. X7 R0 ; POS.WORK =>POS; JOZ R3 L11 ; IF CHAR=0 THEN ┆
0x1f300…1f380 UnusedSector ┆ ; GOTO TEST POSITION; IEQP R3 BS ; IF CHAR=BS THEN ; BEGIN DEC WPOS. X7 ; DECR(POS.WORK); JON R0 L11 ; IF POS<>0 THEN ; GO┆
0x1f380…1f400 UnusedSector ┆TO TEST POSITION ; END; INC WPOS. X7 ; INCR(POS.WORK); L11: ; TEST POSITION: MOV WSAVE3.X7 R3 ; RESTORE(CHAR); XCH R4 R0 ; S┆
0x1f400…1f480 UnusedSector ┆AVE(LOOP); MOV R6 R1 ; SAVE(R6); JON R4 A12 ; IF POS=0 THEN MOV WMODE. X7 R4 ; IF MODE.WORK JOZ R4 A12 ; <>0 THEN MOVC PROM┆
0x1f480…1f500 UnusedSector ┆PT R6 ; IF 0.PROMPT JOZ 0. X6 A12 ; <>0 THEN MOV WLINK0.X7 R4 ; IF NOT CALLED MOVC G50 R5 ; FROM INE R4 R5 ; TYPE TEXT THEN ┆
0x1f500…1f580 UnusedSector ┆ JMP S5 P50 ; TYPE TEXT(PROMPT); A12: MOV WPOS. X7 R5 ; POS.WORK =>POS; MOVC WMAX R6 ; MAX =>MAX; SLO R6 R5 ; IF POS>MAX THEN ┆
0x1f580…1f600 UnusedSector ┆ JMP A13 ; BEGIN JMP S5 P53 ; TYPE NL; JMP S6 A11 ; RE. <: <92><0>:> ; " <92><0>" =>ADDR; A11: JMP S5 P51 ; TYPE PROG TEXT(AD┆
0x1f600…1f680 UnusedSector ┆DR) A13: ; END; MOV R1 R6 ; RESTORE(R6); MOV R0 R4 ; RESTORE(LOOP); MOV R3 WSAVE3.X7 ; SAVE(CHAR); JON R3 L1 ; IF CHAR<>0 TH┆
0x1f680…1f700 UnusedSector ┆EN ; GOTO SENSE IT; JMPI WLINK1.X7 ; RETURN; L1: ; SENSE IT: JMP S5 P10 ; SENSE DEVICE(STATUS,IRR, ; ERROR: GOTO ERROR.LINK0┆
0x1f700…1f780 UnusedSector ┆); IBZP R1 BNOUTREADY ; IF NOT STATUS[OUTPUT READY] THEN ; BEGIN JMP S5 P61 ; WAIT IT(50, ; TIMOUT: GOTO TIMOUT.LNK0); JMP ┆
0x1f780…1f800 UnusedSector ┆L1 ; GOTO SENSE IT ; END; IEQ R4 7 ; IF LOOP=7 THEN MOV WSAVE3.X7 R3 ; RESTORE(CHAR); IEQ R4 6 ; IF LOOP=6 THEN MOVC 0 R3 ;┆
0x1f800…1f880 UnusedSector ┆ 0 =>CHAR; MOV DEVICE-C R1 ; WIO R3 R1 ; WRITE(CHAR,DEVICE.CUR); SOB R4 L1 ; IF DECR(LOOP)<>0 THEN ; GOTO SENSE IT; JON R3 ┆
0x1f880…1f900 UnusedSector ┆A2 ; IF CHAR<>0 THEN ; RETURN; MOV WSAVE3.X7 R3 ; RESTORE(CHAR); MOV WPOS. X7 R0 ; MODC WINPOS ; INPOS.WORK SUB R0 0. X7 ; ┆
0x1f900…1f980 UnusedSector ┆-POS.WORK =>INPOS.WORK; CLR WPOS. X7 ; 0 =>POS.WORK; A2: JMPI WLINK1.X7 ; RETURN; END ; END OF TYPE CHAR; ; PROCEDURE TYPE IN(┆
0x1f980…1fa00 UnusedSector ┆COUNT,CHAR,ADDR),(TIMEOUT,ERROR); ; READS A STRING OF CHARACTERS AND STORES THEM AT ADDR AND ON. ; THE VARIABLES, ADDR AND COUNT┆
0x1fa00…1fa80 UnusedSector ┆, ARE INCREMENTED AND DECREMENTED ; ACCORDINGLY. THE CHARACTERS ARE ECHOED BY MEANS OF TYPE CHAR. ; THE FOLLOWING CHARACTERS HAV┆
0x1fa80…1fb00 UnusedSector ┆E SPECIAL MEANINGS: ; LF LINE FEED: THE CHARACTER IS REPLACED BY A CR CHARACTER. ; THE TEXT, "*CR<10>", IS OUTPUT. ; CR CARRIAGE┆
0x1fb00…1fb80 UnusedSector ┆ RETURN: THE CHARACTER IS REPLACED BY NL(=LF). ; READING IS TERMINATED WHEN COUNT BECOMES ZERO OR WHEN A CR CHARACTER ; IS READ.┆
0x1fb80…1fc00 UnusedSector ┆ ; CALL: EXIT: ; R0 DESTROYED ; R1 DESTROYED ; R2 COUNT COUNT (UPDATED) ; R3 CHAR (LAST INPUT) ; R4 DESTROYED ; R5 LINK DESTROYE┆
0x1fc00…1fc80 UnusedSector ┆D ; R6 ADDR ADDR (UPDATED) ; R7 WORK WORK ; LINK+0 TIMEOUT ; LINK+1 ERROR ; LINK+2 RETURN BEGIN USE PROG EXTERNAL P10,G10,P11,P2┆
0x1fc80…1fd00 UnusedSector ┆0,P51,P51P52,P52,P60,P61 EXTERNAL WLINK0,WBREAK,BNINREADY,WPOS,BNOUTREADY,WAHEAD EXTERNAL ASAVE,WLAST,AHEADS ENTRY P30,G30,G31,W┆
0x1fd00…1fd80 UnusedSector ┆INPOS USE BASE LOC= LOC-WORK WCANCEL: FALSE ; CANCEL WSAVE3: 0 ; SAVE R3 WCOUNT: 0 ; COUNT WADDR: 0 ; ADDR WINPOS: 0 ; IN POSIT┆
0x1fd80…1fe00 UnusedSector ┆ION ON LINE LOC= LOC+WORK USE PROG P30: ; TYPE IN: MOV R5 WLINK0.X7 ; SAVE(LINK); MOVC 0 R3 ; JMP S5 P20 ; TYPE CHAR(0); MO┆
0x1fe00…1fe80 UnusedSector ┆V R6 WADDR. X7 ; ADDR =>ADDR.WORK; MOV R2 WCOUNT.X7 ; COUNT =>COUNT.WORK; MOV WPOS. X7 R4 ; POS.WORK MOV R4 WINPOS.X7 ; =>INP┆
0x1fe80…1ff00 UnusedSector ┆OS.WORK; L1: ; NEXT IN: MOV WAHEAD.X7 R5 ; AHEAD.WORK =>AHEAD; JOZ R5 L8 ; IF AHEAD=0 THEN ; GOTO SENSE IT; MOV WLAST. X7 R5┆
0x1ff00…1ff80 UnusedSector ┆ ; LAST.WORK =>LAST; MOVB ASAVE. X5 R3 ; BYTE.LAST.SAVE =>CHAR; DEC WAHEAD.X7 ; DECR(AHEAD.WORK); INC WLAST. X7 ; INCR(LAST.W┆
0x1ff80…20000 UnusedSector ┆ORK); IEQ R5 AHEADS-1 ; IF LAST=AHEADS-1 THEN CLR WLAST. X7 ; 0 =>LAST.WORK; JMP L3 ; GOTO TEST CHAR; ; GOTO TEST CHAR; L8: ┆
0x20000…20080 UnusedSector ┆MOV WLINK0.X7 R4 ;*SENSE IT: JMP S5 P11 ;* SENSE DEVICE(STATUS,CHAR, MOV R4 WLINK0.X7 ;* ERROR: CONTINUE); CLR WAHEAD.X7 ; 0 ┆
0x20080…20100 UnusedSector ┆=>AHEAD.WORK; MOV R0 R3 ; MOV WCOUNT.X7 R0 ; IF COUNT.WORK INE R2 R0 ; <>COUNT THEN MODC #7F00 ; #7F00 =>DELAY MOVC 50 R0 ;┆
0x20100…20180 UnusedSector ┆ ELSE 50 =>DELAY; IBZP R1 BNINREADY ; IF NOT STATUS[INPUT READY] THEN ; BEGIN JMP S5 P60 ; WAIT IT(DELAY, ; TIMOUT: GOTO TIM┆
0x20180…20200 UnusedSector ┆OUT.LINK); JMP L1 ; GOTO NEXT IN ; END; L3: ; TEST CHAR: MOV WBREAK.X7 R4 ; IF BREAK.WORK THEN JON R4 L2 ; GOTO DELETE; IEQ┆
0x20200…20280 UnusedSector ┆ R3 CAN ; IF CHAR=CAN THEN JMP L4 ; GOTO CANCEL; INE R3 DEL ; IF CHAR<>DEL THEN JMP L5 ; GOTO TEST CANCEL; L2: ; DELETE: JMP┆
0x20280…20300 UnusedSector ┆ S6 A3 ; RE. <:*DL<10><0>:> ; "*DL<10>" =>ADDR; A3: MOV WCOUNT.X7 R5 ; INEP R5 R2 ; IF COUNT.WORK<>COUNT THEN ; BEGIN CLR WP┆
0x20300…20380 UnusedSector ┆OS. X7 ; 0 =>POS.WORK; JMP S5 P51 ; TYPE PROG TEXT(ADDR) ; END; MOV WPOS. X7 R4 ; POS.WORK MOV R4 WINPOS.X7 ; =>INPOS.WORK; ┆
0x20380…20400 UnusedSector ┆ MOV WADDR. X7 R6 ; ADDR.WORK =>ADDR; MOV WCOUNT.X7 R2 ; COUNT.WORK =>COUNT; MOV WBREAK.X7 R3 ; IF NOT BREAK.WORK THEN JOZ R3┆
0x20400…20480 UnusedSector ┆ L1 ; GOTO NEXT IN; JMP G10 ; GOTO ERROR RETURN; L4: MOV WCOUNT.X7 R1 ; CANCEL: IEQ R1 R2 ; IF COUNT.WORK=COUNT THEN JMP L1 ;┆
0x20480…20500 UnusedSector ┆ GOTO NEXT IN; MOV ADJUST-C R1 ; IF ADJUST.CUR JON R1 A41 ; <>0 IHS R2 -NAMEBYTES ; OR COUNT>=-NAMEBYTES THEN A41: ADDC -1 R6┆
0x20500…20580 UnusedSector ┆ ; DECR(ADDR); MOV R6 R1 ; SAVE(ADDR); MON GETBYTE ; GET BYTE(ADDR,CHAR);; SNE R3 BS ; IF CHAR<>BS THEN JMP A42 ; BEGIN JMP┆
0x20580…20600 UnusedSector ┆ S6 A4 ; RE. <:<8>X<8><0>:> ; "<BS>X<BS>" =>ADDR; A4: MODC P51P52 ; TYPE PROG TEXT(ADDR) A42: ; END JMP S5 P52 ; ELSE TYPE SPA┆
0x20600…20680 UnusedSector ┆CE; MOV R1 R6 ; RESTORE(ADDR); MOV R7 WCANCL.X7 ; TRUE =>CANCEL.WORK; ADDC 1 R2 ; INCR(COUNT); JMP L1 ; GOTO NEXT IN; L5: ; ┆
0x20680…20700 UnusedSector ┆TEST CANCEL: MOV WCANCL.X7 R1 ; CANCEL.WORK =>CANCEL; JOZ R1 L6 ; IF NOT CANCEL THEN ; GOTO ECHO IT; MOV R3 WSAVE3.X7 ; SAVE┆
0x20700…20780 UnusedSector ┆(CHAR); MOVC LF R3 ; MOV DEVICE-C R1 ; WIO R3 R1 ; WRITE(LF,DEVICE.CUR); MOV WSAVE3.X7 R3 ; RESTORE(CHAR); CLR WCANCL.X7 ; ┆
0x20780…20800 UnusedSector ┆FALSE =>CANCEL.WORK; L6: MOV WINPOS.X7 R1 ; ECHO IT: MOV WPOS. X7 R5 ; IEQP R3 BS ; IF CHAR=BS THEN IGE R1 R5 ; IF POS.WORK<=┆
0x20800…20880 UnusedSector ┆INPOS.WORK THEN JMP L1 ; GOTO NEXT IN; SEQ R3 LF ; IF CHAR=LF THEN JMP A51 ; BEGIN MOV R6 R1 ; SAVE(ADDR); CLR WPOS. X7 ; 0┆
0x20880…20900 UnusedSector ┆ =>POS.WORK; JMP S6 A5 ; RE. <:*CR<10><0>:> ; "*CR<10>" =>ADDR; A5: JMP S5 P51 ; TYPE PROG TEXT(ADDR); CLR WINPOS.X7 ; 0 =>IN┆
0x20900…20980 UnusedSector ┆POS.WORK; MOV R1 R6 ; RESTORE(ADDR); MOVC CR R3 ; CR =>CHAR; JMP L7 ; GOTO PUT IT A51: ; END; IEQ R3 CR ; IF CHAR=CR THEN M┆
0x20980…20a00 UnusedSector ┆OVC NL R3 ; NL =>CHAR; JMP S5 P20 ; TYPE CHAR(CHAR, ; TIMEOUT: GOTO TIMEOUT.LINK, ; ERROR: GOTO ERROR.LINK); L7: ; PUT IT: M┆
0x20a00…20a80 UnusedSector ┆OV ADJUST-C R0 ; IF ADJUST.CUR JON R0 A7 ; =0 THEN MOV WADDR. X7 R0 ; IF ADDR.CUR SUB R6 R0 ; -ADDR IEQP R0 -NAMEBYTES ; <-N┆
0x20a80…20b00 UnusedSector ┆AMEBYTES THEN INE R3 NL ; IF CHAR<>NL THEN ADDC -1 R6 ; DECR(ADDR); A7: MON PUTBYTE ; PUT BYTE(ADDR,CHAR); ADDC 1 R6 ; INCR(A┆
0x20b00…20b80 UnusedSector ┆DDR); SEQ R3 EM ; IF CHAR=EM IEQ R3 NL ; OR CHAR=NL THEN JMP G31 ; GOTO COUNT RETURN; SOB R2 L1 ; IF DECR(COUNT)<>0 THEN ; ┆
0x20b80…20c00 UnusedSector ┆GOTO NEXT IN; JMP G30 ; GOTO TYPE RETURN; G31: ; COUNT RETURN: ADDC -1 R2 ; DECR(COUNT); G30: ; TYPE RETURN: JMP S5 P10 ; SEN┆
0x20c00…20c80 UnusedSector ┆SE DEVICE(STATUS,IRR, ; ERROR: GOTO ERROR.LINK0); IBZ R1 BNOUTREADY ; IF NOT STATUS[OUTPUT READY] THEN JMP S5 P61 ; WAIT IT(5┆
0x20c80…20d00 UnusedSector ┆0, ; TIMEOUT: GOTO TIMEOUT.LINK); MOV WLINK0.X7 R5 ; JMP 2 .X5 ; RETURN(LINK); END ; END OF TYPE IN; ; PROCEDURE TYPE OUT(CO┆
0x20d00…20d80 UnusedSector ┆UNT,CHAR,ADDR),(TIMEOUT,ERROR); ; WRITES A STRING OF CHARACTERS FROM ADDR AND ON. THE VARIABLES, ; ADDR AND COUNT, ARE INCREMENT┆
0x20d80…20e00 UnusedSector ┆ED AND DECREMENTED ACCORDINGLY. THE ; CHARACTERS ARE WRITTEN BY MEANS OF TYPE CHAR. ; CALL: EXIT: ; R0 DESTROYED ; R1 DESTROYED ┆
0x20e00…20e80 UnusedSector ┆; R2 COUNT COUNT (UPDATED) ; R3 CHAR (LAST OUTPUT) ; R4 DESTROYED ; R5 LINK DESTROYED ; R6 ADDR ADDR (UPDATED) ; R7 WORK WORK ; ┆
0x20e80…20f00 UnusedSector ┆LINK+0 TIMEOUT ; LINK+1 ERROR ; LINK+2 RETURN BEGIN USE PROG EXTERNAL P20,G30,G31,WLINK0 ENTRY P40 P40: ; TYPE OUT: MOV R5 WLIN┆
0x20f00…20f80 UnusedSector ┆K0.X7 ;* SAVE(LINK); L1: ; NEXT OUT: MON GETBYTE ; GET BYTE(ADDR,CHAR); JMP S5 P20 ; TYPE CHAR(CHAR, ; TIMEOUT: GOTO TIMEOUT.┆
0x20f80…21000 UnusedSector ┆LINK, ; ERROR: GOTO ERROR.LINK); ADDC 1 R6 ; INCR(ADDR); JOZ R3 G31 ; IF CHAR=0 THEN ; GOTO COUNT RETURN; SOB R2 L1 ; IF DE┆
0x21000…21080 UnusedSector ┆CR(COUNT)<>0 THEN ; GOTO NEXT OUT; JMP G30 ; GOTO TYPE RETURN; END ; END OF TYPE OUT; ; PROCEDURE TYPE NL; ; TYPES A NL CHAR┆
0x21080…21100 UnusedSector ┆ACTER, USING TYPE PROG TEXT. ; CALL: EXIT: ; R4 DESTROYED ; R5 LINK DESTROYED ; R6 DESTROYED ; R7 WORK WORK BEGIN USE PROG EXTER┆
0x21100…21180 UnusedSector ┆NAL P51 ENTRY P53 P53: ; TYPE NL: JMP S6 P51 ; RE."<10>" =>ADDR; <:<10><0>:> ; GOTO TYPE PROG TEXT; END ; END OF TYPE NL; ; P┆
0x21180…21200 UnusedSector ┆ROCEDURE TYPE SPACE; ; TYPES A SPACE, USING TYPE PROG TEXT. ; CALL: EXIT: ; R4 DESTROYED ; R5 LINK DESTROYED ; R6 DESTROYED ; R7┆
0x21200…21280 UnusedSector ┆ WORK WORK BEGIN USE PROG EXTERNAL P51 ENTRY P52 P52: ; TYPE SPACE: JMP S6 P51 ; RE." " =>ADDR; <: <0>:> ; GOTO TYPE PROG TEXT┆
0x21280…21300 UnusedSector ┆; END ; END OF TYPE SPACE; ; PROCEDURE TYPE PROG TEXT(ADDR); ; ADDR IS CHANGED FROM BEING A PROG-RELATIVE WORD-ADDRESS TO A ; B┆
0x21300…21380 UnusedSector ┆ASE-RELATIVE WORD-ADDRESS. THE PROCEDURE CONTINUES WITH TYPE TEXT. ; CALL: EXIT: ; R4 DESTROYED ; R5 LINK DESTROYED ; R6 ADDR AD┆
0x21380…21400 UnusedSector ┆DR (CHANGED AND UPDATED) ; R7 WORK WORK BEGIN USE PROG EXTERNAL ENTRY P51 P51: ; TYPE PROG TEXT: MOD PROGRAM-C ; PROGRAM.CUR M┆
0x21400…21480 UnusedSector ┆ODN CBASE-C ; -BASE.CUR ORELSE ;* CONTINUE WITH TYPE TEXT; END ; END OF TYPE PROG TEXT; P51P52:=P51-P52 ; PROCEDURE TYPE TEXT┆
0x21480…21500 UnusedSector ┆(ADDR); ; ADDR IS CHANGED FROM BEING A WORD-ADDRESS TO A BYTE-ADDRESS. THE ; PROCEDURE TYPES THE TEXT BY MEANS OF TYPE OUT. ; CA┆
0x21500…21580 UnusedSector ┆LL: EXIT: ; R4 DESTROYED ; R5 LINK DESTROYED ; R6 ADDR ADDR (CHANGED AND UPDATED) ; R7 WORK WORK BEGIN USE PROG EXTERNAL G4,P40,┆
0x21580…21600 UnusedSector ┆WLINK0,WLINK2 ENTRY P50,G50 USE BASE LOC= LOC-WORK WSAVEA: 0 ; SAVE ADJUST WSLK0: 0 ; SAVE LINK0 WSLK1: 0 ; SAVE LINK1 WSAVE0: ┆
0x21600…21680 UnusedSector ┆0 ; SAVE R0 WSAVE1: 0 ; SAVE R1 WSAVE2: 0 ; SAVE R2 WSAVE3: 0 ; SAVE R3 LOC= LOC+WORK USE PROG P50: ; TYPE TEXT: MOVC 0 R4 ;* ┆
0x21680…21700 UnusedSector ┆0 =>ADJUST; MOV R5 WLINK2.X7 ; SAVE(LINK); MOVL R01 WSAVE0.X77 ; SAVE(R0,R1); MOVL R23 WSAVE2.X77 ; SAVE(R2,R3); MOVL WLINK0┆
0x21700…21780 UnusedSector ┆.X77 R01 ; SAVE(LINK0, MOVL R01 WSAVEL.X77 ; ,LINK1); MOV ADJUST-C R0 ; MOV R0 WSAVEA.X7 ; SAVE(ADJUST.CUR); MOV R4 ADJUST-C┆
0x21780…21800 UnusedSector ┆ ; ADJUST=>ADJUST.CUR; MOVC 100 R2 ; 100 =>COUNT; ADD R6 R6 ; ADDR+ADDR=>ADDR; JMP S5 P40 ; TYPE OUT(COUNT,IRR,ADDR); G50: JM┆
0x21800…21880 UnusedSector ┆P G4 ; TIMEOUT: GOTO BREAK, JMP G4 ; ERROR: GOTO BREAK); MOV WSAVEA.X7 R0 ; MOV R0 ADJUST-C ; RESTORE(ADJUST.CUR); MOV WSLK0┆
0x21880…21900 UnusedSector ┆. X7 R0 ; RESTORE(LINK0); MOV WSLK1. X7 R1 ; RESTORE(LINK1); MOVL R01 WLINK0.X77 ; LINK1); MOV WSAVE2.X7 R2 ; RESTORE(R2); M┆
0x21900…21980 UnusedSector ┆OV WSAVE3.X7 R2 ; RESTORE(R3); MOV WSAVE0.X7 R0 ; RESTORE(R0); MOV WSAVE1.X7 R0 ; RESTORE(R1); JMPI WLINK2.X7 ; RETURN; END ;┆
0x21980…21a00 UnusedSector ┆ END OF TYPE TEXT; ; PROCEDURE WAIT IT(DELAY),(TIMEOUT); ; CALL: EXIT: ; R0 DELAY COUNT ; R1 INTERRUPT.CUR ; R5 LINK UNDEFINED ┆
0x21a00…21a80 UnusedSector ┆; R7 WORK WORK BEGIN USE PROG EXTERNAL WLINK0 ENTRY P60,P61 P61: ; WAIT IT(50,*): MOVC 50 R0 ; 50 =>DELAY; P60: ; WAIT IT: MOV┆
0x21a80…21b00 UnusedSector ┆ INTERRUPT-C R1 ; INTERRUPT.CUR =>INTRPT; MON WAITINTERRUPT ; WAIT INTERRUPT(DELAY,INTRPT, JMPI WLINK0.X7 ; TIMEOUT: GOTO TIME┆
0x21b00…21b80 UnusedSector ┆OUT.LINK0, JMP 0. X5 ; INTERRUPT: RETURN); END ; END OF WAIT IT; ; REGISTER USE IN THE DRIVER: ; R0 DESTROYED ; R1 DESTROYED ;┆
0x21b80…21c00 UnusedSector ┆ R2 COUNT ; R3 CHAR ; R4 LOOP.TYPE CHAR ; R5 LINKS ; R6 ADDR ; R7 WORK L0: ; INIT: MOVC <:OC:> R0 ; MOVC <:1:> R1 ; <:OC1:> ┆
0x21c00…21c80 UnusedSector ┆MOV R0 NAME-C ; =>NAME.CUR; MOV R1 NAME-C+1 ; MOVC TRUE R0 ; TRUE MOVC TRUE R1 ; MOVL R01 WANY.X7 ; =>(ANY,ECHO).WORK; MOVC┆
0x21c80…21d00 UnusedSector ┆ DEV<2+PR R0 ; DEV<2+PR MOV R0 DEVPR-C ; =>DEVPR.CUR; MON INITDEVICE ; INIT DEVICE(INTERRUPT,DEVICE); L1: ; ANY USER: MOVL WS┆
0x21d00…21d80 UnusedSector ┆EARD.X77 R01 ; SEARCHED.WORK =>SEARCHED; MOV R7 WSEARD.X7 ; TRUE =>SEARCHED.WORK; JOZ R0 L111 ; IF NOT SEARCHED JON R1 L111 ;┆
0x21d80…21e00 UnusedSector ┆ OR INPUT.WORK THEN ; GOTO INIT QUEUE; MOV WBUSY. X7 R0 ; JOZ R0 A1 ; IF BUSY.WORK THEN JMP L171 ; GOTO BUSY; A1: MOV FIRSTE┆
0x21e00…21e80 UnusedSector ┆VENT-C R0 ; IF FIRST EVENT.CUR=0 THEN JOZ R0 L10 ; GOTO READY; MOV R7 WANY. X7 ; TRUE =>ANY.WORK; L10: ; READY: JMP S5 P11 ;*┆
0x21e80…21f00 UnusedSector ┆ SENSE DEVICE(STATUS,IRR, ;* ERROR: CONTINUE); MOV INTERRUPT-C R1 ; INTERRUPT.CUR =>INTRPT; MON CLEARINTERRUPT ; CLEAR INTERR┆
0x21f00…21f80 UnusedSector ┆UPT(INTRPT,IRR); L11: ; INSPECT QUEUE: CLR WSEARD.X7 ; FALSE =>SEARCHED.WORK; L111: ; INIT QUEUE: CLR WINPUT.X7 ; FALSE =>INPU┆
0x21f80…22000 UnusedSector ┆T.WORK; MON INITWAIT ; INIT WAIT; L12: MOV WBREAK.X7 R0 ; NEXT EVENT: JOZ R0 A12 ; IF BREAK.WORK THEN JMP G4 ; GOTO BREAK; A1┆
0x22000…22080 UnusedSector ┆2: MOVC 10 R0 ; MON SETDELAY ; SET DELAY(10); MOV INTERRUPT-C R1 ; INTERRUPT.CUR =>INTRPT; MON SETINTERRUPT ; SET INTERRUPT(I┆
0x22080…22100 UnusedSector ┆NTRPT); MON WAITNEXT ; WAIT NEXT(EVENT, JMP L1 ; TIME OUT: GOTO ANY USER, TRP 0 ; ANSWER: IMPOSSIBLE, JMP L13 ; MESSAGE: GOT┆
0x22100…22180 UnusedSector ┆O MESSAGE, ; INTERRUPT: CONTINUE); JMP S5 P11 ;* SENSE DEVICE(STATUS,IRR, ;* ERROR: CONTINUE); JMP L12 ; GOTO NEXT EVENT; L1┆
0x22180…22200 UnusedSector ┆3: ; MESSAGE: MOV MCOUNT.X7 R2 ; COUNT.MESS =>COUNT; IBN MOPERN.X7 BNTPUT ; IF OPER.MESS[TRANSPUT] THEN JMP L14 ; GOTO TRANSP┆
0x22200…22280 UnusedSector ┆UT; ; CONTROL: IBNP MOPERN.X7 BNRESERVE ; IF OPER.MESS[RESERVE] THEN MOVC ITEM +KIND R5 ; COUNT SUB 0. X5 R2 ; -KIND.CUR =>C┆
0x22280…22300 UnusedSector ┆OUNT; A15: JMP L15 ; GOTO DONE; L14: ; TRANSPUT: JOZ R2 A15 ; IF COUNT=0 THEN ; GOTO DONE; MOVC SEND R0 ; MON GETEVENTNAME ;┆
0x22300…22380 UnusedSector ┆ GET EVENT NAME(SEND); MOVC USER R1 ; MON COMPARENAMES ; COMPARE NAMES(SEND,USER, JMP L16 ; UNEQUAL: NOT USER); CLR WBUSY. X┆
0x22380…22400 UnusedSector ┆7 ; FALSE =>BUSY.WORK; MOV WSEARD.X7 R0 ; JON R0 A14 ; IF NOT SEARCHED.WORK SBZ MOPERN.X7 BNOPUT ; IF NOT OPER.MESS[OUTPUT] T┆
0x22400…22480 UnusedSector ┆HEN JMP A14 ; BEGIN MOV R7 WINPUT.X7 ; TRUE =>INPUT.WORK; MON RESUMEEVENT ; RESUME EVENT; JMP L12 ; GOTO NEXT EVENT A14: ; E┆
0x22480…22500 UnusedSector ┆ND; MOV MCOUNT.X7 R2 ; COUNT.MESS =>COUNT; MON GETADDRESS ; GET ADDRESS(COUNT,ADDR, JMP L158 ; ILLEGAL: GOTO ILLEGAL); MOV W┆
0x22500…22580 UnusedSector ┆PROMT.X7 R1 ; PROMPT.WORK =>OLD; MOV WMODE. X7 R0 ; IF MODE.WORK<>0 THEN JOZ R0 A141 ; BEGIN IBN MOPERN.X7 BNOPUT ; IF OPER.M┆
0x22580…22600 UnusedSector ┆ESS[OUTPUT] THEN MODC <: :> -<:. :> ; " " =>HEAD MOVC <:. :> R0 ; ELSE ". " =>HEAD; MOV R0 WPROMT.X7 ; HEAD =>PROMPT.WORK; J┆
0x22600…22680 UnusedSector ┆OZ R1 A141 ; IF OLD<>0 THEN SNE R1 R0 ; IF OLD<>HEAD THEN JMP A141 ; BEGIN MOV R6 R1 ; SAVE(ADDR); MOV WPOS. X7 R0 ; POS.WOR┆
0x22680…22700 UnusedSector ┆K =>POS; IEQP R0 2 ; IF POS=2 THEN JMP S5 P53 ; TYPE NL; MOV R1 R6 ; RESTORE(ADDR) ; END A141: ; END; IBN MOPERN.X7 BNNOEC ┆
0x22700…22780 UnusedSector ┆; IF OPER.MESS[NO ECHO] THEN CLR WECHO. X7 ; FALSE =>ECHO.WORK; IBN MOPERN.X7 BNOPUT ;* IF OPER.MESS[OUTPUT] THEN MODC -P30 +┆
0x22780…22800 UnusedSector ┆P40 ;* TYPE OUT(COUNT,IRR,ADDR, ;* TIMEOUT: GOTO TIMER, ;* ERROR: GOTO ERROR) JMP S5 P30 ;* ELSE TYPE IN(COUNT,IRR,ADDR, ;* ┆
0x22800…22880 UnusedSector ┆TIMEOUT: GOTO TIMER, ;* ERROR: GOTO ERROR); ;* GOTO DONE; ;*TIMER: MODC BMTIMER -BMERROR ;* TIMER ORELSE ;*ERROR: MODC BME┆
0x22880…22900 UnusedSector ┆RROR -0 ;* ERROR ORELSE L15: ;*DONE: MODC 0 -BMILLEGAL ;* 0 ORELSE L158: ; ILLEGAL: MOVC BMILLEGAL ARESUT.X7 ; ILLEGAL =>RESUL┆
0x22900…22980 UnusedSector ┆T.ANSWER; JMP S5 P11 ;* SENSE DEVICE(STATUS,IRR, ;* ERROR: CONTINUE); L157: ; DUMMY RETURN: MON RETURNANSWER ; RETURN ANSWER(┆
0x22980…22a00 UnusedSector ┆STATUS,COUNT); MOV R7 WECHO. X7 ; TRUE =>ECHO.WORK; JMP L10 ; GOTO READY; G4: MOVC 10 R0 ; BREAK: MON WAITDELAY ; WAIT DELAY(┆
0x22a00…22a80 UnusedSector ┆10); CLR WBREAK.X7 ; FALSE =>BREAK.WORK; JMP S5 P11 ;* SENSE DEVICE(STATUS, ;* ERROR: CONTINUE); MOV WBREAK.X7 R0 ; IF BREAK┆
0x22a80…22b00 UnusedSector ┆.WORK THEN JON R0 G4 ; GOTO BREAK; JMP S5 P53 ; TYPE NL; CLR USER -WORK .X7 ; 0 =>0.USER; CLR PROMPT -WORK. X7 ; 0 =>0.PROMP┆
0x22b00…22b80 UnusedSector ┆T; JMP S6 G41 ; RE.TEXT; <:<7>=><0>:> ; G41: JMP S5 P51 ; TYPE PROG TEXT; CLR ADJUST-C -WORK. X7 ; 0 =>ADJUST.CUR; MOVC USER┆
0x22b80…22c00 UnusedSector ┆*2 R6 ; RE.USER =>ADDR; L41: ; IN NAME: MOVC 0 R2 ; 0 =>COUNT; JMP S5 P30 ; TYPE IN(COUNT,CHAR,ADDR, JMP L41 ; TIMEOUT: GOTO ┆
0x22c00…22c80 DataSector[»S8DOCB«]
[…0x9…]
0x23100…23180 UnusedSector ┆; WAIT IT(50,*): ; AU001162 AU001163 1 0108 MOVC 50 R0 ; 50 =>DELAY; ; AU001163 AU001164 1 0109 P60: ; WAIT IT: ; AU001164 AU001┆
0x23180…23200 UnusedSector ┆165 1 0109 MOV INTERRUPT-C R1 ; INTERRUPT.CUR =>INTRPT; ; AU001165 AU001166 1 010A MON WAITINTERRUPT ; WAIT INTERRUPT(DELAY,INTR┆
0x23200…23280 UnusedSector ┆PT, ; AU001166 1 010B JMPI WLINK0.X7 ; TIMEOUT: GOTO TIMEOUT.LINK0,; AU001167 1 010C JMP 0. X5 ; INTERRUPT: RETURN); ; AU00116┆
0x23280…23300 UnusedSector ┆7 AU001168 1 010D END ; END OF WAIT IT; ; AU001168 AU001169 1 010D ; AU001169 AU001170 1 010D ; REGISTER USE IN THE DRIVER: ; AU┆
0x23300…23380 UnusedSector ┆001170 AU001171 1 010D ; R0 DESTROYED ; AU001171 AU001172 1 010D ; R1 DESTROYED ; AU001172 AU001173 1 010D ; R2 COUNT ; AU001173┆
0x23380…23400 UnusedSector ┆ AU001174 1 010D ; R3 CHAR ; AU001174 AU001175 1 010D ; R4 LOOP.TYPE CHAR ; AU001175 AU001176 1 010D ; R5 LINNKS ; AU001176 AU00┆
0x23400…23480 UnusedSector ┆1177 1 010D ; R6 ADDR ; AU001177 AU001178 1 010D ; R7 WORK ; AU001178 AU001179 1 010D ; AU001179 AU001180 1 010D L0: ; INIT: ; A┆
0x23480…23500 UnusedSector ┆U001180 AU001181 1 010D MON INITDEVICE ; INIT DEVICE(INTERRUPT,DEVICE); ; AU001181 AU001182 1 010E L1: ; ANY USER: ; AU001182 AU┆
0x23500…23580 UnusedSector ┆001183 1 010E MOVL WSEARD.X77 R01 ; SEARCHED.WORK =>SEARCHED; ; AU001183 AU001184 1 010F MOV R7 WSEARD.X7 ; TRUE =>SEARCHED.WORK┆
0x23580…23600 UnusedSector ┆; ; AU001184 AU001185 1 0110 JOZ R0 L111 ; IF NNOT SEARCHED ; AU001185 AU001186 1 0111 JON R1 L111 ; OR INPUT.WORK THEN ; AU0011┆
0x23600…23680 UnusedSector ┆86 AU001187 1 0112 ; GOTO INIT QUEUE; ; AU001187 AU001188 1 0112 MOV WBUSY. X7 R0 ; ; AU001188 AU001189 1 0113 JOZ R0 A1 ; IF BU┆
0x23680…23700 UnusedSector ┆SY.WORK THEN ; AU001189 AU001190 1 0114 JMP L171 ; GOTO BUSY; ; AU001190 AU001191 1 0115 A1: MOV FIRSTEVENT-C R0 ; IF FIRST EVEN┆
0x23700…23780 UnusedSector ┆T.CUR=0 THEN ; AU001191 AU001192 1 0116 JOZ R0 L10 ; GOTO READY; ; AU001192 AU001193 1 0117 MOV R7 WANY. X7 ; TRUE =>ANY.WORK; ;┆
0x23780…23800 UnusedSector ┆ AU001193 AU001194 1 0118 L10: ; READY: ; AU001194 AU001195 1 0118 JMP S5 P11 ;* SENSE DEVICE(STATUS,IRR, ; AU001195 AU001196 1 ┆
0x23800…23880 UnusedSector ┆011A ;* ERROR: CONTINUE); ; AU001196 AU001197 1 011A MOV INTERRUPT-C R1 ; INTERRUPT.CUR =>INTRPT; ; AU001197 AU001198 1 011B MON┆
0x23880…23900 UnusedSector ┆LIST 78.04.07 09.47 ; CR80 SYSTEM ONE ; DRIVER ; MODULE: DOC - DRIVER, OPERATOR'S CONSOLE (SILENT 700) BEGIN MODULE MYPROC MES┆
0x23900…23980 UnusedSector ┆SAGE <:DOC:> ; BEGIN MODULE: DOC; GLOBAL NL,LF,CR,BYTE,MADDRESS,WORK,PROGRAM,DEVICE GLOBAL BMTIMER,BMERROR,INTERRUPT,ADJUST,CBAS┆
0x23980…23a00 UnusedSector ┆E,BS,EM,CAN,DEL GLOBAL GETBYTE,PUTBYTE,WAITINTERRUPT GLOBAL CUREVENT,BNIGNR,STATE,NAMEBYTES GLOBAL UTILITYLENGTH,PROGLENGTH,NAME┆
0x23a00…23a80 UnusedSector ┆LENGTH,CONTLENGTH,PROCLENGTH GLOBAL DRIVERLENGTH,CATALOGLENGTH,ENTRYAREA,ENTRYLENGTH,WORKAREA GLOBAL WORKLENGTH,REFLENGTH,BUFLEN┆
0x23a80…23b00 UnusedSector ┆GTH GLOBAL LOCACT,C,CURSIN,CURSOUT,CURSWORK GLOBAL BMREENTRANT,BMINPUT,BMBYTE,BMDISP,BMOUTPUT,BMWORD GLOBAL IDLENGTH,SHARELENGTH┆
0x23b00…23b80 UnusedSector ┆,BUFFERLENGTH,STACKLENGTH GLOBAL BFIRST,BNEXT,BNBYTE,BNOPUT GLOBAL KINDOC GLOBAL PROC,NEXT USE BASE NOLIST ; S8MNAX ; ; CR80 SY┆
0x23b80…23c00 UnusedSector ┆STEM ONE, NAMES ; ; GENERATED AT 78.04.05 ; 00151000 0 000E LEVEL 2 NAMES: ITEMLH= #0005 C= #000D BMERRR= #0020 BMFULL= #040┆
0x23c00…23c80 UnusedSector ┆0 BNLOCT= #000B BMSPEL= #0009 BNERRR= #0005 BNFULL= #000A DISKDS= #0002 REALTK= #0000 BMBYTE= #0004 BMDIST= #0100 BMREJ┆
0x23c80…23d00 UnusedSector ┆T= #0004 PROGLH= #000E BNBYTE= #0002 BMCONV= #0010 BNDIST= #0008 BNREJT= #0002 BNCONV= #0004 TIMEMK= #6800 CONTLH= #0005┆
0x23d00…23d80 UnusedSector ┆ TIMESE= #0064 BMINPT= #0001 BMWORD= #0000 BMTIMR= #0002 BMPARY= #0080 BMPROM= #0002 BNTIMR= #0001 BNPARY= #0007 BNPROM┆
0x23d80…23e00 UnusedSector ┆= #0001 TERMIL= #0001 N= #0004 BMUNKN= #2000 DISABD= #E000 POWERE= #0001 BMSTEP= #0020 BNUNKN= #000D BMWRIR= #0200 BNST┆
0x23e00…23e80 UnusedSector ┆EP= #0005 BNWRIR= #0009 BMREST= #0002 BMPOSN= #0010 BMERAE= #0020 BNREST= #0001 BNPOSN= #0004 BNERAE= #0005 BMNORS= #400┆
0x23e80…23f00 UnusedSector ┆0 BNNORS= #000E EVERSN= #0006 IDLENH= #0004 BMBUSY= #8000 BMCLEN= #0000 BNBUSY= #000F EAREAS= #000A BMNOEC= #0040 NAMEL┆
0x23f00…23f80 UnusedSector ┆H= #0003 BNNOEC= #0006 BMOPUT= #0002 BMCLER= #0040 MAXDEE= #003F BNOPUT= #0001 BNCLER= #0006 BMRELE= #0004 BMNOTY= #0001┆
0x23f80…24000 UnusedSector ┆ ETYPE= #0007 BNRELE= #0002 BNNOTY= #0000 BMREAR= #0100 BNREAR= #0008 NAMEBS= #0006 BMOUTT= #0003 BMTPUT= #0001 BMSPEC=┆
0x24000…24080 UnusedSector ┆ #0008 BMCONL= #0000 BMUNCE= #0010 BMEOF= #0040 BNTPUT= #0000 BNSPEC= #0003 BNUNCE= #0004 BNEOF= #0006 BMILLL= #0008 BN┆
0x24080…24100 UnusedSector ┆ILLL= #0003 BNMUTX= #0000 BMNOCP= #0080 BMRESE= #0008 BNNOCP= #0007 BNRESE= #0003 BMTERE= #0080 BMDISP= #0001 BMREET= #0┆
0x24100…24180 UnusedSector ┆001 BNTERE= #0007 BNDISP= #0000 BNREET= #0000 USE BASE BMWAC:= #0080 OLDPRC:= #001B SAVE3:= #0029 SSAVE1:= #0019 BNWAC:=┆
0x24180…24200 UnusedSector ┆ #0007 SAVE4:= #002A SSAVE2:= #001A SAVE5:= #002B SBLOCK:= #000C SSAVE3:= #001B TERMIE:= #0031 SAVE6:= #002C STACKH:= #0┆
0x24200…24280 UnusedSector ┆005 SSAVE4:= #001C BMPLSB:= #0100 NEXT:= #0002 SAVE7:= #0040 PROCLH:= #0052 CATSLH:= #0040 SSAVE5:= #001D BS:= #0008 BM┆
0x24280…24300 UnusedSector ┆WDE:= #0008 BNPLSB:= #0008 WARNIG:= #0030 DELAY:= #0033 SAVE8:= #0041 MESSAG:= #004D SSAVE6:= #001E BNWDE:= #0003 CLINK:┆
0x24300…24380 UnusedSector ┆= #0014 SAVE9:= #0042 SSAVE7:= #001F DLINK:= #0027 WORK:= #0040 SACTIN:= #0008 SSAVE8:= #0020 BMCHAE:= #0049 BM1:= #FFFF┆
0x24380…24400 UnusedSector ┆ ELINK:= #0056 ANS0:= #0000 SSAVE9:= #0021 NL:= #000A BM2:= #FFFF WORKAA:= #0295 ANS1:= #0001 SFILE:= #000D ESEGMS:= #0┆
0x24400…24480 UnusedSector ┆00B EVENTC:= #003D ANS2:= #0002 EATTRE:= #0006 EAREAE:= #0008 MES0:= #0000 ANS3:= #0003 CR0:= #000D EVENTE:= #0037 MES1┆
0x24480…24500 UnusedSector ┆:= #0001 ANS4:= #0004 SIDENT:= #0003 BMLOOP:= #0019 CR1:= #000E DATE:= #0024 MES2:= #0002 BOPER:= #0000 PARENT:= #0001 ┆
0x24500…24580 UnusedSector ┆CR2:= #000F SAVE10:= #0043 MES3:= #0003 NAME:= #0007 CR3:= #0010 CAUSE:= #001E EMRETN:= #001E SAVE11:= #0044 MES4:= #000┆
0x24580…24600 UnusedSector ┆4 SSTACD:= #0013 BFIRST:= #0006 CR4:= #0011 SAVE12:= #0045 BSTATE:= #0005 CR5:= #0012 CBASED:= #0016 SAVE13:= #0046 WRK┆
0x24600…24680 UnusedSector ┆:= #004D SNAME:= #0000 BMWAN:= #0001 CR6:= #0013 SAVE14:= #0047 STOP:= #000F EFIRST:= #001A BNWAN:= #0000 BMMESS:= #0001┆
0x24680…24700 UnusedSector ┆ CR7:= #0014 RESTIG:= #0038 SAVE15:= #0048 SBLOCT:= #000B BMWPA:= #0040 BNMESS:= #0000 BMANSW:= #0002 KIND:= #0006 SAVE┆
0x24700…24780 UnusedSector ┆16:= #0049 UTILIH:= #02A1 MOPERN:= #0000 BNWPA:= #0006 BNANSW:= #0001 BMCHAL:= #00F0 PROCIT:= #0004 SAVE17:= #004A SMODE┆
0x24780…24800 UnusedSector ┆:= #0005 SBUFSE:= #0011 BNCHAL:= #0004 SAVE18:= #004B ACOUNT:= #0001 SKIND:= #0006 BMPRIY:= #FF00 AREACM:= #002E SAVE19:=┆
0x24800…24880 UnusedSector ┆ #004C RESERR:= #0052 WORKIG:= #005E BCOUNT:= #0001 BNPRIY:= #0008 CATWRK:= #0005 PPROGM:= #000C EBLOCE:= #0009 CONTET:=┆
0x24880…24900 UnusedSector ┆ #0004 CAN:= #0018 BMWIN:= #0004 PROGRM:= #0017 EOFACN:= #0059 EBLOCG:= #000E BMNEXT:= #0029 BNWIN:= #0002 BMRECD:= #000┆
0x24900…24980 UnusedSector ┆A BMPER0:= #0069 BNRECD:= #0001 ANSWER:= #004D BMCREE:= #0009 BMPER1:= #0079 DEL:= #007F PREFS:= #0001 CURSLH:= #00B2 E┆
0x24980…24a00 UnusedSector ┆VT0:= #0000 EHIBLK:= #000C EDUMMY:= #001F BMPER2:= #0089 KINDFD:= #0400 TIMER:= #0019 DEVPR:= #001F CURIN:= #005A EVT1:=┆
0x24a00…24a80 UnusedSector ┆ #0001 BMPER3:= #0099 BMWC:= #003F PSW:= #001A PRESET:= #0020 ADJUST:= #0035 DEVICE:= #0053 ENTRYA:= #0275 USERLH:= #02F┆
0x24a80…24b00 UnusedSector ┆0 EVT2:= #0002 BUFFEH:= #0008 BMPER4:= #00A9 BNWC:= #0006 CURSIN:= #005F EVT3:= #0003 BMPER5:= #00B9 PPRPC:= #000D MSAV┆
0x24b00…24b80 UnusedSector ┆E:= #0026 CENTRY:= #005D ABLOCK:= #0003 EVT4:= #0004 ERECOE:= #000A BMPER6:= #00C9 BMACTE:= #BFC0 INTERT:= #0054 CATALG:┆
0x24b80…24c00 UnusedSector ┆= #0057 WORKLH:= #000C BBLOCK:= #0003 CATALH:= #0058 BMXCU:= #4000 BNSSI:= #0001 REF:= #0003 REFLEH:= #0004 BADDR:= #000┆
0x24c00…24c80 UnusedSector ┆2 BMPER9:= #00D9 BNXCU:= #000E PBUFS:= #0002 ITEM:= #FFF3 LOCACN:= #001C TIME:= #0021 EAREA:= #000F BMWEV:= #0002 BMPR:┆
0x24c80…24d00 UnusedSector ┆= #3F00 ERROR:= #002F REFS:= #0036 W:= #0040 BNEXT:= #0007 ENTRYH:= #0020 BNWEV:= #0001 CATBIN:= #0003 EVENT:= #004D ST┆
0x24d00…24d80 UnusedSector ┆REAT:= #000A BMRUN:= #8000 RECEIR:= #0001 ARESUT:= #0000 AFILE:= #0004 BNRUN:= #000F PROC:= #000D EVENTS:= #003C MCOUNT:┆
0x24d80…24e00 UnusedSector ┆= #0001 BFILE:= #0004 EPAGE:= #001B CHAIN:= #0005 PRPC:= #0018 ESC:= #001B BMPEND:= #0009 CHILD:= #0003 SMASK:= #0007 B┆
0x24e00…24e80 UnusedSector ┆NPEND:= #0000 PCOUNT:= #0006 FREEAS:= #002A NEXTET:= #003B BUFLEH:= #0009 ASTATS:= #0002 BUF:= #0003 FF:= #000C KINDOC:=┆
0x24e80…24f00 UnusedSector ┆ #0100 CBASE:= #0015 CUREVT:= #003A ECHART:= #001C BMREME:= #0059 BNWAIG:= #0008 CATCAT:= #0006 STATE:= #0000 BUFS:= #00┆
0x24f00…24f80 UnusedSector ┆37 CURWOK:= #005C SPROCT:= #0004 BMRENE:= #0039 CATDAT:= #0001 WCATS:= #02B0 SFIRST:= #000E EIDENT:= #0003 EBASE:= #0019┆
0x24f80…25000 UnusedSector ┆ KINDCR:= #0200 CATOBJ:= #0004 PSIZE:= #000B FIRSTT:= #0039 BMPRCH:= #FFF0 SUSED:= #0012 SHAREH:= #0022 BMWSM:= #0010 P┆
0x25000…25080 UnusedSector ┆WORDS:= #0003 EDATE:= #0004 BNWSM:= #0004 WSAVE:= #02A1 WPROG:= #02A2 BMIGNR:= #000C CATTXT:= #0002 INTRPT:= #0034 MBLOC┆
0x25080…25100 UnusedSector ┆K:= #0003 SREM:= #0010 ENAME:= #0000 BMWSP:= #0020 BNIGNR:= #0002 EDRIVE:= #0007 BNWSP:= #0005 BNRSU:= #0000 BMRX:= #C00┆
0x25100…25180 UnusedSector ┆0 DRIVEH:= #0055 MADDRS:= #0002 EMODE:= #001E WORD:= #0000 SIZE:= #0004 PRICHN:= #0032 ESPECL:= #0055 SEOFAN:= #0009 EK┆
0x25180…25200 UnusedSector ┆IND:= #001D LF:= #000A EM:= #0019 BMDYNC:= #C03F BMREF:= #0008 CURSWK:= #01C3 BNREF:= #0003 NAMEIT:= #0003 ACTION:= #005┆
0x25200…25280 UnusedSector ┆8 CURSOT:= #0111 MFILE:= #0004 CR:= #000D BMSIGN:= #0004 SAVE0:= #003E CUROUT:= #005B SSSIZE:= #0017 BMWS:= #00C0 BNSIG┆
0x25280…25300 UnusedSector ┆N:= #0002 KINDLP:= #0300 SAVE1:= #003F SENDER:= #0001 ERECOS:= #000D BMSTAC:= #FFC0 LOCREN:= #001D SAVE2:= #0028 SSAVE0:┆
0x25300…25380 UnusedSector ┆= #0018 MTESTS= #0000-128*BASE-128*(PROG-1) MMODES= #FFFF-128*BASE-128*(PROG-1) MCHECS= #FFFF-128*BASE-128*(PROG-1) BYTE= #┆
0x25380…25400 UnusedSector ┆0000+ 2*BASE+ 0*(PROG-1) PRIOR0= #0000-128*BASE-128*(PROG-1) PRIOR1= #0000-128*BASE-128*(PROG-1) PRIOR2= #0000-128*BASE-128*(┆
0x25400…25480 UnusedSector ┆PROG-1) USE #0 ; 00175900 0 0100 LEVEL 4 NAMES: INSPEE= #0070 ENDPRM= #0041 INPARM= #0068 STARTS= #006C OUTNL= #005D COMPA┆
0x25480…25500 UnusedSector ┆S= #0045 CREATS= #006A OUTTET= #005C MPER00= #0051 OUTHEA= #0064 STOPPS= #006D CREATY= #004A RENAMY= #004D GETPON= #0058┆
0x25500…25580 UnusedSector ┆ REMOVE= #0072 CLOSE= #0054 INWORD= #007C OUTNAE= #0085 PUTARA= #0074 STACK= #0055 OUTEND= #005E LINKNT= #006E SETDEY= ┆
0x25580…25600 UnusedSector ┆#0077 BACKSE= #0063 OUTCHR= #005F REMOVM= #0071 INNEXT= #0069 INCHAR= #0061 OUTBLK= #0060 INTYPE= #0066 OPEN= #0053 OUT┆
0x25600…25680 UnusedSector ┆TEB= #005B COMPAE= #0046 INIT= #0052 LINKCD= #006F GETARA= #0073 FREE01= #0089 SETINT= #0078 SETPON= #0057 PUTBYE= #0049┆
0x25680…25700 UnusedSector ┆ INNAME= #007B NEXTON= #0043 REMOVS= #006B SETPRN= #0076 INCOMD= #0086 CHANGY= #004E NEXTEY= #004C UNSTAK= #0056 INITDE┆
0x25700…25780 UnusedSector ┆= #0042 WAIT= #0059 INITWT= #0075 OUTINR= #0065 REMOVY= #004F FINDEY= #0050 GETADS= #0047 RETURR= #0044 INBLOK= #0062 O┆
0x25780…25800 UnusedSector ┆UTTEP= #005A LOOKUY= #004B GETBYE= #0048 INELET= #0067 USE #0 ; 00197700 0 0040 LEVEL 4 NAMES: GETINL= #0007 GIVEUE= #0018 ┆
0x25800…25880 UnusedSector ┆ SEARCS= #001A WAITAR= #000D ENTERL= #0006 WAITIL= #0008 GETINT= #0004 REGISS= #0013 SENDSL= #000A WAITET= #000F WAITIT=┆
0x25880…25900 UnusedSector ┆ #0005 WAITDY= #0019 INSERT= #0001 RESERT= #0003 REGREE= #0010 MEMARA= #0014 CREATE= #001C WAITNT= #000E LEAVEL= #0009 ┆
0x25900…25980 UnusedSector ┆TRANST= #0012 CLEART= #0000 SENDME= #000B RELEAT= #0002 SENDAR= #000C RESUMT= #0011 GETEVE= #001B USE #0 ; 00199200 0 0040┆
0x25980…25a00 UnusedSector ┆ LEVEL 3 NAMES: USE PROG LOCINT:= #026F LOCACT:= #826F USE #0 LIST XPD:= UTILITYLENGTH NOLIST ; CR80 SYSTEM ONE ; MONITOR ; ┆
0x25a00…25a80 UnusedSector ┆MASTER: XPD - PROCESS DESCRIPTION (PART 1) IF XPD EQ UTILITYLENGTH OR XPD EQ PROGLENGTH THEN IF WORDS NE 0 THEN MESSAGE WORDS ┆
0x25a80…25b00 UnusedSector ┆FI AREASWITCH=1 USE PROG LOC=PROG-1 XPSTATE XREFS XBUFS XWORDS XPSIZE XCHAIN XPCOUNT IF LOC NE NAME THEN MESSAGE <:ERROR:┆
0x25b00…25b80 UnusedSector ┆ PROG NAME:> FI XPNAME: XPNAME0 IF NAMELENGTH GT 1 THEN XPNAME1 IF NAMELENGTH GT 2 THEN XPNAME2 IF NAMELENGTH GT 3 THEN 0 REP┆
0x25b80…25c00 UnusedSector ┆EAT NAMELENGTH-3-1 FI FI FI IF LOC-XPNAME NE NAMELENGTH THEN MESSAGE <:ERROR: XPNAME LENGTH:> FI XIDENT XSIZE XPROGRAM XPRPC┆
0x25c00…25c80 UnusedSector ┆ IF LOC NE PROGLENGTH THEN MESSAGE <:ERROR: PROG LENGTH:> FI FI IF XPD GT PROGLENGTH THEN USE BASE LOC=BASE XSTATE XPARENT X┆
0x25c80…25d00 UnusedSector ┆NEXT XCHILD XSIZE XCHAIN XKIND XNAME: XNAME0 IF NAMELENGTH GT 1 THEN XNAME1 IF NAMELENGTH GT 2 THEN XNAME2 IF NAMELENGTH G┆
0x25d00…25d80 UnusedSector ┆T 3 THEN 0 REPEAT NAMELENGTH-3-1 FI FI FI IF LOC-XNAME NE NAMELENGTH THEN MESSAGE <:ERROR: XNAME LENGTH:> FI XIDENT XPROCIDEN┆
0x25d80…25e00 UnusedSector ┆T XDEBUG IF LOC NE PROC THEN MESSAGE <:ERROR: XPROC LOCATION:> FI 0 REPEAT 7 ; REGISTERS XCBASE XCBASEMOD XPROGRAM XPRPC ┆
0x25e00…25e80 UnusedSector ┆XTIMER XPSW XOLDPROC XLOCACTION XLOCRETURN XCAUSE XDEVPR XPRESET 0 REPEAT 12 ; TIME0 - FREEAREAS #FFFF XERROR XWARNIN┆
0x25e80…25f00 UnusedSector ┆G XTERMINATE 0 REPEAT 3 ; PRICHN - ADJUST XREFSX XBUFSX IF XPD NE UTILITYLENGTH THEN XREFS=0 XBUFS=1 FI 0 REPEAT 20 ; RES┆
0x25f00…25f80 UnusedSector ┆TING - SAVE19 XWRK: 0 IF CONTLENGTH GT 1 THEN 0 IF CONTLENGTH GT 2 THEN 0 IF CONTLENGTH GT 3 THEN 0 IF CONTLENGTH GT 4 THEN ┆
0x25f80…26000 UnusedSector ┆0 IF CONTLENGTH GT 5 THEN 0 REPEAT CONTLENGTH-5-1 FI FI FI FI FI IF LOC-XWRK NE CONTLENGTH THEN MESSAGE <:ERROR: XWRK LENGTH:> ┆
0x26000…26080 UnusedSector ┆FI LOC= LOC-C IF LOC NE PROCLENGTH-C THEN MESSAGE <:ERROR: XPROC LENGTH:> FI IF XPD GT PROCLENGTH THEN XRESERVER XDEVICE XIN┆
0x26080…26100 UnusedSector ┆TERRUPT IF LOC NE DRIVERLENGTH-C THEN MESSAGE <:ERROR: XDRIVER LENGTH:> FI IF XPD GT DRIVERLENGTH THEN 0 REPEAT 2 ; ESPECIAL -┆
0x26100…26180 UnusedSector ┆ CATALOG IF LOC NE CATALOGLENGTH-C THEN MESSAGE <:ERROR: XCATALOG LENGTH:> FI IF XPD GT CATALOGLENGTH THEN XACTION XEOFACTION┆
0x26180…26200 UnusedSector ┆ XCURIN XCUROUT XCURWORK XCENTRY XWORKING FI FI FI FI XLOC= LOC LIST DEV:= 8 PR:= 0 MYBASE:= #18D0 MYPROC:= MYBASE+ITEM ┆
0x26200…26280 UnusedSector ┆ BNINREADY:= 10 BNOUTREADY:= 11 ; 12 ; OVERRUN BNBREAK:= 13 ; DEVICE-FAILURE ; 14 ; PARITY AHEADS:= 32 ASAVE= LOC*2 0 REPEAT (┆
0x26280…26300 UnusedSector ┆AHEADS-1)/2 LOC= LOC-WORK WLINK0: 0 WLINK1: 0 WLINK2: 0 WMODE: 0 WAHEAD: 0 WLAST: 0 WANY: TRUE WECHO: TRUE WBREAK: FALSE WSEARC┆
0x26300…26380 UnusedSector ┆HED: FALSE WINPUT: FALSE WBUSY: FALSE LOC= LOC+WORK WPROMPT:= LOC-WORK PROMPT: 0 ZERO: ATTMESS: 0 OUTUSER: <:<7>-> :> WARROW= O┆
0x26380…26400 UnusedSector ┆UTUSER*2+1-WORK USER: 0 REPEAT IDLENGTH-1,0 WIDENT:= USER+NAMEIDENT-WORK SEND: 0 REPEAT IDLENGTH-1 USE PROG RG50: G50 ; PROCE┆
0x26400…26480 UnusedSector ┆DURE SENSE DEVICE(STATUS,CHAR),(ERROR); ; SENSES THE DEVICE STATUS AND REFLECTS THE SWOPPED STATUS BACK TO ; THE DEVICE. EXTRACT┆
0x26480…26500 UnusedSector ┆S THE ACTIVE STATUS BITS. DETECTS A POSSIBLE BREAK. ; CALL: EXIT: ; R0 CHAR ; R1 STATUS ; R5 LINK UNDEFINED ; R7 WORK WORK ; LIN┆
0x26500…26580 UnusedSector ┆K0+1 ERROR ; LINK+0 RETURN BEGIN USE PROG EXTERNAL WLINK0,WAHEAD,WBREAK,BNBREAK,BNINREADY,L157 EXTERNAL ASAVE,WLAST,AHEADS ENTRY┆
0x26580…26600 UnusedSector ┆ P10,G10,P11 USE BASE LOC= LOC-WORK WSAVE6: 0 ; SAVE R6 LOC= LOC+WORK USE PROG P11: ; SENSE DEVICE(*,*,CONTINUE): MOV R5 WLIN┆
0x26600…26680 UnusedSector ┆K0.X7 ; LINK DEC WLINK0.X7 ; -1 =>LINK0; P10: ; SENSE DEVICE: MOV CUREVENT-C R0 ; CURRENT EVENT.CUR =>EVENT; JOZ R0 A1 ; IF E┆
0x26680…26700 UnusedSector ┆VENT<>0 THEN SUB CBASE-C R0 ; IBN STATE. X0 BNIGNR ; IF STATE.EVENT[IGNR] THEN JMP L157 ; GOTO DUMMY RETURN; A1: MOV DEVICE-C┆
0x26700…26780 UnusedSector ┆ R0 ; DEVICE.CUR =>DEVICE; SIO R1 R0 ; SENSE(STATUS,DEVICE); SWP R1 ; CIO R1 R0 ; CONTROL(SWOP(STATUS),DEVICE); RIO R0 R0 ; ┆
0x26780…26800 UnusedSector ┆READ(CHAR,DEVICE); XTR R0 7 ; CHAR[6:7] =>CHAR; SLL R1 8 ; 0 =>STATUS[7:8]; XTR R1 15 ; STATUS[14:15] =>STATUS; MOV R6 WSAVE┆
0x26800…26880 UnusedSector ┆6.X7 ; SAVE(R6); MOV WAHEAD.X7 R6 ; AHEAD.WORK =>AHEAD; ILO R6 AHEADS ; IF AHEAD<AHEADS SBN R1 BNINREADY ; AND STATUS[IN READ┆
0x26880…26900 UnusedSector ┆Y] THEN JMP A2 ; BEGIN INC WAHEAD.X7 ; INCR(AHEAD.WORK); ADD WLAST. X7 R6 ; LAST.WORK+AHEAD =>AHEAD; IHS R6 AHEADS ; IF AHEA┆
0x26900…26980 UnusedSector ┆D>=AHEADS THEN ADDC -AHEADS R6 ; AHEAD-AHEADS =>AHEAD; MOVB R0 ASAVE. X6 ; CHAR =>BYTE.AHEAD.SAVE A2: ; END; MOV WSAVE6.X7 R6┆
0x26980…26a00 UnusedSector ┆ ; RESTORE(R6); SLO R1 1<12 ; IF STATUS[15:12]=0 IBZ R1 BNINREADY ; OR NOT STATUS[IN READY] THEN JMP 0. X5 ; RETURN; JON R0 ┆
0x26a00…26a80 UnusedSector ┆G10 ; IF CHAR=0 THEN IBNP R1 BNBREAK ; IF STATUS[BREAK] THEN ; BEGIN CLR WAHEAD.X7 ; 0 =>AHEAD.WORK; MOV R7 WBREAK.X7 ; TRUE┆
0x26a80…26b00 UnusedSector ┆ =>BREAK.WORK ; END; G10: MOV WLINK0.X7 R5 ; ERROR RETURN: JMP 1. X5 ; GOTO ERROR.LINK0; END ; END OF SENSE DEVICE; ; PROCEDU┆
0x26b00…26b80 UnusedSector ┆RE TYPE CHAR(CHAR),(TIMEOUT,ERROR); ; WRITES THE CHARACTER ON THE CONSOLE. ; CALL: EXIT: ; R0 DESTROYED ; R1 DESTROYED ; R3 CHAR┆
0x26b80…26c00 UnusedSector ┆ CHAR ; R4 DESTROYED ; R5 LINK DESTROYED ; R7 WORK WORK ; LINK0+0 TIMEOUT ; LINK0+1 ERROR ; LINK+0 RETURN BEGIN USE PROG EXTERNA┆
0x26c00…26c80 UnusedSector ┆L P10,P50,P51,P53,P61,RG50 EXTERNAL WLINK0,WLINK1,BNOUTREADY,WINPOS,WECHO EXTERNAL WMODE,PROMPT ENTRY P20,WPOS USE BASE LOC= LO┆
0x26c80…26d00 UnusedSector ┆C-WORK WPOS: 0 ; POSITION ON LINE WMAX: 80 ; MAX POSITION WSAVE3: 0 ; SAVE CHAR LOC= LOC+WORK USE PROG P20: MOV WECHO. X7 R0 ; ┆
0x26d00…26d80 UnusedSector ┆TYPE CHAR: JON R0 A20 ; IF NOT ECHO.WORK THEN JMP 0. X5 ; RETURN; A20: MOV R5 WLINK1.X7 ; SAVE(LINK); MOV R3 WSAVE3.X7 ; SAVE┆
0x26d80…26e00 UnusedSector ┆(CHAR); IEQ R3 NL ; IF CHAR=NL THEN MOVC CR R3 ; CR =>CHAR; IEQP R3 CR ; IF CHAR=CR THEN ; BEGIN MOVC 8 R4 ; 8 =>LOOP; JMP┆
0x26e00…26e80 UnusedSector ┆ L1 ; GOTO SENSE IT ; END; MOVC 1 R4 ; 1 =>LOOP; MOV WPOS. X7 R0 ; POS.WORK =>POS; JOZ R3 L11 ; IF CHAR=0 THEN ; GOTO TEST ┆
0x26e80…26f00 UnusedSector ┆POSITION; IEQP R3 BS ; IF CHAR=BS THEN ; BEGIN DEC WPOS. X7 ; DECR(POS.WORK); JON R0 L11 ; IF POS<>0 THEN ; GOTO TEST POSIT┆
0x26f00…26f80 UnusedSector ┆ION ; END; INC WPOS. X7 ; INCR(POS.WORK); L11: ; TEST POSITION: MOV WSAVE3.X7 R3 ; RESTORE(CHAR); XCH R4 R0 ; SAVE(LOOP); M┆
0x26f80…27000 UnusedSector ┆OV R6 R1 ; SAVE(R6); JON R4 A12 ; IF POS=0 THEN MOV WMODE. X7 R4 ; IF MODE.WORK JOZ R4 A12 ; <>0 THEN MOVC PROMPT R6 ; IF 0.┆
0x27000…27080 UnusedSector ┆PROMPT JOZ 0. X6 A12 ; <>0 THEN MOV WLINK0.X7 R4 ; IF NOT CALLED MOV RG50 R5 ; FROM INE R4 R5 ; TYPE TEXT THEN JMP S5 P50 ;┆
0x27080…27100 UnusedSector ┆ TYPE TEXT(PROMPT); A12: MOV WPOS. X7 R5 ; POS.WORK =>POS; MOV WMAX. X7 R6 ; MAX.WORK =>MAX; SLO R6 R5 ; IF POS>MAX THEN JMP ┆
0x27100…27180 UnusedSector ┆A13 ; BEGIN JMP S5 P53 ; TYPE NL; JMP S6 A11 ; RE. <: <92><0>:> ; " <92><0>" =>ADDR; A11: JMP S5 P51 ; TYPE PROG TEXT(ADDR) A┆
0x27180…27200 UnusedSector ┆13: ; END; MOV R1 R6 ; RESTORE(R6); MOV R0 R4 ; RESTORE(LOOP); MOV R3 WSAVE3.X7 ; SAVE(CHAR); JON R3 L1 ; IF CHAR<>0 THEN ;┆
0x27200…27280 UnusedSector ┆ GOTO SENSE IT; JMPI WLINK1.X7 ; RETURN; L1: ; SENSE IT: JMP S5 P10 ; SENSE DEVICE(STATUS,IRR, ; ERROR: GOTO ERROR.LINK0); I┆
0x27280…27300 UnusedSector ┆BZP R1 BNOUTREADY ; IF NOT STATUS[OUTPUT READY] THEN ; BEGIN JMP S5 P61 ; WAIT IT(50, ; TIMOUT: GOTO TIMOUT.LNK0); JMP L1 ; ┆
0x27300…27380 UnusedSector ┆GOTO SENSE IT ; END; IEQ R4 7 ; IF LOOP=7 THEN MOV WSAVE3.X7 R3 ; RESTORE(CHAR); IEQ R4 6 ; IF LOOP=6 THEN MOVC 0 R3 ; 0 =>┆
0x27380…27400 UnusedSector ┆CHAR; MOV DEVICE-C R1 ; WIO R3 R1 ; WRITE(CHAR,DEVICE.CUR); SOB R4 L1 ; IF DECR(LOOP)<>0 THEN ; GOTO SENSE IT; JON R3 A2 ; ┆
0x27400…27480 UnusedSector ┆IF CHAR<>0 THEN ; RETURN; MOV WSAVE3.X7 R3 ; RESTORE(CHAR); MOV WPOS. X7 R0 ; MODC WINPOS ; INPOS.WORK SUB R0 0. X7 ; -POS.┆
0x27480…27500 UnusedSector ┆WORK =>INPOS.WORK; CLR WPOS. X7 ; 0 =>POS.WORK; A2: JMPI WLINK1.X7 ; RETURN; END ; END OF TYPE CHAR; ; PROCEDURE TYPE IN(COUNT┆
0x27500…27580 UnusedSector ┆,CHAR,ADDR),(TIMEOUT,ERROR); ; READS A STRING OF CHARACTERS AND STORES THEM AT ADDR AND ON. ; THE VARIABLES, ADDR AND COUNT, ARE┆
0x27580…27600 UnusedSector ┆ INCREMENTED AND DECREMENTED ; ACCORDINGLY. THE CHARACTERS ARE ECHOED BY MEANS OF TYPE CHAR. ; THE FOLLOWING CHARACTERS HAVE SPE┆
0x27600…27680 UnusedSector ┆CIAL MEANINGS: ; LF LINE FEED: THE CHARACTER IS REPLACED BY A CR CHARACTER. ; THE TEXT, "*CR<10>", IS OUTPUT. ; CR CARRIAGE RETU┆
0x27680…27700 UnusedSector ┆RN: THE CHARACTER IS REPLACED BY NL(=LF). ; READING IS TERMINATED WHEN COUNT BECOMES ZERO OR WHEN A CR CHARACTER ; IS READ. ; CA┆
0x27700…27780 UnusedSector ┆LL: EXIT: ; R0 DESTROYED ; R1 DESTROYED ; R2 COUNT COUNT (UPDATED) ; R3 CHAR (LAST INPUT) ; R4 DESTROYED ; R5 LINK DESTROYED ; R┆
0x27780…27800 UnusedSector ┆6 ADDR ADDR (UPDATED) ; R7 WORK WORK ; LINK+0 TIMEOUT ; LINK+1 ERROR ; LINK+2 RETURN BEGIN USE PROG EXTERNAL P10,G10,P11,P20,P51┆
0x27800…27880 UnusedSector ┆,P51P52,P52,P60,P61 EXTERNAL WLINK0,WBREAK,BNINREADY,WPOS,BNOUTREADY,WAHEAD EXTERNAL ASAVE,WLAST,AHEADS ENTRY P30,G30,G31,WINPOS┆
0x27880…27900 UnusedSector ┆ USE BASE LOC= LOC-WORK WCANCEL: FALSE ; CANCEL WSAVE3: 0 ; SAVE R3 WCOUNT: 0 ; COUNT WADDR: 0 ; ADDR WINPOS: 0 ; IN POSITION O┆
0x27900…27980 UnusedSector ┆N LINE LOC= LOC+WORK USE PROG P30: ; TYPE IN: MOV R5 WLINK0.X7 ; SAVE(LINK); MOVC 0 R3 ; JMP S5 P20 ; TYPE CHAR(0); MOV R6 ┆
0x27980…27a00 UnusedSector ┆WADDR. X7 ; ADDR =>ADDR.WORK; MOV R2 WCOUNT.X7 ; COUNT =>COUNT.WORK; MOV WPOS. X7 R4 ; POS.WORK MOV R4 WINPOS.X7 ; =>INPOS.WO┆
0x27a00…27a80 UnusedSector ┆RK; L1: ; NEXT IN: MOV WAHEAD.X7 R5 ; AHEAD.WORK =>AHEAD; JOZ R5 L8 ; IF AHEAD=0 THEN ; GOTO SENSE IT; MOV WLAST. X7 R5 ; LA┆
0x27a80…27b00 UnusedSector ┆ST.WORK =>LAST; MOVB ASAVE. X5 R3 ; BYTE.LAST.SAVE =>CHAR; DEC WAHEAD.X7 ; DECR(AHEAD.WORK); INC WLAST. X7 ; INCR(LAST.WORK);┆
0x27b00…27b80 UnusedSector ┆ IEQ R5 AHEADS-1 ; IF LAST=AHEADS-1 THEN CLR WLAST. X7 ; 0 =>LAST.WORK; JMP L3 ; GOTO TEST CHAR; ; GOTO TEST CHAR; L8: MOV W┆
0x27b80…27c00 UnusedSector ┆LINK0.X7 R4 ;*SENSE IT: JMP S5 P11 ;* SENSE DEVICE(STATUS,CHAR, MOV R4 WLINK0.X7 ;* ERROR: CONTINUE); CLR WAHEAD.X7 ; 0 =>AHE┆
0x27c00…27c80 UnusedSector ┆AD.WORK; MOV R0 R3 ; MOV WCOUNT.X7 R0 ; IF COUNT.WORK INE R2 R0 ; <>COUNT THEN MODC #7F00 ; #7F00 =>DELAY MOVC 50 R0 ; ELSE┆
0x27c80…27d00 UnusedSector ┆ 50 =>DELAY; IBZP R1 BNINREADY ; IF NOT STATUS[INPUT READY] THEN ; BEGIN JMP S5 P60 ; WAIT IT(DELAY, ; TIMOUT: GOTO TIMOUT.L┆
0x27d00…27d80 UnusedSector ┆INK); JMP L1 ; GOTO NEXT IN ; END; L3: ; TEST CHAR: MOV WBREAK.X7 R4 ; IF BREAK.WORK THEN JON R4 L2 ; GOTO DELETE; IEQ R3 C┆
0x27d80…27e00 UnusedSector ┆AN ; IF CHAR=CAN THEN JMP L4 ; GOTO CANCEL; INE R3 DEL ; IF CHAR<>DEL THEN JMP L5 ; GOTO TEST CANCEL; L2: ; DELETE: JMP S6 A┆
0x27e00…27e80 UnusedSector ┆3 ; RE. <:*DL<10><0>:> ; "*DL<10>" =>ADDR; A3: MOV WCOUNT.X7 R5 ; INEP R5 R2 ; IF COUNT.WORK<>COUNT THEN ; BEGIN CLR WPOS. X┆
0x27e80…27f00 UnusedSector ┆7 ; 0 =>POS.WORK; JMP S5 P51 ; TYPE PROG TEXT(ADDR) ; END; MOV WPOS. X7 R4 ; POS.WORK MOV R4 WINPOS.X7 ; =>INPOS.WORK; MOV ┆
0x27f00…27f80 UnusedSector ┆WADDR. X7 R6 ; ADDR.WORK =>ADDR; MOV WCOUNT.X7 R2 ; COUNT.WORK =>COUNT; MOV WBREAK.X7 R3 ; IF NOT BREAK.WORK THEN JOZ R3 L1 ;┆
0x27f80…28000 UnusedSector ┆ GOTO NEXT IN; JMP G10 ; GOTO ERROR RETURN; L4: MOV WCOUNT.X7 R1 ; CANCEL: IEQ R1 R2 ; IF COUNT.WORK=COUNT THEN JMP L1 ; GOTO┆
0x28000…28080 UnusedSector ┆ NEXT IN; MOV ADJUST-C R1 ; IF ADJUST.CUR JON R1 A41 ; <>0 IHS R2 -NAMEBYTES ; OR COUNT>=-NAMEBYTES THEN A41: ADDC -1 R6 ; DE┆
0x28080…28100 UnusedSector ┆CR(ADDR); MOV R6 R1 ; SAVE(ADDR); MON GETBYTE ; GET BYTE(ADDR,CHAR);; SNE R3 BS ; IF CHAR<>BS THEN JMP A42 ; BEGIN JMP S6 A┆
0x28100…28180 UnusedSector ┆4 ; RE. <:<8>X<8><0>:> ; "<BS>X<BS>" =>ADDR; A4: MODC P51P52 ; TYPE PROG TEXT(ADDR) A42: ; END JMP S5 P52 ; ELSE TYPE SPACE; ┆
0x28180…28200 UnusedSector ┆MOV R1 R6 ; RESTORE(ADDR); MOV R7 WCANCL.X7 ; TRUE =>CANCEL.WORK; ADDC 1 R2 ; INCR(COUNT); JMP L1 ; GOTO NEXT IN; L5: ; TEST ┆
0x28200…28280 UnusedSector ┆CANCEL: MOV WCANCL.X7 R1 ; CANCEL.WORK =>CANCEL; JOZ R1 L6 ; IF NOT CANCEL THEN ; GOTO ECHO IT; MOV R3 WSAVE3.X7 ; SAVE(CHAR┆
0x28280…28300 UnusedSector ┆); MOVC LF R3 ; MOV DEVICE-C R1 ; WIO R3 R1 ; WRITE(LF,DEVICE.CUR); MOV WSAVE3.X7 R3 ; RESTORE(CHAR); CLR WCANCL.X7 ; FALSE┆
0x28300…28380 UnusedSector ┆ =>CANCEL.WORK; L6: MOV WINPOS.X7 R1 ; ECHO IT: MOV WPOS. X7 R5 ; IEQP R3 BS ; IF CHAR=BS THEN IGE R1 R5 ; IF POS.WORK<=INPOS┆
0x28380…28400 UnusedSector ┆.WORK THEN JMP L1 ; GOTO NEXT IN; SEQ R3 LF ; IF CHAR=LF THEN JMP A51 ; BEGIN MOV R6 R1 ; SAVE(ADDR); CLR WPOS. X7 ; 0 =>PO┆
0x28400…28480 UnusedSector ┆S.WORK; JMP S6 A5 ; RE. <:*CR<10><0>:> ; "*CR<10>" =>ADDR; A5: JMP S5 P51 ; TYPE PROG TEXT(ADDR); CLR WINPOS.X7 ; 0 =>INPOS.W┆
0x28480…28500 UnusedSector ┆ORK; MOV R1 R6 ; RESTORE(ADDR); MOVC CR R3 ; CR =>CHAR; JMP L7 ; GOTO PUT IT A51: ; END; IEQ R3 CR ; IF CHAR=CR THEN MOVC N┆
0x28500…28580 UnusedSector ┆L R3 ; NL =>CHAR; JMP S5 P20 ; TYPE CHAR(CHAR, ; TIMEOUT: GOTO TIMEOUT.LINK, ; ERROR: GOTO ERROR.LINK); L7: ; PUT IT: MOV AD┆
0x28580…28600 UnusedSector ┆JUST-C R0 ; IF ADJUST.CUR JON R0 A7 ; =0 THEN MOV WADDR. X7 R0 ; IF ADDR.CUR SUB R6 R0 ; -ADDR IEQP R0 -NAMEBYTES ; <-NAMEBY┆
0x28600…28680 UnusedSector ┆TES THEN INE R3 NL ; IF CHAR<>NL THEN ADDC -1 R6 ; DECR(ADDR); A7: MON PUTBYTE ; PUT BYTE(ADDR,CHAR); ADDC 1 R6 ; INCR(ADDR);┆
0x28680…28700 UnusedSector ┆ SEQ R3 EM ; IF CHAR=EM IEQ R3 NL ; OR CHAR=NL THEN JMP G31 ; GOTO COUNT RETURN; SOB R2 L1 ; IF DECR(COUNT)<>0 THEN ; GOTO ┆
0x28700…28780 UnusedSector ┆NEXT IN; JMP G30 ; GOTO TYPE RETURN; G31: ; COUNT RETURN: ADDC -1 R2 ; DECR(COUNT); G30: ; TYPE RETURN: JMP S5 P10 ; SENSE DE┆
0x28780…28800 UnusedSector ┆VICE(STATUS,IRR, ; ERROR: GOTO ERROR.LINK0); IBZ R1 BNOUTREADY ; IF NOT STATUS[OUTPUT READY] THEN JMP S5 P61 ; WAIT IT(50, ;┆
0x28800…28880 UnusedSector ┆ TIMEOUT: GOTO TIMEOUT.LINK); MOV WLINK0.X7 R5 ; JMP 2 .X5 ; RETURN(LINK); END ; END OF TYPE IN; ; PROCEDURE TYPE OUT(COUNT,C┆
0x28880…28900 UnusedSector ┆HAR,ADDR),(TIMEOUT,ERROR); ; WRITES A STRING OF CHARACTERS FROM ADDR AND ON. THE VARIABLES, ; ADDR AND COUNT, ARE INCREMENTED AN┆
0x28900…28980 UnusedSector ┆D DECREMENTED ACCORDINGLY. THE ; CHARACTERS ARE WRITTEN BY MEANS OF TYPE CHAR. ; CALL: EXIT: ; R0 DESTROYED ; R1 DESTROYED ; R2 ┆
0x28980…28a00 UnusedSector ┆COUNT COUNT (UPDATED) ; R3 CHAR (LAST OUTPUT) ; R4 DESTROYED ; R5 LINK DESTROYED ; R6 ADDR ADDR (UPDATED) ; R7 WORK WORK ; LINK+┆
0x28a00…28a80 UnusedSector ┆0 TIMEOUT ; LINK+1 ERROR ; LINK+2 RETURN BEGIN USE PROG EXTERNAL P20,G30,G31,WLINK0 ENTRY P40 P40: ; TYPE OUT: MOV R5 WLINK0.X7┆
0x28a80…28b00 UnusedSector ┆ ;* SAVE(LINK); L1: ; NEXT OUT: MON GETBYTE ; GET BYTE(ADDR,CHAR); JMP S5 P20 ; TYPE CHAR(CHAR, ; TIMEOUT: GOTO TIMEOUT.LINK,┆
0x28b00…28b80 UnusedSector ┆ ; ERROR: GOTO ERROR.LINK); ADDC 1 R6 ; INCR(ADDR); JOZ R3 G31 ; IF CHAR=0 THEN ; GOTO COUNT RETURN; SOB R2 L1 ; IF DECR(CO┆
0x28b80…28c00 UnusedSector ┆UNT)<>0 THEN ; GOTO NEXT OUT; JMP G30 ; GOTO TYPE RETURN; END ; END OF TYPE OUT; ; PROCEDURE TYPE NL; ; TYPES A NL CHARACTER┆
0x28c00…28c80 UnusedSector ┆, USING TYPE PROG TEXT. ; CALL: EXIT: ; R4 DESTROYED ; R5 LINK DESTROYED ; R6 DESTROYED ; R7 WORK WORK BEGIN USE PROG EXTERNAL P┆
0x28c80…28d00 UnusedSector ┆51 ENTRY P53 P53: ; TYPE NL: JMP S6 P51 ; RE."<10>" =>ADDR; <:<10><0>:> ; GOTO TYPE PROG TEXT; END ; END OF TYPE NL; ; PROCED┆
0x28d00…28d80 UnusedSector ┆URE TYPE SPACE; ; TYPES A SPACE, USING TYPE PROG TEXT. ; CALL: EXIT: ; R4 DESTROYED ; R5 LINK DESTROYED ; R6 DESTROYED ; R7 WORK┆
0x28d80…28e00 UnusedSector ┆ WORK BEGIN USE PROG EXTERNAL P51 ENTRY P52 P52: ; TYPE SPACE: JMP S6 P51 ; RE." " =>ADDR; <: <0>:> ; GOTO TYPE PROG TEXT; END┆
0x28e00…28e80 UnusedSector ┆ ; END OF TYPE SPACE; ; PROCEDURE TYPE PROG TEXT(ADDR); ; ADDR IS CHANGED FROM BEING A PROG-RELATIVE WORD-ADDRESS TO A ; BASE-R┆
0x28e80…28f00 UnusedSector ┆ELATIVE WORD-ADDRESS. THE PROCEDURE CONTINUES WITH TYPE TEXT. ; CALL: EXIT: ; R4 DESTROYED ; R5 LINK DESTROYED ; R6 ADDR ADDR (C┆
0x28f00…28f80 UnusedSector ┆HANGED AND UPDATED) ; R7 WORK WORK BEGIN USE PROG EXTERNAL ENTRY P51 P51: ; TYPE PROG TEXT: MOD PROGRAM-C ; PROGRAM.CUR MODN C┆
0x28f80…29000 UnusedSector ┆BASE-C ; -BASE.CUR ORELSE ;* CONTINUE WITH TYPE TEXT; END ; END OF TYPE PROG TEXT; P51P52:=P51-P52 ; PROCEDURE TYPE TEXT(ADDR┆
0x29000…29080 UnusedSector ┆); ; ADDR IS CHANGED FROM BEING A WORD-ADDRESS TO A BYTE-ADDRESS. THE ; PROCEDURE TYPES THE TEXT BY MEANS OF TYPE OUT. ; CALL: E┆
0x29080…29100 UnusedSector ┆XIT: ; R4 DESTROYED ; R5 LINK DESTROYED ; R6 ADDR ADDR (CHANGED AND UPDATED) ; R7 WORK WORK BEGIN USE PROG EXTERNAL G4,P40,WLINK┆
0x29100…29180 UnusedSector ┆0,WLINK2 ENTRY P50,G50 USE BASE LOC= LOC-WORK WSAVEA: 0 ; SAVE ADJUST WSAVEL: 0 ; SAVE LINK0 0 ; SAVE LINK1 WSAVE0: 0 ; SAVE R┆
0x29180…29200 UnusedSector ┆0 0 ; SAVE R1 WSAVE2: 0 ; SAVE R2 0 ; SAVE R3 LOC= LOC+WORK USE PROG P50: ; TYPE TEXT: MOVC 0 R4 ;* 0 =>ADJUST; MOV R5 WLIN┆
0x29200…29280 UnusedSector ┆K2.X7 ; SAVE(LINK); MOVL R01 WSAVE0.X77 ; SAVE(R0,R1); MOVL R23 WSAVE2.X77 ; SAVE(R2,R3); MOVL WLINK0.X77 R01 ; SAVE(LINK0, ┆
0x29280…29300 UnusedSector ┆MOVL R01 WSAVEL.X77 ; ,LINK1); MOV ADJUST-C R0 ; MOV R0 WSAVEA.X7 ; SAVE(ADJUST.CUR); MOV R4 ADJUST-C ; ADJUST =>ADJUST.CUR; ┆
0x29300…29380 UnusedSector ┆ MOVC 100 R2 ; 100 =>COUNT; ADD R6 R6 ; ADDR+ADDR =>ADDR; JMP S5 P40 ; TYPE OUT(COUNT,IRR,ADDR, G50: JMP G4 ; TIMEOUT: GOTO BR┆
0x29380…29400 UnusedSector ┆EAK, JMP G4 ; ERROR: GOTO BREAK); MOV WSAVEA.X7 R0 ; MOV R0 ADJUST-C ; RESTORE(ADJUST.CUR); MOV WSAVEL.X7 R0 ; MOV WSAVEL+1┆
0x29400…29480 UnusedSector ┆.X7 R1 ; RESTORE(LINK0, MOVL R01 WLINK0.X77 ; LINK1); MOV WSAVE0.X7 R0 ; RESTORE(R0 MOV WSAVE0+1.X7 R1 ; R1 MOV WSAVE2.X7 R2┆
0x29480…29500 UnusedSector ┆ ; R2 MOV WSAVE2+1.X7 R3 ; R3); JMPI WLINK2.X7 ; RETURN; END ; END OF TYPE TEXT; ; PROCEDURE WAIT IT(DELAY),(TIMEOUT); ; CALL┆
0x29500…29580 UnusedSector ┆: EXIT: ; R0 DELAY COUNT ; R1 INTERRUPT.CUR ; R5 LINK UNDEFINED ; R7 WORK WORK BEGIN USE PROG EXTERNAL WLINK0 ENTRY P60,P61 P61:┆
0x29580…29600 UnusedSector ┆ ; WAIT IT(50,*): MOVC 50 R0 ; 50 =>DELAY; P60: ; WAIT IT: MOV INTERRUPT-C R1 ; INTERRUPT.CUR =>INTRPT; MON WAITINTERRUPT ; W┆
0x29600…29680 UnusedSector ┆AIT INTERRUPT(DELAY,INTRPT, JMPI WLINK0.X7 ; TIMEOUT: GOTO TIMEOUT.LINK0, JMP 0. X5 ; INTERRUPT: RETURN); END ; END OF WAIT IT┆
0x29680…29700 UnusedSector ┆; ; REGISTER USE IN THE DRIVER: ; R0 DESTROYED ; R1 DESTROYED ; R2 COUNT ; R3 CHAR ; R4 LOOP.TYPE CHAR ; R5 LINKS ; R6 ADDR ; R┆
0x29700…29780 UnusedSector ┆7 WORK L0: ; INIT: MON INITDEVICE ; INIT DEVICE(INTERRUPT,DEVICE); L1: ; ANY USER: MOVL WSEARD.X77 R01 ; SEARCHED.WORK =>SEAR┆
0x29780…29800 UnusedSector ┆CHED; MOV R7 WSEARD.X7 ; TRUE =>SEARCHED.WORK; JOZ R0 L111 ; IF NOT SEARCHED JON R1 L111 ; OR INPUT.WORK THEN ; GOTO INIT QU┆
0x29800…29880 UnusedSector ┆EUE; MOV WBUSY. X7 R0 ; JOZ R0 A1 ; IF BUSY.WORK THEN JMP L171 ; GOTO BUSY; A1: MOV FIRSTEVENT-C R0 ; IF FIRST EVENT.CUR=0 TH┆
0x29880…29900 UnusedSector ┆EN JOZ R0 L10 ; GOTO READY; MOV R7 WANY. X7 ; TRUE =>ANY.WORK; L10: ; READY: JMP S5 P11 ;* SENSE DEVICE(STATUS,IRR, ;* ERROR┆
0x29900…29980 UnusedSector ┆: CONTINUE); MOV INTERRUPT-C R1 ; INTERRUPT.CUR =>INTRPT; MON CLEARINTERRUPT ; CLEAR INTERRUPT(INTRPT,IRR); L11: ; INSPECT QUE┆
0x29980…29a00 UnusedSector ┆UE: CLR WSEARD.X7 ; FALSE =>SEARCHED.WORK; L111: ; INIT QUEUE: CLR WINPUT.X7 ; FALSE =>INPUT.WORK; MON INITWAIT ; INIT WAIT; ┆
0x29a00…29a80 UnusedSector ┆L12: MOV WBREAK.X7 R0 ; NEXT EVENT: JOZ R0 A12 ; IF BREAK.WORK THEN JMP G4 ; GOTO BREAK; A12: MOVC 10 R0 ; MON SETDELAY ; SET┆
0x29a80…29b00 UnusedSector ┆ DELAY(10); MOV INTERRUPT-C R1 ; INTERRUPT.CUR =>INTRPT; MON SETINTERRUPT ; SET INTERRUPT(INTRPT); MON WAITNEXT ; WAIT NEXT(E┆
0x29b00…29b80 UnusedSector ┆VENT, JMP L1 ; TIME OUT: GOTO ANY USER, TRP 0 ; ANSWER: IMPOSSIBLE, JMP L13 ; MESSAGE: GOTO MESSAGE, ; INTERRUPT: CONTINUE);┆
0x29b80…29c00 UnusedSector ┆ JMP S5 P11 ;* SENSE DEVICE(STATUS,IRR, ;* ERROR: CONTINUE); JMP L12 ; GOTO NEXT EVENT; L13: ; MESSAGE: MOV MCOUNT.X7 R2 ; C┆
0x29c00…29c80 UnusedSector ┆OUNT.MESS =>COUNT; IBN MOPERN.X7 BNTPUT ; IF OPER.MESS[TRANSPUT] THEN JMP L14 ; GOTO TRANSPUT; ; CONTROL: IBNP MOPERN.X7 BNR┆
0x29c80…29d00 UnusedSector ┆ESERVE ; IF OPER.MESS[RESERVE] THEN MOVC ITEM +KIND R5 ; COUNT SUB 0. X5 R2 ; -KIND.CUR =>COUNT; A15: JMP L15 ; GOTO DONE; L14┆
0x29d00…29d80 UnusedSector ┆: ; TRANSPUT: JOZ R2 A15 ; IF COUNT=0 THEN ; GOTO DONE; MOVC SEND R0 ; MON GETEVENTNAME ; GET EVENT NAME(SEND); MOVC USER R┆
0x29d80…29e00 UnusedSector ┆1 ; MON COMPARENAMES ; COMPARE NAMES(SEND,USER, JMP L16 ; UNEQUAL: NOT USER); CLR WBUSY. X7 ; FALSE =>BUSY.WORK; MOV WSEARD.┆
0x29e00…29e80 UnusedSector ┆X7 R0 ; JON R0 A14 ; IF NOT SEARCHED.WORK SBZ MOPERN.X7 BNOPUT ; IF NOT OPER.MESS[OUTPUT] THEN JMP A14 ; BEGIN MOV R7 WINPUT┆
0x29e80…29f00 UnusedSector ┆.X7 ; TRUE =>INPUT.WORK; MON RESUMEEVENT ; RESUME EVENT; JMP L12 ; GOTO NEXT EVENT A14: ; END; MOV MCOUNT.X7 R2 ; COUNT.MESS ┆
0x29f00…29f80 UnusedSector ┆=>COUNT; MON GETADDRESS ; GET ADDRESS(COUNT,ADDR, JMP L158 ; ILLEGAL: GOTO ILLEGAL); MOV WPROMT.X7 R1 ; PROMPT.WORK =>OLD; M┆
0x29f80…2a000 UnusedSector ┆OV WMODE. X7 R0 ; IF MODE.WORK<>0 THEN JOZ R0 A141 ; BEGIN IBN MOPERN.X7 BNOPUT ; IF OPER.MESS[OUTPUT] THEN MODC <: :> -<:. :┆
0x2a000…2a080 UnusedSector ┆> ; " " =>HEAD MOVC <:. :> R0 ; ELSE ". " =>HEAD; MOV R0 WPROMT.X7 ; HEAD =>PROMPT.WORK; JOZ R1 A141 ; IF OLD<>0 THEN SNE R1┆
0x2a080…2a100 UnusedSector ┆ R0 ; IF OLD<>HEAD THEN JMP A141 ; BEGIN MOV R6 R1 ; SAVE(ADDR); MOV WPOS. X7 R0 ; POS.WORK =>POS; IEQP R0 2 ; IF POS=2 THEN┆
0x2a100…2a180 UnusedSector ┆ JMP S5 P53 ; TYPE NL; MOV R1 R6 ; RESTORE(ADDR) ; END A141: ; END; IBN MOPERN.X7 BNNOEC ; IF OPER.MESS[NO ECHO] THEN CLR W┆
0x2a180…2a200 UnusedSector ┆ECHO. X7 ; FALSE =>ECHO.WORK; IBN MOPERN.X7 BNOPUT ;* IF OPER.MESS[OUTPUT] THEN MODC -P30 +P40 ;* TYPE OUT(COUNT,IRR,ADDR, ;*┆
0x2a200…2a280 UnusedSector ┆ TIMEOUT: GOTO TIMER, ;* ERROR: GOTO ERROR) JMP S5 P30 ;* ELSE TYPE IN(COUNT,IRR,ADDR, ;* TIMEOUT: GOTO TIMER, ;* ERROR: GOT┆
0x2a280…2a300 UnusedSector ┆O ERROR); ;* GOTO DONE; ;*TIMER: MODC BMTIMER -BMERROR ;* TIMER ORELSE ;*ERROR: MODC BMERROR -0 ;* ERROR ORELSE L15: ;*DONE┆
0x2a300…2a380 UnusedSector ┆: MODC 0 -BMILLEGAL ;* 0 ORELSE L158: ; ILLEGAL: MOVC BMILLEGAL ARESUT.X7 ; ILLEGAL =>RESULT.ANSWER; JMP S5 P11 ;* SENSE DEVI┆
0x2a380…2a400 UnusedSector ┆CE(STATUS,IRR, ;* ERROR: CONTINUE); L157: ; DUMMY RETURN: MON RETURNANSWER ; RETURN ANSWER(STATUS,COUNT); MOV R7 WECHO. X7 ; ┆
0x2a400…2a480 UnusedSector ┆TRUE =>ECHO.WORK; JMP L10 ; GOTO READY; G4: MOVC 10 R0 ; BREAK: MON WAITDELAY ; WAIT DELAY(10); CLR WBREAK.X7 ; FALSE =>BREAK┆
0x2a480…2a500 UnusedSector ┆.WORK; JMP S5 P11 ;* SENSE DEVICE(STATUS, ;* ERROR: CONTINUE); MOV WBREAK.X7 R0 ; IF BREAK.WORK THEN JON R0 G4 ; GOTO BREAK;┆
0x2a500…2a580 UnusedSector ┆ JMP S5 P53 ; TYPE NL; CLR USER -WORK .X7 ; 0 =>0.USER; CLR PROMPT -WORK. X7 ; 0 =>0.PROMPT; MOVC <:=:> R0 ; "=" MOVB R0 WA┆
0x2a580…2a600 UnusedSector ┆RROW.X7 ; =>ARROW.WORK; MOVC OUTUSER R6 ; RE.OUTUSER =>ADDR; JMP S5 P50 ; TYPE TEXT(ADDR); CLR ADJUST-C -WORK. X7 ; 0 =>ADJUS┆
0x2a600…2a680 UnusedSector ┆T.CUR; MOVC USER*2 R6 ; RE.USER =>ADDR; L41: ; IN NAME: MOVC 0 R2 ; 0 =>COUNT; JMP S5 P30 ; TYPE IN(COUNT,CHAR,ADDR, JMP L41┆
0x2a680…2a700 UnusedSector ┆ ; TIMEOUT: GOTO IN NAME, JMP G4 ; ERROR: GOTO BREAK); CLR WAHEAD.X7 ; 0 =>AHEAD.WORK; ADDC -1 R6 ; DECR(ADDR); MOVC USER*2+┆
0x2a700…2a780 UnusedSector ┆NAMEBYTES+1R2 ; RE.USER+NAMEBYTES+1 SUB R6 R2 ; -ADDR =>COUNT; MOVC 0 R3 ; 0 =>CHAR; L6: ; INSERT ZERO: MOVB R3 BYTE. X6 ; CH┆
0x2a780…2a800 UnusedSector ┆AR =>BYTE.ADDR; ADDC 1 R6 ; INCR(ADDR); SOB R2 L6 ; IF DECR(COUNT)<>0 THEN ; GOTO INSERT ZERO; CLR WIDENT.X7 ; 0 =>IDENT.WOR┆
0x2a800…2a880 UnusedSector ┆K; MOVC USER R0 ; MON SEARCHPROCESS ; SEARCH PROCESS(USER, JMP L9 ; NOT FOUND: GOTO UNKNOWN); CLR WANY. X7 ; FALSE =>ANY.WOR┆
0x2a880…2a900 UnusedSector ┆K; MOD CBASE-C ; INE R1 ITEM ; IF PROC<>ITEM.BASE.CUR THEN JMP L18 ; GOTO ATTENTION; JMP S6 A6 ; RE. <:.:<0>:> ; ".:" =>ADD┆
0x2a900…2a980 UnusedSector ┆R; A6: JMP S5 P51 ; TYPE PROG TEXT(ADDR); L61: ; IN MODE: MOVC 1 R2 ; 1 =>COUNT; MOVC USER*2 R6 ; RE.USER =>ADDR; JMP S5 P30 ┆
0x2a980…2aa00 UnusedSector ┆; TYPE IN(COUNT,CHAR,ADDR, JMP L61 ; TIMEOUT: GOTO IN MODE, JMP G4 ; ERROR: GOTO BREAK); ADDC -<:0:> R3 ; CHAR-"0" MOV R3 WM┆
0x2aa00…2aa80 UnusedSector ┆ODE. X7 ; =>MODE.WORK; JMP S5 P53 ; TYPE NL; JMP L10 ; GOTO READY; L18: MOVC USER R0 ; ATTENTION: MOVC ATTMESS R1 ; ATTMESS =┆
0x2aa80…2ab00 UnusedSector ┆>MESS; MON SENDMESSAGE ; SEND MESSAGE(USER,MESS,EVENT); MOVC 50 R0 ; MON SETDELAY ; SET DELAY(50); MON WAITANSWER ; WAIT ANS┆
0x2ab00…2ab80 UnusedSector ┆WER(EVENT, MON REGRETMESSAGE ; TIMEOUT: REGRET MESS(EVENT)); MOV R7 WBUSY. X7 ; TRUE =>BUSY.WORK; JMP L10 ; GOTO READY; L171:┆
0x2ab80…2ac00 UnusedSector ┆ ; BUSY: CLR WBUSY. X7 ; FALSE =>BUSY.WORK; JMP S6 L20 ; RE."BUSY" =>ADDR; <:BUSY<0>:> ; GOTO TYPE OWN TEXT; L16: ; NOT USER:┆
0x2ac00…2ac80 UnusedSector ┆ MOV EVENTSTATUS-C R2 ; EVENT STATUS.CUR =>STATE; MON RESUMEEVENT ; RESUME EVENT; MOV WANY. X7 R5 ; ILO R2 #100 ; IF PRIORIT┆
0x2ac80…2ad00 UnusedSector ┆Y.STATE=0 THEN JOZ R5 L12 ; IF NOT ANY.WORK THEN ; GOTO NEXT EVENT; MOV WBUSY. X7 R2 ; IF BUSY.WORK THEN JON R2 L171 ; GOTO ┆
0x2ad00…2ad80 UnusedSector ┆BUSY; MOVC USER R1 ; MODC IDLENGTH ; IDLENGTH =>LENGTH; MOVM X0 X1 ; MOVEMULT(LENGTH,SEND,USER); CLR WANY. X7 ; FALSE =>ANY.┆
0x2ad80…2ae00 UnusedSector ┆WORK; JMP S5 P53 ; TYPE NL; MOVC <:-:> R0 ; "-" MOVB R0 WARROW.X7 ; =>ARROW.WORK; MOVC OUTUSER R6 ; RE.OUTUSER =>ADDR; MODC┆
0x2ae00…2ae80 UnusedSector ┆ P50 -P51 ; TYPE TEXT(ADDR) ORELSE L20: ; TYPE OWN TEXT: JMP S5 P51 ; TYPE PROG TEXT(ADDR); JMP S5 P53 ; TYPE NL; JMP L10 ; G┆
0x2ae80…2af00 UnusedSector ┆OTO READY; L9: ; UNKNOWN: JMP S6 L20 ; RE."UNKNOWN" =>ADDR; <:UNKNOWN<0>:> ; GOTO TYPE OWN TEXT; USE BASE XNAME0= <:OC:> XNAM┆
0x2af00…2af80 UnusedSector ┆E1= <:1:> XKIND= KINDOC OR BMBYTE OR BMDISP XPRPC= L0 XDEVPR= DEV<2+PR XREFS= 8 XBUFS= 1 NOLIST ; CR80 SYSTEM ONE ; MONITOR ;┆
0x2af80…2b000 UnusedSector ┆ MASTER: XPD - PROCESS DESCRIPTION (PART 2) IF XPD EQ UTILITYLENGTH OR XPD EQ PROGLENGTH THEN USE PROG XPSTATE= BMREENTRANT X┆
0x2b000…2b080 UnusedSector ┆REFS= 0 XBUFS= 1 XWORDS= 0 XPSIZE= LOC XCHAIN= 0 XPCOUNT= 1 XPNAME0= 0 XPNAME1= 0 XPNAME2= 0 XIDENT= 0 XPRPC= PROGLENG┆
0x2b080…2b100 UnusedSector ┆TH FI USE BASE IF XPD GT PROGLENGTH THEN XLOC= LOC-XLOC-C XSTATE= 0 XPARENT= 0 XNEXT= 0 XCHILD= 0 XCHAIN= 0 XKIND= 0 XNA┆
0x2b100…2b180 UnusedSector ┆ME0= 0 XNAME1= 0 XNAME2= 0 XIDENT= 0 XPROCIDENT= 0 XDEBUG= 0 XCBASE= 0 XCBASEMOD= 0 XPRPC= 0 XTIMER= 100 XPSW= 0 XOLD┆
0x2b180…2b200 UnusedSector ┆PROC= 0 XLOCACTION= LOCACT XLOCRETURN= 0 XCAUSE= 0 XDEVPR= 0 XPRESET= 100 XERROR= 0 XWARNING= 0 XTERMINATE= 0 XRESERVER┆
0x2b200…2b280 UnusedSector ┆= 0 XDEVICE= 0 XINTERRUPT= 0 XACTION= LOCACT XEOFACTION= LOCACT IF XPD GT CURSIN THEN IF LOC NE CURSIN+XLOC THEN MESSAGE <:┆
0x2b280…2b300 UnusedSector ┆ERROR: XCURSIN LENGTH:> FI XCURIN= LOC BEGIN USE BASE XSHARE: XSNAME: XSNAME0 IF NAMELENGTH GT 1 THEN XSNAME1 IF NAMELENGTH GT ┆
0x2b300…2b380 UnusedSector ┆2 THEN XSNAME2 IF NAMELENGTH GT 3 THEN 0 REPEAT NAMELENGTH-3-1 FI FI FI IF LOC-XSNAME NE NAMELENGTH THEN MESSAGE <:ERROR: XSNA┆
0x2b380…2b400 UnusedSector ┆ME LENGTH:> FI XSIDENT 0 ; SPROCIDENT XSMODE XSKIND 0 REPEAT 6 ; SMASK - SFILE XSFIRST XSTOP XSREM XSBUFSIZE XSUSED XS┆
0x2b400…2b480 UnusedSector ┆SID: 0 IF IDLENGTH GT 1 THEN 0 IF IDLENGTH GT 2 THEN 0 IF IDLENGTH GT 3 THEN 0 REPEAT IDLENGTH-3-1 FI FI FI IF LOC-XSSID NE I┆
0x2b480…2b500 UnusedSector ┆DLENGTH THEN MESSAGE <:ERROR: XSSID LENGTH:> FI 0 IF LOC-XSSID NE STACKLENGTH THEN MESSAGE <:ERROR: STACK LENGTH:> FI 0 REPEAT┆
0x2b500…2b580 UnusedSector ┆ 9 ; SSAVE0 - SSAVE9 IF LOC-XSHARE NE SHARELENGTH THEN MESSAGE <:ERROR: XSHARE LENGTH:> FI XSBUFFERS= 1 XSNAME0= <:OC:> XSMODE┆
0x2b580…2b600 UnusedSector ┆= BMINPUT OR BMBYTE XSKIND= KINDOC OR BMBYTE OR BMDISP XSBUFSIZE= 128 XSBUFFERS= 2 IF XSMODE>BNBYTE THEN XSFACTOR=2 IF XSBUFSI┆
0x2b600…2b680 UnusedSector ┆ZE THEN XSFILL=1 ELSE XSFILL=0 FI ELSE XSFACTOR=1 XSFILL=0 FI XSNAME0= 0 XSNAME1= 0 XSNAME2= 0 XSIDENT= 0 XSFIRST= (LO┆
0x2b680…2b700 UnusedSector ┆C+XSBUFFERS*BUFFERLENGTH)*XSFACTOR XSTOP= XSFIRST IF XSMODE>BNOPUT THEN XSREM= XSBUFSIZE ELSE XSREM= 0 FI XSUSED= LOC XSB┆
0x2b700…2b780 UnusedSector ┆UFFER= XSBUFFERS*(XSBUFSIZE+XSFILL) XSBUFAREA= (XSUSED+XSBUFFERS*BUFFERLENGTH)*XSFACTOR IF XSBUFFERS GT 0 THEN 0 REPEAT BFIRST┆
0x2b780…2b800 UnusedSector ┆-1 XSBUFAREA, XSBUFAREA=XSBUFAREA+XSBUFSIZE+XSFILL IF XSBUFFERS GT 1 THEN LOC-BNEXT+BUFFERLENGTH ELSE XSUSED FI XSBUFFERS=┆
0x2b800…2b880 UnusedSector ┆XSBUFFERS-1 FI IF XSBUFFERS GT 0 THEN 0 REPEAT BFIRST-1 XSBUFAREA, XSBUFAREA=XSBUFAREA+XSBUFSIZE+XSFILL IF XSBUFFERS GT 1 THE┆
0x2b880…2b900 UnusedSector ┆N LOC-BNEXT+BUFFERLENGTH ELSE XSUSED FI XSBUFFERS=XSBUFFERS-1 FI IF XSMODE>BNBYTE AN (NT XSKIND>BNBYTE) AN XSBUFAREA>15 THE┆
0x2b900…2b980 UnusedSector ┆N MESSAGE <:ADDR TOO BIG:> FI IF XSBUFFER GT 0 THEN 0 REPEAT (XSBUFFER-1)/XSFACTOR FI END IF XPD GT CURSOUT THEN IF LOC NE C┆
0x2b980…2ba00 UnusedSector ┆URSOUT+XLOC THEN MESSAGE <:ERROR: XCURSOUT LENGTH:> FI XCUROUT= LOC BEGIN USE BASE XSHARE: XSNAME: XSNAME0 IF NAMELENGTH GT 1 TH┆
0x2ba00…2ba80 UnusedSector ┆EN XSNAME1 IF NAMELENGTH GT 2 THEN XSNAME2 IF NAMELENGTH GT 3 THEN 0 REPEAT NAMELENGTH-3-1 FI FI FI IF LOC-XSNAME NE NAMELENG┆
0x2ba80…2bb00 UnusedSector ┆TH THEN MESSAGE <:ERROR: XSNAME LENGTH:> FI XSIDENT 0 ; SPROCIDENT XSMODE XSKIND 0 REPEAT 6 ; SMASK - SFILE XSFIRST XSTOP┆
0x2bb00…2bb80 UnusedSector ┆ XSREM XSBUFSIZE XSUSED XSSID: 0 IF IDLENGTH GT 1 THEN 0 IF IDLENGTH GT 2 THEN 0 IF IDLENGTH GT 3 THEN 0 REPEAT IDLENGTH-3┆
0x2bb80…2bc00 UnusedSector ┆-1 FI FI FI IF LOC-XSSID NE IDLENGTH THEN MESSAGE <:ERROR: XSSID LENGTH:> FI 0 IF LOC-XSSID NE STACKLENGTH THEN MESSAGE <:ERROR┆
0x2bc00…2bc80 UnusedSector ┆: STACK LENGTH:> FI 0 REPEAT 9 ; SSAVE0 - SSAVE9 IF LOC-XSHARE NE SHARELENGTH THEN MESSAGE <:ERROR: XSHARE LENGTH:> FI XSBUFF┆
0x2bc80…2bd00 UnusedSector ┆ERS= 1 XSNAME0= <:OC:> XSMODE= BMOUTPUT OR BMBYTE XSKIND= KINDOC OR BMBYTE OR BMDISP XSBUFSIZE= 128 XSBUFFERS= 2 IF XSMODE>BNBY┆
0x2bd00…2bd80 UnusedSector ┆TE THEN XSFACTOR=2 IF XSBUFSIZE THEN XSFILL=1 ELSE XSFILL=0 FI ELSE XSFACTOR=1 XSFILL=0 FI XSNAME0= 0 XSNAME1= 0 XSNAME┆
0x2bd80…2be00 UnusedSector ┆2= 0 XSIDENT= 0 XSFIRST= (LOC+XSBUFFERS*BUFFERLENGTH)*XSFACTOR XSTOP= XSFIRST IF XSMODE>BNOPUT THEN XSREM= XSBUFSIZE ELSE X┆
0x2be00…2be80 UnusedSector ┆SREM= 0 FI XSUSED= LOC XSBUFFER= XSBUFFERS*(XSBUFSIZE+XSFILL) XSBUFAREA= (XSUSED+XSBUFFERS*BUFFERLENGTH)*XSFACTOR IF XSBUFF┆
0x2be80…2bf00 UnusedSector ┆ERS GT 0 THEN 0 REPEAT BFIRST-1 XSBUFAREA, XSBUFAREA=XSBUFAREA+XSBUFSIZE+XSFILL IF XSBUFFERS GT 1 THEN LOC-BNEXT+BUFFERLENGT┆
0x2bf00…2bf80 UnusedSector ┆H ELSE XSUSED FI XSBUFFERS=XSBUFFERS-1 FI IF XSBUFFERS GT 0 THEN 0 REPEAT BFIRST-1 XSBUFAREA, XSBUFAREA=XSBUFAREA+XSBUFSIZE┆
0x2bf80…2c000 UnusedSector ┆+XSFILL IF XSBUFFERS GT 1 THEN LOC-BNEXT+BUFFERLENGTH ELSE XSUSED FI XSBUFFERS=XSBUFFERS-1 FI IF XSMODE>BNBYTE AN (NT XSKI┆
0x2c000…2c080 UnusedSector ┆ND>BNBYTE) AN XSBUFAREA>15 THEN MESSAGE <:ADDR TOO BIG:> FI IF XSBUFFER GT 0 THEN 0 REPEAT (XSBUFFER-1)/XSFACTOR FI END IF X┆
0x2c080…2c100 UnusedSector ┆PD GT CURSWORK THEN IF LOC NE CURSWORK+XLOC THEN MESSAGE <:ERROR: XCURSWORK LENGTH:> FI XCURWRK= LOC BEGIN USE BASE XSHARE: XSNA┆
0x2c100…2c180 UnusedSector ┆ME: XSNAME0 IF NAMELENGTH GT 1 THEN XSNAME1 IF NAMELENGTH GT 2 THEN XSNAME2 IF NAMELENGTH GT 3 THEN 0 REPEAT NAMELENGTH-3-1 F┆
0x2c180…2c200 UnusedSector ┆I FI FI IF LOC-XSNAME NE NAMELENGTH THEN MESSAGE <:ERROR: XSNAME LENGTH:> FI XSIDENT 0 ; SPROCIDENT XSMODE XSKIND 0 REPEAT ┆
0x2c200…2c280 UnusedSector ┆6 ; SMASK - SFILE XSFIRST XSTOP XSREM XSBUFSIZE XSUSED XSSID: 0 IF IDLENGTH GT 1 THEN 0 IF IDLENGTH GT 2 THEN 0 IF IDLENG┆
0x2c280…2c300 UnusedSector ┆TH GT 3 THEN 0 REPEAT IDLENGTH-3-1 FI FI FI IF LOC-XSSID NE IDLENGTH THEN MESSAGE <:ERROR: XSSID LENGTH:> FI 0 IF LOC-XSSID NE┆
0x2c300…2c380 UnusedSector ┆ STACKLENGTH THEN MESSAGE <:ERROR: STACK LENGTH:> FI 0 REPEAT 9 ; SSAVE0 - SSAVE9 IF LOC-XSHARE NE SHARELENGTH THEN MESSAGE <:E┆
0x2c380…2c400 UnusedSector ┆RROR: XSHARE LENGTH:> FI XSBUFFERS= 1 XSMODE= BMWORD XSKIND= BMWORD XSBUFSIZE= 64 XSBUFFERS= 2 IF XSMODE>BNBYTE THEN XSFACTOR┆
0x2c400…2c480 UnusedSector ┆=2 IF XSBUFSIZE THEN XSFILL=1 ELSE XSFILL=0 FI ELSE XSFACTOR=1 XSFILL=0 FI XSNAME0= 0 XSNAME1= 0 XSNAME2= 0 XSIDENT= 0┆
0x2c480…2c500 UnusedSector ┆ XSFIRST= (LOC+XSBUFFERS*BUFFERLENGTH)*XSFACTOR XSTOP= XSFIRST IF XSMODE>BNOPUT THEN XSREM= XSBUFSIZE ELSE XSREM= 0 FI XSU┆
0x2c500…2c580 UnusedSector ┆SED= LOC XSBUFFER= XSBUFFERS*(XSBUFSIZE+XSFILL) XSBUFAREA= (XSUSED+XSBUFFERS*BUFFERLENGTH)*XSFACTOR IF XSBUFFERS GT 0 THEN 0┆
0x2c580…2c600 UnusedSector ┆ REPEAT BFIRST-1 XSBUFAREA, XSBUFAREA=XSBUFAREA+XSBUFSIZE+XSFILL IF XSBUFFERS GT 1 THEN LOC-BNEXT+BUFFERLENGTH ELSE XSUSED ┆
0x2c600…2c680 UnusedSector ┆FI XSBUFFERS=XSBUFFERS-1 FI IF XSBUFFERS GT 0 THEN 0 REPEAT BFIRST-1 XSBUFAREA, XSBUFAREA=XSBUFAREA+XSBUFSIZE+XSFILL IF XSBU┆
0x2c680…2c700 UnusedSector ┆FFERS GT 1 THEN LOC-BNEXT+BUFFERLENGTH ELSE XSUSED FI XSBUFFERS=XSBUFFERS-1 FI IF XSMODE>BNBYTE AN (NT XSKIND>BNBYTE) AN XS┆
0x2c700…2c780 UnusedSector ┆BUFAREA>15 THEN MESSAGE <:ADDR TOO BIG:> FI IF XSBUFFER GT 0 THEN 0 REPEAT (XSBUFFER-1)/XSFACTOR FI END IF XPD GT ENTRYAREA ┆
0x2c780…2c800 UnusedSector ┆THEN IF LOC NE ENTRYAREA+XLOC THEN MESSAGE <:ERROR: XENTRYAREA LENGTH:> FI XCENTRY= LOC 0 REPEAT ENTRYLENGTH-1 IF XPD GT WORKA┆
0x2c800…2c880 UnusedSector ┆REA THEN IF LOC NE WORKAREA+XLOC THEN MESSAGE <:ERROR: XWORKAREA LENGTH:> FI XWORKING= LOC 0 REPEAT WORKLENGTH-1 IF LOC NE UTIL┆
0x2c880…2c900 UnusedSector ┆ITYLENGTH+XLOC THEN MESSAGE <:ERROR: XUTILITY LENGTH:> FI FI FI FI FI FI XCURIN= 0 XCUROUT= 0 XCURWORK= 0 XCENTRY= 0 XWORK┆
0x2c900…2c980 UnusedSector ┆ING= 0 IF XREFS EQ 0 THEN XREFSX=0 ELSE XREFSX: XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLE┆
0x2c980…2ca00 UnusedSector ┆NGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT R┆
0x2ca00…2ca80 UnusedSector ┆EFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XR┆
0x2ca80…2cb00 UnusedSector ┆EFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0┆
0x2cb00…2cb80 UnusedSector ┆ THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFL┆
0x2cb80…2cc00 UnusedSector ┆ENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,L┆
0x2cc00…2cc80 UnusedSector ┆OC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 ┆
0x2cc80…2cd00 UnusedSector ┆REPEAT REFLENGTH-4 XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 ┆
0x2cd00…2cd80 UnusedSector ┆XREFS=XREFS-1 IF XREFS EQ 0 THEN 0 REPEAT REFLENGTH-1 ELSE 0,0,LOC+REFLENGTH-NEXT,0 REPEAT REFLENGTH-4 FI FI FI FI FI FI FI┆
0x2cd80…2ce00 UnusedSector ┆ FI FI FI FI IF XBUFS EQ 0 THEN XBUFSX=0 ELSE XBUFSX: XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC┆
0x2ce00…2ce80 UnusedSector ┆+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 RE┆
0x2ce80…2cf00 UnusedSector ┆PEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XB┆
0x2cf00…2cf80 UnusedSector ┆UFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUF┆
0x2cf80…2d000 UnusedSector ┆S EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEA┆
0x2d000…2d080 UnusedSector ┆T BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE ┆
0x2d080…2d100 UnusedSector ┆ 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-N┆
0x2d100…2d180 UnusedSector ┆EXT,0 REPEAT BUFLENGTH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENG┆
0x2d180…2d200 UnusedSector ┆TH-4 XBUFS=XBUFS-1 IF XBUFS EQ 0 THEN 0 REPEAT BUFLENGTH-1 ELSE 0,0,LOC+BUFLENGTH-NEXT,0 REPEAT BUFLENGTH-4 FI FI FI FI FI┆
0x2d200…2d280 UnusedSector ┆ FI FI FI FI FI FI FI XSIZE= LOC-ITEM XPROGRAM= LOC USE PROG IF LOC+XSIZE NE WORDS THEN MESSAGE <:ERROR: LOC+XSIZE<>WORDS:┆
0x2d280…2d300 UnusedSector ┆> FI IF XPD NE PROGLENGTH THEN USE BASE FI LIST END ; END OF MODULE: DOC; # ┆
0x2d300…2d380 UnusedSector ┆ OC-ITEM XPROGRAM= LOC USE PROG IF LOC+XSIZE ┆
0x2d380…2d400 UnusedSector ┆ XPD NE PROGLENGTH THEN USE BASE FI LIST END ; END OF MODULE: DOC; # ┆
0x2d400…2d480 UnusedSector 0xff[128]
0x2d480…2d500 UnusedSector ┆ / / x * f FLOPPY M ┆
0x2d500…2d580 UnusedSector 0x00[128]
[…0x1…]
0x2d600…2d680 UnusedSector ┆. Z018C3 T1D92 P 18C0L 0001 0008 0001 0000 01EC 18C8L 0000 0001 0000 0000 0000 0000 02E3 02D6 18D0L 0137 011F E285 E213 2D68 84F┆
0x2d680…2d700 UnusedSector ┆2 0814 00C8 18D8L 02F3 74D9 4668 1896 61BC 9896 0897 07EC 18E0L 98A0 1FEC FB86 E61E 20E4 E046 1AF0 07D8 18E8L E616 E736 20E4 E04┆
0x2d700…2d780 UnusedSector ┆4 20AE 52E4 8090 FB1E 18F0L 1056 9044 1AF0 40BF 83F0 1DB2 E627 EA87 18F8L E21D 41BF E918 81F0 40BF E385 FE83 BA7C 1900L 0D4B BD3┆
0x2d780…2d800 UnusedSector ┆C 084C 24D8 014C FC18 B4F2 B83C 1908L FC13 81F0 FC16 FE1B 40EE 69BB C8F0 E51C 1910L C6F2 6E4E E4F3 E21C 0E9D 45FA BBDE FC1D 1918┆
0x2d800…2d880 UnusedSector ┆L FD1E 65F5 08D8 B0DE 05DF 2020 2020 2020 1920L 5C20 0000 ADDE 1EBB 0CBB FE83 B1F0 E312 1928L 555E 1BB0 CADE 0458 C77C FE1B C67C┆
0x2d880…2d900 UnusedSector ┆ 004B 1930L 4669 B997 0BC4 B5F0 FE1B FC18 43E4 0F8B 1938L FC27 E312 E285 004B 435E 42E4 EFBB 41E4 1940L AFBB FC1C 43E4 CFBB E61D┆
0x2d900…2d980 UnusedSector ┆ D9F2 E71D 52E4 1948L 407B E613 E716 1FE4 D07C E727 0DD8 E21C 1950L 7F5E E284 E627 0BBB 41E4 C018 20FA 7F56 1958L 3248 1AB0 9BDE┆
0x2d980…2da00 UnusedSector ┆ 1858 EA1C C6F0 18E4 B07C 1960L 17D8 7FE4 B07E 2AD8 03DF 442A 0A4C 0000 1968L 41E4 C01D 52BA FC27 63DE FC1C 43E4 CFBB 1970L 42E4┆
0x2da00…2da80 UnusedSector ┆ C01E 41E4 C01A EA1B B1F0 335C 8058 1978L 41E4 C019 12F8 3858 2869 92F0 06A4 A044 1980L 01AE 69BB 48A6 B87C 04D8 02DF 5808 0008 ┆
0x2da80…2db00 UnusedSector ┆1988L 02E4 44DE 1EBB FF87 01CA 4A58 FF19 98F2 1990L 40E4 BFBB 0A4B 4669 B997 40E4 C01B FF27 1998L 43E4 C019 FC1D B83C 15F4 5A58 ┆
0x2db00…2db80 UnusedSector ┆BA7E 0CD8 19A0L 69BB FC27 03DF 432A 0A52 0000 29DE 43E4 19A8L C027 1EBB 0D4B 03D8 BD7C 0A4B B55E 2868 19B0L 86F0 42E4 C018 608B ┆
0x2db80…2dc00 UnusedSector ┆063C BA7E 01AE 49A6 19B8L 01CE 19E4 B07E BA7C 02D8 7AC2 01D8 01AA 19C0L ED5E 1BF0 32DE E21D 42BF E285 48A6 CE5E 19C8L 01CE BBB2 ┆
0x2dc00…2dc80 UnusedSector ┆05C2 0C58 03DF 000A 01DF 0020 19D0L 0A94 0814 004C E485 47E4 C0D0 49E4 C0D2 19D8L E260 45E4 C0D0 2868 44E4 8FBB 2874 644A 19E0L ┆
0x2dc80…2dd00 UnusedSector ┆668A 1D5E 6ED8 6DD8 44E4 C018 2870 45E4 19E8L C018 46E4 C019 E2D0 47E4 C018 48E4 C019 19F0L 49E4 C01A 4AE4 C01B E412 3248 4769 0┆
0x2dd00…2dd80 UnusedSector ┆5A6 19F8L E212 40BF 42A6 EB60 EB87 8CF2 9BF0 ED18 1A00L 81F2 8DD8 2C68 81F2 E887 FE56 CBDE 4769 1A08L 00A6 EB27 EC27 75A6 EA18 8┆
0x2dd80…2de00 UnusedSector ┆1F2 42D8 0A48 1A10L 77A6 4769 78A6 0EA6 1A58 00BE 03D8 FE56 1A18L B9DE 0E58 C11A 70F3 04D8 73B3 072D D28B 1A20L 29D8 A2B2 7748 1┆
0x2de00…2de80 UnusedSector ┆BA6 7249 45A6 6DD8 ED27 1A28L EB18 85F0 71F3 03D8 EC87 11A6 2358 C11A 1A30L 47A6 19D8 EE19 E518 8DF2 71F3 0EA4 2056 1A38L 2E48 E┆
0x2de80…2df00 UnusedSector ┆E80 97F2 10F8 05D8 69BB FC18 823C 1A40L 755E 1EBB 76F3 E927 71F3 8BE4 FE56 F2DE 1A48L 1EA4 20E4 08A4 7850 FE56 84DE 44A6 E987 1A┆
0x2df00…2df80 UnusedSector ┆50L 4C58 0A48 19A6 EA27 FE56 7CDE EA18 87B0 1A58L 8D5E F227 EE27 3D48 50E4 C190 704E 8E5E 1A60L 18A4 C027 E44E 004A FE56 D4DE 04┆
0x2df80…2e000 UnusedSector ┆58 1758 1A68L E627 01AE EB4A 628B 004B 8093 01CE 03C2 1A70L F527 7248 1AA6 36D8 E827 0894 1D7E 0ED8 1A78L 02DF 3A2E 0000 AC5E 01┆
0x2e000…2e080 UnusedSector ┆4A E44E FE56 BADE 1A80L 0558 3158 30AB E583 B95E 8158 7248 6F49 1A88L 0BA6 3248 77A6 0DA6 10A6 ED87 8A58 ED27 1A90L 16DF 5542 59┆
0x2e080…2e100 UnusedSector ┆53 0000 2F6A 11A6 E81D 10E5 1A98L A006 D1F0 8F5C ED1A AEB0 7249 04E4 09E9 1AA0L E827 D65E 2D48 50E4 C190 704E 02E4 D85E 1AA8L DD┆
0x2e100…2e180 UnusedSector ┆5E A558 045F 4E55 4E4B 574F 004E 0000 1AB0L 0000 0000 0000 02E3 0000 0105 434F 0031 1AB8L 0000 0000 0000 0000 0000 0000 0000 000┆
0x2e180…2e200 UnusedSector ┆0 1AC0L 0000 0000 0000 0000 0000 0000 02D6 0137 1AC8L 0064 0000 0000 826F 0000 0000 0020 0064 1AD0L 0000 0000 0000 0000 0000 000┆
0x2e200…2e280 UnusedSector ┆0 0000 0000 1AD8L 0000 0000 0000 0000 0000 FFFF 0000 0000 1AE0L 0000 0000 0000 0000 0000 0000 02CD 0000 1AE8L 0000 0000 0000 000┆
0x2e280…2e300 UnusedSector ┆0 0000 0000 0000 0000 1AF0L 0000 0000 0000 0000 0000 0000 0000 0000 1AF8L 0000 0000 0000 0000 0000 0000 0000 0000 1B00L 0000 000┆
0x2e300…2e380 UnusedSector ┆0 0000 0000 0000 0000 0000 826F 1B08L 826F 008B 013D 01EF 02A1 02C1 0000 0000 1B10L 0000 0000 0000 0000 0000 0000 0000 0000 1B18┆
0x2e380…2e400 UnusedSector ┆L 0000 0000 0000 0000 0000 0000 0000 0000 1B20L 0000 0000 0000 0000 FFFF FFFF 0000 0000 1B28L 0000 0000 0000 0000 2D07 203E 0000┆
0x2e400…2e480 UnusedSector ┆ 0000 1B30L 0000 0000 0000 0000 0000 0000 0000 0000 1B38L 0000 0050 0000 0000 0000 0000 0000 0000 1B40L 0000 0000 0000 0000 0000┆
0x2e480…2e500 UnusedSector ┆ 0000 0000 434F 1B48L 0000 0000 0000 0000 0005 0105 0000 0000 1B50L 0000 0000 0000 0000 0000 017A 017A 0000 1B58L 0080 00AD 0000┆
0x2e500…2e580 UnusedSector ┆ 0000 0000 0000 0000 0000 1B60L 0000 0000 0000 0000 0000 0000 0000 0000 1B68L 0000 0000 0000 0000 0000 0000 0000 017A 1B70L 00B5┆
0x2e580…2e600 UnusedSector ┆ 0000 0000 0000 0000 0000 0000 01FA 1B78L 00AD 0000 0000 0000 0000 0000 0000 0000 1B80L 0000 0000 0000 0000 0000 0000 0000 0000 ┆
0x2e600…2e680 UnusedSector ┆1B88L 0000 0000 0000 0000 0000 0000 0000 0000 1B90L 0000 0000 0000 0000 0000 0000 0000 0000 1B98L 0000 0000 0000 0000 0000 0000 ┆
0x2e680…2e700 UnusedSector ┆0000 0000 1BA0L 0000 0000 0000 0000 0000 0000 0000 0000 1BA8L 0000 0000 0000 0000 0000 0000 0000 0000 1BB0L 0000 0000 0000 0000 ┆
0x2e700…2e780 UnusedSector ┆0000 0000 0000 0000 1BB8L 0000 0000 0000 0000 0000 0000 0000 0000 1BC0L 0000 0000 0000 0000 0000 0000 0000 0000 1BC8L 0000 0000 ┆
0x2e780…2e800 UnusedSector ┆0000 0000 0000 0000 0000 0000 1BD0L 0000 0000 0000 0000 0000 0000 0000 0000 1BD8L 0000 0000 0000 0000 0000 0000 0000 0000 1BE0L ┆
0x2e800…2e880 UnusedSector ┆0000 0000 0000 0000 0000 0000 0000 0000 1BE8L 0000 0000 0000 0000 0000 0000 0000 0000 1BF0L 0000 0000 0000 0000 0000 0000 0000 0┆
0x2e880…2e900 UnusedSector ┆000 1BF8L 0000 434F 0000 0000 0000 0000 0007 0105 1C00L 0000 0000 0000 0000 0000 0000 0000 02DE 1C08L 02DE 0080 0080 015F 0000 0┆
0x2e900…2e980 UnusedSector ┆000 0000 0000 1C10L 0000 0000 0000 0000 0000 0000 0000 0000 1C18L 0000 0000 0000 0000 0000 0000 0000 0000 1C20L 0000 02DE 0167 0┆
0x2e980…2ea00 UnusedSector ┆000 0000 0000 0000 0000 1C28L 0000 035E 015F 0000 0000 0000 0000 0000 1C30L 0000 0000 0000 0000 0000 0000 0000 0000 1C38L 0000 0┆
0x2ea00…2ea80 UnusedSector ┆000 0000 0000 0000 0000 0000 0000 1C40L 0000 0000 0000 0000 0000 0000 0000 0000 1C48L 0000 0000 0000 0000 0000 0000 0000 0000 1C┆
0x2ea80…2eb00 UnusedSector ┆50L 0000 0000 0000 0000 0000 0000 0000 0000 1C58L 0000 0000 0000 0000 0000 0000 0000 0000 1C60L 0000 0000 0000 0000 0000 0000 00┆
0x2eb00…2eb80 UnusedSector ┆00 0000 1C68L 0000 0000 0000 0000 0000 0000 0000 0000 1C70L 0000 0000 0000 0000 0000 0000 0000 0000 1C78L 0000 0000 0000 0000 00┆
0x2eb80…2ec00 UnusedSector ┆00 0000 0000 0000 1C80L 0000 0000 0000 0000 0000 0000 0000 0000 1C88L 0000 0000 0000 0000 0000 0000 0000 0000 1C90L 0000 0000 00┆
0x2ec00…2ec80 UnusedSector ┆00 0000 0000 0000 0000 0000 1C98L 0000 0000 0000 0000 0000 0000 0000 0000 1CA0L 0000 0000 0000 0000 0000 0000 0000 0000 1CA8L 00┆
0x2ec80…2ed00 UnusedSector ┆00 0000 0000 0000 0000 0000 0000 0000 1CB0L 0000 0000 0000 0000 0000 0000 0000 0000 1CB8L 0000 0221 0221 0000 0040 0211 0000 000┆
0x2ed00…2ed80 UnusedSector ┆0 1CC0L 0000 0000 0000 0000 0000 0000 0000 0000 1CC8L 0000 0000 0000 0000 0000 0000 0000 0000 1CD0L 0000 0000 0000 0221 0219 000┆
0x2ed80…2ee00 UnusedSector ┆0 0000 0000 1CD8L 0000 0000 0000 0261 0211 0000 0000 0000 1CE0L 0000 0000 0000 0000 0000 0000 0000 0000 1CE8L 0000 0000 0000 000┆
0x2ee00…2ee80 UnusedSector ┆0 0000 0000 0000 0000 1CF0L 0000 0000 0000 0000 0000 0000 0000 0000 1CF8L 0000 0000 0000 0000 0000 0000 0000 0000 1D00L 0000 000┆
0x2ee80…2ef00 UnusedSector ┆0 0000 0000 0000 0000 0000 0000 1D08L 0000 0000 0000 0000 0000 0000 0000 0000 1D10L 0000 0000 0000 0000 0000 0000 0000 0000 1D18┆
0x2ef00…2ef80 UnusedSector ┆L 0000 0000 0000 0000 0000 0000 0000 0000 1D20L 0000 0000 0000 0000 0000 0000 0000 0000 1D28L 0000 0000 0000 0000 0000 0000 0000┆
0x2ef80…2f000 UnusedSector ┆ 0000 1D30L 0000 0000 0000 0000 0000 0000 0000 0000 1D38L 0000 0000 0000 0000 0000 0000 0000 0000 1D40L 0000 0000 0000 0000 0000┆
0x2f000…2f080 UnusedSector ┆ 0000 0000 0000 1D48L 0000 0000 0000 0000 0000 0000 0000 0000 1D50L 0000 0000 0000 0000 0000 0000 0000 0000 1D58L 0000 0000 0000┆
0x2f080…2f100 UnusedSector ┆ 0000 0000 0000 0000 0000 1D60L 0000 0000 0000 0000 0000 0000 0000 0000 1D68L 0000 0000 0000 0000 0000 0000 0000 0000 1D70L 0000┆
0x2f100…2f180 UnusedSector ┆ 0000 0000 0000 0000 0000 0000 0000 1D78L 0000 0000 0000 0000 0000 0000 0000 0000 1D80L 0000 0000 0000 0000 0000 0000 0000 0000 ┆
0x2f180…2f200 UnusedSector ┆1D88L 0000 0000 0000 0000 0000 0000 0000 0000 1D90L 0000 0000 SC 000 1D68L 0000 0000 0000 0000 0000 0000 0000 0000 1D70L 0000┆
0x2f200…2f280 UnusedSector ┆ \ \ @ L \ T L ┆
0x2f280…2f300 UnusedSector 0x00[128]
0x2f300…2f380 UnusedSector ┆ lN READY FOR BACKUP OF DRIVE 0 TO DRIVE 1 ? (Y OR N) ZK ^ YlM a >> aX Y Y~ X)I J QJ H QLfJ M\TA HWIRMRPQK ' ┆
0x2f380…2f400 UnusedSector ┆ lN READ ERROR IN BLOCK Z CK# ] Y Lf PSK lN WRITE ERROR IN BLOCK Z CK# d ] YLf C -X>lN END OF B┆
0x2f400…2f480 UnusedSector ┆ ░!S ░ \C)C / V v ░!Y I X ░ ]CDC / V v ░!m I l ░ 0C ░ _Cj SC┆
0x2f480…2f500 UnusedSector ┆ ░ 6 ░C ░ ░ ░ 8 ░ ░! ░ C ░ C ░! J ░# ░B░! J ░# ░ C ░B┆
0x2f500…2f580 UnusedSector ┆░! J ░# ░ C ░B░! J ░# ░ C ░B░! J ░# ░ C ░B░! J ░# ░ C ░B░! J ░# ░ ┆
0x2f580…2f600 UnusedSector ┆ C ░B░! J ░# ░ C ░B░! J ░# ░ C ░B░! J ░# ░ C ░B░! ░! ░ "C G J ░# ┆
0x2f600…2f680 UnusedSector 0x00[128]
[…0x2…]
0x2f780…2f800 UnusedSector ┆ p( ┆
0x2f800…2f880 UnusedSector ┆ OC T)T) T) ) ┆
0x2f880…2f900 UnusedSector 0x00[128]
[…0x1…]
0x2f980…2fa00 UnusedSector ┆ ' ┆
0x2fa00…2fa80 UnusedSector ┆ACKUP READY FOR RESTART BY A NEW ATTENTION Z ] YX V v ░!c I _ i V h I V h ░ > ? A░ j E 6 8v ┆
0x2fa80…2fb00 UnusedSector ┆░ E. E+ E ░! ░! ░ E+ ░ E/ ░ j E j E / ░ E E E+ ░! ┆
0x2fb00…2fb80 UnusedSector ┆ V ░ E E+ ░ FCFC E ░ FC ░ FC ░ E E ░ ░ j E E j E / / E E + >┆
0x2fb80…2fc00 UnusedSector ┆ 7 h- thF a F 6 D R V D @ ' A @ | K < L ┆
0x2fc00…2fc80 UnusedSector ┆ $L < @ i Nn E e \ ^U X | | K iF C ' K ^C B A C┆
0x2fc80…2fd00 UnusedSector ┆ R{@ | ' ^ ' A V H2 X | ~ * *DL A R' c C B A \3X A X8i( D i H┆
0x2fd00…2fd80 UnusedSector ┆| X D ░ XJ ░ @ K iF @ '░ C < XZ~ i' *CR ) C' K | K ^ h( B `< ~ I ~ | z ^ 2┆
0x2fd80…2fe00 UnusedSector ┆ B H^ X L G I ` E h( D t(Jd f^ n m D p( E F G H I J H2iG @ B` h,┆
0x2fe00…2fe80 UnusedSector ┆ V iG ' ' u BH wiG x X V X p s- ) Hw Ir E m' q X# G q V H. i < ^u v┆
0x2fe80…2ff00 UnusedSector ┆' q V PxV D XLH ' V | ^ ' ' H= P Np^ ' N J V X X ' J bK ' Hr 6' ~ .: ^ J N V X X1 0┆
0x2ff00…2ff80 UnusedSector ┆ ^ X HrIo H2 w X ' BUSY j/ \ Ir ' ^ H- P Np ^ ^ X _ UNKNOWN OC1 ┆
0x2ff80…30000 UnusedSector ┆ 7 d o d ░░ ┆
0x30000…30080 UnusedSector ┆ o o = ░░░░ -> P ┆
0x30080…30100 UnusedSector ┆ OC z z z ┆
0x30100…30180 UnusedSector 0x00[128]
0x30180…30200 UnusedSector ┆ OC ┆
0x30200…30280 UnusedSector ┆ _ g ^ _ ┆
0x30280…30300 UnusedSector 0x00[128]
0x30300…30380 UnusedSector ┆ ! ! @ ┆
0x30380…30400 UnusedSector ┆ ! a ┆
0x30400…30480 UnusedSector 0x00[128]
[…0x2…]
0x30580…30600 UnusedSector ┆ V V V V ░ I ░5 ░ E ░ E ░ E E E ░ $C $C ░ ┆
0x30600…30680 UnusedSector ┆&C E ░ y &C y &C $C E ░ E ░ E E ░ &C+C y ░ &C V ░ y &C ┆
0x30680…30700 UnusedSector ┆ ░! ░ E E V ░ E E $C ░ E V ░ E V ░ E V ░ E ░ E E ░ ┆
0x30700…30780 UnusedSector ┆ E E V ░ $C E ░ E E ░ &C E ░ E E ░ y &C y &C E E V ░ %CI V ┆
0x30780…30800 UnusedSector ┆░ ECI ░ %CH ░ &C V V V ░ o %C / %C , V ░ %C%C ░ E ░ &C ░ o %C┆
0x30800…30880 UnusedSector ┆IN NAME, JMP G4 ; ERROR: GOTO BREAK); CLR WAHEAD.X7 ; 0 =>AHEAD.WORK; ADDC -1 R6 ; DECR(ADDR); MOVC USER*2+NAMEBYTES+1R2 ; R┆
0x30880…30900 UnusedSector ┆E.USER+NAMEBYTES+1 SUB R6 R2 ; -ADDR =>COUNT; MOVC 0 R3 ; 0 =>CHAR; L6: ; INSERT ZERO: MOVB R3 BYTE. X6 ; CHAR =>BYTE.ADDR; ┆
0x30900…30980 UnusedSector ┆ADDC 1 R6 ; INCR(ADDR); SOB R2 L6 ; IF DECR(COUNT)<>0 THEN ; GOTO INSERT ZERO; CLR WIDENT.X7 ; 0 =>IDENT.WORK; MOVC USER R0 ┆
0x30980…30a00 UnusedSector ┆; MON SEARCHPROCESS ; SEARCH PROCESS(USER, JMP L9 ; NOT FOUND: GOTO UNKNOWN); CLR WANY. X7 ; FALSE =>ANY.WORK; MOD CBASE-C ;┆
0x30a00…30a80 UnusedSector ┆ INE R1 ITEM ; IF PROC<>ITEM.BASE.CUR THEN JMP L18 ; GOTO ATTENTION; JMP S6 A6 ; RE. <:.:<0>:> ; ".:" =>ADDR; A6: JMP S5 P51┆
0x30a80…30b00 UnusedSector ┆ ; TYPE PROG TEXT(ADDR); L61: ; IN MODE: MOVC 1 R2 ; 1 =>COUNT; MOVC USER*2 R6 ; RE.USER =>ADDR; JMP S5 P30 ; TYPE IN(COUNT,C┆
0x30b00…30b80 UnusedSector ┆HAR,ADDR, JMP L61 ; TIMEOUT: GOTO IN MODE, JMP G4 ; ERROR: GOTO BREAK); ADDC -<:0:> R3 ; CHAR-"0" MOV R3 WMODE. X7 ; =>MODE.┆
0x30b80…30c00 UnusedSector ┆WORK; JMP S5 P53 ; TYPE NL; JMP L10 ; GOTO READY; L18: MOVC USER R0 ; ATTENTION: MOVC ATTMESS R1 ; ATTMESS =>MESS; MON SENDM┆
0x30c00…30c80 UnusedSector ┆ESSAGE ; SEND MESSAGE(USER,MESS,EVENT); MOVC 50 R0 ; MON SETDELAY ; SET DELAY(50); MON WAITANSWER ; WAIT ANSWER(EVENT, MON R┆
0x30c80…30d00 UnusedSector ┆EGRETMESSAGE ; TIMEOUT: REGRET MESS(EVENT)); MOV R7 WBUSY. X7 ; TRUE =>BUSY.WORK; JMP L10 ; GOTO READY; L171: ; BUSY: CLR WBU┆
0x30d00…30d80 UnusedSector ┆SY. X7 ; FALSE =>BUSY.WORK; JMP S6 L20 ; RE."BUSY" =>ADDR; <:BUSY<0>:> ; GOTO TYPE OWN TEXT; L16: ; NOT USER: MOV EVENTSTATUS┆
0x30d80…30e00 UnusedSector ┆-C R2 ; EVENT STATUS.CUR =>STATE; MON RESUMEEVENT ; RESUME EVENT; MOV WANY. X7 R5 ; ILO R2 #100 ; IF PRIORITY.STATE=0 THEN J┆
0x30e00…30e80 UnusedSector ┆OZ R5 L12 ; IF NOT ANY.WORK THEN ; GOTO NEXT EVENT; MOV WBUSY. X7 R2 ; IF BUSY.WORK THEN JON R2 L171 ; GOTO BUSY; MOVC USER ┆
0x30e80…30f00 UnusedSector ┆R1 ; MODC IDLENGTH ; IDLENGTH =>LENGTH; MOVM X0 X1 ; MOVEMULT(LENGTH,SEND,USER); CLR WANY. X7 ; FALSE =>ANY.WORK; JMP S5 P53┆
0x30f00…30f80 UnusedSector ┆ ; TYPE NL; JMP S6 L20 ; RE.<:=>:>=>ADDR; <:<7>-> <0>:> ; L20: ; TYPE OWN TEXT: JMP S5 P51 ; TYPE PROG TEXT(ADDR); JMP S5 P5┆
0x30f80…31000 UnusedSector ┆3 ; TYPE NL; JMP L10 ; GOTO READY; L9: ; UNKNOWN: JMP S6 L20 ; RE."UNKNOWN" =>ADDR; <:UNKNOWN<0>:> ; GOTO TYPE OWN TEXT; USE┆
0x31000…31080 UnusedSector ┆ BASE XNAME0= <:OC:> XKIND= KINDOC OR BMBYTE OR BMDISP XPRPC= L0 XDEVPR= DEV<2+PR XREFS= 8 XBUFS= 1 NOLIST $S8MXPX2 LIST END ;┆
0x31080…31100 UnusedSector ┆ END OF MODULE: DOC; # TO TYPE OWN TEXT; USE┆
0x31100…31180 UnusedSector ┆░ 8 g ░ ░! ░ + V g░ 0 ░ ░ 0 ░ LF 6K ░Cn ░ ░ n o K ░ J 8 m ░ ░! ░ + V m░ FF ┆
0x31180…31200 UnusedSector ┆░ GF ░ HF ░B░!w J ░# s ░ CF ░ DF ░ EF ░ LF 6K ░C ░ ░ K ░ 8% ░ 8 ░!> ░ + V ░ 0 ┆
0x31200…31280 UnusedSector ┆ ░ ░ 0 ░ LF 6K ░C ░ ░ K ░ J 8S ░ d ░!j ░ + V ░ FF ░ GF ░ HF ░B░ j RC MF ┆
0x31280…31300 UnusedSector ┆░ NF J ░# ░ CF ░ DF ░ EF ░ FF ░ GF ░ HF ░B░! J ░# ░ CF ░ DF ░ EF ░ FF ░ GF ░ ┆
0x31300…31380 UnusedSector ┆HF ░B░ GF ░ "C"C & ░ MF ░ MF V O░ bC ░ BC9C ░ j UC j UC ┆
0x31380…31400 UnusedSector ┆ ░ GFGFd ░ GF # ░ IC H ░ 0C t ░ EF t ░ DF H V ░ ░ GF' C ░ KF 6K 8) ░ !C !C ░!? ░!C V ┆
0x31400…31480 UnusedSector ┆░ V I ░ KF ta░ MF T ░ WC ░!W ░ XC ha ░ j KF j KF j KF > @E A V v ░!| I w ┆
0x31480…31500 UnusedSector ┆I V h i V h i V h I V h > ? ? AV `░ F [C ░ #C H ░ F H ░ F t ░ H[,Y H ░ ( H ░ \C H ┆
0x31500…31580 UnusedSector ┆░ V ░ ░ F F F# ░ F F ░ F F ░ >C>C ░ bC ░ =C ░ =C=C ░ "C J ┆
0x31580…31600 UnusedSector ┆░# ░ F ░ F ░ F ░ F ░B > @ @ A V v ░!P V v ░!7 I 5 I V h >┆
0x31600…31680 UnusedSector ┆ A░ &C F ░ !C > A I ( ░ F,C ░ F F ░ F ░ k V ░ ░ !C ░! ░ F ░! ░ F ░! ░ F┆
0x31680…31700 UnusedSector ┆ ░! ░ F ░! ░ F ░! ░ F ░! ░ F ░! ░ F&C ░! ░ ^C ░ F ░! ░ F ░! ░ F ┆
0x31700…31780 UnusedSector ┆ ░! ░ F ░! ░ F ░! ░ ^C ░ F ░! ░ F ░! ░ F ░! ░ F ░! p w ~ ┆
0x31780…31800 UnusedSector ┆ I ░5 ░ F~ F ░! V V V ░ H _ ░! V V V ░ H _ ░! ░ H V ░! ░ H V ┆
0x31800…31880 UnusedSector ┆░! ░ H V ░! ░ H V ░! ░ H V ░! V V V ░ H V ░! ░ H V ░! V V V V V V ┆
0x31880…31900 UnusedSector ┆ V V V " $ & ( 0 9 B K T ] _ a c l u w y { } I ░5 ░ F ░ F ░ t F t F ░ "C ┆
0x31900…31980 UnusedSector ┆ B J ░# ░BJ ░# ░ 6 ░C ░ ░ ░ F 8 ░ ░! ░ t F V ░BJ ░# ░B░ ,C 6 ░C ░ ┆
0x31980…31a00 UnusedSector ┆ ░ ░ F 8 ░ ░!8 J ░# ░ t F ░ t F ░ t F ░BV ░ F B J ░# ┆
0x31a00…31a80 UnusedSector ┆ ░B░ F t F P V ░ Ft F ░ F F ░ Ft F ░ &Ct F ░ F F ░ &C ░! ░ &C F ┆
0x31a80…31b00 UnusedSector ┆░ -C F ░ -C ░ !C ░! ░ -C ░ !C ░! ░ F ░ !C ░! ░ !C V ░ H V s░! ┆
0x31b00…31b80 UnusedSector ┆░ ^C ░ t F F F ░! ░ t F F F F F ░! ░ t F F F ░! ░ F F ░ t F ┆
0x31b80…31c00 UnusedSector ┆ ░░ F ░! ░ t F ta░ F F ' ░ ░░ ░!* ░ ha ░! ░ t F ta░ F F H ┆
0x31c00…31c80 UnusedSector ┆░ ░░ ░!K ░ ha ░! ░ t F ta░ F F F F F F } ░ ░░ ░! ░ ┆
0x31c80…31d00 UnusedSector ┆ha ░! ░ t F ta░ F F F F F F ░ ░░ ░! ░ ha ░! ░ t F ta░ ┆
0x31d00…31d80 UnusedSector ┆ F F F F F F ░ ░░ ░! ░ ha ░! ░ t F ta░ F F F ┆
0x31d80…31e00 UnusedSector ┆ F F F ░ ░░ ░! ░ ha ░! V ░ F @ ░ F F F ┆
0x31e00…31e80 UnusedSector ┆░ F F b ░ F F F V V V ░ F v V ░ F F ┆
0x31e80…31f00 UnusedSector ┆V ░! ░ F V ░ F F V ░! x . O # % d f h I ░5 V ░ t F F F ┆
0x31f00…31f80 UnusedSector ┆ ░ F F ░ F t F ░ F ░ F F V ░ &C F F ┆
0x31f80…32000 UnusedSector ┆ ░ &C &C░ !░ F ░ t F t F &C ░ &C F F ░ &C &C░ ?!░ F ░ ┆
0x32000…32080 UnusedSector ┆t F t F &C V ░ F `!░ F ░ F u!░ F F ░! !░ F F F ┆
0x32080…32100 UnusedSector ┆ ░ F F !░ F ░ &C F F ░ &C &C░ !░ F ░ ┆
0x32100…32180 UnusedSector ┆ F F F ░ &C &C░ !░ F ░ t F F F &C F ░ F F ┆
0x32180…32200 UnusedSector ┆ F ░ F F F ░ F F F ░ F F ░ ="░ F V ░ ┆
0x32200…32280 UnusedSector ┆ F P"░ F ░ F g"░ F ░ t F V ░ F F F ░ F ┆
0x32280…32300 UnusedSector ┆ F "░ F ░ F "░ H V ░ &C F ░ &C F "░ F ░ &C&C F ┆
0x32300…32380 UnusedSector ┆ ░ F F ░ F F "░ F ░ F F F ░ F #░ F F ░░ ┆
0x32380…32400 UnusedSector ┆ ░! #░ F F ░ t F F F &C F V ░ F ░ F F ?#░ H V ░ ┆
0x32400…32480 UnusedSector ┆ F F ░ t F j )C V ░ F V ░ F F ░ t F ░ F ░ F F #┆
0x32480…32500 UnusedSector ┆░ H V ░ F F ░ t F F V ░ F #V ░ t F #V ░ F F V ░ F V ░ .C)C)C !C ┆
0x32500…32580 UnusedSector ┆ ░ F V ░ F)C V ░ ░ .C)C)C !C ░ F F,C !C \$░ j F ' ┆
0x32580…32600 UnusedSector ┆ U$░ )C ░ j ░ j j j F # # $ ░ #C H ░ 1C H ░ 2C t ░ ej U H ░ ┆
0x32600…32680 UnusedSector ┆ H ░ F / H ░ " V ░ V ░ H V ░ )C F ░ -C ░ !C ░ "C $J ░# ░ !C ░ &C ░ ┆
0x32680…32700 UnusedSector ┆-C ░ -C ░B V v$░! $% I $ $i V h% > ? AV ░ ░ dC3C!C ░ dC $░ .C)C)C !C ┆
0x32700…32780 UnusedSector ┆ ░ !C ░ )C ░ j V AV ░ !C %░ #C H ░ 1C H ░ 2C t ░ 0|Gs H ┆
0x32780…32800 UnusedSector ┆ ░ k &C H ░ \C H ░ $ V ░ ░ !C =%░ #C H ░ 1C H ░ 2C t ░ 0 [ U H ░ H ░ \C H ░ $ V ░ ░ %G&C┆
0x32800…32880 UnusedSector ┆ > @% A V v&░!O%' ( ) I & K%I V h' i V h( > ? A░ (G V ░ ░ !C &C %░ .C)C)C !C ┆
0x32880…32900 UnusedSector ┆ ░ t _ ░ (G V ,░ (G t V ░ (G(G V ░ ░ (G'G %░ !C %░ &C %V *V B░ !C &C %┆
0x32900…32980 UnusedSector ┆░ #C H ░ 1C H ░ 2C t ░ 0|Gs H ░ H ░ \C H ░ $ V ░ ░ (G %V ,V ░ ░ .C)C)C !C ┆
0x32980…32a00 UnusedSector ┆░ !C &░ )C ░ j 0 0 / ░ &Cj (G ░ !C V V ░ !C c&░ #C H ┆
0x32a00…32a80 UnusedSector ┆ ░ 1C H ░ 2C t ░ 0|Gs H ░ k &C H ░ \C H ░ $ V ░ ░ !C &░ #C H ░ 1C H ░ 2C t ░ 0 [ U H ░ ┆
0x32a80…32b00 UnusedSector ┆ H ░ \C H ░ $ V ░ ░ (G &C ░ (G 6) ░C/ ░ ░ / 0 ) ░ 'G 8 &. ░ &░! &░ )G V . > @( A V ┆
0x32b00…32b80 UnusedSector ┆v4░! (5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M V v~░! & I ~ &I V h I V h > A░ G G G G ░! (░ BG┆
0x32b80…32c00 UnusedSector ┆ '░ BG ' V ░! (░ BGBG ░! (░ HG ░! (░ BG C'░ BG ┆
0x32c00…32c80 UnusedSector ┆C' V ░! (░ BG BG ░! (░ HG ░! (░ BG f' V ░! (░ BGBG ░! (░ HG ░! (░ HG ' ┆
0x32c80…32d00 UnusedSector ┆V ░! (░ BGBG7G ░ BG '░ BGBG ░ bC '░ BG '░ BG=C '░ =CBG ░ 6G 6G ┆
0x32d00…32d80 UnusedSector ┆ BG ░ BGBG ░! (░ HG ░! (░ HG ' V ░! (░ BG BG ░! (░ HG ░! (░ GBG7G ░ G ┆
0x32d80…32e00 UnusedSector ┆ (░ G G ░ G GG ( V ░! (░ BGBG7G ░ DGDGBG ░ BGBG ░! (░ HG ┆
0x32e00…32e80 UnusedSector ┆ ░! (░ G BG7G ░ G _(░ G G ░ G GG q( V ░! (░ BG BG7G ┆
0x32e80…32f00 UnusedSector ┆ ░ DGDGBG ░ BGBG ░! (░ HG ░! ( & ' '%'E'T'['h'r'y' ' ' ' ' ' ' (=(D(s( (I ░5 ( > A I 4 &I V h5 i ┆
0x32f00…32f80 UnusedSector ┆V h6 i V h7 I V h8 I V h9 i V h: i V h; i V h< > ? ? ? ? ? A░ AG ░ KG ░ CG @B ░ "C ┆
0x32f80…33000 UnusedSector ┆ `)J ░# ░ j 5G # $ ░B░ 6= ░C ░ ░ = ░ /C 8 ) ░ +)░!`)J ░# ░ =G ░ =G ┆
0x33000…33080 UnusedSector ┆ ░ =G ░ =G ░ =G ░BV ░ 5GQC q)░ ░ @G5Gj 5G + ░ =G5G┆
0x33080…33100 UnusedSector ┆ ░ EG:G ░ MG ░ >G ░ ?G=G ░ AG )░ IG @B ░ =G=G ░ =G@G )░ AG )░ ?GAG V X┆
0x33100…33180 UnusedSector ┆░ KG )░ KG V NV |░ j =G + )░ EG )V T░ EG )░ j =G + )V T░ j =G # 6F 9 ) *░ j =G┆
0x33180…33200 UnusedSector ┆ 6F 99- *░ FG 7-░ GG >G ░ >G/C #*V T░ HGGG ░ BG >G ░ KG Y*░ FG ┆
0x33200…33280 UnusedSector ┆ Y*░ GG Y*░ FG GG Y*V T░ FG s*░ FG H ░ H V lV T░ FG GG ┆
0x33280…33300 UnusedSector ┆ *V T░ KG *░ <Gj =G $ *V T░ j =G * &+░ FG &+░ BGBG7G =G ?G ░ BG *░ BGBG ┆
0x33300…33380 UnusedSector ┆ ░ HG ta░ BG *░ ░!$+░ BG *░ ░!$+░ BG *░ ░!$+░ BG *░ ░!$+░ BG ┆
0x33380…33400 UnusedSector ┆░ BG +░ ░!$+░ BG ░ !+░ ░!$+░ ha ░ DG FG HG ░ j =G * ┆
0x33400…33480 UnusedSector ┆`+░ DG `+░ BG ta░ BG Y+░ ░░ ░!^+░ BG ha ░ FG DG +░ BG BG +░ BG ░ ┆
0x33480…33500 UnusedSector ┆DG ░!?,V VV V░ BG ░ +V V░ DG ░!B,░ BG ░ +V V░ DG ░!B,░ DG ░!B,░ DG ░!B,░ DG ░!┆
0x33500…33580 UnusedSector ┆B,░ DG ta░ BG BG +░ ░! +░ ha ░!B,░ DG ta░ BG BG 0 BG +░ ░! ,░ ┆
0x33580…33600 UnusedSector ┆ ha ░!B,░ DG ta░ BG BG ,░ ░!!,░ ha ░!B,░ DG ░!B,░ DG ░!B, + + + + + + + + + ,%,,,I ┆
0x33600…33680 UnusedSector ┆░53,░ iC H,V T░ EG FG bC X,V T░ EG d,░ DG d,V T░ EG m,░ EG ░ IG=G?G DG ,░ AG?G ░ IG=G?G┆
0x33680…33700 UnusedSector ┆ DG ░ MG V V░ ░ "C ,J ░# ░ =G ░ >G ░ ?G ░ @G ░ AG ░ BG ░ FG ░ ┆
0x33700…33780 UnusedSector ┆GG ░ HG ░ DG ░B░ AG?G ,░ AG ░ j =G + ,░ =G=G X ░ CG=G?G ,░ CG=G?G V P░ "C ┆
0x33780…33800 UnusedSector ┆ 0-J ░# ░ =G ░ >G ░ ?G ░ @G ░ AG ░ BG ░ FG ░ GG ░ HG ░ DG ░B░ >G>G V ░ EG8C EG ┆
0x33800…33880 UnusedSector ┆ j =G ( ░ j =G + X-V R░ >G/C m-░ AG?G k-░ AG V P░ MG s-V P░ IG=G?G -░ ?GAG ┆
0x33880…33900 UnusedSector ┆░ CG=G?G bCiC -V XV ░ 8G H ░ 9G H ░ 7G t ░ 0 \f H ░ H ░ ]C H ░ z V ░ ░ IC H ░ 6G t ░ ┆
0x33900…33980 UnusedSector ┆7G t ░ 9G H V ░ ░ bC -░ >C>C V xV {░ <Gj 5G $ .░ KG .░ 8G H ░ 9G H ░ 7G t ░ p , Q H ┆
0x33980…33a00 UnusedSector ┆░ H ░ ]C H ░ " V ░ ░ >G ░ @G=G?G ░ =G=G ░ DGj =G ░ JG=C ░ j =G # 6F 9?. M.░ ┆
0x33a00…33a80 UnusedSector ┆j =G 6F 9 3 M.░ FG 3░ GG >G ░ HGGG ░ BG >G ░ FG .░ FG H ┆
0x33a80…33b00 UnusedSector ┆░ H V VV v░ j =G * 2/░ FG 2/░ BGBG7G ░ BG .░ BGBG ░ bC .░ BG ┆
0x33b00…33b80 UnusedSector ┆ .░ BG=C .░ =CBG ░ HG ta░ BG .░ ░!0/░ BG .░ ░!0/░ BG .░ ░!0/░ BG ┆
0x33b80…33c00 UnusedSector ┆ /░ ░!0/░ BG ░ BG /░ ░!0/░ BG ░ -/░ ░!0/░ ha ░ ?G FG HG ┆
0x33c00…33c80 UnusedSector ┆ ░ j =G * l/░ ?G l/░ BG ta░ BG e/░ ░░ ░!j/░ BG ha ░ ?G ░! /V vV tV \V ^V `V bV dV ┆
0x33c80…33d00 UnusedSector ┆ fV hV jV lV nq/s/u/w/y/{/}/ / / / / /I ░5 /░ BG ░ /V t░ j =G * /░ BGBG V d░ BG ░ /V t┆
0x33d00…33d80 UnusedSector ┆░ j =G * /░ BGBG ░ BG /░ BG BG BG ░ ?G?CBG V r░ FG 0░ ┆
0x33d80…33e00 UnusedSector ┆?GAC BG ░ BGBG V r░ BG ░ %0V b░ ?GAC BG V p░ BG U0░ ┆
0x33e00…33e80 UnusedSector ┆BG BG ░ ?G;CBG V r░ BG 0░ BG x0░ BG BG BG ░ ?G;CBG ┆
0x33e80…33f00 UnusedSector ┆ V rV l░ FG 0░ BG 0░ ?G:CBG ░ BGBG V r░ BG 0░ ?G;C BG ┆
0x33f00…33f80 UnusedSector ┆ ░ BGBG V r░ ?CBG BG H ░ 6G t ░ 7G t ░ 9G H V ░ ░ ?G@CBG ░ BGBG V r░ BG ┆
0x33f80…34000 UnusedSector ┆ 1V b░ BG░ BG 0 -1░ ?G:CBG0 ░ BG0 BG V r░ BG J1░ ?G:CBG ┆
0x34000…34080 UnusedSector ┆░ BGBG V r░ BG l1░ ?G;C BG ░ BGBG V r░ j =G * 1░ BG ta░ BG 1░ ┆
0x34080…34100 UnusedSector ┆ ░░ ░! 1░ BG ha V ░ 8G H ░ 9G H ░ 7G t ░ T Y e H ░ H ░ ]C H ░ " V ░ ░ ?CBG H ░ ┆
0x34100…34180 UnusedSector ┆6G t ░ 7G t ░ 9G H V ░ ░ FG 1░ ?G@CBG ░ BGBG V r░ ?G@CBG ░ BG ░ LG:G ░ ?G ┆
0x34180…34200 UnusedSector ┆ @2V M░ 8G H ░ 9G H ░ 7G t ░ T Y e H ░ H ░ ]C H ░ " V ░ ░ ?G H ░ 6G t ░ 7G t ░ 9G H V ░ ┆
0x34200…34280 UnusedSector ┆░ JG k2░ 8G H ░ 9G H ░ 7G t ░ p X H ░ 6 H ░ JG H ░ " V ░ V v░ BG BG ░ HGFG ░ ┆
0x34280…34300 UnusedSector ┆?GFG ░ HG 2░ ?G H ░ H V D░ HG 2░ AG HG ░ DGDGBGAG AG AG ░ ?G FG ┆
0x34300…34380 UnusedSector ┆ 3░ ?G 2░ GGGG` ░ AG ?G ░ DGDGGGAG AG AG ░ ?G 3░ DGDGGGAG ┆
0x34380…34400 UnusedSector ┆░ >G>G V ░ DG H ░ 6G t ░ 7G t ░ 9G H V ░ ░ bC (3░ >C>C ░ LG:Gj =G + 3V ░ 8G H ░ 9G H ┆
0x34400…34480 UnusedSector ┆ ░ 7G t ░ %6 i H ░ H ░ ]C H ░ " V ░ ░ AG ;G ░ AG q3░ :G ░!v3░ :G ░ ;G AG :G ┆
0x34480…34500 UnusedSector ┆ ░ LG ░ :G ░ :G8C :G j =G ( ░ :G 3░ ;G6G V ░ <G 3░ j =G $ 3░ 8G H ┆
0x34500…34580 UnusedSector ┆ ░ 9G H ░ 7G t ░ ej e H ░ , H ░ ]C H ░ " V ░ ░ <Gj =G & ░ j =G + 3V Z░ CG=G@G P4V T┆
0x34580…34600 UnusedSector ┆░ 8G H ░ 9G H ░ 7G t ░ ] \f H ░ H ░ ]C H ░ " V ░ ░ JG P4░ 8G H ░ 9G H ░ 7G t ░ p V X H ┆
0x34600…34680 UnusedSector ┆ ░ H ░ JG H ░ x V ░ > @< @; @: @7 @6 A V v ░!e4 I a4I V h I V h ░ > A░ G G ░ G t ░ ┆
0x34680…34700 UnusedSector ┆/C H ░ V ░ j G 0C G /C + / ░ j G 2C 1C# 9C% iC& ┆
0x34700…34780 UnusedSector ┆░ j G #C ░ 6 ░C ░ ░ ░ /C 8 4 ░ 4░!%5░ j G C C ░ C #5░ j G ┆
0x34780…34800 UnusedSector ┆ j G j G ░ j G j G G V ░ j G j G JC) /C/ BC+ ┆
0x34800…34880 UnusedSector ┆ ░ G * H ░ 0C t ░ 2C t ░ 1C H V ░ > A V v ░!n5 I a5I V h I V h I V h > A┆
0x34880…34900 UnusedSector ┆░ G ta░ j G / 5░ j G ░! 5░ ha V V░ j G ' 5░ j G / (C 5░ aC 5░ ┆
0x34900…34980 UnusedSector ┆#C H ░ 1C H ░ G t ░ eZ w H ░ H ░ \C H ░ V ░ ░ j G j G G/ ░ j G j G G ┆
0x34980…34a00 UnusedSector ┆ G+ + ░ G 6V ░ -Cj G ░ &Cj G ░ G ta░ -C ;6░ ░!h6░ -C ┆
0x34a00…34a80 UnusedSector ┆ I6░ ░!h6░ -C W6░ ░!h6░ -C e6░ ░!h6░ ha V ░ G 6░ #C H ░ 1C H ░ G t ┆
0x34a80…34b00 UnusedSector ┆░ p , Q H ░ H ░ \C H ░ " V ░ ░ G ta░ &C 6░ ░! 6░ &C 6░ ░! 6░ &C 6░ ┆
0x34b00…34b80 UnusedSector ┆░! 6░ &C 6░ ░! 6░ &C ░ &C 6░ ░! 6░ &C ░ 6░ ░! 6░ ha ░ G ┆
0x34b80…34c00 UnusedSector ┆y8░ Gj G ░ /Cj G / ░ "C {7J ░# ░ #C ░ j G # $ ░ j G ░ j j G ┆
0x34c00…34c80 UnusedSector ┆ # $ ░ G ░ G ░ /C ░ 6 ░C ░ ░ ░ /C 8[7 ░ n7░!z7░ j G G V ░B░ bC ┆
0x34c80…34d00 UnusedSector ┆░ 6 ░C ░ ░ ░ /C 8 7 ░ 7░! 7░ G j G G ░ G 7░ G G 7░ G┆
0x34d00…34d80 UnusedSector ┆ G G G j G ░! 7░ bC V ░ bC s8░ bC ░ iCj G & ░ Gj G ┆
0x34d80…34e00 UnusedSector ┆ ░ Gj G ░ Gj G % ░ Gj G ) ░ Gj G + ░ j G H ░ G t ┆
0x34e00…34e80 UnusedSector ┆░ G t ░ j G H ░ j G # H ░ G t ░ G t ░ G t V X░ G H ░ H V ░ ░ G G Y~ > A ░ ░:┆
0x34e80…34f00 UnusedSector ┆ ░ [C ░;V p I ░!O9 ┆
0x34f00…34f80 UnusedSector ┆ ┆
[…0x1…]
0x35000…35080 UnusedSector ┆ V8I V q ░! : ┆
0x35080…35100 UnusedSector ┆ ┆
[…0x1…]
0x35180…35200 UnusedSector ┆ V9IWV q ░! :0 1 2 3 4 5 6 7 8 9 # ┆
0x35200…35280 UnusedSector ┆@ ? : > ' + A B C D E F G H I . [ & ( < _ \ ┆
0x35280…35300 UnusedSector ┆ J K L M N O P Q R $ * - ) ; ^ / S T U V ┆
0x35300…35380 UnusedSector ┆ W X Y Z , % ! = ] " V:I V q ░!g<0 ┆
0x35380…35400 UnusedSector ┆ ┆
0x35400…35480 UnusedSector ┆ 0 < ? * ; - + : , 1 ┆
0x35480…35500 UnusedSector ┆ . = ┆
0x35500…35580 UnusedSector ┆ ! " # $ % & ' ( ) 2 3 4 5 6 7 8 9 > ┆
0x35580…35600 UnusedSector ┆ / ┆
0x35600…35680 UnusedSector ┆ V:I V q ░! < ┆
0x35680…35700 UnusedSector ┆ V<IoV q ░! < ┆
0x35700…35780 UnusedSector ┆ V<I V q ░!'= ┆
0x35780…35800 UnusedSector ┆ V<I V q~░!D= j i h e ' ┆
0x35800…35880 UnusedSector ┆ V=I/V q ░!|= ░░░ ░░ ░ ░░░░ ░ ░░ ░░ ░ ░░ ░ ░░ ░ ░░░ ░░░ ░░░ ░░ ░░ ░░ ░░ ░░ ░░ V=IL┆
0x35880…35900 UnusedSector ┆V q ░! = V=I V q ░! =b b s s s b s s s s sn┆
0x35900…35980 UnusedSector ┆ sj s s V=I V q ░! =0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 V=┆
0x35980…35a00 UnusedSector ┆I V q ░!#>0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 V>I V q ░! c8 @ @ @ @ @ @┆
0x35a00…35a80 UnusedSector ┆ @ @ @ @ @ $ R @ @ @ @ @ @ @ @ @ ┆
0x35a80…35b00 UnusedSector ┆ * V @ @ @ @ @ @ @ @ @ 6 d ┆
0x35b00…35b80 UnusedSector ┆ @ @ @ @ @ @ @ @ @ @ D r 0 0, 0 Ui$ @ 0 0$p ┆
0x35b80…35c00 UnusedSector ┆0 C* ` 0 G* 0 D* 0 @* ┆
0x35c00…35c80 UnusedSector ┆ p% ┆
0x35c80…35d00 UnusedSector ┆%@ @ 0 e& [ 0 , L 0< , % L 0< ( @ ┆
0x35d00…35d80 UnusedSector 0x00[128]
0x35d80…35e00 UnusedSector ┆ 0|N % 0 K 0LP&9 ` ` 0< &9 ` @(G A 0 f) @ 0, U* Q 0| < J ! N 0 D* 0 E* k ┆
0x35e00…35e80 UnusedSector ┆ ┆
0x35e80…35f00 UnusedSector ┆ 0 e& K 0L &) @ H 0| < J ! N U$ ) P ┆
0x35f00…35f80 UnusedSector 0x00[128]
0x35f80…36000 UnusedSector ┆ 0| , N 0| , 9 G 0 E* 0 F* ` ┆
0x36000…36080 UnusedSector 0x00[128]
0x36080…36100 UnusedSector ┆ 0\ ,@░░ @ 0LMe6 U h H 0 - L p ┆
0x36100…36180 UnusedSector 0x00[128]
0x36180…36200 UnusedSector ┆ 0 P&) V ` 0 F* 0 G* ┆
0x36200…36280 UnusedSector ┆ ┆
0x36280…36300 UnusedSector ┆ 0|N % K ┆
0x36300…36380 UnusedSector ┆0 - ┆
0x36380…36400 UnusedSector 0x00[128]
0x36400…36480 UnusedSector ┆ 0 , L 0 O < D h L 0 K J U (g D ,` D l` D 0 f& \ ┆
0x36480…36500 UnusedSector 0x00[128]
0x36500…36580 UnusedSector ┆ 0 ST J 0 G D ,` D l` D 0 - @ ┆
0x36580…36600 UnusedSector 0x00[128]
0x36600…36680 UnusedSector ┆ 0\ $ @ 0 %p 0 & HS&) ` ┆
0x36680…36700 UnusedSector 0x00[128]
0x36700…36780 UnusedSector ┆ 0 & 0 u8 @ p @ 0 4) h J 0 < D ! ┆
0x36780…36800 UnusedSector ┆0 - @ 0 W2- ┆
0x36800…36880 UnusedSector ┆ (G $ @ 0 0' 0 O % G 0, ┆
0x36880…36900 UnusedSector ┆L \ R E S H 0 < F ! 0LK , J 0|VW& ┆
0x36900…36980 UnusedSector ┆ 0 p'p 0LST$ ┆
0x36980…36a00 UnusedSector ┆ J 0 , 0 , ; 0 - ` 0< , ┆
0x36a00…36a80 UnusedSector 0x00[128]
0x36a80…36b00 UnusedSector ┆0 'p 0 , $ L 0 - I 0LE ( ` ┆
0x36b00…36b80 UnusedSector 0x00[128]
0x36b80…36c00 UnusedSector ┆ 0 )p 0 ' 0 & h @ p + D \ h L G D @ 0| < J ! N 0 - 2=G , ┆
0x36c00…36c80 UnusedSector ┆ p5f - ┆
0x36c80…36d00 UnusedSector ┆ 0 0( l U* 0 f ^ ^ ^ \ x ^ V ` | 0 5) @ G ┆
0x36d00…36d80 UnusedSector ┆ ┆
0x36d80…36e00 UnusedSector ┆ 0<Q&y ` ` ` a V b ` 0 - \ Q) ┆
0x36e00…36e80 UnusedSector ┆ 0 ┆
0x36e80…36f00 UnusedSector ┆ ┆
0x36f00…36f80 UnusedSector 0x00[128]
0x36f80…37000 UnusedSector ┆ 0 , 0 - ┆
0x37000…37080 UnusedSector ┆ ┆
0x37080…37100 UnusedSector ┆ 0 - ┆
0x37100…37180 UnusedSector ┆ P ┆
0x37180…37200 UnusedSector 0x00[128]
0x37200…37280 UnusedSector ┆ 0 - 0 WW& R S6G , ┆
0x37280…37300 UnusedSector 0x00[128]
0x37300…37380 UnusedSector ┆ 0 (p 0| &9 G D 0 - Z p ┆
0x37380…37400 UnusedSector 0x00[128]
0x37400…37480 UnusedSector ┆ 0| R& ┆
0x37480…37500 UnusedSector 0x00[128]
0x37500…37580 UnusedSector ┆ 0 s)p 0 < @ ! 0| , 8 G p ┆
0x37580…37600 UnusedSector 0x00[128]
0x37600…37680 UnusedSector ┆ ┆
0x37680…37700 UnusedSector 0x00[128]
0x37700…37780 UnusedSector ┆ 0 * 0 Se┆
0x37780…37800 UnusedSector ┆$ J 0|Ve& ┆
0x37800…37880 UnusedSector 0x00[128]
0x37880…37900 UnusedSector ┆ 0 *p 0 %= D h L ┆
0x37900…37980 UnusedSector 0x00[128]
0x37980…37a00 UnusedSector ┆ 0 0+p ┆
0x37a00…37a80 UnusedSector 0x00[128]
0x37a80…37b00 UnusedSector ┆ 0 p+p 0| U& , , ┆
0x37b00…37b80 UnusedSector 0x00[128]
0x37b80…37c00 UnusedSector ┆ 0 + 0 O 5 \ @ \ 0 9 @ E @ H 0 < dP ┆
0x37c00…37c80 UnusedSector ┆P 0 Se% ┆
0x37c80…37d00 UnusedSector ┆ 0 + 0 , ` K 0\ c% ┆
0x37d00…37d80 UnusedSector 0x00[128]
0x37d80…37e00 UnusedSector ┆ rV - @ r$ ) @ ┆
0x37e00…37e80 UnusedSector ┆ (G ) @ 0 -p 0 R& Z cZ w% ┆
0x37e80…37f00 UnusedSector ┆ 0 p┆
0x37f00…37f80 UnusedSector ┆,p 0 Oe& G 0 _U) K 0 , : ` ┆
0x37f80…38000 UnusedSector 0x00[128]
0x38000…38080 UnusedSector ┆ 0 $ L ┆
0x38080…38100 UnusedSector 0x00[128]
0x38100…38180 UnusedSector ┆ 0\R&Y U (g ,` l` 0 k 0 = U X 0 We& X @ ┆
0x38180…38200 UnusedSector 0x00[128]
0x38200…38280 UnusedSector ┆ xj ) ┆
0x38280…38300 UnusedSector 0x00[128]
0x38300…38380 UnusedSector ┆ 0 dX ; 0|V < J ! N 0\V ┆
0x38380…38400 UnusedSector ┆, @ ┆
0x38400…38480 UnusedSector ┆ 0 U& c$ % ┆
0x38480…38500 UnusedSector 0x00[128]
0x38500…38580 UnusedSector ┆ 0 % ┆
0x38580…38600 UnusedSector ┆ ┆
0x38600…38680 UnusedSector 0x00[128]
0x38680…38700 UnusedSector ┆ rj i% @ ┆
0x38700…38780 UnusedSector 0x00[128]
0x38780…38800 UnusedSector ┆ 0 , K 0 @* 0| c& ┆
0x38800…38880 UnusedSector 0x00[128]
0x38880…38900 UnusedSector ┆ Ui$ @ 0 . 0 $ p P 0 , K 0 A* 0| X& h ┆
0x38900…38980 UnusedSector 0x00[128]
0x38980…38a00 UnusedSector ┆ 0 ( P 0 B* @ 0| R& 0| f& U 0lU - ┆
0x38a00…38a80 UnusedSector ┆ @ ┆
0x38a80…38b00 UnusedSector ┆ 0 O ( @ 0 %p 0 0/ 0<QT┆
0x38b00…38b80 UnusedSector ┆4 @ @ 0 ( @ 0 , g H 0 C* ` p ] $ f) ┆
0x38b80…38c00 UnusedSector ┆ 0| ) @ 0 p/ ┆
0x38c00…38c80 UnusedSector ┆ 0 D* ┆
0x38c80…38d00 UnusedSector 0x00[128]
0x38d00…38d80 UnusedSector ┆0 / 0 ( 0 S&Y T (g ,` l` p k 0 W < B ! 0 E* ┆
0x38d80…38e00 UnusedSector 0x00[128]
0x38e00…38e80 UnusedSector ┆ 0 / 0 $ ' G 0 F* 0 % 0 V& @ ┆
0x38e80…38f00 UnusedSector 0x00[128]
0x38f00…38f80 UnusedSector ┆ 0LM 5 U h H 0 ( K 0| , N 0 G* P ┆
0x38f80…39000 UnusedSector 0x00[128]
0x39000…39080 UnusedSector ┆ 0, 4 E H 0, &9 x @ G A ┆
0x39080…39100 UnusedSector 0x00[128]
0x39100…39180 UnusedSector ┆ 0 % Z 0< &Y H @ ( @ P @ @ 0 c = ┆
0x39180…39200 UnusedSector ┆ E H 0 c& 2 ┆
0x39200…39280 UnusedSector ┆ 0, U* X 0|V L J < ! ┆
0x39280…39300 UnusedSector ┆N < % N 0 X& eJ U* @ ┆
0x39300…39380 UnusedSector ┆ 0 R& @ ┆
0x39380…39400 UnusedSector ┆ 0 f& T ) ┆
0x39400…39480 UnusedSector 0x00[128]
0x39480…39500 UnusedSector ┆ 0|S&) p k ┆
0x39500…39580 UnusedSector 0x00[128]
0x39580…39600 UnusedSector ┆ 0 e$p 0 S&) 0 k 0| L J > ! N > % N 0 , 0| c& 0 G , p ┆
0x39600…39680 UnusedSector 0x00[128]
0x39680…39700 UnusedSector ┆ 0 - I 0 - 0 , ┆
0x39700…39780 UnusedSector 0x00[128]
0x39780…39800 UnusedSector ┆ 0 (p 0 f& J 0 Y* L 0 O , L 0 - ┆
0x39800…39880 UnusedSector ┆ 0 , 0<gw% ┆
0x39880…39900 UnusedSector ┆ 0 ( K 0 , 0 - @ ┆
0x39900…39980 UnusedSector ┆ ┆
0x39980…39a00 UnusedSector ┆ 0 U)p 0 ┆
0x39a00…39a80 UnusedSector ┆( P K 0 K , > D 0 - ` 0 @* 0 A* t 0 &% 0 ) ┆
0x39a80…39b00 UnusedSector 0x00[128]
0x39b00…39b80 UnusedSector ┆ L - @ 0 " 0< , L 0 - ` ┆
0x39b80…39c00 UnusedSector 0x00[128]
0x39c00…39c80 UnusedSector ┆ 0 0# 0 d | X | ; \ > \ 0 f ^ ^ ^ \ x ^ V ` ┆
0x39c80…39d00 UnusedSector ┆ | 0 W L | ! | % 0 G , & L 0 - 0 A* 0 B* ┆
0x39d00…39d80 UnusedSector ┆ 0 h%p 0 p# 0 - ┆
0x39d80…39e00 UnusedSector 0x00[128]
0x39e00…39e80 UnusedSector ┆ 0 #p 0 $ o P 0 - 0 B* @ 0 C* * 0 e┆
0x39e80…39f00 UnusedSector ┆% sT U* ┆
0x39f00…39f80 UnusedSector ┆ 0 # ,G $ 0 &) P 0 L ┆
0x39f80…3a000 UnusedSector ┆ ~ ! ~ % 0 c& M 0| f& ┆
0x3a000…3a080 UnusedSector ┆ ┆
0x3a080…3a100 UnusedSector 0x00[128]
[…0x1…]
0x3a180…3a200 UnusedSector ┆ ┆
0x3a200…3a280 UnusedSector 0x00[128]
0x3a280…3a300 UnusedSector ┆ ┆
0x3a300…3a380 UnusedSector 0x00[128]
0x3a380…3a400 UnusedSector ┆ ┆
0x3a400…3a480 UnusedSector 0x00[128]
0x3a480…3a500 UnusedSector ┆ V>I+V qj░ EC%CI ░ 0 O H V N░ PC)C ░ 0 ┆
0x3a500…3a580 UnusedSector ┆ H V =░ QC)C ░ (G H V .░ RC)C ░ (G H V ░ SC)C ░ Ui H V ░ TC)C ░ ┆
0x3a580…3a600 UnusedSector ┆ 0 Ui H V ░ VC)C ░ rj i H V ░ UC)C ░ rV H V ░ WC)C ░ r$ H V ░ XC)C ┆
0x3a600…3a680 UnusedSector ┆ ░ L H V ░ YC)C ░ 0LP& H V ░ :Cj )C ░ ;Cj )C ░ 0 P& H V ┆
0x3a680…3a700 UnusedSector ┆░ ?Cj )C ░ 0<Q& H V n░ @Cj )C ░ ACj )C ░ 0 H V L░ ICj )C ┆
0x3a700…3a780 UnusedSector ┆ ░ 8C ░ 3C A░ ░ LCMC ░ +C,Cd ░ eC`C ░ j PC j PC 2C ░ j YC j YC >C ┆
0x3a780…3a800 UnusedSector ┆ ░ iC V ░ ░ "C ge░ "C"C J ░# ░B░ 6 ░C2 ░ ░ 2 3 ░ 8*e1 ░ ;e░!aeJ ░# 7 ┆
0x3a800…3a880 UnusedSector ┆░ C ░ C ░ C ░ C ░ C ░BV 1J ░# B ░B░ "C Pf░ "C"C J ░# E ░ #C ┆
0x3a880…3a900 UnusedSector ┆ ░ 2C ░B░ C0C? @ ░ C C ░ C fJ ░# S ░BJ ░# V ░ 6 9 el e░ 6 9 el e░ ┆
0x3a900…3a980 UnusedSector ┆ 6 9 el e░ 6 9 el e░ 6 9 el e░ 6 9 el e░ 6 9 el e░ 6 9 el e░ C C V l░BJ ░# ┆
0x3a980…3aa00 UnusedSector ┆m ░B░ 6 ░Cq ░ ░ q r ░ C 8 fp ░ f░!JfJ ░# v ░ C ░ 6 ░C ░ C ░ ░ C 8,f ░ =f░!Gf░ C┆
0x3aa00…3aa80 UnusedSector ┆ C V ░BV pJ ░# ░B░ "C g░ "C"C J ░# ░ #C ░ 2C ░B░ 6 9zf f░ C C 6┆
0x3aa80…3ab00 UnusedSector ┆ 8zf ░ C ░! f░! g░ C t ░ C t ░ C t ░ C t ░ C t ░ C t ░ C t ░ C t V ░ C ta░ C f░ ░! f░ ┆
0x3ab00…3ab80 UnusedSector ┆ C ha ░ C f░ C J ░# ░ C ░ C ░ C ░ C f░ 0 0 ░! f░ C ░ 6 ░C ░ ┆
0x3ab80…3ac00 UnusedSector ┆ ░ ░ C 8 f ░ g░! g░ j C C V ░B░ C g░ 6 ░C ░ ░ ░ C 8*g ░ =g░! g░ C ┆
0x3ac00…3ac80 UnusedSector ┆ta░ C C Ng░ ░!Ug░ C C ha J ░# ░ 6 ░C ░ ░ ░ C 8cg ░ tg░! g░ j C C C V ┆
0x3ac80…3ad00 UnusedSector ┆░BV V J ░# ░B░ "C gV ░ `C g░ !C g░ j )C ( gV PV K░ !C g░ #C H ░ 1C H ░ 2C ┆
0x3ad00…3ad80 UnusedSector ┆t ░ L g& H ░ &C H ░ \C H ░ " V ░ V $░ aC g░ !C g░ j )C + gV P░ aC!C ░ !C ░!GhV ┆
0x3ad80…3ae00 UnusedSector ┆ ,░!Jh░!Jh░!Jh░!Jh░!JhV 4░!Jh░ ^C V V $V 6V >░ ^Cx V V 2░ ^C V V NV 8V :V <░g h h h h h h h h h h h┆
0x3ae00…3ae80 UnusedSector ┆ h#h%h,h.h0h2hI ░54hV V ░ !C ░! h░ ^Ck &C V ░! h░ -C -C h░ #C H ░ 1C H ░ 2C t ░ p ,┆
0x3ae80…3af00 UnusedSector ┆ Q H ░ H ░ \C H ░ " V ░ ░! h░ #C H ░ 1C H ░ 2C t ░ p , Q H ░ H ░ \C H ░ " V ░ ░! h░ #C H ┆
0x3af00…3af80 UnusedSector ┆ ░ 1C H ░ 2C t ░ p , Q H ░ H ░ \C H ░ " V ░ ░! hV .Sh\h^h h h hI ░5 h░ &C-C H ░ 0C t ░ 2C t ┆
0x3af80…3b000 UnusedSector ┆░ 1C H V ░ V ░ 9C 4i░ #C H ░ 1C H ░ 2C t ░ ej e H ░ - H ░ \C H ░ " V ░ V ░ BC ai░ #C H ┆
0x3b000…3b080 UnusedSector ┆ ░ 1C H ░ 2C t ░ ej e H ░ . H ░ \C H ░ " V ░ ░ 9CBC V ░ ░ !C riV $░ !C i░ j PC j PC 2C┆
0x3b080…3b100 UnusedSector ┆ ░ j YC j YC >C V &░ j )C j )C i░ ^C V ░ !C ┆
0x3b100…3b180 UnusedSector ┆ i░ &C iV 0░ !C i░ ^Cd &C V ░ ^C V ░ /C ░ )C ░ QC H ░ )C H ░ 0 V ^V ┆
0x3b180…3b200 UnusedSector ┆ (V ░ #C H ░ 1C H ░ 2C t ░ H[ H ░ ) H ░ \C H ░ V ░ ░ &C&C ░ C ░ 6 ░C ░ ┆
0x3b200…3b280 UnusedSector ┆ ░ ░ &C 8>j ░ Oj░! j░ y C C H ░ 0C t ░ 2C t ░ 1C H V ░ ░ C ta░ C/ j░ ░!┆
0x3b280…3b300 UnusedSector ┆ j░ C ha V V (░ &C H ░ 0C t ░ 2C t ░ 1C H V ░ ░ j )C H ░ 0C t ░ 2C t ░ 1C H V ░ V (░ ^Cj ┆
0x3b300…3b380 UnusedSector ┆ V ░ )C H ░ j PC + H ░ H V V $░ C)C ░ &C t V ░ dC k░ #C H ░ 1C H ░ 2C t ░ 0|Gs ┆
0x3b380…3b400 UnusedSector ┆ H ░ H ░ C / H ░ $ V ░ ░ CPC XkV ░ -Cj PC Qk░ #C H ░ 1C H ░ 2C t ░ p , Q ┆
0x3b400…3b480 UnusedSector ┆H ░ H ░ \C H ░ " V ░ ░ 2C&C V $░ C H ░ &C-C H ░ !C H V V $░ C)C ░ &C t V ░ dC k░ ┆
0x3b480…3b500 UnusedSector ┆#C H ░ 1C H ░ 2C t ░ 0|Gs H ░ H ░ C / H ░ $ V ░ ░ C H ░ &Cj PC + H ░ ┆
0x3b500…3b580 UnusedSector ┆ H V V $░ DC)C ░ bC ░ /C V ░ ░ /C/C ░ /C V i░ !C ░! lV ,░! l░! l░! l░! l░! l░ ^Cy ┆
0x3b580…3b600 UnusedSector ┆ V ░! l░ #C H ░ 1C H ░ 2C t ░ iZ ,G H ░ H ░ ]C H ░ V ░ ░! lV LV F░ ^C{ V V H░ ^C| V ┆
0x3b600…3b680 UnusedSector ┆░ #C H ░ 1C H ░ 2C t ░ iZ ,G H ░ H ░ ]C H ░ V ░ ░! l░ .C)C)C !C V L░ ^C} V ┆
0x3b680…3b700 UnusedSector ┆ ░ ^C~ V ░ ^C V k k k k k k k l l,l.l0l7l9l@lglzl l lI ░5 lV }░ !C ░! m░ ^Ck &C V ░ 4C ░! m░ -C ┆
0x3b700…3b780 UnusedSector ┆ l░ 4C ░! l░ -C l░ 4C ░! l░ -C l░ 4C ░! l░ 4C ░! m░ 4C ░! m░ 4C ░!┆
0x3b780…3b800 UnusedSector ┆ mV J l l l l l mI ░5 m░ 4C >mV @░ #C H ░ 1C H ░ 2C t ░ p , Q H ░ H ░ ]C H ░ " V ░ ░ 4C ░ 5C┆
0x3b800…3b880 UnusedSector ┆ ta░ &C Mm░ ░! m░ &C [m░ ░! m░ &C im░ ░! m░ &C wm░ ░! m░ &C ░ &C ┆
0x3b880…3b900 UnusedSector ┆ m░ ░! m░ &C ░ m░ ░! m░ ha ░ /C &C5C 4C V ░ ░ !C &C mV ┆
0x3b900…3b980 UnusedSector ┆ BV ░ ░ !C j )C m░ !C mV ,░ .C)C)C !C ░ ^C V V H░ j )C ┆
0x3b980…3ba00 UnusedSector ┆ n░ ^Cz V ░ iC ░ /C/C V @░ /C /C j )C V @░ bC 7n░ ^C V ░ bC ░ 6C)C ┆
0x3ba00…3ba80 UnusedSector ┆ ░ /C )C V D░ bC n░ DC H ░ 6C H ░ 0 V ░ BCj DC & ░ 9C8C 9C j DC ( ┆
0x3ba80…3bb00 UnusedSector ┆ ░! n░ DC H ░ 0C t ░ 2C t ░ #C H ░ 1C H ░ 9C t ░ JC t ░ BC t V V $░ j )C * n░ ^C V ┆
0x3bb00…3bb80 UnusedSector ┆V 6░ &C ░!CoV RV VV X░ #C H ░ 1C H ░ 2C t ░ 0 svW H ░ 2 H ░ \C H ░ V ░ ░!FoV fV hV jV V V l┆
0x3bb80…3bc00 UnusedSector ┆V nV V pV rV tV zV "V V |V ~V V V V V V V V V n n n n n n n n n n o o o o o o o o o o o o o o o o┆
0x3bc00…3bc80 UnusedSector ┆ o"o$oI ░5&o░ `C V ░ (C xo░ #C H ░ 1C H ░ 2C t ░ iZ 9J H ░ H ░ \C H ░ V ░ ░ (C (C aC┆
0x3bc80…3bd00 UnusedSector ┆$ 1C# ░ 1C 2C9C BC JC' ░ 1C =C ░ (C(C ░ (C 0C ░ aC ░ 1C ┆
0x3bd00…3bd80 UnusedSector ┆░ 2C 1C ░ 9C 1C ░ BC 1C ░ JC 1C ' ░ =C 1C ░ j PC j PC ┆
0x3bd80…3be00 UnusedSector ┆1C ░ j VC j VC j PC 1C V $V ░ (C % Qp░ #C H ░ 1C H ░ 2C t ░ 0\ 4e ┆
0x3be00…3be80 UnusedSector ┆H ░ H ░ \C H ░ $ V ░ V ░ ░ !C np░ 6C)C ░ (C (C & ░! p░ .C)C)C !C ░ ┆
0x3be80…3bf00 UnusedSector ┆6C t V ░ cC pV $░ (C (C 6C ░ cC ░ 6 ░C ░ ░ ░ 8 p ░ p░! p░ C C C ┆
0x3bf00…3bf80 UnusedSector ┆ ░ C C V ░ (C (C % V T░ 1C 1C 2C ░ (C & ┆
0x3bf80…3c000 UnusedSector ┆ gq░ C (C ░ j C / %q░ Cj C ░!Tq░ #C H ░ 1C H ░ 2C t ░ 0 [ U H ░ H ┆
0x3c000…3c080 UnusedSector ┆░ C / H ░ Z V ░ ░ C ░ (C (C & C ░ 6) 9pq q░ )Cj )C + 6) 8pq ░ ┆
0x3c080…3c100 UnusedSector ┆j )C + ░! q░! t░ !Cj )C / ░ *Cj )C / ░ !C t░ *C(C s░ !C s░ j )C ┆
0x3c100…3c180 UnusedSector ┆ & s░ Cj )C # $ ░ C t ░ C t V ░ j C # $ 6 8 q ░ j C / C C j C / (C ┆
0x3c180…3c200 UnusedSector ┆ ░! r░! r░ C Cj C + V ░ j C / s░ j C / us░ j C ( _r░ #C H ░ 1C H ░ ┆
0x3c200…3c280 UnusedSector ┆2C t ░ U \V H ░ H ░ C / H ░ \ V ░ ░ j C ' r░ (C ' (C r░ j C / ┆
0x3c280…3c300 UnusedSector ┆ (C r░ #C H ░ 1C H ░ 2C t ░ ej U H ░ H ░ C / H ░ " V ░ ░ !C ^s░ j C ┆
0x3c300…3c380 UnusedSector ┆ \s░ 6C C ░ j 6C 0s░ 6Cj 6C ░ 6 ░C ░ ░ ░ j 6C / 8 r ░ s░!┆
0x3c380…3c400 UnusedSector ┆/s░ j 6C C -s░ j 6C C C -s░ j 6C C j 6C C )C V Xi░ j 6C j 6C j )C ┆
0x3c400…3c480 UnusedSector ┆ ░ j )C j )C j C ░!ss░ C H ░ j )C H ░ !C H V ░! s░ j C ( s┆
0x3c480…3c500 UnusedSector ┆░ j C / s░ )C H ░ j C H ░ j C / H V ░ C H ░ H V ░ ░! t░ *C(C t░ Cj )C # $ ┆
0x3c500…3c580 UnusedSector ┆ ░ C)Cj )C + ░ j C # $ 6 8 s ░ j C / C C j C / (C ░! s░! t░ C Cj ┆
0x3c580…3c600 UnusedSector ┆ C + V ░ j C / tV `░ !C tV ░ j )C ( Ot░ #C H ░ 1C H ░ 2C t ░ U \V H ┆
0x3c600…3c680 UnusedSector ┆░ H ░ \C H ░ ^ V ░ V ░ j )C ' t░ (C ' (C t░ #C H ░ 1C H ░ 2C t ░ ej U H ┆
0x3c680…3c700 UnusedSector ┆░ H ░ \C H ░ " V ░ ░ j )C j )C / ( ░! t░ !C t░ j )C ( t░ j )C j ┆
0x3c700…3c780 UnusedSector ┆)C / ( ░ j )C / (C t░ j )C . t░ )C H ░ H V ░ V ░ 6) 9░t u░ ┆
0x3c780…3c800 UnusedSector ┆)Cj )C + 6) 8░t ░ j )C + ░! u░!Ku░ j )C / Iu░ j )C + Iu░ j )C j )C ┆
0x3c800…3c880 UnusedSector ┆(C / V ░ (C % z░ 6C (C ░ C ░ 6C 6 ░C ░ ░ ░ 0C 8ju ░ }u░! v░ C┆
0x3c880…3c900 UnusedSector ┆ * v░ )C C ░ C C IC ░ 6< 9 u u░ 6< 9`v u░ _C<C ^v░ <C j RC ┆
0x3c900…3c980 UnusedSector ┆ <C j SC ^v░ cC u░ <C J ░$ ░ #C ░ 1C ░ 2C ░B░ 6 ░C ░ ░ ░ j )C / ┆
0x3c980…3ca00 UnusedSector ┆ 8 u ░ v░!^v░ j )C C \v░ <C J ░$ ░ j )C ░ j )C # ░ j )C ░ j j ┆
0x3ca00…3ca80 UnusedSector ┆)C # $ ░ j j )C C # $ ░BV V ░ 6 ░C ░ ░ ░ j )C / 8gv ░ v░!┆
0x3ca80…3cb00 UnusedSector ┆ v░ j )C C v░ Cj )C C ░ Cj C ░ C)C v░ C C ░ Cj C X ░ j ┆
0x3cb00…3cb80 UnusedSector ┆ C j C j C V ░ C C ░ cC V ░ cC w░ #C H ░ 1C H ░ 2C t ░ U ,UV H ░ ┆
0x3cb80…3cc00 UnusedSector ┆ H ░ C H ░ b V ░ ░ cC ░ 6< 9 w .w░ 6< 9%w .w░ 6< 9 z .w░ <C j RC <C j SC ┆
0x3cc00…3cc80 UnusedSector ┆ <C z░ _C<C z░ 6 9[w w░ 6 9dw w░ 6 9mw w░ 6 9vw w░ 6 9 w w░ ┆
0x3cc80…3cd00 UnusedSector ┆ 6 9 w w░ 6 9 w w░ 6 9 w w░ C 0 V ░ 6 ░C ░ ░ ░ 8 w ░ w░! w░ y ┆
0x3cd00…3cd80 UnusedSector ┆ C V ░ C (C ░ <C w░ <C J ░$ $ ░B░ <C J ░$ ' ░ C ░ C0C 6C ░B░ <C J ░$ / ░B░ C┆
0x3cd80…3ce00 UnusedSector ┆ C ░ C C C ░ 'C ░ 6& ░C3 ░ ░ 3 4 & ░ 8 x2 ░ *x░!cy░ &Cj TC 6 9:x8 Ox░ &C j TC ┆
0x3ce00…3ce80 UnusedSector ┆ 6 9ay8 Ox░ y C C C ░ 6C 6 ░C: ░ ░ : ; ░ 0C 8_x9 ░ rx░!_y░ C # C ]y░ y C┆
0x3ce80…3cf00 UnusedSector ┆ y C ░ 6 9 x? x░ 6 9 x? x░ 6 9 x? x░ 6 9 x? x░ C C C ░ 'C'C┆
0x3cf00…3cf80 UnusedSector ┆ C ░ C x░ C C ░ C C C C V ?░ C x░ C C ░!]y░ <C J ░$ @ ░ C ┆
0x3cf80…3d000 UnusedSector ┆░ 6 9 yT Hy░ 6 9 yT Hy░ 6 9 yT Hy░ 6 9$yT Hy░ 6 9-yT Hy░ 6 96yT Hy░ 6 9?yT Hy░ ┆
0x3d000…3d080 UnusedSector ┆ 6 9PyT Hy░ C V T░B░ C C ░ C V 9V 8V 2░ C zy░ <C J ░$ U ░ ░B░! z░ C z┆
0x3d080…3d100 UnusedSector ┆░ C 6 ░CY ░ ░ Y Z ░ 8 yX ░ y░! y░ C 0 V X░ <C J ░$ ^ ░ C ░ 6 9 yr y░ 6 9 y┆
0x3d100…3d180 UnusedSector ┆r y░ 6 9 yr y░ 6 9 yr y░ 6 9 yr y░ 6 9 yr y░ 6 9 yr y░ 6 9 zr y░ C V r┆
0x3d180…3d200 UnusedSector ┆░B░ <C J ░$ s ░ 'C ░B░ <C z░ <C J ░$ x ░B░ <C J ░$ { ░B░ 6 ░C ░ ░ ░ 8-z ░ >z░! z░ C┆
0x3d200…3d280 UnusedSector ┆j TC 6 9Nz cz░ C j TC 6 9 z cz░ y C z░ <C J ░$ ░ C ░ y C ░BV ┆
0x3d280…3d300 UnusedSector ┆ V ░ <C J ░$ ░BV ░ 0C 6C ░ 6C 6 ░C ░ ░ ░ 0C 8 z ░ z░! z░ C V ░ 0C┆
0x3d300…3d380 UnusedSector ┆6C ░ 6 ░C ░ ░ ░ 8 z ░ z░! z░ C C C ░ C C V ░ (C(C ┆
0x3d380…3d400 UnusedSector ┆░ aC (C $ ░ 1C (C # ░ (C {V T░ CC G{░ #C H ░ 1C H ░ 2C t ░ 0 ke H ░ H ░ CC ┆
0x3d400…3d480 UnusedSector ┆H ░ d V ░ ░ NC r{░ #C H ░ 1C H ░ 2C t ░ 0 kR H ░ H ░ NC H ░ V ░ V V ░ ░ !C {░ &C ┆
0x3d480…3d500 UnusedSector ┆ {V fV $V p░ !C j )C & {░ #C H ░ 1C H ░ 2C t ░ 0<F 9^ H ░ H ░ \C H ░ f V ░ ░ j )C ┆
0x3d500…3d580 UnusedSector ┆ j )C & V f░ (C (C ' V ░ ░ !C {░ &C {V hV $V ░ !C j )C ( ┆
0x3d580…3d600 UnusedSector ┆ j )C / (C 3|░ #C H ░ 1C H ░ 2C t ░ cT |W H ░ H ░ \C H ░ h V ░ ░ j )C j )C ' ┆
0x3d600…3d680 UnusedSector ┆ ░ j )C t ░ C t V a░ j C 6 8Q| ░ C/ C/ C# $ j )C # $ j C / (C ┆
0x3d680…3d700 UnusedSector ┆j C & ░! |░! |░ C Cj C + V ░ C/ |░ )C H ░ j C H ░ j C / H ┆
0x3d700…3d780 UnusedSector ┆ V V hV 1░ #C H ░ 1C H ░ 2C t ░ 0 \V H ░ H ░ \C H ░ j V ░ V ░ ░ !C |░ &C |V jV $░ !C┆
0x3d780…3d800 UnusedSector ┆ j )C ( j )C / (C }V ░ j )C t ░ C t V ░ j C 6 8(} ░ C/ C/ j ┆
0x3d800…3d880 UnusedSector ┆ C ' C# $ j )C # $ j C / (C ░!i}░!w}░ C Cj C + V ░ C/ }┆
0x3d880…3d900 UnusedSector ┆V ░ j )C j )C ( V j░ 7C7C ░ 7C7C ░ 7C }░ _C ░ eC }J ░# ░ 6 ░C┆
0x3d900…3d980 UnusedSector ┆ ░ ░ ░ 8 } ░ }░! }░ C V ░B░ eC V $V ░ CC NC ~░ #C H ░ 1C H ░ 2C t ░ 0 ┆
0x3d980…3da00 UnusedSector ┆ke H ░ H ░ \C H ░ $ V ░ ░ CCCC ░ NC CC G~░ #C H ░ 1C H ░ 2C t ░ 0 kR H ░ H ░ \C ┆
0x3da00…3da80 UnusedSector ┆H ░ $ V ░ V $V ░ CC v~░ #C H ░ 1C H ░ 2C t ░ 0 ke H ░ H ░ \C H ░ $ V ░ ░ CC NC ░ CCCC┆
0x3da80…3db00 UnusedSector ┆ ░ &C t V ░ &C ~V $V f░ CC NC ~░ #C H ░ 1C H ░ 2C t ░ 0 ke H ░ H ░ \C H ░ $ V ┆
0x3db00…3db80 UnusedSector ┆░ ░ 6CCC ░ `C ░ CC6C a V ░ V #░ !C ░ #C H ░ 1C H ░ 2C t ░ L g& H ░ &C H ░ \C H ░ " ┆
0x3db80…3dc00 UnusedSector ┆V ░ ░ GCj )C # $ V ░ !C ` ░ GC 0 & Q ░ NC H ░ #C H ░ 1C H ░ 2C t ░ 0 kR H ░ H ░ \C┆
0x3dc00…3dc80 UnusedSector ┆ H ░ v V ░ ░ NCNC ░!` ░ GC 0 ░ NC CC ░ #C H ░ 1C H ░ 2C t ░ 0 kR H ░ H ░ ┆
0x3dc80…3dd00 UnusedSector ┆\C H ░ v V ░ ░ NCNC ░!` ░ GC p5f ░ NC CC ░ #C H ░ 1C H ░ 2C t ░ 0 kR H ░ H ┆
0x3dd00…3dd80 UnusedSector ┆░ \C H ░ v V ░ ░!` ░ GC 0 V ░ CC ░ #C H ░ 1C H ░ 2C t ░ 0 ke H ░ H ░ \C H ░ v V ░ ┆
0x3dd80…3de00 UnusedSector ┆░ CCCC ░ CC NC ░!` ░ GC 0 O ░ CCCC ░ NC CC M ░ #C H ░ 1C H ░ 2C t ░ 0 kR H ░ ┆
0x3de00…3de80 UnusedSector ┆ H ░ \C H ░ v V ░ ░!` ░ GC 0\ c ` ░ CC6C ` V xY ░ `C V $V ░ ░ -Cj )C ░ )C !C ┆
0x3de80…3df00 UnusedSector ┆ ░ y &C ░ &C ░! ░ !C d ░ 6< 9 ░ 6< 9b ░ <C j RC <C j SC ` ┆
0x3df00…3df80 UnusedSector ┆░ _C<C ` ░ <C J ░$ ░ #C ░ 1C ░ 2C ░ j )C # $ ░ j )C ░ !C ░ ,E ░!S ░ -C┆
0x3df80…3e000 UnusedSector ┆ ░ I ░!S ░ -C ░ K ░!S ░ -C 1 ░ ░!S ░ !C ? ░ iJ ░!S ░ ┆
0x3e000…3e080 UnusedSector ┆!C M ░ U ░!S ░ U ░ j )C / ░BV V $░ !C ░ .C)C)C !C ░ &C ┆
0x3e080…3e100 UnusedSector ┆░ &C/ ░ &C/ ░ 6 9 ░ 6 9 ░ 6 9 ░ 6 9 ░ 6 9 ░ 6 9 ┆
0x3e100…3e180 UnusedSector ┆ ░ 6 9 ░ 6 9 ░ y C y C V ░ 6< 9 ░ 6< 9[ ░ <C j RC ┆
0x3e180…3e200 UnusedSector 0x1a[128]
[…0xe…]
