File EDIT.SV (save files (Executable program)

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

240)
  KSF 100
  JMP .+3
  KCF 100
  JMP START
  TSF
  JMP .-1
  TLS
  ISZ POINTR
  ISZ TOTAL
  JMP .+2
  JMP START
  ISZ CHRCNT
  JMP CHRKP
NEWFRM,CLA
  TAD (215)
  TSF
  JMP .-1
  TLS
  CLA
  TAD (212)
  TSF
  JMP .-1
  TLS
  JMP LINEFD
*400
CHAR, CLA CLL/GET NEW CHARACTER
  TAD (337)
  DCA I POINTR
  KSF 100
  JMP .-1
  KRB 100
  AND (177)
  DCA CHEK
  TAD CHEK/ CHECK FOR CONTROL-C=RETURN TO MONITOR
  TAD (-3)
  SNA CLA
  JMP END
  TAD CHEK/CHECK FOR A LF=HARDCOPY OF PAGE
  TAD (-12)
  SNA CLA
  JMP PRINT
  TAD CHEK/CHECK FOR A CR
  TAD (-15)
  SZA CLA
  JMP .+4
  TAD (40)
  DCA I POINTR
  JMP LINE
  TAD CHEK/CHECK FOR  A TAB
  TAD (-11)
  SZA CLA
  JMP .+31
  TAD (40)
  DCA I POINTR
  TAD POINTR
  AND (17)
  SNA
  JMP .+6
  CIA
  AND (17)
  TAD POINTR
  DCA POINTR
  JMP .+5
  CLA
  TAD (20)
  TAD POINTR
  DCA POINTR
  CLA CLL
  TAD (2000)
  TAD POINTR
  SNL
  JMP CHAR
  CLA
  TAD (5777)
  DCA POINTR
  JMP CHAR
  TAD CHEK/CHECK FOR A RUBOUT
  TAD (-177)
  SZA CLA
  JMP .+15
  TAD (40)
  DCA I POINTR
  TAD POINTR
  TAD (-1)
  DCA POINTR
  TAD POINTR
  TAD (-777)
  SZA CLA
  JMP CHAR
  TAD (BUFF1)
  DCA POINTR
  JMP CHAR
  TAD CHEK/DISPLAY CHARACTER
  DCA I POINTR
  ISZ POINTR
  TAD POINTR
  TAD (-6000)
  SZA
  JMP CHAR
  TAD (5777)
  DCA POINTR
  JMP CHAR
END,TAD (40)/FETCH AND STORE BUFFERS
  DCA I POINTR
  6152
  CDF 10
  CIF 10
  JMP I (200)
*600
NPAGE,CLA CLL
  KSF 100
  JMP .-1
  KRB 100
  AND (177)
  DCA PAGES
  TAD PAGES
  TAD (-60)
  SZA
  JMP .+5
  CLA
  TAD (BUFF1)
  DCA BUFFER
  JMP START
  CLA
  TAD (BUFF2)
  DCA BUFFER
  JMP START
*700
BLANK,CLA
  TAD POINTR
  DCA TEMP
  ISZ POINTR
  TAD POINTR
  AND (77)
  SNA CLA
  JMP BLKFIX
  TAD I POINTR
  TAD (-40)
  SNA CLA
  JMP BLANK+3
  TAD TEMP
  DCA POINTR
  JMP CHRKP+6
BLKFIX,TAD TEMP
  CIA
  TAD POINTR
  TAD TOTAL
  SNA
  JMP START
  DCA TOTAL
  JMP NEWFRM
*1000
BUFF1,0
  *3400
BUFF2,0
*6000
  3000
FIELD 1
*20
NEXTC,0
*200
NEXT,CLA CLL
  KSF 100
  JMP .-1
  KRB 100
  AND (177)
  DCA NEXTC
  TAD NEXTC
  TAD (-123)
  SNA CLA
  JMP I (400)
  TAD NEXTC
  TAD (-122)
  SNA CLA
  JMP I (1000)
  CDF 00
  CIF 00
  JMP I (200)
$$$$$$$$$$$
$$$$$$$$$$



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