Digital PDFs
Documents
Guest
Register
Log In
DIGITAL-7-21-IO-Sym
2000
27 pages
Original
0.6MB
view
download
Document:
DECTREIVE
Order Number:
DIGITAL-7-21-IO-Sym
Revision:
Pages:
27
Original Filename:
http://bitsavers.org/pdf/dec/pdp7/DIGITAL-7-21-IO-Sym_DECTREIVE.pdf
OCR Text
PDP-7 PROGRAM LIBRARY 1• IDENTIFICA TlON 1• 1 Digital-7-21-IO-Sym, FB DECTRIEVE, PDP-7 1 .2 Leonard M. Hantman - DEC 1 .3 12-22-64 PDP 7 LIBRARY Digital-7-21-IO-Sym Page 2 2. ABSTRACT 2. 1 Purpose To allow the programmer to save areas of memory on DECtape, and allow quick retrieval of such information, using the toggle switches on the PDP-7. 3. REQUIREMENTS 3.3 Equipment Paper Tape Reader, Teleprinter, DECtapes 4. USAGE A) To Store Information 1) Set ACS as follows: o 1~\9 7 8 9 10 11yl2 13 14 Unit Starting Block 2) Start at 6001 (or 16001). 3) When H LT occurs set ACS as follows: * 01234\2 15 16 1U 67891011121314 V 15161y - Core Starting Address 4) Press CONTINUE. 5} When HLT occurs set ACS as follows:* 012 34~ 67891011 121314.15161p Core Ending A¥ress (Inclusive) Make sure area requested goes from the lower part of the information to the highest part even if there is an unused portion in between. If too much tape is being wasted, the data can be broken up into smaller groups by storing each small area separately. If the number of words to be stored does not constitute an integral number of blocks, the last block will be filled with +0. 6} Press CONTI NUE. *Be careful that bit 5 is not left set inadvertently from the unit selection in step 1 . PDP 7 LI BRARY Digital-7-21-10-Sym Page 3 7) When the transfer is completed, the following message is typed: WR X-Y ZZZZZZ where X is the starting tape block, Y is the last block written in. ZZZZZZ is the total check sum of the entire area transferred and WR indicates that a write operation has been completed. B) To Retrieve Information 1) Set ACS as follows: o 1~ ~ 7 8 9 10 1y12 13 14 Unit 2) 15 16 1~ Startmg Block Start at 6000 (or 16000) 3) When the transfer is completed, a message as shown in paragraph A.7 above, will be typed, except that an RD will appear instead of the WR, indicating that a Read Operation has been completed. 4) If the block requested is not the starting block of a stored area (as determined from the identification stored with the information), the following message will be typed: NG XXXX where XXXX is the block number requested. C) To use DECTRIEVE as a subroutine of another program, the following method can probably be used with a minimum of changes. 1) Assume the format for storing data is: WRITE ZZXXXX C1 C2 2) Assume the format for retrieving data is: READ ZZXXXX 3) /ZZ=unit, XXXX=starting block address / core starting address / core ending address /ZZ=unit, XXXX=starting block address Change the first 10 10 registers beginning at "READ \I to: READ=JMS • o lac .-1 dac write- ims imp rd1 PDP 7 LJ BRARY Digital-7-21-IO-Sym Page 4 WRITE=JMS o lac i .-1 doc wrtl doc tpsb 1 doc rd2 isz write-ims lac i write- ims doc wrt 1+ 1 isz write-ims lac i write- ims 4) Change the instruction at rdl+6 to lac i write-ims. 5) Change the two instructions beginning at wrt 10+3 to: isz write- ims imp i write- ims 6) Note the following limitations on using the changes as described: a) The DECTRIEVE area itself cannot be stored as the program return saved on the tape will be the one desired for writing but not necessarily for reading. b) In case of an error, the program will type an error message and the return to the program at the same place as if the transfer was completed correctly. This situation can be handled by inserting instructions before errwa+9 which set a program flag, inserting instructions at READ and WRITE which clear the flag, and checking for the setting of the flag upon returning from DECTRIEVE. To simply HALT if an error occurs, change the instruction at errwa+9 to a HLT. c) To eliminate the normal completion messages (but not the error messages), change the instruction at wrtlb+2 to a imp wrtla+l. 7) The reasons for using DECTRIEVE as a subroutine should be quite clear and specific to the user. If it is being used simply to transfer data, a lot of effort and memory room can be saved by simply using the normal DECtape Subroutines (Digital-7-22-IO). 6. DESCRIPTION To store data, the user indicates the DECtape block number and core starting and ending addresses of the area to be saved. The routine will store the data on the indicated blocks together with four words of control information used for retrieval. When completed, appropriate messages are typed which can be used to verify the data upon retrieval. All information written is checked by re-reading the data and accumulating the checksums. The information is not stored in memory when sum checking. PDP 7 LI BRARY Dig ita 1-7 - 21-10 -5 ym Page 5 To retrieve the information, the user need only indicate the starting block where the information was stored. The control information on the tape will supply enough data to store the information in the correct memory registers. Upon completion, a message will be typed whose pertinent data should be an exact dupl icate of the data typed when the information was stored. The program occupies approximately 1260 words of storage and versions are S available beginning at either 6000 or 16000 in memory and for either the first or second DECtape controls. Either version can be used with a 4K or SK machine. If any errors occur, they will be typed as in DEC TOG (q. v.). With the exception of Register 0, any portion of memory including the DECTRIEVE area may be saved. Register 0 and 10 are destroyed by the program. Reg ister 1 is saved and restored after the program is run and is written wit!' the control information. Therefore, when the information is retrieved, Register 1 will appear as it did when the information was stored. In calculating the number of blocks a given area will occupy, be sure to include the space automatically occupied by the four contJI words. 9. PROGRAM 9.4 Listing DECTRIEVE LOWER MEMORY IREAD AND WRITE PROGRAMS WITH DECTAPE MSUMS=v1 60vlfZ\1 READ, WRITE, Jr-lP U..L R,·n.., LAS GAC wRTl DAC T#PSRL nAC RD2 HLT IUNIT AND BLOCK NUMBER IUNIT ICORE START LAS [lAC WRT1+1 HLT ICORE END L .1\ S DAC hRT1+2 LAC (LAC Rrl~+l) II fI, C M M~i R S + ~) LAC nAC LAC nAC [JAC LAC (FLEX RD ) RO#WRL (OAC I ~MAUTO) MMRD3 M#MO.AC 1 CAC tvl~#SVl JMS ROSET JMS CLRFLG PDP 7 LI BRARY Dig ita 1-7- 21-10-Sym Page 6 JMS MMy4RS LAC .+2 JMP FRR WRT1, (ii 9) 0 LAC 1St MM~!A1 JMP ,-2 IBLOCK NUMBER IERHOR RETURN IUNIT ICORE START ICORE END ~1MDONE LAC (FLEX WR OAC RDWRl lAC (Cll) OAC ~1MDAC Jt~P R01A WRT1R, WRT1A, CLA MMLC TIN LAC RDWRL TY3 LAC TPS8L ANfJ (7777) J!vtS TWt6 LAW CHAR RTY1 lAM TAn MMWAl JMS TWt6 TSP LAC ivjSLJMS JMS Twi6 LAC i'1MSV1 OAC 1. I-iLT JMP .-1 WRT2~ LAC (FLEX KIE) IIOENTIFICATION /VlMWR JMS WRSUM LAC (lAC I MMAUTO) DAC MMWR3 JMS ~JAIT lAC MMAUTO ICORE START-l MM~jR JMS WRSLJM JMS WAIT PDP 7 LIBRARY Digital-7-21-IO-Sym Page 7 LAC MMWOC IWORO COUNTER MMWR JMS WRSUM JMS WAIT LAC MMSV1 f'-lMWR "JMS wRSU~~ JMP Mf'1WR2 WRSUM, Vi A.Do MMSUM DAC MMSUM JMP I WRSUM WAIT, (11 ril ME F SKP JMP MMWR2+2 IERROR ~'1MOF JMP .-4 JMP I WAIT R01, R01A, LAC (OAC I i'~MAU ro) OA.C MMOAr: LAC (FLEX Rf) ) nAC ROWRL L.AC 1 DAC MMSVl LAS DAC R02 nAC TPSBL IUNIT AND BLOCK NUMBER LAC; (LAC RD2+2) MMROS+i.) JMS RI]SET JMS CLRFLG nAC JMS MMRDS LAC .+2 Jr.,p ERR RD2, Vi JMP WRT2 JMP R.D3 IBLOCK NUMBER IERROR IUNIT ICORE START, NOT ACTUALLY USED ICORE END, NOT ACTUALLY USED LAC MMWA1 JMP .-1 PDP 7 LIBRARY Digital-7-21-IO-Sym Page 8 RD3, R04, SAD JMP TIN LAC TY3 LAC JMP (FLEX RD4 K IE) (FLEX NG ) MMWAl WRT1A JMS ~RSUM LAC MMDAC OAC t-1MRD3 JMS wAITR MMRD DAC MMAUTO JMS WRSUM JMS WAITR MMRO OAC MMWOC JMS WRSUM JMS \~AITR t-iMRD DAC JMS u:tt'1 JMP MMSVl WRSUM MSUf"1S r"lMRIJ? R05, OAC WAITR ADD MSUr"1S DAC t-1SUMS LA,C WAITR ADD MMSUM Ji1P MMR04+4 WAITR, (1 MMEF SKP JMP MMR01+2 MMOF JMP .-4 JMP I WAITR ERROR, o DAC ERRWA SAD (LAW) O:tM MMWAl SAO (LAw 10~~) JMP .+4 PDP 7 LIBRARY Digital-7-21-IO-Sym Page 9 SAn SKP JMP LAC nAG TIN LAG RTR AND (LAW 200) .+3 MMBLKM MMWA1 ERRWA RTR RTR ( 77 ) ADD (L A.C ERRTAB) ERRWA, OAC ,+1 LAC FRRTAB TY3 TSP LAC MMWAl JMS TWi:6 TSP LAC MMRSA TwORO Ji~P ~RRTAB, IMOOIFIED J ERROR CMP FLEX FLEX FLEX FLFX FLEX EHS ERW INT 8UF FLEX FLEX FLFX FLEX FLEX ~RR, JMS ERROR JMP ~~ RT 1 A+ 1 TWt6, o TwOR[Jt JMP CLRr-LG, T Fi'-1T fRR HMW FLC FLEX NTF FLEX SUM FLEX 8MC FLEX NFL f\j ~~ R TwilA v' lor nCF CRRB cpeF LPCF 7t~0102 PCF LSCF KRB TGF MSI CLOF rLA 707604 70:1.604 LAC (JMP I i\!TERR) DAC 1 JMP I CLRFLG ICLEAR 80TH DECTAPE CONTROLS PDP 7 LIBRARY Dig ita 1-7 - 21-1 O-Sym Page 10 INTERR, [lAC A#CSAVE MMEF SKP JMP MMERR MMOF SKP JMP MMOATA IORS HLT JMP .-1 DISMIS=JMP . LAC \i) R.A L LAC ACSAVE ION JMP I (/) MMAUTO=10 RDSET, 0 LAC nAC LAC OAC LAC DAC JMP RD4+1 MMR04+11 (JMP RD5) MMRf14+~~ (JMP WRT18) MMR04+14 I ROSET IPOP-] OECTAP£ SUBROUTINES. CONTROL 1. DECTAP£ SEARCH SUBROUTINE IPDP~7 LMH 12-22-64 IDISMIS MUST BE DEFINEn' AS JMP TO OISMISS INTERRUPT ROUTINE MMWR=7(iJ7504 MMLC=7076~4 MMSE=707644 MMRS=7r17612 MMDF=707501 MMBF=79J7601 MMEF=707541 MMRD=707512 SKP7=703341 IFORMAT I I I I / JMS LAW JMP JMP MMSCH B X Y lOR MMSCHl OR MMSCHR lOR LAC (8), BLOCK NUMBER IERROR RETURN /SEARCH COMPLETED RETURN t~~000 /UNIT SELECTION MULTI-PROGRAM RETURN PDP 7 LIBRARY Digital-7-21-IO-Sym Page 11 ILEAVE IN SEARCH REVERSE MMSCHR, VI LAC MOu~ .-1 nAC MMSCH1 LAC (JMP MMSCH6+2) nAC MMSCH3+1 CLIl J"'1P MMSCH1+4 ILEAVE IN FORWARD DIRECTION WITH TAPE STOPPED MMSCH, VI LAC .-1 OAC !ViMSCH1 LAC MMSCH6) ,H-1 P jV1 MS CHi + 2 IL~'AVE "'1SCH1, (JtvlP IN SEARCH FORWARD MUDE Vi LAC [lAC (JMP MMSCHA+2) t"1MSCH3+1 CLC [) A C 1-1 # MS 8 K TAD (1) D A C tv1 #MSFK LAW 61 1St I"lMSCH1 ICURRENT DIRECTION IPICK UP BLOCK NUMBER IPOINTS TO ERROR RETURN ANn (7777) [lAC 1"1#MgLKt'-1 IBLOCK TO SEARCH FOR PAC M#tv1i~A3 XCT I MMSCH1 S l\j ,A JIViP ~iMSCH4 ADO MMFK SMA JMP t-tMSCH4 LAM -7 IFOR!'1Il.T ERROR [lAC !'-1#I-1SUM LA_C I ICHG OF DIRECTION COUNTER IERROR RETURN I"1MSCHl U6..C ~1MlR~~X I Sf tvl MSCH1 I AC I fvi;.1Sr:>-ll ICOMPLETION kETURN i)-A C r ! MS C H 7 V 1St MMSCHl t'-:I''1WAIT LAC": J MMSCH.L JMS ICHECK IF DELAY IS NECESSARY IUNIT SELECTION PDP 7 LI BRARY Digital-7-21-IO-Sym Page 12 ~:MSE ISl MMSCHl LAC (NOP) D.AC ~1MSAVE /POINTS TO MULTI-PROGRAM RETURN ION MMTURN, 1St fviMSUt..., JMP FMERRX+2 LAW ?00 MMERRX, JMP JMP INOT FOUND r~MEK+l IERRCR EXIT /ERROR HLT EXIT WAS NOT JMP INSTR LAw 41 SAO 1": Mv.! A 3 Jl"1P hMPEV lJAC t"iMWA3 f"!MLC LAC (SMA) 1'1 AC IV MS CH 2 LAC r"fMBL~M TAil MMSFK MMSAVE, /BLOCK TO LOOK FOR IN THIS DIRECTION U~,C t'1#M~..j.A? U t t>IJ f"i # t-1 I) 0 i~ E i\! 0 P lOR [1 ISM I S LAC (DISMIS) [JAC MMSAVE JMP I MMSCH1 MMREV, ICONTINUE MULTI-PROGRAMMING LAW f1 DAC iVi\'1~jA3 HMLC L.AC DAC (SPA.) Mi--1SCH2 LAC t-AMPLKM TAD MMSRK J MP Mj'1 S A VE - 2 MM[RR, tv:MRS AND (40000) SAO (400Y1Ql) ... ' M P LA~i MMDATA, tv! t-1 T U R f\J 300 J lvj P f"~ MEr< R X - 1 t'lMRD ,ii, i\J (7 7 7 7 ) nAC r:;#MwAl /N(J~J-EOT ERROR OlJR I ~G SEARCH n SAD rviMWA? .JMP r'H1SCH3 C!"1A AnD MMWA2 PDP 7 LIBRARY Digital-7-21-IO-Sym Page 13 MMSCH2, MMSCH3, MMSCH4, MMSCH5, MMSCH6, MMSCH7, MMEK, SMA JMP MMSAVE-1 JMP MMTURN SAD MM8LKM JMP t--;MSCH6 JMP MMTURN LAW 100 MMLC JMP I MMSCHl LAW 100 JMP fvtMERRX-l r:LA t-':MLC CLC DAC MMDONE JMP . DECIMAL -576 OCTAL iJAC lOR SPA FOR REVERSE IKEEI-> GOING ITURN AROUND lOR r--1MSCH6+2 IFORMAT ERROR I F (J k MAT ERR 0 R IEXIT ~H1SCH MMRS [lAC M#t"lRSA LAC i"iMSCH t"1MLC ~JMP MMERRX 135 MILLISFCONO SELECT DELAY LOOP MMWAIT, e MMWAIT XCT AND (17(0000) S.AO MMCHK-1 JMP I Mr"1~!AIT DAC MMCHK-1 CLA IPICK UP SELECT ICHECK SELECT ONLY ISAME SELECT ISAVE SELECT ISELECT UNIT tERO OCTAL lIS THIS A POP-7? SKP7 LAM [) E C I t"1 AL -1~94+1 OCTAL ICOUNT 35 MS [vIMSE LAM DEClt~AL -5(7,00 [lAC MMSCH 1St: I .-1 JMP .-1 JMP I Mf~WA I T ISAVE SELECTION PDP 7 LI BRARY Digital-7-21-IO-Sym Page 14 /PDp·7 DECTAP~ READ AND WRITE FORWARD SUBROUTINES IUSES AUTO-INDEX REGISTER NAMED MMAUTO WHICH MUST BE DEFINED ICOMMON RoUTINE FOR PICKING UP CONSTA~TS AND SEARCHING FOR BLOCK Iii MMCHK, ADO (-1 ) [lAC MMAUTO LAC I Mr-1AUTO IBLOCK NUM8ER MMCHK1+1 DAC IERROR RETURN LAC I MMAUTO MMERRX nAC tJAC MMCHK1+2 LAC T MMAUTO IUNIT SELECTION DAC MMCHK1+4 CLC TAD I t-'il'1AUTO ISTARTING ADDRESS AND (17777) nAC fvl#MWA4 CLC TAD I MMAUTO lENDING ADDRESS AND (17777) CMA AnD MMWA4 SMA JMP MMSCH5 IILLEGAL FORMAT DAC M#tv1WnC IWORD COUNT MMCHK1, JMS I'1MSCf-Il LAW IBLOCK NUMBER, MODIFIED JMP IERROR RETURN, MODIFIED JMP MMCHK2 lEND RETURN Vi IUNIT SELECTION, MODIFfED J MP I i"i MAUT 0 IMULTIPROCESS wITH MAIN PROGRAM MMCHK2, LAC MMWA4 nAC MMAUTO LAC (DISMIS) nAC MMSCH7 JMP I MMCHK . . IDECTAPE READ SUBROUTINE IFORMAT I I I I JMS MMROS L.AW 8 JMP X tl0000 C1 I C2 I tvlULTI-PROGRAM Rt:TURN lOR LAC (B); BLOCK NUMBER IERROR RETURN IUNIT SELECTION ICORE STARTING ADDRESS ICORE ENDING ADDRESS, INCLUSIVE PDP 7 LI BRARY Dig ita 1-7- 21-10- Sym Page 15 MMRDS, "MMRD1, MMRD2, MMRD3, MMRD4, o LAC MMRDS JMS MMCHK LAW 42 MMLC LAC (DAC l' MMAUTO) nAC MMRf)3 MMEF JMP .+3 LAw 400 JMP MMERRX-l MMDF JMP MMROl MMRO OAC MMSUM MMEF SKP JMP MMR01+2 MMDF JMP MMR04 MMRD DAC I MMAUTO ADD MMSUM OAC MMSUM 1St MMWOC JMP MMR02 LAC (NaP) OAC MMRD3 JMP MMR02 IREAD FORWARD IERROR FLAG DURING READING IERROR FLAG DURING READING lOR NOP t-n~RF JMP MMRD2 MMRO ADD f'ilMSUM SAD (-0) JMP .+3 LAW 500 ISUM CHECK READING JMP MMERRX-l 1st "MMWAl IUPOATE CURRENT BLOCK ADDRESS LAC (OAC I ~MAUTO) SAO MMRO:3 JMP MMRDl JMP MMSCH6 IGOOO EXIT· PDP 7 LI BRARY Digital-7-21-IO-Sym Page 16 IDECTAPE WRITE SUBROUTINE IFORMAT JMS I I I I I I L A. W 8 MMwRS, MMWR1, MMWR2, MMv~RS lOR LAC (8), BLOCK NUMBER IERROR RETURN IUNIT SELECTION ICORE STARTING ADDRESS ICORE ENDING ADDRESS, INCLUSIVE JMP X tl0000 C1 C2 MULTI-PROGRAM RETURN (71 LAC MMwRS JMS MMCHK LAC (LAC I MMAUTO) OAC MMWR3 CLC [JAC MMSUM LAW 43 MMLC MMEF JMP .+3 LAW 600 JMP MMERRX-l MMWR3, MMWR4, MMOF JMP MMWK4 LAC I MMAUTO MMWR ADO MMSUM O~C t'IMSUtv1 1St MMWDC JMP MMWR? LAC (CLA) DAC MMWR3 JMP MMWR2 MMBF JMP MMWR2 LAC MMSU!"1 CMA IWRITE FORWARD IERROR FLAG DURING WRITING lOR CLA ~q.1 WR ISEARCH FORWARD LAW 41 Mr~LC Mr--1EF SKP J MP MMWR2 + 2 I ERR 0 R DURI NG W-R I TIN G MMDF JMP .-4 tv;MRO IS~ MMWA1 /UPDATE CURRENT BLOCK ADDRESS PDP 7 LI BRARV Digital-7-21-IO-Sym Page 17 ,aND (7777i SAO JMP LAW JMP MMWAl • +3 700 MMERRX-l IBLOCK MARK ERROR DURING WRITING LAC (LAC I MMAUTO) SAO MMWR3 JMP MMWRl JMP MMSCH6 IGOOO EXIT ITElETYPE ROUTINES wITH OCTAL PRINT, ITURNS INTERRUPT OFF LMH 8-8-63 10CTAl PRI~T, WITH lERO SUPPRESSION IFORMAT LAC wD I TWOROt I N IN=NUMBER OF DIGITS TO PRINT FROM lEFT END OF WORD OCTAL TWORot=J~iS . DAC DCPN#UM LAC (SiA) OAC TWOROl+17-JMS LAC I TwORDt-JMS CMA [1AC OCPC#NT 1St DCPCNT 1St TWORDr-JMS LAC DCPNUM RTL RAL !JAC DCPi\lUM RAL AND (7) StA IMODIFIED JMP TWORDt+25-JMS 1St nCPCNT JMP T~ORDt+l1-JMS TnIGIT JMP I T~~ORDl-JMS rl ACDC P Dtt I G LAC (JMP TWOROt+31-JMS) rl1-\C TWOHDr+17-JMS LAC DCPDIG TDIGIT ISt DCPCNT JMP TWOROt+ll-JMS J~P I TWORDt-JMS PDP 7 LIBRARY Digital-7-21-IO-Sym Page 18 IOCTAl PRINT, NO lERO SUPPRESSION IFORMAT SAME AS TWORDl TWORD=JMS • o DAC LAC DAC LAC JMP nCPNUM TWORD-JMS TWOROi:-JMS (JMP TWQRDi+31-JMS) TWOROt+3-JMS ITABLE FOR UCTAl TO OECIMAL CONVERSION DECIMAL DCPTAB, 100000 10000 10~0 OCTAL ITELETYPF OUTPUT PACKAGE 9/29/64 100 10 1 LMH (OF) TTAB=10 EXT=JMP I-JMS ITYPE 1 CHARACTER FROM AC 8ITS 12-17 TY1=JMS . PA.R JMS TY1A EXT TY1 ITYPE 1 CHARACTER (5 RIT), LINK INDICATES CASE TYlA, Vi nAC T#EMY AND (37 SNA JMP TY2 703301 SKP ,JMP TY1888 LAC DeL SPL L.AC CJCU SAO oes JMP 3 JMS uTY DAC DCS . L.AC TEMY PDP 7 LI BRARY Dig ita 1-7- 21-1 O-Sym Page 19 JMS OTY 1S2 T#BC LAC TEMY JMP I TY1A TY2, ITYPE 3 CHARACTERS FROM AC 0-5, 6-11,12-17 RESPECTIVELY TY3=JMS • o JMS JMS JMS JMS JMS JMS EXT RL6 TY1A RL6 TY1A RL6 TY1A TY3 ITYPE A CARRIAGE RETURN, AND LINE FEED TCR=JMS • TCRSSS~ TCRRRR, o 703301 SKP JMP TCRRRR LAW 2 JMS OTY LAW 10 JMS OTY DlM TBC EXT TCR LAW 215 JMS OTY LAW 212 ITELETYPE OUTPUT PACKAGE - PAGE 2 ITYPE A SP/I.CE TSP=JMS . Vl LA W 4 703301 SKP LAW 240 JMS DTY ISr T8C EXT TSP PDP 7 LIBRARY Dig ita 1-7- 21-1 O-Sym Page 20 ITYPE A TABULATION TYT=JMS • TAB=TYT VI LAC ADD SMA JMP AOD SMA LAC ADD [JAC TSP ISr JMP rXT ITYPEWRITER TBC (-TT AA-l .-2 {1 (-TTAB-l (-1 T#EM TEM .-2 TYT INITIALI~E TIN=JMS . o lAC eCl GAC OCS 7033~1 JMS OTY TGR EXT TIN ITYPE THE DIGIT IN THE AC TDIGIT=JMS • o ! A.I\IO (17 AOD (LAC NCT DAC • 1 XX TYl EXT TOIGIT ITELETYPE OUTPUT PACKAGE - PAGE 3 ITYPE A STRING OF CHARACTERS TSR=JMS • o OAC T#EMYl PDP 7 LI BRARY Dig ita 1-7-21-1 O-Sym Page 21 LAC (JMP TSR1 OAC TY1A 4 LAC I TEMY1 TY3 IS~ TEMY1 JMP .-3 TSR1, LAC (JMP TY2 DAC TY1A 4 LAC TEMYl EXT TSR IOUTPUT ONE FIVE BIT CHARACTER OTY, 0 IOF OAC TWORO-JMS ISAVE CLA 703341 LAW ICOUNTER OAC RL6 LAC TWORO-JMS TSF SKP .+3 I S~ RL6 JMP .-4 J~P TLS JMP OTY IRQTATE LEFT 6 RL6, ~j RTL RTL RTL JMP I RL6 ITABLE OF DIGITS NCT, 33 25 31 ICASE STORAGE OCU, OCL, ocs, 73 3 7 63 53 41 71 33 37 eo PDP 7 LI BRARY Dig ital-7... 21-1 O-Sym Page 22 IPDP-4/7 ADDENDUM TY1BBB, ADD {LAC 8TATAB-1 DAC .+1 XX S~L TY10DD, TY1CCC, BTATAS, JMP TY1CCC JMS OTY JMP TY2-1 JMS RL6 RTL RTL JMP TY10nD 265324 215215 271317 240240 243310 254316 256315 212212 251314 264322 246307 270311 260320 272303 273326 263305 242332 244304 277"302 211323 266331 241306 257330 255301 262327 247312 377377 267325 261321 250313 377377 START PDP 7 LIBRARY Dig ita 1-7- 21-10-Sym Page 23 R"L OECTRIEVE# UPPER MEMORY IREAD AND WRITE PROGRAMS WITH DECTAPE I'-lSUMS=0 1600911 READ, WRITE, JMP HD1 IUNIT AND BLOCK NUMBER /UNIT LAS OAC ~jRTl DAr; T#PSRL rAC RD2 ~LT ICORE START LAS nAC wRT1+1 HLT ICORE END LAS [JAC wRT1+2 LAC (LAC RL2+1) [JAC MMwRS+3 LAC (FLEX fHJ ) DAC R01iWRL LAC (UAC I MMAUTO) PAr: MMRD3 D A C rv. #~jO AC LAC fIAC JMS JMS 1 f'tiM#SVl RDSI:T CLRFlG JMS rH1wRS l.AC .+2 JMP fRR v WRT1, 18l.0CK NUMBER IERROR RETURN IUNIT ICORE START ICORE END !Ii (/1 vi LAC t-1MWAl JS~ MMDOf~E JMP LAC [JAC l. AC [lAC JMP .-2 (FLrX RDWRL i"J K (elL.) MMDAr: H 0 1 A. PDP 7 II BRARY Digital-7-21-IO-Sym Page 24 wRT1R, CLA (vlMLC TIN LAC RD~IRL TY3 LAC TPSBL AND (7777) JMS TW~6 LAW CHAR RT Y1 WRT1A, LAM TAD JMS TSP LAC JMS LAC MMwAl TWr6 t1SUMS TWf6 MMSV1 DAC 1 HL T JMP . -1 WRT2, LAC (FLEX KIE) IIOFNTIFICATION MMWR ..JMS WRSUM LAC (LAC I MMAUTO) D AC M1"1 ~j H ~~ JMS ~.IAIT LAC MMAUTO ICURE START-l '''iMwR JMS v~RSUM JMS WAIT LAC MMWnC IWORD COUNTER MMWR JMS V-iRSUM JMS WAIT LAC MM!SV1 . fv'lMWR JMS wRSUM JMP Mr-1wR2 WRSUM, Vi ADO MMSUr1 DAC MMSUM JMP I ~JRSUM WAIT, rA MMEF SKP JMP MMwR2+2 MMOF JMP .-4 JMP I WAIl IEHkUR PDP 7 LIBRARY Dig ita 1-7- 21-1 O-Sym Page 25 R01, RD1A, LAC (DAC I ;~MAUTO ) DAC MMDAC LAC (FLEX RO ) [JAC RD~JRL LAC 1 DAC MMSV1 LAS [J AC R02 DAC TPS8L l.AC nAC Jr..,S JMS (LAC Rn?+2) HMRr)S+5 kDS(T CLRFLG JMS t-'lMRQS LAC .+2 JMP [RR RD2, ,~ JMP IUNIT AND BLOCK NUMBER ~;RT 2 ...JMP RD3 IBLOCK NUMBER IERROR IUNIT ICORE START, NOT ACTUALLY USED ICORE END, NOT ACTUALLY USED LAC MMWA:1 JMP .-1 R03, SAD (FLEX KIF. ) ..JMP R04 TIN LAC (FLEX NG ) TY3 LAC to'!!'1 ~J A1 JMP \-~RT1.A R04, JMS WRSUM LAC MMnAr. [lAC I"IMRIl3 JMS ltJ AI TR MMRD DAC l"iMAUTO .JMS ~' RSUM JMS y.,1 AI TR MMRD [)AC I"i MWrj C JMS WRSUM JMS WAITr~ MMRO DAC MMSVl JMS WRSUM (l~ M MSUMS JMP MMHI)r" PDP 7 LI BRARY Dig ital-7 -21-1 O-Sym Page 26 R05, [JAC WAITk ADD hSUI'1S DAC tv;SUMS LAC v~AITf~ .ADD MMSUM J MP I~' MR 0 4 + 4 WAITR, SKP JMP MMRf)1+? MMDF JMP .-4 JMP I WAITR ERROR, (I, [JAC ERRt,JA SAO ( LAW) Di:M tvlM WA1 SAD ( L A \~ lV;) JMP • +4 SAD SKP ( LAl~ 21/11'1 ) JMP Lf\C ~;MHLK M [)AC tvlMWA1 TIN LAC ERRWA, • + ~~ kTR ~TR Al\jD ( 77 ) ADD ,( LAC ERRWA, RTR ERRTA8) DAC • +1 LAC ~RRTA8 TY3 IMUDIFIEO TSP LAC tv;MWA1 JMS TWi'6 TSP LAC f"lMRSA TWURQ 3 JMP I ERROR ERRTA8, FLEX FLEX FLEX FLEX FLEX CMP ERS ERW I ~IT BUF FLF:X FMT FL[X ERR F" LF X RMW FLF..X FLC FLFX NWR FLEX NTF FLEX SUM FLEX 8MC FLEX NFL PDP 7 LIBRARY Dig ita 1-7- 21-10- Sym Page 27 ERR, JMS E~ROR JMP WRTtA.+l Vi 1WOR[lt 6 JMP CLRFLG, T~J16 Vi IOF CPCF DCF L.PCF 7001V'2 peF TeF MSI eLA 7v)7604 ii\jTERR) LAC (JMP rJ AC 1 JMP I CLRFLG INTERR, CRRB LSCF KRB CLClF 701.604 ICLEAR BOTH DECTAPE CONTROLS UAC A#CSAVF MMEF SKP JMP MMFRP ~1!1DF SKP JMP MMOATA lORS HlT JMP .-1 OISMIS=JMP . L AC ~~ RAL LAC ACSAVE ION JMP I 0 Mj~ AUT 0 =1 VI ROSET, e· LAC R04+1 UAC t1 MR 0 4 + II LAC DAC LAC DAC .JMP (JMP RDS) MMR04+3 (JMP WRT18) t-iMRD4+14 I Rf)SET PDP 7 LI BRARY
Home
Privacy and Data
Site structure and layout ©2025 Majenko Technologies
