*ASM               DUMP ANY SECTOR ON DISK TO 1403                      DPD00000
                          ABS                                           DPD00001
                          ORG     /0700
                    START BSI  L  HOME
                          LD   L  TXS
                          STO  L  17
                          XIO  L  UNMSK
                          WAIT    1
                          XIO  L  SENSW
                          STO  L  DATA&1
                    STA2  BSI  L  DISK
                          DC      1
                          DC      DATA
                          LDX   1 66
                          LD      H4040
                          STO  L1 OUTPT
                          MDX   1 -1
                          MDX     *-4
                          LDX   1 7
                          LD   L1 HEAD-1
                          STO  L1 OUTPT&1
                          MDX   1 -1
                          MDX     *-6
                          LD   L  DATA&1
                          BSI  L  EBCDC
                          STO  L  OUTPT&18
                          RTE     16
                          STO  L  OUTPT&19
                    PER8R BSI  L  PRINT
                          DC      9
                          DC      OUTPT
                          DC      0
                          LD      *-2
                          SRA     1
                          BSC     Z
                          MDX     PER8
                          BSI  L  PRINT
                          DC      0
                          MDX     *-4
                          LDX   1 66
                          LD      H4040
                          STO  L1 OUTPT
                          MDX   1 -1
                          MDX     *-4
                          LDX   1 0
                          LDX   2 0
                    LOOP  LD   L1 DATA&2
                          BSI  L  EBCDC
                          STO  L2 OUTPT&2
                          RTE     16
                          STO  L2 OUTPT&3
                          MDX   2 3
                          STX   2 PCHK
                          LD      PCHK
                          S       H0048
                          BSC     -
                          MDX     PRLN
                    LOOPB MDX   1 1
                          STX   1 ECHK
                          LD      ECHK
                          S       H0320
                          BSC     -
                          MDX     ENDSE
                          MDX     LOOP
                    PER8  WAIT    9
                          MDX     PER8R
                    PRLN  BSI  L  PRINT
                          DC      9
                          DC      OUTPT
                          DC      0
                          LD      *-2
                          SRA     1
                          BSC     Z
                          MDX     WRNG
                          BSI  L  PRINT
                          DC      0
                          MDX     *-4
                          MDX     LOOPB
                    WRNG  WAIT    16
                          MDX     PRLN
                    ENDSE LD      SCHK
                          A       H0001
                          STO     SCHK
                          SLA     14
                          BSC     &Z
                          MDX     REST
                    ENDCA XIO  L  SNSSW
                          BSC  L  START,-
                          LD   L  DATA&1
                          A       H0001
                          STO  L  DATA&1
                          BSC  L  STA2
                    REST  BSI  L  PRINT
                          DC      /008B
                          NOP
                          NOP
                          BSI  L  PRINT
                          DC      0
                          MDX     *-4
                          LD      H0001
                          STO     SCHK
                          MDX     ENDCA
                          BSS  E
                    SENSW DC      0
                          DC      /0740
                    SNSSW DC      0
                          DC      /0760
                    H4040 DC      /4040
                    H0048 DC      48
                    H0320 DC      320
                    H0001 DC      1
                    HEAD  EBC     .DISK ADDRESS  .
                    PCHK  DC      *-*
                    ECHK  DC      *-*
                    SCHK  DC      *-*
                    DATA  DC      321
                          DC      *-*
                          BSS     320
                    OUTPT DC      132
                          BSS     66
                          END     START
