File RWTAPE.SB (8k SABR macro assembler source file)

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

/DECTAPE I-O ROUTINES                         OS8 FORTRAN II LIBRARY
/
/
/
/
/
/
/
/
/
/COPYRIGHT  (C)  1974 BY DIGITAL EQUIPMENT CORPORATION
/
/
/
/
/
/
/
/
/
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
/CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.
/
/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
/
/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
/DIGITAL.
/
/
/
/
/
/
/
/
/
/

/ / CALL 4, RTAPE(WTAPE) / ARG UNIT / ARG +-BLOCK (-MEANS START SEARCH FORWARD) / ARG WORD COUNT / ARG CORE ADDRESS / VERSION RWTAPE.01 / VERSION NUMBER IS AVAILABLE AT ENTRY POINTS / ENTRY RTAPE ENTRY WTAPE DUMMY WCT DUMMY CAD OPDEF TADI 1400 OPDEF DCAI 3400 LAP /ENABLE FIT INTO 1 PAGE / /DATA / DFUNC, 0 DBLK, 0 DWCT, 0 DFIELD, 0 WCT, 7754 CAD, 7755 DCORE, / /ARG PICKUP ROUTINE / GETARG, 0 TAD I RTAPE DCA AA INC RTAPE# TADI RTAPE# DCA WTAPE# INC RTAPE# AA, NOP /SET DATA FIELD TADI WTAPE# JMP I GETARG / /ERROR / DTERR, CALL 1,ERROR /CK FOR ERROR ARG TAPERR / /DATA / / /START / WTAPE, 1 BLOCK 1 TAD WTAPE /MOVE ARG ADDR TO RTAPE DCA RTAPE TAD WTAPE# DCA RTAPE# IAC /WRITE FUNCTION JMP TARGS TAPERR, 2401 /TA 2005 /PE RTAPE, 1 BLOCK 1 TARGS, DCA DFUNC /READ=0, WRITE=1 JMS GETARG /GET UNIT # CLL RTR /TO BITS 0-2 RTR TAD DFUNC /COMBINE WITH R-W BIT DCA DFUNC JMS GETARG /GET BLK # SMA JMP RT2 /REV. SRCH. CIA /FORWARD SRCH. DCA DBLK JMP RT3 RT2, DCA DBLK TAD (400 /REV. SRCH. BIT TAD DFUNC DCA DFUNC RT3, JMS GETARG /GET W.C. CIA DCA DWCT JMS GETARG /GET CORE ADDR CLA CMA TAD WTAPE# DCA DCORE TAD AA /GET CORE FIELD DCA DFIELD / /DEFINITIONS / OPDEF DTCA 6762 OPDEF DTXA 6764 OPDEF DTLB 6774 OPDEF DTRB 6772 SKPDF DTSF 6771 OPDEF DTRA 6761 / /START OF DECTAPE I-O / TAD DFUNC /UNIT & DIRECTION AND (7400 TAD (10 /+ SRCH MODE DTCA DTXA /SET STATUS & CLR FLGS DTLB /CLR FIELD BITS TAD WCT /USE 7754 AS ADDR TO 6201 /SET FIELD 0 DCAI CAD /STORE BLK FOUND DTSERR, RTL /REENTRY FOR SRCH ERROR RAL /ENDZONE FLAG TO LINK CLA CML /CHANGE DIRECTION TAD (200 /DTA GO FLAG DTCONT, SNL /CK DIR. DTREV, TAD (400 /CHANGE DIR. DTSRCH, DTXA /GO INTO SEARCH DTSF DTRB /READ CONDITION JMP DTSRCH# SPA JMP DTSERR /ERROR DTRA /GET CUR. DIR. RTL /TO LINK RTL SZL CLA TAD (3 /FOR REV GET BLK-3 6201 TADI WCT /# OF LAST BLK SEEN CMA /CIA MIGHT BLOW THE LINK TAD DBLK CMA SZA CLA JMP DTCONT /CONT. SRCH SZL /FOUND, CK DIR. JMP DTREV /IF REV, SNEAK BACK UP TAD DWCT /SET WORD COUNT DCAI WCT TAD DCORE DCAI CAD LABEL, TAD DFIELD /LOAD FIELD BITS DTLB IAC /GET R-W FUNCTION AND DFUNC CLL RTL RTL TAD (130 /SET UP FUNCTION FOR /THE XOR TO GIVE SRCH /MODE CLEARED & SET CONTINUOUS MODE /READ=3, WRITE=5 DTXA /BEGIN TRANSFER DTWAIT, DTSF /WAIT FOR W.C. OVERFLOW JMP DTWAIT DTRA AND (200 /STOP-GO BIT TAD (2 /SAVE DTA & ERROR FLAGS DTXA /STOP TAPE DTRB /READ ERROR FLAGS SPA CLA /CK FOR ERROR JMP DTERR /YES RETRN RTAPE 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