mirror of
https://github.com/DoctorWkt/unix-jun72.git
synced 2026-02-02 06:51:49 +00:00
58 lines
1.7 KiB
Plaintext
58 lines
1.7 KiB
Plaintext
ctty / tty
|
|
leadr / ppt
|
|
sret / mem
|
|
sret / rf0
|
|
sret / rk0
|
|
sret / tap0
|
|
sret / tap1
|
|
sret / tap2
|
|
sret / tap3
|
|
sret / tap4
|
|
sret / tap5
|
|
sret / tap6
|
|
sret / tap7
|
|
ccvt / tty0
|
|
ccvt / tty1
|
|
ccvt / tty2
|
|
ccvt / tty3
|
|
ccvt / tty4
|
|
ccvt / tty5
|
|
ccvt / tty6
|
|
ccvt / tty7
|
|
/ ejec / lpr
|
|
|
|
ctty: / close console tty
|
|
mov tty+[ntty*8]-8+6,r5 / point r5 to the console tty buffer
|
|
decb (r5) / dec number of processes using console tty
|
|
br sret / return via sret
|
|
|
|
cppt: / close paper tape
|
|
clrb pptiflg / set pptiflg to indicate file not open
|
|
1:
|
|
mov $240,*$ps /set process or priority to 5
|
|
jsr r0,getc; 2 / remove all ppt input entries from clist
|
|
/ and assign to free list
|
|
br sret
|
|
br 1b
|
|
|
|
/ejec:
|
|
/ mov $100,*$lps / set line printer interrupt enable bit
|
|
/ mov $14,r1 / 'form feed' character in r1 (new page).
|
|
/ jsr r0,lptoc / space the printer to a new page
|
|
/ br sret / return to caller via 'sret'
|
|
|
|
leadr: / produce paper tape leader
|
|
mov $100,*$pps / set paper tape punch interrupt enable
|
|
mov $100.,-(sp) / 101. characters of 'nul' will be output as
|
|
/ leader
|
|
1:
|
|
clr r1 / r1 contains a 'nul' character
|
|
jsr r0,pptoc / output the 'nul' character
|
|
dec (sp)
|
|
bge 1b / last leader character output? no, branch
|
|
tst (sp)+ / bump stack pointer
|
|
br sret / return to caller via 'sret'
|
|
|
|
sysmount: / mount file system; args special; name
|
|
|