File OPSER.PA (PAL assembler source file)

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

/*** TSS/8 OPSER *** VERSION: EXPERIMENTAL ***\
/
/BY JOHN YOUNG	N-MUSD PDP-8 OPERATIONS STAFF
/30-MAR-76
/
/OPSER - 'O'PERATOR 'S'E'RVICE PROGRAM
/(OF COURSE, THE IDEA HAS BEEN "BORROWED" FROM DECSYSTEM-10)
/
/I REALLY DON'T WANT TO COMPLETLY EXPLAIN IT, BUT
/YOU COULD FIND OUT WHAT ITS PURPOSE AND FUNCTION ARE FROM A DECSYSTEM-10
/HANDBOOK.
/

*0000 DUP CLA TAD RESTRT SRA JMP I RETURN RETURN, ACCEPT RET2, ACCEPT+1 *0010 AUX0, 0 AUX1, 0 *0020 TIMER= JMS I . TIME PROMPT, "! TTY, 15 CHAR, 0 BREAK, 204 N215, -215 NUPARO, -"^ P77, 77 NUMPNT, NUMHO BUFF, END BUFF2, END+1000 P215, 215 N212, -212 N3, -3 P200, 200 CHRCNT, 0 RESFLG, 0 RETFLG, 0 P40, 40 N377, -377 P177, 177 OUTIND, OUTPUT RESTRT, .+1 STA DCA RESFLG JMP I RETURN CRLF, 0 CLA TAD P215 TLS TAD N3 JMS TYPE JMP I CRLF /GET A CHAR FROM A PTY GETCHR= JMS . GET0, 0 CLA TAD TTY TTGET SMA ISZ GET0 AND P177 TAD P200 DCA CHAR JMP I GET0 TYPE, 0 TLS CLA JMP I TYPE
*0200 ACCEPT, JMS CRLF TAD PROMPT TLS NOPROM, CLA STL RAR KSB TAD BUFF DCA AUX0 ISZ RESFLG JMP BRET IAC RAL STM BRET, KSF SKP JMP .+5 SYN GETCHR JMP BRET JMP I OUTIND DCA RESFLG TAD BREAK KSB KCC STLOOP, KRB DCA CHAR TAD CHAR TAD N215 SNA JMP CRLOOP IAC SNA CLA JMP NOCR TAD CHAR TAD N212 SNA CLA JMP ECHO TAD CHAR TAD N377 SNA CLA JMP RUB TAD CHAR DCA I AUX0 JMP STLOOP CRLOOP, TAD CHAR DCA I AUX0 NOCR, DCA I AUX0 TAD BUFF DCA AUX0 TAD I AUX0 TAD N215 SNA CLA JMP ACCEPT TAD BUFF DCA AUX0 SENLOP, TAD I AUX0 SNA JMP ACCEPT DCA CHAR TAD CHAR TAD NUPARO SNA CLA JMS UPAROW TAD CHAR AND P177 CLL RTL RTL RAL TAD TTY TTPUT SNA CLA JMP SENLOP IAC STM JMP SENLOP+3 UPAROW, 0 TAD I AUX0 AND P77 DCA CHAR JMP I UPAROW RUB, TAD AUX0 CIA TAD BUFF SNA CLA JMP STLOOP CMA TAD AUX0 DCA AUX0 TAD I AUX0 JMS TYPE CMA TAD AUX0 DCA AUX0 JMP STLOOP ECHO, DCA I AUX0 TAD BUFF DCA AUX0 JMS CRLF TAD PROMPT JMS TYPE TAD I AUX0 SNA JMP ECHO1 JMS TYPE JMP .-4 ECHO1, CMA TAD AUX0 DCA AUX0 JMP STLOOP
*0400 OUTPUT, CLA TAD NUMPNT TOD CMA DCA RETFLG TAD BUFF2 DCA AUX1 TAD BUFF DCA AUX0 DCA CHRCNT JMP OUTP02 OUTP03, GETCHR JMP MORECK+1 OUTP02, TAD CHAR CIA TAD I AUX0 SNA CLA JMP OUTP03 TAD BUFF DCA AUX0 DCA I AUX0 JMP OUTP04+2 OUTP05, ISZ CHRCNT CRCHK, TAD CHAR DCA I AUX1 OUTP04, GETCHR JMP OUTLST TAD CHAR TAD N215 SNA CLA JMP CRCHK TAD CHAR TAD N212 SNA CLA JMP LFCHK JMP OUTP05 LFCHK, TAD CHRCNT SNA CLA JMP LFCHK1 TAD CHAR DCA I AUX1 DCA I AUX1 ISZ RETFLG SKP JMS HEAD DCA RETFLG JMS SPACE DCA CHRCNT TAD BUFF2 DCA AUX1 TAD I AUX1 SNA JMP LFCHK1 JMS TYPE JMP .-4 LFCHK1, GETCHR JMP MORECK+1 TAD CHAR TAD N212 SNA CLA JMP .-5 TAD BUFF2 DCA AUX1 JMP OUTP04+2 OUTLST, DCA I AUX1 TAD CHRCNT SNA CLA JMP MORECK+1 ISZ RETFLG SKP JMS HEAD JMS SPACE TAD BUFF2 DCA AUX1 TAD I AUX1 SNA JMP MORECK JMS TYPE JMP .-4 MORECK, JMS CRLF TAD BUFF2 DCA AUX1 SYN GETCHR SKP JMP OUTP04+2 ISZ RETFLG JMP I RET2 JMP I .+1 NOPROM SPACE, 0 TAD P40 TLS TLS JMS TYPE JMP I SPACE HEAD, 0 TIMER JMS CRLF JMP I HEAD
*0600 /ROUTINE TO OUTPUT THE TIME IN TICKS /STORED IN NUMHO AND NUMHO+1 TO HH:MM:SS / / TIME, 0 TAD PTABX DCA PTIMX TAD PTABX1 DCA PTIMX1 TAD PTFORM DCA PTCONT PTLOOP, TAD PT0260 DCA PTNUM CLL TAD NUMHO+1 PTIMX, HLT DCA NUMHO+2 RAL TAD NUMHO PTIMX1, HLT SNL JMP PTIMA DCA NUMHO TAD NUMHO+2 DCA NUMHO+1 ISZ PTNUM JMP PTLOOP+2 PTIMA, ISZ PTIMX ISZ PTIMX1 CLA TAD PTNUM TLS CLA TAD PTCONT SNA JMP I TIME CLL RAL DCA PTCONT SZL JMP PTLOOP TAD PTCOLN TLS CLA JMP PTLOOP PTFORM, 5200 PTCOLN, ": PT0260, "0 PTCONT, 0 PTNUM, 0 NUMHO, 0 0 0 PTABX1, TAD .+1 7650 7767 7776 7777 7777 7777 PTABX, TAD .+1 0700 1540 4220 6650 7634 7765 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