/NORTH AMERICAN VERSION OF /FAILSAFE. THIS PROGRAM /PUNCHES OUT ALL BLOCKS CURRENTLY /IN USE. THESE MAY BE READ IN /USING THE SAME PROGRAM. /ALL INFORMATION IS PUCNCHED AND READ /IN BLOCKS OF 201 WORDS EACH TO STAY /COMPATIBLE WITH THE DEC SYSTEMS MONITOR / / /SUBMITTED TO DECUS JULY, 1969. / /NOTE THAT THIS PROGRAM MAKES USE OF /EAE. IT IS EASILY MODIFIED FOR NON /EAE USE / / / / / *2 MA, 7751 /DISC MEM ADD LOCATION WC, 7750 /WORD COUNT POINTER CRLF, CRLF1 /OUTPUT A CR AND LF MSG, MSG1 /POINTER TO MESSAGE ROUTINE *20 DISCR, DISCR1 /READ A BLOCK INTO BUFF1-USE "BLOCK" DISCW, DISCW1 /WRITE A BLOCK FROM BUFF1 READB, READB1 /READ PAPER TAPE INTO BUFF1 PUNCHB, PUNCB1 /PUNCH THE CONTENTS OF BUFF1 TTIN, TTIN1 /INPUT FROM TTY INTO "CHAR" TTOUT, TTOUT1 /OUTPUT A CHAR TO TTY CHAR, 0 BLOCK, 0 /CURRENT SAM BLOCK FOR DISC ROUTINES BLKSIZ, 201 /ONLY FOR COMPATIBILITY! CNTR1, 0 PUNCH, PUNCH1 /PUNCH A CHARACTER ON H.S. PUNCH BUF1AD, 5777 /BEG ADDRS OF BUFF1-1 T1, 0 /TEMP STORAGE CHECK, CHECK1 /ADD (AC) TO CKSUM-RESTORE THE AC LINK, 6200 PCHECK, PCECK1 /PUNCH THE CHECKSUM AND TRAILER SAMB, 6377 /BEG ADDRS OF SAM BLOCK-1 DNENT, 0 /CURRENT DN ENTRY SERCHS, SEARCH /SEARCH SAM BLOCK-IF NONE ENTER 7777 TRK, 0 ADDRS, 0 READT, READT1 /READ ONE FRAM OF TAPE, LEAVE IN CHAR CKSUM, 0 HALT, HALT1 / / *200 BEG, JMS I MSG TEXT 40 MTP, JMS I TTOUT /TRANSMIT A CHAR JMP I TYPECH /RETURN MASK77, 77 M40, -40 C340, 340 M3, -3 C212, 212 M2, -2 C215, 215 C245, 245 ]$