Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0135/sources/vidpro.ctl
There are 2 other files named vidpro.ctl in the archive. Click here to see a list.
; Compile vided in production version, with no debug tables
.r setsrc
a dskd,*
.rename vi????.reo=vi????.rel
.rename mvista.reo=mvista.rel
.r simula
mvista(-d-i-a-qy)
vided0(-d-i-a-qy)
vided1(-d-i-a-qy)
vided2(-d-i-a-qy)
vided(-d-i-a-qy)
.load/MAP:vidmap.lst vided%"version:2A(30)"
.nsave dskb:vided
.noerror
.teco vidpro.ctl
*n%"version:^[s)^[rkiun
*^[-s(^[i000^[1ximi
*FSun^[u4^[6r1ximi
*FSu4^[u3^[5r1ximi
*fsu3^[u2^[4r1ximi
*fsu2^[u1^[3r1ximi^[^[
*<6-Q1;Qn+2un^[1;>
*<76-Q2;Qn+20un^[1;>
*<776-Q3;Qn+200un^[1;>
*<7776-Q4;Qn+2000un^[1;>
*-s(^[%n\^[^[ki)"
*^[ex^[^[
.del dskd:vi????.rel,dskd:mvista.rel
.rename mvista.rel=mvista.reo
.rename vi????.rel=vi????.reo