OctetView
0x00000…00080 UnusedSector ┆ ░░░░░░░░░░░░░░░░░░ ░ ░░░░░░░░░░ ░░ST0009 ░░░░░░░░░░░░░░░░░░ 2 ┆
0x00080…00100 UnusedSector ┆ ░ ░░ ░░░░░░░░ ░░░ ░░┆
0x00100…00180 UnusedSector ┆░░░░░░░░░ ░░░░░░░░░░░░░? ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ ┆
0x00180…001c0 DirEnt {filename=»«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0005, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0004, de0d=0x0000, cluster2=0x0005, de0f=0x0009, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x001c0…001e0 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 80 00 ff ff 00 07 00 00 00 00 ┆ ░░ ┆
0x001e0…00200 80 00 ff ff ff ff ff ff ff ff 00 1f 00 00 00 00 00 00 00 00 ff ff 01 ff 00 00 00 00 f8 00 ff ff ┆ ░░░░░░░░ ░░ ░ ░░┆
0x00200…00280 UnusedSector ┆&:>+ ( ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00280…00300 UnusedSector ┆ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00300…00380 UnusedSector ┆) ,=66+;& ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00380…00400 UnusedSector ┆;7 &; > > ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x00400…00440 DirEnt {filename=»B1«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x001c, de0d=0x0000, cluster2=0x0019, de0f=0x000e, de10=0x010d, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00440…00480 DirEnt {filename=»B2«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0017, de0d=0x0000, cluster2=0x0019, de0f=0x020c, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00480…004c0 DirEnt {filename=»B5«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x006b, de0d=0x0000, cluster2=0x0019, de0f=0x0b18, de10=0x0d03, de11=0x0e02, de12=0x0f01, de13=0x0f1a, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x004c0…00500 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=0x2016, 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}
0x00500…00540 DirEnt {filename=»░░NAX«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000a, de0d=0x0000, cluster2=0x001e, de0f=0x140e, 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=0x001f, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00540…00580 DirEnt {filename=»B4«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0017, de0d=0x0000, cluster2=0x0019, de0f=0x0a19, 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=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00580…005c0 DirEnt {filename=»SL«, 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=0x0707, 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=»░░MP«, 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=0x110b, 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=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x00f3, de0d=0x0000, cluster2=0x0019, de0f=0x1019, de10=0x1118, de11=0x140e, de12=0x150d, de13=0x171a, de14=0x1819, de15=0x1918, de16=0x1a17, de17=0x1d14, de18=0x1e13, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00640…00680 DirEnt {filename=»░░NAX«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000a, de0d=0x0000, cluster2=0x0019, de0f=0x130f, de10=0xffff, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0010, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x00680…00700 DataSector[»B1«]
[…0x1c…]
0x01500…01580 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░PY ░░░░ % ┆
0x01580…01600 UnusedSector ┆░░SC (░░░░░░░░░░░░░░░░░░ ░░CM 6 J K K░░░░░░░░░░░░░░ > ┆
0x01600…01680 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░PY ░░░░ % ┆
0x01680…01700 UnusedSector ┆░░SC (░░░░░░░░░░░░░░░░░░ ░░CM 6 J K K░░░░░░░░░░░░░░ > ┆
0x01700…01780 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░PY ░░░░ % ┆
0x01780…01800 UnusedSector ┆░░SC (░░░░░░░░░░░░░░░░░░ ░░CM 6 J K K░░░░░░░░░░░░░░ > ┆
0x01800…01880 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░PY ░░░░ % ┆
0x01880…01900 UnusedSector ┆░░SC (░░░░░░░░░░░░░░░░░░ ░░CM 6 J K K░░░░░░░░░░░░░░ > ┆
0x01900…01980 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░PY ░░░░ % ┆
0x01980…01a00 UnusedSector ┆░░SC (░░░░░░░░░░░░░░░░░░ ░░CM 6 J K K░░░░░░░░░░░░░░ > ┆
0x01a00…01a80 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░PY ░░░░ % ┆
0x01a80…01b00 UnusedSector ┆░░SC (░░░░░░░░░░░░░░░░░░ ░░CM 6 J K K░░░░░░░░░░░░░░ > ┆
0x01b00…01b80 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░PY ░░░░ % ┆
0x01b80…01c00 UnusedSector ┆░░SC (░░░░░░░░░░░░░░░░░░ ░░CM 6 J K K░░░░░░░░░░░░░░ > ┆
0x01c00…01c80 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░PY ░░░░ % ┆
0x01c80…01d00 UnusedSector ┆░░SC (░░░░░░░░░░░░░░░░░░ ░░CM 6 J K K░░░░░░░░░░░░░░ > ┆
0x01d00…01d80 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░PY ░░░░ % ┆
0x01d80…01e00 UnusedSector ┆░░SC (░░░░░░░░░░░░░░░░░░ ░░CM 6 J K K░░░░░░░░░░░░░░ > ┆
0x01e00…01e80 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░PY ░░░░ % ┆
0x01e80…01f00 UnusedSector ┆░░SC (░░░░░░░░░░░░░░░░░░ ░░CM 6 J K K░░░░░░░░░░░░░░ > ┆
0x01f00…01f80 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░PY ░░░░ % ┆
0x01f80…02000 DataSector[»B2«]
[…0x17…]
0x02b80…02c00 UnusedSector ┆GE 5 ; TP15 INITQUEUE ; PAGE 5 ; TP20 STOPMOVING ; PAGE 6 ; TP25 MOVETAPE ; PAGE 7 ; TP90 WAIT PHASELOCK ; PAGE 8 ; TP99 LOCAL A┆
0x02c00…02c80 DataSector[»B10«]
[…0xa…]
0x03180…03200 UnusedSector ┆0000 0000 0000 0000 0000 0000 0000 00F8L 0000 0000 0000 0000 0000 0000 0000 0000 0100L 0000 0000 0000 0000 0000 0000 0000 0000 0┆
0x03200…03280 DataSector[»B8«]
0x03280…03300 DataSector[»OTDP«]
[…0x1c…]
0x04100…04180 UnusedSector ┆ADY) THEN JMP L7 ; READ CHAR; IBNP R1 BNOUTRDY ; IF STATUS(OUTPUT READY) THEN WIO R3 R2 ; WRITE(CHAR,DEVICE); JMP 0. X5 ; RE┆
0x04180…04200 DataSector[»B9«]
0x04200…04280 DataSector[»B3«]
[…0x3…]
0x04400…04480 DataSector[»OTDP«]
[…0x13…]
0x04e00…04e80 UnusedSector ┆WBLK:> , CMD18 ; <:NEWFOT:> , CMD19 ; <:ROLLUP:> , CMD20 ; <:ROLLDN:> , CMD21 ; <:ROLLPT:> , CMD22 ; <:INVERT:> , CMD23 ; ┆
0x04e80…04f00 UnusedSector ┆<:STARTC:> , CMD24 ; <:RESET:> , CMD25 ; <:SAVE:>,0 , CMD26 ; <:RESTOE:> , CMD27 ; <:GRAPHC:> , CMD28 ; 0 , 0 ; JMP CMD ; ┆
0x04f00…04f80 UnusedSector ┆TERM: JMP CMD ; ERROR: JMP CMD ; NOT FOUND: CMD1: MODC 1 - 3 ; ECM; CMD2: MODC 2 - 3 ; ETM; CMD3: MODC 3 - 4 ; CUON; CMD4: M┆
0x04f80…05000 UnusedSector ┆ODC 4 - 7 ; CUOFF; CMD7: MODC 7 - 8 ; INCON; CMD8: MODC 8 - 9 ; INCOFF; CMD9: MODC 9 - 10 ; INCPOS; CMD10: MODC 10 - 11 ; INCLIN┆
0x05000…05080 UnusedSector ┆E; CMD11: MODC 11 - 12 ; DECPOS; CMD12: MODC 12 - 13 ; DECLINE; CMD13: MODC 13 - 14 ; RESLINE; CMD14: MODC 14 - 15 ; CUHOME; CMD┆
0x05080…05100 DataSector[»OTDP«]
[…0xb…]
0x05680…05700 UnusedSector ┆TDP #- @ [ Y 6 B G ; @ > Y | 6 @ @ Z . IC; CMD50: ; EXIT: MON END┆
0x05700…05780 UnusedSector ┆PROGRAM ; TRP 0 ; ; XREFS= 1 ; XBUFS= 3 ; XPRPC= L0 ; NOLIST $SMSXP2 ; LIST END ;### ; - 9 ; DECPOS: GCMD12: MODC 9 - 10 ;┆
0x05780…05800 UnusedSector ┆ DECLINE: GCMD13: MOVC 10 R3 ; COUNTUP: JMPI S5 IDP2 ; OUTPUT(COMMAND); JMP C281 ; GOTO NEXT GRAPHIC; CMD50: ; EXIT: MON END┆
0x05800…05880 UnusedSector 0x00[128]
[…0x1…]
0x05900…05980 UnusedSector ┆UEPOINTER); MOVC WORK R7 ; MOVC WORK R1 ; WORK=>RE.ANSWER; JMP 1. X6 ; RETURN(OK); END ; END OUTQUEUE; ;### PAGE 7 ; PROCED┆
0x05980…05a00 UnusedSector ┆URE EMPTY QUEUE(ERROR CODE). ; BEGIN USE PROG ; BEGIN EMPTY QUEUE; ENTRY TP14 ; EXTERNAL TP12,SENDANSWER,LINK0,WORK ; ; ; R1 ER┆
0x05a00…05a80 UnusedSector ┆RORCODE RE.WORK ; ; R2 DESTROYED ; ; R4 DESTROYED ; ; R6 LINK DESTROYED ; ; TP14: ; EMPTY QUEUE: MOV R6 LINK0 ; SAVE(LINK); M┆
0x05a80…05b00 UnusedSector ┆OV R1 WORK ; ERRORCODE=>RESULT.ANSWER; L0: ; GET NEXT: JMP S6 TP12 ; OUTQUEUE(EVENT); JMPI LINK0 ; EMPTY: RETURN(ERROR); JOZ ┆
0x05b00…05b80 UnusedSector ┆X4 L1 ; IF QUEUECOUNT=0 THEN RETURN; MON SENDANSWER ; SENDANSWER(EVENT,ANSWER); JMP L0 ; GOTO GET NEXT; L1: MOV LINK0 R6 ; JM┆
0x05b80…05c00 UnusedSector ┆P 1. X6 ; END ; END EMPTYQUEUE; ; PROCEDURE INIT QUEUE. ; ; R0 DESTROYED ; ; R4 DESTROYED ; ; R6 LINK LINK ; BEGIN USE PROG ; ┆
0x05c00…05c80 UnusedSector ┆ENTRY TP15 ; EXTERNAL QUEUECONTROL,DMA0 ; ; TP15: ; INIT QUEUE: MOVC QUEUECONTROL R4 ; RE.QUEUE; XTR X4 0 ; 0=>COUNT.QUEUE; ┆
0x05c80…05d00 UnusedSector ┆MOVC DMA0 R0 ; DMA0 MOV R0 1. X4 ; =>1,2.QUEUE; MOV R0 2. X4 ; JMP 0. X6 ; RETURN; END ; END INIT QUEUE; ;### PAGE 8 ; PROCE┆
0x05d00…05d80 UnusedSector ┆DURE STOPMOVING. ; R0 HDTR STATUS ; ; R1 ERRORCODE ; (IF ERROR); ; R3 STOPCOUNT ; ; R6 LINK LINK ; ; BEGIN USE PROG ; BEGIN STO┆
0x05d80…05e00 UnusedSector ┆PMOVING; ENTRY TP20 ; EXTERNAL HDTR,REG0,REG4,CSTOP,CTACHENABLE EXTERNAL C,DEVPR,INTERRUPT,WAITINTERRUPT,CLEARINTERRUPT EXTERNAL┆
0x05e00…05e40 DirEnt {filename=»░░FA«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0001, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000b, de0d=0x0000, cluster2=0x0019, de0f=0x0d03, 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=0x0030, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x05e40…05e80 DirEnt {filename=»░░S«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x003f, de0d=0x0000, cluster2=0x0019, de0f=0x0e02, de10=0x0f01, de11=0x0f1a, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0018, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x05e80…05ec0 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=0x0707, 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}
0x05ec0…05f00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x05f00…05f40 DirEnt {filename=»░░RV«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x00d4, de0d=0x0000, cluster2=0x0019, de0f=0x1512, de10=0x171a, de11=0x1819, de12=0x1918, de13=0x1a17, de14=0x1d14, de15=0x1e13, de16=0x1f12, de17=0x2011, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0009, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x05f40…05f80 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0xc000, 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}
0x05f80…05fc0 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=0x0707, 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}
0x05fc0…06000 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06000…06040 DirEnt {filename=»B8«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0001, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0000, de0d=0x0000, cluster2=0x0001, de0f=0x0317, 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=0x0026, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06040…06080 DirEnt {filename=»B7«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0003, de0d=0x0000, cluster2=0x0019, de0f=0x2214, 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=0x003e, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06080…060c0 DirEnt {filename=»B9«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0001, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0000, de0d=0x0000, cluster2=0x0001, de0f=0x0502, 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=0x0023, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x060c0…06100 DirEnt {filename=»B10«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0002, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000a, de0d=0x0000, cluster2=0x0002, de0f=0x030b, de10=0x030d, de11=0x030f, de12=0x0311, de13=0x0313, de14=0x0315, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0026, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06100…06140 DirEnt {filename=»B6«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x00f3, de0d=0x0000, cluster2=0x0019, de0f=0x2412, de10=0x2511, de11=0x2a07, de12=0x2f11, de13=0x3010, de14=0x310f, de15=0x320e, de16=0x330d, de17=0x340c, de18=0x350b, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06140…06180 DirEnt {filename=»B3«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0004, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0004, de0f=0x0503, de10=0x0905, de11=0x0909, de12=0x090d, de13=0x0a10, de14=0x0a14, de15=0x0c17, de16=0x1019, de17=0x1103, de18=0x1107, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06180…061c0 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=0x0707, 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}
0x061c0…06200 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06200…06240 DirEnt {filename=»░░SNAX«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0001, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0xffff, de0d=0x0000, cluster2=0x0001, 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}
0x06240…06280 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0xc000, 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}
0x06280…062c0 DirEnt {filename=»░░RV«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x00f3, 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=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x062c0…06300 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06300…06340 DirEnt {filename=»░░EAR«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0000, de0d=0x0000, cluster2=0x0019, de0f=0x0911, 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=0x0003, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06340…06380 DirEnt {filename=»░░UNTP«, kind=0x0006, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0006, de0d=0x0000, cluster2=0x001e, de0f=0x160c, 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=0x0023, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06380…063c0 DirEnt {filename=»░░UNTP«, kind=0x0007, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0006, de0d=0x0000, cluster2=0x001e, de0f=0x1f12, 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=0x0023, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x063c0…06400 DirEnt {filename=»░░UNTP«, kind=0x0007, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0006, de0d=0x0000, cluster2=0x001e, de0f=0x2214, 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=0x002b, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06400…06440 DirEnt {filename=»░░«, kind=0x8000, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, cluster=0x0007, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06440…06480 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0xc000, 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}
0x06480…064c0 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=0x0707, 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}
0x064c0…06500 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06500…06540 DirEnt {filename=»TDP«, kind=0x0006, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0059, de0d=0x0000, cluster2=0x001e, de0f=0x110b, de10=0x120f, de11=0x1511, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x001e, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06540…06580 DirEnt {filename=»TDP«, kind=0x0007, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0059, de0d=0x0000, cluster2=0x001e, de0f=0x1814, de10=0x1918, de11=0x1c1a, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x003c, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06580…065c0 DirEnt {filename=»░░«, kind=0x0001, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0001, de0d=0x0000, cluster2=0x001e, de0f=0x1913, 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=0x000d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x065c0…06600 DirEnt {filename=»░░«, 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}
0x06600…06640 DirEnt {filename=»░░NAX«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000a, de0d=0x0000, cluster2=0x001e, de0f=0x1616, 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=0x0027, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06640…06680 DirEnt {filename=»░░«, kind=0x0005, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x001f, de0d=0x0000, cluster2=0x001e, de0f=0x2b0b, de10=0x2c0f, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x002b, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06680…066c0 DirEnt {filename=»░░NES«, kind=0x0002, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0003, de0d=0x0000, cluster2=0x001e, de0f=0x2412, 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=0x000d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x066c0…06700 DirEnt {filename=»░░«, kind=0x000c, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x001e, de0d=0x0000, cluster2=0x001e, de0f=0x1a08, de10=0x1b0c, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x002a, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06700…06740 DirEnt {filename=»░░«, kind=0x000d, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x001d, de0d=0x0000, cluster2=0x001e, 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=0x002b, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06740…06780 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0xc000, 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}
0x06780…067c0 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=0x0707, 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}
0x067c0…06800 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06800…06840 DirEnt {filename=»░░«, kind=0x8000, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, cluster=0x0007, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06840…06880 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0xc000, 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}
0x06880…068c0 DirEnt {filename=»MTDP«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x006f, de0d=0x0000, cluster2=0x0019, de0f=0x0911, de10=0x1313, de11=0x1412, de12=0x1616, de13=0x1715, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x001d, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x068c0…06900 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002d, de0d=0x0000, cluster2=0x0019, de0f=0x0a09, de10=0x140e, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x002f, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06900…06940 DirEnt {filename=»░░PTY«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0001, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0xffff, de0d=0x0000, cluster2=0x0001, 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}
0x06940…06980 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0xc000, 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}
0x06980…069c0 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=0x0707, 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}
0x069c0…06a00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06a00…06a40 DirEnt {filename=»░░«, kind=0x8000, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, cluster=0x0007, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06a40…06a80 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0xc000, 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}
0x06a80…06ac0 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=0x0707, 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}
0x06ac0…06b00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06b00…06b40 DirEnt {filename=»░░«, kind=0x8000, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, cluster=0x0007, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06b40…06b80 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0xc000, 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}
0x06b80…06bc0 DirEnt {filename=»░░X«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000a, de0d=0x0000, cluster2=0x001e, de0f=0x1616, 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=0x0027, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06bc0…06c00 DirEnt {filename=»░░EF«, kind=0x0005, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0005, de0d=0x0000, cluster2=0x001e, de0f=0x1616, 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=0x0024, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06c00…06c40 DirEnt {filename=»░░«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0001, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0xffff, de0d=0x0000, cluster2=0x0001, 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}
[…0x2…]
0x06cc0…06d00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0000, 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=0x0006, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06d00…06d40 DirEnt {filename=»░░«, kind=0x8000, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, cluster=0x0007, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06d40…06d80 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0xc000, 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}
0x06d80…06dc0 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=0x0707, 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}
0x06dc0…06e00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06e00…06e40 DirEnt {filename=»░░«, kind=0x8000, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, cluster=0x0007, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06e40…06e80 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0xc000, 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}
0x06e80…06ec0 DirEnt {filename=»OTDP«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002c, de0d=0x0000, cluster2=0x0019, de0f=0x0318, de10=0x0507, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0020, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06ec0…06f00 DirEnt {filename=»OTDP«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0002, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000f, de0d=0x0000, cluster2=0x0002, de0f=0x0417, de10=0x0419, de11=0x0606, de12=0x0608, de13=0x060a, de14=0x060c, de15=0x060e, de16=0x0610, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x001a, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06f00…06f40 DirEnt {filename=»G1«, kind=0x0007, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0007, de0d=0x0000, cluster2=0x001e, de0f=0x1b16, 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=0x0035, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06f40…06f80 DirEnt {filename=»░░1«, kind=0x0001, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000a, de0d=0x0000, cluster2=0x001e, de0f=0x2313, 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=0x0003, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06f80…06fc0 DirEnt {filename=»░░32«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0000, de0d=0x0000, cluster2=0x0019, de0f=0x2804, 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=0x0036, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x06fc0…07000 DirEnt {filename=»░░2«, kind=0x0001, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0003, de0d=0x0000, cluster2=0x001e, de0f=0x2601, 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=0x0039, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x07000…07040 DirEnt {filename=»░░3«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x001e, de0d=0x0000, cluster2=0x0019, de0f=0x2a07, de10=0x2b06, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0029, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x07040…07080 DirEnt {filename=»░░3«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x000a, de0d=0x0000, cluster2=0x0019, de0f=0x2c05, 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=0x0026, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x07080…070c0 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=0x0707, 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}
0x070c0…07100 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x07100…07140 DirEnt {filename=»░░P«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0018, de0d=0x0000, cluster2=0x0019, de0f=0x2610, 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=0x000e, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x07140…07180 DirEnt {filename=»░░«, kind=0x0000, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x001e, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0000, de0d=0x0000, cluster2=0x001e, de0f=0x270f, 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}
0x07180…071c0 DirEnt {filename=»░░0104«, 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=0x0612, 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}
0x071c0…07200 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x07200…07240 DirEnt {filename=»░░«, kind=0x8000, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, cluster=0x0007, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x07240…07280 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0xc000, 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}
0x07280…072c0 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=0x0707, 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}
0x072c0…07300 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x07300…07340 DirEnt {filename=»░░«, kind=0x8000, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, cluster=0x0007, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x07340…07380 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0xc000, 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}
0x07380…073c0 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=0x0707, 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}
0x073c0…07400 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x07400…07440 DirEnt {filename=»░░«, kind=0x8000, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, cluster=0x0007, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x07440…07480 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0xc000, 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}
0x07480…074c0 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=0x0707, 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}
0x074c0…07500 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x07500…07540 DirEnt {filename=»░░«, kind=0x8000, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, cluster=0x0007, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x07540…07580 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0xc000, 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}
0x07580…075c0 DirEnt {filename=»░░UT«, 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}
0x075c0…07600 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x07600…07640 DirEnt {filename=»░░«, kind=0x8000, de04=0xffff, de05=0xffff, de06=0xffff, de07=0xffff, cluster=0x0007, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x07640…07680 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0xc000, 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}
0x07680…076c0 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=0x0707, 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}
0x076c0…07700 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0000, de09=0x0000, de0a=0x0000, de0b=0x0000, nsect=0x0000, de0d=0x0000, cluster2=0x0000, de0f=0x0000, de10=0x0000, de11=0x0000, de12=0x0000, de13=0x0000, de14=0x0000, de15=0x0000, de16=0x0000, de17=0x0000, de18=0x0000, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0000, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x07700…07780 DataSector[»B3«]
[…0xb…]
0x07d00…07d80 DataSector[»MTDP«]
[…0x18…]
0x08980…08a00 DataSector[»B3«]
[…0x7…]
0x08d80…08e00 UnusedSector 0x00[128]
0x08e00…08e80 DataSector[»B4«]
[…0x17…]
0x09a00…09a80 UnusedSector ┆OWORK R0 ; WORKAREA MOV R0 WORKING-C ; =>WORKING.CUR; L1: ; NEXT NAME: MOV CURIN-C R4 ; CURIN.CUR=>SHARE; MON INPARAM ; INPAR┆
0x09a80…09b00 DataSector[»B5«]
[…0x18…]
0x0a700…0a780 DataSector[»B3«]
[…0x3…]
0x0a900…0a980 UnusedSector ┆,WORKING NOLIST $S8MNAX LIST END NAMES END T,BMREET,BMDISP ENTRY OUTTEP,CLEART,WAITIT,INITDE,SETINT,GETINT,INTRPT ENTRY LOCACN,┆
0x0a980…0aa00 UnusedSector 0x00[128]
0x0aa00…0aa80 DataSector[»B5«]
[…0x52…]
0x0d380…0d400 UnusedSector ┆ TZHT31 # 30/10 KV FELT STILLING 1 X D 3 D J $ J ┆
0x0d400…0d480 UnusedSector ┆ C 12 ░ $ 1.11.02.02 $ 1.11.02.03 $ 1.11.02.04 - N - N - ┆
0x0d480…0d500 UnusedSector ┆ N - 3 D 4 # # ┆
0x0d500…0d580 UnusedSector 0x00[128]
[…0x1…]
0x0d600…0d680 UnusedSector ┆ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░┆
0x0d680…0d700 UnusedSector ┆8 5070 D848 5170 4D6C 68A6 0018L 0358 08D8 0558 B768 05E4 68E9 B770 76E4 0020L C016 0C58 0448 0349 9896 82A0 1270 42A6 0028L 00A┆
0x0d700…0d780 UnusedSector ┆6 54A6 4D48 B770 B66E B248 0249 404A 0030L 004B 52A6 014B B768 05C8 B770 53A6 05D8 0038L 4048 0A80 3D48 0980 06D8 54A6 0356 E848┆
0x0d780…0d800 UnusedSector ┆ 0040L 19A6 15C6 1958 61A6 03DE 63BC 01DE 0558 0048L 044A 1A96 1AF2 08D8 1BB2 BA97 40BF 6448 0050L 4769 05A6 0B58 0C58 1A97 13E4┆
0x0d800…0d880 UnusedSector ┆ 907E 1058 0058L 6448 4769 05A6 0458 1A97 11E4 907C 1858 0060L 0958 0000 0000 0000 0000 0000 0000 0000 0068L 0000 0000 0000 0000┆
0x0d880…0d900 UnusedSector ┆ 0000 0000 0000 0000 0070L 0000 0000 0000 0000 0000 0000 0000 0000 0078L 019B 000E 0064 0000 0000 822F 0000 0000 0080L 0000 0064┆
0x0d900…0d980 UnusedSector ┆ 0000 0000 0000 0000 0000 0000 0088L 0000 0000 0000 0000 0000 0000 0000 FFFF 0090L 0000 0000 0000 0000 0000 0000 0000 0000 0098L┆
0x0d980…0da00 UnusedSector ┆ 0000 0000 0000 0000 0000 0000 0000 0000 00A0L 0000 0000 0000 0000 0000 0000 0000 0000 00A8L 0000 0000 0000 0000 0000 0000 0000 ┆
0x0da00…0da80 UnusedSector ┆0000 00B0L 0000 0000 0000 0000 0000 0000 0000 0000 00B8L 0000 822F 822F 00E4 0196 0000 0000 0000 00C0L 0000 0000 0000 0000 0000 ┆
0x0da80…0db00 UnusedSector ┆0000 0000 0000 00C8L 0000 0000 0000 0000 0000 0000 0000 0000 00D0L 0000 0000 0000 0000 0000 0000 0000 0000 00D8L 0000 0000 0000 ┆
0x0db00…0db80 UnusedSector ┆0000 0000 0000 0000 0000 00E0L 0000 0000 0000 0000 0000 0000 0000 0000 00E8L 0000 0000 0000 0000 0000 0000 0000 0000 00F0L 0000 ┆
0x0db80…0dc00 UnusedSector ┆0000 0000 0000 0000 0000 0000 0000 00F8L 0000 0000 0000 0000 0000 0000 0000 0000 0100L 0000 0000 0000 0000 0000 0000 0000 0000 0┆
0x0dc00…0dc80 DataSector[»B3«]
[…0xb…]
0x0e200…0e280 UnusedSector ┆LIST ; DISK TO DISPLAY DATA TRANSFER PROGRAM. ; ; THE PROGRAM IS INTENDED TO BE USED IN CONNECTION TO ; THE CR80 COLOUR DISPLAY┆
0x0e280…0e300 UnusedSector ┆ SYSTEM. ; THE PROGRAM READS DATA FROM FLOPPY DISK FILES AND ; OUTPUTS THE DATA TO A AV24 I/F. WHEN OUTPUT OF DATA ; FROM ONE FI┆
0x0e300…0e380 UnusedSector ┆LE IS FINISHED, THE PROGRAM WILL WAIT 10 ; SEC. BEFORE IT CONTINUES OUTPUTTING THE NEXT FILE. ; WHEN ALL FILES HAVE BEEN OUTPUTT┆
0x0e380…0e400 UnusedSector ┆ED, THE PROGRAM ; WILL START OUTPUTTING THE FIRST FILE AGAIN. ; ; IF THE PROGRAM RECEIVES A X-OFF CHAR. FROM THE ; INTERFACE, IT┆
0x0e400…0e480 UnusedSector ┆ WILL STOP OUTPUT. IT WILL NOT ; CONTINUE UNTIL A X-ON CHAR. IS RECEIVED. ; ; WHEN THE PROGRAM IS LOADED, THE DISK FILES TO ; BE┆
0x0e480…0e500 UnusedSector ┆ OUTPUT MUST BE SPECIFIED IN THE INPUT SHARE. ; ; SYNTAX: DISPLAY <FILENAME> <FILENAME> ... <FILENAME> ; BEGIN MODULE ; NOLIST ┆
0x0e500…0e580 UnusedSector ┆ $DPNAX XPD:= UTILITYLENGTH $SMSXP1 LIST ; ; FILES: 0,REPEAT 20*5 -1 ; ROOM FOR 20 FILENAMES; COUNT: 0 ; NUMBER OF FILENAMES;┆
0x0e580…0e600 UnusedSector ┆ FADDR: 0 ; FILENAME POINTER; OENTRY: 0,REPEAT ENTRYLENGTH-1 ; ENTRY AREA; OWORK: 0,REPEAT WORKLENGTH-1 ; WORKING AREA; DELAY: 0┆
0x0e600…0e680 UnusedSector ┆ ; LINK: 0 ; ; DISPIF= 4 ; DISPLAY INTERFACE MODULE ADDR; XON= #11 ; XOFF= #13 ; BNINRDY= 10 ; INPUT READY BIT; BNOUTRY= 11 ; O┆
0x0e680…0e700 UnusedSector ┆UTPUT READY BIT; USE PROG ; IDP2: DP2 ; ; L0: ; INIT: MOVC FILES R0 ; FILES MOV R0 FADDR ; =>FADDR; MOVC 0 R0 ; 0 MOV R0 ┆
0x0e700…0e780 UnusedSector ┆COUNT ; =>FILECOUNT; MOVC OENTRY R0 ; ENTRYAREA MOV R0 CENTRY-C ; =>ENTRY.CUR; MOVC OWORK R0 ; WORKAREA MOV R0 WORKING-C ; =┆
0x0e780…0e800 UnusedSector ┆>WORKING.CUR; L1: ; NEXT NAME: MOV CURIN-C R4 ; CURIN.CUR=>SHARE; MON INPARAM ; INPARAM(SHARE); JMP L1 ; ERROR: GOTO NEXT NAM┆
0x0e800…0e880 UnusedSector ┆E; JMP L2 ; TERM: GOTO LAST NAME; JMP L1 ; WORD: GOTO NEXT NAME; ; NAME: CONTINUE; ;### MOV FADDR R0 ; FADDR=>ADDR; MODC 5 ┆
0x0e880…0e900 UnusedSector ┆; MOVM X6 X0 ; NAME(0,4)=>ADDR(0,4); MOV R0 FADDR ; ADDR+5=>FADDR; INC COUNT -WORK. X7 ; INCR(FILECOUNT); JMP L1 ; GOTO NEXT┆
0x0e900…0e980 UnusedSector ┆ NAME; ; L2: ; LAST NAME: MOVC DISPIF R0 ; MOVC 3 R1 ; CIO R1 R0 ; ENABLE INTERFACE; SLL R0 2 ; DEVICE<2 MOV R0 DEVPR-C ┆
0x0e980…0ea00 UnusedSector ┆; =>DEVPR.CUR; MON INITDEVICE ; INITDEVICE; MON CLEARINTERRUPT ; CLEARINTERRUPT; ; MON CLOSE ; CLOSE(SHARE); ; L3: ; FIRST ┆
0x0ea00…0ea80 UnusedSector ┆FILE: MOVC FILES-5 R0 ; FILES-5 MOV R0 FADDR ; =>FADDR; MOV COUNT R6 ; FILECOUNT=>COUNT; L4: ; NEXT FILE: MOV R6 COUNT ; COU┆
0x0ea80…0eb00 UnusedSector ┆NT=>FILECOUNT; MOVC CURSLENGTH R0 ; CURSLENGTH=>SIZE; MOVC 2 R1 ; 2=>BUFFERS; MOV FADDR R5 ; RE.NAME ADDC 5 R5 ; +5 MOV R5 ┆
0x0eb00…0eb80 UnusedSector ┆FADDR ; =>RE.NAME; MOV 3. X5 R2 ; IDENT.NAME XTR R2 14 ; (14:0)=>IDENT; INE R2 #0300 ; IF IDENT<>BIN THEN JMP L5 ; GOTO BYTE┆
0x0eb80…0ec00 UnusedSector ┆ FILE; MOVC 64 R2 ; 64=>BUFSIZE; MOVC BMWORD R3 ; WORD=>MODE; MON INIT ; INIT(SHAR); MOVC BMINPUT OR BMWORD R3 ; INPUT OR WO┆
0x0ec00…0ec80 UnusedSector ┆RD=>MODE; MOV FADDR R0 ; FADDR=>RE.NAME; MON OPEN ; OPEN(MODE,NAME,SHARE); JMP DP1 ; ERROR: GOTO EOFACT; MOVC BMEOF R0 ; EOF┆
0x0ec80…0ed00 UnusedSector ┆ MOV R0 STREAT.X4 ; =>TREAT.SHARE; MOVC DP1 R0 ; EOFACT MOV R0 SEOFAN.X4 ; =>EOFACTION.SHARE; JMP BIN ; GOTO BIN; ;### L5: ;┆
0x0ed00…0ed80 UnusedSector ┆ BYTE FILE: MOVC 128 R2 ; 128=>BUFSIZE; MOVC BMBYTE R3 ; BYTE=>MODE; MON INIT ; INIT(SHAR); MOVC BMINPUT OR BMBYTE R3 ; INPU┆
0x0ed80…0ee00 UnusedSector ┆T OR BYTE=>MODE; MOV FADDR R0 ; FADDR=>RE.NAME; MON OPEN ; OPEN(MODE,NAME,SHARE); JMP DP1 ; ERROR: GOTO EOFACT; MOVC BMEOF R┆
0x0ee00…0ee80 UnusedSector ┆0 ; EOF MOV R0 STREAT.X4 ; =>TREAT.SHARE; MOVC DP1 R0 ; EOFACT MOV R0 SEOFAN.X4 ; =>EOFACTION.SHARE; JMP CMD ; GOTO COMMAND ┆
0x0ee80…0ef00 UnusedSector ┆DECODE; ; DP1: ; EOFACT: MON CLOSE ; CLOSE(SHARE); MOVC 10000 R0 ; MOV R0 DELAY ; DXX: ; MOVC 0 R3 ; JMP S5 DP2 ; FILLER; ┆
0x0ef00…0ef80 UnusedSector ┆ MOV DELAY R0 ; ADDC -1 R0 ; MOV R0 DELAY ; JON R0 DXX ; MOV COUNT R6 ; FILECOUNT=>COUNT; SOB R6 L4 ; IF DECR(COUNT)<>0 THE┆
0x0ef80…0f000 UnusedSector ┆N ; GOTO NEXTFILE; JMP L3 ; GOTO FIRST FILE; ; BIN: ; NEXT WORD: MON INCHAR ; INCHAR(SHARE)=>DOUBLE; JMP S5 DP2 ; OUTPUT DO┆
0x0f000…0f080 UnusedSector ┆UBLE(7:0); SWP R3 ; JMP S5 DP2 ; OUTPUT DOUBLE(15:8); JMP BIN ; GOTO NEXT WORD; ; ;### DP2: ; OUTPUT: MOVC DISPIF R2 ; DISP┆
0x0f080…0f100 UnusedSector ┆IF=>DEVICE; SIO R1 R2 ; SENSE(STATUS,DEVICE); IBN R1 BNINRDY ; IF STATUS(INPUT READY) THEN JMP L7 ; READ CHAR; IBNP R1 BNOUT┆
0x0f100…0f180 UnusedSector ┆RDY ; IF STATUS(OUTPUT READY) THEN WIO R3 R2 ; WRITE(CHAR,DEVICE); JMP 0. X5 ; RETURN; MOVC 100 R0 ; 100=>DELAY; MOV INTERRU┆
0x0f180…0f200 UnusedSector ┆PT-C R1 ; MON WAITINTERRUPT ; WAITINTERRUPT; JMP DP2 ; TIMEOUT: GOTO OUTPUT; JMP DP2 ; INTERRUPT: GOTO OUTPUT; ; L7: ; READ ┆
0x0f200…0f280 UnusedSector ┆CHAR: RIO R1 R2 ; READ(CHAR,DEVICE); XTR R1 7 ; INE R1 XOFF ; IF CHAR<>XOFF THEN JMP DP2 ; GOTO OUTPUT; L8: ; WAIT X-ON: MO┆
0x0f280…0f300 UnusedSector ┆VC 100 R0 ; MOV INTERRUPT-C R1 ; MON WAITINTERRUPT ; WAITINTERRUPT(DELAY,INTERRUPT); NOP ; TIMEOUT: IGNORE; SIO R1 R2 ; SENS┆
0x0f300…0f380 UnusedSector ┆E(STATUS,DEVICE); IBZ R1 BNINRDY ; IF NOT STATUS(INPUT READY) THEN JMP L8 ; GOTO WAIT X-ON; RIO R1 R2 ; READ(CHAR,DEVICE); X┆
0x0f380…0f400 UnusedSector ┆TR R1 7 ; IEQ R1 XON ; IF CHAR=X-ON THEN JMP DP2 ; GOTO OUTPUT; JMP L8 ; GOTO WAIT X-ON; ;### ;-----------------------------┆
0x0f400…0f480 UnusedSector ┆----------------------------------------- ; COMMAND SECTION. ;------------------------------------------------------------------┆
0x0f480…0f500 UnusedSector ┆---- GETCOLOUR: ; GET COLOUR: MOV R6 LINK ; SAVE(LINK); GC1: MON INCOMMAND ; INCOMMAND; <:BLACK:> , COL0 ; <:WHITE:> , COL1 ┆
0x0f500…0f580 UnusedSector ┆; <:RED:>,0 , COL2 ; <:MAGENA:> , COL3 ; <:BLUE:>,0 , COL4 ; <:CYAN:>,0 , COL5 ; <:GREEN:> , COL6 ; <:YELLOW:> , COL7 ; 0┆
0x0f580…0f600 UnusedSector ┆ , 0 ; JMP GC1 ; TERM: GOTO GET COLOUR; JMP GC1 ; ERROR: GOTO GET COLOUR; JMP GC1 ; NOT FOUND: GOTO GET COLOUR; ; COL0: MODC┆
0x0f600…0f680 UnusedSector ┆ 0 - 1 ; COL1: MODC 1 - 2 ; COL2: MODC 2 - 3 ; COL3: MODC 3 - 4 ; COL4: MODC 4 - 5 ; COL5: MODC 5 - 6 ; COL6: MODC 6 - 7 ; COL7:┆
0x0f680…0f700 UnusedSector ┆ MOVC 7 + 8 R0 ; COLOUR+NOBLINK=>COLOUR; MON INCHAR ; INCHAR(BLINK); IEQ R3 <:+:> ; IF BLINK THEN ADDC -8 R0 ; COLOUR-NOBLINK┆
0x0f700…0f780 UnusedSector ┆=>COLOUR; INE R3 <:+:> ; MON BACKSPACE ; MOV R0 R3 ; JMPI LINK ; RETURN; GETPOS: ; GETPOSITION: MOV R6 LINK ; SAVE(LINK); ┆
0x0f780…0f800 UnusedSector ┆GP1: MON INWORD ; INWORD(POSITION); JMP GP1 ; ERROR: GOTO GETPOSITION; MOV 0. X6 R3 ; JMP S5 DP2 ; OUTPUT(LINE); GP2: ; GET S┆
0x0f800…0f880 UnusedSector ┆ECOND: MON INWORD ; INWORD(POS); JMP GP2 ; ERROR: GOTO GET SECOND; MOV 0. X6 R3 ; JMP S5 DP2 ; OUTPUT(POS); JMPI LINK ; RET┆
0x0f880…0f900 UnusedSector ┆URN(GETPOSITION); CX1: MODC 1 - 2 ; CX2: MODC 2 - 3 ; CX3: MODC 3 - 4 ; CX4: MODC 4 - 5 ; CX5: MODC 5 - 6 ; CX6: MODC 6 - 11 ;┆
0x0f900…0f980 UnusedSector ┆ CX11: MODC 11 - 16 ; CX16: MODC 16 - 19 ; CX19: MODC 19 - 21 ; CX21: MODC 21 - 22 ; CX22: MODC 22 - 23 ; CX23: MODC 23 - 28 ; C┆
0x0f980…0fa00 UnusedSector ┆X28: MOVC 28 R3 ; 28=>COMMAND; JMP S5 DP2 ; OUTPUT(COMMAND); JMP 0. X6 ; RETURN; ;### CMD: ; NEXT COMMAND; MON INCOMMAND ; IN┆
0x0fa00…0fa80 UnusedSector ┆COMMAND(COMMAND); <:TXT:>,0 , TXT ; <:ECM:>,0 , CMD1 ; <:ETM:>,0 , CMD2 ; <:CUON:>,0 , CMD3 ; <:CUOFF:> , CMD4 ; <:CUCOLR:┆
0x0fa80…0fb00 UnusedSector ┆> , CMD5 ; <:CUPOS:> , CMD6 ; <:INCON:> , CMD7 ; <:INCOFF:> , CMD8 ; <:INCPOS:> , CMD9 ; <:INCLIE:> , CMD10 ; <:DECPOS:> ,┆
0x0fb00…0fb80 UnusedSector ┆ CMD11 ; <:DECLIE:> , CMD12 ; <:RESLIE:> , CMD13 ; <:CUHOME:> , CMD14 ; <:SPLINE:> , CMD15 ; <:REPEAT:> , CMD16 ; <:COLOUR┆
0x0fb80…0fc00 UnusedSector ┆:> , CMD17 ; <:NEWBLK:> , CMD18 ; <:NEWFOT:> , CMD19 ; <:ROLLUP:> , CMD20 ; <:ROLLDN:> , CMD21 ; <:ROLLPT:> , CMD22 ; <:IN┆
0x0fc00…0fc80 UnusedSector ┆VERT:> , CMD23 ; <:RESET:> , CMD25 ; <:SAVE:>,0 , CMD26 ; <:RESTOE:> , CMD27 ; <:GRAPHC:> , CMD28 ; <:EXIT:>,0 , CMD50 ; <┆
0x0fc80…0fd00 UnusedSector ┆:NEXT:>,0 , DP1 ; 0 , 0 ; JMP CMD ; TERM: JMP CMD ; ERROR: JMP CMD ; NOT FOUND: CMD1: MODC 1 - 3 ; ECM; CMD2: MODC 2 - 3 ;┆
0x0fd00…0fd80 UnusedSector ┆ ETM; CMD3: MODC 3 - 4 ; CUON; CMD4: MODC 4 - 7 ; CUOFF; CMD7: MODC 7 - 8 ; INCON; CMD8: MODC 8 - 9 ; INCOFF; CMD9: MODC 9 - 10 ┆
0x0fd80…0fe00 UnusedSector ┆; INCPOS; CMD10: MODC 10 - 11 ; INCLINE; CMD11: MODC 11 - 12 ; DECPOS; CMD12: MODC 12 - 13 ; DECLINE; CMD13: MODC 13 - 14 ; RESL┆
0x0fe00…0fe80 UnusedSector ┆INE; CMD14: MODC 14 - 15 ; CUHOME; CMD15: MODC 15 - 20 ; SPLINE; CMD20: MODC 20 - 21 ; ROLLUP; CMD21: MODC 21 - 25 ; ROLLDOWN; C┆
0x0fe80…0ff00 UnusedSector ┆MD25: MODC 25 - 26 ; RESET; CMD26: MODC 26 - 27 ; SAVE; CMD27: MOVC 27 R3 ; RESTORE; JMP S5 DP2 ; OUTPUT(COMMAND); JMP CMD ; G┆
0x0ff00…0ff80 UnusedSector ┆OTO NEXT COMMAND; ;### TXT: ; OUTPUT TEXT: JMP S6 CX2 ; ENTER TEXT MODE; TXT1: ; MON INCHAR ; INCHAR(CHAR); SEQ R3 <:@:> ; IF┆
0x0ff80…10000 UnusedSector ┆ CHAR = <:@:> OR IEQP R3 NL ; CHAR=NL THEN JMP S6 CX1 ; ENTER COMMAND MODE; JMP CMD ; GOTO NEXT COMMAND; INE R3 <:_:> ; IF C┆
0x10000…10080 DataSector[»MTDP«]
[…0x31…]
0x11900…11980 UnusedSector ┆HAR= _ THEN JMP TXT2 ; BEGIN MON INWORD ; INWORD(CHAR); JMP TXT1 ; ERROR: MOV 0. X6 R3 ; END; TXT2: JMPI S5 IDP2 ; OUTPUT(CH┆
0x11980…11a00 UnusedSector ┆AR); JMP TXT1 ; CMD5: ; CURSOR COLOUR: JMP S6 CX5 ; OUTPUT COMMAND; JMP S6 GETCOLOUR ; OUTPUT(COLOUR); JMPI S5 IDP2 ; OUTPU┆
0x11a00…11a80 UnusedSector ┆T(COLOUR); JMP CMD ; GOTO NEXT COMMAND; CMD6: ; CURSOR POSITION: JMP S6 CX6 ; OUTPOUT COMMAND; JMP S6 GETPOS ; OUTPUT(POSITI┆
0x11a80…11b00 UnusedSector ┆ON); JMP CMD ; GOTO NEXT COMMAND; CMD16: ; REPEAT: JMP S6 CX16 ; OUTPUT COMMAND; C161: ; MON INWORD ; GET COUNT; JMP C161 ;┆
0x11b00…11b80 UnusedSector ┆ ERROR: MOV 0. X6 R3 ; 0.ADDR=>COUNT; JMPI S5 IDP2 ; OUTPUT(COUNT); JMP CMD ; GOTO NEXT COMMAND; CMD17: MODC 17-18 ; NEWCOLO┆
0x11b80…11c00 UnusedSector ┆UR: CMD18: MOVC 18 R3 ; NEWBLINK: JMPI S5 IDP2 ; OUTPUT(COMMAND); JMP S6 GETCOLOUR ; GET FOREGROUND; MOV R3 DELAY ; SAVE(FORE┆
0x11c00…11c80 UnusedSector ┆GROUND); JMP S6 GETCOLOUR ; GET BACKGROUND; SLL R3 4 ; BACKGROUND<8 ADD DELAY R3 ; +FOREGROUND=>COLOUR; JMPI S5 IDP2 ; OUTPU┆
0x11c80…11d00 UnusedSector ┆T(COLOUR); JMP CMD ; GOTO NEXT COMMAND; CMD19: ; NEWFORMAT: JMP S6 CX19 ; OUTPUT(COMMAND); MON INCHAR ; INCHAR(CHAR); INE R┆
0x11d00…11d80 UnusedSector ┆3 <:_:> ; IF CHAR= <:_:> THEN JMP C190 ; BEGIN MON INWORD ; INWORD(CHAR); CLR 0. X6 ; ERROR: 0=>CHAR; MOV 0. X6 R3 ; END; C1┆
0x11d80…11e00 UnusedSector ┆90: JMPI S5 IDP2 ; OUTPUT(CHAR); MOVC 9 R0 ; 9=>COUNT; ;### C191: ; NEXT PART: MOV R0 LINK ; C192: ; MON INWORD ; INWORD(PART┆
0x11e00…11e80 UnusedSector ┆); JMP C192 ; ERROR: MOV 0. X6 R3 ; JMPI S5 IDP2 ; OUTPUT(PART); MOV LINK R0 ; SOB R0 C191 ; IF DECR(COUNT)<>0 THEN ; GOTO┆
0x11e80…11f00 UnusedSector ┆ NEXT PART; JMP CMD ; GOTO NEXT COMMAND; ; CMD22: ; ROLL PART: JMP S6 CX22 ; OUTPUT(COMMAND); C221: ; GET DIRECTION: MON INC┆
0x11f00…11f80 UnusedSector ┆OMMAND ; INCOMMAND(DIRECTION); <:CLEAR:> , ROLL0 ; CLEAR; <:UP:>,0,0 , ROLL1 ; UP; <:DOWN:>,0 , ROLL2 ; DOWN; <:LEFT:>,0 , R┆
0x11f80…12000 UnusedSector ┆OLL3 ; LEFT; <:RIGHT:> , ROLL4 ; RIGHT; 0 , 0 ; JMP C221 ; TERM: JMP C221 ; ERROR: JMP C221 ; NOT FOUND: ; ROLL0: MODC 0-1┆
0x12000…12080 UnusedSector ┆ ; ROLL1: MODC 1-2 ; ROLL2: MODC 2-3 ; ROLL3: MODC 3-4 ; ROLL4: MOVC 4 R3 ; JMPI S5 IDP2 ; OUTPUT(DIRECTION); JMP S6 GETPOS ; ┆
0x12080…12100 UnusedSector ┆OUTPUT(FIRST POSITION); JMP S6 GETPOS ; OUTPUT(SECOND POSITION); JMP CMD ; GOTO NEXT COMMAND; CMD23: ; INVERT: JMP S6 CX23 ;┆
0x12100…12180 UnusedSector ┆ OUTPUT(COMMAND); JMP S6 GETPOS ; OUTPUT(POSITION); JMP CMD ; GOTO NEXT COMMAND; CMD28: ; GRAPHIC MODE: JMP S6 CX28 ; OUTPU┆
0x12180…12200 UnusedSector ┆T(COMMAND); C281: ; MON INCOMMAND ; <:ALPHAM:> , GCMD1 ; <:DISPLY:> , GCMD2 ; <:NEWINC:> , GCMD3 ; <:REPEAT:> , GCMD4 ; <:┆
0x12200…12280 UnusedSector ┆POSITN:> , GCMD5 ; <:COLOUR:> , GCMD6 ; <:INCRET:> , GCMD7 ; <:INCPOS:> , GCMD9 ; <:INCLIE:> , GCMD10 ; <:DECPOS:> , GCMD11┆
0x12280…12300 UnusedSector ┆ ; <:DECLIE:> , GCMD12 ; <:COUNTP:> , GCMD13 ; 0 , 0 ; JMP C281 ; JMP C281 ; JMP C281 ; ;### GCMD3: ; NEWINCREMENT: MODC ┆
0x12300…12380 UnusedSector ┆1 - 2 ; GCMD5: ; POSITION: MOVC 2 R3 ; JMPI S5 IDP2 ; OUTPUT(COMMAND); GC51: MON INWORD ; INWORD(FIRST); JMP GC51 ; ERROR: M┆
0x12380…12400 UnusedSector ┆OV 0. X6 R3 ; JMPI S5 IDP2 ; OUTPUT(FIRST(7:0)); SWP R3 ; JMPI S5 IDP2 ; OUTPUT(FIRST(15:8)); GC52: MON INWORD ; INWORD(SECON┆
0x12400…12480 UnusedSector ┆D); JMP GC52 ; ERROR: MOV 0. X6 R3 ; JMPI S5 IDP2 ; OUTPUT(SECOND(7:0)); SWP R3 ; JMPI S5 IDP2 ; OUTPUT(SECOND(15:8)); JMP┆
0x12480…12500 UnusedSector ┆ C281 ; GOTO NEXT GRAPHIC; GCMD1: ; ENTER ALPHANUM: JMP S6 CX11 ; OUTPUT(COMMAND); JMP CMD ; GOTO NEXT COMMAND; GCMD4: ; REP┆
0x12500…12580 UnusedSector ┆EAT: JMP S6 CX4 ; OUTPUT(COMMAND); GC41: MON INWORD ; INWORD(COUNT); JMP GC41 ; ERROR: MOV 0. X6 R3 ; JMPI S5 IDP2 ; OUTPUT(┆
0x12580…12600 UnusedSector ┆COUNT); JMP C281 ; GOTO NEXT GRAPHIC; GCMD6: ; COLOUR: JMP S6 CX3 ; OUTPUT(COMMAND); JMP S6 GETCOLOUR ; GET COLOUR; JMPI S5┆
0x12600…12680 UnusedSector ┆ IDP2 ; OUTPUT(COLOUR); JMP C281 ; GOTO NEXT GRAPHIC; GCMD0: MODC 2 - 5 ; DISPLAY: GCMD7: MODC 5 - 6 ; INCREMENT: GCMD9: MODC ┆
0x12680…12700 UnusedSector ┆6 - 8 ; INCPOS: GCMD10: MODC 8 - 7 ; INCLINE: GCMD11: MODC 7 - 9 ; DECPOS: GCMD12: MODC 9 - 10 ; DECLINE: GCMD13: MOVC 10 R3 ; C┆
0x12700…12780 UnusedSector ┆OUNTUP: JMPI S5 IDP2 ; OUTPUT(COMMAND); JMP C281 ; GOTO NEXT GRAPHIC; CMD50: ; EXIT: MON ENDPROGRAM ; TRP 0 ; ; XREFS= 1 ┆
0x12780…12800 UnusedSector ┆; XBUFS= 3 ; XPRPC= L0 ; NOLIST $SMSXP2 ; LIST END ;### ; - 9 ; DECPOS: GCMD12: MODC 9 - 10 ; DECLINE: GCMD13: MOVC 10 R3 ; C┆
0x12800…12880 UnusedSector ┆ @ ┆
0x12880…12900 DataSector[»MTDP«]
[…0x24…]
0x13b00…13b80 UnusedSector ┆ <:COUNTP:> , GCMD13 ; 0 , 0 ; JMP C281 ; JMP C281 ; JMP C281 ; ;### GCMD1: ; ALPHANUM: JMP S6 CX1 ; OUTPUT(COMMAND); JMP┆
0x13b80…13c00 UnusedSector ┆ CMD ; GOTO NEXT COMMAND; GCMD2: ; DISPLAY POINT: JMP S6 CX2 ; OUTPUT(COMMAND); JMP C281 ; GOTO NEXT GRAPHIC; GCMD3: ; NEWIN┆
0x13c00…13c80 UnusedSector ┆CREMENT: MODC 3 - 5 ; GCMD5: ; POSITION: MOVC 5 R3 ; JMP S5 DP2 ; OUTPUT(COMMAND); GC51: MON INWORD ; INWORD(FIRST); JMP GC5┆
0x13c80…13d00 UnusedSector ┆1 ; ERROR: MOV 0. X6 R3 ; JMP S5 DP2 ; OUTPUT(FIRST(7:0)); SWP R3 ; JMP S5 DP2 ; OUTPUT(FIRST(15:8)); GC52: MON INWORD ; INW┆
0x13d00…13d80 UnusedSector ┆ORD(SECOND); JMP GC52 ; ERROR: MOV 0. X6 R3 ; JMP S5 DP2 ; OUTPUT(SECOND(7:0)); SWP R3 ; JMP S5 DP2 ; OUTPUT(SECOND(15:8));┆
0x13d80…13e00 UnusedSector ┆ JMP C281 ; GOTO NEXT GRAPHIC; GCMD4: ; REPEAT: JMP S6 CX4 ; OUTPUT(COMMAND); GC41: MON INWORD ; INWORD(COUNT); JMP GC41 ; E┆
0x13e00…13e80 UnusedSector ┆RROR: MOV 0. X6 R3 ; JMP S5 DP2 ; OUTPUT(COUNT); JMP C281 ; GOTO NEXT GRAPHIC; GCMD6: ; COLOUR: JMP S6 CX6 ; OUTPUT(COMMAND┆
0x13e80…13f00 UnusedSector ┆); JMP S6 GETCOLOUR ; OUTPUT(COLOUR); JMP C281 ; GOTO NEXT GRAPHIC; GCMD7: MODC 7 - 9 ; INCREMENT: GCMD9: MODC 9 - 10 ; INCPO┆
0x13f00…13f80 UnusedSector ┆S: GCMD10: MODC 10 - 11 ; INCLINE: GCMD11: MODC 11 - 12 ; DECPOS: GCMD12: MODC 12 - 13 ; DECLINE: GCMD13: MOVC 13 R3 ; COUNTUP: ┆
0x13f80…14000 UnusedSector ┆ JMP S5 DP2 ; OUTPUT(COMMAND); JMP C281 ; GOTO NEXT GRAPHIC; ; XREFS= 1 ; XBUFS= 3 ; XPRPC= L0 ; NOLIST $SMSXP2 ; LIST END ;┆
0x14000…14080 UnusedSector ┆### ; 0: MODC 10 - 11 ; INCLINE: GCMD11: MODC 11 - 12 ; DECPOS: GCMD12: MODC 12 - 13 ; DECLINE: GCMD13: MOVC 13 R3 ; COUNTUP: ┆
0x14080…14100 UnusedSector ┆ENTER COMMAND MODE; JMP CMD ; GOTO NEXT COMMAND; IEQP R3 <:@:> ; IF CHAR= @ THEN MON INWORD ; INWORD(CHAR); JMP TXT1 ; ERROR┆
0x14100…14180 UnusedSector ┆: JMP S5 DP2 ; OUTPUT(CHAR); JMP TXT ; GOTO OUTPUT TEXT; CMD5: ; CURSOR COLOUR: JMP S6 CX5 ; OUTPUT COMMAND; JMP S6 GETCOLO┆
0x14180…14200 UnusedSector ┆LIST ; DISK TO DISPLAY DATA TRANSFER PROGRAM. ; ; THE PROGRAM IS INTENDED TO BE USED IN CONNECTION TO ; THE CR80 COLOUR DISPLAY┆
0x14200…14280 UnusedSector ┆ SYSTEM. ; THE PROGRAM READS DATA FROM FLOPPY DISK FILES AND ; OUTPUTS THE DATA TO A AV24 I/F. WHEN OUTPUT OF DATA ; FROM ONE FI┆
0x14280…14300 UnusedSector ┆LE IS FINISHED, THE PROGRAM WILL WAIT 10 ; SEC. BEFORE IT CONTINUES OUTPUTTING THE NEXT FILE. ; WHEN ALL FILES HAVE BEEN OUTPUTT┆
0x14300…14380 UnusedSector ┆ED, THE PROGRAM ; WILL START OUTPUTTING THE FIRST FILE AGAIN. ; ; IF THE PROGRAM RECEIVES A X-OFF CHAR. FROM THE ; INTERFACE, IT┆
0x14380…14400 UnusedSector ┆ WILL STOP OUTPUT. IT WILL NOT ; CONTINUE UNTIL A X-ON CHAR. IS RECEIVED. ; ; WHEN THE PROGRAM IS LOADED, THE DISK FILES TO ; BE┆
0x14400…14480 UnusedSector ┆ OUTPUT MUST BE SPECIFIED IN THE INPUT SHARE. ; ; SYNTAX: DISPLAY <FILENAME> <FILENAME> ... <FILENAME> ; BEGIN MODULE ; NOLIST ┆
0x14480…14500 UnusedSector ┆ $DPNAX XPD:= UTILITYLENGTH $SMSXP1 LIST ; ; FILES: 0,REPEAT 20*5 -1 ; ROOM FOR 20 FILENAMES; COUNT: 0 ; NUMBER OF FILENAMES;┆
0x14500…14580 UnusedSector ┆ FADDR: 0 ; FILENAME POINTER; OENTRY: 0,REPEAT ENTRYLENGTH-1 ; ENTRY AREA; OWORK: 0,REPEAT WORKLENGTH-1 ; WORKING AREA; DELAY: 0┆
0x14580…14600 UnusedSector ┆ ; LINK: 0 ; ; DISPIF= 4 ; DISPLAY INTERFACE MODULE ADDR; XON= #11 ; XOFF= #13 ; BNINRDY= 10 ; INPUT READY BIT; BNOUTRY= 11 ; O┆
0x14600…14680 UnusedSector ┆UTPUT READY BIT; USE PROG ; IDP2: DP2 ; ; L0: ; INIT: MOVC FILES R0 ; FILES MOV R0 FADDR ; =>FADDR; MOVC 0 R0 ; 0 MOV R0 ┆
0x14680…14700 UnusedSector ┆COUNT ; =>FILECOUNT; MOVC OENTRY R0 ; ENTRYAREA MOV R0 CENTRY-C ; =>ENTRY.CUR; MOVC OWORK R0 ; WORKAREA MOV R0 WORKING-C ; =┆
0x14700…14780 UnusedSector ┆>WORKING.CUR; L1: ; NEXT NAME: MOV CURIN-C R4 ; CURIN.CUR=>SHARE; MON INPARAM ; INPARAM(SHARE); JMP L1 ; ERROR: GOTO NEXT NAM┆
0x14780…14800 UnusedSector ┆E; JMP L2 ; TERM: GOTO LAST NAME; JMP L1 ; WORD: GOTO NEXT NAME; ; NAME: CONTINUE; ;### MOV FADDR R0 ; FADDR=>ADDR; MODC 5 ┆
0x14800…14880 UnusedSector ┆; MOVM X6 X0 ; NAME(0,4)=>ADDR(0,4); MOV R0 FADDR ; ADDR+5=>FADDR; INC COUNT -WORK. X7 ; INCR(FILECOUNT); JMP L1 ; GOTO NEXT┆
0x14880…14900 UnusedSector ┆ NAME; ; L2: ; LAST NAME: MOVC DISPIF R0 ; MOVC 3 R1 ; CIO R1 R0 ; ENABLE INTERFACE; SLL R0 2 ; DEVICE<2 MOV R0 DEVPR-C ┆
0x14900…14980 UnusedSector ┆; =>DEVPR.CUR; MON INITDEVICE ; INITDEVICE; MON CLEARINTERRUPT ; CLEARINTERRUPT; ; MON CLOSE ; CLOSE(SHARE); ; L3: ; FIRST ┆
0x14980…14a00 UnusedSector ┆FILE: MOVC FILES-5 R0 ; FILES-5 MOV R0 FADDR ; =>FADDR; MOV COUNT R6 ; FILECOUNT=>COUNT; L4: ; NEXT FILE: MOV R6 COUNT ; COU┆
0x14a00…14a80 UnusedSector ┆NT=>FILECOUNT; MOVC CURSLENGTH R0 ; CURSLENGTH=>SIZE; MOVC 2 R1 ; 2=>BUFFERS; MOV FADDR R5 ; RE.NAME ADDC 5 R5 ; +5 MOV R5 ┆
0x14a80…14b00 UnusedSector ┆FADDR ; =>RE.NAME; MOV 3. X5 R2 ; IDENT.NAME XTR R2 14 ; (14:0)=>IDENT; INE R2 #0300 ; IF IDENT<>BIN THEN JMP L5 ; GOTO BYTE┆
0x14b00…14b80 UnusedSector ┆ FILE; MOVC 64 R2 ; 64=>BUFSIZE; MOVC BMWORD R3 ; WORD=>MODE; MON INIT ; INIT(SHAR); MOVC BMINPUT OR BMWORD R3 ; INPUT OR WO┆
0x14b80…14c00 UnusedSector ┆RD=>MODE; MOV FADDR R0 ; FADDR=>RE.NAME; MON OPEN ; OPEN(MODE,NAME,SHARE); JMP DP1 ; ERROR: GOTO EOFACT; MOVC BMEOF R0 ; EOF┆
0x14c00…14c80 UnusedSector ┆ MOV R0 STREAT.X4 ; =>TREAT.SHARE; MOVC DP1 R0 ; EOFACT MOV R0 SEOFAN.X4 ; =>EOFACTION.SHARE; JMP BIN ; GOTO BIN; ;### L5: ;┆
0x14c80…14d00 UnusedSector ┆ BYTE FILE: MOVC 128 R2 ; 128=>BUFSIZE; MOVC BMBYTE R3 ; BYTE=>MODE; MON INIT ; INIT(SHAR); MOVC BMINPUT OR BMBYTE R3 ; INPU┆
0x14d00…14d80 UnusedSector ┆T OR BYTE=>MODE; MOV FADDR R0 ; FADDR=>RE.NAME; MON OPEN ; OPEN(MODE,NAME,SHARE); JMP DP1 ; ERROR: GOTO EOFACT; MOVC BMEOF R┆
0x14d80…14e00 UnusedSector ┆0 ; EOF MOV R0 STREAT.X4 ; =>TREAT.SHARE; MOVC DP1 R0 ; EOFACT MOV R0 SEOFAN.X4 ; =>EOFACTION.SHARE; JMP CMD ; GOTO COMMAND ┆
0x14e00…14e80 UnusedSector ┆DECODE; ; DP1: ; EOFACT: MON CLOSE ; CLOSE(SHARE); MOVC 10000 R0 ; MOV R0 DELAY ; DXX: ; MOVC 0 R3 ; JMP S5 DP2 ; FILLER; ┆
0x14e80…14f00 UnusedSector ┆ MOV DELAY R0 ; ADDC -1 R0 ; MOV R0 DELAY ; JON R0 DXX ; MOV COUNT R6 ; FILECOUNT=>COUNT; SOB R6 L4 ; IF DECR(COUNT)<>0 THE┆
0x14f00…14f80 UnusedSector ┆N ; GOTO NEXTFILE; JMP L3 ; GOTO FIRST FILE; ; BIN: ; NEXT WORD: MON INCHAR ; INCHAR(SHARE)=>DOUBLE; JMP S5 DP2 ; OUTPUT DO┆
0x14f80…15000 UnusedSector ┆UBLE(7:0); SWP R3 ; JMP S5 DP2 ; OUTPUT DOUBLE(15:8); JMP BIN ; GOTO NEXT WORD; ; ;### DP2: ; OUTPUT: MOVC DISPIF R2 ; DISP┆
0x15000…15080 UnusedSector ┆IF=>DEVICE; SIO R1 R2 ; SENSE(STATUS,DEVICE); IBN R1 BNINRDY ; IF STATUS(INPUT READY) THEN JMP L7 ; READ CHAR; IBNP R1 BNOUT┆
0x15080…15100 UnusedSector ┆RDY ; IF STATUS(OUTPUT READY) THEN WIO R3 R2 ; WRITE(CHAR,DEVICE); JMP 0. X5 ; RETURN; MOVC 100 R0 ; 100=>DELAY; MOV INTERRU┆
0x15100…15180 UnusedSector ┆PT-C R1 ; MON WAITINTERRUPT ; WAITINTERRUPT; JMP DP2 ; TIMEOUT: GOTO OUTPUT; JMP DP2 ; INTERRUPT: GOTO OUTPUT; ; L7: ; READ ┆
0x15180…15200 UnusedSector ┆CHAR: RIO R1 R2 ; READ(CHAR,DEVICE); XTR R1 7 ; INE R1 XOFF ; IF CHAR<>XOFF THEN JMP DP2 ; GOTO OUTPUT; L8: ; WAIT X-ON: MO┆
0x15200…15280 UnusedSector ┆VC 100 R0 ; MOV INTERRUPT-C R1 ; MON WAITINTERRUPT ; WAITINTERRUPT(DELAY,INTERRUPT); NOP ; TIMEOUT: IGNORE; SIO R1 R2 ; SENS┆
0x15280…15300 UnusedSector ┆E(STATUS,DEVICE); IBZ R1 BNINRDY ; IF NOT STATUS(INPUT READY) THEN JMP L8 ; GOTO WAIT X-ON; RIO R1 R2 ; READ(CHAR,DEVICE); X┆
0x15300…15380 UnusedSector ┆TR R1 7 ; IEQ R1 XON ; IF CHAR=X-ON THEN JMP DP2 ; GOTO OUTPUT; JMP L8 ; GOTO WAIT X-ON; ;### ;-----------------------------┆
0x15380…15400 UnusedSector ┆----------------------------------------- ; COMMAND SECTION. ;------------------------------------------------------------------┆
0x15400…15480 UnusedSector ┆---- GETCOLOUR: ; GET COLOUR: MOV R6 LINK ; SAVE(LINK); GC1: MON INCOMMAND ; INCOMMAND; <:BLACK:> , COL0 ; <:WHITE:> , COL1 ┆
0x15480…15500 UnusedSector ┆; <:RED:>,0 , COL2 ; <:MAGENA:> , COL3 ; <:BLUE:>,0 , COL4 ; <:CYAN:>,0 , COL5 ; <:GREEN:> , COL6 ; <:YELLOW:> , COL7 ; 0┆
0x15500…15580 UnusedSector ┆ , 0 ; JMP GC1 ; TERM: GOTO GET COLOUR; JMP GC1 ; ERROR: GOTO GET COLOUR; JMP GC1 ; NOT FOUND: GOTO GET COLOUR; ; COL0: MODC┆
0x15580…15600 UnusedSector ┆ 0 - 1 ; COL1: MODC 1 - 2 ; COL2: MODC 2 - 3 ; COL3: MODC 3 - 4 ; COL4: MODC 4 - 5 ; COL5: MODC 5 - 6 ; COL6: MODC 6 - 7 ; COL7:┆
0x15600…15680 UnusedSector ┆ MOVC 7 + 8 R0 ; COLOUR+NOBLINK=>COLOUR; MON INCHAR ; INCHAR(BLINK); IEQ R3 <:+:> ; IF BLINK THEN ADDC -8 R0 ; COLOUR-NOBLINK┆
0x15680…15700 UnusedSector ┆=>COLOUR; INE R3 <:+:> ; MON BACKSPACE ; MOV R0 R3 ; JMPI LINK ; RETURN; GETPOS: ; GETPOSITION: MOV R6 LINK ; SAVE(LINK); ┆
0x15700…15780 UnusedSector ┆GP1: MON INWORD ; INWORD(POSITION); JMP GP1 ; ERROR: GOTO GETPOSITION; MOV 0. X6 R3 ; JMP S5 DP2 ; OUTPUT(LINE); GP2: ; GET S┆
0x15780…15800 UnusedSector ┆ECOND: MON INWORD ; INWORD(POS); JMP GP2 ; ERROR: GOTO GET SECOND; MOV 0. X6 R3 ; JMP S5 DP2 ; OUTPUT(POS); JMPI LINK ; RET┆
0x15800…15880 UnusedSector ┆URN(GETPOSITION); CX1: MODC 1 - 2 ; CX2: MODC 2 - 3 ; CX3: MODC 3 - 4 ; CX4: MODC 4 - 5 ; CX5: MODC 5 - 6 ; CX6: MODC 6 - 11 ;┆
0x15880…15900 UnusedSector ┆ CX11: MODC 11 - 16 ; CX16: MODC 16 - 19 ; CX19: MODC 19 - 21 ; CX21: MODC 21 - 22 ; CX22: MODC 22 - 23 ; CX23: MODC 23 - 28 ; C┆
0x15900…15980 UnusedSector ┆X28: MOVC 28 R3 ; 28=>COMMAND; JMP S5 DP2 ; OUTPUT(COMMAND); JMP 0. X6 ; RETURN; ;### CMD: ; NEXT COMMAND; MON INCOMMAND ; IN┆
0x15980…15a00 UnusedSector ┆COMMAND(COMMAND); <:TXT:>,0 , TXT ; <:ECM:>,0 , CMD1 ; <:ETM:>,0 , CMD2 ; <:CUON:>,0 , CMD3 ; <:CUOFF:> , CMD4 ; <:CUCOLR:┆
0x15a00…15a80 UnusedSector ┆> , CMD5 ; <:CUPOS:> , CMD6 ; <:INCON:> , CMD7 ; <:INCOFF:> , CMD8 ; <:INCPOS:> , CMD9 ; <:INCLIE:> , CMD10 ; <:DECPOS:> ,┆
0x15a80…15b00 UnusedSector ┆ CMD11 ; <:DECLIE:> , CMD12 ; <:RESLIE:> , CMD13 ; <:CUHOME:> , CMD14 ; <:SPLINE:> , CMD15 ; <:REPEAT:> , CMD16 ; <:COLOUR┆
0x15b00…15b80 UnusedSector ┆:> , CMD17 ; <:NEWBLK:> , CMD18 ; <:NEWFOT:> , CMD19 ; <:ROLLUP:> , CMD20 ; <:ROLLDN:> , CMD21 ; <:ROLLPT:> , CMD22 ; <:IN┆
0x15b80…15c00 UnusedSector ┆VERT:> , CMD23 ; <:RESET:> , CMD25 ; <:SAVE:>,0 , CMD26 ; <:RESTOE:> , CMD27 ; <:GRAPHC:> , CMD28 ; <:EXIT:>,0 , CMD50 ; <┆
0x15c00…15c80 UnusedSector ┆:NEXT:>,0 , DP1 ; 0 , 0 ; JMP CMD ; TERM: JMP CMD ; ERROR: JMP CMD ; NOT FOUND: CMD1: MODC 1 - 3 ; ECM; CMD2: MODC 2 - 3 ;┆
0x15c80…15d00 UnusedSector ┆ ETM; CMD3: MODC 3 - 4 ; CUON; CMD4: MODC 4 - 7 ; CUOFF; CMD7: MODC 7 - 8 ; INCON; CMD8: MODC 8 - 9 ; INCOFF; CMD9: MODC 9 - 10 ┆
0x15d00…15d80 UnusedSector ┆; INCPOS; CMD10: MODC 10 - 11 ; INCLINE; CMD11: MODC 11 - 12 ; DECPOS; CMD12: MODC 12 - 13 ; DECLINE; CMD13: MODC 13 - 14 ; RESL┆
0x15d80…15e00 UnusedSector ┆INE; CMD14: MODC 14 - 15 ; CUHOME; CMD15: MODC 15 - 20 ; SPLINE; CMD20: MODC 20 - 21 ; ROLLUP; CMD21: MODC 21 - 25 ; ROLLDOWN; C┆
0x15e00…15e80 UnusedSector ┆MD25: MODC 25 - 26 ; RESET; CMD26: MODC 26 - 27 ; SAVE; CMD27: MOVC 27 R3 ; RESTORE; JMP S5 DP2 ; OUTPUT(COMMAND); JMP CMD ; G┆
0x15e80…15f00 UnusedSector ┆OTO NEXT COMMAND; ;### TXT: ; OUTPUT TEXT: JMP S6 CX2 ; ENTER TEXT MODE; TXT1: ; MON INCHAR ; INCHAR(CHAR); SEQ R3 <:@:> ; IF┆
0x15f00…15f80 UnusedSector ┆ CHAR = <:@:> OR IEQP R3 NL ; CHAR=NL THEN JMP S6 CX1 ; ENTER COMMAND MODE; JMP CMD ; GOTO NEXT COMMAND; INE R3 <:_:> ; IF C┆
0x15f80…16000 UnusedSector ┆1A4 01A4 01A4 05A4 01A4 04A4 0150L 01A4 01A4 1B4B F45E 8A58 61A6 BA7C 8D58 0158L F95E 0558 985F DC5F 9258 9A5F A75F 9558 0160L 0┆
0x16000…16080 UnusedSector ┆0BE 7CA6 0258 6BFB FE56 FADE 9C58 01A4 0168L 124B FE56 F5DE EC5F ED5F A358 00BE 0948 0170L E570 7CA6 0258 FE56 EBDE E568 06C0 AD┆
0x16080…16100 UnusedSector ┆58 0178L B35F 86A6 4C43 4145 0052 0193 5055 0000 0180L 0000 0194 4F44 4E57 0000 0195 454C 5446 0188L 0000 0196 4952 4847 0054 01┆
0x16100…16180 UnusedSector ┆97 0000 0000 0190L 1858 1958 1A58 01A4 01A4 01A4 01A4 044B 0198L FE56 C6DE E35F E45F D258 D75F E75F D558 01A0L D95F 86A6 4C41 41┆
0x16180…16200 UnusedSector ┆46 4D4E 01D7 4944 5053 01A8L 594C 01DA 454E 4957 434E 01DD 4552 4550 01B0L 5441 01F0 4F50 4953 4E54 01DE 4F43 4F4C 01B8L 5255 01┆
0x16200…16280 UnusedSector ┆F7 464F 5346 5445 01FC 4E49 5043 01C0L 534F 00BE 4E49 4C43 4549 01FD 4544 5043 01C8L 534F 01FE 4544 4C43 4549 01FF 4F43 4E55 01D┆
0x16280…16300 UnusedSector ┆0L 5054 0201 0000 0000 3458 3558 3658 FE56 01D8L E7DF 0F59 FE56 E5DF 3C58 00BE 054B FE56 01E0L 7FDE 7CA6 0258 FE56 7BDE 63BC FE5┆
0x16300…16380 UnusedSector ┆6 78DE 01E8L 7CA6 0258 FE56 74DE 63BC FE56 71DE 4F58 01F0L FE56 D0DF 7CA6 00BE FE56 6ADE 5658 FE56 01F8L CBDF FE56 85DF 5B58 02A┆
0x16380…16400 UnusedSector ┆4 01A4 01A4 01A4 0200L 01A4 0D4B FE56 5CDE 6458 0000 0000 0000 0208L 0000 0000 0000 0000 0000 0000 0000 0000 0210L 0000 0000 000┆
0x16400…16480 UnusedSector ┆0 0000 0000 0000 0000 0000 0218L 0000 0000 0000 0000 019D 000E 0064 0000 0220L 0000 822F 0000 0000 0000 0064 0000 0000 0228L 000┆
0x16480…16500 UnusedSector ┆ ┆
[…0x9…]
0x16980…16a00 UnusedSector ┆LIST BEGIN MODULE NOLIST ECM= 1 ETM= 2 CUON= 3 CUOFF= 4 CUCOLOUR= 5 CUPOS= 6 INCON= 7 INCOFF= 8 INCPOS= 9 INCLINE= 10 DECPOS= 11┆
0x16a00…16a80 UnusedSector ┆ DECLINE= 12 RESLINE= 13 CUHOME= 14 SPLINE= 15 REPT= 16 NEWCOLOUR= 17 NEWBLINK= 18 NEWFORMAT= 19 ROLLUP= 20 ROLLDOWN= 21 ROLLPAR┆
0x16a80…16b00 UnusedSector ┆T= 22, CLEAR= 0, UP= 1, DOWN= 2, LEFT= 3, RIGHT= 4 INVERT= 23 STARTHC= 24 RESET= 25 SAVE= 26 RESTORE= 27 GRAPHIC= 28 GDISPLAY= ┆
0x16b00…16b80 UnusedSector ┆0 GNEWINC= 1 GPOSITION= 2 GCOLOUR= 3 GREPEAT= 4 GINC= 5 GINCPOS= 6 GDECPOS= 7 GINCLINE= 8 GDECLINE= 9 GCOUNTUP= 10 GALFANUM= 11 ┆
0x16b80…16c00 UnusedSector ┆ BLACK= 0 WHITE= 1 READ= 2 MAGENTA= 3 BLUE= 4 CYAN= 5 GREEN= 6 YELLOW= 7 NOBLINK= 8 LIST GALFANUM RESET CUOFF GRAPHIC + GNEWINC<┆
0x16c00…16c80 UnusedSector ┆8, 0+1<8, 0+1<8 GCOLOUR+(BLUE+NOBLINK)<8 GREPEAT+#FF<8, REPEAT 45 GPOSITION<8, 0,3<8 GCOLOUR+(WHITE+NOBLINK)<8 GREPEAT+#FF<8, RE┆
0x16c80…16d00 UnusedSector ┆PEAT 45 GPOSITION<8 , 0,6<8 GCOLOUR+(YELLOW+NOBLINK)<8 GREPEAT+#FF<8, REPEAT 45 GPOSITION<8, 0,9<8 GCOLOUR+(GREEN+NOBLINK)<8 GRE┆
0x16d00…16d80 UnusedSector ┆PEAT+#FF<8, REPEAT 45 GPOSITION<8, 0,12<8 GCOLOUR+(READ+NOBLINK)<8 GREPEAT+#FF<8, REPEAT 45 GALFANUM END K)<8 GREPEAT+#FF<8, RE┆
0x16d80…16e00 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░ ┆
0x16e00…16e80 UnusedSector ┆ 6 9PyT Hy░ C V T░B░ C C ░ C V 9V 8V 2░ C zy░ <C J ░$ U ░ ░B░! z░ C z┆
0x16e80…16f00 UnusedSector ┆░ C 6 ░CY ░ ░ Y Z ░ 8 yX ░ y░! y░ C 0 V X░ <C J ░$ ^ ░ C ░ 6 9 yr y░ 6 9 y┆
0x16f00…16f80 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┆
0x16f80…17000 UnusedSector ┆░B░ <C J ░$ s ░ 'C ░B░ <C z░ <C J ░$ x ░B░ <C J ░$ { ░B░ 6 ░C ░ ░ ░ 8-z ░ >z░! z░ C┆
0x17000…17080 UnusedSector ┆j TC 6 9Nz cz░ C j TC 6 9 z cz░ y C z░ <C J ░$ ░ C ░ y C ░BV ┆
0x17080…17100 UnusedSector ┆ V ░ <C J ░$ ░BV ░ 0C 6C ░ 6C 6 ░C ░ ░ ░ 0C 8 z ░ z░! z░ C V ░ 0C┆
0x17100…17180 UnusedSector ┆6C ░ 6 ░C ░ ░ ░ 8 z ░ z░! z░ C C C ░ C C V ░ (C(C ┆
0x17180…17200 UnusedSector ┆░ aC (C $ ░ 1C (C # ░ (C {V T░ CC G{░ #C H ░ 1C H ░ 2C t ░ 0 ke H ░ H ░ CC ┆
0x17200…17280 UnusedSector ┆H ░ d V ░ ░ NC r{░ #C H ░ 1C H ░ 2C t ░ 0 kR H ░ H ░ NC H ░ V ░ V V ░ ░ !C {░ &C ┆
0x17280…17300 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 ┆
0x17300…17380 UnusedSector ┆ j )C & V f░ (C (C ' V ░ ░ !C {░ &C {V hV $V ░ !C j )C ( ┆
0x17380…17400 UnusedSector ┆LIST ; DISK TO DISPLAY DATA TRANSFER PROGRAM. ; ; THE PROGRAM IS INTENDED TO BE USED IN CONNECTION TO ; THE CR80 COLOUR DISPLAY┆
0x17400…17480 UnusedSector ┆ SYSTEM. ; THE PROGRAM READS DATA FROM FLOPPY DISK FILES AND ; OUTPUTS THE DATA TO A AV24 I/F. WHEN OUTPUT OF DATA ; FROM ONE FI┆
0x17480…17500 UnusedSector ┆LE IS FINISHED, THE PROGRAM WILL WAIT 10 ; SEC. BEFORE IT CONTINUES OUTPUTTING THE NEXT FILE. ; WHEN ALL FILES HAVE BEEN OUTPUTT┆
0x17500…17580 UnusedSector ┆ED, THE PROGRAM ; WILL START OUTPUTTING THE FIRST FILE AGAIN. ; ; IF THE PROGRAM RECEIVES A X-OFF CHAR. FROM THE ; INTERFACE, IT┆
0x17580…17600 UnusedSector ┆ WILL STOP OUTPUT. IT WILL NOT ; CONTINUE UNTIL A X-ON CHAR. IS RECEIVED. ; ; WHEN THE PROGRAM IS LOADED, THE DISK FILES TO ; BE┆
0x17600…17680 UnusedSector ┆ OUTPUT MUST BE SPECIFIED IN THE INPUT SHARE. ; ; SYNTAX: DISPLAY <FILENAME> <FILENAME> ... <FILENAME> ; BEGIN MODULE ; NOLIST ┆
0x17680…17700 UnusedSector ┆ $DPNAX XPD:= UTILITYLENGTH $SMSXP1 LIST ; ; FILES: 0,REPEAT 20*5 -1 ; ROOM FOR 20 FILENAMES; COUNT: 0 ; NUMBER OF FILENAMES;┆
0x17700…17780 UnusedSector ┆ FADDR: 0 ; FILENAME POINTER; OENTRY: 0,REPEAT ENTRYLENGTH-1 ; ENTRY AREA; OWORK: 0,REPEAT WORKLENGTH-1 ; WORKING AREA; ; DISPI┆
0x17780…17800 UnusedSector ┆F= 4 ; DISPLAY INTERFACE MODULE ADDR; XON= #11 ; XOFF= #13 ; BNINRDY= 10 ; INPUT READY BIT; BNOUTRY= 11 ; OUTPUT READY BIT; US┆
0x17800…17880 UnusedSector ┆E PROG ; ; L0: ; INIT: MOVC FILES R0 ; FILES MOV R0 FADDR ; =>FADDR; MOVC 0 R0 ; 0 MOV R0 COUNT ; =>FILECOUNT; MOVC OENTRY┆
0x17880…17900 UnusedSector ┆HAR= _ THEN JMP TXT2 ; BEGIN MON INWORD ; INWORD(CHAR); JMP TXT1 ; ERROR: MOV 0. X6 R3 ; END; TXT2: JMPI S5 IDP2 ; OUTPUT(CH┆
0x17900…17980 UnusedSector ┆AR); JMP TXT1 ; CMD5: ; CURSOR COLOUR: JMP S6 CX5 ; OUTPUT COMMAND; JMP S6 GETCOLOUR ; OUTPUT(COLOUR); JMPI S5 IDP2 ; OUTPU┆
0x17980…17a00 UnusedSector ┆T(COLOUR); JMP CMD ; GOTO NEXT COMMAND; CMD6: ; CURSOR POSITION: JMP S6 CX6 ; OUTPOUT COMMAND; JMP S6 GETPOS ; OUTPUT(POSITI┆
0x17a00…17a80 UnusedSector ┆ON); JMP CMD ; GOTO NEXT COMMAND; CMD16: ; REPEAT: JMP S6 CX16 ; OUTPUT COMMAND; C161: ; MON INWORD ; GET COUNT; JMP C161 ;┆
0x17a80…17b00 UnusedSector ┆ ERROR: MOV 0. X6 R3 ; 0.ADDR=>COUNT; JMPI S5 IDP2 ; OUTPUT(COUNT); JMP CMD ; GOTO NEXT COMMAND; CMD17: MODC 17-18 ; NEWCOLO┆
0x17b00…17b80 UnusedSector ┆UR: CMD18: MOVC 18 R3 ; NEWBLINK: JMPI S5 IDP2 ; OUTPUT(COMMAND); JMP S6 GETCOLOUR ; GET FOREGROUND; MOV R3 DELAY ; SAVE(FORE┆
0x17b80…17c00 UnusedSector ┆GROUND); JMP S6 GETCOLOUR ; GET BACKGROUND; SLL R3 4 ; BACKGROUND<8 ADD DELAY R3 ; +FOREGROUND=>COLOUR; JMPI S5 IDP2 ; OUTPU┆
0x17c00…17c80 UnusedSector ┆T(COLOUR); JMP CMD ; GOTO NEXT COMMAND; CMD19: ; NEWFORMAT: JMP S6 CX19 ; OUTPUT(COMMAND); MON INCHAR ; INCHAR(CHAR); INE R┆
0x17c80…17d00 UnusedSector ┆3 <:_:> ; IF CHAR= <:_:> THEN JMP C190 ; BEGIN MON INWORD ; INWORD(CHAR); CLR 0. X6 ; ERROR: 0=>CHAR; MOV 0. X6 R3 ; END; C1┆
0x17d00…17d80 UnusedSector ┆90: JMPI S5 IDP2 ; OUTPUT(CHAR); MOVC 9 R0 ; 9=>COUNT; ;### C191: ; NEXT PART: MOV R0 LINK ; C192: ; MON INWORD ; INWORD(PART┆
0x17d80…17e00 UnusedSector ┆); JMP C192 ; ERROR: MOV 0. X6 R3 ; JMPI S5 IDP2 ; OUTPUT(PART); MOV LINK R0 ; SOB R0 C191 ; IF DECR(COUNT)<>0 THEN ; GOTO┆
0x17e00…17e80 UnusedSector ┆ NEXT PART; JMP CMD ; GOTO NEXT COMMAND; ; CMD22: ; ROLL PART: JMP S6 CX22 ; OUTPUT(COMMAND); C221: ; GET DIRECTION: MON INC┆
0x17e80…17f00 UnusedSector ┆OMMAND ; INCOMMAND(DIRECTION); <:CLEAR:> , ROLL0 ; CLEAR; <:UP:>,0,0 , ROLL1 ; UP; <:DOWN:>,0 , ROLL2 ; DOWN; <:LEFT:>,0 , R┆
0x17f00…17f80 UnusedSector ┆OLL3 ; LEFT; <:RIGHT:> , ROLL4 ; RIGHT; 0 , 0 ; JMP C221 ; TERM: JMP C221 ; ERROR: JMP C221 ; NOT FOUND: ; ROLL0: MODC 0-1┆
0x17f80…18000 UnusedSector ┆ ; ROLL1: MODC 1-2 ; ROLL2: MODC 2-3 ; ROLL3: MODC 3-4 ; ROLL4: MOVC 4 R3 ; JMPI S5 IDP2 ; OUTPUT(DIRECTION); JMP S6 GETPOS ; ┆
0x18000…18080 UnusedSector ┆OUTPUT(FIRST POSITION); JMP S6 GETPOS ; OUTPUT(SECOND POSITION); JMP CMD ; GOTO NEXT COMMAND; CMD23: ; INVERT: JMP S6 CX23 ;┆
0x18080…18100 UnusedSector ┆ OUTPUT(COMMAND); JMP S6 GETPOS ; OUTPUT(POSITION); JMP CMD ; GOTO NEXT COMMAND; CMD28: ; GRAPHIC MODE: JMP S6 CX28 ; OUTPU┆
0x18100…18180 UnusedSector ┆T(COMMAND); C281: ; MON INCOMMAND ; <:ALPHAM:> , GCMD1 ; <:DISPLY:> , GCMD2 ; <:NEWINC:> , GCMD3 ; <:REPEAT:> , GCMD4 ; <:┆
0x18180…18200 UnusedSector ┆POSITN:> , GCMD5 ; <:COLOUR:> , GCMD6 ; <:INCRET:> , GCMD7 ; <:INCPOS:> , GCMD9 ; <:INCLIE:> , GCMD10 ; <:DECPOS:> , GCMD11┆
0x18200…18280 UnusedSector ┆ ; <:DECLIE:> , GCMD12 ; <:COUNTP:> , GCMD13 ; 0 , 0 ; JMP C281 ; JMP C281 ; JMP C281 ; ;### GCMD3: ; NEWINCREMENT: MODC ┆
0x18280…18300 UnusedSector ┆1 - 2 ; GCMD5: ; POSITION: MOVC 2 R3 ; JMPI S5 IDP2 ; OUTPUT(COMMAND); GC51: MON INWORD ; INWORD(FIRST); JMP GC51 ; ERROR: M┆
0x18300…18380 UnusedSector ┆OV 0. X6 R3 ; SRL R3 6 ; JMPI S5 IDP2 ; OUTPUT(FIRST(7:0)); MOV 0. X6 R3 ; XTR R3 6 ; JMPI S5 IDP2 ; OUTPUT(FIRST(15:8)); G┆
0x18380…18400 UnusedSector ┆C52: MON INWORD ; INWORD(SECOND); JMP GC52 ; ERROR: MOV 0. X6 R3 ; SRL R3 6 ; JMPI S5 IDP2 ; OUTPUT(SECOND(7:0)); MOV 0. X6┆
0x18400…18480 UnusedSector ┆ R3 ; XTR R3 6 ; JMPI S5 IDP2 ; OUTPUT(SECOND(15:8)); JMP C281 ; GOTO NEXT GRAPHIC; GCMD1: ; ENTER ALPHANUM: JMP S6 CX11 ; ┆
0x18480…18500 UnusedSector ┆OUTPUT(COMMAND); JMP CMD ; GOTO NEXT COMMAND; GCMD4: ; REPEAT: JMP S6 CX4 ; OUTPUT(COMMAND); GC41: MON INWORD ; INWORD(COUNT)┆
0x18500…18580 UnusedSector ┆; JMP GC41 ; ERROR: MOV 0. X6 R3 ; JMPI S5 IDP2 ; OUTPUT(COUNT); JMP C281 ; GOTO NEXT GRAPHIC; GCMD6: ; COLOUR: JMP S6 CX3┆
0x18580…18600 UnusedSector ┆ ; OUTPUT(COMMAND); JMP S6 GETCOLOUR ; GET COLOUR; JMPI S5 IDP2 ; OUTPUT(COLOUR); JMP C281 ; GOTO NEXT GRAPHIC; GCMD2: MODC ┆
0x18600…18680 UnusedSector ┆0 - 5 ; DISPLAY: GCMD7: MODC 5 - 6 ; INCREMENT: GCMD9: MODC 6 - 8 ; INCPOS: GCMD10: MODC 8 - 7 ; INCLINE: GCMD11: MODC 7 - 9 ; D┆
0x18680…18700 UnusedSector ┆ECPOS: GCMD12: MODC 9 - 10 ; DECLINE: GCMD13: MOVC 10 R3 ; COUNTUP: JMPI S5 IDP2 ; OUTPUT(COMMAND); JMP C281 ; GOTO NEXT GRAPH┆
0x18700…18780 UnusedSector ┆IC; CMD50: ; EXIT: MON ENDPROGRAM ; TRP 0 ; ; XREFS= 1 ; XBUFS= 3 ; XPRPC= L0 ; NOLIST $SMSXP2 ; LIST END ;### ; - 9 ; D┆
0x18780…18800 UnusedSector ┆Xv K ^ X a| X ^ X _ _ X _ _ X |X kV X K V _ _ X H p |X V h X _ CLEAR UP ┆
0x18800…18880 UnusedSector ┆ DOWN LEFT RIGHT X X X K V _ _ X _ _ X _ ALFANM DISPLY NEWINC REPEAT POSITN COLOUR OFFSET INCP┆
0x18880…18900 UnusedSector ┆OS INCLIE DECPOS DECLIE░ COUNTP X4X5X6V Y V X< K V |X V { cV x |X V t cV qXOV | V jXVV V X[ ┆
0x18900…18980 UnusedSector ┆ K V \Xd d / d ░░ ┆
0x18980…18a00 UnusedSector ┆ / / ┆
0x18a00…18a80 UnusedSector 0x00[128]
[…0x4…]
0x18c80…18d00 UnusedSector ┆ 1 ┆
0x18d00…18d80 UnusedSector ┆ 2 ┆
0x18d80…18e00 UnusedSector ┆ 3 ┆
0x18e00…18e80 UnusedSector ┆ 4 ┆
0x18e80…18f00 UnusedSector ┆ 5 ┆
0x18f00…18f80 UnusedSector ┆ 6 ┆
0x18f80…19000 UnusedSector ┆ 7 ┆
0x19000…19080 UnusedSector ┆ 8 ┆
0x19080…19100 UnusedSector ┆ 9 : ┆
0x19100…19180 UnusedSector ┆ ; ┆
0x19180…19200 UnusedSector ┆ < ┆
0x19200…19280 UnusedSector ┆ = ┆
0x19280…19300 UnusedSector ┆ > ┆
0x19300…19380 UnusedSector ┆ ? ┆
0x19380…19400 UnusedSector ┆ @ ┆
0x19400…19480 UnusedSector ┆ A ┆
0x19480…19500 UnusedSector ┆ B ┆
0x19500…19580 UnusedSector ┆ C ┆
0x19580…19600 UnusedSector ┆ D ┆
0x19600…19680 UnusedSector ┆ E 7 DA┆
0x19680…19700 UnusedSector ┆TO 1978.10.23 KL 11.28 ┆
0x19700…19780 UnusedSector 0x00[128]
[…0x2…]
0x19880…19900 UnusedSector ┆ ┆
[…0x4…]
0x19b00…19b80 UnusedSector ┆ ! ┆
0x19b80…19c00 UnusedSector ┆LIST ; COUNTUP DATA DISPLAY BEGIN MODULE NOLIST ECM= 1 ETM= 2 CUON= 3 CUOFF= 4 CUCOLOUR= 5 CUPOS= 6 INCON= 7 INCOFF= 8 INCPOS= 9┆
0x19c00…19c80 UnusedSector ┆ INCLINE= 10 DECPOS= 11 DECLINE= 12 RESLINE= 13 CUHOME= 14 SPLINE= 15 REPT= 16 NEWCOLOUR= 17 NEWBLINK= 18 NEWFORMAT= 19 ROLLUP= ┆
0x19c80…19d00 UnusedSector ┆20 ROLLDOWN= 21 ROLLPART= 22, CLEAR= 0, UP= 1, DOWN= 2, LEFT= 3, RIGHT= 4 INVERT= 23 STARTHC= 24 RESET= 25 SAVE= 26 RESTORE= 27 ┆
0x19d00…19d80 UnusedSector ┆GRAPHIC= 28 GDISPLAY= 0 GNEWINC= 1 GPOSITION= 2 GCOLOUR= 3 GREPEAT= 4 GINC= 5 GINCPOS= 6 GDECPOS= 7 GINCLINE= 8 GDECLINE= 9 GCO┆
0x19d80…19e00 UnusedSector ┆UNTUP= 10 GALFANUM= 11 BLACK= 0 WHITE= 1 READ= 2 MAGENTA= 3 BLUE= 4 CYAN= 5 GREEN= 6 YELLOW= 7 NOBLINK= 8 LIST RESET CUOFF GRAP┆
0x19e00…19e80 UnusedSector ┆HIC+GCOUNTUP<8 GALFANUM NEWBLINK, BLACK+BLACK<4 NEWCOLOUR<8, READ+BLACK<4 CUPOS<8, 20+30<8 <:CHRISTIAN ROVSING A/S:> CUPOS<8, 22┆
0x19e80…19f00 UnusedSector ┆+40<8 NEWCOLOUR<8, YELLOW+GREEN<4 <:GRAPHICAL DISPLAY EXAMPLE:> END YAN= 5 GREEN= 6 YELLOW= 7 NOBLINK= 8 LIST RESET CUOFF GRAP┆
0x19f00…19f80 UnusedSector ┆. IT WILL NOT ; AU000014 AU000015 0 0000 ; CONTINUE UNTIL A X-ON CHAR. IS RECEIVED. ; AU000015 AU000016 0 0000 ; ; AU000016 AU00┆
0x19f80…1a000 UnusedSector ┆0017 0 0000 ; WHEN THE PROGRAM IS LOADED, THE DISK FILES TO ; AU000017 AU000018 0 0000 ; BE OUTPUT MUST BE SPECIFIED IN THE INPU┆
0x1a000…1a080 UnusedSector ┆T SHARE. ; AU000018 AU000019 0 0000 ; ; AU000019 AU000020 0 0000 ; SYNTAX: DISPLAY <FILENAME> <FILENAME> ... <FILENAME> ; AU0000┆
0x1a080…1a100 UnusedSector ┆20 AU000021 0 0000 ; ; AU000021 AU000022 0 0000 ; AU000022 AU000023 0 0000 BEGIN MODULE ; ; AU000023 AU000024 0 0000 NOLIST ; AU┆
0x1a100…1a180 UnusedSector ┆000024 AU000182 0 0052 MESSAGE: START OF USER MODULE AU000183 0 0052 LIST ; ; AU000183 AU000184 0 0052 ; ; AU000184 AU000185 0 ┆
0x1a180…1a200 UnusedSector ┆0052 FILES: 0,REPEAT 20*5 -1 ; ROOM FOR 20 FILENAMES; ; AU000185 AU000186 0 00B6 COUNT: 0 ; NUMBER OF FILENAMES; ; AU000186 AU00┆
0x1a200…1a280 UnusedSector ┆0187 0 00B7 FADDR: 0 ; FILENAME POINTER; ; AU000187 AU000188 0 00B8 OENTRY: 0,REPEAT ENTRYLENGTH-1 ; ENTRY AREA; ; AU000188 AU00┆
0x1a280…1a300 UnusedSector ┆0189 0 00D8 OWORK: 0,REPEAT WORKLENGTH-1 ; WORKING AREA; ; AU000189 AU000190 0 00E4 DELAY: 0 ; ; AU000190 AU000191 0 00E5 ; ; AU┆
0x1a300…1a380 UnusedSector ┆000191 AU000192 0 00E5 DISPIF= 4 ; DISPLAY INTERFACE MODULE ADDR; ; AU000192 AU000193 0 00E5 XON= #11 ; ; AU000193 AU000194 0 00┆
0x1a380…1a400 UnusedSector ┆E5 XOFF= #13 ; ; AU000194 AU000195 0 00E5 BNINRDY= 10 ; INPUT READY BIT; ; AU000195 AU000196 0 00E5 BNOUTRY= 11 ; OUTPUT READY B┆
0x1a400…1a480 UnusedSector ┆IT; ; AU000196 AU000197 0 00E5 ; AU000197 AU000198 0 00E5 USE PROG ; ; AU000198 AU000199 1 000E ; ; AU000199 AU000200 1 000E L0:┆
0x1a480…1a500 UnusedSector ┆ ; INIT: ; AU000200 AU000201 1 000E MOVC FILES R0 ; FILES ; AU000201 AU000202 1 000F MOV R0 FADDR ; =>FADDR; ; AU000202 AU000203┆
0x1a500…1a580 UnusedSector ┆ 1 0010 MOVC 0 R0 ; 0 ; AU000203 AU000204 1 0011 MOV R0 COUNT ; =>FILECOUNT; ; AU000204 AU000205 1 0012 MOVC OENTRY R0 ; ENTRYAR┆
0x1a580…1a600 UnusedSector ┆EA ; AU000205 AU000206 1 0013 MOV R0 CENTRY-C ; =>ENTRY.CUR; ; AU000206 AU000207 1 0014 MOVC OWORK R0 ; WORKAREA ; AU000207 AU00┆
0x1a600…1a680 UnusedSector ┆0208 1 0015 MOV R0 WORKING-C ; =>WORKING.CUR; ; AU000208 AU000209 1 0016 L1: ; NEXT NAME: ; AU000209 AU000210 1 0016 MOV CURIN-C┆
0x1a680…1a700 UnusedSector ┆ R4 ; CURIN.CUR=>SHARE; ; AU000210 AU000211 1 0017 MON INPARAM ; INPARAM(SHARE); ; AU000211 AU000212 1 0018 JMP L1 ; ERROR: GOTO┆
0x1a700…1a780 UnusedSector ┆ NEXT NAME; ; AU000212 AU000213 1 0019 JMP L2 ; TERM: GOTO LAST NAME; ; AU000213 AU000214 1 001A JMP L1 ; WORD: GOTO NEXT NAME; ┆
0x1a780…1a800 UnusedSector ┆; AU000214 AU000215 1 001B ; NAME: CONTINUE; ; AU000215 AU000216 1 001B MOV FADDR R0 ; FADDR=>ADDR; ; AU000216 AU000217 1 001C M┆
0x1a800…1a880 UnusedSector ┆ > ┆
0x1a880…1a900 UnusedSector ┆ ? ┆
0x1a900…1a980 UnusedSector ┆ @ ┆
0x1a980…1aa00 UnusedSector ┆ A ┆
0x1aa00…1aa80 UnusedSector ┆ B ┆
0x1aa80…1aac0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1aac0…1ab00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1ab00…1ab40 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1ab40…1ab80 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1ab80…1abc0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1abc0…1ac00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1ac00…1ac40 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1ac40…1ac80 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1ac80…1acc0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1acc0…1ad00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1ad00…1ad40 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1ad40…1ad80 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1ad80…1adc0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1adc0…1ae00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1ae00…1ae40 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1ae40…1ae80 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1ae80…1aec0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1aec0…1af00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1af00…1af40 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1af40…1af80 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1af80…1afc0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1afc0…1b000 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b000…1b040 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b040…1b080 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1b080…1b0c0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b0c0…1b100 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b100…1b140 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b140…1b180 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1b180…1b1c0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b1c0…1b200 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b200…1b240 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b240…1b280 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1b280…1b2c0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b2c0…1b300 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b300…1b340 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b340…1b380 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1b380…1b3c0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b3c0…1b400 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b400…1b440 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b440…1b480 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1b480…1b4c0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b4c0…1b500 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b500…1b540 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b540…1b580 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1b580…1b5c0 DirEnt {filename=»EMPTY«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0001, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0xffff, de0d=0x0000, cluster2=0x0001, 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}
0x1b5c0…1b600 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b600…1b640 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b640…1b680 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1b680…1b6c0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b6c0…1b700 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b700…1b740 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b740…1b780 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1b780…1b7c0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b7c0…1b800 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b800…1b840 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b840…1b880 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1b880…1b8c0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b8c0…1b900 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b900…1b940 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b940…1b980 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1b980…1b9c0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1b9c0…1ba00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1ba00…1ba40 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1ba40…1ba80 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1ba80…1bac0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1bac0…1bb00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1bb00…1bb40 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1bb40…1bb80 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1bb80…1bbc0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1bbc0…1bc00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1bc00…1bc40 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1bc40…1bc80 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1bc80…1bcc0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1bcc0…1bd00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1bd00…1bd40 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1bd40…1bd80 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1bd80…1bdc0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1bdc0…1be00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1be00…1be40 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1be40…1be80 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1be80…1bec0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1bec0…1bf00 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1bf00…1bf40 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1bf40…1bf80 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1bf80…1bfc0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1bfc0…1c000 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1c000…1c040 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1c040…1c080 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1c080…1c0c0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1c0c0…1c100 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1c100…1c140 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1c140…1c180 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1c180…1c1c0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1c1c0…1c200 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1c200…1c240 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1c240…1c280 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1c280…1c2c0 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x002f, de0d=0x0000, cluster2=0x0019, de0f=0x030b, de10=0x040a, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1c2c0…1c300 DirEnt {filename=»░░«, kind=0x0000, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0027, de0d=0x0000, cluster2=0x0019, de0f=0x0509, de10=0x0608, de11=0xffff, de12=0xffff, de13=0xffff, de14=0xffff, de15=0xffff, de16=0xffff, de17=0xffff, de18=0xffff, de19=0x0000, de1a=0x0000, de1b=0x0000, de1c=0x0040, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1c300…1c340 DirEnt {filename=»░░NCOY«, kind=0x0300, de04=0x000e, de05=0x0000, de06=0x0001, de07=0x0000, cluster=0x0019, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0016, de0d=0x0000, cluster2=0x0019, de0f=0x0905, 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=0x0001, de1d=0x0000, de1e=0x0000, de1f=0x0000}
0x1c340…1c380 DirEnt {filename=»░░S«, kind=0x0600, de04=0x0000, de05=0x0000, de06=0x0000, de07=0x0000, cluster=0x0032, de09=0x0000, de0a=0x0000, de0b=0x0001, nsect=0x0031, de0d=0x0000, cluster2=0x0032, de0f=0x2016, 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}
0x1c380…1c400 DataSector[»B7«]
[…0x3…]
0x1c580…1c600 UnusedSector ┆0 2020 0058L 2020 2020 2020 2020 2020 2020 2020 2020 0060L 2020 2020 2020 2020 2020 2020 2020 2020 0068L 2020 2020 2020 2020 ┆
0x1c600…1c680 UnusedSector ┆2020 2020 2020 0120 0070L 0106 0100 0106 0200 2020 2020 2020 2020 0078L 2020 2020 2020 2020 2020 2020 2020 2020 0080L 2020 20┆
0x1c680…1c700 UnusedSector ┆20 2020 2020 2020 2020 2020 2020 0088L 2020 2020 2020 2020 2020 2020 2020 2020 0090L 2020 2020 2020 2020 2020 2020 2020 2020 ┆
0x1c700…1c780 UnusedSector ┆0098L 2020 2020 2020 2020 0601 0002 0601 0002 00A0L 2002 2020 2020 2020 4942 4C4C 4445 5954 00A8L 4550 203A 3020 2031 4C46 574┆
0x1c780…1c800 UnusedSector ┆F 4944 4741 00B0L 4152 4D4D 5245 2020 2020 2020 2020 2020 00B8L 2020 2020 2020 2020 2020 2020 2020 2020 00C0L 2020 2020 2020 ┆
0x1c800…1c880 UnusedSector ┆2020 2020 2020 2020 2020 00C8L 0120 0306 0100 0306 0200 2020 2020 2020 00D0L 6C20 6C6C 6C6C 6C6C 6C6C 206C 2020 3230 00D8L 54┆
0x1c880…1c900 UnusedSector ┆20 4449 4B53 5255 4556 2052 2020 2020 00E0L 2020 2020 2020 2020 2020 2020 2020 2020 00E8L 2020 2020 2020 2020 2020 2020 2020 2┆
0x1c900…1c980 UnusedSector ┆020 00F0L 2020 2020 2020 2020 2020 0601 0004 0601 00F8L 0004 2002 2020 2020 2020 2020 2020 2020 0100L 2020 2020 2020 3020 203┆
0x1c980…1ca00 UnusedSector ┆3 5553 4547 5242 0108L 4E5C 5344 494E 4556 5541 5245 2020 2020 0110L 2020 2020 2020 2020 2020 2020 2020 2020 0118L 2020 2020 ┆
0x1ca00…1ca80 UnusedSector ┆2020 2020 2020 2020 2020 2020 0120L 2020 0120 0506 0100 0506 0200 2020 2020 0128L 2020 2020 2020 2020 2020 2020 2020 2020 013┆
0x1ca80…1cb00 UnusedSector ┆0L 3430 5020 4952 544E 4F4C 2047 202D 4F4B 0138L 4D4D 4E41 4F44 5245 2020 2020 2020 2020 0140L 2020 2020 2020 2020 2020 2020 2┆
0x1cb00…1cb80 UnusedSector ┆020 2020 0148L 2020 2020 2020 2020 2020 2020 0601 0006 0150L 0601 0006 2002 2020 2020 2020 2020 2020 0158L 2020 2020 2020 202┆
0x1cb80…1cc00 UnusedSector ┆0 3020 2035 5254 4E45 0160L 4C44 474F 2D20 4B20 4D4F 414D 444E 454F 0168L 2052 2020 2020 2020 2020 2020 2020 2020 0170L 2020 ┆
0x1cc00…1cc80 UnusedSector ┆2020 2020 2020 2020 2020 2020 2020 0178L 2020 2020 0120 0706 0100 0706 0200 2020 0180L 2020 2020 2020 2020 2020 2020 2020 2020┆
0x1cc80…1cd00 UnusedSector ┆ 0188L 2020 3630 4220 5345 4954 4C4C 4E49 2047 0190L 4641 5220 5041 4F50 5452 5245 2020 2020 0198L 2020 2020 2020 2020 2020 2┆
0x1cd00…1cd80 UnusedSector ┆020 2020 2020 01A0L 2020 2020 2020 2020 2020 2020 2020 0601 01A8L 0008 0601 0008 2002 2020 2020 2020 2020 01B0L 2020 2020 202┆
0x1cd80…1ce00 UnusedSector ┆0 2020 2020 3020 2037 5550 01B8L 4B4E 5354 4550 4943 4946 414B 4954 4E4F 01C0L 5245 2020 2020 2020 2020 2020 2020 2020 01C8L ┆
0x1ce00…1ce80 UnusedSector ┆2020 2020 2020 2020 2020 2020 2020 2020 01D0L 2020 2020 2020 0120 0906 0100 0906 0200 01D8L 2020 2020 2020 2020 2020 2020 2020┆
0x1ce80…1cf00 UnusedSector ┆ 2020 01E0L 2020 2020 3830 4F20 4450 5441 5245 4E49 01E8L 2047 4641 5320 4755 4245 5C52 444E 4E53 01F0L 5649 4145 4555 2052 2┆
0x1cf00…1cf80 UnusedSector ┆020 2020 2020 2020 01F8L 2020 2020 2020 2020 2020 2020 2020 2020 0200L 0601 000A 0601 000A 2002 2020 2020 2020 0208L 2020 202┆
0x1cf80…1d000 UnusedSector ┆0 2020 2020 2020 2020 3020 2039 0210L 4942 4C4C 4445 4445 5449 524F 2020 2020 0218L 2020 2020 2020 2020 2020 2020 2020 2020 0┆
0x1d000…1d080 UnusedSector ┆AU000001 0 0000 LIST ; AU000001 AU000002 0 0000 ; COUNTUP DATA DISPLAY ; AU000002 AU000003 0 0000 BEGIN MODULE ; AU000003 AU000┆
0x1d080…1d100 UnusedSector ┆004 0 0000 NOLIST ; AU000004 AU000056 0 0000 LIST ; AU000056 AU000057 0 0000 RESET ; AU000057 AU000058 0 0001 CUOFF ; AU000058 ┆
0x1d100…1d180 UnusedSector ┆AU000059 0 0002 GRAPHIC+GCOUNTUP<8 ; AU000059 AU000060 0 0003 GALFANUM ; AU000060 AU000061 0 0004 NEWBLINK, BLACK+BLACK<4 ; AU00┆
0x1d180…1d200 UnusedSector ┆0061 AU000062 0 0006 NEWCOLOUR<8, READ+BLACK<4 ; AU000062 AU000063 0 0008 CUPOS<8, 20+30<8 ; AU000063 AU000064 0 000A <:CHRISTIA┆
0x1d200…1d280 UnusedSector ┆N ROVSING A/S:> ; AU000064 AU000065 0 0015 CUPOS<8, 22+40<8 ; AU000065 AU000066 0 0017 NEWCOLOUR<8, YELLOW+GREEN<4 ; AU000066 AU┆
0x1d280…1d300 UnusedSector ┆000067 0 0019 <:GRAPHICAL DISPLAY EXAMPLE:> ; AU000067 AU000068 0 0026 END ; AU000068 Z00000 T0026 P 0000L 0019 0004 0A1C 000B 0┆
0x1d300…1d380 UnusedSector ┆012 0000 1100 0002 0008L 0600 1E14 4843 4952 5453 4149 204E 4F52 0010L 5356 4E49 2047 2F41 0053 0600 2816 1100 0018L 0067 5247 5┆
0x1d380…1d400 UnusedSector ┆041 4948 4143 204C 4944 5053 0020L 414C 2059 5845 4D41 4C50 0045 S0 MEMORY MAP: AREA 0 0000 38 WORDS OUTPUT 38 WORDS AS┆
0x1d400…1d480 UnusedSector ┆SEMBLED ASSEMBLY OK 8L 0600 1E14 4843 4952 5453 4149 204E 4F52 0010L 5356 4E49 2047 2F41 0053 0600 2816 1100 0018L 0067 5247 5┆
0x1d480…1d500 UnusedSector ┆1 ; 2=>BUFFERS; ; AU000240 AU000241 1 002F MOVC 64 R2 ; 64=>BUFSIZE; ; AU000241 AU000242 1 0030 MOVC BMWORD R3 ; WORD=>MODE; ; A┆
0x1d500…1d580 UnusedSector ┆U000242 AU000243 1 0031 MON INIT ; INIT(SHAR); ; AU000243 AU000244 1 0032 MOVC BMINPUT OR BMWORD R3 ; INPUT OR WORD=>MODE; ; AU0┆
0x1d580…1d600 UnusedSector ┆00244 AU000245 1 0033 MOV FADDR R0 ; FADDR=>RE.NAME; ; AU000245 AU000246 1 0034 ADDC 5 R0 ; RE.NAME+5 ; AU000246 AU000247 1 0035┆
0x1d600…1d680 UnusedSector ┆ MOV R0 FADDR ; =>FADDR; ; AU000247 AU000248 1 0036 MON OPEN ; OPEN(MODE,NAME,SHARE); ; AU000248 AU000249 1 0037 JMP DP1 ; ERROR┆
0x1d680…1d700 UnusedSector ┆: GOTO EOFACT; ; AU000249 AU000250 1 0038 MOVC BMEOF R0 ; EOF ; AU000250 AU000251 1 0039 MOV R0 STREAT.X4 ; =>TREAT.SHARE; ; AU0┆
0x1d700…1d780 UnusedSector ┆00251 AU000252 1 003A MOVC DP1 R0 ; EOFACT ; AU000252 AU000253 1 003B MOV R0 SEOFAN.X4 ; =>EOFACTION.SHARE; ; AU000253 AU000254 ┆
0x1d780…1d800 UnusedSector ┆1 003C JMP L6 ; GOTO NEXTWORD; ; AU000254 AU000255 1 003D ; ; AU000255 AU000256 1 003D DP1: ; EOFACT: ; AU000256 AU000257 1 003D┆
0x1d800…1d880 UnusedSector ┆ MON CLOSE ; CLOSE(SHARE); ; AU000257 AU000258 1 003E MOVC 10000 R0 ; ; AU000258 AU000259 1 0040 MOV R0 DELAY ; ; AU000259 AU000┆
0x1d880…1d900 UnusedSector ┆260 1 0041 DXX: ; ; AU000260 AU000261 1 0041 MOVC 0 R3 ; ; AU000261 AU000262 1 0042 JMP S5 DP2 ; FILLER; ; AU000262 AU000263 1 0┆
0x1d900…1d980 UnusedSector ┆043 MOV DELAY R0 ; ; AU000263 AU000264 1 0044 ADDC -1 R0 ; ; AU000264 AU000265 1 0045 MOV R0 DELAY ; ; AU000265 AU000266 1 0046 ┆
0x1d980…1da00 UnusedSector ┆JON R0 DXX ; ; AU000266 AU000267 1 0047 SOB R6 L4 ; IF DECR(COUNT)<>0 THEN ; AU000267 AU000268 1 0048 ; GOTO NEXTFILE; ; AU00026┆
0x1da00…1da80 UnusedSector ┆8 AU000269 1 0048 JMP L3 ; GOTO FIRST FILE; ; AU000269 AU000270 1 0049 ; ; AU000270 AU000271 1 0049 L6: ; NEXT WORD: ; AU000271 ┆
0x1da80…1db00 UnusedSector ┆AU000272 1 0049 MON INCHAR ; INCHAR(SHARE)=>DOUBLE; ; AU000272 AU000273 1 004A JMP S5 DP2 ; OUTPUT DOUBLE(7:0); ; AU000273 AU000┆
0x1db00…1db80 UnusedSector ┆274 1 004B SWP R3 ; ; AU000274 AU000275 1 004C JMP S5 DP2 ; OUTPUT DOUBLE(15:8); ; AU000275 AU000276 1 004D JMP L6 ; GOTO NEXT W┆
0x1db80…1dc00 UnusedSector ┆ORD; ; AU000276 AU000277 1 004E ; ;### ; AU000277 AU000278 1 004E DP2: ; OUTPUT: ; AU000278 AU000279 1 004E MOVC DISPIF R2 ; DIS┆
0x1dc00…1dc80 UnusedSector ┆PIF=>DEVICE; ; AU000279 AU000280 1 004F SIO R1 R2 ; SENSE(STATUS,DEVICE); ; AU000280 AU000281 1 0050 IBN R1 BNINRDY ; IF STATUS(┆
0x1dc80…1dd00 DataSector[»B6«]
[…0x31…]
0x1f580…1f600 UnusedSector ┆. Z00000 T0217 P 0000L 0001 0001 0003 0000 006E 0000 0001 0000 0008L 0000 0000 0000 01A9 0000 000E 5248 B770 0010L 0048 B670 B84┆
0x1f600…1f680 UnusedSector ┆8 5070 D848 5170 4D6C 68A6 0018L 0358 08D8 0558 B768 05E4 68E9 B770 76E4 0020L C016 0C58 0448 0349 9896 82A0 1270 42A6 0028L 00A┆
0x1f680…1f700 UnusedSector ┆6 54A6 4D48 B770 B66E B248 0249 404A 0030L 004B 52A6 014B B768 05C8 B770 53A6 05D8 0038L 4048 0A80 3D48 0980 0CD8 54A6 2756 1048┆
0x1f700…1f780 UnusedSector ┆ 0040L E470 004B 0BDE E468 01A8 E470 86B0 1BC6 0048L 1F58 61A6 03DE 63BC 01DE 0558 044A 1A96 0050L 1AF2 08D8 1BB2 BA97 40BF 6448┆
0x1f780…1f800 UnusedSector ┆ 4769 05A6 0058L 0B58 0C58 1A97 17EC 13A6 13E4 907E 1258 0060L 6448 4769 05A6 80F0 1A96 1AF0 0758 1A97 0068L 17EC 13A6 11E4 907C┆
0x1f800…1f880 UnusedSector ┆ 1F58 0E58 0000 0000 0070L 0000 0000 0000 0000 0000 0000 0000 0000 0078L 0000 0000 0000 0000 0000 0000 0000 0000 0080L 0000 0000┆
0x1f880…1f900 UnusedSector ┆ 0000 0000 0000 019C 000E 0064 0088L 0000 0000 822F 0000 0000 0000 0064 0000 0090L 0000 0000 0000 0000 0000 0000 0000 0000 0098L┆
0x1f900…1f980 UnusedSector ┆ 0000 0000 0000 0000 FFFF 0000 0000 0000 00A0L 0000 0000 0000 0000 0000 0000 0000 0000 00A8L 0000 0000 0000 0000 0000 0000 0000 ┆
0x1f980…1fa00 UnusedSector ┆0000 00B0L 0000 0000 0000 0000 0000 0000 0000 0000 00B8L 0000 0000 0000 0000 0000 0000 0000 0000 00C0L 0000 0000 0000 0000 0000 ┆
0x1fa00…1fa80 UnusedSector ┆0000 822F 822F 00C8L 00E5 0197 0000 0000 0000 0000 0000 0000 00D0L 0000 0000 0000 0000 0000 0000 0000 0000 00D8L 0000 0000 0000 ┆
0x1fa80…1fb00 UnusedSector ┆0000 0000 0000 0000 0000 00E0L 0000 0000 0000 0000 0000 0000 0000 0000 00E8L 0000 0000 0000 0000 0000 0000 0000 0000 00F0L 0000 ┆
0x1fb00…1fb80 UnusedSector ┆0000 0000 0000 0000 0000 0000 0000 00F8L 0000 0000 0000 0000 0000 0000 0000 0000 0100L 0000 0000 0000 0000 0000 0000 0000 0000 0┆
0x1fb80…1fc00 UnusedSector ┆108L 0000 0000 0000 0000 0000 0000 0000 0000 0110L 0000 0000 0000 0000 0000 0000 0000 0000 0118L 0000 0000 0000 0000 0000 0000 0┆
0x1fc00…1fc80 UnusedSector ┆000 0000 0120L 0000 0000 0000 0000 0000 0000 0000 0000 0128L 0000 0000 0000 0000 0000 0000 0000 0000 0130L 0000 0000 0000 0000 0┆
0x1fc80…1fd00 UnusedSector ┆000 0000 0000 0000 0138L 0000 0000 0000 0000 0000 0000 0000 0000 0140L 0000 0000 0000 0000 0000 0000 0000 0000 0148L 0000 0000 0┆
0x1fd00…1fd80 UnusedSector ┆000 0000 0000 0000 0000 0000 0150L 0000 0000 0000 0000 0000 0000 0000 0000 0158L 0000 0000 0000 0000 0000 0000 0000 0000 0160L 0┆
0x1fd80…1fe00 UnusedSector ┆000 0000 0000 0000 0000 0000 0000 0000 0168L 0000 0000 0000 0000 0000 0000 0000 0000 0170L 0000 0000 0000 0000 0000 0000 0000 00┆
0x1fe00…1fe80 UnusedSector ┆00 0178L 0000 0000 0000 0000 0000 0000 0000 0000 0180L 0000 0000 0000 0000 0000 0000 0000 0000 0188L 0000 0000 0000 0000 0000 00┆
0x1fe80…1ff00 UnusedSector ┆00 0000 0000 0190L 0000 0000 0000 0000 0000 0000 0000 0000 0198L 0000 0000 0000 0000 0000 0000 0000 0000 01A0L 0000 0000 0000 00┆
0x1ff00…1ff80 UnusedSector ┆00 0000 0000 0000 0000 01A8L 0000 0000 0000 0000 0000 0000 0000 0000 01B0L 0000 0000 0000 0000 0000 0000 0000 0000 01B8L 0000 00┆
0x1ff80…20000 UnusedSector ┆00 0000 0000 0000 0000 0000 0000 01C0L 0000 0000 0000 0000 0000 0000 0000 0000 01C8L 0000 0000 0000 0000 0000 0000 0000 0000 01D┆
0x20000…20080 UnusedSector ┆0L 0000 0000 0000 0000 0000 0000 0000 0000 01D8L 0000 0000 0000 0000 0000 0000 0000 0000 01E0L 0000 0000 0000 0000 0000 0000 000┆
0x20080…20100 UnusedSector ┆0 0000 01E8L 0000 0000 0000 0000 0000 0000 0000 0000 01F0L 0000 0000 0000 0000 0000 0000 0000 0000 01F8L 0000 0000 0000 0000 000┆
0x20100…20180 UnusedSector ┆0 0000 0000 0000 0200L 0000 0000 0000 0000 0000 0000 0000 0000 0208L 0000 0000 0000 0000 0000 0000 0000 0000 0210L 0000 0000 000┆
0x20180…20200 UnusedSector ┆0 0000 0000 0000 0000 SE 0000 0000 0000 0000 0000 01F0L 0000 0000 0000 0000 0000 0000 0000 0000 01F8L 0000 0000 0000 0000 000┆
0x20200…20280 UnusedSector ┆P 0019 EE12 0004 1100 0055 0F0F 0F0F 1100 0022 0F0F 0F0F 1100 0044 0F0F 0F0F 1100 0011 0F0F 0F0F 1100 0066 0F0F 0F0F 1100 0033 0┆
0x20280…20300 UnusedSector ┆F0F 0F0F 1100 0000 0F0F 0F0F 1100 0077 0F0F 0F0F S ┆
0x20300…20380 UnusedSector ┆LE IS FINISHED, THE PROGRAM WILL WAIT 10 ; SEC. BEFORE IT CONTINUES OUTPUTTING THE NEXT FILE. ; WHEN ALL FILES HAVE BEEN OUTPUTT┆
0x20380…20400 UnusedSector ┆ED, THE PROGRAM ; WILL START OUTPUTTING THE FIRST FILE AGAIN. ; ; IF THE PROGRAM RECEIVES A X-OFF CHAR. FROM THE ; INTERFACE, IT┆
0x20400…20480 UnusedSector ┆ WILL STOP OUTPUT. IT WILL NOT ; CONTINUE UNTIL A X-ON CHAR. IS RECEIVED. ; ; WHEN THE PROGRAM IS LOADED, THE DISK FILES TO ; BE┆
0x20480…20500 UnusedSector ┆ OUTPUT MUST BE SPECIFIED IN THE INPUT SHARE. ; ; SYNTAX: DISPLAY <FILENAME> <FILENAME> ... <FILENAME> ; BEGIN MODULE ; NOLIST ┆
0x20500…20580 UnusedSector ┆ $DPNAX XPD:= UTILITYLENGTH $SMSXP1 LIST ; ; FILES: 0,REPEAT 20*5 -1 ; ROOM FOR 20 FILENAMES; COUNT: 0 ; NUMBER OF FILENAMES;┆
0x20580…20600 UnusedSector ┆ FADDR: 0 ; FILENAME POINTER; OENTRY: 0,REPEAT ENTRYLENGTH-1 ; ENTRY AREA; OWORK: 0,REPEAT WORKLENGTH-1 ; WORKING AREA; DELAY: 0┆
0x20600…20680 UnusedSector ┆ ; ; DISPIF= 4 ; DISPLAY INTERFACE MODULE ADDR; XON= #11 ; XOFF= #13 ; BNINRDY= 10 ; INPUT READY BIT; BNOUTRY= 11 ; OUTPUT READ┆
0x20680…20700 UnusedSector ┆Y BIT; USE PROG ; ; L0: ; INIT: MOVC FILES R0 ; FILES MOV R0 FADDR ; =>FADDR; MOVC 0 R0 ; 0 MOV R0 COUNT ; =>FILECOUNT; ┆
0x20700…20780 UnusedSector ┆MOVC OENTRY R0 ; ENTRYAREA MOV R0 CENTRY-C ; =>ENTRY.CUR; MOVC OWORK R0 ; WORKAREA MOV R0 WORKING-C ; =>WORKING.CUR; L1: ; NE┆
0x20780…20800 UnusedSector ┆XT NAME: MOV CURIN-C R4 ; CURIN.CUR=>SHARE; MON INPARAM ; INPARAM(SHARE); JMP L1 ; ERROR: GOTO NEXT NAME; JMP L2 ; TERM: GOT┆
0x20800…20880 UnusedSector ┆O LAST NAME; JMP L1 ; WORD: GOTO NEXT NAME; ; NAME: CONTINUE; MOV FADDR R0 ; FADDR=>ADDR; MODC 5 ; MOVM X6 X0 ; NAME(0,4)=>┆
0x20880…20900 UnusedSector ┆ADDR(0,4); MOV R0 FADDR ; ADDR+5=>FADDR; INC COUNT -WORK. X7 ; INCR(FILECOUNT); JMP L1 ; GOTO NEXT NAME; ; ;### L2: ; LAST N┆
0x20900…20980 UnusedSector ┆AME: MOVC DISPIF R0 ; MOVC 3 R1 ; CIO R1 R0 ; ENABLE INTERFACE; SLL R0 2 ; DEVICE<2 MOV R0 DEVPR-C ; =>DEVPR.CUR; MON INI┆
0x20980…20a00 UnusedSector ┆TDEVICE ; INITDEVICE; MON CLEARINTERRUPT ; CLEARINTERRUPT; ; MON CLOSE ; CLOSE(SHARE); ; L3: ; FIRST FILE: MOVC FILES-5 R0 ┆
0x20a00…20a80 UnusedSector ┆; FILES-5 MOV R0 FADDR ; =>FADDR; MOV COUNT R6 ; FILECOUNT=>COUNT; L4: ; NEXT FILE: MOVC CURSLENGTH R0 ; CURSLENGTH=>SIZE; M┆
0x20a80…20b00 UnusedSector ┆OVC 2 R1 ; 2=>BUFFERS; MOVC 64 R2 ; 64=>BUFSIZE; MOVC BMWORD R3 ; WORD=>MODE; MON INIT ; INIT(SHAR); MOVC BMINPUT OR BMWORD ┆
0x20b00…20b80 UnusedSector ┆R3 ; INPUT OR WORD=>MODE; MOV FADDR R0 ; FADDR=>RE.NAME; ADDC 5 R0 ; RE.NAME+5 MOV R0 FADDR ; =>FADDR; MON OPEN ; OPEN(MODE,┆
0x20b80…20c00 UnusedSector ┆NAME,SHARE); JMP DP1 ; ERROR: GOTO EOFACT; MOVC BMEOF R0 ; EOF MOV R0 STREAT.X4 ; =>TREAT.SHARE; MOVC DP1 R0 ; EOFACT MOV R┆
0x20c00…20c80 UnusedSector ┆0 SEOFAN.X4 ; =>EOFACTION.SHARE; JMP L6 ; GOTO NEXTWORD; ; DP1: ; EOFACT: MON CLOSE ; CLOSE(SHARE); MOVC 10000 R0 ; MOV R0 ┆
0x20c80…20d00 UnusedSector ┆DELAY ; DXX: ; MOVC 0 R3 ; JMP S5 DP2 ; FILLER; MOV DELAY R0 ; ADDC -1 R0 ; MOV R0 DELAY ; JON R0 DXX ; SOB R6 L4 ; IF DE┆
0x20d00…20d80 UnusedSector ┆CR(COUNT)<>0 THEN ; GOTO NEXTFILE; JMP L3 ; GOTO FIRST FILE; ; L6: ; NEXT WORD: MON INCHAR ; INCHAR(SHARE)=>DOUBLE; JMP S5 ┆
0x20d80…20e00 UnusedSector ┆DP2 ; OUTPUT DOUBLE(7:0); SWP R3 ; JMP S5 DP2 ; OUTPUT DOUBLE(15:8); JMP L6 ; GOTO NEXT WORD; ; ;### DP2: ; OUTPUT: MOVC DI┆
0x20e00…20e80 UnusedSector ┆SPIF R2 ; DISPIF=>DEVICE; SIO R1 R2 ; SENSE(STATUS,DEVICE); IBN R1 BNINRDY ; IF STATUS(INPUT READY) THEN JMP L7 ; READ CHAR; ┆
0x20e80…20f00 UnusedSector ┆ IBNP R1 BNOUTRDY ; IF STATUS(OUTPUT READY) THEN WIO R3 R2 ; WRITE(CHAR,DEVICE); JMP 0. X5 ; RETURN; MOVC 100 R0 ; 100=>DELAY┆
0x20f00…20f80 UnusedSector ┆; MOV INTERRUPT-C R1 ; MON WAITINTERRUPT ; WAITINTERRUPT; JMP DP2 ; TIMEOUT: GOTO OUTPUT; JMP DP2 ; INTERRUPT: GOTO OUTPUT; ┆
0x20f80…21000 UnusedSector ┆ ; L7: ; READ CHAR: RIO R1 R2 ; READ(CHAR,DEVICE); XTR R1 7 ; MON REGISTERS ; INE R1 XOFF ; IF CHAR<>XOFF THEN JMP DP2 ; GO┆
0x21000…21080 UnusedSector ┆TO OUTPUT; L8: ; WAIT X-ON: MOVC 100 R0 ; MOV INTERRUPT-C R1 ; MON WAITINTERRUPT ; WAITINTERRUPT(DELAY,INTERRUPT); NOP ; TIM┆
0x21080…21100 UnusedSector ┆EOUT: IGNORE; SIO R1 R2 ; SENSE(STATUS,DEVICE); IBZ R1 BNINRDY ; IF NOT STATUS(INPUT READY) THEN JMP L8 ; GOTO WAIT X-ON; RI┆
0x21100…21180 UnusedSector ┆LIST ; DISK TO DISPLAY DATA TRANSFER PROGRAM. ; ; THE PROGRAM IS INTENDED TO BE USED IN CONNECTION TO ; THE CR80 COLOUR DISPLAY┆
0x21180…21200 UnusedSector ┆ SYSTEM. ; THE PROGRAM READS DATA FROM FLOPPY DISK FILES AND ; OUTPUTS THE DATA TO A AV24 I/F. WHEN OUTPUT OF DATA ; FROM ONE FI┆
0x21200…21280 UnusedSector ┆LE IS FINISHED, THE PROGRAM WILL WAIT 10 ; SEC. BEFORE IT CONTINUES OUTPUTTING THE NEXT FILE. ; WHEN ALL FILES HAVE BEEN OUTPUTT┆
0x21280…21300 UnusedSector ┆ED, THE PROGRAM ; WILL START OUTPUTTING THE FIRST FILE AGAIN. ; ; IF THE PROGRAM RECEIVES A X-OFF CHAR. FROM THE ; INTERFACE, IT┆
0x21300…21380 UnusedSector ┆ WILL STOP OUTPUT. IT WILL NOT ; CONTINUE UNTIL A X-ON CHAR. IS RECEIVED. ; ; WHEN THE PROGRAM IS LOADED, THE DISK FILES TO ; BE┆
0x21380…21400 UnusedSector ┆ OUTPUT MUST BE SPECIFIED IN THE INPUT SHARE. ; ; SYNTAX: DISPLAY <FILENAME> <FILENAME> ... <FILENAME> ; BEGIN MODULE ; NOLIST ┆
0x21400…21480 UnusedSector ┆ $DPNAX XPD:= UTILITYLENGTH $SMSXP1 LIST ; ; FILES: 0,REPEAT 20*5 -1 ; ROOM FOR 20 FILENAMES; COUNT: 0 ; NUMBER OF FILENAMES;┆
0x21480…21500 UnusedSector ┆ FADDR: 0 ; FILENAME POINTER; OENTRY: 0,REPEAT ENTRYLENGTH-1 ; ENTRY AREA; OWORK: 0,REPEAT WORKLENGTH-1 ; WORKING AREA; DELAY: 0┆
0x21500…21580 UnusedSector ┆ ; LINK: 0 ; ; DISPIF= 8 ; DISPLAY INTERFACE MODULE ADDR; XON= #11 ; XOFF= #13 ; BNINRDY= 10 ; INPUT READY BIT; BNOUTRY= 11 ; O┆
0x21580…21600 UnusedSector ┆UTPUT READY BIT; USE PROG ; ; L0: ; INIT: MOVC FILES R0 ; FILES MOV R0 FADDR ; =>FADDR; MOVC 0 R0 ; 0 MOV R0 COUNT ; =>FI┆
0x21600…21680 UnusedSector ┆LECOUNT; MOVC OENTRY R0 ; ENTRYAREA MOV R0 CENTRY-C ; =>ENTRY.CUR; MOVC OWORK R0 ; WORKAREA MOV R0 WORKING-C ; =>WORKING.CUR┆
0x21680…21700 UnusedSector ┆; L1: ; NEXT NAME: MOV CURIN-C R4 ; CURIN.CUR=>SHARE; MON INPARAM ; INPARAM(SHARE); JMP L1 ; ERROR: GOTO NEXT NAME; JMP L2 ;┆
0x21700…21780 UnusedSector ┆ TERM: GOTO LAST NAME; JMP L1 ; WORD: GOTO NEXT NAME; ; NAME: CONTINUE; MOV FADDR R0 ; FADDR=>ADDR; MODC 5 ; MOVM X6 X0 ; N┆
0x21780…21800 UnusedSector ┆AME(0,4)=>ADDR(0,4); MOV R0 FADDR ; ADDR+5=>FADDR; INC COUNT -WORK. X7 ; INCR(FILECOUNT); JMP L1 ; GOTO NEXT NAME; ; ;### L2┆
0x21800…21880 UnusedSector ┆: ; LAST NAME: MOVC DISPIF R0 ; MOVC 3 R1 ; CIO R1 R0 ; ENABLE INTERFACE; SLL R0 2 ; DEVICE<2 MOV R0 DEVPR-C ; =>DEVPR.CUR┆
0x21880…21900 UnusedSector ┆; MON INITDEVICE ; INITDEVICE; MON CLEARINTERRUPT ; CLEARINTERRUPT; ; MON CLOSE ; CLOSE(SHARE); ; L3: ; FIRST FILE: MOVC F┆
0x21900…21980 UnusedSector ┆ILES-5 R0 ; FILES-5 MOV R0 FADDR ; =>FADDR; MOV COUNT R6 ; FILECOUNT=>COUNT; L4: ; NEXT FILE: MOVC CURSLENGTH R0 ; CURSLENGTH┆
0x21980…21a00 UnusedSector ┆=>SIZE; MOVC 2 R1 ; 2=>BUFFERS; MOV FADDR R5 ; RE.NAME ADDC 5 R5 ; +5 MOV R5 FADDR ; =>RE.NAME; MOV 3. X5 R2 ; IDENT.NAME ┆
0x21a00…21a80 UnusedSector ┆XTR R2 14 ; (14:0)=>IDENT; INE R2 #0300 ; IF IDENT<>BIN THEN JMP L5 ; GOTO BYTE FILE; MOVC 64 R2 ; 64=>BUFSIZE; MOVC BMWORD ┆
0x21a80…21b00 UnusedSector ┆R3 ; WORD=>MODE; MON INIT ; INIT(SHAR); MOVC BMINPUT OR BMWORD R3 ; INPUT OR WORD=>MODE; MOV FADDR R0 ; FADDR=>RE.NAME; MON ┆
0x21b00…21b80 UnusedSector ┆OPEN ; OPEN(MODE,NAME,SHARE); JMP DP1 ; ERROR: GOTO EOFACT; MOVC BMEOF R0 ; EOF MOV R0 STREAT.X4 ; =>TREAT.SHARE; MOVC DP1 R┆
0x21b80…21c00 UnusedSector ┆0 ; EOFACT MOV R0 SEOFAN.X4 ; =>EOFACTION.SHARE; JMP BIN ; GOTO BIN; ; L5: ; BYTE FILE: MOVC 128 R2 ; 128=>BUFSIZE; MOVC BM┆
0x21c00…21c80 UnusedSector ┆BYTE R3 ; BYTE=>MODE; MON INIT ; INIT(SHAR); MOVC BMINPUT OR BMBYTE R3 ; INPUT OR BYTE=>MODE; MOV FADDR R0 ; FADDR=>RE.NAME; ┆
0x21c80…21d00 UnusedSector ┆ MON OPEN ; OPEN(MODE,NAME,SHARE); JMP DP1 ; ERROR: GOTO EOFACT; MOVC BMEOF R0 ; EOF MOV R0 STREAT.X4 ; =>TREAT.SHARE; MOVC ┆
0x21d00…21d80 UnusedSector ┆DP1 R0 ; EOFACT MOV R0 SEOFAN.X4 ; =>EOFACTION.SHARE; JMP CMD ; GOTO COMMAND DECODE; ; DP1: ; EOFACT: MON CLOSE ; CLOSE(SHAR┆
0x21d80…21e00 UnusedSector ┆E); MOVC 10000 R0 ; MOV R0 DELAY ; DXX: ; MOVC 0 R3 ; JMP S5 DP2 ; FILLER; MOV DELAY R0 ; ADDC -1 R0 ; MOV R0 DELAY ; JO┆
0x21e00…21e80 UnusedSector ┆N R0 DXX ; SOB R6 L4 ; IF DECR(COUNT)<>0 THEN ; GOTO NEXTFILE; JMP L3 ; GOTO FIRST FILE; ; BIN: ; NEXT WORD: MON INCHAR ; I┆
0x21e80…21f00 UnusedSector ┆NCHAR(SHARE)=>DOUBLE; JMP S5 DP2 ; OUTPUT DOUBLE(7:0); SWP R3 ; JMP S5 DP2 ; OUTPUT DOUBLE(15:8); JMP BIN ; GOTO NEXT WORD; ┆
0x21f00…21f80 UnusedSector ┆ ; ;### DP2: ; OUTPUT: MOVC DISPIF R2 ; DISPIF=>DEVICE; SIO R1 R2 ; SENSE(STATUS,DEVICE); IBN R1 BNINRDY ; IF STATUS(INPUT RE┆
0x21f80…22000 UnusedSector ┆ADY) THEN JMP L7 ; READ CHAR; IBNP R1 BNOUTRDY ; IF STATUS(OUTPUT READY) THEN WIO R3 R2 ; WRITE(CHAR,DEVICE); JMP 0. X5 ; RE┆
0x22000…22080 UnusedSector ┆ 2020 2020 2020 2020 0290L 2020 2020 2020 2020 2020 2020 2020 2020 0298L 2020 2020 2020 2020 2020 2020 2020 2020 02A0L 2020 2┆
0x22080…22100 UnusedSector ┆020 2020 2020 2020 2020 2020 2020 02A8L 2020 2020 2020 2020 2020 2020 2020 2020 02B0L 2020 2020 0601 000E 0601 000E 2002 2020 ┆
0x22100…22180 UnusedSector ┆ 02B8L 2020 2020 2020 2020 2020 2020 2020 2020 02C0L 2020 2020 2020 2020 2020 2020 2020 2020 02C8L 2020 2020 2020 2020 2020 20┆
0x22180…22200 UnusedSector ┆20 2020 2020 02D0L 2020 2020 2020 2020 2020 2020 2020 2020 02D8L 2020 2020 2020 2020 2020 2020 0120 0F06 02E0L 0100 0F06 0200┆
0x22200…22280 UnusedSector ┆ 2020 2020 2020 2020 2020 02E8L 2020 2020 2020 2020 2020 2020 2020 2020 02F0L 2020 2020 2020 2020 2020 2020 2020 2020 02F8L 2┆
0x22280…22300 UnusedSector ┆020 2020 2020 2020 2020 2020 2020 2020 0300L 2020 2020 2020 2020 2020 2020 2020 2020 0308L 2020 2020 2020 0601 0010 0601 0010 ┆
0x22300…22380 UnusedSector ┆2002 0310L 2020 2020 2020 2020 2020 2020 2020 2020 0318L 2020 2020 2020 2020 2020 2020 2020 2020 0320L 2020 2020 2020 2020 20┆
0x22380…22400 UnusedSector ┆20 2020 2020 2020 0328L 2020 2020 2020 2020 2020 2020 2020 2020 0330L 2020 2020 2020 2020 2020 2020 2020 0120 0338L 1106 0100┆
0x22400…22480 UnusedSector ┆ 1106 0200 2020 2020 2020 2020 0340L 2020 2020 2020 2020 2020 2020 2020 2020 0348L 2020 2020 2020 2020 2020 2020 2020 2020 03┆
0x22480…22500 UnusedSector ┆50L 2020 2020 2020 2020 2020 2020 2020 2020 0358L 2020 2020 2020 2020 2020 2020 2020 2020 0360L 2020 2020 2020 2020 0601 0012 ┆
0x22500…22580 DataSector[»B6«]
[…0x18…]
0x23180…23200 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 *░░░░░░░░░░░░░░░░░░ ┆
0x23200…23280 UnusedSector ┆░░ @ ░░NAX ░░░░░░░░░░░░░░░░░░ ┆
0x23280…23300 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 *░░░░░░░░░░░░░░░░░░ ┆
0x23300…23380 UnusedSector ┆░░ @ ░░NAX ░░░░░░░░░░░░░░░░░░ ┆
0x23380…23400 UnusedSector ┆░░ 2 1 2 ░░░░░░░░░░░░░░░░░░ ░░ 2 1 2 *░░░░░░░░░░░░░░░░░░ ┆
0x23400…23480 UnusedSector ┆LIST ; DISK TO DISPLAY DATA TRANSFER PROGRAM. ; ; THE PROGRAM IS INTENDED TO BE USED IN CONNECTION TO ; THE CR80 COLOUR DISPLAY┆
0x23480…23500 UnusedSector ┆ SYSTEM. ; THE PROGRAM READS DATA FROM FLOPPY DISK FILES AND ; OUTPUTS THE DATA TO A AV24 I/F. WHEN OUTPUT OF DATA ; FROM ONE FI┆
0x23500…23580 UnusedSector ┆LE IS FINISHED, THE PROGRAM WILL WAIT 10 ; SEC. BEFORE IT CONTINUES OUTPUTTING THE NEXT FILE. ; WHEN ALL FILES HAVE BEEN OUTPUTT┆
0x23580…23600 UnusedSector ┆ED, THE PROGRAM ; WILL START OUTPUTTING THE FIRST FILE AGAIN. ; ; IF THE PROGRAM RECEIVES A X-OFF CHAR. FROM THE ; INTERFACE, IT┆
0x23600…23680 UnusedSector ┆ WILL STOP OUTPUT. IT WILL NOT ; CONTINUE UNTIL A X-ON CHAR. IS RECEIVED. ; ; WHEN THE PROGRAM IS LOADED, THE DISK FILES TO ; BE┆
0x23680…23700 UnusedSector ┆ OUTPUT MUST BE SPECIFIED IN THE INPUT SHARE. ; ; SYNTAX: DISPLAY <FILENAME> <FILENAME> ... <FILENAME> ; BEGIN MODULE ; NOLIST ┆
0x23700…23780 UnusedSector ┆ $DPNAX XPD:= UTILITYLENGTH $SMSXP1 LIST ; ; FILES: 0,REPEAT 20*5 -1 ; ROOM FOR 20 FILENAMES; COUNT: 0 ; NUMBER OF FILENAMES;┆
0x23780…23800 UnusedSector ┆ FADDR: 0 ; FILENAME POINTER; OENTRY: 0,REPEAT ENTRYLENGTH-1 ; ENTRY AREA; OWORK: 0,REPEAT WORKLENGTH-1 ; WORKING AREA; DELAY: 0┆
0x23800…23880 UnusedSector ┆ ; ; DISPIF= 4 ; DISPLAY INTERFACE MODULE ADDR; XON= #11 ; XOFF= #13 ; BNINRDY= 10 ; INPUT READY BIT; BNOUTRY= 11 ; OUTPUT READ┆
0x23880…23900 UnusedSector ┆Y BIT; USE PROG ; ; L0: ; INIT: MOVC FILES R0 ; FILES MOV R0 FADDR ; =>FADDR; MOVC 0 R0 ; 0 MOV R0 COUNT ; =>FILECOUNT; ┆
0x23900…23980 UnusedSector ┆MOVC OENTRY R0 ; ENTRYAREA MOV R0 CENTRY-C ; =>ENTRY.CUR; MOVC OWORK R0 ; WORKAREA MOV R0 WORKING-C ; =>WORKING.CUR; L1: ; NE┆
0x23980…23a00 UnusedSector ┆XT NAME: MOV CURIN-C R4 ; CURIN.CUR=>SHARE; MON INPARAM ; INPARAM(SHARE); JMP L1 ; ERROR: GOTO NEXT NAME; JMP L2 ; TERM: GOT┆
0x23a00…23a80 UnusedSector ┆O LAST NAME; JMP L1 ; WORD: GOTO NEXT NAME; ; NAME: CONTINUE; MOV FADDR R0 ; FADDR=>ADDR; MODC 5 ; MOVM X6 X0 ; NAME(0,4)=>┆
0x23a80…23b00 UnusedSector ┆ADDR(0,4); MOV R0 FADDR ; ADDR+5=>FADDR; INC COUNT -WORK. X7 ; INCR(FILECOUNT); JMP L1 ; GOTO NEXT NAME; ; ;### L2: ; LAST N┆
0x23b00…23b80 UnusedSector ┆AME: MOVC DISPIF R0 ; MOVC 3 R1 ; CIO R1 R0 ; ENABLE INTERFACE; SLL R0 2 ; DEVICE<2 MOV R0 DEVPR-C ; =>DEVPR.CUR; MON INI┆
0x23b80…23c00 UnusedSector ┆TDEVICE ; INITDEVICE; MON CLEARINTERRUPT ; CLEARINTERRUPT; ; MON CLOSE ; CLOSE(SHARE); ; L3: ; FIRST FILE: MOVC FILES-5 R0 ┆
0x23c00…23c80 UnusedSector ┆; FILES-5 MOV R0 FADDR ; =>FADDR; MOV COUNT R6 ; FILECOUNT=>COUNT; L4: ; NEXT FILE: MOVC CURSLENGTH R0 ; CURSLENGTH=>SIZE; M┆
0x23c80…23d00 UnusedSector ┆OVC 2 R1 ; 2=>BUFFERS; MOVC 64 R2 ; 64=>BUFSIZE; MOVC BMWORD R3 ; WORD=>MODE; MON INIT ; INIT(SHAR); MOVC BMINPUT OR BMWORD ┆
0x23d00…23d80 UnusedSector ┆R3 ; INPUT OR WORD=>MODE; MOV FADDR R0 ; FADDR=>RE.NAME; ADDC 5 R0 ; RE.NAME+5 MOV R0 FADDR ; =>FADDR; MON OPEN ; OPEN(MODE,┆
0x23d80…23e00 UnusedSector ┆NAME,SHARE); JMP DP1 ; ERROR: GOTO EOFACT; MOVC BMEOF R0 ; EOF MOV R0 STREAT.X4 ; =>TREAT.SHARE; MOVC DP1 R0 ; EOFACT MOV R┆
0x23e00…23e80 UnusedSector ┆0 SEOFAN.X4 ; =>EOFACTION.SHARE; JMP L6 ; GOTO NEXTWORD; ; DP1: ; EOFACT: MON CLOSE ; CLOSE(SHARE); MOVC 10000 R0 ; MOV R0 ┆
0x23e80…23f00 UnusedSector ┆DELAY ; DXX: ; MOVC 0 R3 ; JMP S5 DP2 ; FILLER; MOV DELAY R0 ; ADDC -1 R0 ; MOV R0 DELAY ; JON R0 DXX ; SOB R6 L4 ; IF DE┆
0x23f00…23f80 UnusedSector ┆CR(COUNT)<>0 THEN ; GOTO NEXTFILE; JMP L3 ; GOTO FIRST FILE; ; L6: ; NEXT WORD: MON INCHAR ; INCHAR(SHARE)=>DOUBLE; JMP S5 ┆
0x23f80…24000 UnusedSector ┆DP2 ; OUTPUT DOUBLE(7:0); SWP R3 ; JMP S5 DP2 ; OUTPUT DOUBLE(15:8); JMP L6 ; GOTO NEXT WORD; ; ;### DP2: ; OUTPUT: MOVC DI┆
0x24000…24080 UnusedSector ┆SPIF R2 ; DISPIF=>DEVICE; SIO R1 R2 ; SENSE(STATUS,DEVICE); IBN R1 BNINRDY ; IF STATUS(INPUT READY) THEN JMP L7 ; READ CHAR; ┆
0x24080…24100 UnusedSector ┆ IBNP R1 BNOUTRDY ; IF STATUS(OUTPUT READY) THEN WIO R3 R2 ; WRITE(CHAR,DEVICE); JMP 0. X5 ; RETURN; MOVC 100 R0 ; 100=>DELAY┆
0x24100…24180 UnusedSector ┆; MOV INTERRUPT-C R1 ; MON WAITINTERRUPT ; WAITINTERRUPT; JMP DP2 ; TIMEOUT: GOTO OUTPUT; JMP DP2 ; INTERRUPT: GOTO OUTPUT; ┆
0x24180…24200 UnusedSector ┆ ; L7: ; READ CHAR: RIO R1 R2 ; READ(CHAR,DEVICE); XTR R1 7 ; MON REGISTERS ; INE R1 XOFF ; IF CHAR<>XOFF THEN JMP DP2 ; GO┆
0x24200…24280 UnusedSector ┆TO OUTPUT; L8: ; WAIT X-ON: MOVC 100 R0 ; MOV INTERRUPT-C R1 ; MON WAITINTERRUPT ; WAITINTERRUPT(DELAY,INTERRUPT); NOP ; TIM┆
0x24280…24300 UnusedSector ┆EOUT: IGNORE; SIO R1 R2 ; SENSE(STATUS,DEVICE); IBZ R1 BNINRDY ; IF NOT STATUS(INPUT READY) THEN JMP L8 ; GOTO WAIT X-ON; RI┆
0x24300…24380 UnusedSector ┆O R1 R2 ; READ(CHAR,DEVICE); XTR R1 7 ; MON REGISTERS ; IEQ R1 XON ; IF CHAR=X-ON THEN JMP DP2 ; GOTO OUTPUT; JMP L8 ; GOTO┆
0x24380…24400 UnusedSector ┆ WAIT X-ON; ; XREFS= 1 ; XBUFS= 3 ; XPRPC= L0 ; NOLIST $SMSXP2 ; LIST END ;### ; READY) THEN JMP L8 ; GOTO WAIT X-ON; RI┆
0x24400…24480 UnusedSector ┆ ┆
[…0x7…]
0x24800…24880 UnusedSector ┆ RENSEANL[G LYNETTEN. PROCESAUTOMATISERINGS┆
0x24880…24900 UnusedSector ┆SYSTEM 7 DATO 1978.10.12 KL 15.10 BILLEDTYPE 0 VALG AF BILLEDTYPE BILLEDTYPE: t 3#c#┆
0x24900…24980 UnusedSector ┆3 up b{b p v 0#o#0 wp fbcbf p >AA]"]AA> >> >> >>> ~ @@@@ 7 DATO 19┆
0x24980…24a00 UnusedSector ┆78.10.12 KL 15.11 ┆
0x24a00…24a80 UnusedSector 0x00[128]
[…0x5…]
0x24d00…24d80 UnusedSector ┆7 R3 ; SAVE(SPECIAL.ANSWER); MOVC ERRHDTR R0 ; JMP S6 SCP10 ; MESSAGE: HDTR ERROR; MOV R3 4. X7 ; RESTORE(SPECIAL.ANSWER); J┆
0x24d80…24e00 UnusedSector ┆MP L0 ; GOTO TEST COUNT; ; L5: ; HDTR ERROR: MOVC ERRHDTR R0 ; JMP S6 SCP10 ; MESSAGE: HDTR ERROR; JMP SCG90 ; GOTO SYSTEM S┆
0x24e00…24e80 UnusedSector ┆LIST ;---------------------------------------------------------------------- ; ; F R A M E S Y N C H R O N I Z E R - D R I V E R┆
0x24e80…24f00 UnusedSector ┆ ; ; V E R S I O N I I ; ; ; WRITTEN BY: JENS ANTON THOMSEN SCHMIDT, CR-EL-ASD ; ;----------------------------------------------┆
0x24f00…24f80 UnusedSector ┆------------------------ ; BEGIN USE BASE MODULE NOLIST GLOBAL UTILITYLENGTH,PROGLENGTH,NAMELENGTH,CONTLENGTH,PROCLENGTH GLOBAL ┆
0x24f80…25000 UnusedSector ┆DRIVERLENGTH,CATALOGLENGTH,ENTRYAREA,ENTRYLENGTH,WORKAREA GLOBAL WORKLENGTH,REFLENGTH,BUFLENGTH GLOBAL LOCACT,C,CURSIN,CURSOUT,C┆
0x25000…25080 UnusedSector ┆URSWORK GLOBAL BMREENTRANT,BMINPUT,BMBYTE,BMDISP,BMOUTPUT,BMWORD GLOBAL IDLENGTH,SHARELENGTH,BUFFERLENGTH,STACKLENGTH GLOBAL BFI┆
0x25080…25100 UnusedSector ┆RST,BNEXT GLOBAL KINDOC GLOBAL PROC,NEXT ; AU000400 0 0000 LEVEL 1 NAMES: C= #000D INPARM= #0068 OUTNL= #005D PROGLH= #000E ┆
0x25100…25180 UnusedSector ┆ BMBYTE= #0004 OUTHEA= #0064 CONTLH= #0005 WAITAR= #000D BMINPT= #0001 BMWORD= #0000 BMTIMR= #0002 GETINT= #0004 REGISS=┆
0x25180…25200 UnusedSector ┆ #0013 GIVEUE= #0018 SETDEY= #0077 WAITET= #000F BACKSE= #0063 WAITIT= #0005 CLEART= #0000 OUTCHR= #005F IDLENH= #0004 ┆
0x25200…25280 UnusedSector ┆ U " D f 3 w ┆
0x25280…25300 UnusedSector ┆ w ┆
0x25300…25380 UnusedSector ┆#0002 SACTIN:= #0008 WORK:= #0040 NL:= #000A WORKAA:= #0295 BFIRST:= #0006 CAUSE:= #001E NAME:= #0007 WRK:= #004D UTILI┆
0x25380…25400 UnusedSector ┆H:= #02A1 CURIN:= #005A DEVPR:= #001F DEVICE:= #0053 ENTRYA:= #0275 BUFFEH:= #0008 CURSIN:= #005F INTERT:= #0054 WORKLH:┆
0x25400…25480 UnusedSector ┆= #000C CATALH:= #0058 REFLEH:= #0004 LOCACN:= #001C ENTRYH:= #0020 BNEXT:= #0007 PROC:= #000D MCOUNT:= #0001 SMASK:= #0┆
0x25480…25500 UnusedSector ┆007 BUFLEH:= #0009 CBASE:= #0015 KINDOC:= #0100 SHAREH:= #0022 INTRPT:= #0034 DRIVEH:= #0055 MADDRS:= #0002 CURSWK:= #01┆
0x25500…25580 UnusedSector ┆C3 CURSOT:= #0111 CUROUT:= #005B USE PROG LOCACT:= #822F USE #0 LIST XPD:= UTILITYLENGTH TST:= FALSE NOPROM:= TRUE SLOW:= TRU┆
0x25580…25600 UnusedSector ┆E N:= TRUE NOLIST IF XPD EQ UTILITYLENGTH OR XPD EQ PROGLENGTH THEN IF WORDS NE 0 THEN MESSAGE WORDS FI AREASWITCH=1 USE PROG LO┆
0x25600…25680 UnusedSector ┆C=PROG-1 BMREENTRANT XREFS XBUFS XWORDS XPSIZE 0,1,0,0,0,0 XSIZE 0 XPRPC IF LOC NE PROGLENGTH THEN MESSAGE <:ERROR: PRO┆
0x25680…25700 UnusedSector ┆G LENGTH:> FI FI IF XPD GT PROGLENGTH THEN USE BASE LOC=BASE 0,REPEAT 12 IF LOC NE PROC THEN MESSAGE <:ERROR: XPROC LOCATION:>┆
0x25700…25780 UnusedSector ┆ FI 0 REPEAT 7 ; REGISTERS 0,0 XPROGRAM XPRPC 100 0 0 LOCACT 0 0 XDEVPR 100 0 REPEAT 12 ; TIME0 - FREEAREAS #FFFF ┆
0x25780…25800 UnusedSector ┆ 0,0,0 0 REPEAT 3 ; PRICHN - ADJUST XREFSX XBUFSX IF XPD NE UTILITYLENGTH THEN XREFS=0 XBUFS=1 FI 0 REPEAT 20 ; RESTING - ┆
0x25800…25880 UnusedSector ┆SAVE19 0,REPEAT CONTLENGTH-1 LOC= LOC-C IF LOC NE PROCLENGTH-C THEN MESSAGE <:ERROR: XPROC LENGTH:> FI IF XPD GT PROCLENGTH THE┆
0x25880…25900 UnusedSector ┆N 0,0,0 IF LOC NE DRIVERLENGTH-C THEN MESSAGE <:ERROR: XDRIVER LENGTH:> FI IF XPD GT DRIVERLENGTH THEN 0 REPEAT 2 ; ESPECIAL ┆
0x25900…25980 UnusedSector ┆- CATALOG IF LOC NE CATALOGLENGTH-C THEN MESSAGE <:ERROR: XCATALOG LENGTH:> FI IF XPD GT CATALOGLENGTH THEN LOCACT LOCACT XC┆
0x25980…25a00 UnusedSector ┆URIN XCUROUT XCURWORK XCENTRY XWORKING FI FI FI FI XLOC= LOC MESSAGE <:START OF USER MODULE:> LIST IF TST REGISTERS= #76 F┆
0x25a00…25a80 UnusedSector ┆I BEGIN EXTERNAL SENDANSWER, WAITINTERRUPT, INITDEVICE, SETDELAY EXTERNAL SETINTERRUPT, WAITEVENT, GETINTERRUPT, REGISTERS EXTER┆
0x25a80…25b00 UnusedSector ┆NAL INTERRUPT, DEVPR, LOCACTION, CAUSE, NAME, WRK, DEVICE EXTERNAL GIVEUPTIME, CLEARINTERRUPT, TST, NOPROM, SLOW, N ENTRY FIRST┆
0x25b00…25b80 UnusedSector ┆ ;### USE BASE ; ; IF TST THEN ; RNAME: <:REGISS:>,0,0 ; REGISTERDUMP-PROCESS-NAME FI ; ; BAS= 8 ; ; FSCDEVNO= 7 ; DEVICE NO┆
0x25b80…25c00 UnusedSector ┆ ; FSETUP= 3 ; FUNCTIONS FTRANSMIT= 4 ; ; DONE= 0 ; ANSWERS NOTREADY= 6 ; TIMEOUT= 7 ; ILLEGAL= 9 ; OUTOFMESS= 11 ; ERROR= 8 ;┆
0x25c00…25c80 UnusedSector ┆ NOTDONE= 10 ; UNLOCKED= 12 ; SLIPPAGE= 13 ; BADHAMM= 14 ; EXDONE= 15 ; ; BLOCKLGT= 0 ; SETUPPARAMETERS FRLLSB= 1 ; FRLMSB= 2 ;┆
0x25c80…25d00 UnusedSector ┆ TTHR= 3 ; FTHR= 4 ; FORMAT= 5 ; LOCKMODE= 6 ; SORTPAR= 7 ; WZ= 8 ; BITSYNC= 9 ; NOOFBAD= 10 ; NOOFFRAMS=11 ; SYNCWL= 12 ; SYNCS┆
0x25d00…25d80 UnusedSector ┆TART=13 ; ; ;### ; CPUS= 0<2 ; PARAMETERS TO DATAPATHCONTROL BS1= 1<2 ; BS2= 2<2 ; BS3= 3<2 ; DAT= 3 ; SYN= 2 ; MAS= 1 ; ; MOD┆
0x25d80…25e00 UnusedSector ┆E= 0<6 ; REGISTER NO'S FL1= 1<6 ; FL2= 2<6 ; THR= 3<6 ; SAR= 4<6 ; BLLFOS= 5<6 ; DPC= 6<6 ; SDR= 7<6 ; ORS= 0<6 ; SYS= 1<6 ; ; ┆
0x25e00…25e80 UnusedSector ┆S1M= #2000 ; BITMASKS S2M= #4000 ; DM= #8000 ; BLOCKLM= #0FFF ; FOSPM= #F000 ; THRTM= #00FF ; THRFM= #FF00 ; ; S2S= 14 ; SHIFTS┆
0x25e80…25f00 UnusedSector ┆ ; ;### ; ; SAVELOCATIONS ; LOCA: LOC=LOC+1 ; SYSTEM-LOCAL-ACTION SLOCA: LOC=LOC+1 ; SAVELOCATION FOR LOCAL ACTION ; SETUPTA┆
0x25f00…25f80 UnusedSector ┆BLE: LOC=LOC+1 ; BASEREL. POINTER TO SETUPTABLE SETADR: LOC=LOC+1 ; DMA-ADDRESS FOR SETUP CONFIG: LOC=LOC+1 ; HIGH OR LOW SPEED ┆
0x25f80…26000 UnusedSector ┆FSCDEV:= DEVICE-C ; DEVICE NO SCOUNT: LOC=LOC+1 ; MAX SYNCWL SYNCLENGTH: LOC=LOC+2 ; FRAMELENGTH (IN WORDS) LCKSTT: LOC=LOC+1 ; ┆
0x26000…26080 UnusedSector ┆STATE DURING LOCK STATE: LOC=LOC+1 ; EVENTSTATE OLDSTATE: LOC=LOC+1 ; OLD EVENTSTATE MODER: LOC=LOC+1 ; MODEREGISTER NEVERADRST:┆
0x26080…26100 UnusedSector ┆ LOC=LOC+1 ; STARTUP-DMA-INTERRUPT SUM: LOC=LOC+1 ; SUM OF CONSECUTIVE SYNCW-ERRORS FRAMES: LOC=LOC+1 ; SUM OF FRAMES IN UNLOCK ┆
0x26100…26180 UnusedSector ┆POINTER: LOC=LOC+1 ; POSITION OF SYNCW IN BLOCK ANSW: LOC=LOC+5 ; ANSWER SAVE0: LOC=LOC+1 ; SUBROUTINE SAVELOCATIONS SAVE1: LOC=┆
0x26180…26200 UnusedSector ┆LOC+1 ; SAVE2: LOC=LOC+1 ; SAVE3: LOC=LOC+1 ; SAVE4: LOC=LOC+1 ; SAVE5: LOC=LOC+1 ; ; ;### ; ; BUFFERAREA ; BUFL= 4 ; NO OF W┆
0x26200…26280 UnusedSector ┆ORDS PR MESSAGE ; BUFPL0: LOC=LOC+BUFL ; SAVEAREA BUFPL1: LOC=LOC+BUFL ; BUFPL2: LOC=LOC+BUFL ; BUFPL3: LOC=LOC+BUFL ; BUFPL4: ┆
0x26280…26300 UnusedSector ┆LOC=LOC+BUFL ; BUFPL5: LOC=LOC+BUFL ; BUFPL6: LOC=LOC+BUFL ; BUFPL7: LOC=LOC+BUFL ; BUFPL8: LOC=LOC+BUFL ; BUFPL9: LOC=LOC+BUFL ┆
0x26300…26380 UnusedSector ┆; ; BUFTOP= LOC ; ; BUFFER-ASSOCIATED SAVELOCATIONS ; BUFIN: LOC=LOC+1 ; POINTER TO FREE AREA BUFCUR: LOC=LOC+1 ; POINTER TO ┆
0x26380…26400 UnusedSector ┆NEXT DMA-ADDRESS BUFOUT: LOC=LOC+1 ; POINTER TO NEXT TO BE ANSWERED BUFCOUNT1: LOC=LOC+1 ; COUNTER OF MESS IN BUFFER BUFCOUNT2: ┆
0x26400…26480 UnusedSector ┆LOC=LOC+1 ; COUNTER OF UNUSED DMA-ADDRESSES BUFCOUNT3: LOC=LOC+1 ; COUNTER OF MESS IN FSC OLDBUFIN: LOC=LOC+1 ; OLD POINTERS (ON┆
0x26480…26500 UnusedSector ┆E FOR EACH) OLDBUFCUR: LOC=LOC+1 ; OLDBUFOUT: LOC=LOC+1 ; BUFSTATE: LOC=LOC+1 ; FULL OR NOT FULL BUFFER ; TOP: ; IF NOPROM THEN┆
0x26500…26580 UnusedSector ┆ ; 0 REPEAT TOP-LOCA-1, LOC=TOP ; FI ; ;### ; USE PROG ; ; MODEC: ; SHIFTS AND BITMASKS ; FOR MODEREGISTER: 2, #000C ; LOCKMO┆
0x26580…26600 UnusedSector ┆DE 1, #0002 ; WRITE 0, #0001 ; EXEC 0, #0003 ; WRITEEXEC 4, #00F0 ; LOCKPOS 8, #0300 ; SORTPAR 10, #0C00 ; WINDOWSIZE 15,┆
0x26600…26680 UnusedSector ┆ #8000 ; FRAME BOUND. INT. ENABLE 14, #4000 ; POS. MEM. STATUS ; DIVISOR: ; NO OF BITS PR WORD AT 4 ; FORMAT= 0, 8 8 ; 1, 9 ┆
0x26680…26700 UnusedSector ┆ 12 ; 2, 10 8 ; 3, 11 10 ; 4, 12 12 ; 5, 13 14 ; 6, 14 16 ; 7, 15 ; ; LSETPAE: SETPARINMODE ; POINTERS TO SUBROUTINES LIN┆
0x26700…26780 UnusedSector ┆SERT: INSERT ; LINBUF: INBUF ; LSENDBUF: SENDBUF ; LRETURNBUF: RETURNBUF ; LOUTBUF: OUTBUF ; LANSWER: ANSWER ; LUPDATETBS: UPDAT┆
0x26780…26800 UnusedSector ┆ETABLES ; LPULLDOWN: PULLDOWN ; LTRANIT: TRANIT ; LCHECKERR: CHECKERR ; LEMPTYBUF: EMPTYBUF ; LDOSETUP: DOSETUP ; ; ; SSTOP1: ┆
0x26800…26880 UnusedSector ┆STOP1 ; STATES SPULLD7: PULLD7 ; SPULL13: PULL13 ; SSTART: START ; SBLOCKD: BLOCKD ; SCOLLEG: COLLEG ; SEXEINT: EXEINT STRANSG: ┆
0x26880…26900 UnusedSector ┆TRANSG ; STUNLW: TUNLW ; ;### ; ;---------------------------------------------------------------------- ;LOCAL ACTION ;---------┆
0x26900…26980 UnusedSector ┆------------------------------------------------------------- ;IF LOCAL ACTION IS NOT CAUSED BY HARDWARE-TIMEOUT, SYSTEM-LOCAL- ┆
0x26980…26a00 UnusedSector ┆;ACTION IS ENTERED. OTHERWISE ALL MESSAGES IN THE MESSAGE BUFFER IS ;ANSWERED 'NOTDONE' BUT FOR THE LAST ONE, WHICH IS ANSWERED ┆
0x26a00…26a80 UnusedSector ┆;'NOTREADY'. IF THE MESSAGE BUFFER IS EMPTY, EVENTS ARE WAITED FOR, ;AND THE FIRST MESSAGE TO COME IS ANSWERED 'NOTREADY'. ;----┆
0x26a80…26b00 UnusedSector ┆-------------------------------; ; LOCAC: ; LOCAL ACTION: MOV R0 SLOCA ; SAVE (R0); MOV CAUSE-C R0 ; CAUSE => CA; INEP R0 3 ┆
0x26b00…26b80 DataSector[»B6«]
[…0xa8…]
0x2bf80…2c000 UnusedSector ┆ZER < ;>--------------------------------< MOV SETADR R3 ; 0.SETADR => ADR; MOVC BAS R4 ; BASE => AD; SUB X4 R3 ; ADR-0.AD =>┆
0x2c000…2c080 UnusedSector ┆ ADR; MOVC 0 R0 ; 0 => W; MOVC 16 R4 ; 16 => COUNT; DOSET0: ; FOR I:=1 UNTIL COUNT DO ; BEGIN MOV R0 X3 ; W => 0.ADR; ADDC ┆
0x2c080…2c100 UnusedSector ┆1 R3 ; ADR+1 => ADR; SOB R4 DOSET0 ; END; ADDC -17 R3 ; ADR-17 => ADR; MOV SETUPE R6 ; 0.SETUPTABLE => SETUPT; MOV SYNCWL.X6┆
0x2c100…2c180 UnusedSector ┆ R4 ; SYNCWL.SETUPT => SWL; MOVC 15 R5 ; 15 => OBITN; DOSET1: ; FOR I:=SWL STEP -1 UNTIL 1 DO ; BEGIN MOV R4 R0 ; I => SBITN;┆
0x2c180…2c200 UnusedSector ┆ MOV R4 R2 ; I => SWDN; ADDC 15 R0 ; SBITN+15 => SBITN; XTR R0 4 ; SBITN(3:4) => SBITN; ADDC -1 R2 ; SWDN-1 => SWDN; SRL R2┆
0x2c200…2c280 UnusedSector ┆ 4 ; SWDN DIV 16 => SWDN; XTR R5 4 ; OBITN(3:4) => OBITN; IEQ R5 15 ; IF OBITN = 15 THEN ADDC 1 R3 ; ADR+1 => ADR; MOD R2 ; ┆
0x2c280…2c300 UnusedSector ┆(SYNCSTART+SWDN).SETUPT MOV SYNCST.X6 R2 ; => SYWD; MOD R0 ; IF SYWD (SBITN:1) = 1 IBN R2 0 ; THEN SETS X3 R5 ; 1 => 0.ADR(O┆
0x2c300…2c380 UnusedSector ┆BITN:1); ADDC -1 R5 ; OBITN-1 => OBITN; SOB R4 DOSET1 ; END; ;---------------------------------- ;### ; MOV FSCDEV R2 ; MOV┆
0x2c380…2c400 UnusedSector ┆ R2 R5 ; ADDC SDR R5 ; SIO R6 R5 ; RESET FSC; ;>--------------------------------< ;> COMPUTE MAX. SYNCWORDLENGTH < ;>------┆
0x2c400…2c480 UnusedSector ┆--------------------------< ADDC DPC-SDR R5 ; CPU => *SOURCE*; MOVC CPUS+SYN R6 ; SYNCW => *PATH*; INV R6 ; CIO R6 R5 ; MOV┆
0x2c480…2c500 UnusedSector ┆C 0 R4 ; 0 => MOV R4 MODER ; 0.MODEREGISTER; MOVC 1 R4 ; MOVC 1 R7 ; 1 => *WRITE*; JMPI S6 LSETPAE ; ADDC SAR-DPC R5 ; MOV┆
0x2c500…2c580 UnusedSector ┆ SETADR R4 ; 0.SETADR => AD; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; ADDC 16 R4 ; AD+16 => AD; MOV R4 R3 ; AD => RELAD; I┆
0x2c580…2c600 UnusedSector ┆NV R4 ; CIO R4 R5 ; AD => *DMAADR*; MOVC #3000 R4 ; INV R4 ; ADDC BLLFOS-SAR R5 ; CIO R4 R5 ; 3 => *FORMAT*; MOVC BAS R4 ;┆
0x2c600…2c680 UnusedSector ┆ RELAD- SUB X4 R3 ; 0.BAS => RELAD; ADDC SDR-BLLFOS R5 ; MOVC -1 R6 ; -1 => LCOUNT; MOVC 0 R4 ; MOV R4 X3 ; 0 => 0.RELAD; ┆
0x2c680…2c700 UnusedSector ┆MOVC #55 R4 ; #AA => DAT; MOVC 34 R0 ; SETUP1: ; LOOP: CIO R4 R5 ; DAT => *DATA*; NOP ; NOP ; MOV X3 R1 ; 0.RELAD => R; IF ┆
0x2c700…2c780 UnusedSector ┆TST MON REGISTERS ; MON GIVEUPTIME FI ; ADDC 1 R6 ; LCOUNT+1 => LCOUNT; IGEP R6 R0 ; IF LCOUNT > 33 THEN BEGIN MOVC 6 R0 ; 6┆
0x2c780…2c800 UnusedSector ┆ => ERRCODE; JMP NOREPLY ; GOTO NOREPLY; END; XTR R1 4 ; R(3:4) => R; INEP R1 #A ; IF R <> #A AND INE R1 5 ; R <> 5 THEN JM┆
0x2c800…2c880 UnusedSector ┆P SETUP1 ; GOTO LOOP; MOVC #FC R3 ; #FC => MASK; AND R3 R6 ; MASK AND LCOUNT => LCOUNT; MOV R6 SCOUNT ; LCOUNT => 0.COUNT; ;┆
0x2c880…2c900 UnusedSector ┆---------------------------------- ;### ; ;>--------------------------------< ;> COMPUTE FRAMELENGTH IN CR80- < ;> WORDS AND ┆
0x2c900…2c980 UnusedSector ┆SETUP FRAMELENGTH < ;>--------------------------------< SIO R6 R5 ; RESET FSC; MOV SETUPE R6 ; 0.SETUPTABLE => ADR; MOV FRLM┆
0x2c980…2ca00 UnusedSector ┆SB.X6 R1 ; FRAMELENGTH MOV FRLLSB.X6 R0 ; DIV MOV FORMAT.X6 R3 ; BIT XTR R3 3 ; PR MOD R3 ; WORD MOV DIVISOR R3 ; => DIV R┆
0x2ca00…2ca80 UnusedSector ┆3 R0 ; SYNCL; MOVC SYNCLH R4 ; MOVL R0 0. X4 ; SYNCL => 0.SYNCLENGTH; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; MOV FRLMSB.┆
0x2ca80…2cb00 UnusedSector ┆X6 R1 ; FRAMELENGTH MOV FRLLSB.X6 R0 ; -1 MOVC 0 R3 ; ADDC -1 R0 ; => SUBU R3 R1 ; FRAMELENGTH; IF TST MON REGISTERS ; MON ┆
0x2cb00…2cb80 UnusedSector ┆GIVEUPTIME FI ; INV R0 ; SLL R1 12 ; INV R1 ; MOVC FL1 R5 ; FRAMELENGTHMSB => *FRAMELMSB*; ADD R2 R5 ; CIO R1 R5 ; MOVC F┆
0x2cb80…2cc00 UnusedSector ┆L2 R5 ; FRAMELENGTHLSB => *FRAMELLSB*; ADD R2 R5 ; CIO R0 R5 ; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; ;-----------------┆
0x2cc00…2cc80 UnusedSector ┆----------------- ;### ; ;>--------------------------------< ;> CHECK SYNCWORDLENGTH < ;>--------------------------------< M┆
0x2cc80…2cd00 UnusedSector ┆OV SYNCWL.X6 R1 ; SYNCWL.ADR => SYNCL; ADDC 15 R1 ; SYNCL+15 => SYNCL; SRL R1 4 ; SYNCL DIV 16 => SYNCL; MOV SCOUNT R0 ; 0.SC┆
0x2cd00…2cd80 UnusedSector ┆OUNT => COUNT; SRL R0 1 ; COUNT DIV 2 => COUNT; IGE R0 R1 ; IF COUNT < SYNCL THEN JMP SLNOERR ; BEGIN MOVC NOTDONE R4 ; JMP┆
0x2cd80…2ce00 UnusedSector ┆I S6 LEMPTYBUF ; EMPTYBUF (NOT DONE); MON REGISTERS ; IF EMPTY SOFTWARE ERROR; MOVC ANSW R5 ; ANSW => ADDRESS; SLL R0 2 ; COU┆
0x2ce00…2ce80 UnusedSector ┆NT*4 => COUNT; MOV R0 2. X5 ; COUNT => 2.ADDRESS; MOVC 4 R6 ; 4 => P; MOV R6 3. X5 ; P => 3.ADDRESS; MOVC ERROR R7 ; ERROR =┆
0x2ce80…2cf00 UnusedSector ┆> ANSWCODE; JMPI S5 LANSWER ; ANSWER (ANSWCODE); MOV SSTART R5 ; START => MOV R5 STATE ; 0.STATE; JMP START ; GOTO START; SL┆
0x2cf00…2cf80 UnusedSector ┆NOERR: ; END; ;---------------------------------- ;### ; ;>--------------------------------< ;> SETUP OF SYNCWORD < ;>------┆
0x2cf80…2d000 UnusedSector ┆--------------------------< MOV SETADR R4 ; 0.SETADR => ADR2; MOVC BAS R3 ; BASE => AD; SUB X3 R4 ; ADR2-0.AD => ADR2; MOVC ┆
0x2d000…2d080 UnusedSector ┆SYN+CPUS R3 ; SYNCW => *PATH*; MOVC DPC R5 ; ADD R2 R5 ; CPU => *SOURCE*; INV R3 ; CIO R3 R5 ; MOVC SDR R5 ; DATA + ADD R2┆
0x2d080…2d100 UnusedSector ┆ R5 ; FSC => REGDEV; MOV R1 R3 ; SYNCL => SSYNCL; SYNCLOOP0: ; FOR I := 1 UNTIL SSYNCL DO ; BEGIN IF TST MON REGISTERS ; MON ┆
0x2d100…2d180 UnusedSector ┆GIVEUPTIME FI ; MOV 0. X4 R7 ; 0.ADR2 => DATA; INV R7 ; INVERT DATA; SWP R7 ; CHANGE BYTES IN DATA; CIO R7 R5 ; LOWBYTE (DAT┆
0x2d180…2d200 UnusedSector ┆A) => *DATA*; SWP R7 ; CHANGE BYTES IN DATA; CIO R7 R5 ; LOWBYTE (DATA) => *DATA*; ADDC 1 R4 ; ADR2+1 => ADR2; SOB R3 SYNCL0┆
0x2d200…2d280 UnusedSector ┆ ; END; SUB R1 R0 ; COUNT-SYNCL => COUNT; ILT R0 1 ; IF COUNT > 0 THEN JMP SETUP2 ; BEGIN IF TST MON REGISTERS ; MON GIVEUPT┆
0x2d280…2d300 UnusedSector ┆IME FI ; MOVC #FF R7 ; 0 => DATA; SYNCLOOP1: ; FOR I := 1 UNTIL COUNT DO ; BEGIN CIO R7 R5 ; DATA => *DATA*; CIO R7 R5 ; DAT┆
0x2d300…2d380 UnusedSector ┆A => *DATA*; SOB R0 SYNCL1 ; END; SETUP2: ; END; ;---------------------------------- ;### ; ;>-------------------------------┆
0x2d380…2d400 UnusedSector ┆-< ;> SETUP OF MASK < ;>--------------------------------< MOVC MAS+CPUS R3 ; MASK => *PATH*; MOVC DPC R4 ; CPU => *SOURCE*; ┆
0x2d400…2d480 UnusedSector ┆ ADD R2 R4 ; INV R3 ; CIO R3 R4 ; MOV SYNCWL.X6 R1 ; SYNCWL.ADR => SYNCL; MOV R1 R3 ; SYNCL => REST; SRL R1 3 ; SYNCL DIV 8┆
0x2d480…2d500 UnusedSector ┆ => SYNCL; MOV R1 R4 ; SYNCL => SSYNCL; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; MOVC 0 R7 ; #FF => DATA; MASKLOOP0: ; FOR ┆
0x2d500…2d580 UnusedSector ┆I := 1 UNTIL SSYNCL DO CIO R7 R5 ; DATA => *DATA*; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; MOVC 0 R7 ; SOB R4 MASKL0 ; M┆
0x2d580…2d600 UnusedSector ┆OV SCOUNT R0 ; 0.SCOUNT => COUNT; IGE R1 R0 ; IF SYNCL < COUNT DO JMP SETUP3 ; BEGIN XTR R3 3 ; #FF SHIFT IF TST MON REGISTER┆
0x2d600…2d680 UnusedSector ┆S ; MON GIVEUPTIME FI ; MOVC #FF R7 ; RIGHT MOD R3 ; (8-SYNCL REM 8) SRL R7 0 ; => CIO R7 R5 ; *DATA*; IF TST MON REGISTERS┆
0x2d680…2d700 UnusedSector ┆ ; MON GIVEUPTIME FI ; SUB R1 R0 ; COUNT-SYNCL => COUNT; ADDC -1 R0 ; COUNT-1 => COUNT; ILT R0 1 ; IF COUNT >= 1 THEN JMP S┆
0x2d700…2d780 UnusedSector ┆ETUP3 ; BEGIN MOVC #FF R7 ; 0 => DATA; MASKLOOP1: ; FOR I:=1 UNTIL COUNT DO CIO R7 R5 ; DATA => *DATA*; IF TST MON REGISTERS ;┆
0x2d780…2d800 UnusedSector ┆ MON GIVEUPTIME FI ; MOVC #FF R7 ; SOB R0 MASKL1 ; END; SETUP3: ; END; ;---------------------------------- ;### ; ;>-------┆
0x2d800…2d880 UnusedSector ┆-------------------------< ;> SETUP OF LOCKMODE, SORTPAR < ;> WINDOWSIZE, THRESHOLD AND < ;> DATAPATH < ;>------------------┆
0x2d880…2d900 UnusedSector ┆--------------< MOV R6 R5 ; ADR => ADR1; MOVC 0 R6 ; 0 => MOV R6 MODER ; 0.MODEREGISTER; MOV LOCKME.X5 R7 ; LOCKMODE.ADR1 =>┆
0x2d900…2d980 UnusedSector ┆ FIELDVAL; MOVC 0 R4 ; 0 => FIELDNO; JMPI S6 LSETPAE ; SETPARINMODE; MOV SORTPR.X5 R7 ; SORTPAR.ADR1 => FIELDVAL; MOVC 5 R4 ┆
0x2d980…2da00 UnusedSector ┆; 5 => FIELDNO; JMPI S6 LSETPAE ; SETPARINMODE; MOV WZ. X5 R7 ; WZ.ADR1 => FIELDVAL; MOVC 6 R4 ; 6 => FIELDNO; JMPI S6 LSETP┆
0x2da00…2da80 UnusedSector ┆AE ; SETPARINMODE; MOV SYNCWL.X5 R0 ; SYNCWL.ADR1 => W; MOV FTHR. X5 R4 ; FALSETHR.ADR1 => FT; SUB R4 R0 ; W-FALSETHR.ADR1 =>┆
0x2da80…2db00 UnusedSector ┆ W; XTR R0 8 ; W*256 SWP R0 ; => W; ADD TTHR. X5 R0 ; W+TRUETHR.ADR1 => W; INV R0 ; MOVC THR R4 ; ADD R2 R4 ; CIO R0 R4 ;┆
0x2db00…2db80 UnusedSector ┆ W => *THRESHOLD*; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; MOV BITSYC.X5 R0 ; SLL R0 2 ; INV R0 ; MOVC DPC R4 ; ADD R2 ┆
0x2db80…2dc00 UnusedSector ┆R4 ; BITSYNC.ADR1 => SOURCE; CIO R0 R4 ; ADDC -DAT R0 ; DATA => *PATH*; CIO R0 R4 ; IF TST MON REGISTERS ; MON GIVEUPTIME FI┆
0x2dc00…2dc80 UnusedSector ┆ ; ;---------------------------------- ;### ; ;>--------------------------------< ;> SETUP OF CONDITION BITS < ;>-----------┆
0x2dc80…2dd00 UnusedSector ┆---------------------< MOVC MODER R5 ; MOVC #FFFF R0 ; MODC DM ; 1 => D (IN *MODE*); PUT R0 X5 ; MODC S1M ; 1 => S1 (IN *MO┆
0x2dd00…2dd80 UnusedSector ┆DE*); PUT R0 X5 ; MODC S2M ; 1 => S2 (IN *MODE*); PUT R0 X5 ; MOV X5 R3 ; INV R3 ; CIO R3 R2 ; IF TST MON REGISTERS ; MON┆
0x2dd80…2de00 UnusedSector ┆ GIVEUPTIME FI ; ;>--------------------------------< ;> DIVERSE INITIALISATION < ;>--------------------------------< MOVC 1 ┆
0x2de00…2de80 UnusedSector ┆R0 ; MOV R0 NEVERT ; 1 => NEVERADDRESSENT; MOV BUFIN R0 ; 0.BUFIN IF TST MON REGISTERS ; MON GIVEUPTIME FI ; MOV R0 BUFCUR ;┆
0x2de80…2df00 UnusedSector ┆ => 0.BUFCUR; MOVC 0 R0 ; 0 => MOV R0 SUM ; 0.SUM; MOV R0 POINTER ; 0 => 0.POINTER; MOV R0 LCKSTT ; 0 => 0.LOCKSTATE; MOV R┆
0x2df00…2df80 UnusedSector ┆0 BUFCOUNT3 ; 0 => 0.BUFCOUNT3; ;---------------------------------- MOV INTERT-C R1 ; MON CLEARINTERRUPT ; CLEAR INTERRUPTS; ┆
0x2df80…2e000 UnusedSector ┆ MOV SBLOCKD R0 ; BLOCKED => MOV R0 STATE ; 0.STATE; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; JMPI SAVE0 ; RETURN; ; ; ;.┆
0x2e000…2e080 UnusedSector ┆..................................................................... ;### ;....................................................┆
0x2e080…2e100 UnusedSector ┆.................. ;INTERRUPT HANDLING UNDER TRANSPUT ;...................................................................... ;S┆
0x2e100…2e180 UnusedSector ┆ERVES THE INTERRUPTS FROM THE FRAME SYNCHRONIZER. ;IF THE DRIVER IS ABOUT TO RUN OUT OF MESSAGES, THE 'EMPTY' STATE ;IS ENTERED,┆
0x2e180…2e200 UnusedSector ┆ WHERE EVENTS ARE WAITED FOR, AND IF THE EVENT IS A ;DMA-INTERRUPT, THE LAST MESSAGE IN THE MESSAGE-BUFFER IS ANSWERED ;'OUT-OF-┆
0x2e200…2e280 UnusedSector ┆MESSAGES'. IF THE EVENT IS A MESSAGE WITH FUNCTION ;'TRANSMIT', THE DMA-ADDRESS IS SENT TO THE FRAME SYNCHRONIZER ;AND THE 'EMPT┆
0x2e280…2e300 UnusedSector ┆Y' STATE IS LEFT ;...................................................................... ; CALL EXIT ; ;R2 DESTROYED ;R3 DESTROY┆
0x2e300…2e380 UnusedSector ┆ED ;R4 DESTROYED ;R5 DESTROYED ;R6 LINK DESTROYED ;R7 DESTROYED ;...................................; ; TRANIT: ; HANDLE INTERR┆
0x2e380…2e400 UnusedSector ┆UPT: MOV R6 SAVE0 ; SAVE (LINK); MOV DEVPR-C R4 ; XTR R4 2 ; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; MOD R4 ; JMP LOC+1┆
0x2e400…2e480 UnusedSector ┆ ; JMP TRAPR0 ; JMP TRAPR1 ; JMP TRAPR2 ; CASE PRI+1 OF JMP TRAPR2 ; BEGIN TRAPR0: ; BEGIN CASE 1 - PRI 0 JMPI S6 LUPDATS ;┆
0x2e480…2e500 UnusedSector ┆ UPDATETABLES; JMP TRAUNL ; IF UNLOCK THEN JMPI SAVE0 ; BEGIN TRAUNL: JMPI S5 LPULLDOWN ; PULLDOWN; JMPI S5 LOUTBUF ; OUTBUF;┆
0x2e500…2e580 UnusedSector ┆ MON REGISTERS ; IF EMPTY SOFTWARE ERROR; MOV POINTER R5 ; 0.POINTER => P; MOV R5 ANSW+1 ; P => 1.ANSW; MOVC UNLOCKED R7 ; U┆
0x2e580…2e600 UnusedSector ┆NLOCKED => ANSWCODE; JMPI S5 LANSWER ; ANSWER (ANSWCODE); MOV SYNCLENGTH R5 ; 0.SYNCLENGTH => P; NEG R5 ; 0-P => P; MOV R5 P┆
0x2e600…2e680 UnusedSector ┆OINTER ; P => POINTER; MOVC 3 R4 ; MOVC 3 R7 ; JMPI S6 LSETPAE ; 3 => *WRITEEXEC*; JMP TUNLOCKED ; GOTO UNLOCKED; ; END; ;┆
0x2e680…2e700 UnusedSector ┆ END; ;### ; TRAPR1: ; BEGIN CASE 2 - PRI 1 JOZ R0 TRAP11 ; IF INTRPTCOUNT > 0 THEN MOVC 32 R4 ; ERROUTOFMESS (32); JMP ERRME┆
0x2e700…2e780 UnusedSector ┆SS ; TRAP11: MOVC BUFCOUNT3 R5 ; DEC 0. X5 ; DECR (0.BUFCOUNT3); JON X5 TRANI1 ; IF 0.BUFCOUNT3 = 0 THEN MOVC 33 R4 ; JMP ER┆
0x2e780…2e800 UnusedSector ┆RMESS ; ERROUTOFMESS (33); TRANI1: JMPI S6 LRETURNBUF ; RETURNBUF; MON REGISTERS ; IF EMPTY SOFTWARE ERROR; MOV BUFCOUNT2 R6 ;┆
0x2e800…2e880 UnusedSector ┆ IF TST MON REGISTERS ; MON GIVEUPTIME FI ; JOZ R6 TRANI2 ; IF 0.BUFCOUNT2 <> 0 THEN JMPI S6 LSENDBUF ; SENDBUF; TRANI2: JMPI┆
0x2e880…2e900 UnusedSector ┆ SAVE0 ; END; TRAPR2: ; BEGIN CASE 3,4 - PRI 2,3 MOVC ERROR R2 ; MOV FSCDEV R6 ; SIO R3 R6 ; INV R3 ; JMPI S5 LCHECKERR ; I┆
0x2e900…2e980 UnusedSector ┆F NOT P.M.F. ONLY THEN JMP ERRORFUNC ; ERRORFUNC; JMPI SAVE0 ; END; ; END; ; RETURN; ; ; ;................................┆
0x2e980…2ea00 UnusedSector ┆...................................... ;### ;...................................................................... ;GOTOFUNCTIO┆
0x2ea00…2ea80 UnusedSector ┆N ; CALL EXIT ; ;R1 OPERATION FUNCTION ;...................................; ; GOTOFUNC: ; XTR R1 4 ; MOD R1 ; CASE FUNCTION ┆
0x2ea80…2eb00 UnusedSector ┆OF JMP LOC+1 ; BEGIN JMP DUMMYFUNC ; 0: GOTO DUMMYFUNC; JMP DUMMYC ; 1: GOTO DUMMYFUNC; JMP DUMMYC ; 2: GOTO DUMMYFUNC; JMP┆
0x2eb00…2eb80 UnusedSector ┆ SETUP ; 3: GOTO SETUP; JMP TRANSMIT ; 4: GOTO TRANSMIT; JMP DUMMYC ; 5: GOTO DUMMYFUNC; JMP DUMMYC ; 6: GOTO DUMMYFUNC; JMP┆
0x2eb80…2ec00 UnusedSector ┆ DUMMYC ; 7: GOTO DUMMYFUNC; JMP DUMMYC ; 8: GOTO DUMMYFUNC; JMP DUMMYC ; 9: GOTO DUMMYFUNC; JMP DUMMYC ; 10: GOTO DUMMYFUNC;┆
0x2ec00…2ec80 UnusedSector ┆ JMP DUMMYC ; 11: GOTO DUMMYFUNC; JMP DUMMYC ; 12: GOTO DUMMYFUNC; JMP DUMMYC ; 13: GOTO DUMMYFUNC; JMP DUMMYC ; 14: GOTO DU┆
0x2ec80…2ed00 UnusedSector ┆MMYFUNC; JMP DUMMYC ; 15: GOTO DUMMYFUNC; ; END; ; ; ;......................................................................┆
0x2ed00…2ed80 UnusedSector ┆ ;### ;---------------------------------------------------------------------- ; ; MAINPROGRAM ; ;-------------------------------┆
0x2ed80…2ee00 UnusedSector ┆--------------------------------------- ; INITIALIZING SEQUENCE ;---------------------------------------------------------------┆
0x2ee00…2ee80 UnusedSector ┆------- INIT: ; INIT: IF TST THEN MOVC RNAME R0 ; RNAME => MOV R0 WRK-1-C ; 0.RNAME; FI IF N THEN MOVC <:FS:> R0 ; "FSC" => ┆
0x2ee80…2ef00 UnusedSector ┆NAME; MOV R0 NAME-C ; MOVC <:C:> R0 ; MOV R0 NAME+1-C ; FI MOVC FSCDEVNO R0 ; MOV R0 FSCDEV ; SLL R0 2 ; MOV R0 DEVPR-C ;┆
0x2ef00…2ef80 UnusedSector ┆ MON INITDEVICE ; INITDEVICE; MOVC 0 R0 ; IF N THEN MOV R0 NAME+2-C ; FI MOV R0 CONFIG ; 0 => 0.CONFIG; MOV R0 BUFCOUNT1 ; ┆
0x2ef80…2f000 UnusedSector ┆0 => 0.BUFCOUNT1; MOV R0 BUFCOUNT2 ; 0 => 0.BUFCOUNT2; MOV LOCACN-C R0 ; 0.LOCACN => WK; MOV R0 LOCA ; WK => 0.LOCA; MOVC LO┆
0x2f000…2f080 UnusedSector ┆CAC R0 ; LOCAC => ADR; MOV R0 LOCACN-C ; ADR => 0.LOCACN; MOVC BUFPL0 R0 ; MOV R0 BUFIN ; BUFPL0 => 0.BUFIN; MOV R0 BUFOUT ;┆
0x2f080…2f100 UnusedSector ┆ BUFPL0 => 0.BUFOUT; MOV SSTART R1 ; MOV R1 STATE ; START => STATE; ; ; ;---------------------------------------------------┆
0x2f100…2f180 UnusedSector ┆------------------- ;### ;---------------------------------------------------------------------- ; START STATE - WAIT FOR SETUP-┆
0x2f180…2f200 UnusedSector ┆MESSAGE ;---------------------------------------------------------------------- START: ; START: MOV INTERT-C R1 ; MON SETINTE┆
0x2f200…2f280 UnusedSector ┆RRUPT ; SETINTERRUPT; MON WAITEVENT ; WAITEVENT; JMP TREATR ; ANSWER: ILLEGAL; JMP STARTM ; JMP START ; INTERRUPT: GOTO STAR┆
0x2f280…2f300 UnusedSector ┆T; STARTM: ; MESSAGE: JMPI S6 LINBUF ; INBUF; MOV X7 R1 ; IF FUNCTION XTR R1 4 ; <> SETUP IF TST MON REGISTERS ; MON GIVEUPT┆
0x2f300…2f380 UnusedSector ┆IME FI ; IEQ R1 FSETUP ; THEN JMP SETUP ; BEGIN JMPI S5 LOUTBUF ; OUTBUF; MON REGISTERS ; IF EMPTY SOFTWARE ERROR; MOVC ILL┆
0x2f380…2f400 UnusedSector ┆EGAL R7 ; ILLEGAL => ANSWCODE; JMPI S5 LANSWER ; ANSWER (ANSWCODE); JMP START ; GOTO START; ; END; ; ; ;-------------------┆
0x2f400…2f480 UnusedSector ┆--------------------------------------------------- ;### ;----------------------------------------------------------------------┆
0x2f480…2f500 UnusedSector ┆ ; FUNCTION SETUP ;---------------------------------------------------------------------- SETUP: ; MOV 2. X7 R5 ; 2.WORK => AD┆
0x2f500…2f580 UnusedSector ┆RABS; MOVC BAS R4 ; BAS => AD; SUB X4 R5 ; ADRABS-0.AD => ADDRESS; MOV R5 SETUPE ; ADDRESS => 0.SETUPTABLE; MOV 3. X7 R3 ; 3┆
0x2f580…2f600 UnusedSector ┆.WORK => SETAD; MOV R3 SETADR ; SETAD => 0.SETADR; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; JMPI S6 LDOSETUP ; DO SETUP; M┆
0x2f600…2f680 UnusedSector ┆OVC NOTDONE R4 ; JMPI S6 LEMPTYBUF ; EMPTYBUF (NOT DONE); MON REGISTERS ; IF EMPTY SOFTWARE ERROR; MOV SYNCLH R2 ; 0.SYNCLENG┆
0x2f680…2f700 UnusedSector ┆TH MOV R2 ANSW+1 ; => COUNT.ANSWER; MOVC DONE R7 ; JMPI S5 LANSWER ; ANSWER (DONE); MOVC 0 R5 ; 0 => MOV R5 ANSW+1 ; COUNT.┆
0x2f700…2f780 UnusedSector ┆ANSWER; ; ; ;---------------------------------------------------------------------- ;### ;------------------------------------┆
0x2f780…2f800 UnusedSector ┆---------------------------------- ; BLOCKED STATE - WAIT FOR ALL MESSAGES ;----------------------------------------------------┆
0x2f800…2f880 UnusedSector ┆------------------ BLOCKED: ; MOV INTERT-C R1 ; MON SETINTERRUPT ; SETINTERRUPT; MON WAITEVENT ; WAITEVENT; JMP TREATR ; AN┆
0x2f880…2f900 UnusedSector ┆SWER: ILLEGAL; JMP BLOCKS ; JMP BLOCKED ; INTERRUPT: GOTO BLOCKED; BLOCKEDMS: ; MESSAGE: JMPI S6 LINBUF ; INBUF; MOV X7 R1 ;┆
0x2f900…2f980 UnusedSector ┆ 0.WORK => OPERATION; JMP GOTOFUNC ; GOTO FUNCTION; ; ; ;--------------------------------------------------------------------┆
0x2f980…2fa00 UnusedSector ┆-- ;### ;---------------------------------------------------------------------- ; FUNCTION TRANSMIT ;---------------------------┆
0x2fa00…2fa80 UnusedSector ┆------------------------------------------- TRANSMIT: ; MOV STATE R7 ; MOV R7 OLDSTATE ; 0.STATE => 0.OLDSTATE; MOV SCOLLEG ┆
0x2fa80…2fb00 UnusedSector ┆R7 ; MOV R7 STATE ; COLLECTING => 0.STATE; MOV NEVERT R6 ; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; INEP R6 1 ; IF 0.NEVER┆
0x2fb00…2fb80 UnusedSector ┆ADRSENT <> 1 THEN JMPI S6 LSENDBUF ; SENDBUF ELSE JMP COLLEG ; BEGIN MOVC 0 R6 ; 0 => MOV R6 NEVERT ; 0.NEVERADRSENT; JMPI ┆
0x2fb80…2fc00 UnusedSector ┆S6 LSENDBUF ; SENDBUF; MOV SETUPE R6 ; 0.SETUPTABLE => ADR; MOV FORMAT.X6 R1 ; FORMAT.ADR => W; SLL R1 12 ; W<12 => W; MOV B┆
0x2fc00…2fc80 UnusedSector ┆LOCKT.X6 R2 ; BLOCKLENGTH.ADR => W1; ADD R2 R1 ; W1+W => W; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; MOV FSCDEV R6 ; ADDC ┆
0x2fc80…2fd00 UnusedSector ┆BLLFOS R6 ; INV R1 ; CIO R1 R6 ; W => *BLOCKLENGTHFORMAT*; MOV INTERT-C R1 ; MOVC 10 R0 ; MON WAITINTERRUPT ; WAITINTERRUPT┆
0x2fd00…2fd80 UnusedSector ┆; JMP TRANS1 ; IF TIMEOUT THEN GOTO TOUT; MOV DEVPR-C R2 ; INTERRUPT: CONTINUE; XTR R2 2 ; IF PRI <> IF TST MON REGISTERS ; ┆
0x2fd80…2fe00 UnusedSector ┆MON GIVEUPTIME FI ; IEQ R2 1 ; 1 THEN JMP TRANS0 ; BEGIN MOV R2 R4 ; PRI => PRIO; MOVC ERROR R2 ; MOV FSCDEV R5 ; SIO R3 R┆
0x2fe00…2fe80 UnusedSector ┆5 ; ERRORFUNC(ERROR,STATUS); INV R3 ; JMP ERRORC ; END ELSE GOTO OK; TRANS1: ; TOUT: MOVC 8 R0 ; 8 => ERRCODE; JMP NOREPLY ;┆
0x2fe80…2ff00 UnusedSector ┆ GOTO NOREPLY; TRANS0: ;OK:END; JOZ R0 COLLEG ; IF INTERRUPTCOUNT >= 0 THEN MOVC 48 R4 ; ERROUTOFMESS (48); JMP ERRMESS ; ; ┆
0x2ff00…2ff80 UnusedSector ┆ ; ;---------------------------------------------------------------------- ;### ;-----------------------------------------------┆
0x2ff80…30000 UnusedSector ┆----------------------- ; STATE COLLECTING ;---------------------------------------------------------------------- COLLECTING: ┆
0x30000…30080 UnusedSector ┆; COLLECTING: MOV INTERT-C R1 ; MON SETINTERRUPT ; SETINTERRUPT; MON WAITEVENT ; WAITEVENT; JMP TREATR ; ANSWER: ILLEGAL; J┆
0x30080…30100 UnusedSector ┆MP COLLMS ; MOVC ERROR R2 ; INTERRUPT: MOV FSCDEV R5 ; SIO R3 R5 ; ERRORFUNC (ERROR,STATUS); MOV DEVPR-C R4 ; XTR R4 2 ; I┆
0x30100…30180 UnusedSector ┆NV R3 ; JMP ERRORC ; COLLMS: ; MESSAGE: JMPI S6 LINBUF ; INBUF; MOV X7 R1 ; XTR R1 4 ; IF FUNCTION <> INE R1 FTRANT ; TRANS┆
0x30180…30200 UnusedSector ┆MIT THEN JMP GOTOFC ; GOTO FUNCTION; JMPI S6 LSENDBUF ; SENDBUF; MOV SYNCLENGTH R4 ; 0.SYNCLENGTH => P; NEG R4 ; 0-P => P; ┆
0x30200…30280 UnusedSector ┆MOV R4 POINTER ; P => 0.POINTER; MOVC 3 R4 ; 3 => MOVC 3 R7 ; *WRITEEXEC*; JMPI S6 LSETPAE ; MOV SEXEINT R6 ; EXECUTEINTERRU┆
0x30280…30300 UnusedSector ┆PT => MOV R6 STATE ; 0.STATE; ; ; ;---------------------------------------------------------------------- ;### ;-------------┆
0x30300…30380 UnusedSector ┆--------------------------------------------------------- ; STATE EXECUTEINTERRUPT ;--------------------------------------------┆
0x30380…30400 UnusedSector ┆-------------------------- EXEINT: ; EXECUTEINTERRUPT: IF SLOW MODC #4000 FI ; MOVC 100 R0 ; 1 SEC => DELAY; MOV INTERT-C R1 ┆
0x30400…30480 UnusedSector ┆; MON SETDELAY ; MON SETINTERRUPT ; MON WAITEVENT ; WAITEVENT; JMP TTIMEOUT ; TIMEOUT: GOTO TIMEOUT; JMP TREATR ; ANSWER: I┆
0x30480…30500 UnusedSector ┆MPOSSIBLE; JMP EXEIN1 ; MESSAGE: GOTO EXECUTEMESS; MOV DEVPR-C R4 ; INTERRUPT: CONTINUE; XTR R4 2 ; IF PRI <> 0 THEN IF TST M┆
0x30500…30580 UnusedSector ┆ON REGISTERS ; MON GIVEUPTIME FI ; JOZ R4 EXEIN2 ; BEGIN MOVC ERROR R2 ; MOV FSCDEV R5 ; SIO R3 R5 ; *OPSTATUS* => STATUS; ┆
0x30580…30600 UnusedSector ┆ INV R3 ; JMP ERRORFUNC ; GOTO ERRORFUNC; EXEIN2: ; END; MOV STRANSG R6 ; TRANSMITTING => MOV R6 STATE ; 0.STATE; JMP TRANSG┆
0x30600…30680 UnusedSector ┆ ; GOTO TRANSMITTING; EXEIN1: ; EXECUTEMESS: JMPI S6 LINBUF ; INBUF; MOV X7 R1 ; XTR R1 4 ; IF TST MON REGISTERS ; MON GIVEU┆
0x30680…30700 UnusedSector ┆PTIME FI ; INE R1 FTRANT ; IF FUNCTION <> TRANSMIT THEN JMP GOTOFUNC ; GOTO FUNCTION; JMP EXEINT ; GOTO EXECUTEINTERRUPT; ; ┆
0x30700…30780 UnusedSector ┆ ; ;---------------------------------------------------------------------- ;### ;-----------------------------------------------┆
0x30780…30800 UnusedSector ┆----------------------- ; STATE TRANSMITTING ;---------------------------------------------------------------------- TRANSMITTI┆
0x30800…30880 UnusedSector ┆NG: ; TRANSMITTING; IF SLOW MODC #4000 FI ; MOVC 100 R0 ; MON SETDELAY ; SET DELAY = 1 SEC; MOV INTERT-C R1 ; MON SETINTERRU┆
0x30880…30900 UnusedSector ┆PT ; SETINTERRUPT; MON WAITEVENT ; WAITEVENT; JMP TTIMEOUT ; JMP TREATR ; ANSWER: ILLEGAL; JMP TRANSM ; JMPI S6 LTRANIT ; I┆
0x30900…30980 UnusedSector ┆NTERRUPT: HANDLE IT; JMP TRANSG ; GOTO TRANSMITTING; TRANSM: ; MESSAGE: JMPI S6 LINBUF ; INBUF; IF TST MON REGISTERS ; MON GI┆
0x30980…30a00 UnusedSector ┆VEUPTIME FI ; JOZ R3 TRANF ; IF BUFFER FULL THEN TRANSFULL: ; BEGIN MOV INTERT-C R1 ; BUFFILLED: IF SLOW MODC #4000 FI ; MOVC┆
0x30a00…30a80 UnusedSector ┆ 100 R0 ; MON WAITINTERRUPT ; WAITINTERRUPT; JMP TTIMEOUT ; IF TIMEOUT GOTO TIMEOUT; JMPI S6 LTRANIT ; HANDLE INTERRUPT; MOV┆
0x30a80…30b00 UnusedSector ┆ BUFSTATE R3 ; IF 0.BUFSTATE <> 0 THEN JON R3 TRANSFULL ; GOTO BUFFILLED; TRANF: ; END; ;### ; MOVC WRK-C R7 ; MOV X7 R1 ; X┆
0x30b00…30b80 UnusedSector ┆TR R1 4 ; IF FUNCTION <> TRANSMIT INE R1 FTRANT ; THEN JMP GOTOFC ; GOTO FUNCTION; MOV BUFCOUNT3 R1 ; IF TST MON REGISTERS ; ┆
0x30b80…30c00 UnusedSector ┆ MON GIVEUPTIME FI ; ILT R2 2 ; IF O.BUFCOUNT3 < 2 THEN JMPI S6 LSENDBUF ; SENDBUF; JMP TRANSG ; GOTO TRANSMITTING; TTIMEOUT:┆
0x30c00…30c80 UnusedSector ┆ ; TIMEOUT: JMPI S5 LOUTBUF ; OUTBUF; MON REGISTERS ; IF EMPTY SOFTWARE ERROR; MOVC TIMEOUT R7 ; MOV POINTER R5 ; JON R5 TT┆
0x30c80…30d00 UnusedSector ┆IME1 ; IF 0.POINTER = 0 THEN MOV SETUPE R5 ; BLOCKLENGTH.SETUPTABLE => MOV BLOCKT.X5 R5 ; 1.ANSW TTIME1: ; ELSE MOVC ANSW+1 R┆
0x30d00…30d80 UnusedSector ┆4 ; 0.POINTER MOV R5 0. X4 ; => 1.ANSW; JMPI S5 LANSWER ; ANSWER (TIMEOUT,COUNT); JMPI S6 LDOSETUP ; DO SETUP; MOVC NOTDONE ┆
0x30d80…30e00 UnusedSector ┆R4 ; JMPI S6 LEMPTYBUF ; EMPTYBUF (NOT DONE); JMP BLOCKED ; IF EMPTY GOTO BLOCKED; MOVC NOTDONE R7 ; JMPI S5 LANSWER ; ANSWE┆
0x30e00…30e80 UnusedSector ┆R (NOT DONE); JMP BLOCKED ; GOTO BLOCKED; ; ;---------------------------------------------------------------------- ;### ;----┆
0x30e80…30f00 UnusedSector ┆------------------------------------------------------------------ ; DUMMYFUNCTION ;--------------------------------------------┆
0x30f00…30f80 UnusedSector ┆-------------------------- DUMMYFUNC: ; DUMMYFUNCTION: MOVC ILLEGAL R7 ; ILLEGAL => ANSWCODE; JMPI S6 LINSERT ; INSERT (ANSWC┆
0x30f80…31000 UnusedSector ┆ODE); JMPI STATE ; RETURN TO STATE; ; ; ;---------------------------------------------------------------------- ;### ;-------┆
0x31000…31080 UnusedSector ┆--------------------------------------------------------------- ; STATE UNLOCKED ;----------------------------------------------┆
0x31080…31100 UnusedSector ┆------------------------ TUNLOCKED: ; UNLOCKED: MOV STUNLW R6 ; WAITUNLCK => MOV R6 STATE ; 0.STATE; MOVC 0 R6 ; 0 => MOV R┆
0x31100…31180 UnusedSector ┆6 FRAMES ; 0.FRAMES; TUNLW: ; WAITUNLCK: IF SLOW MODC #4000 FI ; MOVC 100 R0 ; 1 SEC => DELAY; MON SETDELAY ; MOV INTERT-C R1┆
0x31180…31200 UnusedSector ┆ ; MON SETINTERRUPT ; SETINTERRUPT; MON WAITEVENT ; WAITEVENT; JMP TTIMEOUT ; TIMEOUT: GOTO TIMEOUT; JMP TREATR ; ANSWER: IM┆
0x31200…31280 UnusedSector ┆POSSIBLE; JMP TUNLM ; MOV DEVPR-C R4 ; INTERRUPT: XTR R4 2 ; IF PRI = 0 THEN IF TST MON REGISTERS ; MON GIVEUPTIME FI ; JON┆
0x31280…31300 UnusedSector ┆ R4 TUNL1 ; BEGIN MOVC FRAMES R6 ; INC 0. X6 ; INCR (0.FRAMES); MOV SETUPE R5 ; MOV NOOFFS.X5 R5 ; NOOFFRAMES.SETUPTABLE => ┆
0x31300…31380 UnusedSector ┆W; IHS X6 R5 ; IF 0.FRAMES >= W THEN JMP TTIMEOUT ; GOTO TIMEOUT; JMPI S6 LUPDATES ; UPDATETABLES; MON REGISTERS ; IF UNLOCK┆
0x31380…31400 UnusedSector ┆ REGISTERS; IF TST MON REGISTERS ; MON GIVEUPTIME FI ; IBZ R3 12 ; IF NOT IN LOCK THEN JMP TUNLW ; GOTO WAITUNLCK; MOV STRAN┆
0x31400…31480 UnusedSector ┆SG R5 ; TRANSMITTING => MOV R5 STATE ; 0.STATE; JMP TRANSG ; GOTO TRANSMITTING; TUNL1: ; END; MOV FSCDEV R5 ; SIO R3 R5 ; *O┆
0x31480…31500 UnusedSector ┆PSTATUS* => STATUS; INV R3 ; MOVC ERROR R2 ; JMPI S5 LCHECKERR ; IF NOT POS.MEM.FULL ONLY THEN JMP ERRORFUNC ; ERRORFUNC; J┆
0x31500…31580 UnusedSector ┆MP TUNLW ; GOTO WAITUNLCK; ;### ; TUNLM: ; MESSAGE: JMPI S6 LINBUF ; INBUF; JON R3 TUNLM1 ; IF BUFFER NOT FULL THEN MOV X7 R1┆
0x31580…31600 UnusedSector ┆ ; BEGIN XTR R1 4 ; IF FUNCTION <> TRANSMIT INE R1 FTRANT ; THEN JMP GOTOFUNC ; GOTO FUNCTION; JMP TUNLW ; GOTO WAITUNLCK; T┆
0x31600…31680 UnusedSector ┆UNLM1: ; END; MOV INTERT-C R1 ; BUFFULL: IF SLOW MODC #4000 FI ; MOVC 100 R0 ; 1 SEC => DELAY; MON WAITINTERRUPT ; WAITINTERR┆
0x31680…31700 UnusedSector ┆UPT; JMP TTIMEOUT ; TIMEOUT: GOTO TIMEOUT; MOV DEVPR-C R4 ; XTR R4 2 ; IF PRI = 0 THEN IF TST MON REGISTERS ; MON GIVEUPTIME┆
0x31700…31780 UnusedSector ┆ FI ; JON R4 TUNL3 ; BEGIN MOVC FRAMES R6 ; INC 0. X6 ; INCR (0.FRAMES); MOV SETUPE R5 ; MOV NOOFFS.X5 R5 ; NOOFFRAMES.SETU┆
0x31780…31800 UnusedSector ┆PTABLE => W; IHS X6 R5 ; IF 0.FRAMES >= W THEN JMP TTIMEOUT ; GOTO TIMEOUT; JMPI S6 LUPDATES ; UPDATETABLES; MON REGISTERS ;┆
0x31800…31880 UnusedSector ┆ IF UNLOCK THEN REGISTERS; MOV SAVE2 R4 ; 0.SYNCSTATUS => S; IBZ R4 12 ; IF NOT IN LOCK THEN JMP TUNLM1 ; GOTO BUFFULL; MOV ┆
0x31880…31900 UnusedSector ┆STRANSG R5 ; TRANSMITTING => MOV R5 STATE ; 0.STATE; TUNL3: ; END; MOV FSCDEV R5 ; SIO R3 R5 ; *OPSTATUS* => STATUS; INV R3 ┆
0x31900…31980 UnusedSector ┆; MOVC ERROR R2 ; ERROR => CODE; JMPI S5 LCHECKERR ; IF NOT P.M.F. ONLY THEN JMP ERRORC ; ERRORFUNC; JMP TUNLM1 ; GOTO BUFFU┆
0x31980…31a00 UnusedSector ┆LL; ; ; ;---------------------------------------------------------------------- ;### ;----------------------------------------┆
0x31a00…31a80 UnusedSector ┆------------------------------ ; FUNCTION CLEAR POSITION MEMORY STATUS ;--------------------------------------------------------┆
0x31a80…31b00 UnusedSector ┆-------------- CLRPOS: ; CLEARPOSMS: MOVC 8 R4 ; MOVC 0 R7 ; CLEAR POS. MEM. STATUS; JMPI S6 LSETPAE ; MOVC 8 R4 ; MOVC 1 ┆
0x31b00…31b80 UnusedSector ┆R7 ; ENABLE POS. MEM. FULL INT. JMPI S6 LSETPAE ; MOVC EXDONE R7 ; JMPI S6 LINSERT ; INSERT (EXDONE); JMPI STATE ; RETURN TO┆
0x31b80…31c00 UnusedSector ┆ STATE; ; ; ;---------------------------------------------------------------------- ;### FIRST=INIT END XPRPC=FIRST IF TST ┆
0x31c00…31c80 UnusedSector ┆XREFS=20 ELSE XREFS=10 FI IF TST XBUFS=1 ELSE XBUFS=0 FI NOLIST MESSAGE <:END OF USER MODULE:> USE PROG XDEVPR= 0 XPSIZE= LOC US┆
0x31c80…31d00 UnusedSector ┆E BASE XCURIN= LOC 0,REPEAT CURSOUT-CURSIN-1 XCUROUT= LOC 0,REPEAT 4 XWORKING=0, XPROGRAM=LOC XWORDS=0, XREFSX=0, XBUFSX=0, XCUR┆
0x31d00…31d80 UnusedSector ┆WORK=0, XCENTRY=0 XSIZE= LOC+C USE PROG IF LOC+XSIZE NE WORDS THEN MESSAGE <:SIZE <> WORDS:> MESSAGE WORDS MESSAGE XSIZE FI LIS┆
0x31d80…31e00 UnusedSector ┆T END CURIN= LOC 0,REPEAT CURSOUT-CURSIN-1 XCUROUT= LOC 0,REPEAT 4 XWORKING=0, XPROGRAM=LOC XWORDS=0, XREFSX=0, XBUFSX=0, XCUR┆
0x31e00…31e80 UnusedSector ┆E+1-HMOVECOUNT ; ID2; CMD62: MODC HMOVECOUNT-HSYNCT ; MOVECOUNT: CMD63: MODC HSYNCLIMIT-TSYNCCOUNT ; SYNC ERROR LIMIT; CMD64: MO┆
0x31e80…31f00 UnusedSector ┆DC TSYNCCOUNT-HXVERNIER ; TLM SYNC COUNT; CMD65: MODC HXVERNIER ; VAR. VERNIER; MOVC 0 R0 ; MOV R0 SAVE0. X7 ; SAVE(ADDR); MO┆
0x31f00…31f80 UnusedSector ┆N INWORD ; GET WORD: JMP CIG05 ; ERROR: GOTO ILLEGAL PARAM; MOV SAVE0. X7 R5 ; RESTORE(ADDR); ADD R5 R5 ; ADDR*2 ADDC VALUES┆
0x31f80…32000 UnusedSector ┆PEC R5 ; +VALUESPEC=>VALUETABLE; MVP 0. X5 R0 ; 0.VALUETABLE=>MIN; MVP 1. X5 R1 ; 1.VALUETABLE=>MAX; SLO X6 R0 ; IF WORD<MIN ┆
0x32000…32080 UnusedSector ┆ ILO R1 X6 ; OR MAX<WORD THEN JMP CIG05 ; GOTO ILLEGAL PARAMETER; MOV SAVE0. X7 R5 ; RESTORE(ADDR) ADDC FSCSETUP R5 ; +FSCSET┆
0x32080…32100 UnusedSector ┆UP=>ADDR; MOV X6 0. X5 ; WORD=>0.ADDR; INE R5 FSCSETUP % +HSPEED ; IF ADDR<>FSCSETUP+SPEED THEN JMP CIG02 ; GOTO GET COMMAND┆
0x32100…32180 UnusedSector ┆; MOD X6 ; MOV VERNIERTABLE R0 ; WORD.VERNIERTABLE MOV R0 FSCSETUP % +HVERNIER ; =>VERNIER.SETUPTABLE; MOV R0 FSCSETUP % WO┆
0x32180…32200 UnusedSector ┆RD.VERNIERTABLE +HXVERNIER ; =>XVERNIER.SETUPTABLE; JMP CIG02 ; GOTO GET COMMAND; CMD12: ; GET FRAMELENGTH: JMP S5 CIP40 ; G┆
0x32200…32280 UnusedSector ┆ET WORD; JMP CIG05 ; ERROR: GOTO ILL PAR; MOVC FSCSETUP+FSFRAMEH R1 ; RE.FRAMELENGTH; MODC 2 ; MOVM X6 X1 ; MOVE(WORD,FRAMEL┆
0x32280…32300 UnusedSector ┆ENGTH); JMP CIG02 ; GOTO GET COMMAND; ; CMD19: ; GET SYNCWORD: JMP S5 CIP40 ; GET WORD; JMP CIG05 ; ERROR: GOTO ILL PAR; MO┆
0x32300…32380 UnusedSector ┆VC FSCSETUP+FSSYNCWD R1 ; RE.SYNCWORD; MODC 4 ; MOVM X6 X1 ; MOVE(WORD,SYNCWORD); JMP CIG02 ; GOTO GET COMMAND; ;### PAGE 16┆
0x32380…32400 UnusedSector ┆ ; PROCEDURE INDATEELEMENT. ; THE PROCEDURE WILL SCAN AN INPUT LINE FOR ONE OR TWO DIGITS ; AND CONVERT THESE TO A BINARY NUMBER┆
0x32400…32480 UnusedSector ┆. ; IF A LETTER IS DETECTED OR CR IS DETECTED AS THE FIRST ; CHARACTER, THE CHARACTER WILL BE BACKSPACED AND AN ERROR RETURN ; I┆
0x32480…32500 UnusedSector ┆S MADE. ; WHEN TWO DIGITS IN SEQUENCE IS DETECTED, THEY ARE CONVERTED TO ; A BINARY NUMBER. IF FIRST A DIGIT AND THEN A NON DIGI┆
0x32500…32580 UnusedSector ┆T IS ; DETECTED, THE LAST CHARACTER IS BACKSPACED AND THE FIRST ONE ; IS CONVERTED TO A BINARY NUMBER. ; ; R0 DESTROYED ; ; R3 D┆
0x32580…32600 UnusedSector ┆ESTROYED ; ; R4 SHARE SHARE ; ; R5 DESTROYED ; ; R6 LINK LINK ; ; R7 WORK ; ; CIP20: ; FIRSTCHAR: MON INTYPE ; INTYPE; JMP CI┆
0x32600…32680 UnusedSector ┆P20 ; SPACE: IGNORE; JMP P202 ; DIGIT: JMP P201 ; LETTER: GOTO ERROR; INE R3 NL ; OTHER: IF CHAR<>NL THEN JMP CIP20 ; IGNORE┆
0x32680…32700 UnusedSector ┆; P201: ; ERROR: MON BACKSPACE ; BACKSPACE(CHAR); JMP 0. X6 ; RETURN(ERROR); P202: ; DIGIT: ADDC -<:0:> R3 ; CHAR-<:0:>=>FIRS┆
0x32700…32780 UnusedSector ┆T; MOV R3 R0 ; SAVE(FIRST); MON INTYPE ; INTYPE; JMP P203 ; SPACE: GOTO OTHER; JMP P204 ; DIGIT: GOTO SECOND; JMP P201 ; LE┆
0x32780…32800 UnusedSector ┆LIST ;---------------------------------------------------------------------- ; ; TEST-DATA CHECK-PROGRAMME FOR BIT-ERROR TEST ; ┆
0x32800…32880 UnusedSector ┆;---------------------------------------------------------------------- BEGIN MODULE NOLIST ; AU000403 0 0000 LEVEL 1 NAMES: C=┆
0x32880…32900 UnusedSector ┆ #000D INPARM= #0068 GIVEUE= #0018 OUTNL= #005D PROGLH= #000E BMBYTE= #0004 OUTHEA= #0064 CONTLH= #0005 WAITAR= #000D B┆
0x32900…32980 UnusedSector ┆MINPT= #0001 BMWORD= #0000 BMTIMR= #0002 GETINT= #0004 REGISS= #0013 INWORD= #007C OUTEND= #005E SETDEY= #0077 WAITET= #┆
0x32980…32a00 UnusedSector ┆000F BACKSE= #0063 WAITIT= #0005 WAITDY= #0019 OUTCHR= #005F IDLENH= #0004 INCHAR= #0061 INTYPE= #0066 REGREE= #0010 NA┆
0x32a00…32a80 UnusedSector ┆MELH= #0003 SETINT= #0078 INCOMD= #0086 WAIT= #0059 INITDE= #0042 OUTINR= #0065 BMOUTT= #0003 CLEART= #0000 SENDME= #000┆
0x32a80…32b00 UnusedSector ┆B SENDAR= #000C RESUMT= #0011 BMREET= #0001 BMDISP= #0001 OUTTEP= #005A USE BASE STACKH:= #0005 PROCLH:= #0052 NEXT:= #0┆
0x32b00…32b80 UnusedSector ┆002 SACTIN:= #0008 WORK:= #0040 NL:= #000A WORKAA:= #0295 BFIRST:= #0006 CAUSE:= #001E NAME:= #0007 WRK:= #004D STOP:= ┆
0x32b80…32c00 UnusedSector ┆#000F UTILIH:= #02A1 SMODE:= #0005 SBUFSE:= #0011 SKIND:= #0006 WORKIG:= #005E CURIN:= #005A DEVPR:= #001F ENTRYA:= #027┆
0x32c00…32c80 UnusedSector ┆5 BUFFEH:= #0008 CURSIN:= #005F INTERT:= #0054 WORKLH:= #000C CATALH:= #0058 REFLEH:= #0004 LOCACN:= #001C ENTRYH:= #002┆
0x32c80…32d00 UnusedSector ┆0 BNEXT:= #0007 PROC:= #000D MCOUNT:= #0001 SMASK:= #0007 BUFLEH:= #0009 CBASE:= #0015 KINDOC:= #0100 SFIRST:= #000E SH┆
0x32d00…32d80 UnusedSector ┆AREH:= #0022 SUSED:= #12 INTRPT:= #0034 SREM:= #0010 DRIVEH:= #0055 MADDRS:= #0002 CURSWK:= #01C3 CURSOT:= #0111 CUROUT:┆
0x32d80…32e00 UnusedSector ┆= #005B LOCREN:= #001D USE PROG LOCACT:= #822F USE #0 LIST XPD:= UTILITYLENGTH NOLIST IF XPD EQ UTILITYLENGTH OR XPD EQ PROGLE┆
0x32e00…32e80 UnusedSector ┆NGTH THEN IF WORDS NE 0 THEN MESSAGE WORDS FI AREASWITCH=1 USE PROG LOC=PROG-1 BMREENTRANT XREFS XBUFS XWORDS XPSIZE 0,1,0┆
0x32e80…32f00 UnusedSector ┆,0,0,0 XSIZE 0 XPRPC IF LOC NE PROGLENGTH THEN MESSAGE <:ERROR: PROG LENGTH:> FI FI IF XPD GT PROGLENGTH THEN USE BASE LOC=B┆
0x32f00…32f80 UnusedSector ┆ASE 0,REPEAT 12 IF LOC NE PROC THEN MESSAGE <:ERROR: XPROC LOCATION:> FI 0 REPEAT 7 ; REGISTERS 0,0 XPROGRAM XPRPC 100 0 ┆
0x32f80…33000 UnusedSector ┆ 0 LOCACT 0 0 XDEVPR 100 0 REPEAT 12 ; TIME0 - FREEAREAS #FFFF 0,0,0 0 REPEAT 3 ; PRICHN - ADJUST XREFSX XBUFSX IF XP┆
0x33000…33080 UnusedSector ┆D NE UTILITYLENGTH THEN XREFS=0 XBUFS=1 FI 0 REPEAT 20 ; RESTING - SAVE19 0,REPEAT CONTLENGTH-1 LOC= LOC-C IF LOC NE PROCLENG┆
0x33080…33100 UnusedSector ┆TH-C THEN MESSAGE <:ERROR: XPROC LENGTH:> FI IF XPD GT PROCLENGTH THEN 0,0,0 IF LOC NE DRIVERLENGTH-C THEN MESSAGE <:ERROR: XD┆
0x33100…33180 UnusedSector ┆RIVER LENGTH:> FI IF XPD GT DRIVERLENGTH THEN 0 REPEAT 2 ; ESPECIAL - CATALOG IF LOC NE CATALOGLENGTH-C THEN MESSAGE <:ERROR: ┆
0x33180…33200 UnusedSector ┆XCATALOG LENGTH:> FI IF XPD GT CATALOGLENGTH THEN LOCACT LOCACT XCURIN XCUROUT XCURWORK XCENTRY XWORKING FI FI FI FI XL┆
0x33200…33280 UnusedSector ┆OC= LOC MESSAGE <:START OF USER MODULE:> LIST BEGIN ; BEGIN DATA-CHECKER; ; ENTRY TLMQ00,XWORDS ; EXTERNAL CBASE,C,NAME,WAITEV┆
0x33280…33300 UnusedSector ┆ENT,SENDANSWER,MADDRESS,MCOUNT,OUTTEXTP EXTERNAL OUTHEXA,OUTINTEGER,CUROUT,OUTNL,WORK,OUTEND,NL,REGISTERS EXTERNAL KINDOC,BMBYTE┆
0x33300…33380 UnusedSector ┆,BMDISP,BMOUTPUT,SHARELH,BUFFERLH EXTERNAL SMODE,SKIND,SFIRST,STOP,SREM,SBUFSIZE,SUSED,BFIRST,BNEXT ; FSTOP= 2 ; FSETUP= 3 ; FO┆
0x33380…33400 UnusedSector ┆UTPUT= 5 ; DONE= 0 ; ILLEGAL= 9 ; EVENT: LOC=LOC+1 ; WORD: LOC=LOC+1 ; EXPECTED; SETUP: LOC=LOC+1 ; ; BUFCOUNT: LOC=LOC+2 ; ERR┆
0x33400…33480 UnusedSector ┆OR COUNT; BUFPOINT: LOC=LOC+1 ; ERROR BUFFER POINTER; ACUROUT: LOC=LOC+SHARELENGTH-BASE ; OUTPUT SHARE; OUSED: LOC=LOC+BUFFERLEN┆
0x33480…33500 UnusedSector ┆GTH-BASE; OFIRST:= LOC*2 ; LOC=LOC+40 ; BUFFER AREA; BUF: LOC=LOC+3*500 ; FRAME,POS,ACTUAL,EXPECTED; BUFTOP:= LOC ; XWORDS= LOC┆
0x33500…33580 UnusedSector ┆-EVENT ; LOC= EVENT ; ; USE PROG ; ; KIND:= KINDOC OR BMBYTE OR BMDISP; OUTMODE:= BMOUTPUT OR BMBYTE ; INITTABLE: ; OUTMODE, ┆
0x33580…33600 UnusedSector ┆ACUROUT+SMODE ; KIND , ACUROUT+SKIND ; OFIRST , ACUROUT+SFIRST ; OFIRST , ACUROUT+STOP ; 80 , ACUROUT+SREM ; 80 , ACUROUT+S┆
0x33600…33680 UnusedSector ┆BUFSIZE ; OUSED , ACUROUT+SUSED ; OUSED , OUSED +BNEXT ; OFIRST , OUSED +BFIRST ; ACUROUT, CUROUT -C ; <:TL:> , NAME -C ; ┆
0x33680…33700 UnusedSector ┆<:MQ:> , NAME+1 -C ; 0 , NAME+2 -C ; <:OC:> , ACUROUT ; INITTABLELENGTH= LOC -INITTABLE; ;### TLMQ00: ; INIT: MOVC XWORDS R0 ┆
0x33700…33780 UnusedSector ┆; CLEAR BASE AREA; MOVC EVENT R4 ; L0: XTR X4 0 ; ADDC 1 R4 ; SOB R0 L0 ; MOVC INITTABLE R4 ; MOVC INITTABLELENGTH/2 R0 ; L┆
0x33780…33800 UnusedSector ┆1: ; MVP 0. X4 R2 ; MVP 1. X4 R3 ; MOV R2 X3 ; ADDC 2 R4 ; SOB R0 L1 ; ; TLMQ01: ; STATE: MON WAITEVENT ; WAITEVENT; TRP┆
0x33800…33880 UnusedSector ┆ 0 ; ANSWER: ILLEGAL ; MESSAGE: CONTINUE; MOV R2 EVENT ; SAVE (EVENT); INE X7 FSETUP ; IF FUNCTION=SETUP THEN JMP TLMQ03 ; B┆
0x33880…33900 UnusedSector ┆EGIN XTR X7 0 ; DONE=>0.ANSWER; MON SENDANSWER ; SENDANSWER; MOV R2 SETUP ; TRUE=>SETUP; TLMQ02: ; CLEAR ERRORCOUNT: MOVC 0 ┆
0x33900…33980 UnusedSector ┆R0 ; 0 => W; MOV R0 WORD ; W => 0.WORD; MOV R0 BUFCOUNT ; W=> 0.BUFCOUNT; MOV R0 BUFCOUNT+1 ; W=> 1.BUFCOUNT; MOVC BUF R0 ; ┆
0x33980…33a00 UnusedSector ┆BUF MOV R0 BUFPOINT ; =>0.BUFPOINT; JMP TLMQ01 ; END ;### TLMQ03: ; ELSE INE X7 FOUTPUT ; IF FUNCTION=OUTPUT THEN JMP TLMQ06┆
0x33a00…33a80 UnusedSector ┆ ; BEGIN IOZ SETUP -WORK. X7 ; IF NOT(SETUP) THEN JMP TLMQ14 ; GOTO ILLEGAL; MOV MADDRS.X7 R3 ; ADDRESS.MESS SUB CBASE-C R3 ┆
0x33a80…33b00 UnusedSector ┆; -0.CBASE=>ADR; MOV MCOUNT.X7 R0 ; COUNT.MESS => COUNTER; MOV WORD R1 ; 0.WORD => WRD; MOV BUFPOINT R5 ; 0.BUFPOINT => BFP; ┆
0x33b00…33b80 UnusedSector ┆ MOVC BUFTOP R2 ; BUFTOP=>TOP; TLMQ04: ; FOR I:=1 UNTIL COUNTER DO ; BEGIN IEQ X3 R1 ; IF 0.ADR <> WRD THEN JMP TLMQ05 ; BEGI┆
0x33b80…33c00 UnusedSector ┆N MOVC BUFCOUNT R6 ; BUFCOUNT => ERRCOUNT; INC 0. X6 ; INCR(0.ERRCOUNT); IEQ X6 0 ; IF 0.ERRCOUNT = 0 THEN INC 1. X6 ; INCR(┆
0x33c00…33c80 UnusedSector ┆1.ERRCOUNT); IHS R5 R2 ; IF BFP>=TOP THEN JMP TLMQ05 ; BEGIN MOV X3 R6 ; 0.ADR MOV R6 1. X5 ; => 1.BFP; MOV R1 2. X5 ; WORD┆
0x33c80…33d00 UnusedSector ┆ => 2.BFP; MOV MCOUNT.X7 R6 ; COUNT.MESS SUB R0 R6 ; -I MOV R6 0. X5 ; =>0.BFP; ADDC 3 R5 ; BFP+3 => BFP; ; END; TLMQ05: ; ┆
0x33d00…33d80 UnusedSector ┆END; ADDC 1 R3 ; ADR+1 => ADR; SOB R0 TLMQ04 ; END; MOV R5 BUFPOINT ; BFP => 0.BUFPOINT; INC WORD-WORK+BASE. X7 ; 0.WORD+1 =┆
0x33d80…33e00 UnusedSector ┆> 0.WORD; ION WORD-WORK+BASE. X7 ; IF 0.WORD<>0 THEN JMP TLMQ15 ; GOTO DONE; DEC WORD-WORK+BASE. X7 ; 65535=>0.WORD; JMP TLM┆
0x33e00…33e80 UnusedSector ┆Q07 ; GOTO TEST ERRORCOUNT; ; END ;### TLMQ06: ; ELSE INE X7 FSTOP ; IF FUNCTION=STOP THEN JMP TLMQ14 ; BEGIN XTR X7 0 ; DON┆
0x33e80…33f00 UnusedSector ┆E=>0.ANSWER; MON SENDANSWER ; SENDANSWER; CLR SETUP -WORK. X7 ; FALSE=>SETUP; SON WORD -WORK. X7 ; IF WORD=0 THEN JMP TLMQ01┆
0x33f00…33f80 UnusedSector ┆ ; GOTO STATE; TLMQ07: ; TEST ERRORCOUNT: MOV CUROUT-C R4 ; IOZ BUFCOT-WORK+BASE. X7 ; IF 0.BUFCOUNT <> 0 THEN JMP TLMQ10 ; B┆
0x33f80…34000 UnusedSector ┆EGIN JMP S6 TLMQ08 ; RE.TEXT; <:<10>POS ACTW EXPW TRACK<10><0>:> TLMQ08: ; MON OUTTEXTP ; OUTTEXT; MOVC BUF R5 ; BUF => ADR;┆
0x34000…34080 UnusedSector ┆ MOV BUFCOUNT R0 ; 0.BUFCOUNT => BFC; MOV BUFCOUNT+1 R1 ; 1.BUFCOUNT => MSB; MOVC 101 R2 ; SNE R1 0 ; IF MSB <> 0 IHS R0 R2┆
0x34080…34100 UnusedSector ┆ ; OR BFC > 100 THEN MOVC 100 R0 ; 100 => BFC; TLMQ09: ; FOR I:=1 UNTIL BFC DO ; BEGIN MON OUTNL ; OUT(NL); MOV 0. X5 R2 ; 1┆
0x34100…34180 UnusedSector ┆.ADR => W; POSITION; MOVC 3 R3 ; 3=>CHARCOUNT; MON OUTINTEGER ; OUTINTEGER(W); MOV 1. X5 R2 ; 0.ADR => W; ACTAL; MOVC <: :> ┆
0x34180…34200 UnusedSector ┆R3 ; <: :> => CHAR; MON OUTHEXA ; OUTHEXA(W); MOV 2. X5 R2 ; 2.ADR => W; EXPECTED; MON OUTHEXA ; OUTHEXA(W); MOV 0. X5 R6 ; ┆
0x34200…34280 UnusedSector ┆ MOVC 6 R2 ; MOVC 0 R7 ; DIV R2 R67 ; SUB R7 R2 ; MON OUTHEXA ; OUTHEXA(TRACK); ADDC 3 R5 ; ADR+3 => ADR; SOB R0 TLMQ09 ;┆
0x34280…34300 UnusedSector ┆ END; TLMQ10: ; MOV CUROUT-C R4 ; JMP S6 TLMQ11 ; RE.TEXT; <:<10><10>TOTAL <0>:> ; <: WORDS WITH BITERRORS IN <0>:> <: FRAM┆
0x34300…34380 UnusedSector ┆ES<0>:> ; ;### TLMQ11: MON OUTTEXTP ; OUTTEXT; MOV BUFCOUNT+1 R2 ; 1.BUFCOUNT => W; JOZ R2 TLMQ12 ; IF W<>0 THEN ; BEGIN MOV┆
0x34380…34400 UnusedSector ┆C <:#:> R3 ; <:#:> => CHAR; MON OUTHEXA ; OUTHEXA(W); MOV BUFCOUNT R2 ; 0.BUFCOUNT => W; MOVC 1 R3 ; 1 => CHAR; MON OUTHEXA ┆
0x34400…34480 UnusedSector ┆; OUTHEXA; JMP TLMQ13 ; END TLMQ12: ; ELSE BEGIN MOVC <: :> R3 ; <:0:>=>CHAR; MOV BUFCOUNT R2 ; 0.BUFCOUNT=>W; MON OUTINTEGE┆
0x34480…34500 UnusedSector ┆R ; OUTINTEGER(W); TLMQ13: ; END; MON OUTTEXTP ; OUTTEXT; MOVC <: :> R3 ; MOV WORD R2 ; MON OUTINTEGER ; OUTPUT FRAME COUNT;┆
0x34500…34580 UnusedSector ┆ MON OUTTEXTP ; MOVC NL R3 ; NL => CHAR; MON OUTEND ; OUTEND; JMP TLMQ02 ; GOTO CLEAR ERRORCOUNT; ; END TLMQ14: ; ELSE MOD┆
0x34580…34600 UnusedSector ┆C ILLEGAL-DONE ; ILLEGAL => RESULT.ANSWER; TLMQ15: ; DONE: MOVC DONE X7 ; DONE=>RESULT.ANSWER; MOV R7 R1 ; RE.ANSWER; MOV EVE┆
0x34600…34680 UnusedSector ┆NT R2 ; RESTORE (EVENT); MON SENDANSWER ; SENDANSWER; JMP TLMQ01 ; GOTO STATE; ; END ; END DATA-CHECKER; XPRPC= TLMQ00 XREFS┆
0x34680…34700 UnusedSector ┆= 10 XBUFS= 2 NOLIST MESSAGE <:END OF USER MODULE:> USE PROG XDEVPR= 0 XPSIZE= LOC USE BASE XCURIN= LOC 0,REPEAT CURSOUT-CURSI┆
0x34700…34780 UnusedSector ┆N-1 XCUROUT= LOC 0,REPEAT 4 XWORKING=0, XPROGRAM=LOC XWORDS=0, XREFSX=0, XBUFSX=0, XCURWORK=0, XCENTRY=0 XSIZE= LOC+C USE PROG I┆
0x34780…34800 UnusedSector ┆F LOC+XSIZE NE WORDS THEN MESSAGE <:SIZE <> WORDS:> MESSAGE WORDS MESSAGE XSIZE FI LIST END ;### = LOC 0,REPEAT CURSOUT-CURSI┆
0x34800…34880 UnusedSector ┆LOCK; 1, 64 ; SYNCWORD LENGTH; 0,0,0,0,0,0,0,0 ; SYNCWORD (SPECIAL); 0, -1 ; TLM SYNC COUNT; 0, 7 ; SPEED; 1, #FF ; VERNIER┆
0x34880…34900 UnusedSector ┆; 0,-1,0,-1 ; ID1,ID2; 1, -1 ; BLOCKNR; 1, -1 ; BLOCKCOUNT; 366, -1 ; BLOCKSIZE; 0, -1 ; HDTR DATA; 0, -1 ; DUMMY COUNT; ┆
0x34900…34980 UnusedSector ┆0, -1 ; MOVE COUNT; 0, -1 ; SYNC ERROR LIMIT; 0, -1 ; XVERNIER; ;### PAGE 6 MESREF: ; MESS0 ; MESS1 ; MESS2 ; MESS3 ; ME┆
0x34980…34a00 UnusedSector ┆SS4 ; MESS5 ; MESS6 ; MESS7 ; MESS8 ; MESS9 ; MESS10 ; MESS11 ; MESS12 ; MESS13 ; MESS14 ; MESS15 ; MESS16 ; MESS17┆
0x34a00…34a80 UnusedSector ┆ ; MESS18 ; MESS19 ; MESS20 ; MESS21 ; MAXMES= LOC-MESREF ; ; MESS0: <:ILLEGAL MESSAGE CODE<0>:> ; MESS1: <:SYSTEM STOPPED<┆
0x34a80…34b00 UnusedSector ┆0>:> ; MESS2: <:SYSTEM ERROR<0>:> ; MESS3: <:FSC: ERROR<0>:> ; MESS4: <:TLMQ: ERROR<0>:> ; MESS5: <:HDTR:<0>:> ; MESS6: <:FSC: U┆
0x34b00…34b80 UnusedSector ┆NLOCK<0>:> ; MESS7: <:END OF FORMAT<0>:> ; MESS8: <:START OF FORMAT<0>:> ; MESS9: <:ILLEGAL OPERATION<0>:> ; MESS10: 0 ; MESS11:┆
0x34b80…34c00 UnusedSector ┆ <:ALREADY STARTED<0>:> ; MESS12: <:DATA LOST<0>:> ; MESS13: <:FSC: BIT SLIPPAGE<0>:> ; MESS14: <:FSC: TOO MANY SYNC POSITIONS<0┆
0x34c00…34c80 UnusedSector ┆>:>; MESS15: 0 ; MESS16: <:SCM ERROR<0>:> ; MESS17: <:FRAME COUNT REACHED<0>:> ; MESS18: <:NOT START OF FILE<0>:> ; MESS19: <:HD┆
0x34c80…34d00 UnusedSector ┆TR SYNC. ERRORS: <0>:> ; MESS20: <:FSC: OUT OF BUFFERS<0>:> ; MESS21: <:HDTR: OUT OF BUFFERS<0>:> ; ; ;### PAGE 7 HDTRMES: ; ┆
0x34d00…34d80 UnusedSector ┆HMES0 ; HMES1 ; HMES2 ; HMES3 ; HMES4 ; HMES5 ; HMES6 ; HMES7 ; HMES8 ; HMES9 ; HMES10 ; HMES11 ; HMES12 ; HMAXMES=L┆
0x34d80…34e00 UnusedSector ┆OC-HDTRMES ; ; HMES0: ; HMES1: <:NOT READY (INTERRUPT LATENCY)<0>:> HMES2: <:NOT READY<0>:> ; HMES3: <:NO FILE/END OF DATA<0>:>┆
0x34e00…34e80 UnusedSector ┆ ; HMES4: <:PHASE LOCK ERROR<0>:> ; HMES5: <:SKEW ERROR<0>:> ; HMES6: <:NOT POSITIONED FOR WRITE<0>:>; HMES7: <:LOCAL ACTION<0>:┆
0x34e80…34f00 UnusedSector ┆> ; HMES8: 0 HMES9: 0 HMES10: 0 HMES11: 0 HMES12: <:NO SYNC<0>:> ; ;### PAGE 8 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;┆
0x34f00…34f80 UnusedSector ┆;;;;;;;;;;;;;;;;;;;;;;; ; CR80 SYSTEM ONE, UTILITY PROCEDURE INPUT. ; INLONG(IN,ADDR),(ERROR); ; ; THE PROCEDURE READS UPTO 64 B┆
0x34f80…35000 UnusedSector ┆ITS INTO THE LEAST FOUR WORDS REFERENCED ; BY WORKING. THE LONG NUMBER IS READ FROM CURIN USING CONVENTIONAL ; SYNTAX. EIGHT WO┆
0x35000…35080 UnusedSector ┆RDS OF THE AREA REFERENCED BY WORKING ARE USED. ; THE PROCEDURE CALLS INTYPE. ; THE PROCEDURE SAVES ITS LINK IN SSAVE9.CURIN. ; ┆
0x35080…35100 UnusedSector ┆THE ENTRY POINT IS: CIP40 ; ; CALL: EXIT: ; R0 DESTROYED ; R1 DESTROYED ; R2 DESTROYED ; R3 DESTROYED ; R4 IN(=CURIN.CUR) ; R5 L┆
0x35100…35180 UnusedSector ┆INK DESTROYED ; R6 ADDR(=WORKING.CUR) ; R7 WORK ; LINK+0: ERROR(OR EMPTY LINE) ; LINK+1: RETURN ; BEGIN USE PROG ENTRY CIP40 EXT┆
0x35180…35200 UnusedSector ┆ERNAL CURIN,INTYPE,BACKSPACE,WORKING,NL USE BASE SSAVE9:= #21 USE PROG CIP40: ; INLONG: MOV CURIN-C R4 ; CURIN.CUR =>IN; MOV R┆
0x35200…35280 UnusedSector ┆5 SSAVE9.X4 ; SAVE(LINK); L00: ; SKIP SPACES: MON INTYPE ; INTYPE(IN, JMP & L00 ; SPACE: GOTO SKIP SPACES, JMP & L20 ; DIGIT:┆
0x35280…35300 UnusedSector ┆ GOTO INIT DECIMAL, JMP & L500 ; LETTER: GOTO ERROR, ; OTHER: CONTINUE); IEQ R3 <:#:> ; IF CHAR="#" THEN JMP L25 ; GOTO INIT┆
0x35300…35380 UnusedSector ┆ HEXA; IEQ R3 NL ; IF CHAR=NL THEN JMP L500 ; GOTO ERROR; JMP L00 ; GOTO SKIP SPACES; L25: ; INIT HEXA: MOVC 16 R2 ; 16 =>RA┆
0x35380…35400 UnusedSector ┆DIX; JMP L30 ; GOTO CLEAR; L20: ; INIT DECIMAL: MOVC 10 R2 ; 10 =>RADIX; L30: ; CLEAR: MOVC 0 R1 ; 0 =>WORK; MOVC 8 R0 ; 8 =┆
0x35400…35480 UnusedSector ┆>COUNT; MOV WORKING-C R6 ; RE.WORING.CUR =>ADDR; L35: ; DO MOV R1 0. X6 ; WORK =>0.ADDR; ADDC 1 R6 ; ADDR+1 =>ADDR SOB R0 L3┆
0x35480…35500 UnusedSector ┆. Z00000 T01E0 P 0000L 0001 000A 0002 0634 00CA 0000 0001 0000 0008L 0000 0000 0000 0116 0000 002A 0007 005D 0010L 0105 005E 010┆
0x35500…35580 UnusedSector ┆4 0066 0104 0067 0050 0068 0018L 0050 0069 007A 006A 007A 0081 0104 0080 0020L 0058 004E 4C54 FFFA 514D FFFB 0000 FFFC 0028L 434┆
0x35580…35600 UnusedSector ┆F 0058 0656 3448 524C C0ED 01CC 03C0 0030L 0E4C 0E48 0022 0123 ABBB 02CC 05C0 0FA6 0038L 00BE 5272 F37F 0AD8 F0ED 0CA6 5472 0048┆
0x35600…35680 UnusedSector ┆ 0040L 5370 5570 5670 AA48 5770 0F58 F57F 21D8 0048L D43B 7AD8 C21B 0814 00CB C118 5369 576D 0050L 0656 864A B1F8 0DD8 554E 8016┆
0x35680…35700 UnusedSector ┆ E07D 8116 0058L 52F5 07D8 3EFB 4186 4281 C11E 068B EDBB 0060L 03CD 01CB 11C0 5775 D316 D33A 5ED8 D313 0068L 07D8 F27F 59D8 F0ED┆
0x35700…35780 UnusedSector ┆ 0CA6 D427 D33B 3958 0070L 4E6C D53B 25D8 0BDF 500A 534F 4120 5443 0078L 2057 5845 5750 5420 4152 4B43 000A 5AA6 0080L AA4D 5568┆
0x35780…35800 UnusedSector ┆ 5669 654A 907C 02F5 6448 5DA6 0088L 5AFB 034B 65A6 411A 204B 64A6 421A 64A6 0090L 5EFB 064A 004F 2EEB 728B 64A6 03CD 11C0 0098L┆
0x35800…35880 UnusedSector ┆ 4E6C 16DF 0A0A 4F54 4154 204C 0000 5720 00A0L 524F 5344 5720 5449 2048 4942 4554 5252 00A8L 524F 2053 4E49 0020 4620 4152 454D ┆
0x35880…35900 UnusedSector ┆0053 00B0L 5AA6 566A A6F2 234B 64A6 556A 014B 64A6 00B8L 03D8 204B 556A 65A6 5AA6 204B 536A 65A6 00C0L 5AA6 0A4B 5EA6 8558 09E4 ┆
0x35900…35980 UnusedSector ┆7050 79BB 526A 00C8L 0CA6 9358 0000 0000 0000 0000 0000 0000 00D0L 0000 0000 0000 0000 0000 0000 0000 0000 00D8L 0000 0000 0000 ┆
0x35980…35a00 UnusedSector ┆0000 0000 0000 0000 0000 00E0L 0000 0109 002A 0064 0000 0000 822F 0000 00E8L 0000 0000 0064 0000 0000 0000 0000 0000 00F0L 0000 ┆
0x35a00…35a80 UnusedSector ┆0000 0000 0000 0000 0000 0000 0000 00F8L FFFF 0000 0000 0000 0000 0000 0000 0000 0100L 0000 0000 0000 0000 0000 0000 0000 0000 0┆
0x35a80…35b00 UnusedSector ┆108L 0000 0000 0000 0000 0000 0000 0000 0000 0110L 0000 0000 0000 0000 0000 0000 0000 0000 0118L 0000 0000 0000 0000 0000 0000 0┆
0x35b00…35b80 UnusedSector ┆000 0000 0120L 0000 0000 822F 822F 0052 0104 0000 0000 0128L 0000 0000 0000 0000 0000 0000 0000 0000 0130L 0000 0000 0000 0000 0┆
0x35b80…35c00 UnusedSector ┆000 0000 0000 0000 0138L 0000 0000 0000 0000 0000 0000 0000 0000 0140L 0000 0000 0000 0000 0000 0000 0000 0000 0148L 0000 0000 0┆
0x35c00…35c80 UnusedSector ┆000 0000 0000 0000 0000 0000 0150L 0000 0000 0000 0000 0000 0000 0000 0000 0158L 0000 0000 0000 0000 0000 0000 0000 0000 0160L 0┆
0x35c80…35d00 UnusedSector ┆000 0000 0000 0000 0000 0000 0000 0000 0168L 0000 0000 0000 0000 0000 0000 0000 0000 0170L 0000 0000 0000 0000 0000 0000 0000 00┆
0x35d00…35d80 UnusedSector ┆00 0178L 0000 0000 0000 0000 0000 0000 0000 0000 0180L 0000 0000 0000 0000 0000 0000 0000 0000 0188L 0000 0000 0000 0000 0000 00┆
0x35d80…35e00 UnusedSector ┆00 0000 0000 0190L 0000 0000 0000 0000 0000 0000 0000 0000 0198L 0000 0000 0000 0000 0000 0000 0000 0000 01A0L 0000 0000 0000 00┆
0x35e00…35e80 UnusedSector ┆00 0000 0000 0000 0000 01A8L 0000 0000 0000 0000 0000 0000 0000 0000 01B0L 0000 0000 0000 0000 0000 0000 0000 0000 01B8L 0000 00┆
0x35e80…35f00 UnusedSector ┆00 0000 0000 0000 0000 0000 0000 01C0L 0000 0000 0000 0000 0000 0000 0000 0000 01C8L 0000 0000 0000 0000 0000 0000 0000 0000 01D┆
0x35f00…35f80 UnusedSector ┆0L 0000 0000 0000 0000 0000 0000 0000 0000 01D8L 0000 0000 0000 0000 0000 0000 0000 0000 S6 0000 0000 0000 0000 01B8L 0000 00┆
0x35f80…36000 UnusedSector ┆9 4F49 01E8L 534E 0000 0000 4353 204D 5245 4F52 0052 01F0L 5246 4D41 2045 4F43 4E55 2054 4552 4341 01F8L 4548 0044 4F4E 2054 545┆
0x36000…36080 UnusedSector ┆3 5241 2054 464F 0200L 4620 4C49 0045 4448 5254 5320 4E59 2E43 0208L 4520 5252 524F 3A53 0020 5346 3A43 4F20 0210L 5455 4F20 204┆
0x36080…36100 UnusedSector ┆6 5542 4646 5245 0053 4448 0218L 5254 203A 554F 2054 464F 4220 4655 4546 0220L 5352 0000 022F 022F 023E 0243 024D 0256 0228L 025┆
0x36100…36180 UnusedSector ┆IF NOT NORMAL THEN ; GOTO TEST FRAMECOUNT; INC COUNT2.X7 ; INCR(SYNCERRORCOUNT); MOV SETUPTE+SYNCLIMIT R0 ; IF SYNCLIMIT.SETU┆
0x36180…36200 UnusedSector ┆PTABLE ILOP R0 COUNT2.X7 ; <SYNCERRORCOUNT THEN MOVC ERRHDTR R0 ; JMPI S6 ISCP10 ; MESSAGE: HDTR NOSYNC; L0: ; TEST FRAMECOUN┆
0x36200…36280 UnusedSector ┆T: INC COUNT0.X7 ; INCR(FRAMECOUNT); MOV SETUPTE+FRAMECT R0 ; IF FRAMECOUNT.SETUPTABLE ILO R0 COUNT0.X7 ; <FRAMECOUNT THEN J┆
0x36280…36300 UnusedSector ┆MP L3 ; GOTO STOP NORMAL; JOZ R5 L1 ; IF NORMAL ANSWER THEN ; GOTO TEST MESSCOUNT; MOV COUNT0.X7 R0 ; ILOP R0 300 ; IF FRAME┆
0x36300…36380 UnusedSector ┆COUNT<300 THEN JMP S6 SCP73 ; OUTPUT DUMMY FRAME; JMPI LINK0 ; RETURN; IEQ R5 2 ; IF CLOSEDOWN THEN JMP SCG90 ; GOTO SYSTEM ┆
0x36380…36400 UnusedSector ┆STOP; MOVC SCP75 R0 ; NORMAL ANSWER MOV R0 ANSWES+HDTR; =>HDTR.ANSWERS; JMP S6 SCP73 ; OUTPUT DUMMY FRAME; JMPI LINK0 ; RETU┆
0x36400…36480 UnusedSector ┆RN; ;### PAGE 25 L1: ; TEST MESSCOUNT: MOV MESSCOUNTS % +HDTR. X7 R0 ; MOV SYSFUNCTION R1 ; SBZ R1 BNFSC ; IF NOT SYSFUNCTI┆
0x36480…36500 UnusedSector ┆ON(FSC) ILOP R0 3 ; OR HDTR.MESSCOUNTS<3 THEN JMP S6 SCP73 ; OUTPUT DUMMY; JMPI LINK0 ; RETURN; ION SAVE0 -WORK. X7 ; IF STA┆
0x36500…36580 UnusedSector ┆TUS=FREE THEN JMPI S6 ISCP35 ; REQUEST INPUT; JMPI LINK0 ; RETURN; ; L2: ; HDTR ERROR: MOV SYSFUNCTION R0 ; MOVC BNWRITE R1┆
0x36580…36600 UnusedSector ┆ ; CLRS R0 R1 ; FALSE=>SYSFUNCTION(WRITE); SETS R0 BNINITWRITE; TRUE=>HDTR FUNCTION; MOV R0 SYSFUNCTION; MOVC ERRHDTR R0 ; ┆
0x36600…36680 UnusedSector ┆IEQP X7 BMERROR ; IF ERRORCODE=ERROR THEN JMPI S6 ISCP10 ; MESSAGE: HDTR ERROR; JMP SCG90 ; GOTO SYSTEM STOP; MOVL MESSCS.X7 ┆
0x36680…36700 UnusedSector ┆R01 ; MESSCOUNTS MOVL R01 1. X7 ; =>CONTENT.MESS; MOV MESSCOUNTS % +2. X7 R0 ; MOV R0 3. X7 ; MOVC ERRHNOBUFS R0 ; JMPI S6┆
0x36700…36780 UnusedSector ┆ ISCP10 ; MESSAGE: HDTR NO BUFFERS; JMP SCG90 ; GOTO SYSTEM STOP; ; L3: ; STOP NORMAL: JMP S6 SCP73 ; OUTPUT DUMMY FRAME; MO┆
0x36780…36800 UnusedSector ┆VC ERRMAXFRAME R0 ; JMPI S6 ISCP11 ; MESSAGE: FRAMECOUNT REACHED JMP SCG90 ; GOTO SYSTEM STOP; END ; END HDTR OUTPUT ANSWERS; ┆
0x36800…36880 UnusedSector ┆;### PAGE 26 ; HDTR FILE LIST ANSWER PROCEDURE. ; BEGIN USE PROG ; BEGIN LIST ANSWER; ENTRY SCP78 ; EXTERNAL ISCP10,ISCP20,ISCP┆
0x36880…36900 UnusedSector ┆26,SCG90 ; EXTERNAL LINK0,MESSCOUNTS,HDTR,HDTRLIST,ERRHDTR,BMLIST ; SCP78: ; LIST ANSWER: MOV R6 LINK0 ; SAVE(LINK); JMPI S6 ┆
0x36900…36980 UnusedSector ┆ISCP20 ; FREE BUFFER: NOP ; FREE: DEC MESSCOUNTS+HDTR. X7 ; DECR(HDTR.MESSCOUNTS); JON X7 L1 ; IF RESULT<>0 THEN ; GOTO ERRO┆
0x36980…36a00 UnusedSector ┆R; MOVC HDTRLIST R0 ; JMPI S6 ISCP10 ; MESSAGE(FILE NAME); MOVC BMLIST X7 ; LIST=>OPER.MESS; MOVC HDTR R3 ; HDTR=>DRIVER NR;┆
0x36a00…36a80 UnusedSector ┆ JMPI S5 ISCP26 ; REQUEST COMMUNICATION; JMPI LINK0 ; RETURN; ; L1: ; ERROR: MOVC ERRHDTR R0 ; JMPI S6 ISCP10 ; MESSAGE: HD┆
0x36a80…36b00 UnusedSector ┆TR ERROR; JMP SCG90 ; GOTO SYSTEM STOP; END ; END LIST ANSWER; ;### PAGE 27 ; HDTR SETUP PROCEDURE. ; BEGIN USE PROG ; BEGIN H┆
0x36b00…36b80 UnusedSector ┆DTR SETUP; ENTRY SCP79 ; EXTERNAL ISCP10,ISCP20,ISCP26,SCP69,SCP71,SCP73,SCP74,SCP76,SCP78,SCG90 EXTERNAL BNWIND,BNREWIND,BNREAD┆
0x36b80…36c00 UnusedSector ┆,BNWRITE,BNPOSITION,BNSEARCH,BNRSEARCH EXTERNAL BMREWIND,BMWIND,BMSETUP,BMPOSITION,BMSEARCH,BMRSEARCH EXTERNAL BMLIST,BNLISTFILE┆
0x36c00…36c80 UnusedSector ┆S EXTERNAL SENDMESSAGE,WAITANSWER,CBASE,C EXTERNAL LINK0,COUNT0,COUNT1,COUNT2,SYSFUNCTION,MESSCOUNTS,BUFSTATE0 EXTERNAL HDTR,HDT┆
0x36c80…36d00 UnusedSector ┆RNAME,HDTRMASK,SYNCW1,SYNCW2,HFILE,HBLOCKSIZE,BUFCOUNT EXTERNAL STATEREF,STATEADDRS,SETUPTABLE,FREST,FHEADING,IDPRESET EXTERNAL ┆
0x36d00…36d80 UnusedSector ┆ERRHDTR,INPROCEDURE,OUTPROCEDURES,ANSWERS,REFDIST,ILLDIST RL0: L0 ; ; SCP79: ; HDTR SETUP: MOV SYSFUNCTION R5 ; SBN R5 BNWRIT┆
0x36d80…36e00 UnusedSector ┆E ; IF SYSFUNCTION[WRITE] OR IBN R5 BNREAD ; SYSFUNCTION[READ] THEN JMP L3 ; GOTO INIT READ; IBN R5 BNLISTFILES; IF SYSFUNCTI┆
0x36e00…36e80 UnusedSector ┆ON[LIST FILES] THEN MOVC BMLIST X7 ; LIST=>OPER.MESS; IBN R5 BNWIND ; IF FUNCTION[WIND] THEN MOVC BMWIND X7 ; WIND=>OPER.MESS┆
0x36e80…36f00 UnusedSector ┆; IBN R5 BNREWIND ; IF FUNCTION[REWIND] THEN MOVC BMREWIND X7 ; REWIND=>OPER.MESS; IBN R5 BNPOSITION ; IF FUNCTION[POSITION] ┆
0x36f00…36f80 UnusedSector ┆THEN MOVC BMPOSITION X7 ; POSITION=>OPER.MESS; IBN R5 BNSEARCH ; IF FUNCTION[SEARCH] THEN MOVC BMSEARCH X7 ; SEARCH=>OPER.MES┆
0x36f80…37000 UnusedSector ┆S; IBN R5 BNRSEARCH ; IF FUNCTION[RSEARCH] THEN MOVC BMRSEARCH X7 ; RSEARCH=>OPER.MESS; MOV RL0 R0 ; WINDANSWER=>ADDR IBN R5┆
0x37000…37080 UnusedSector ┆ BNLISTFILES; IF FUNCTION[LISTFILES] THEN MOVC SCP78 R0 ; LIST ANSWER=>ADDR; MOV R0 ANSWES+HDTR; ADDR=>HDTR.ANSWERS; MOD CBAS┆
0x37080…37100 UnusedSector ┆E-C ; MOVC SETUPTABLE R0 ; SETUPTABLE(.ABS) MOV R0 1. X7 ; =>1.MESS; MOV STATEREF R4 ; 0.STATEREF=>RE.STATE; MOVC HDTR R3 ; ┆
0x37100…37180 UnusedSector ┆HDTR=>DRIVER NR; JMPI S5 ISCP26 ; REQUEST STANDARD COMMUNICATION; JMP 1. X6 ; RETURN(DONE); ; L0: ; WINDANSWER: DEC MESSCOUN┆
0x37180…37200 UnusedSector ┆TS+HDTR .X7 ; DECR(HDTR.MESSCOUNTS); JMPI S6 ISCP20 ; FREE BUFFER; NOP ; FREE: INEP X7 0 ; IF RESULT<>0 THEN MOVC ERRHDTR R0┆
0x37200…37280 UnusedSector ┆ ; JMPI S6 ISCP10 ; MESSAGE: HDTR ERROR; JMP SCG90 ; GOTO SYSTEM STOP; ;### PAGE 28 L3: ; INIT READ/WRITE: MOVC SETUPTABLE R┆
0x37280…37300 UnusedSector ┆4 ; MOVL HFILE. X4 R01 ; MOV R0 IDPRESET+1 ; ID1=>1.IDPRESET; MOV R1 IDPRESET+2 ; ID2=>2.IDPRESET; MOV HBLOCE.X4 R1 ; BLOCKS┆
0x37300…37380 UnusedSector ┆IZE MOV R1 IDPRESET+4 ; =>4.IDPRESET; MOVC 0 R2 ; MOV R2 IDPRESET+3 ; 0=>BLOCKNR.IDPRESET; MOV R2 ILLDIST ; 0=>ILLDIST; MOV┆
0x37380…37400 UnusedSector ┆C 366 R0 ; MOV R0 REFDIST ; 366=>REFDIST; MOV R0 IDPRESET+0 ; 366=>DISTANCE.IDPRESET; CLR COUNT2.X7 ; 0=>SYNCERRORCOUNT; MOV┆
0x37400…37480 UnusedSector ┆C HDTRNAME R0 ; RE.NAME; MOVC BMSETUP X7 ; SETUP=>OPER.MESS; MOV R5 1. X7 ; FUNCTION=>1.MESS; MOV R7 R1 ; RE.MESS; MOD CBASE┆
0x37480…37500 UnusedSector ┆-C ; MOVC SETUPTABLE R4 ; RE.SETUPTABLE(.ABS) MOV R4 2. X7 ; =>ADDR.MESS; MON SENDMESSAGE ; SENDMESSAGE; MON WAITANSWER ; WA┆
0x37500…37580 UnusedSector ┆ITANSWER; INE X7 0 ; IF RESULT.ANSWER<>0 THEN JMP 0. X6 ; RETURN(ERROR); IBN R5 BNWRITE ; IF FUNCTION[WRITE] THEN JMP L4 ; G┆
0x37580…37600 UnusedSector ┆OTO WRITE FUNCTION; MOVC SCP69 R0 ; HDTR INPUT MOV R0 INPROCEDURE; =>0.INPROCEDURE; MOVC SCP71 R0 ; HDTR STARTUP INPUT ANSWER┆
0x37600…37680 UnusedSector ┆ MOV R0 ANSWES+HDTR; =>HDTR.ANSWERS; JMP 1. X6 ; RETURN(OK); ; L4: ; INIT WRITE FUNCTION: MOVC 0 R0 ; MOVC SYNCW1 R1 ; MOV┆
0x37680…37700 UnusedSector ┆C SYNCW2 R2 ; L6: ; INSERT SYNCWORD: MOD R0 ; MOV STATEREF R4 ; COUNT.STATEREF=>RE.STATE; MOV STATES.X4 R4 ; ADDR.STATE=>ADDR┆
0x37700…37780 UnusedSector ┆; MODN CBASE-C ; ADDR-BASE.CUR ADDC -26 R4 ; -26=>ADDR; MOVL R1 0. X4 ; INSERT SYNCWORD INTO ADDC 7 R4 ; SEARCH FIELD; MOV┆
0x37780…37800 UnusedSector ┆C 6 R3 ; L7: ; INSERT SYNCWORD INTO STC R1 0. X4 ; DATA FIELD AND BUFFER; MOV R2 6. X4 ; SOB R3 L7 ; ;### PAGE 29 ADDC 6 R┆
0x37800…37880 UnusedSector ┆4 ; INIT DATA BUFFER MOVC 372 R3 ; BY HDTR MASK; L8: MOV SETUPTBLE+HDTRMSK R5 ; STC R5 0. X4 ; SOB R3 L8 ; ADDC 1 R0 ; INCR(┆
0x37880…37900 UnusedSector ┆COUNT); ILT R0 BUFCOUNT ; IF COUNT<BUFCOUNT THEN JMP L6 ; GOTO INSERT SYNCWORD; MOV R6 LINK0 ; SAVE(LINK); MOVC SCP74 R0 ; H┆
0x37900…37980 UnusedSector ┆DTR OUTPUT MOV R0 OUTPRS+1 ; =>HDTR.OUTPROCEDURES; MOVC SCP76 R0 ; HDTR STARTUP OUTPUT ANSWER MOV R0 ANSWES+HDTR; =>HDTR.ANSW┆
0x37980…37a00 UnusedSector ┆ERS; CLR COUNT0.X7 ; 0=>DUMMY COUNT; CLR COUNT1.X7 ; 0=>COUNT; L9: ; NEXTBUF: MOD COUNT1.X7 ; MOV STATEREF R4 ; COUNT.STATER┆
0x37a00…37a80 UnusedSector ┆EF=>RE.STATE; JMP S6 SCP73 ; REQUEST DUMMY OUTPUT; INC COUNT1.X7 ; INCR(COUNT); MOV COUNT1.X7 R6 ; COUNT=>STATENR; ILT R6 BU┆
0x37a80…37b00 UnusedSector ┆FCOUNT ; IF STATENR<BUFCOUNT THEN JMP L9 ; GOTO NEXTBUF; MOV LINK0 R6 ; RESTORE(LINK); JMP 1. X6 ; RETURN(OK); END ; END HDTR┆
0x37b00…37b80 UnusedSector ┆ SETUP; ; LOCAL ACTION PROCEDURE. ; BEGIN USE PROG ; BEGIN LOCAL ACTION; ENTRY SCP99 ; EXTERNAL SCG90,ISCP10 ; EXTERNAL CAUSE,C┆
0x37b80…37c00 UnusedSector ┆,LOCRETURN,SYSACTION,WORK,ERRSCM ; SCP99: ; LOCAL ACTION: MODN R7 ; SON CAUSE -C. X7 ; IF CAUSE=0 THEN JMPI SYSACTION ; RETU┆
0x37c00…37c80 UnusedSector ┆RN(SYSACTION); MOVC 0 R7 ; LDS R7 ; 0=>PSW; MOV CAUSE-C R7 ; CAUSE MOV R7 WORK+1 ; =>1.MESSAGE; MOV LOCRETURN-C R7 ; LOCRET┆
0x37c80…37d00 UnusedSector ┆URN MOV R7 WORK+2 ; =>2.MESSAGE; MON REGISTERS ; REGISTERS; CLR 3. X7 ; 0=>3.MESSAGE; MOVC ERRSCM R0 ; JMPI S6 ISCP10 ; MES┆
0x37d00…37d80 UnusedSector ┆SAGE: SCM ERROR; JMP SCG90 ; GOTO SYSTEM STOP; END ; END LOCAL ACTION; ;### PAGE 30 ; SYSTEM CONTROL ENTRY POINT; ; SCE00: ; ┆
0x37d80…37e00 UnusedSector ┆SYSTEM START: MOVC LINK0 R4 ; CLEAR BASE AREA; MOVC XWORDS R0 ; L0: XTR X4 0 ; ADDC 1 R4 ; SOB R0 L0 ; MOV LOCACTION-C R0 ;┆
0x37e00…37e80 UnusedSector ┆ 0.LOCACTION MOV R0 SYSACTION ; =>0.SYSACTION; MOVC INITTABLE R4 ; INITTABLE=>TABLE; MOVC INITTABLELH R0 ; INITTABLELENGTH=>C┆
0x37e80…37f00 UnusedSector ┆OUNT; L1: ; INSERT WORD: MVP 0. X4 R1 ; 0.INITTABLE=>WORD; MVP 1. X4 R2 ; 1.INITTABLE=>ADDR; MOV R1 0. X2 ; WORD=>0.ADDR; AD┆
0x37f00…37f80 UnusedSector ┆DC 2 R4 ; TABLE+2=>TABLE; SOB R0 L1 ; IF DECR(COUNT)<>0 THEN ; GOTO INSERT WORD; SCE10: ; NEXT EVENT: MON WAITEVENT ; WAITEV┆
0x37f80…38000 UnusedSector ┆ENT; JMP L2 ; ANSWER: JMP SCG20 ; MESSAGE: GOTO MESSAGE; L2: ; ANSWER: CONTINUE; MOV 4. X7 R0 ; SPECIAL.MESSAGE(7:0) XTR R0 ┆
0x38000…38080 UnusedSector ┆8 ; =>STATENR; IGE R0 BUFCOUNT ; IF STATENR>=BUFCOUNT THEN JMP L4 ; GOTO ILLEGAL ANSWER; MOV 4. X7 R0 ; SPECIAL.MESS(15:8) S┆
0x38080…38100 UnusedSector ┆RL R0 8 ; =>DRIVER; IHS R0 MAXMODULES ; IF DRIVER>=MAXDRIVERS THEN JMP L4 ; GOTO ILLEGAL ANSWER; JMP S6 L3 ; RE.LINK; JMP SC┆
0x38100…38180 UnusedSector ┆E10 ; GOTO NEXT EVENT; L3: ; MOD R0 ; JMPI ANSWERS ; CALL ANSWER PROCEDURE(DRIVER); ; L4: ; ILLEGAL ANSWER: MOV R2 R5 ; SAVE┆
0x38180…38200 UnusedSector ┆(EVENT); UNS 4 ; MON REGISTERS ; DISPLAY WORK; JMP SCE10 ; GOTO NEXT EVENT; ;### PAGE 31 ; FUNCTION MESSAGE RECEIVED. ; BEGI┆
0x38200…38280 UnusedSector ┆N USE PROG ; BEGIN TEST MESSAGE; ENTRY SCG20 ; EXTERNAL SCE10,ISCP11,ISCP35,ISCP41,ISCP54,SCP79,SCG90 EXTERNAL SENDANSWER,WORK,C┆
0x38280…38300 UnusedSector ┆BASE,C,ERRILLEGAL,ERRRUNNING EXTERNAL BUFCOUNT,STATEREF,SETUPTABLE,SETUPLENGTH,SYSFUNCTION EXTERNAL BMSTART,BMSTOP,BNTLM,BNFSC,B┆
0x38300…38380 UnusedSector ┆NREAD,BNWRITE,COUNT1 ; SCG20: ; MESSAGE: IEQ X7 BMSTART ; IF OPER.MESS=START THEN JMP L0 ; GOTO START; MON SENDANSWER ; SEND┆
0x38380…38400 UnusedSector ┆ANSWER; IEQ X7 BMSTOP ; IF OPER.MESS=STOP THEN JMP SCG90 ; GOTO SYSTEM STOP MOVC ERRILL R0 ; MESSAGE: ILLEGAL FUNCTION; JMPI┆
0x38400…38480 UnusedSector ┆ S6 ISCP11 ; JMP SCE10 ; GOTO NEXT EVENT; ; L0: ; START: IOZ SYSFUNCTION-WORK. X7 ; IF SYSFUNCTION=0 THEN JMP L5 ; GOTO TRAN┆
0x38480…38500 UnusedSector ┆SFER; MON SENDANSWER ; SENDANSWER; MOVC ERRRUNNING R0 ; JMPI S6 ISCP11 ; MESSAGE: ALREADY STARTED; JMP SCE10 ; GOTO NEXT EVE┆
0x38500…38580 UnusedSector ┆NT; L5: ; TRANSFER: MOVL 1. X7 R0 ; SYSFUNCTION,ADDRADDRESS.MESS MOV R0 SYSFUNCTION; =>0.SYSFUNCTION, SUB CBASE-C R1 ; ADDR(.┆
0x38580…38600 UnusedSector ┆ABS)=>SETUPTABLE(.CUR); MOVC SETUPLENGTH R3 ; SETUPLENGTH=>COUNT; MOVC SETUPTABLE R4 ; SETUPTABLE=>ADDR; L4: ; TRANSFER SETUPT┆
0x38600…38680 UnusedSector ┆ABLE: MOV X1 X4 ; 0.SETUPTABLE=>0.ADDR; INCD R1 R4 ; SOB R3 L4 ; MOV R7 R1 ; MON SENDANSWER ; MOV SYSFUNCTION R0 ; IBNP R┆
0x38680…38700 UnusedSector ┆0 BNFSC ; JMPI S6 ISCP41 ; SETUP FSC; JMP SCG90 ; ERROR: GOTO SYSTEM STOP; MOV SYSFUNCTION R0 ; IBZ R0 BNTLM ; JMP L1 ; JM┆
0x38700…38780 UnusedSector ┆PI S6 ISCP54 ; SETUP TLM; JMP SCG90 ; ERROR: GOTO SYSTEM STOP; L1: MOV SYSFUNCTION R0 ; SRL R0 2 ; JOZ R0 L2 ; JMP S6 SCP79 ┆
0x38780…38800 UnusedSector ┆; SETUP HDTR; JMP SCG90 ; ERROR: GOTO SYSTEM STOP; L2: MOV SYSFUNCTION R0 ; IBN R0 BNWRITE ; IF SYSFUNCTION[WRITE] THEN JMP S┆
0x38800…38880 UnusedSector ┆CE10 ; GOTO NEXTEVENT; SBNP R0 BNREAD ; IF NOT READ SBN R0 BNFSC ; AND NOT FSC THEN JMP SCE10 ; GOTO NEXTEVENT; CLR COUNT1.X┆
0x38880…38900 UnusedSector ┆7 ; 0=>STATENR; ;### PAGE 32 L3: ; NEXTSTATE: MOD COUNT1.X7 ; MOV STATEREF R4 ; STATENR.STATEREF=>STATE; JMPI S6 ISCP35 ; RE┆
0x38900…38980 UnusedSector ┆QUEST INPUT; INC COUNT1.X7 ; INCR(STATENR); MOV COUNT1.X7 R3 ; ILT R3 BUFCOUNT ; IF BUFNR<BUFCOUNT THEN JMP L3 ; GOTO NEXTST┆
0x38980…38a00 UnusedSector ┆ATE; JMP SCE10 ; GOTO NEXT EVENT; ; END ; END MESSAGE; ;### PAGE 33 ; SYSTEM STOP ; BEGIN USE PROG ; BEGIN SYSTEM STOP; ENTRY┆
0x38a00…38a80 UnusedSector ┆ SCG90 ; EXTERNAL SCE10,SCG20,ISCP10,ISCP11,SCP30,SCP32,SCP39,ISCP41,SCP77 EXTERNAL REGRETMESSAGE,SENDMESSAGE,WAITEVENT,WAITANSW┆
0x38a80…38b00 UnusedSector ┆ER,WORK EXTERNAL ERRSTOPPED,BUFCOUNT,STATEREF,MESSCOUNTS,MAXDRIVERS,MAXMODULES EXTERNAL CIMQUEUE,CIM,OUTPROCEDURES,INPROCEDURE,B┆
0x38b00…38b80 UnusedSector ┆UFSTATE0,STATEADDRS EXTERNAL TLMNAME,HDTRNAME,BMSTOP,SYSFUNCTION,STOPEVENT,BNTLM,BNFSC EXTERNAL ANSWERS,COUNT0,FSC,TLM,HDTR,BNIN┆
0x38b80…38c00 UnusedSector ┆ITWRITE,BNWRITE EXTERNAL COUNT2,ERRHDTR,ERRSYNCERRORS ; SCG90: ; SYSTEM STOP: MOV SYSFUNCTION R0 ; IBZ R0 BNTLM ; JMP L3 ; ┆
0x38c00…38c80 UnusedSector ┆CLR 1. X7 ; 0=>COUNT.MESS; MOVC BMSTOP X7 ; STOP=>OPER.MESS; MOVC TLM<8 R0 ; MOV R0 4. X7 ; TLM<8 => SPEC.MESS; MOV R7 R1 ; ┆
0x38c80…38d00 UnusedSector ┆ MOVC TLMNAME R0 ; RE.NAME; MON SENDMESSAGE ; SENDMESSAGE(NAME,MESS); MOV R2 STOPEVENT ; EVENT=>0.STOPEVENT; MOVC SCP39 R0 ; ┆
0x38d00…38d80 UnusedSector ┆DUMMY PROCEDURE MOV R0 OUTPROCES ; =>0.OUTPROCEDURES, MOVC SCP30 R0 ; DUMMY OUTPUT ANSWER MOV R0 ANSWERS+TLM; =>TLM.ANSWERS; ┆
0x38d80…38e00 UnusedSector ┆L3: ; MOV SYSFUNCTION R0 ; IBZ R0 BNFSC ; IF NOT FUNCTION(FSC) THEN JMP L4 ; GOTO TEST HDTR; JMPI S6 ISCP41 ; SETUP FSC; NO┆
0x38e00…38e80 UnusedSector ┆P ; ERROR: IGNORE; MOVC SCP39 R0 ; DUMMY PROCEDURE MOV R0 INPROCEDURE; =>0.INPROCEDURE, MOVC SCP32 R0 ; DUMMY INPUT ANSWER M┆
0x38e80…38f00 UnusedSector ┆OV R0 ANSWERS+FSC; =>FSC.ANSWERS; L4: ; TEST HDTR: MOV SYSFUNCTION R0 ; ILO R0 4 ; IF NO HDTR FUNCTION THEN JMP L6 ; GOTO CLE┆
0x38f00…38f80 UnusedSector ┆AR STATES; IBZ R0 BNWRITE ; IF NOT FUNCTION(WRITE) THEN JMP L5 ; GOTO STOP HDTR; CLR COUNT0.X7 ; 0=>DUMMYCOUNT; MOVC 1<BNINI┆
0x38f80…39000 UnusedSector ┆TWRITE R0 ; INITWRITE MOV R0 SYSFUNCTION; =>SYSFUNCTION; MOVC SCP77 R0 ; HDTR CLOSEDOWN ANSWER MOV R0 ANSWES+HDTR; =>HDTR.ANS┆
0x39000…39080 UnusedSector ┆WER; JMP SCE10 ; GOTO NEXT EVENT; ;### PAGE 34 L5: ; STOP HDTR: MOVC BMSTOP X7 ; STOP=>OPER.MESS; MOVC HDTRNAME R0 ; RE.NAME┆
0x39080…39100 UnusedSector ┆; MOV R7 R1 ; RE.MESS; MON SENDMESSAGE ; SENDMESSAGE(NAME,MESS) MON WAITANSWER ; WAITANSWER; MOV COUNT2.X7 R1 ; SYNCERRORCO┆
0x39100…39180 UnusedSector ┆UNT MOV R1 1. X7 ; =>1.MESS; CLR 2. X7 ; 0=>2.MESS; CLR 3. X7 ; 0=>3.MESS; MOVC ERRSYNCERRORS R0 ; HDTR ERROR=>OPER.MESS; I┆
0x39180…39200 UnusedSector ┆NE R1 0 ; IF SYNCERRORCOUNT<>0 THEN JMPI S6 ISCP10 ; MESSAGE: SYNC ERROR COUNT; CLR COUNT2.X7 ; 0=>SYNCERRORCOUNT; MOVC SCP39┆
0x39200…39280 UnusedSector ┆ R0 ; DUMMY PROCEDURE MOV R0 OUTPROCES+1; MOV R0 ANSWES+HDTR; MOV R0 INPROCEDURE; L6: ; CLEAR STATES: MOV STOPEVENT R2 ;┆
0x39280…39300 UnusedSector ┆ INE R2 0 ; IF 0.STOPEVENT<>0 THEN MON WAITANSWER ; WAITANSWER(0.STOPEVENT); CLR STOPEVENT-WORK. X7 ; 0=>0.STOPEVENT; MOVC B┆
0x39300…39380 UnusedSector ┆UFCOUNT R0 ; BUFCOUNT=>COUNT; L7: ; GET STATE: MOD R0 ; MOV STATEREF-1 R4 ; COUNT-1.STATEREF=>STATE; MOVC 0 R1 ; 0=>DRIVERNR;┆
0x39380…39400 UnusedSector ┆ L8: ; GET EVENT: MOD R1 ; MOV 0. X4 R2 ; DRIVER.STATE=>EVENT; JOZ R2 L9 ; IF EVENT<>0 THEN ; BEGIN MOD R1 ; CLR 0. X4 ; 0┆
0x39400…39480 UnusedSector ┆=>DRIVER.STATE; MON REGRETMESSAGE ; REGRETMESSAGE(EVENT); MOD R1 ; DEC MESSCOUNTS+0. X7 ; DECR(DRIVER.MESSCOUNTS); L9: ; END;┆
0x39480…39500 UnusedSector ┆ ADDC 1 R1 ; INCR(DRIVER); INE R1 MAXDRIVERS ; IF DRIVER<>MAXDRIVERS THEN JMP L8 ; GOTO GET EVENT; SOB R0 L7 ; IF DECR(COUNT┆
0x39500…39580 UnusedSector ┆)<>0 THEN ; GOTO GET STATE; MOVC ERRSTOPPED R0 ; MESSAGE: SYSTEM STOPPED; JMPI S6 ISCP11 ; CLR SYSFUNCTION-WORK. X7 ; 0=>0.S┆
0x39580…39600 UnusedSector ┆YSFUNCTION; MOVL MESSCS.X7 R01 ; CHECK IF MESSCOUNTS MOV MESSCOUNTS % ALL IS ZERO; +2. X7 R2 ; SNEP R0 0 ; SNE R1 0 ; INE ┆
0x39600…39680 UnusedSector ┆R2 0 ; MON REGISTERS ; JMP SCE10 ; GOTO NEXT EVENT; END ; END SYSTEM STOP; ;### PAGE 35 END ; END SYSTEM CONTROL; XPRPC= SCE┆
0x39680…39700 UnusedSector ┆00 XREFS= 6 XBUFS= 18 NOLIST MESSAGE <:END OF USER MODULE:> USE PROG XDEVPR= 0 XPSIZE= LOC USE BASE XCURIN= LOC 0,REPEAT CURSOUT┆
0x39700…39780 UnusedSector ┆-CURSIN-1 XCUROUT= LOC 0,REPEAT 4 XWORKING=0, XPROGRAM=LOC XWORDS=0, XREFSX=0, XBUFSX=0, XCURWORK=0, XCENTRY=0 XSIZE= LOC+C USE ┆
0x39780…39800 UnusedSector ┆PROG IF LOC+XSIZE NE WORDS THEN MESSAGE <:SIZE <> WORDS:> MESSAGE WORDS MESSAGE XSIZE FI LIST LIST END ; END MODULE; ;### SOUT┆
0x39800…39880 UnusedSector ┆T; MOV XFILE R1 ; FILE.FSCSETUP=>WORD; MOVC 0 R2 ; SLLL R1 7 ; MOVC 2 R3 ; MON OUTINTEGER ; OUTPUT YEAR; MOVC <:.:> R3 ; ┆
0x39880…39900 UnusedSector ┆MON OUTCHAR ; MOVC 0 R2 ; SLLL R1 4 ; MOVC 2 R3 ; MON OUTINTEGER ; OUTPUT MONTH; MOVC <:.:> R3 ; MON OUTCHAR ; MOVC 0 R2 ┆
0x39900…39980 UnusedSector ┆; SLLL R1 5 ; MOVC 2 R3 ; MON OUTINTEGER ; OUTPUT DATE; MOV XFILE+1 R1 ; FILE+1.FSCSETUP=>WORD; MOVC 0 R2 ; SLLL R1 10 ; ┆
0x39980…39a00 UnusedSector ┆MOVC <: :> R3 ; MON OUTINTEGER ; OUTPUT HOUR; MOVC 0 R2 ; SLLL R1 6 ; MOVC <:.:> R3 ; MON OUTCHAR ; MOVC 2 R3 ; MON OUTIN┆
0x39a00…39a80 UnusedSector ┆TEGER ; OUTPUT MINUTE; MON OUTNL ; OUTNL; JMPI SAVE1. X7 ; RETURN(LIST FILE); XREFS= 8 ; XBUFS= 4 ; XPRPC= CIM00 ; NOLIST M┆
0x39a80…39b00 UnusedSector ┆ESSAGE <:END OF USER MODULE:> USE PROG XDEVPR= 0 XPSIZE= LOC USE BASE XCURIN= LOC 0,REPEAT CURSOUT-CURSIN-1 XCUROUT= LOC 0,REPEA┆
0x39b00…39b80 UnusedSector ┆T 4 XWORKING=0, XPROGRAM=LOC XWORDS=0, XREFSX=0, XBUFSX=0, XCURWORK=0, XCENTRY=0 XSIZE= LOC+C USE PROG IF LOC+XSIZE NE WORDS THE┆
0x39b80…39c00 UnusedSector ┆N MESSAGE <:SIZE <> WORDS:> MESSAGE WORDS MESSAGE XSIZE FI LIST ; END ; END MODULE; ;### URSOUT-CURSIN-1 XCUROUT= LOC 0,REPEA┆
0x39c00…39c80 UnusedSector ┆ END ; END MODULE; ;### OUT-CURSIN-1 XCUROUT= LOC 0,REPEAT 4 XWORKING=0, XPROGRAM=LOC XWORDS=0, XREFSX=0, XBUFSX=0, XCURWORK=0┆
0x39c80…39d00 UnusedSector ┆EMPTYQUEUE(NOTDONE); TRP 0 ; EMPTY: IMPOSSIBLE; MON SENDANSWER ; SENDANSWER(NOTDONE); JMP TE01 ; GOTO STOPPED; END ; END WAIT┆
0x39d00…39d80 UnusedSector ┆TTER: GOTO ERROR; P203: ; OTHER: MON BACKSPACE ; BACKSPACE(CHAR); MOV R0 R3 ; FIRST=>NUMBER; JMP P206 ; GOTO AFTER ADJUSTMENT┆
0x39d80…39e00 UnusedSector ┆; ; P204: ; SECOND: MOVC 10 R5 ; MOVC 0 R7 ; P205: ; ADD R0 R7 ; FIRST*10=>FIRST; SOB R5 P205 ; ADDC -<:0:> R3 ; CHAR-<:0┆
0x39e00…39e80 UnusedSector ┆:>=>SECOND; ADD R7 R3 ; FIRST+SECOND=>NUMBER; P206: ; AFTER ADJUSTMENT: MOVC WORK R7 ; JMP 1. X6 ; RETURN(OK); ;### PAGE 17 ┆
0x39e80…39f00 UnusedSector ┆CMD32: ; GET FILE ID: JMP S6 CIP20 ; INDATEELEMENT(YEAR); JMP CIG05 ; ERROR: GOTO ILL PAR; SLL R3 9 ; YEAR<9=>DATE; MOV R3 R┆
0x39f00…39f80 UnusedSector ┆1 ; JMP S6 CIP20 ; INDATELEMENT(MONTH); JMP CIG05 ; ERROR: GOTO ILL PAR; IHS R3 13 ; IF MONTH>=13 THEN JMP CIG05 ; GOTO ILL ┆
0x39f80…3a000 UnusedSector ┆PAR; SLL R3 5 ; MONTH<5 ADD R3 R1 ; +DATE=>DATE; JMP S6 CIP20 ; INDATEELEMENT(DAY); JMP CIG05 ; ERROR: GOTO ILL PAR; IHS R3┆
0x3a000…3a080 UnusedSector ┆ 32 ; IF DAY>=32 THEN JMP CIG05 ; GOTO ILL PAR; ADD R3 R1 ; DAY+DATE MOV R1 HFILE % +FSCSETUP ; =>FILE.FSCSETUP; CMD33: ; GE┆
0x3a080…3a100 UnusedSector ┆T FILE ID1: JMP S6 CIP20 ; INDATEELEMENT(HOUR); JMP CIG05 ; ERROR: GOTO ILL PAR; IHS R3 24 ; IF HOUR>=24 THEN JMP CIG05 ; GO┆
0x3a100…3a180 UnusedSector ┆TO ILL PAR; SLL R3 6 ; HOUR<6 MOV R3 R1 ; =>TIME; JMP S6 CIP20 ; INDATEELEMENT(MINUTE); JMP CIG05 ; ERROR: GOTO ILL PAR; IH┆
0x3a180…3a200 UnusedSector ┆S R3 60 ; IF HOUR>=24 THEN JMP CIG05 ; GOTO ILL PAR; ADD R3 R1 ; MINUTE+TIME MOV R1 HFILE+1 % +FSCSETUP ; =>FILE+1.FSCSETUP;┆
0x3a200…3a280 UnusedSector ┆ JMP CIG02 ; GOTO GET COMMAND; CMD39: ; SETUP METEOSAT: JMP S6 CIP02 ; JMP CIG02 ; GOTO GET COMMAND; ;### PAGE 18 CMD70: ; ┆
0x3a280…3a300 UnusedSector ┆LIST: MOVC CMD70 R0 ; INSERT LIST AS LINK; MOV R0 SAVE1. X7 ; MON INCOMMAND ; GET LIST PARAMETER; <:TTHR:>,0 , LCMD10 ; <:F┆
0x3a300…3a380 UnusedSector ┆THR:>,0 , LCMD11 ; <:FRAMEH:> , LCMD12 ; <:FORMAT:> , LCMD13 ; <:LOCKME:> , LCMD14 ; <:SORTPR:> , LCMD15 ; <:WINDOW:> , LCM┆
0x3a380…3a400 UnusedSector ┆D16 ; <:SOURCE:> , LCMD17 ; <:SYNCWH:> , LCMD18 ; <:SYNCWD:> , LCMD19 ; <:UNLOCK:> , LCMD20 ; <:ENDCOT:> , LCMD21 ; <:SPEE┆
0x3a400…3a480 UnusedSector ┆D:> , LCMD30 ; <:VERNIR:> , LCMD31 ; <:FILE:>,0 , LCMD32 ; <:BLOCKR:> , LCMD34 ; <:BLOCKT:> , LCMD35 ; <:BLOCKE:> , LCMD36 ┆
0x3a480…3a500 UnusedSector ┆; <:HDTRDA:> , LCMD37 ; <:FRAMET:> , LCMD38 ; <:SETUP:> , LCMD50 ; LIST SETUP TABLE; <:ID1:> ,0 , LCMD60 ; <:ID2:> ,0 , LCM┆
0x3a500…3a580 UnusedSector ┆D61 ; <:MOVECT:> , LCMD62 ; <:SYNCET:> , LCMD63 ; <:TLMSYT:> , LCMD64 ; <:XVERNR:> , LCMD65 ; 0 , 0 ; INE R3 0 ; JMP CIG0┆
0x3a580…3a600 UnusedSector ┆5 ; NOTFOUND: GOTO ILL PAR; JMP CIG04 ; EMPTY LINE: GOTO PROMT; ; LCMD10: MODC LTTHRESHOLD-LFTHRESHD ; LCMD11: MODC LFTHRESHOL┆
0x3a600…3a680 UnusedSector ┆D-LFORMAT ; XCMD12: MODC 0 ; LCMD13: MODC LFORMAT-LLOCKMODE ; LCMD14: MODC LLOCKMODE-LSORTPAR ; LCMD15: MODC LSORTPAR-LWINDOW ; ┆
0x3a680…3a700 UnusedSector ┆LCMD16: MODC LWINDOW-LSOURCE ; LCMD17: MODC LSOURCE-LSYNCWLH ; LCMD18: MODC LSYNCWLH-LUNLOCK ; XCMD19: MODC 0 ; LCMD20: MODC LUN┆
0x3a700…3a780 UnusedSector ┆LOCK-LENDCOUNT ; LCMD21: MODC LENDCOUNT-LSPEED ; LCMD30: MODC LSPEED-LBLOCKSIZE ; XCMD32: MODC 0 ; LCMD36: MODC LBLOCKSIZE-LMOVE┆
0x3a780…3a800 UnusedSector ┆CT ; LCMD62: MODC LMOVECOUNT-LSYNCCOUNT ; LCMD63: MODC LSYNCCOUNT-LTLMSYNC ; LCMD64: MODC LTLMSYNC-LVERNIER ; LCMD31: MODC LVERN┆
0x3a800…3a880 UnusedSector ┆IER-LBLOCKNR ; LCMDLH= LOC -LCMD10 ; LENGTH OF LIST SETUP TABLE; LCMD34: MODC LBLOCKNR-LBLOCKCT ; LCMD35: MODC LBLOCKCT-LFRAMECO┆
0x3a880…3a900 UnusedSector ┆UNT ; LCMD38: MODC LFRAMECOUNT-LHDTRDATA; LCMD37: MODC LHDTRDATA-LID1 ; LCMD60: MODC LID1-LID2 ; ;### PAGE 19 LCMD61: MODC LID2┆
0x3a900…3a980 UnusedSector ┆-LXVERNIER ; LCMD65: MODC LXVERNIER ; ; XL12= XCMD12-LCMD10 ; XL19= XCMD19-LCMD10 ; XL32= XCMD32-LCMD10 ; ; MOVC 0 R6 ; RE.TE┆
0x3a980…3aa00 UnusedSector ┆XT; MOV CUROUT-C R4 ; MON OUTTEXTP ; OUTPUT TEXT; MVP 0. X6 R2 ; GET RE.WORD; MOV 0. X2 R2 ; GET WORD; MOVC <: :> R3 ; WITH┆
0x3aa00…3aa80 UnusedSector ┆OUT LEADING ZERO'S MON OUTINTEGER ; OUTINTEGER; MON OUTNL ; OUTNL; JMPI SAVE1. X7 ; RETURN(LIST PARAMETER); ; ; ; ; PROCED┆
0x3aa80…3ab00 UnusedSector ┆URE OUTLONG. ; ; R0 LEAST SIGN. BITS ; ; R4 MOST SIGN. BITS ; ; DIGITS: 0,0,6,5,5,3,6 ; ; CIP30: ; OUTLONG: MOVC 0 R2 ; 0=>TR┆
0x3ab00…3ab80 UnusedSector ┆ANSFER; MOVC 7 R7 ; 7=>COUNT; MOV WORKING-C R5 ; RE.MULADDR; P301: ; NEXT DIGIT: MOVC 0 R1 ; 0=>REM; MOVC 10 R3 ; DIV R3 R0┆
0x3ab80…3ac00 UnusedSector ┆ ; LSIGN/10=>LSIGN,REM; MOD R7 ; MOV DIGITS-1 R3 ; GET MULDIGIT; MOV R4 0. X5 ; MUL R3 0. X5 ; MUL MSIGN,DIGIT=>0.MULADDR; ┆
0x3ac00…3ac80 UnusedSector ┆ADD 0. X5 R1 ; REM+0.MULADDR ADD R2 R1 ; +TRANSFER=>TEMP; MOVC 10 R3 ; MOVC 0 R2 ; DIV R3 R1 ; TEMP/10=>TRANSFER,DIGIT; MOD┆
0x3ac80…3ad00 UnusedSector ┆ R7 ; MOV R2 0. X5 ; SAVE(DIGIT); MOV R1 R2 ; SAVE(TRANSFER); SOB R7 P301 ; IF DECR(COUNT)<>0 THEN ; GOTO NEXT DIGIT; MOV C┆
0x3ad00…3ad80 UnusedSector ┆UROUT-C R4 ; MOVC 7 R0 ; P302: ; OUTDIGIT: MOV 1. X5 R2 ; 1.MULADDR=>DIGIT; MOVC 1 R3 ; MON OUTINTEGER ; OUTINTEGER(FORM=5);┆
0x3ad80…3ae00 UnusedSector ┆ ADDC 1 R5 ; INCR(MULADDR); SOB R0 P302 ; IF DECR(COUNT)<>0 THEN ; GOTO OUTDIGIT; JMP 0. X6 ; RETURN(OUTLONG); ;### PAGE 20┆
0x3ae00…3ae80 UnusedSector ┆ LCMD50: ; LIST SETUP TABLE: CLR SAVE0. X7 ; 0=>LISTNR; LC501: ; MOVC LC501 R0 ; INSERT LINK; MOV R0 SAVE1. X7 ; MOV SAVE0. ┆
0x3ae80…3af00 UnusedSector ┆X7 R0 ; GET LISTNR; INC SAVE0. X7 ; INCR(LISTNR); IEQ R0 XL12 ; JMP LCMD12 ; LIST FRAMELENGTH; IEQ R0 XL19 ; JMP LCMD19 ; L┆
0x3af00…3af80 UnusedSector ┆IST SYNCWORD; IEQ R0 XL32 ; JMP LCMD32 ; LIST FILE; IEQ R0 LCMDLENGTH ; IF END OF LIST THEN JMP CMD70 ; GOTO LIST NEXT; MOD┆
0x3af80…3b000 UnusedSector ┆ R0 ; JMP LCMD10 ; GOTO LIST(LISTNR); ; LCMD12: ; LIST FRAMELENGTH: MOV CUROUT-C R4 ; MOVC LFRAMELENGTH R6 ; RE.TEXT; MON O┆
0x3b000…3b080 UnusedSector ┆UTTEXTP ; OUTPUT TEXT; MOV FSCSETUP+FSFRAMEH R0 ; RE.FRAMELH.FSCSETUP; MOV FSCSETUP+FSFRAH+1 R4 ; JMP S6 CIP30 ; OUTLONG; MO┆
0x3b080…3b100 UnusedSector ┆N OUTNL ; OUTNL; JMPI SAVE1. X7 ; RETURN(LIST FRAMELENGTH); ; ; LCMD19: ; LIST SYNCWORD: MOV CUROUT-C R4 ; MOVC LSYNCWORD R┆
0x3b100…3b180 UnusedSector ┆6 ; RE.TEXT; MON OUTTEXTP ; OUTPUT TEXT; MOVC FSCSETUP+FSSYNCWD-1 % R6 ; RE.SYNCWORD=>ADDR; MOV FSCSETUP+FSSYNCWH R0 ; SYNCW┆
0x3b180…3b200 UnusedSector ┆ORDLENGTH.SETUP SRL R0 4 ; /16=>COUNT; ADDC 1 R0 ; COUNT+1=>COUNT; MOVC <:#:> R3 ; LC191: ; MOD R0 ; MOV 0. X6 R2 ; COUNT.A┆
0x3b200…3b280 UnusedSector ┆DDR=>WORD; MON OUTHEXA ; OUTPUT WORD; MOVC 1 R3 ; SOB R0 LC191 ; IF DECR(COUNT)<>0 THEN ; GOTO NEXT WORD; MON OUTNL ; OUTNL┆
0x3b280…3b300 UnusedSector ┆; JMPI SAVE1. X7 ; RETURN(LIST SYNCWORD); ;### PAGE 21 LCMD32: ; LIST FILE: MOVL FSCSETUP+HFILE % -WORK. X7 R01 ; FILE.SETUP┆
0x3b300…3b380 UnusedSector ┆TABLE MOVL R01 XFILE % =>0.XFILE -WORK. X7 ; LCM321: ; MOV CUROUT-C R4 ; MOVC LFILE R6 ; RE.TEXT; MON OUTTEXTP ; OUTPUT TEX┆
0x3b380…3b400 UnusedSector ┆T; MOV XFILE R1 ; FILE.FSCSETUP=>WORD; MOVC 0 R2 ; SLLL R1 7 ; MOVC 2 R3 ; MON OUTINTEGER ; OUTPUT YEAR; MOVC <:.:> R3 ; ┆
0x3b400…3b480 UnusedSector ┆MON OUTCHAR ; MOVC 0 R2 ; SLLL R1 4 ; MOVC 2 R3 ; MON OUTINTEGER ; OUTPUT MONTH; MOVC <:.:> R3 ; MON OUTCHAR ; MOVC 0 R2 ┆
0x3b480…3b500 UnusedSector ┆; SLLL R1 5 ; MOVC 2 R3 ; MON OUTINTEGER ; OUTPUT DATE; MOV XFILE+1 R1 ; FILE+1.FSCSETUP=>WORD; MOVC 0 R2 ; SLLL R1 10 ; ┆
0x3b500…3b580 UnusedSector ┆MOVC <: :> R3 ; MON OUTINTEGER ; OUTPUT HOUR; MOVC 0 R2 ; SLLL R1 6 ; MOVC <:.:> R3 ; MON OUTCHAR ; MOVC 2 R3 ; MON OUTIN┆
0x3b580…3b600 UnusedSector ┆TEGER ; OUTPUT MINUTE; MON OUTNL ; OUTNL; JMPI SAVE1. X7 ; RETURN(LIST FILE); XREFS= 8 ; XBUFS= 4 ; XPRPC= CIM00 ; NOLIST M┆
0x3b600…3b680 UnusedSector ┆ESSAGE <:END OF USER MODULE:> USE PROG XDEVPR= 0 XPSIZE= LOC USE BASE XCURIN= LOC 0,REPEAT CURSOUT-CURSIN-1 XCUROUT= LOC 0,REPEA┆
0x3b680…3b700 UnusedSector ┆T 4 XWORKING=0, XPROGRAM=LOC XWORDS=0, XREFSX=0, XBUFSX=0, XCURWORK=0, XCENTRY=0 XSIZE= LOC+C USE PROG IF LOC+XSIZE NE WORDS THE┆
0x3b700…3b780 UnusedSector ┆N MESSAGE <:SIZE <> WORDS:> MESSAGE WORDS MESSAGE XSIZE FI LIST ; END ; END MODULE; ;### URSOUT-CURSIN-1 XCUROUT= LOC 0,REPEA┆
0x3b780…3b800 UnusedSector ┆ =>0.INPROCEDURE; MOVC SCP71 R0 ; HDTR STARTUP INPUT ANSWER MOV R0 ANSWES+HDTR; =>HDTR.ANSWERS; JMP 1. X6 ; RETURN(OK); ; L4┆
0x3b800…3b880 UnusedSector ┆: ; INIT WRITE FUNCTION: MOVC 0 R0 ; MOVC SYNCW1 R1 ; MOVC SYNCW2 R2 ; L6: ; INSERT SYNCWORD: MOD R0 ; MOV STATEREF R4 ; CO┆
0x3b880…3b900 UnusedSector ┆UNT.STATEREF=>RE.STATE; MOV STATES.X4 R4 ; ADDR.STATE=>ADDR; MODN CBASE-C ; ADDR-BASE.CUR ADDC -26 R4 ; -26=>ADDR; MOVL R1 0┆
0x3b900…3b980 UnusedSector ┆. X4 ; INSERT SYNCWORD INTO ADDC 7 R4 ; SEARCH FIELD; MOVC 6 R3 ; L7: ; INSERT SYNCWORD INTO STC R1 0. X4 ; DATA FIELD AND ┆
0x3b980…3ba00 UnusedSector ┆BUFFER; MOV R2 6. X4 ; SOB R3 L7 ; ;### PAGE 26 ADDC 6 R4 ; INIT DATA BUFFER MOVC 372 R3 ; BY HDTR MASK; L8: MOV SETUPTBLE+┆
0x3ba00…3ba80 UnusedSector ┆HDTRMSK R5 ; STC R5 0. X4 ; SOB R3 L8 ; ADDC 1 R0 ; INCR(COUNT); ILT R0 BUFCOUNT ; IF COUNT<BUFCOUNT THEN JMP L6 ; GOTO INS┆
0x3ba80…3bb00 UnusedSector ┆ERT SYNCWORD; MOV R6 LINK0 ; SAVE(LINK); MOVC SCP74 R0 ; HDTR OUTPUT MOV R0 OUTPRS+1 ; =>HDTR.OUTPROCEDURES; MOVC SCP76 R0 ;┆
0x3bb00…3bb80 UnusedSector ┆ HDTR STARTUP OUTPUT ANSWER MOV R0 ANSWES+HDTR; =>HDTR.ANSWERS; CLR COUNT0.X7 ; 0=>DUMMY COUNT; CLR COUNT1.X7 ; 0=>COUNT; L9:┆
0x3bb80…3bc00 UnusedSector ┆ ; NEXTBUF: MOD COUNT1.X7 ; MOV STATEREF R4 ; COUNT.STATEREF=>RE.STATE; JMP S6 SCP73 ; REQUEST DUMMY OUTPUT; INC COUNT1.X7 ;┆
0x3bc00…3bc80 UnusedSector ┆ INCR(COUNT); MOV COUNT1.X7 R6 ; COUNT=>STATENR; ILT R6 BUFCOUNT ; IF STATENR<BUFCOUNT THEN JMP L9 ; GOTO NEXTBUF; MOV LINK0┆
0x3bc80…3bd00 UnusedSector ┆ R6 ; RESTORE(LINK); JMP 1. X6 ; RETURN(OK); END ; END HDTR SETUP; ; LOCAL ACTION PROCEDURE. ; BEGIN USE PROG ; BEGIN LOCAL AC┆
0x3bd00…3bd80 UnusedSector ┆TION; ENTRY SCP99 ; EXTERNAL SCG90,ISCP10 ; EXTERNAL CAUSE,C,LOCRETURN,SYSACTION,WORK,ERRSCM ; SCP99: ; LOCAL ACTION: MODN R7 ┆
0x3bd80…3be00 UnusedSector ┆; SON CAUSE -C. X7 ; IF CAUSE=0 THEN JMPI SYSACTION ; RETURN(SYSACTION); MOVC 0 R7 ; LDS R7 ; 0=>PSW; MOV CAUSE-C R7 ; CAUS┆
0x3be00…3be80 UnusedSector ┆E MOV R7 WORK+1 ; =>1.MESSAGE; MOV LOCRETURN-C R7 ; LOCRETURN MOV R7 WORK+2 ; =>2.MESSAGE; MON REGISTERS ; REGISTERS; CLR 3┆
0x3be80…3bf00 UnusedSector ┆. X7 ; 0=>3.MESSAGE; MOVC ERRSCM R0 ; JMPI S6 ISCP10 ; MESSAGE: SCM ERROR; JMP SCG90 ; GOTO SYSTEM STOP; END ; END LOCAL ACTI┆
0x3bf00…3bf80 UnusedSector ┆ON; ;### PAGE 27 ; SYSTEM CONTROL ENTRY POINT; ; SCE00: ; SYSTEM START: MOVC LINK0 R4 ; CLEAR BASE AREA; MOVC XWORDS R0 ; L0┆
0x3bf80…3c000 UnusedSector ┆: XTR X4 0 ; ADDC 1 R4 ; SOB R0 L0 ; MOV LOCACTION-C R0 ; 0.LOCACTION MOV R0 SYSACTION ; =>0.SYSACTION; MOVC INITTABLE R4 ;┆
0x3c000…3c080 UnusedSector ┆ INITTABLE=>TABLE; MOVC INITTABLELH R0 ; INITTABLELENGTH=>COUNT; L1: ; INSERT WORD: MVP 0. X4 R1 ; 0.INITTABLE=>WORD; MVP 1. ┆
0x3c080…3c100 UnusedSector ┆X4 R2 ; 1.INITTABLE=>ADDR; MOV R1 0. X2 ; WORD=>0.ADDR; ADDC 2 R4 ; TABLE+2=>TABLE; SOB R0 L1 ; IF DECR(COUNT)<>0 THEN ; GOT┆
0x3c100…3c180 UnusedSector ┆O INSERT WORD; SCE10: ; NEXT EVENT: MON WAITEVENT ; WAITEVENT; JMP L2 ; ANSWER: JMP SCG20 ; MESSAGE: GOTO MESSAGE; L2: ; ANS┆
0x3c180…3c200 UnusedSector ┆WER: CONTINUE; MOV 4. X7 R0 ; SPECIAL.MESSAGE(7:0) XTR R0 8 ; =>STATENR; IGE R0 BUFCOUNT ; IF STATENR>=BUFCOUNT THEN JMP L4 ┆
0x3c200…3c280 UnusedSector ┆; GOTO ILLEGAL ANSWER; MOV 4. X7 R0 ; SPECIAL.MESS(15:8) SRL R0 8 ; =>DRIVER; IHS R0 MAXMODULES ; IF DRIVER>=MAXDRIVERS THEN ┆
0x3c280…3c300 UnusedSector ┆C 0269 0270 0271 0272 0273 0274 4F4E 0230L 2054 4552 4441 2059 4928 544E 5245 5552 0238L 5450 4C20 5441 4E45 5943 0029 4F4E 2054┆
0x3c300…3c380 UnusedSector ┆ 0240L 4552 4441 0059 4F4E 4620 4C49 2F45 4E45 0248L 2044 464F 4420 5441 0041 4850 5341 2045 0250L 4F4C 4B43 4520 5252 524F 0000┆
0x3c380…3c400 UnusedSector ┆ 4B53 5745 0258L 4520 5252 524F 0000 4F4E 2054 4F50 4953 0260L 4954 4E4F 4445 4620 524F 5720 4952 4554 0268L 0000 4F4C 4143 204C┆
0x3c400…3c480 UnusedSector ┆ 4341 4954 4E4F 0000 0270L 0000 0000 0000 0000 4F4E 5320 4E59 0043 0278L 4D6C 2185 66A6 0258 09D8 42D8 23E4 B07C 0280L 03D8 BA7C┆
0x3c480…3c500 UnusedSector ┆ 3DD8 0A58 104A 01D8 0A4A 0049 0288L 0848 516E 9EBB 01CE 03C0 516E AA7E 1ED8 0290L 30AB 32F5 2BD8 6DBB 04CD 04E4 6DE9 29BB 0298L┆
0x3c500…3c580 UnusedSector ┆ 01A9 9BF2 04AD 04AE 0448 00C8 DED4 568E 02A0L 03C0 D0BC 04F2 1CD8 0BC1 F7F2 BEBB 8127 02A8L 8227 8327 004F 0149 1358 516E 66A6 ┆
0x3c580…3c600 UnusedSector ┆0ED8 02B0L 2158 05D8 23E4 B07E 09D8 6AFB 3058 10E4 02B8L A03C 47E4 B040 02D8 07AB 2E58 8427 2116 02C0L 63A6 2112 1E48 70BD 0D99 ┆
0x3c600…3c680 UnusedSector ┆70BD 6A71 05C0 02C8L 80BF 5248 05E4 78E9 5E4F E9BE 1D68 3970 02D0L 0048 77A6 0FA6 23D8 2AD8 0CA6 C427 7DFB 02D8L 17E4 D004 C185 ┆
0x3c680…3c700 UnusedSector ┆004D DF7C 26D8 75BD 0156 02E0L 679E 4E6C 5AA6 204B 5FA6 D57E 09D8 C154 02E8L 0256 229E C11B BD06 5AA6 C127 204B 5FA6 02F0L 044E ┆
0x3c700…3c780 UnusedSector ┆36BD C51A A1F2 64A6 05C6 5DA6 3968 02F8L 1D70 5248 05E4 0FE9 0FBB A9BE 40BF 11A6 0300L 4E6C 59A6 13A6 0D58 0256 F748 E480 C160 0┆
0x3c780…3c800 UnusedSector ┆308L E9D0 82DA 5249 E74A 90ED 01C9 03C2 2C4C 0310L 1E48 0021 0122 9ABB 02CC 05C0 555F 09DF 0318L 4D53 5341 5320 5359 4554 204D 4┆
0x3c800…3c880 UnusedSector ┆552 4441 0320L 0059 4E6C 5AA6 23D8 1CDF 4C49 454C 4147 0328L 204C 4150 4152 454D 4554 0052 12DF 4C49 0330L 454C 4147 204C 5546 4┆
0x3c880…3c900 UnusedSector ┆34E 4954 4E4F 0000 0338L 08DF 4C49 454C 4147 204C 4F43 4D4D 4E41 0340L 0044 4E6C 5AA6 4D6C 61A6 BA7E 0458 4E6C 0348L 5DA6 234B 5┆
0x3c900…3c980 UnusedSector ┆FA6 5DA6 86A6 5453 5241 0054 0350L 03CE 5453 504F 0000 0422 494C 5453 0000 0358L 04A6 5454 5248 0000 042D 5446 5248 0000 0360L 0┆
0x3c980…3ca00 UnusedSector ┆42E 5246 4D41 4845 045C 4F46 4D52 5441 0368L 042F 4F4C 4B43 454D 0430 4F53 5452 5250 0370L 0431 4957 444E 574F 0432 4F53 5255 45┆
0x3ca00…3ca80 UnusedSector ┆43 0378L 0433 5953 434E 4857 0434 5953 434E 4457 0380L 0463 4E55 4F4C 4B43 0435 4E45 4344 544F 0388L 0436 5053 4545 0044 0437 45┆
0x3ca80…3cb00 UnusedSector ┆56 4E52 5249 0390L 0438 4946 454C 0000 0483 4954 454D 0000 0398L 0494 4C42 434F 524B 0439 4C42 434F 544B 03A0L 043A 4C42 434F 45┆
0x3cb00…3cb80 UnusedSector ┆4B 043B 4448 5254 4144 03A8L 043C 5246 4D41 5445 043D 454D 4554 544F 03B0L 04A3 4449 0031 0000 043E 4449 0032 0000 03B8L 043F 4F┆
0x3cb80…3cc00 UnusedSector ┆4D 4556 5443 0440 5953 434E 5445 03C0L 0441 4C54 534D 5459 0442 5658 5245 524E 03C8L 0443 0000 0000 B07E 9558 8758 E327 86A6 03D┆
0x3cc00…3cc80 UnusedSector ┆0L 4C54 004D 0000 0416 5346 0043 0000 0415 03D8L 5257 5449 0045 0414 4552 4441 0000 0413 03E0L 4E49 5449 4557 0412 4957 444E 000┆
0x3cc80…3cd00 UnusedSector ┆0 040E 03E8L 4552 4957 444E 040D 4553 5241 4843 040C 03F0L 4F50 4953 4E54 040B 494C 5453 5346 040A 03F8L 5352 4145 4852 0409 000┆
0x3cd00…3cd80 UnusedSector ┆0 0000 B07E DC58 0400L 63A6 E318 04EC 83F2 813E 857E 8A44 DA58 0408L 16D8 01E4 01E4 01E4 01E4 01E4 0149 E33A 0410L E358 71BD 01E┆
0x3cd80…3ce00 UnusedSector ┆4 01E4 01E4 01E4 0049 E318 0418L 0152 04F2 02A3 E380 20E4 8046 5058 E318 0420L C180 01A4 7250 79BB 0894 6B4A C282 5E48 0428L 0BA┆
0x3ce00…3ce80 UnusedSector ┆6 0DA6 46E4 C027 E158 01A4 01A4 01A4 0430L 01A4 01A4 01A4 03A4 02E4 01A4 07A4 01A4 0438L 03A4 01A4 01A4 01A4 01A4 06E4 01A4 06A4┆
0x3ce80…3cf00 UnusedSector ┆ 0440L 01A4 0BE4 0CA4 1DE4 0048 E380 7CA6 2459 0448L E31D 558A 0156 2BCD 4020 4121 E0F5 1EF7 0450L 2D59 E31D 6BCD EDFB 7DE4 D07E┆
0x3cf00…3cf80 UnusedSector ┆ 0B59 8054 0458L 6898 7E70 8870 1059 FE56 1ADE 3B59 6C49 0460L 02E4 69E9 1759 FE56 13DE 4259 7849 04E4 0468L 69E9 1E59 66A6 0258┆
0x3cf80…3d000 UnusedSector ┆ 05D8 02D8 BA7E 0658 0470L 63A6 80BF 30AB 38BB 66A6 02D8 04D8 0858 0478L 63A6 0BBB 06D8 0A4D 004F 078A 02C5 30AB 0480L 738A 404F┆
0x3d000…3d080 UnusedSector ┆ 81BF 1A5F 6159 B9A0 39BB 1E5F 0488L 6559 BD44 6759 B5A0 318A 245F 6B59 20E4 0490L B044 6E59 318A 7F71 2B5F 7259 18E4 B044 0498L┆
0x3d080…3d100 UnusedSector ┆ 7559 B6A0 39BB 325F 7959 3CE4 B044 7C59 04A0L 318A 8071 5759 FE56 1DDF 5A59 0456 A648 04A8L E480 86A6 5454 5248 0000 051B 5446 ┆
0x3d100…3d180 UnusedSector ┆5248 04B0L 0000 051C 5246 4D41 4845 0573 4F46 4D52 04B8L 5441 051E 4F4C 4B43 454D 051F 4F53 5452 04C0L 5250 0520 4957 444E 574F ┆
0x3d180…3d200 UnusedSector ┆0521 4F53 5255 04C8L 4543 0522 5953 434E 4857 0523 5953 434E 04D0L 4457 057B 4E55 4F4C 4B43 0525 4E45 4344 04D8L 544F 0526 5053 ┆
0x3d200…3d280 UnusedSector ┆4545 0044 0527 4556 4E52 04E0L 5249 052D 4946 454C 0000 058A 4C42 434F 04E8L 524B 052E 4C42 434F 544B 052F 4C42 434F 04F0L 454B ┆
0x3d280…3d300 UnusedSector ┆0529 4448 5254 4144 0531 5246 4D41 04F8L 5445 0530 4553 5554 0050 0562 4449 0031 0500L 0000 0532 4449 0032 0000 0533 4F4D 4556 0┆
0x3d300…3d380 UnusedSector ┆508L 5443 052A 5953 434E 5445 052B 4C54 534D 0510L 5459 052C 5658 5245 524E 0534 0000 0000 0518L B07E F659 D459 07A4 07A4 00E4 0┆
0x3d380…3d400 UnusedSector ┆7A4 07A4 0520L 07A4 07A4 15A4 0EE4 00E4 07A4 17A4 22A4 0528L 00E4 23A4 07A4 08A4 4DE4 0DA4 07A4 15A4 0530L 07E4 0EA4 07A4 1DA4 0┆
0x3d400…3d480 UnusedSector ┆156 24E4 004E 4E6C 0538L 5AA6 8022 2AFB 204B 65A6 5DA6 E412 0000 0540L 0000 0006 0005 0005 0003 0006 004A 074F 0548L 516D 0049 0┆
0x3d480…3d500 UnusedSector ┆A4B 38EB 77BD 0556 3E9B CDBB 0550L 3DEA D18A 218A 0A4B 004A 39EB 77BD ADBB 0558L 1ABB 11C7 4E6C 0748 411A 014B 65A6 01CD 0560L 0┆
0x3d500…3d580 UnusedSector ┆5C0 80BF E327 0556 6348 E480 E318 E316 0568L 827C 09D8 897C 0FD8 8D7C 1CD8 13E4 807C 0570L CB58 70BD 5858 4E6C 704E 5AA6 6C68 6D┆
0x3d580…3d600 UnusedSector ┆6C 0578L 335F 5DA6 E412 4E6C C04E 5AA6 774E 7768 0580L 8424 01C8 234B 70BD 801A 64A6 014B 05C0 0588L 5DA6 E412 FF60 E9D0 4E6C D7┆
0x3d600…3d680 UnusedSector ┆4E 5AA6 6969 0590L 004A 17A1 024B 65A6 2E4B 5FA6 004A 14A1 0598L 024B 65A6 2E4B 5FA6 004A 15A1 024B 65A6 05A0L 6A69 004A 1AA1 20┆
0x3d680…3d700 UnusedSector ┆4B 65A6 004A 16A1 2E4B 05A8L 5FA6 024B 65A6 5DA6 E412 0000 0000 0000 05B0L 0000 0000 0000 0000 0000 0000 0000 0000 05B8L 0000 00┆
0x3d700…3d780 UnusedSector ┆00 0000 0000 0000 0000 0000 0000 05C0L 0000 0000 0000 0000 0109 030A 0064 0000 05C8L 0000 822F 0000 0000 0000 0064 0000 0000 05D┆
0x3d780…3d800 UnusedSector ┆0L 0000 0000 0000 0000 0000 0000 0000 0000 05D8L 0000 0000 0000 FFFF 0000 0000 0000 0000 05E0L 0000 0000 0000 0000 0000 0000 000┆
0x3d800…3d880 UnusedSector ┆0 0000 05E8L 0000 0000 0000 0000 0000 0000 0000 0000 05F0L 0000 0000 0000 0000 0000 0000 0000 0000 05F8L 0000 0000 0000 0000 000┆
0x3d880…3d900 UnusedSector ┆0 0000 0000 0000 0600L 0000 0000 0000 0000 0000 822F 822F 0052 0608L 0104 0000 0000 0000 0000 0000 0000 0000 0610L 0000 0000 000┆
0x3d900…3d980 UnusedSector ┆0 0000 0000 0000 0000 0000 0618L 0000 0000 0000 0000 0000 0000 0000 0000 0620L 0000 0000 0000 0000 0000 0000 0000 0000 0628L 000┆
0x3d980…3da00 UnusedSector ┆0 0000 0000 0000 0000 0000 0000 0000 0630L 0000 0000 0000 0000 0000 0000 0000 0000 0638L 0000 0000 0000 0000 0000 0000 0000 0000┆
0x3da00…3da80 UnusedSector ┆ 0640L 0000 0000 0000 0000 0000 0000 0000 0000 0648L 0000 0000 0000 0000 0000 0000 0000 0000 0650L 0000 0000 0000 0000 0000 0000┆
0x3da80…3db00 UnusedSector ┆ 0000 0000 0658L 0000 0000 0000 0000 0000 0000 0000 0000 0660L 0000 0000 0000 0000 0000 0000 0000 0000 0668L 0000 0000 0000 0000┆
0x3db00…3db80 UnusedSector ┆ 0000 0000 0000 0000 0670L 0000 0000 0000 0000 0000 0000 0000 0000 0678L 0000 0000 0000 0000 0000 0000 0000 0000 0680L 0000 0000┆
0x3db80…3dc00 UnusedSector ┆ 0000 0000 0000 0000 0000 0000 0688L 0000 0000 0000 0000 0000 0000 0000 0000 0690L 0000 0000 0000 0000 0000 0000 0000 0000 0698L┆
0x3dc00…3dc80 UnusedSector ┆ 0000 0000 0000 0000 0000 0000 0000 0000 06A0L 0000 0000 0000 0000 0000 0000 0000 0000 06A8L 0000 0000 0000 0000 0000 0000 0000 ┆
0x3dc80…3dd00 UnusedSector ┆0000 06B0L 0000 0000 0000 0000 0000 0000 0000 0000 06B8L 0000 0000 0000 0000 0000 0000 0000 0000 06C0L 0000 0000 0000 S1 698L┆
0x3dd00…3dd80 UnusedSector ┆ ; ; AU000293 AU000294 1 0050 OUTMODE , ACUROUT+SMODE ; ; AU000294 AU000295 1 0052 KIND , ACUROUT+SKIND ; ; AU000295 AU000296 1 ┆
0x3dd80…3de00 UnusedSector ┆0054 OFIRST , ACUROUT+SFIRST ; ; AU000296 AU000297 1 0056 OFIRST , ACUROUT+STOP ; ; AU000297 AU000298 1 0058 80 , ACUROUT+SREM ;┆
0x3de00…3de80 UnusedSector ┆ ; AU000298 AU000299 1 005A 80 , ACUROUT+SBUFSIZE; ; AU000299 AU000300 1 005C OUSED , ACUROUT+SUSED ; ; AU000300 AU000301 1 005E┆
0x3de80…3df00 UnusedSector ┆ OFIRST , OUSED+BFIRST ; ; AU000301 AU000302 1 0060 OUSED , OUSED+BNEXT ; ; AU000302 AU000303 1 0062 ACURIN , CURIN-C ; ; AU0003┆
0x3df00…3df80 UnusedSector ┆03 AU000304 1 0064 ACUROUT , CUROUT-C ; ; AU000304 AU000305 1 0066 XWORKAREA , WORKING-C ; ; AU000305 AU000306 1 0068 INITTABLEL┆
0x3df80…3e000 UnusedSector ┆H= (LOC-INITTABLE)/2 ; ; AU000306 AU000307 1 0068 VERNIERTABLE: #9C,#4F,#63,#7C,#7C,#7C,#7C,#85 ;### ; AU000307 PAGE 5 1 0070 ; ┆
0x3e000…3e080 UnusedSector ┆PAGE 5 AU000308 1 0070 LFRAMELENGTH: <:FRAMELENGTH: <0>:>,FSFRAMELENGTH +FSCSETUP ; AU000308 AU000309 1 007A LTTHRESHOLD: <:TTH┆
0x3e080…3e100 UnusedSector ┆URE EMPTY QUEUE(ERROR CODE). ; BEGIN USE PROG ; BEGIN EMPTY QUEUE; ENTRY TP14 ; EXTERNAL TP12,SENDANSWER,LINK0,WORK ; ; ; R1 ER┆
0x3e100…3e180 UnusedSector ┆RORCODE RE.WORK ; ; R2 DESTROYED ; ; R4 DESTROYED ; ; R6 LINK DESTROYED ; ; TP14: ; EMPTY QUEUE: MOV R6 LINK0 ; SAVE(LINK); M┆
0x3e180…3e200 UnusedSector ┆OV R1 WORK ; ERRORCODE=>RESULT.ANSWER; L0: ; GET NEXT: JMP S6 TP12 ; OUTQUEUE(EVENT); JMPI LINK0 ; EMPTY: RETURN(ERROR); JOZ ┆
0x3e200…3e280 UnusedSector ┆X4 L1 ; IF QUEUECOUNT=0 THEN RETURN; MON SENDANSWER ; SENDANSWER(EVENT,ANSWER); JMP L0 ; GOTO GET NEXT; L1: MOV LINK0 R6 ; JM┆
0x3e280…3e300 UnusedSector ┆P 1. X6 ; END ; END EMPTYQUEUE; ; PROCEDURE INIT QUEUE. ; ; R0 DESTROYED ; ; R4 DESTROYED ; ; R6 LINK LINK ; BEGIN USE PROG ; ┆
0x3e300…3e380 UnusedSector ┆ENTRY TP15 ; EXTERNAL QUEUECONTROL,DMA0 ; ; TP15: ; INIT QUEUE: MOVC QUEUECONTROL R4 ; RE.QUEUE; XTR X4 0 ; 0=>COUNT.QUEUE; ┆
0x3e380…3e400 UnusedSector ┆MOVC DMA0 R0 ; DMA0 MOV R0 1. X4 ; =>1,2.QUEUE; MOV R0 2. X4 ; JMP 0. X6 ; RETURN; END ; END INIT QUEUE; ;### PAGE 8 ; PROCE┆
0x3e400…3e480 UnusedSector ┆DURE STOPMOVING. ; R0 HDTR STATUS ; ; R1 ERRORCODE ; (IF ERROR); ; R3 STOPCOUNT ; ; R6 LINK LINK ; ; BEGIN USE PROG ; BEGIN STO┆
0x3e480…3e500 UnusedSector ┆PMOVING; ENTRY TP20 ; EXTERNAL HDTR,REG0,REG4,CSTOP,CTACHENABLE EXTERNAL C,DEVPR,INTERRUPT,WAITINTERRUPT,CLEARINTERRUPT EXTERNAL┆
0x3e500…3e580 UnusedSector ┆ BNMOVING,BNLOCAL,BNNOTREADY,ERRNOTREADY,ERRTIMEOUT ; TP20: ; STOP MOVING: MOVC 0 R3 ; 0=>STOPCOUNT; MOVC HDTR+REG4 R0 ; SIO┆
0x3e580…3e600 UnusedSector ┆ R0 R0 ; SBNP R0 BNLOCAL ; IF NOT LOCAL IBZ R0 BNMOVING ; AND NOT MOVING THEN JMP 1. X6 ; RETURN(DONE); MOV INTERRUPT-C R1 ;┆
0x3e600…3e680 UnusedSector ┆ MON CLEARINTERRUPT ; MOVC HDTR+REG0 R0 ; MOVC CSTOP+CTACHENE R1 ; CIO R1 R0 ; WRITE(STOP,HDTR); L0: ; WAITSTOP: MOVC #200 ┆
0x3e680…3e700 UnusedSector ┆R0 ; MOV INTERRUPT-C R1 ; MON WAITINTERRUPT ; WAITINTERRUPT(5 SEC.); JMP L1 ; TIMEOUT: MOV DEVPR-C R0 ; INTERRUPT: GET PRI; ┆
0x3e700…3e780 UnusedSector ┆ XTR R0 2 ; IEQP R0 2 ; IF PRI=2 THEN ADDC 1 R3 ; INCR(COUNT); JMP L0 ; GOTO WAITSTOP; MOVC HDTR+REG4 R1 ; SIO R0 R1 ; READ┆
0x3e780…3e800 UnusedSector ┆ TRANSPORT STATUS; IBZ R0 BNMOVING ; IF NOT STATUS[MOVING] THEN JMP 1. X6 ; RETURN(DONE); IBNP R0 BNLOCAL ; IF STATUS[LOCAL] ┆
0x3e800…3e880 UnusedSector 0x1a[128]
[…0x1…]
