howto bitsavers BASIC-11 v2 disk image under simh

Glen Slick glen.slick at gmail.com
Wed Aug 11 15:12:05 CDT 2021


On Wed, Aug 11, 2021 at 8:57 AM Fritz Mueller via cctalk
<cctalk at classiccmp.org> wrote:
>
> Hi folks,
>
> Could anybody spare a clue or some suggestions on how to access the contents of:
>
> http://bitsavers.trailing-edge.com/bits/DEC/pdp11/floppyimages/rx02/BASIC-11_V2.1_RX02.DSK.zip
>
> under simh?  I haven't had any luck mounting the contained BASIC.DSK e.g. on simh RY under RT-11.  Looking through a dump of the image, there seems to be an "RT11A" signature.  Tried putr under dosbox as well, but it seems to hang mounting the image.
>
> Suggestions appreciated!
>
>   --FritzM.
>

That BASIC.DSK image file has a size of 486,400 bytes. I don't know
where that size would come from.

A physical RX-02 floppy should have a sector size of 256 bytes, with
26 sectors per track, and 77 tracks, which would be a total of 512,512
bytes, or 505,856 bytes if the first physical track is ignored.

Indeed, the other RX-02 floppy images available here do have a size of
505,856 bytes:
http://www.bitsavers.org/bits/DEC/pdp11/floppyimages/rx02/

Hmm, maybe that BASIC.DSK image file was created by something that
only copied the initial allocated logical sectors and ignored unused
logical sectors at the end of the floppy, and maybe PUTR doesn't
handle disk image files that are not the expected full size?

Example of padding the 486,400 byte BASIC.DSK image file to a size of
512,512 bytes on a Windows system:
FSUTIL FILE CREATENEW BLANK 26112
COPY /B BASIC.DSK+BLANK TEST.DSK

C:\PUTR>DIR TEST.DSK
 Volume in drive C has no label.
 Volume Serial Number is 14CE-1A29
 Directory of C:\PUTR
08/11/2021  12:55p             512,512 TEST.DSK

C:\PUTR>PUTR
PUTR V2.01  Copyright (C) 1995-2001 by John Wilson <wilson at dbit.com>.
All rights reserved.  See www.dbit.com for other DEC-related software.

COPY mode is ASCII, SET COPY BINARY to change
(C:\PUTR)>MOUNT RX: TEST.DSK /RX02 /RT11 /RONLY
(C:\PUTR)>DIR RX:

 Volume in drive RX is RT11A
 Directory of RX:\*.*

 11-Aug-2021
