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 OCN



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