Trailing-Edge
-
PDP-10 Archives
-
bb-k345a-sb
-
lined.mac
There are 6 other files named lined.mac in the archive. Click here to see a list.
TITLE LINED VERSION 13B
SUBTTL LINE EDITOR FOR DISK FILES LARRY WADE/WJM/PMH/CAM
;COPYRIGHT (C) 1974,1978,1979 BY
;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
;INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
;OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
;TRANSFERRED.
;
;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
;AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
;CORPORATION.
;
;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
EDIT==22
VERSION==XWD 1302,EDIT
;COPYRIGHT 1970,1971,1974, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
;DEFAULT DEFINITIONS FOR ASSEMBLY SWITCHES
;THESE YIELD A REENTRANT LINED WITH CCL & TMPCOR UUO CAPABILITY
IFNDEF PURE,<PURE==1>
IFNDEF CCLSW,<CCLSW==1>
IFNDEF TEMP,<TEMP==1>
;FOR ANY OTHER VERSION ASSEMBLE AS FOLLOWS:
;.R MACRO
;*LINED_TTY:,DSK:LINED.MAC
;PURE=0 ((IF NON-REENTRANT LINED WANTED))
;CCLSW=0 ((IF CCL NOT WANTED))
;TEMP=0 ((IF TMPCOR UUO NOT AVAILABLE))
;^Z
;^Z
LOC 137
VERSION
RELOC 0
IFN PURE,<
TWOSEG
RELOC 400000
>
;
; GENERAL-
; LINED IS A DERVIATIVE OF
; DREDIT (DRUM EDITOR) WHICH WAS WRITTEN BY WILLIAM MEIR OF APPLIED
; LOGIC CORPORATION AND EXISTS AS PART OF THE DECUS LIBRARY.
; LINED'S COMMAND STRUCTURE IS SIMILIAR TO DEC'S "EDITOR"
; BUT WORKS WITH FILES WHICH RESIDE ON THE DISK INSTEAD OF
; ON DEC TAPE.
;
;
;
; PURPOSE-
;
; THIS MEMO WILL DESCRIBE THE CAPABILITIES AND RESTRICTIONS OF
; LINED AND OUTLINE THE CHANGES NECESSARY TO MAKE LINED A PART
; OF DEC'S SOFTWARE.
;
; A MAJOR FEATURE OF LINED IS THE ABILITY TO
; REFERENCE ANY LINE AT ANY TIME, WITHOUT FIRST HAVING TO
; CLOSE AND THEN REOPEN THE FILE.
;
; COMMAND STRUCTURE-
;
; IN THE FOLLOWING DESCRIPTION, A POINT (.) OR DOT REFERS TO THE
; LAST LINE WHICH WAS TYPED, THE LAST LINE DELETED, OR THE LAST
; LINE INSERTED.
;
; 1. TO OPEN AN EXISTING FILE FOR EDITING.
;
; S<FILENAME.EXT><CR>
;
; 2. TO CREATE A NEW FILE.
;
; S<FILENAME.EXT><ALTMODE>
;
; 3.TO INSERT TEXT
;
; I
; I N1
; I N1,N2 INSERT THE TEXT WHICH FOLLOWS AT LINE
; N1 AND ASSIGN SEQUENCE NUMBERS IN
; INCREMENTS OF N2 FOR EACH LINE AFTER THE
; FIRST. IF LINE N1 EXISTS IT WILL BE
; REPLACED. IF N1 IS NULL A VALUE OF 10 IS
; ASSUMED. N1 MAY BE SPECIFIED AS A POINT (.).
; IF N2 IS NULL EITHER A VALUE OF 10
; IS ASSUMED OR THE VALUE LAST SPECIFIED IN
; AN INSERT COMMAND IS USED.
; AN ALTMODE IS TYPED TO RETURN TO LINED
; COMMAND LEVEL.
;
; 4. TO PRINT TEXT.
;
; P N1
; P N1,N2 PRINT LINE N1 OR LINES N1 THROUGH N2
; N1 MAY BE SPECIFIED AS A POINT (.).
; N2 MAY ALSO BE SPECIFIED AS A POINT AS
; LONG AS N1<N2.
; AN ALTMODE WILL CAUSE THE NEXT LINE
; TO BE TYPED.
;
; 5. TO DELETE TEXT
;
; D N1
; D N1,N2 DELETE LINE N1 OR LINES N1 THROUGH N2
; N1 MAY BE SPECIFIED AS A POINT (.)
; UNLESS AN INSERT WAS JUST PERFORMED.
; N2 MAY ALSO BE SPECIFIED AS A POINT AS
; LONG AS N1<N2.
;
; 6. TO CLOSE A FILE
;
; E<CR>
;
; RESTRICTIONS-
;
; 1. WHEN IN INSERTION MODE, THE ALTMODE RETURNS TO LINED
; COMMAND LEVEL. IF THE ALTMODE IS ALSO USED TO TERMINATE
; A LINE OF TEXT TO BE INSERTED, THE LINE OF TEXT IS
; IGNORED.
;
; 2. LINED ASSUMES ALL BLOCKS ON THE DISK FILE HAVE AN
; INTEGRAL NUMBER OF LINES. TO GUARANTEE THIS THE USER
; SHOULD USE THE "A" SWITCH (LINE BLOCKING) WITH PIP TO PUT A FILE ON
; THE DISK.
;
; 3. LINED AND TECO ARE INCOMPATIBLE AND THE SAME FILE
; SHOULD NOT BE EDITED BY BOTH UNLESS SEQUENCE
; NUMBERS ARE EITHER ADDED OR DELETED.
;
; 4. LINE NUMBER 0 IS ILLEGAL.
;
;
; ERROR HANDLING-
;
; WHEN AN ERROR IS DETECTED, A MEANINGFUL MESSAGE IS TYPED.
; IF IT IS AN I/O ERROR, WE EXIT. OTHERWISE WE
; RETURN TO COMMAND LEVEL.
;
; NOTE: THE OLD *ILR* AND *ILS* MESSAGES HAVE BEEN REMOVED.
; INSTEAD OF THEM LINED WORKS AS FOLLOWS:
; IF INSERTION AT A GIVEN LINE NUMBER WILL CAUSE
; REPLACEMENT OF AN EXISTING LINE, THE LINE# IS
; FOLLOWED BY A SINGLE TIC (').
; IF THE INSERTION LINE# INCREMENT IS SUCH THAT
; INSERTION AT A GIVEN LINE WILL CAUSE AN EXISTING
; LINE TO BE SKIPPED, THE LINE NUMBER IS
; FOLLOWED BY A DOUBLE TIC ("). SEE EXAMPLE 4.
; (THIS CHANGE EFFECTIVE AS OF V.010)
;
; CONCISE COMMAND LANGUAGE INTERFACE-
;
; THE CCL COMMANDS "CREATE" AND "EDIT" WILL BE USED TO ACCESS
; LINED. THE "CREATE" COMMAND WILL EFFECTIVELY GENERATE THE SEQUENCE
;
; R LINED
; S<FILENAME><ALTMODE>
;
; THE "EDIT" COMMAND WILL EFFECTIVELY GENERATE THE SEQUENCE
;
; R LINED
; S<FILENAME><CR>
;
; THE CCL CUSP WILL GENERATE A TEMPORARY DISK FILE WITH THE NAME
;
; ###EDT.TMP
;
; IN ORDER TO PASS THE ABOVE COMMANDS.
;
;
;
; EXAMPLE-1
;
; .R PIP<CR>
; *DSK:(ASX)_DTA0:FILE.ONE<CR>
; *^C
; .R LINED <CR>
; *SFILE.ONE<CR>
; *P10,30<CR>
; 00010 THIS IS THE FIRST LINE
; 00020 THIS IS THE SECOND LINE
; 00030 THIS IS THE THIRD LINE
; *I20<CR>
; 00020' THIS IS THE NEW LINE
; *D30<CR>
; *P10,30<CR>
; 00010 THIS IS THE FIRST LINE
; 00020 THIS IS THE NEW LINE
; *E<CR>
; *^C
; .
;
; EXAMPLE-2
;
; .CREATE PROGRAM
; *I<CR>
; 00010 THE PROGRAM IS
; 00020 INSERTED HERE
; 00030
; .
; .
; .
; .
; 000XX <ALTMODE>
; *E<CR>
; *^C
; .
;
;
; EXAMPLE-3
; VALID FORMS OF THE INSERT COMMAND
;
; I
; I10
; I10,2
; I.
; I,1
; I.,1
;
;
; EXAMPLE-4 NEW INDICATION OF REPLACEMENT & SKIPPING
;
; *SFOO<ALT>
; *I10
; 00010 A
; 00020 B
; 00030 C
; 00040 D
; 00050 <ALT>
; *I20,5
; 00020' BB
; 00025 XX
; 00030' CC
; 00035 <ALT>
; *I30,20
; 00030' CCC
; 00050" EEE
; 00070 <ALT>
; *
;
; IMPLEMENTATION-
;
; EACH LINE OF TEXT IS STORED IN THE WORKING BUFFER WITH A LINE
; HEADER WHICH HAS TWO ITEMS. IN THE LEFT HALF IS THE SEQUENCE
; NUMBER IN BINARY AND IN THE RIGHT HALF IS THE NUMBER OF WORDS
; (INCLUDING THE LINE HEADER) WHICH ARE NEEDED TO STORE THE
; LINE OF TEXT. THUS TO FIND THE NEXT LINE OF TEXT IT IS JUST
; NECESSARY TO TAKE THE ADDRESS OF THE CURRENT LINE HEADER AND
; ADD THE WORD COUNT.
;
; SEVERAL POINTER WORDS ARE USED TO KEEP TRACK OF THE LINES IN
; THE WORKING BUFFER. WRTLST CONTAINS THE SEQUENCE NUMBER OF THE
; LAST LINE WHICH WAS JUST PASSED THROUGH THE WORKING BUFFER.
; SEQLST CONTAINS THE HIGHEST SEQUENCE NUMBER OF THE HIGHEST
; LINE IN THE BUFFER. SN CONTAINS THE SEQUENCE NUMBER OF THE LINE
; CURRENTLY BEING HANDLED IN A COMMAND.
;
; WHEN THE PROGRAM DISCOVERS THAT SN IS GREATER THAN WRTLST IT
; KNOWS THAT THE LINE BEING SOUGHT HAS ALREADY PASSED THROUGH
; THE WORKING BUFFER AND IS NOT DIRECTLY ACCESSIBLE SINCE THERE
; IS NO WAY TO READ A FILE BACKWARDS. CONSEQUENTLY, IT IS NEC-
; ESSARY TO CLOSE THE FILE AND THEN REOPEN IT. THIS PROCESS OF
; GOING AROUND FROM WHERE WE ARE, TO THE END OF THE FILE, TO
; THE BEGINNING OF THE FILE AND FINALLY TO THE LINE BEING SOUGHT
; IS DONE.
;
; TO CLOSE THE FILE IT IS NECESSARY TO PASS ALL REMAINING TEXT
; THROUGH THE WORKING BUFFER AND TO THE TEMPORARY OUTPUT FILE
; (CALLED ###LIN.TMP). THIS IS DONE BY GIVING THE SUBROUTINE
; FNDLIN (FIND A LINE WHOSE SEQUENCE NUMBER IS IN SN) THE
; HIGHEST POSSIBLE SEQUENCE NUMBER, 99999. NEXT THE ORIGINAL
; FILE IS RENAMED TO ###TMP.TMP, THE TEMPORARY OUTPUT FILE
; IS RENAMED TO THE ORIGINAL FILE NAME, AND THE ###TMP.TMP FILE
; IS DELETED. THEN WE GIVE FNDLIN THE SEQUENCE NUMBER CURRENTLY
; BEING LOOKED FOR AND THE PROGRAM CONTINUES WITH THE ORIGINAL
; COMMAND.
; AC DEFINITIONS
FF=0 ; FLAGS
CH=1 ; ASCII CHARACTER
SN=2 ; SEQUENCE NUMBER
P=3 ; PDL POINTER
TAC=4 ; TEMPORARY AC'S
TAC1=5 ;
LP=6 ; ADDR OF CURRENT LINE
N1=7 ; ARGS FOR COMMANDS
N2=10 ;
NUM=11 ; FOR NUMBER CONVERSION
AC1=12 ; SCRATCH
AC2=13 ; "
AC3=14 ; "
AC4=15 ; "
OC=16 ;
PS=17 ;PREVIOUS SEQUENCE NUMBER
; MORE DEFINITIONS
ALTMOD==33 ;DEFINITION OF AN ALTMODE
ETTY==0
EICHL==1 ;EDIT DEVICE CHANNELS
EOCHL==2
EMDE==10 ;EDIT DEVICE MODE
CCLC==3 ;CCL DSK CHANNEL
PJOB==30 ;CALLI ARGUMENTS
TMPCOR==44
RESET==0
EXIT==12
;RH FLAGS (SET AND CLEARED DURING CMD EXECUTION)
NARG==1 ;1=TWO ARGS SEEN
ER==2 ;TRYING AGAIN ON ERROR
TFLG==10 ;AN EXISTING LINE HAS BEEN REPLACED ONCE ALREADY
DARG==20 ;USED IN DCOM
FILFLG==40 ;
IFLG==100 ;INSERTION CMD IN PROGRESS
ILRFLG==200 ;INSERT LINE FOUND
ILSFLG==400 ;INSERT SKIPS EXISTING LINE
EOL==1000 ;END-OF-LINE SEEN
;LH FLAGS (CLEARED ONLY BY E COMMAND)
FILACT==1 ;DENOTES ACTIVE FILE
NFILE==2 ;0=NEW FILE ONLY
ROUND==4 ;=1 IF IN THE PROCESS OF GOING AROUND TO THE
;BEGINNING OF THE FILE
NDFIL==10 ;END OF INPUT FILE OR NO INPUT FILE IF =0
CCLF==100 ;=1 IF ENTERED VIA CCL
; INITIALIZATION
START:
IFN CCLSW,<
TLZA FF,CCLF
TLO FF,CCLF
>
CSETUP:
IFN PURE,<
MOVSI TAC,ENDP ;IF REENTRANT, SET FIRST
HLLM TAC,.JBSA## ;FREE LOC. IN LOW SEG.
>
CALLI RESET ;INITIALIZE
MOVE TAC,.JBFF## ;ASSIGN CORE FOR DATA
ADDI TAC,2000
CALLI TAC,11
JRST NOCORE
SETZM DATA ;CLR DATA SEGMENT
MOVE TAC,[XWD DATA,DATA+1]
BLT TAC,ENDP-1
MOVE TAC,[JRST ERROR2] ;INIT DATA SEG. CONSTANTS
MOVEM TAC,ERROR1
MOVE TAC,[MOVEI TAC,DOFIL1]
MOVEM TAC,FILL1
MOVE TAC,[HRRZI TAC,DOFIL2]
MOVEM TAC,FILL2
MOVE TAC,[MOVE AC1,(AC2)]
MOVEM TAC,MOV1
MOVE TAC,[MOVEM AC1,(AC2)]
MOVEM TAC,MOV2
MOVE TAC,[MOVEM AC3,(AC2)]
MOVEM TAC,M2
MOVE TAC,[MOVE AC4,(AC2)]
MOVEM TAC,M1
MOVE TAC,[HRLI AC1,(LP)]
MOVEM TAC,DCM1
MOVE TAC,[SKIPE AC1,(TAC)]
MOVEM TAC,LNCNT1
MOVE TAC,[BLT AC1,(TAC)]
MOVEM TAC,OUTLN1
IFN CCLSW,<
MOVE TAC,[JRST CCLHR2]
MOVEM TAC,CCLHR3
IFN TEMP,<
MOVSI TAC,SIXBIT/ EDT/
MOVEM TAC,TMPFIL
MOVSI TAC,777600 ;XWD -200,0
MOVEM TAC,TMPFIL+1
>>
MOVEI TAC,SIXBIT/ TMP/
HRRZM TAC,ZDIRC
HRLZM TAC,ZDIRC+1
HRLZM TAC,ODIRC+1
IFN CCLSW,<
HRLZM TAC,CCLDIR+1
MOVEI TAC,SIXBIT/ EDT/
HRRZM TAC,CCLDIR
>
MOVEI TAC,SIXBIT/ LIN/
HRRZM TAC,ODIRC
MOVEI TAC,SIXBIT/ BAK/
HRLZM TAC,ZILCH+1
MOVEI TAC,3 ;GET PPN AND STORE IN DIRECTORYS
CALLI AC1,PJOB
CCLHR1: IDIVI AC1,12
ADDI AC2,"0"-40
LSHC AC2,-6
SOJG TAC,CCLHR1
IFN CCLSW,<
HLLM AC3,CCLDIR
>
HLLM AC3,ODIRC
HLLM AC3,ZDIRC
HRRI COMCLR
HRRM .JBREN## ;SET UP ALTERNATE ENTRY POINT
TRZ FF,ER
CSET9: INIT ETTY,0
SIXBIT /TTY/
XWD TYOBF,TYIBF
JRST NOTTY
TIBUF: INBUF ETTY,1
TOBUF: OUTBUF ETTY,1
MOVE TAC,.JBFF
MOVEM TAC,SVJBFF
SETZM SN
IFN CCLSW,<
AND FF,[XWD CCLF,0]
TLNE FF,CCLF
JSR CCLHRE
>
COMCLR: MOVE P,[XWD -PDSIZ1,PDL-1] ;CLEAR PDL LIST
COMRET: PUSH P,. ; FOR RETURN (NEVER "JRST" HERE)
TRZ FF,777777 ;CLEAR FLAGS
IFN CCLSW,<
TLNN FF,CCLF
>
PUSHJ P,ASKOUT
;NOW FALL INTO DISPATCH ROUTINE
; DISPATCH ROUTINE
COMRT1: PUSHJ P,GETCH1
CAIN CH,15
JRST GETCHR
CAIE CH,"S"
CAIN CH,"E"
JRST ARWCOM
TLNN FF,FILACT ;ACTIVE FILE ?
JSR NFO,ERROR ;NO
CAIN CH,ALTMOD ;CHECK FOR ALTMODE
JRST SPLPRT ;ALMODE SEEN
MOVE AC4,CH
PUSHJ P,GETARG
CAIN AC4,"I"
JRST ICOM
CAIN AC4,"D"
JRST DCOM
CAIN AC4,"P"
JRST PCOM
JSR ILC,ERROR
SPLPRT: AOJG SN,PDCOM ;PRINT THE NEXT LINE
JRST COMCLR ;ZERO SN
;TELETYPE INITIALIZATION ERROR
NOTTY: TRON FF,ER ;TRIED TWICE?
JRST CSET9 ;NO, TRY AGAIN
TTCALL 3,EMTTY ;YES, DIAGNOSTIC
CALLI EXIT ;NO TTY IS FATAL
EMTTY: ASCIZ /
?CANNOT INIT TTY/
; ROUTINE TO PICK UP ARGS FROM COMMAND
; RETURNED IN N1,N2 (N2=0 FOR 1 ARG)
; SPACES IGNORED
GETARG: SETZB N2,NUM
MOVEI TAC,5 ; COUNT
GTARG2: PUSHJ P,GETCHR ; GET INPUT CHAR.
CAIG CH,"9" ; NUMBER?
CAIGE CH,"0"
JRST GTARG3 ; NO
PUSHJ P,NCHCON ; YES - CONVERT
SOJGE TAC,GTARG2 ; AGAIN
JSR ILC,ERROR ; NO
GTARG3: CAIN CH,40 ; SPACE?
JRST GTARG2 ; YES
CAIE CH,"."
JRST .+3
MOVE NUM,SN
PUSHJ P,GETCHR
TRNE FF,NARG ; 2ND TIME?
SKIPA N2,NUM ; YES
MOVE N1,NUM ; NO
CAIN CH,15 ; CR
JRST GETCHR ; YES - DISCARD LF+RETURN
CAIN CH,ALTMOD ;CHECK FOR ALTMODE
POPJ P,
CAIN CH,"," ; TWO ARGS?
TROE FF,NARG ; YES - ALLOWABLE?
JSR ILC,ERROR ; NO OR BAD CHAR
JRST GETARG ; YES
CON033: MOVEI CH,33 ;MAKE IT STANDARD
POPJ P, ;RETURN
; INSERT COMMAND
; (N1=SN WANTED)
; (N2=STEP SIZE)
ICOM: SKIPE N2 ;NEW STEP SIZE?
MOVEM N2,STPSIZ ;YES
SKIPN SN,N1 ;GET SEQ# IF SPECIFIED
PUSHJ P,SET10 ;ASSUME SN OF 10 IF NONE SPECIFIED
PUSHJ P,LPSET ;SET LINE PTR & PREV. SEQ#
ICOM1: MOVEI TAC1,AC4 ; GET ASCII SEQ.#
PUSHJ P,RDXA ; CONVERT TO ASCII
PUSHJ P,FNDLIN ; FIND LOCATION OF LINE
JRST ICOM2 ; NOT FOUND
TRO FF,ILRFLG ;SET REPLACEMENT FLAG
TRO FF,TFLG ;SET "EXISTING" FLAG
ICOM2: TRON FF,IFLG
JRST .+3
CAME PS,AC3
TRO FF,ILSFLG ;INSERT HAS SKIPPED A LINE
AOS TYOBF1
MOVEM AC4,@TYOBF1 ; SEQ # TO TYO BUFFER
MOVEI CH,42 ;TYPE " IF SKIPPING A LINE
TRZE FF,ILSFLG
PUSHJ P,PUTCHR
MOVEI CH,"'" ;TYPE ' IF REPLACING A LINE
TRZE FF,ILRFLG
PUSHJ P,PUTCHR
MOVEI CH,11 ; TAB
PUSHJ P,P1CHR ; OUTPUT BUFFER
PUSHJ P,TYGTLN ; READ IN LINE
JRST IFIX ;SPECIAL HANDLING FOR .
CAILE SN,^D99999 ;GOING OVER LINE 99999?
JSR WRP,ERROR ;YES
CAMLE SN,SEQLST ;UPDATE SEQLST ?
MOVEM SN,SEQLST ;YES
TRZE FF,TFLG ;GOOD RETURN
PUSHJ P,DCOM2 ; DELETE EXISTING LINE
AOS TAC,AC3 ; NEW WD COUNT (+1 FOR HEADER)
CAMLE TAC,FREWDS ; ROOM?
PUSHJ P,ICOM3 ; NO
HRRM LP,MOV1
HRRZ AC1,LP
ADD AC1,AC3
HRRM AC1,MOV2
HRRZ AC2,PNTR
SUBI AC2,(LP)
DOMOV1: XCT MOV1 ;MOVE AC1,(AC2)
DOMOV2: XCT MOV2 ;MOVEM AC1,(AC2)
SOJGE AC2,DOMOV1
ADDM AC3,PNTR
MOVN TAC,AC3 ; UPDATE POINTERS
ADDM TAC,FREWDS ; NEW FREE WD NUMBER
HRL AC3,SN ;HEADER WORD
MOVSI AC4,44000 ;TAB
MOVSI AC2,(TAC) ;COUNT
HRRM LP,M2 ;"TO"
HRRZ TAC1,TYIBF1 ;"FROM"
HRRM TAC1,M1
JRST DOM2
DOM1: XCT M1 ;MOVE AC4,(AC2)
LSHC AC3,^D28 ;4 CHARS
LSH AC3,1 ;CLEAR BIT 35
DOM2: XCT M2 ;MOVEM AC3,(AC2)
LSHC AC3,^D7
SOSL @TYIBF1 ;CHECK "REAL" COUNT
AOBJN AC2,DOM1
AOBJN AC2,DOM1+1 ;(IF LAST WORD HAS FIVE CHARS)
MOVE AC3,SN ;SAVE PREVIOUS SN
ADD SN,STPSIZ ; NEXT LINE
MOVE N1,SN ;FOR RDXA
JRST ICOM1
ICOM3: PUSHJ P,FNLN2A ;OUTPUT AND DELETE
JRST FNDLIN ;FIND LOC AGAIN
IFIX: CAME N2,SN ;ALLOWS FOR POSSIBILITY OF GIVING AN I
;COMMAND BUT NOT GIVING ANY DATA
SUB SN,STPSIZ
JRST CARRET
; SET UP FOR LINE 00010
SET10: MOVEI SN,12 ;SEQUENCE # = 10
MOVEI N1,12 ;SAVE COPY FOR FIRST LINE # TYPEOUT
MOVEI AC4,"10"
POPJ P,
; ROUTINE TO DELETE A LINE (OR LINES)
; FROM TEXT BUFFER
; N1 ADR OF FIRST LINE TO DELETE
; N2 ADR OF LAST LINE TO DELETE
DCOM: SKIPE AC4,N2 ;TEST AND SAVE
CAMGE N1,N2 ;LEGAL ?
SKIPN SN,N1 ;YES,SET FOR FNDLIN
JSR ILC,ERROR
PUSHJ P,LPSET ;SET UP LP AND PS
PUSHJ P,FNDLIN ;SEARCH (PS CONTAINS SN OF PREVIOUS LINE UPON RETURN)
JSR NLN,ERROR
JUMPE AC4,DCOM5
MOVE SN,AC4
MOVE AC4,LP
HRL AC4,PS ;SAVE SN OF PREVIOUS LINE
PUSHJ P,FDL1A ;FIND 2ND LINE(WON'T ADVANCE PAGE)
SKIPA ;NOT FOUND
JRST DCOM1 ;FOUND
CAMLE SN,SEQLST ;IN BUFFER?
JRST DCOM3 ;NO DELETE ALL REST OF BUFFER
SETZ TAC, ;YES TEMOVE EXTRANEOUS
;NOW FALL INTO DCOM1
; BASIC ROUTINE TO REMOVE A LINE FROM
; TEXT BUFFER
; GIVEN: ADR OF LINE TO REMOVE
; ; # WORDS TO CLEAR
; C(TAC)=WORD COUNT
; C(LP)=ADR OF LINE
;AC1 CONTAINS SN OF LINE BEING DELETED
DCOM1: CAMN SN,SEQLST
HLRM AC4,SEQLST
ADDI TAC,(LP)
SUBI TAC,(AC4)
MOVEI LP,(AC4)
DCOM2: HRRM TAC,DCM1 ; FROM=TO+WD COUNT
DODCM1: XCT DCM1 ;HRLI AC1,(LP)
HRR AC1,LP ; TO
HRRZ AC2,PNTR
SUBI AC2,(TAC) ; LAST DEST
BLT AC1,(AC2) ; MOVE
HRRM AC2,PNTR
ADDM TAC,FREWDS
POPJ P, ;RETURN
DCOM3: HLRM AC4,SEQLST
HRRZ AC1,PNTR ;REST. FIRST FREE
SUBI AC1,(AC4)
HRRM AC4,PNTR
SETZM (AC4)
ADDM AC1,FREWDS
DCOM4: CAMGE SN,NUM
JRST FNLN1A
PUSHJ P,MVLIN1
TLNE FF,NDFIL
PUSHJ P,GETLIN ;LOOK FOR LINE WE WANT
POPJ P, ;NO MORE
JRST DCOM4
DCOM5: CAMN SN,SEQLST ;LAST SN OF BUFFER ?
MOVEM PS,SEQLST
JRST DCOM2
; ROUTINE TO PRINT LINES
; WILL ONLY PRINT ONE LINE AT A TIME
PCOM: SKIPN SN,N1
MOVEI SN,12 ;ASSUME 10 IF NONE SPECIFIED
SKIPN AC4,N2
JRST PCOM11
CAMLE N1,N2
JSR ILC,ERROR
PCOM11: PUSHJ P,LPSET
PUSHJ P,FNDLIN ;FIND IT
JRST PCOM2 ;NOT FOUND
PCOM1: PUSHJ P,FNDLIN
MOVE SN,AC1
HLRZ A,(LP) ;GET SEQ NUM
JUMPE A,ENDTTY
JUMPE AC4,PCOMC1 ;DON'T CHK FOR SINGLE LINES
CAILE A,(AC4) ;DON'T TYPE BEYOND (N2)
JRST ENDTTY
PCOMC1: MOVEI TAC,5
CAML TAC,TYOBF2
PUSHJ P,ENDTTY ;OUTPUT BUFFER
MOVE TAC1,TYOBF1
PUSHJ P,RDX1 ;CONVERT & OUTPUT
MOVEM TAC1,TYOBF1 ;FIX UP HDR POINTER
MOVNI TAC,5
ADDM TAC,TYOBF2
HRRI TAC1,1(LP)
HRLI TAC1,440700 ;FORM BP
ILDB CH,TAC1
PUSHJ P,PUTCHR
CAIG CH,14
CAIG CH,11
JRST .-4
CAML SN,AC4
JRST ENDTTY
AOJA SN,PCOM1
PDCOM: SETZI AC4,
TLNN FF,NFILE ;CREATING?
CAILE SN,1 ;AND NOTHING IN YET?
JRST PCOM1 ;NO, PROCEED
JRST CARRET ;YES, NOTHING TO DO
PCOM2: HLRZ SN,(LP) ;START AT NEXT LINE ABOVE (N1)
JUMPN SN,PCOM1 ;THERE ISN'T ANY
JSR NLN,ERROR
; BUFFER STRUCTURE
; TEXT IS STORED LINE BY LINE IN A SEQUENTIAL MANNER
; THE CONTENTS OF THE FIRST WORD OF LINE ARE AS FOLLOWS:
; C(LH)= SEQUENCE NUM (BIN)
; C(RH)= NUMBER OF WORDS
; IN LINE (INCLUDING HDR WORD)
; C(HEADER)=0 INDICATES END OF BUFFER
; LINE SEARCH ROUTINE
; GIVEN
; ADR OF BEG. OF SEARCH IN LP
; SEQ.NUMBER SOUGHT IN SN
; RETURN
; A) FOUND: VIA A JRST CPOPJ1
; LP CONTAINS ADR OF LINE
; TAC CONTAINS WORD COUNT OF LINE
; SN CONTAINS SEQ. NUM.
; B) NOT FOUND - VIA A POPJ,
; AS ABOVE EXCEPT LP CONTAINS ADR OF THE FIRST LINE WITH
; A SEQUENCE NUMBER HIGHER THAN THE ONE SOUGHT
; A GENERAL ROUTINE TO
; FIND A LINE AT ITS APPROXIMATE LOCATION
; UPON RETURN:
; LP CONTAINS LOCATION
; TAC CONTAINS WORD COUNT
; CALLED WITH SEQ. NUM. IN SN
FDL1A: TRO FF,FILFLG
FNDLIN: PUSHJ P,QKCHEK ;CHECK LIMITS
TLNN FF,NDFIL ;VIRGIN FILE ??
JRST LNSRCH ;FIND EXACT LOC.
;AND RETURN
FNDLN1: PUSHJ P,GETLIN ;GET WD COUNT
JRST LNSRCH
FNLN1A: CAMLE TAC,FREWDS ;ROOM?
PUSHJ P,FNDLN2 ;NO - OUTPUT
FNDLNA: HRL AC1,TAC1 ;FROM
HRR AC1,PNTR
PUSHJ P,MOVLIN ;MOVE IT
HRRM TAC1,PNTR
SETZM (TAC1)
MOVN AC1,TAC
ADDM AC1,FREWDS
MOVEM NUM,SEQLST
CAMG SN,NUM ;THE ONE WE WANT?
JRST LSCHLP ;YES
JRST FNDLN1 ;NO
; HERE WE OUTPUT AN ARBITRARY # OF
; LINES & THEN DELETE THEM
FNDLN2: TRZE FF,FILFLG
JRST TPOPJ
FNLN2A: SETZI AC2, ;ZERO AC2
PUSH P,TAC1 ;SAVE COUNT
PUSH P,TAC ;SAVE ADR
HLRZ TAC1,PNTR
FNDLN3: PUSHJ P,OUTLIN
ADD AC2,TAC
ADD TAC1,TAC
CAML AC2,(P) ;BIG ENOUGH HOLE ?
CAMGE AC2,OUTWRD ;OUTPUT ENOUGH?
JRST FNDLN3 ;NO
MOVE TAC,AC2 ;YES - FOR DCOM
HLRZ LP,PNTR
PUSHJ P,DCOM2 ;DELETE OUTPUT
POP P,TAC
TPOPJ: POP P,TAC1
POPJ P,
; LP - ADR OF LINE
; SN - NUMBER WANTED
; C(RH) TAC - WD COUNT
; AC1 - SCRATCH - CONTAINS NEW SEQ.# ON RETURN
LSCHLP: PUSHJ P,LPSET
LNSRCH: SKIPN TAC,(LP) ;GET & CHECK
POPJ P, ;"VIRGIN" FILE RETURN
HLRZ AC1,TAC ;SEQ.#
CAMN SN,AC1 ;CHECK IT
AOSA (P) ;FOUND
CAMG SN,AC1
JRST CLRTAC
ADDI LP,(TAC) ;UPDATE
HRRZ PS,AC1
JRST LNSRCH ;AROUND AGAIN
CLRTAC: HRRZS TAC
POPJ P,
; QUICK CHECK ROUTINE TO DETERMINE WHETHER A LINE WITH SN
; LIES WITHIN THE BUFFER.
; POPJ P, ;PAST END
; JRST CPOPJ1 ;O.K.
; ALSO AN EXIT FOR BEFORE BUFFER
; CALL WITH SN SET
QKCHEK: CAMG SN,WRTLST ;LAST WRITTEN
PUSHJ P,GORND
CAMG SN,SEQLST ;PAST END
CPOPJ1: AOS (P) ;O.K.
CPOPJ: POPJ P, ;RETURN
; SET LINE POINTER & PREVIOUS SEQUENCE #
LPSET: MOVE PS,SEQLST ;INIT PREV SEQ# = HIGHEST IN CURRENT BUFFER
HLRZ LP,PNTR ;INIT CUR LINE PTR = FIRST FREE LOC IN BUFR
POPJ P,
GORND: TRNN FF,FILFLG
JRST .+3
POP P,CH
JRST CPOPJ
PUSH P,SN
PUSH P,AC4
MOVEM P,PSAVE
TLO FF,ROUND
PUSHJ P,CLOSE0
GORND1: MOVE P,PSAVE
MOVEI CH,015
PUSHJ P,ARWOLD
TLZ FF,ROUND
PUSHJ P,LPSET
POP P,AC4
POP P,SN
POPJ P,
; TELETYPE I/O ROUTINES
; BASIC TTY INPUT
; (NON-CCL VERSION)
; ENTER AT GETCHR TO READ CHARS FROM NORMAL LINES
; ENTER AT GETCH1 TO READ A CHAR FROM AN UNTERMINATED LINE
IFE CCLSW,<
GETCHR: SOSGE TYIBF2 ;INPUT WHEN BUF CTR GOES .LT. 0
GETCH1: INPUT ETTY,0
ILDB CH,TYIBF1 ;GET A 7-BIT CHAR FROM BUF
JUMPE CH,GETCHR ;IGNORE NULL CHARS
POPJ P,
>
; BASIC TTY INPUT
; (CCL VERSION)
; ENTER AT GETCHR TO READ CHARS FROM NORMAL LINES
; ENTER AT GETCH1 TO READ A CHAR FROM AN UNTERMINED LINE
IFN CCLSW,<
GETCHR: TLNE FF,CCLF ;NORMAL OR CCL MODE?
JRST CCLCHR ;READ CCLBF
JRST TTYCHR ;READ TYIBF
GETCH1: TLNE FF,CCLF
JRST CCLCHR
JRST TTYCH1 ;READ CHAR FROM UNFINISHED LINE
; READ TYIBF
TTYCHR: SOSGE TYIBF2 ;INPUT WHEN BUF CTR GOES .LT. 0
TTYCH1: INPUT ETTY,
ILDB CH,TYIBF1 ;GET 7-BIT CHAR FROM BUF
JUMPE CH,TTYCHR ;IGNORE NULL CHARS
CAIN CH,032 ;IGNORE ^Z
JRST TTYCHR
TTYCH2: CAIE CH,176 ;CHANGE OLD ALTMODES TO NEW FORM
CAIN CH,175
MOVEI CH,033
CAIL CH,140 ;CONVERT LOWER CASE TO UPPER
TRZ CH,040
POPJ P,
; READ CCLBF
CCLCHR: SOSGE CCLBF2 ;INPUT WHEN BUF CTR GOES .LT. 0
CCLCH1: PUSHJ P,[IFN TEMP,<
SKIPE TMPFLG ;IS TMPCOR UUO IN PROGRESS?
CALLI 12 ;YES, EXIT
>
IN CCLC, ;INPUT ON CCL CHANNEL
POPJ P, ;NORMAL RET
JSR CCL,ERROR] ;ERROR RET
ILDB CH,CCLBF1 ;GET 7-BIT CHAR FROM BUF
JUMPE CH,CCLCHR ;IGNORE NULL CHARS
CAIN CH,032 ;IGNORE ^Z
JRST CCLCHR
JRST TTYCH2 ;FINISH CLEAN-UP AND RETURN
>
; READ LINE ON TTY & CHECK TERMINATING CHARACTER
; CALL: PUSHJ P,TYGTLN
; ALTMODE RETURN
; NORMAL RETURN
TYGTLN: INPUT ETTY,0 ;GET LINE
TRZ FF,EOL ;CLR EOL FLAG
MOVE AC1,TYIBF1 ;AIM BYTE PTR AT LINE HEADER
ADD AC1,(AC1) ;ADD WORD CT FOR THE LINE
SOS AC1 ;ADJUST PTR TO LAST WORD OF THE LINE
TYG1: ILDB CH,AC1 ;GET A 7-BIT CHAR FROM LAST WORD
CAIN CH,33
POPJ P,
CAIE CH,175 ;IF ALTMODE, SET TO 033 & RET VIA POPJ
CAIN CH,176
JRST CON033
CAIG CH,14 ;EOL SEEN?
CAIG CH,11
SKIPA ;NOT YET
TRO FF,EOL ;YES
TLNE AC1,700000 ;WATCH FOR END OF WORD
JRST TYG1 ;NOT YET, TRY NEXT CHAR
TRZN FF,EOL ;END-OF-LINE SEEN?
JSR LTL,ERROR ;NO, LINE TOO LONG
MOVE AC3,@TYIBF1 ;GET WD COUNT FOR THE LINE
CAIG CH,14
CAIG CH,11
JRST CPOPJ1 ;INCREMENT RET PTR & POPJ
AOJA AC3,CPOPJ1 ;EXCEPT IF LAST CHAR IS LF, VT, FF ALSO INCR WD CT
; BASIC TTY OUTPUT
PUTCHR: SOSG TYOBF2 ;OUTPUT WHEN BUF CTR GOES TO 0
PUTCH1: OUTPUT ETTY,0
SKIPE CH ;AVOID NULL OUTPUT
IDPB CH,TYOBF1 ;STORE NEW 7-BIT CHAR IN BUF
POPJ P,
; SINGLE CHARACTER TTY OUTPUT
ASKOUT: MOVEI CH,"*" ;TYPE ASTERISK
P1CHR: PUSHJ P,PUTCHR ;SENT CH TO TYOBF
ENDTTY: OUTPUT ETTY,0 ;FORCE OUTPUT
POPJ P,
; TTY MESSAGE OUTPUT
;CALL PUSHJ P,MESSAG
; ASCIZ /MESSAGE/
; RETURN
MESSAG: MOVSI TAC,(POINT 7,0) ;INIT BYTE PTR WITHOUT ADDR
HRR TAC,(P) ;NOW THE ADDRESS
MESS2: ILDB CH,TAC ;GET CHAR.
JUMPE CH,MESSGO ;QUIT AT THE 0
PUSHJ P,PUTCHR ;PRINT
JRST MESS2 ;GET NEXT
MESSGO: AOS TAC ;FIX UP PDL FOR PROPER RETURN
HRRM TAC,(P)
POPJ P,
ARWCOM: TLZE FF,FILACT
JRST CLOSE0
SETZM IFILNM
SETZM IFILXT
PUSHJ P,FILNAM
SKIPN IFILNM
JSR ILC,ERROR
MOVE TAC1,IFILNM
MOVEM TAC1,ZILCH
CAIN CH,"."
PUSHJ P,FILEXT
TLZ FF,NFILE!NDFIL
ARWOLD: PUSHJ P,SETUP
CAIN CH,ALTMOD
JRST INITO
TRZFFE: TRZ FF,ER
HLRZ TAC,IDIRC+1 ;CHECK EXTENSION
CAIN TAC,(SIXBIT /BAK/)
JSR BAK,ERROR ;CAN'T EDIT .BAK FILE
INIT EICHL,EMDE
SIXBIT /DSK/
EXP EDIBF
PUSHJ P,UNA ;NO DISK???
TLO FF,NFILE!NDFIL
LOOKUP EICHL,IDIRC
JSR NCF,ERROR
LDB TAC,[POINT 9,IDIRC+2,8] ;GET PROTECTION OF INPUT FILE
MOVEM TAC,PROTEC
INBUF EICHL,2
INITO: TRZ FF,ER
INIT EOCHL,EMDE
SIXBIT /DSK/
XWD EDOBF,0
PUSHJ P,UNA ;NO DISK
TLNN FF,NFILE
PUSHJ P,[ LOOKUP EOCHL,IDIRC
POPJ P,
JSR FAU,ERROR]
TRZ FF,ER
ENTER EOCHL,ODIRC
PUSHJ P,UNA ;CANT ENTER???
EOBUF: OUTBUF EOCHL,2
PUSHJ P,EWRITE ;SET UP HEADER
TLO FF,FILACT
DOFIL1: XCT FILL1 ;MOVEI TAC,.
MOVEM TAC,FREWDS
DOFIL2: XCT FILL2 ;HRRZI TAC,.
HRRZM TAC,PNTR
HRLS PNTR
SETZM (TAC)
MOVEI TAC,12
TLNN FF,ROUND
MOVEM TAC,STPSIZ
SETZM WRTLST
SETZM SEQLST
TLNE FF,NFILE
POPJ P,
CARRET: PUSHJ P,MESSAG
ASCIZ /
/
JRST ENDTTY
;DISK INITIALIZATION OR ENTER ERROR
UNA: TRON FF,ER ;TRIED TWICE?
JRST UNA2 ;NO
PUSHJ P,MESSAG ;YES, DIAGNOSTIC
ASCIZ /
?CANNOT ACCESS DISK/
JRST EREXIT ;FATAL CONDITION
;UUO ERROR RETRY ROUTINE
;ASSUMES TRZ FF,ER PRECEDES THE UUO
;IT SHOULD ANYWAY BECAUSE AN EARLIER
;UUO MAY SUCCEED ON THE SECOND TRY
UNA2: MOVNI TAC,3 ;TO TRY AGAIN BACK UP RETURN POINTER
ADDM TAC,(P)
SETZ TAC1,
MOVE TAC,@(P) ;LOOK FOR THE TRZ FF,ER
CAMN TAC,TRZFFE ;IF NO, WE WERE ON AN INIT
MOVEI TAC1,2 ;YES, WE WERE ON A LOOKUP OR RENAME
SUBI TAC1,1 ;MOVE POINTER TO THE ACTUAL UUO
ADDM TAC1,(P) ;-1 IN CASE OF INIT, +1 IN CASE OF LOOKUP
POPJ P,
CLOSE0: SKIPN IFILNM
JSR ILC,ERROR
MOVEI SN,^D10 ;FIND SOMETHING
PUSHJ P,LPSET
MOVEI SN,^D99999
PUSHJ P,FNDLIN
HRRZ TAC,FILL1
PUSHJ P,FNLN2A
CLOSE1: RELEASE EICHL,0
RELEASE EOCHL,0
TRZ FF,ER
INIT EICHL,0
SIXBIT /DSK/
0
PUSHJ P,ERA1 ;CANT
LOOKUP EICHL,IDIRC
JRST CLOSE2
CLOSE EICHL,0
MOVE TAC,PROTEC ;KEEP SAME PROT. ON TMP.TMP
DPB TAC,[POINT 9,ZDIRC+2,8]
LDB TAC,[POINT 23,IDIRC+2,35]
DPB TAC,[POINT 23,ZDIRC+2,35] ;SAVE CREATION DATE
LDB TAC,[POINT 3,IDIRC+1,20] ;GET HIGH PART OF DATE
DPB TAC,[POINT 3,ZDIRC+1,20] ;AND SAVE IT
TRZ FF,ER
RENAME EICHL,ZDIRC
PUSHJ P,ERA1 ;CANT
CLOSE2: TRZ FF,ER
INIT EOCHL,0
SIXBIT /DSK/
0
PUSHJ P,ERA2 ;CANT
TRZ FF,ER
LOOKUP EOCHL,ODIRC
PUSHJ P,ERA2 ;CANT
CLOSE EOCHL,0
LDB TAC,[POINT 9,ODIRC+2,8] ;STD PROT FOR NEW FOO IF CREATING
TLNE FF,NFILE ;SKIP IF CREATING
MOVE TAC,PROTEC ;NEW FOO GETS SAME PROTECTION AS OLD FOO
DPB TAC,[POINT 9,IDIRC+2,8] ; OR STANDARD IF NO INPUT FILE
LDB TAC,[POINT 23,ODIRC+2,35]
DPB TAC,[POINT 23,IDIRC+2,35] ;SAVE CREATION DATE
LDB TAC,[POINT 3,ODIRC+1,20] ;GET HIGH PART OF DATE
DPB TAC,[POINT 3,IDIRC+1,20] ;AND SAVE IT
TRZ FF,ER
RENAME EOCHL,IDIRC
PUSHJ P,ERA2 ;CANT
TRZ FF,ER
INIT EICHL,0
SIXBIT /DSK/
0
PUSHJ P,ERA3 ;CANT
LOOKUP EICHL,ZILCH
JRST CLOSE3
CLOSE EICHL,0
TRZ FF,ER
RENAME EICHL,DELDIR ;THIS AVOIDS A RENAME ERROR WITH .BAK
PUSHJ P,ERA3 ;CANT
CLOSE3: TRZ FF,ER
INIT EICHL,0
SIXBIT /DSK/
0
PUSHJ P,ERA3 ;CANT
LOOKUP EICHL,ZDIRC
JRST NOIFIL
CLOSE EICHL,0
MOVE TAC,PROTEC ;FOO.BAK GETS SAME PROTECTION AS FOO
DPB TAC,[POINT 9,ZILCH+2,8]
LDB TAC,[POINT 23,ZDIRC+2,35]
DPB TAC,[POINT 23,ZILCH+2,35]
LDB TAC,[POINT 3,ZDIRC+1,20] ;GET HIGH PART OF DATE
DPB TAC,[POINT 3,ZILCH+1,20] ;AND SAVE IT
TRZ FF,ER
RENAME EICHL,ZILCH
PUSHJ P,ERA3 ;CANT
NOIFIL: RELEASE EICHL,0
RELEASE EOCHL,0
TLNE FF,ROUND
JRST GORND1
SETZM IFILNM
SETZM IFILXT
JRST COMCLR
;ERROR IN RENAME PROCESS
ERA1: MOVE AC1,[POINT 6,IDIRC]
JRST ERA4
ERA2: MOVE AC1,[POINT 6,ZDIRC]
ERA4: MOVE AC2,[POINT 6,ODIRC]
JRST ERA
ERA3: MOVE AC1,[POINT 6,ZDIRC]
MOVE AC2,[POINT 6,IDIRC]
ERA: TRON FF,ER ;TRIED TWICE?
JRST UNA2 ;NO, TRY AGAIN
PUSHJ P,MESSAG ;YES, PRINT DIAGNOSTIC
ASCIZ /
?ERROR IN RENAME PROCESS.
INPUT FILE CLOSED WITH NAME /
PUSHJ P,MES61 ;INPUT FILE NAME
PUSHJ P,MESSAG
ASCIZ /
OUTPUT FILE CLOSED WITH NAME /
PUSHJ P,MES62 ;OUTPUT FILE NAME
JRST EREXIT
;6-BIT FILNAM.EXT PRINTOUT
MES62: MOVE AC1,AC2 ;SWITCH TO OUTPUT FILE NAME POINTER
MES61: MOVEI TAC,11 ;NAME CHAR. CTR
MES60: ILDB CH,AC1
ADDI CH,40 ;CHANGE 6-BIT TO ASCII
PUSHJ P,PUTCHR
CAIN TAC,4
PUSHJ P,DOTOUT
SOJN TAC,MES60
POPJ P,
DOTOUT: MOVEI CH,"."
JRST PUTCHR
; A ROUTINE TO RETURN A DESCRIPTOR. RETURNS WITH
; FIRST NON LEGAL CHAR IN AC CH. NAME (IN SIXBIT) WILL
; BE IN AC TAC UPON RETURN.
FILNAM: SKIPA TAC1,[POINT 6,IFILNM]
FILEXT: MOVE TAC1,[POINT 6,IFILXT]
JRST SXNAM2
SXNAM1: SUBI CH,40
TLNE TAC1,770000 ;FULL ?
IDPB CH,TAC1 ;STASH
SXNAM2: PUSHJ P,GETCHR ;GET
CAIN CH," " ;SPACE ?
JRST .-2
CAIL CH,60
CAILE CH,"Z"
POPJ P,
CAILE CH,"9"
CAIL CH,101
JRST SXNAM1
POPJ P,
; ROUTINE TO MOVE LINE, FIX UP COUNT & POINTER (OF HEADER)
; C(TAC1) = (FROM) TO
; C(TAC) = WD COUNT
MOVLIN: MOVE TAC1,TAC
ADDI TAC1,(AC1)
BLT AC1,-1(TAC1)
MVLIN1: MOVN N1,TAC
ADDM N1,EDIBF2
ADDM TAC,EDIBF1
POPJ P,
;GETLIN ROUTINE
GETLIN: HRRZ TAC1,EDIBF1
SKIPLE N1,EDIBF2
SKIPN (TAC1)
JRST EDREAD
LNCNT: MOVEI TAC,1
HRRM TAC1,LNCNT1
DOLNCT: XCT LNCNT1 ;SKIPE AC1,(TAC)
TRNE AC1,1
JRST .+2
AOJA TAC,.-3
CAMLE TAC,N1
MOVE TAC,N1
PUSHJ P,NUMCON
HRRM TAC,(TAC1)
JRST CPOPJ1
EDREAD: INPUT EICHL,0
AOS EDIBF1
STATO EICHL,760000
JRST GETLIN
STATZ EICHL,20000
JRST EOF
TLZ FF,FILACT
JRST INERR ;INPUT ERROR
EOF: TLZ FF,NDFIL
POPJ P, ;"NO MORE" RETURN
INERR: PUSHJ P,MESSAG
ASCIZ /
?IN/
JRST PUTERR
OUTERR: PUSHJ P,MESSAG
ASCIZ /
?OUT/
PUTERR: PUSHJ P,MESSAG
ASCIZ /PUT ERROR.
INCOMPLETE OUTPUT FILE CLOSED WITH NAME /
MOVE AC1,[POINT 6,ODIRC] ;FILE NAME
PUSHJ P,MES61
EREXIT: PUSHJ P,ENDTTY ;QUIT & LET USER DECIDE WHAT TO DO
RELEAS EOCHL,0
RELEAS EICHL,0
CALLI EXIT
; OUTPUT
; GIVEN
; ADR OF LINE IN TAC1
; ACTION
; GET WORD COUNT
; CONVERT SEQ.# TO ASCII
OUTLIN: SKIPN (TAC1) ;END OF BUFFER
JRST CLOSE1 ;YES (END OF FILE)
HRRZ TAC, (TAC1) ; GET COUNT
CAMLE TAC,OC ; ROOM?
PUSHJ P,EWRITE ; NO
SUB OC,TAC ; UPDATE COUNT
HLRZ A,(TAC1) ; SEQ. NUM.
MOVEM A,WRTLST
PUSHJ P,RDX ; CONVERT SEQ # TO ASCII
HRL AC1,TAC1 ; FROM
HRR AC1,EDOBF1 ; TO
HRRM AC1,OUTLN1 ; END
AOS AC1
DOUTL1: XCT OUTLN1 ;BLT AC1,(TAC)
ADDM TAC,EDOBF1 ; NEW LCN
POPJ P,
EWRITE: OUTPUT EOCHL,0
STATZ EOCHL,740000
JRST OUTERR ;OUTPUT ERROR
HRRZ OC,EDOBF2
POPJ P,
; ASCII CHAR TO BIN NUMBER CONVERSION ROUTINE (NUMBER IS DECIMAL)
; PUSHJ P,NUMCON
; WHERE
; CH - CONTAINS CHAR. TO BE CONV.
; NUM - CONTAINS BIN NUM. UPON RETURN
NCHCON: IMULI NUM,12 ; DECIMAL
ADDI NUM,-60(CH)
POPJ P,
; TO CONVERT 5 CHAR 7 BIT ASCII
; TO A BINARY NUMBER
NUMCON: SETZI NUM,
HRLI TAC1,440700
ILDB CH,TAC1
PUSHJ P,NCHCON
TLNE TAC1,700000 ; FINISHED
JRST NUMCON+2 ; NO
HRLM NUM, (TAC1) ; YES
POPJ P, ; RETURN
; SUBROUTINE TO INITIALIZE PROGRAM
SETUP: MOVE TAC1,SVJBFF
MOVEM TAC1,.JBFF
MOVE AC3,.JBREL##
MOVEI AC2,407*2
ADD TAC1,AC2
HRRM TAC1,FILL2 ;FIRST FREE LOC
SUB AC3,TAC1
HRRM AC3,FILL1 ;# FREE WORDS
IDIVI AC3,^D10
MOVEM AC3,OUTWRD
IFE CCLSW,<
POPJ P,
>
IFN CCLSW,<
TLNE FF,ROUND
POPJ P,
TLZN FF,CCLF
POPJ P,
SETZM CCLDIR
IFN TEMP,<
SKIPE TMPFLG ;IS A TMPCOR UUO IN PROGRESS
POPJ P, ;YES, DON'T TRY A RENAME
>
RENAME CCLC,CCLDIR
JSR CCL,ERROR
POPJ P,
CCLHR2:
IFN TEMP,<
HRRZ TAC,.JBFF ;READ DATA INTO A BUFFER AT .JBFF
HRRM TAC,TMPFIL+1 ;STORE IN TMPCOR READ BLOCK
HRLI TAC,440700 ;DUMMY UP BYTE POINTER
MOVEM TAC,CCLBF1 ;IN BUFFER HEADER
SOS TMPFIL+1 ;GET PROPER IOWD FORMAT
MOVE TAC,[XWD 2,TMPFIL]
CALLI TAC,TMPCOR ;READ AND DELETE EDT FILE FROM CORE
JRST TMPEND ;FILE NOT FOUND, TRY DISK
ADD TAC,.JBFF ;CALCULATE END OF BUFFER
MOVEM TAC,SVJBFF ;SAVE NEW .JBFF
SUB TAC,.JBFF
IMULI TAC,5 ;CALCULATE CHARACTER COUNT
MOVEM TAC,CCLBF2 ;FINISH DUMMYING HEADER
SETOM TMPFLG ;MARK THAT A TMPCOR UUO WAS USED
JRST @CCLHRE ;RETURN
TMPEND: >
INIT CCLC,0
SIXBIT/DSK/
XWD 0,CCLBF
JSR CCL,ERROR
SETZM CCLDIR+3
LOOKUP CCLC,CCLDIR
JSR CCL,ERROR
MOVE TAC,.JBFF
MOVEM TAC,SVJBFF
INBUF CCLC,1
JRST @CCLHRE
>
; BIN TO BCD CONVERSION ROUTINE
; ADAPTED FROM ANY RADIX PRINT IN MANUAL F-64PX (8/64)
; A CALL TO THIS ROUTINE WILL CONVERT A BINARY SEQ.
; NUMBER TO A 5 CHAR ASCII WORD WITH HEADING ZEROS
; CALL
; PUSHJ P,RDX
; WHERE TAC1 CONTAINS ADR FOR RESULT
; A CONTAINS BINARY # TO BE CONVERTED
A=N1
A1=A+1
RDX: SETOM (TAC1) ; SET SN BIT
RDXA: HRLI TAC1,440700 ; FORM POINTER
RDX1: MOVEI AC1,5 ; 5 DIGITS
RADIX: IDIVI A,12 ; RADIX IS DECIMAL
HRLM A1,(P) ; SAVE REMAINDER
SOSE AC1 ; FINISHED
PUSHJ P,RADIX ; NO
HLRZ A,(P)
ADDI A,60 ; FORM ASCII
IDPB A,TAC1 ; DEPOSIT IN WORD
POPJ P, ; RETURN SOMEPLACE
; ERROR ROUTINE
; DECIPHERS ERROR # AND PRINTS MESSAGE
ERROR2: TLZ FF,CCLF ;CLEAR CCL FLAG SO LOOPING DOES NOT OCCUR
SOS ERROR
LDB TAC,EPNT1 ; GET ERR #
MOVE TAC,EMT(TAC)
ERROR4: ILDB CH,TAC ; GET CHAR
JUMPE CH,ERROR3
PUSHJ P,PUTCHR ; TO BUFFER
JRST ERROR4
ERROR3: PUSHJ P,ENDTTY ; OUTPUT WORD
JRST COMCLR ; NEXT COMMAND
EPNT1: POINT 4,@ERROR,12
NOCORE: TTCALL 3,NOCOR
CALLI EXIT
NOCOR: ASCIZ /
?NO CORE AVAILABLE FOR DATA SEGMENT/
;ERROR MESSAGE NUMBERS
NFO==0
ILC==1
NLN==2
CCL==3
NCF==4
FAU==5
WRP==6
LTL==7
BAK==10
;ERROR MESSAGE ADDRESS TABLE
EMT: POINT 7,EMNFO
POINT 7,EMILC
POINT 7,EMNLN
POINT 7,EMCCL
POINT 7,EMNCF
POINT 7,EMFAU
POINT 7,EMWRP
POINT 7,EMLTL
POINT 7,EMBAK
;ERROR MESSAGES
EMNFO: ASCIZ /?FILE NOT SPECIFIED
/
EMILC: ASCIZ /?ILLEGAL COMMAND
/
EMNLN: ASCIZ /?LINE REFERENCED DOES NOT EXIST
/
EMCCL: ASCIZ /?SYSTEM ERROR READING COMMAND FILE
/
EMNCF: ASCIZ /?INPUT FILE NOT FOUND
/
EMFAU: ASCIZ /
?FILE NAME ALREADY IN USE
/
EMWRP: ASCIZ /?CANNOT INSERT ABOVE LINE 99999
/
EMLTL: ASCIZ /?LINE TOO LONG
/
EMBAK: ASCIZ /?CANNOT EDIT BACKUP FILE
/
LIT
PATCH:
IFN PURE,<RELOC>
DATA:
; I/O DATA
; MACRO TO SET UP HEADERS ETC.
DEFINE AREA (A,N)
<SEQ (A,N,0123456789)
>
DEFINE SEQ (A,N,NUM,%K)
<%K=0
IRPC NUM,
<IFG N-%K,
<IFE %K,
< A: BLOCK 1
>
IFN %K,
< A'NUM: BLOCK 1
>>
%K=%K+1
>
>
AREA (TYIBF,3)
AREA (EDOBF,3)
AREA (EDIBF,3)
REPEAT 0,<
AREA (EDRCO,4)
AREA (EDRCI,4)
>
AREA (TYOBF,3)
; STORAGE
ERROR: BLOCK 1 ; FOR JSR AC,ADR
ERROR1: BLOCK 1 ;JRST ERROR2
FILL1: BLOCK 1
FILL2: BLOCK 2
MOV1: BLOCK 1
MOV2: BLOCK 1
M1: BLOCK 1
M2: BLOCK 1
DCM1: BLOCK 1
LNCNT1: BLOCK 1
OUTLN1: BLOCK 1
IFN CCLSW,<
CCLHRE: BLOCK 1
CCLHR3: BLOCK 1
IFN TEMP,<
TMPFIL: BLOCK 1 ;SIXBIT /EDT/
BLOCK 1 ;XWD -200,0
TMPFLG: BLOCK 1
>>
PSAVE: BLOCK 1
FREWDS: BLOCK 1 ; NUMBER OF FREE WDS
PNTR: BLOCK 1 ;LH-FIRST FREE
;RH-ADDR OF LAST HEADER
WRTLST: BLOCK 1 ; SN LAST WRITTEN
STPSIZ: BLOCK 1 ; STEP SIZE FOR INSERT
SVJBFF: BLOCK 1 ; STORAGE
PROTEC: BLOCK 1 ;SAVE PROTECTION FOR OUTPUT FILE
OUTWRD: BLOCK 1
SEQLST: BLOCK 1 ;LAST SN IN CURRENT PAGE BUFFER
IFILNM:
IDIRC: BLOCK 1
IFILXT: BLOCK 3
OFILNM:
ODIRC: BLOCK 1 ;SIXBIT /###LIN/
BLOCK 1 ;SIXBIT /TMP/
BLOCK 2
PDSIZ=^D25
PDSIZ1=PDSIZ+1
PDL: BLOCK PDSIZ
IFN CCLSW,<
AREA (CCLBF,3)
CCLDIR: BLOCK 1 ;SIXBIT/###EDT/
BLOCK 1 ;SIXBIT/TMP/
BLOCK 2
>
ZDIRC: BLOCK 1 ;SIXBIT /###TMP/
BLOCK 1 ;SIXBIT /TMP/
BLOCK 2
ZILCH: BLOCK 1
BLOCK 1 ;SIXBIT /BAK/
BLOCK 2
DELDIR: BLOCK 4
DSKST: BLOCK 1000 ;FORCE INTO 2K
ENDP: END START