File FLOPXX.AS (Source fil)

Directory of image this file is from
This file as a plain text file

10 START	; DIBOL DISK EXERCISER 4-1-75
20 	BLOCK        ; WORK AREA
30 	NPA,A4
40 	OPT,A1
50 	DVAR,D2,13
60 	DKNBR,A1
70 	DKN,D1
80 	NPASS,D4
90 	CNTP,D5
100 	CNTM,D5
110 	INC1,D5
120 	INC2,D5
130 	MXSZ,D5,00100
140 	MXRC,D5
150 	SKP,D3
155 	CR,A1
160 	                      ;
170 	                      ;
180 	ERCHN,D1
190 	RECORD MESSAG
200 	     ,A6,'PASS  '
210 	NPX,D4
220 	     ,A6,'  OF  '
230 	NPXX,D4
240 	                      ;
250 	RECORD ERMSG
260 	   ,A15,'RECORD # READ  '
270 	RCNR,D5
280 	   ,A23,'     RECORD # EXPECTED '
290 	RCNX,D5
300 	                      ;
310 	RECORD OSCR
320 	IDXO,D5,00001
330 	ALP,505A1
340 	                      ;
350 	RECORD ISCR
360 	IDXI,D5
370 	,505A1
380 	                      ;
390 PROC 1
400 	INIT(5,TTY)
410 	XMIT(5," ')
420 	XMIT(5," ')
430 	XMIT(5,"****** DIBOL DISK EXERCISER ******')
440 	XMIT(5," ')
450 STRT2, XMIT(5,"ENTER DISK # ')
460 	ACCEPT(DVAR,DKNBR)
465 	ACCEPT(DVAR,CR)
470 	XMIT(5," ')
480 	DKN=DKNBR
490 	IF(DKN.GT.7)GO TO STRT2
500 	INCR DKN
510 	MXRC=MXSZ
520 	IF(DKN.EQ.1)GO TO STRT3
530 	MXRC=600
540 STRT3, XMIT(5,"ENTER # OF PASSES ')
550 	ACCEPT(DVAR,NPA)
560 	XMIT(5," ')
570 	NPASS=NPA
580 	IF(NPASS.LE.0)GO TO STRT3
590 	INC1=MXRC/2
600 	NPXX=NPASS
610 	XMIT(5,"# RECORDS TO SKIP ?')
620 	ACCEPT(DVAR,NPA)
630 	XMIT(5," ')
640 	SKP=NPA
650 	INCR SKP
660 	ERCHN=5
670 	XMIT(5,"OUTPUT ERRORS TO PRINTER,Y OR N?')
680 	ACCEPT(DVAR,OPT)
690 	XMIT(5," ')
700 	IF(OPT.NE.'Y')GO TO STRT4
710 	ERCHN=6
720 	INIT(ERCHN,LPT)
730 	                      ;
740 	; SET UP BUFFER - 2525 PATTERN
750 	                      ;
760 STRT4,	NPX=1
770 	INIT(1,O,'IOBUF',DKN)
780 	OPT='4'
790 	CNTM=
800 LPX,	INCR CNTM
810 	ALP(CNTM)=OPT
820 	IF(CNTM.LT.505)GO TO LPX
830 	                      ;
840 	; WRITE ALL OF DISK
850 	                      ;
860 	CNTM=1
870 	IDXO=1
880 CREX,	XMIT(1,OSCR)
890 	INCR CNTM
900 	INCR IDXO
910 	IF(CNTM.LE.MXRC)GO TO CREX
920 	FINI(1)
930 	                      ;
940 	; READ ALL OF DISK
950 	                      ;
960 	INIT(1,U,'IOBUF',DKN)
970 	CNTM= 1 - SKP
980 CRXX,	CNTM=CNTM + SKP
990 	IF(CNTM.GT.MXRC)GO TO BG1
1000 	READ(1,ISCR,CNTM)
1010 	IF(IDXI.EQ.CNTM)GO TO CRXX
1020 	XMIT (ERCHN," ')
1030 	XMIT(ERCHN,"DISK ACCESS ERROR')
1040 	RCNR=IDXI
1050 	RCNX=CNTM
1060 	XMIT(ERCHN,ERMSG)
1070 	GO TO CRXX
1080 	                      ;
1090 	; RE-WRITE BUFFER - 5252 PATTERN
1100 	                      ;
1110 BG1,	CNTM=
1120 	OPT='I'
1130 BGG,	INCR CNTM
1140 	ALP(CNTM)=OPT
1150 	IF(CNTM.LT.505)GO TO BGG
1160 	                           ;
1170 	      ; BEGIN TEST SEQUENCE
1180 	                           ;
1190 TSTX0,	CNTM=1
1200 	CNTP=MXRC
1210 TSTX,	IDXO=CNTM
1220 	READ(1,ISCR,CNTP)
1230 	WRITE(1,OSCR,CNTM)
1240 	IF(IDXI.EQ.CNTP)GO TO ERP1
1250 	XMIT(ERCHN," ')
1260 	XMIT(ERCHN,"DISK ACCESS ERROR')
1270 	RCNR=IDXI
1280 	RCNX=CNTM
1290 	XMIT(ERCHN,ERMSG)
1300 ERP1,	IDXO=CNTP
1310 	READ(1,ISCR,CNTM)
1320 	WRITE(1,OSCR,CNTP)
1330 	IF(IDXI.EQ.CNTM)GO TO TSTX1
1340 	XMIT(ERCHN," ')
1350 	XMIT(ERCHN,"DISK ACCESS ERROR')
1360 	RCNR=IDXI
1370 	RCNX=CNTP
1380 	XMIT(ERCHN,ERMSG)
1390 TSTX1,	CNTM= CNTM + SKP
1400 	CNTP= CNTP - SKP
1410 	IF(CNTM.LE.INC1)GO TO TSTX
1420 	XMIT(5,MESSAG)
1430 	XMIT(5," ')
1440 	INCR NPX
1450 	IF(NPX.LE.NPASS)GO TO TSTX0
1460 	;
1470 	XMIT(5,"**** EXERCISER COMPLETED ****')
1480 	FINI(1)
1490 	FINI(5)
1500 	STOP
1510 	END



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search