/ 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 Jvz)?(>C"BCdAC'L 0~ tBQ lwx0yA&Alldmalm' 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