File MSTSUB.

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

/		MOST SUBROUTINES
/		****************






RCHAR=JMS I 20	/"INSTRUCTION" DEFINITIONS
TCHAR=JMS I 21
RTCHAR=JMS I 22
TDC=JMS I 23
LINE=JMS I 24
CHECK=JMS I 25
CHBLOK=JMS I 26
TYDER=JMS I 27


CHOCT=JMS I 32
ROCT=JMS I 33
TOCT=JMS I 34

CHKCHN=JMS I 36




        *20



	SRRCH	/PAGE 0 POINTERS
        SRTCH
        SRRTCH
        SRTDC
        SRLINE
        SRCH
        SRCHBK
	SRTYD
*.+2
        SRCHOC
        SRROCT
        SRTOCT
*.+1
	SRCKCN




*200



/****************** READ A CHARACTER ********************



/CALL:	RCHAR


/FETCHES CHAR. FROM KEYBOARD
/RETURNS WITH ASCII CODE IN ACC.



SRRCH,	0
	KSF
	JMP .-1
	KRB
	JMP I SRRCH




/****************** TYPE A CHARACTER *******************




/CALL:	TCHAR



/TYPES CONTENTS OF ACC.
/RETURNS WITH ACC. UNCHANGED



SRTCH,  0
        TSF
        JMP .-1
        TLS
        JMP I SRTCH




/**************** READ AND TYPE A CHAR. *****************



/CALL:	RTCHAR



/FETCHES CHAR. FROM KEYBOARD
/ECHOS CHAR.
/RETURNS WITH ASCII IN ACC.



TEMPB,
SRRTCH, 0               /READ AND TYPE A CHARACTER
        RCHAR
        TCHAR
        JMP I SRRTCH



/***************** TYPE A DIAGNOSTIC SYMBOL ************



/CALL:	TDC
/	XXX	/ASCII CODE



/TYPES CHAR. WHOSE ASCII CODE XXX
/FOLLOWS THE CALL
/IF XXX=4000 + AN ASCII CODE IT
/REPEATS UNTIL ARGUMENT < 4000 IS FOUND
/RETURNS WITH ACC.=0



TEMPA,
SRTDC,  0
	CLA
TDCLP,	TAD I SRTDC
        ISZ SRTDC
        TCHAR
	SPA CLA
	JMP TDCLP
        JMP I SRTDC




/********************* TYPE OCTAL  **********************



/CALL:	TOCT


/ENTER WITH NUMBER IN ACCUMULATOR
/RETURNS WITH ACC.=0  LINK UNCHANGED



SRTOCT, 0
	RAL
	DCA TEMPB
	TAD M4
        DCA TEMP
NEXTO,	TAD TEMPB
	RAL
	RTL
	DCA TEMPB
	TAD TEMPB
	AND MASK
        TAD P260
        TCHAR
	CLA
        ISZ TEMP
        JMP NEXTO
        JMP I SRTOCT


TEMP,
SRLINE, 0       /TYPE "CR LF"
        TDC
        215
        TDC
        212
        JMP I SRLINE


SRCH,   0       /CHECK AND SKIP IF WRONG
        DCA TEMP        /SAVE AC
        TAD I SRCH
        ISZ SRCH
        CIA
        TAD TEMP
        SZA CLA
        ISZ SRCH
        TAD TEMP        /RESTORE AC
        JMP I SRCH

SRCHBK, 0               /SKIP IF NOT IN BLOCK
        DCA TEMP        /SAVE AC
        TAD I SRCHBK
        ISZ SRCHBK
        CIA
        TAD TEMP
        SPA
        JMP NO
        CMA
        TAD I SRCHBK
        SPA
NO,     ISZ SRCHBK
        ISZ SRCHBK
	CLA
        TAD TEMP        /RESTORE AC
        JMP I SRCHBK



TEMPC,
SRCHOC, 0               /SKIP IF OCTAL DIGIT
        CHBLOK
P260,	260
        10
        ISZ SRCHOC
        JMP I SRCHOC

SRROCT, 0               /READ AND TYPE OCTAL NUMBER
        CHOCT           /1ST. CHAR. IN AC. ON ENTRY
	TYDER		/ENTERED WITH NON-OCTAL CHAR
        AND MASK
        DCA TEMP
        TAD M4
        DCA TEMPA
        DCA I OCN8{ ?o2!EfpC&D&A4qArB(|,s
<t?&F /S,J<9*AF.u`BB7AJ.
nuCCDrCdE>Jvz)?(>C"BCdAC'L 0~ 
tBQ	lwx0yA&A<G<aVGlta&nC	(OchG,U`>lldmalm'	cKfr0}7O/o(em9CNT
	JMP NAMELP
	LINE
	LINE


	TAD M10
	DCA LINCNT
PRNTLP,	TAD ADDR
	CMA
	6516
	CMA
	6515
	TOCT
	TDC
	240
	CLA
	6514
	TOCT
	TDC
	4240
	4240
	240
	RDSF
	SKP
	JMS INTRPT


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