File CLRBUF.PA (PAL assembler source file)

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

/CLEAR BUFFER AND ADD FRAME/

FIND=200
FIELD 1
*200
CLBUFR, CLA
  TAD (1600)
  DCA TINDEX
  DCA I TINDEX
  ISZ TINDEX
  JMP .-2
VLINE, TAD (3564)
  DCA INDEXL
  TAD (-2)
  DCA INDEXF
  IAC
  DCA TEMP
  TAD (-102)
  DCA INDEXT
  TAD TEMP
  DCA I INDEXL
  TAD INDEXL
  TAD (20)
  DCA INDEXL
  ISZ INDEXT
  JMP .-6
  ISZ INDEXF
  JMP MOD1
  JMP HLINE
MOD1, TAD (3572)
  DCA INDEXL
  TAD (0200)
  DCA TEMP
  JMP VLINE+6
HLINE, TAD (3565)
  DCA INDEXL
  TAD (-2)
  DCA INDEXF
  TAD (-5)
  DCA INDEXT
  TAD (-1)
  DCA I INDEXL
  ISZ INDEXL
  ISZ INDEXT
  JMP .-4
  TAD (7600)
  DCA I INDEXL
  ISZ INDEXF
  JMP MOD2
  CDF CIF 00
  JMP FIND
MOD2, TAD (5605)
  DCA INDEXL
  JMP HLINE+4
TEMP, 0
TINDEX, 0
INDEXL, 0
INDEXF, 0
INDEXT, 0
$

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