File CHNSUB.PA (PAL assembler source file)

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

/ THIS IS THE CHAIN SUBROUTINE FOR FULL CIRCLE./

MQL=7421
MQA=7501
FIELD 0
*0200
CHN, CLA CLL
 IAC
 MQL
 TAD I (7746)
 MQA
 DCA I (7746)
 CIF 10
 JMS I (7700)
 10
 CIF 10
 JMS I (200)
 1
DEVNUM, DEVICE DTA0
0401
 JMP CHERR1
 TAD DEVNUM+1
 CIF 10
 JMS I (200)
 2
BLKNUM, CHNAME
 0
 JMP CHERR2
 TAD BLKNUM
 DCA BLKN2
 CIF 10
 JMS I (200)
 6
BLKN2,0
CHNAME, FILENAME GLIFE.SV
CHERR1, CIF 10
 JMS I (200)
 7
 3
CHERR2, CIF 10
 JMS I (200)
 7
 4
$

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