BSOT0D.EAE    12  04-Apr-1983
BSOT0S.EAE    10  04-Apr-1983
BSOT1D.EAE     9  04-Apr-1983
BSOT1S.EAE     6  04-Apr-1983
BSOT0D.EIS    12  04-Apr-1983
BSOT0S.EIS     9  04-Apr-1983
BSOT1D.EIS     9  04-Apr-1983
BSOT1S.EIS     6  04-Apr-1983
BSOT0S.FIS     7  04-Apr-1983
BSOT1S.FIS     6  04-Apr-1983
BSOT0D.FPU     7  04-Apr-1983
BSOT0S.FPU     7  04-Apr-1983
BSOT1D.FPU     4  04-Apr-1983
BSOT1S.FPU     3  04-Apr-1983
BSCLIN.OBJ     1  04-Apr-1983
BSCLLB.OBJ     5  04-Apr-1983
BSCLS .OBJ     6  04-Apr-1983
BSCLSN.OBJ     1  04-Apr-1983
BSCMP .OBJ     5  04-Apr-1983
BSERML.OBJ     8  04-Apr-1983
BSERMS.OBJ     5  04-Apr-1983
BSERR .OBJ     2  04-Apr-1983
BSE0  .OBJ    16  04-Apr-1983
BSE1  .OBJ     8  04-Apr-1983
BSFUNC.OBJ     9  04-Apr-1983
BSKEYS.OBJ     6  04-Apr-1983
BSOT0D.OBJ    12  04-Apr-1983
BSOT0S.OBJ     9  04-Apr-1983
BSOT1D.OBJ     9  04-Apr-1983
BSOT1S.OBJ     6  04-Apr-1983
BSPAT .OBJ     2  04-Apr-1983
BSPR0 .OBJ     3  04-Apr-1983
BSPR0N.OBJ     3  04-Apr-1983
BSPR1 .OBJ     7  04-Apr-1983
BSPR1N.OBJ     1  04-Apr-1983
BSPTRD.OBJ     6  04-Apr-1983
BSPTRS.OBJ     6  04-Apr-1983
BSRSQ .OBJ     2  04-Apr-1983
BSRSQN.OBJ     1  04-Apr-1983
BSR0D .OBJ     9  04-Apr-1983
BSR0S .OBJ     8  04-Apr-1983
BSR1D .OBJ     4  04-Apr-1983
BSR1S .OBJ     3  04-Apr-1983
BSSUB .OBJ     2  04-Apr-1983
BSSUBN.OBJ     1  04-Apr-1983
BSX0A .OBJ    11  04-Apr-1983
BSX0B .OBJ     8  04-Apr-1983
BSX1A .OBJ     8  04-Apr-1983
BSX1B .OBJ     7  04-Apr-1983
BSX2  .OBJ     7  04-Apr-1983
SUDTCM.OBJ     2  04-Apr-1983
SUEID .OBJ     1  04-Apr-1983
SUE1ID.OBJ     1  04-Apr-1983
SUIMP .OBJ     3  04-Apr-1983
SUIOID.OBJ     1  04-Apr-1983
SUIOPO.OBJ    11  04-Apr-1983
SUIOPR.OBJ     4  04-Apr-1983
SUOPT .OBJ     5  04-Apr-1983
SUO1ID.OBJ     1  04-Apr-1983
SUR1ID.OBJ     1  04-Apr-1983
SUXID .OBJ     1  04-Apr-1983
SUX2ID.OBJ     1  04-Apr-1983
SUCNFG.BAS     3  04-Apr-1983
SUCNF1.BAS     7  04-Apr-1983
SUCNF2.BAS     4  04-Apr-1983
SUCNF3.BAS     4  04-Apr-1983
SUCNF4.BAS     4  04-Apr-1983
SUCNF5.BAS     5  04-Apr-1983
SUCNF6.BAS     5  04-Apr-1983
SUCNF7.BAS     5  04-Apr-1983
SUCVT .BAS     6  04-Apr-1983
SUCVT1.BAS    14  04-Apr-1983
SUCNFG.DAT     7  04-Apr-1983
BSASM .MAC     5  04-Apr-1983
BSCLI .SAV     2  27-Mar-1987
BSMAC .MAC    10  04-Apr-1983
BASIC .SAV    53  04-Apr-1983
YSTART.OBJ     1  30-Mar-1987
ZSTART.OBJ     1  30-Mar-1987
BSASM .OLD     5  04-Apr-1983
BSCLI .OLD     5  04-Apr-1983
BSMAC .OLD    10  04-Apr-1983
BSCLIN.SAV     2  27-Mar-1987
BSASM .OBJ     1  27-Mar-1987
POSITI.LST     7  02-Apr-1987
XSTART.OBJ     1  30-Mar-1987
BSCLI .OK1     9  01-May-1987
JOYSTI.OK1     2  01-May-1987
CNC   .OK1     1  01-May-1987
< UNUSED >    12
ACMOTO.MAC     2  13-May-1987
WINDOW.MAC     4  13-May-1987
POSITI.MAC     2  13-May-1987
JOYSTI.MAC     2  13-May-1987
SPEEDS.OLD     2  13-May-1987
< UNUSED >     1
XSTASP.OBJ     1  13-May-1987
YSTASP.OBJ     1  13-May-1987
ZSTASP.OBJ     1  13-May-1987
XDIREC.OBJ     1  13-May-1987
YDIREC.OBJ     1  13-May-1987
ZDIREC.OBJ     1  13-May-1987
ACMOTO.OBJ     1  13-May-1987
WINDOW.OBJ     1  13-May-1987
POSITI.OBJ     1  13-May-1987
STATUS.MAC     1  13-May-1987
STATUS.OBJ     1  13-May-1987
JOYSTI.OBJ     1  13-May-1987
CNC   .SAV    58  30-Dec-1987
< UNUSED >    26
SPEEDS.OBJ     1  01-Aug-1987
< UNUSED >    55
VECTOR.MAC    18  30-Dec-1987
< UNUSED >     4
< UNUSED >     2
VECTOR.OBJ     2  30-Dec-1987
BSCLI .MAC     8  30-Dec-1987
CNC   .COM     1  30-Dec-1987
XLINIE.MAC    13  30-Dec-1987
YLINIE.MAC    13  30-Dec-1987
ZLINIE.MAC    13  30-Dec-1987
XLINIE.OBJ     2  30-Dec-1987
YLINIE.OBJ     2  30-Dec-1987
ZLINIE.OBJ     2  30-Dec-1987
BSCLI .OBJ     2  30-Dec-1987
< UNUSED >     1
T     .BAS     1
NULLPU.XYZ     1  31-Dec-1987
< UNUSED >   149
 121 Files, 686 Blocks
 250 Free blocks


(C:\PUTR)>TYPE RX:STATUS.MAC
STATUS.MAC
;+
;       Basic callable subroutine to receive the status of
;       the CNC-machine in one integer word.
;       Basic-Call:  Call STATUS(S%)
;-
;

        .globl  STATUS
        .globl  $ARGER
        ;
        CSR = 167774
        ;
STATUS: cmpb    #1,(r5)+        ; Number of arguments = 1
        beq     10$             ; O.K. continue..
5$:     jmp     $ARGER          ; ARGUMENT error
        ;
10$:    tstb    (r5)+           ; skip type checking
        mov     @#csr,r0        ; get status
        bic     #100000,r0      ;  and clear bit 15 ( inhib neg.Int.)
        mov     r0,@(r5)+       ; save contens.
abo:    rts     pc              ; return to caller
        ;
        .END


(C:\PUTR)>TYPE RX:T.BAS
T     .BAS
10 OPEN 'SY:NULLPU.XYZ' FOR INPUT AS FILE #1
20 INPUT #1,A1$,A2$,A3$
30 INPUT #1,B1$,B2$,B3$
40 CLOSE #1
50 PRINT A1$,A2$,A3$
60 PRINT B1$,B2$,B3$


More information about the cctalk mailing list