mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-25 09:24:19 +00:00
Upload
Digital Research
This commit is contained in:
@@ -0,0 +1,951 @@
|
||||
PL/M-86 COMPILER VCMODE.CMD - SET VIRTUAL CONSOLE BACKGROUND MODE PAGE 1
|
||||
|
||||
|
||||
ISIS-II PL/M-86 V2.0 COMPILATION OF MODULE VCMODE
|
||||
OBJECT MODULE PLACED IN VCMODE.OBJ
|
||||
COMPILER INVOKED BY: :F0: VCMODE.PLM XREF OPTIMIZE(3) DEBUG
|
||||
|
||||
|
||||
|
||||
$title('VCMODE.CMD - Set Virtual Console Background Mode')
|
||||
$compact
|
||||
1 vcmode:
|
||||
do;
|
||||
|
||||
$include (:f2:copyrt.lit)
|
||||
=
|
||||
= /*
|
||||
= Copyright (C) 1983
|
||||
= Digital Research
|
||||
= P.O. Box 579
|
||||
= Pacific Grove, CA 93950
|
||||
= */
|
||||
=
|
||||
$include (:f2:vaxcmd.lit)
|
||||
=
|
||||
= /**** VAX commands for generation - read the name of this program
|
||||
= for PROGNAME below.
|
||||
=
|
||||
= $ util := PROGNAME
|
||||
= $ ccpmsetup ! set up environment
|
||||
= $ assign 'f$directory()' f1: ! use local dir for temp files
|
||||
= $ plm86 'util'.plm xref 'p1' optimize(3) debug
|
||||
= $ link86 f2:scd.obj, 'util'.obj to 'util'.lnk
|
||||
= $ loc86 'util'.lnk od(sm(code,dats,data,stack,const)) -
|
||||
= ad(sm(code(0),dats(10000h))) ss(stack(+32)) to 'util'.
|
||||
= $ h86 'util'
|
||||
=
|
||||
= ***** Then, on a micro:
|
||||
= A>vax progname.h86 $fans
|
||||
= A>gencmd progname data[b1000]
|
||||
=
|
||||
= ***** Notes: Stack is increased for interrupts. Const(ants) are last
|
||||
= to force hex generation.
|
||||
= ****/
|
||||
$include (:f2:comlit.lit)
|
||||
=
|
||||
2 1 = declare
|
||||
= lit literally 'literally',
|
||||
= dcl lit 'declare',
|
||||
= true lit '0ffh',
|
||||
= false lit '0',
|
||||
= no lit 'not',
|
||||
= boolean lit 'byte',
|
||||
= forever lit 'while true',
|
||||
= cr lit '13',
|
||||
= lf lit '10',
|
||||
= tab lit '9',
|
||||
= ctrlc lit '3',
|
||||
= ff lit '12',
|
||||
= page$len$offset lit '1ch',
|
||||
PL/M-86 COMPILER VCMODE.CMD - SET VIRTUAL CONSOLE BACKGROUND MODE PAGE 2
|
||||
|
||||
|
||||
= nopage$mode$offset lit '2Ch',
|
||||
= sectorlen lit '128';
|
||||
$include (:f2:mfunc.lit)
|
||||
=
|
||||
= /* Concurrent CP/M function numbers */
|
||||
=
|
||||
3 1 = dcl m$prtbuf lit '9',
|
||||
= m$select lit '14',
|
||||
= m$openf lit '15',
|
||||
= m$closef lit '16',
|
||||
= m$deletef lit '19',
|
||||
= m$readf lit '20',
|
||||
= m$writef lit '21',
|
||||
= m$makef lit '22',
|
||||
= m$getlogin lit '24',
|
||||
= m$curdsk lit '25',
|
||||
= m$setdma lit '26',
|
||||
= m$setatt lit '30',
|
||||
= m$setusr lit '32',
|
||||
= m$readrf lit '33',
|
||||
= m$writerf lit '34',
|
||||
= m$resetdrv lit '37',
|
||||
= m$errmode lit '45',
|
||||
= m$dirbios lit '50',
|
||||
= m$makeq lit '134',
|
||||
= m$openq lit '135',
|
||||
= m$deleteq lit '136',
|
||||
= m$readq lit '137',
|
||||
= m$creadq lit '138',
|
||||
= m$writeq lit '139',
|
||||
= m$cwriteq lit '140',
|
||||
= m$delay lit '141',
|
||||
= m$dispatch lit '142',
|
||||
= m$setprior lit '145',
|
||||
= m$attach lit '146',
|
||||
= m$detach lit '147',
|
||||
= m$setcns lit '148',
|
||||
= m$parse lit '152',
|
||||
= m$getcns lit '153',
|
||||
= m$sysdat lit '154',
|
||||
= m$getpd lit '156',
|
||||
= m$abort lit '157';
|
||||
=
|
||||
= /* Internal calls */
|
||||
=
|
||||
4 1 = dcl mi$sleep lit '0212H',
|
||||
= mi$wakeup lit '0213H';
|
||||
=
|
||||
$include (:f2:fcb.lit)
|
||||
=
|
||||
5 1 = declare
|
||||
= f$drvusr lit '0', /* drive/user byte */
|
||||
= f$name lit '1', /* file name */
|
||||
= f$namelen lit '8', /* file name length */
|
||||
= f$type lit '9', /* file type field */
|
||||
= f$typelen lit '3', /* type length */
|
||||
= f$rw lit '9', /* high bit is R/W attribute */
|
||||
PL/M-86 COMPILER VCMODE.CMD - SET VIRTUAL CONSOLE BACKGROUND MODE PAGE 3
|
||||
|
||||
|
||||
= f$dirsys lit '10', /* high bit is dir/sys attribute */
|
||||
= f$arc lit '11', /* high bit is archive attribute */
|
||||
= f$ex lit '12', /* extent */
|
||||
= f$s1 lit '13', /* module byte */
|
||||
= f$rc lit '15', /* record count */
|
||||
= f$diskmap lit '16', /* file disk map */
|
||||
= diskmaplen lit '16', /* disk map length */
|
||||
= f$drvusr2 lit '16', /* fcb2 */
|
||||
= f$name2 lit '17',
|
||||
= f$type2 lit '25',
|
||||
= f$cr lit '32', /* current record */
|
||||
= f$rrec lit '33', /* random record */
|
||||
= f$rreco lit '35'; /* " " overflow */
|
||||
=
|
||||
|
||||
6 1 dcl fcb (1) byte external;
|
||||
7 1 dcl buff (1) byte external;
|
||||
|
||||
$include (:f2:sd.lit)
|
||||
=
|
||||
= /* System Data Page */
|
||||
=
|
||||
8 1 = dcl sysdat$pointer pointer;
|
||||
9 1 = dcl sysdat$ptr structure(
|
||||
= offset word,
|
||||
= segment word) at (@sysdat$pointer);
|
||||
10 1 = declare sd based sysdat$pointer structure (
|
||||
= supmod (4) word,
|
||||
= /* rtmmod (4) word,
|
||||
= memmod (4) word,
|
||||
= ciomod (4) word,
|
||||
= bdosmod (4) word,
|
||||
= xiosmod (4) word,
|
||||
= netmod (4) word,
|
||||
= reservd (4) word */
|
||||
= space(28) word,
|
||||
= mpmseg word,
|
||||
= rspseg word,
|
||||
= endseg word,
|
||||
= module$map byte,
|
||||
= ncns byte,
|
||||
= nlst byte,
|
||||
= nccb byte,
|
||||
= nflags byte,
|
||||
= srchdisk byte,
|
||||
= mmp word,
|
||||
= nslaves byte,
|
||||
= dayfile byte,
|
||||
= tempdisk byte,
|
||||
= tickspersec byte,
|
||||
= lul word,
|
||||
= ccb word,
|
||||
= flags word,
|
||||
= mdul word,
|
||||
= mfl word,
|
||||
= pul word,
|
||||
= qul word,
|
||||
PL/M-86 COMPILER VCMODE.CMD - SET VIRTUAL CONSOLE BACKGROUND MODE PAGE 4
|
||||
|
||||
|
||||
= qmau (4) word,
|
||||
= rlr word,
|
||||
= dlr word,
|
||||
= drl word,
|
||||
= plr word,
|
||||
= slr word,
|
||||
= thrdrt word,
|
||||
= qlr word,
|
||||
= mal word,
|
||||
= version word,
|
||||
= vernum word,
|
||||
= mpmvernum word,
|
||||
= tod (2) word,
|
||||
= tod_sec byte,
|
||||
= ncondev byte,
|
||||
= nlstdev byte,
|
||||
= nciodev byte,
|
||||
= lcb (2) word,
|
||||
= lckmax byte,
|
||||
= opmax byte,
|
||||
= sysltot (2) word,
|
||||
= cmod byte );
|
||||
=
|
||||
=
|
||||
11 1 = declare sd$byte based sysdat$pointer (1) byte;
|
||||
=
|
||||
|
||||
12 1 dcl ccb$pointer pointer;
|
||||
13 1 dcl ccb$ptr structure ( offset address, segment address) at
|
||||
(@ccb$pointer);
|
||||
$include (:f2:vccb.lit)
|
||||
= /* Concurrent CP/M Character Control Block Structure */
|
||||
=
|
||||
= /* +---------+---------+---------+---------+
|
||||
= 00 | attach | queue |
|
||||
= +---------+---------+---------+---------+
|
||||
= 04 | flag | startcol| column | nchar |
|
||||
= +---------+---------+---------+---------+
|
||||
= 08 | mimic | msource | pc | vc |
|
||||
= +---------+---------+---------+---------+
|
||||
= 0C | btmp | resrvd | state |
|
||||
= +---------+---------+---------+---------+
|
||||
= 10 | maxbufsiz | vinq |
|
||||
= +---------+---------+---------+---------+
|
||||
= 14 | voutq | vcmxq |
|
||||
= +---------+---------+---------+---------+
|
||||
= 18 | qpbflgs | qpbfill | qpbqaddr |
|
||||
= +---------+---------+---------+---------+
|
||||
= 1C | qpbnmsgs | qpbbuffptr |
|
||||
= +---------+---------+---------+---------+
|
||||
= 20 | qbuff | cosleep |
|
||||
= +---------+---------+---------+---------+
|
||||
= 24 | usleep | vsleep |
|
||||
= +---------+---------+---------+---------+
|
||||
= 28 | ... reserved ... |
|
||||
= +---------+---------+---------+---------+
|
||||
=
|
||||
PL/M-86 COMPILER VCMODE.CMD - SET VIRTUAL CONSOLE BACKGROUND MODE PAGE 5
|
||||
|
||||
|
||||
=
|
||||
=
|
||||
=
|
||||
= */
|
||||
=
|
||||
14 1 = dcl ccb$structure lit 'structure (attach address, queue address,
|
||||
= flag byte, startcol byte, column byte, nchar byte, mimic byte, msource byte,
|
||||
= ccb$tail1';
|
||||
15 1 = dcl ccb$tail1 lit
|
||||
= 'pc byte, vc byte, btmp byte, reservd byte, state word, maxbufsiz word,
|
||||
= ccb$tail2';
|
||||
16 1 = dcl ccb$tail2 lit
|
||||
= 'vinq address, voutq address, vcmxq address,
|
||||
= qpbflags byte, qpbresrvd byte, qpbqaddr address,
|
||||
= qpbnmsgs address, qpbbuffptr address, qbuff address, cosleep word,
|
||||
= usleep word, vsleep word, r1 word, r2 word)';
|
||||
=
|
||||
17 1 = declare /* flag values */
|
||||
= cf$listcp lit '001h', /* control P toggle */
|
||||
= cf$compc lit '002h', /* suppress output */
|
||||
= cf$switchs lit '004h', /* XIOS supports switch screening */
|
||||
= cf$conout lit '008h', /* XIOS console output ownership */
|
||||
= cf$vout lit '010h', /* process writing to VOUTQ */
|
||||
= cf$bufp lit '020h'; /* toggle to control printer echo */
|
||||
= /* on control P when background */
|
||||
= /* and buffered */
|
||||
= /* values of state byte */
|
||||
= /* conout goes to XIOS */
|
||||
=
|
||||
= /* state word flags */
|
||||
=
|
||||
18 1 = dcl
|
||||
= csm$buffered lit '0001h',
|
||||
= csm$background lit '0002h',
|
||||
= csm$purging lit '0004h',
|
||||
= csm$noswitch lit '0008h',
|
||||
= csm$suspend lit '0010h',
|
||||
= csm$abort lit '0020h',
|
||||
= csm$filefull lit '0040h',
|
||||
= csm$ctrlS lit '0080h',
|
||||
= csm$ctrlO lit '0100h',
|
||||
= csm$ctrlP lit '0200h';
|
||||
=
|
||||
19 1 = dcl x$init$offset lit '0Ch',
|
||||
= x$init$pointer pointer,
|
||||
= x$init$ptr structure (offset word, segment word) at (@x$init$pointer),
|
||||
= x$init based x$init$pointer structure
|
||||
= (tick byte, ticks$sec byte, door byte, resrvd1 (2) byte,
|
||||
= nvcns byte, nccb byte, nlst byte, ccb word, lcb word);
|
||||
=
|
||||
=
|
||||
20 1 = dcl lcb$structure lit 'structure (attach address, queue address,
|
||||
= flag byte, startcol byte, column byte, nchar byte,
|
||||
= mimic byte, msource byte)';
|
||||
=
|
||||
21 1 dcl ccb based ccb$pointer ccb$structure;
|
||||
|
||||
PL/M-86 COMPILER VCMODE.CMD - SET VIRTUAL CONSOLE BACKGROUND MODE PAGE 6
|
||||
|
||||
|
||||
22 1 dcl ccpmproduct lit '14h';
|
||||
23 1 dcl bdosversion lit '31h';
|
||||
|
||||
24 1 mon1: procedure (func,info) external;
|
||||
25 2 declare func byte;
|
||||
26 2 declare info address;
|
||||
27 2 end mon1;
|
||||
|
||||
28 1 mon2: procedure (func,info) byte external;
|
||||
29 2 declare func byte;
|
||||
30 2 declare info address;
|
||||
31 2 end mon2;
|
||||
|
||||
32 1 mon3: procedure (func,info) address external;
|
||||
33 2 dcl func byte, info address;
|
||||
34 2 end mon3;
|
||||
|
||||
35 1 mon4: procedure (func,info) pointer external;
|
||||
36 2 dcl func byte, info address;
|
||||
37 2 end mon4;
|
||||
|
||||
|
||||
|
||||
/**************************************
|
||||
* *
|
||||
* B D O S Externals *
|
||||
* *
|
||||
**************************************/
|
||||
|
||||
38 1 print$char: procedure(char);
|
||||
39 2 declare char byte;
|
||||
40 2 call mon1(2,char);
|
||||
41 2 end print$char;
|
||||
|
||||
42 1 print$console$buffer: procedure (buffer$address);
|
||||
43 2 declare buffer$address address;
|
||||
44 2 call mon1 (9,buffer$address);
|
||||
45 2 end print$console$buffer;
|
||||
|
||||
46 1 version: procedure address;
|
||||
47 2 return mon3(12,0);
|
||||
48 2 end version;
|
||||
|
||||
/**************************************
|
||||
* *
|
||||
* X D O S Externals *
|
||||
* *
|
||||
**************************************/
|
||||
|
||||
49 1 terminate: procedure;
|
||||
50 2 call mon1 (143,0);
|
||||
51 2 end terminate;
|
||||
|
||||
52 1 get$console$number: procedure byte;
|
||||
53 2 return mon2 (153,0);
|
||||
54 2 end get$console$number;
|
||||
|
||||
PL/M-86 COMPILER VCMODE.CMD - SET VIRTUAL CONSOLE BACKGROUND MODE PAGE 7
|
||||
|
||||
|
||||
55 1 printb: procedure public;
|
||||
56 2 call print$char(' ');
|
||||
57 2 end printb;
|
||||
|
||||
58 1 pdecimal: procedure(v,prec,zerosup) public;
|
||||
/* print value v, field size = (log10 prec) + 1 */
|
||||
/* with leading zero suppression if zerosup = true */
|
||||
59 2 declare v address, /* value to print */
|
||||
prec address, /* precision */
|
||||
zerosup boolean, /* zero suppression flag */
|
||||
d byte; /* current decimal digit */
|
||||
|
||||
60 2 do while prec <> 0;
|
||||
61 3 d = v / prec; /* get next digit */
|
||||
62 3 v = v mod prec; /* get remainder back to v */
|
||||
63 3 prec = prec / 10; /* ready for next digit */
|
||||
64 3 if prec <> 0 and zerosup and d = 0 then
|
||||
65 3 call printb;
|
||||
else
|
||||
66 3 do;
|
||||
67 4 zerosup = false;
|
||||
68 4 call printchar('0'+d);
|
||||
69 4 end;
|
||||
70 3 end;
|
||||
71 2 end pdecimal;
|
||||
|
||||
/*lbracket: procedure byte; /* find left bracket in command tail return */
|
||||
/* dcl i byte; /* its index. if not found ret 0 */
|
||||
/* i = 1;
|
||||
do while i <= buff(0) and (buff(i) = ' ' or buff(i) = tab);
|
||||
i = i + 1;
|
||||
end;
|
||||
if buff(i) = '[' then
|
||||
return(i);
|
||||
return(0);
|
||||
end lbracket;
|
||||
*/
|
||||
|
||||
72 1 help: procedure;
|
||||
73 2 call mon1(m$prt$buf, .(cr, lf, tab, tab, tab ,'VCMODE EXAMPLES$'));
|
||||
74 2 call mon1(m$prt$buf, .(cr, lf, lf, 'vcmode', tab, tab, tab, tab, tab,
|
||||
'(show background mode)$'));
|
||||
75 2 call mon1(m$prt$buf, .(cr, lf, 'vcmode dynamic', tab, tab, tab, tab,
|
||||
'(sets background mode)$'));
|
||||
76 2 call mon1(m$prt$buf, .(cr, lf, 'vcmode buffered', tab, tab, tab, tab,
|
||||
tab, '"$'));
|
||||
/* call mon1(m$prt$buf, .(cr, lf, 'vcmode suspend', tab, tab, tab, tab,
|
||||
tab, '"$'));*/
|
||||
77 2 call mon1(m$prt$buf, .(cr, lf, 'vcmode size = 5', tab, tab, tab, tab,
|
||||
'(sets buffered mode max file size in)$'));
|
||||
78 2 call mon1(m$prt$buf, .(cr, lf, tab, tab, tab, tab, tab,
|
||||
'(kilobytes, legal range is 1 to 8191)$'));
|
||||
79 2 call mon1(m$prt$buf, .(cr, lf, tab, tab, tab, tab, tab,
|
||||
'(also sets background mode to buffered)$'));
|
||||
/* call mon1(m$prt$buf, .(cr, lf, 'vcmode size = 100H', tab, tab, tab,
|
||||
'(legal range in HEX is 1H to 1FFFFH)$'));*/
|
||||
80 2 call mon1(m$prt$buf, .(cr, lf, 'vcmode help', tab, tab, tab, tab,
|
||||
PL/M-86 COMPILER VCMODE.CMD - SET VIRTUAL CONSOLE BACKGROUND MODE PAGE 8
|
||||
|
||||
|
||||
'(prints this message)$'));
|
||||
81 2 call mon1(m$prt$buf, .(cr, lf, '$'));
|
||||
82 2 call terminate;
|
||||
83 2 end help;
|
||||
|
||||
84 1 showstate: procedure (verb);
|
||||
85 2 dcl (verb,state) address;
|
||||
86 2 call mon1(m$prt$buf, .(cr,lf,'Background Mode For Virtual Console$'));
|
||||
87 2 call pdecimal (console, 100, true);
|
||||
88 2 call printb;
|
||||
89 2 call mon1(m$prt$buf, verb);
|
||||
90 2 state = ccb.state and csm$buffered;
|
||||
91 2 if state = 0 then
|
||||
92 2 call mon1(m$prt$buf, .(' Dynamic$'));
|
||||
else
|
||||
93 2 do;
|
||||
94 3 call mon1(m$prt$buf, .(' Buffered', cr, lf, 'Maximum file size = $'));
|
||||
95 3 call pdecimal(ccb.maxbufsiz, 10000, true);
|
||||
96 3 call mon1(m$prt$buf, .('K$'));
|
||||
97 3 end;
|
||||
98 2 call mon1(m$prt$buf, .(cr, lf, '$'));
|
||||
|
||||
99 2 end show$state;
|
||||
|
||||
$include (:f2:qd.lit)
|
||||
=
|
||||
= /* Queue Descriptor */
|
||||
=
|
||||
100 1 = dcl qnamsiz lit '8';
|
||||
=
|
||||
101 1 = dcl qd$structure lit 'structure(
|
||||
= link word,
|
||||
= net byte,
|
||||
= org byte,
|
||||
= flags word,
|
||||
= name(qnamsiz) byte,
|
||||
= msglen word,
|
||||
= nmsgs word,
|
||||
= dq word,
|
||||
= nq word,
|
||||
= msgcnt word,
|
||||
= msgout word,
|
||||
= buffer word)';
|
||||
=
|
||||
= /* queue flag values */
|
||||
=
|
||||
102 1 = dcl qf$mx lit '001h'; /* Mutual Exclusion */
|
||||
103 1 = dcl qf$keep lit '002h'; /* NO DELETE */
|
||||
104 1 = dcl qf$hide lit '004h'; /* Not User writable */
|
||||
105 1 = dcl qf$rsp lit '008h'; /* rsp queue */
|
||||
106 1 = dcl qf$table lit '010h'; /* from qd table */
|
||||
107 1 = dcl qf$rpl lit '020h'; /* rpl queue */
|
||||
108 1 = dcl qf$dev lit '040h'; /* device queue */
|
||||
=
|
||||
= /* Queue Parameter Block */
|
||||
=
|
||||
109 1 = dcl qpb$structure lit 'structure(
|
||||
PL/M-86 COMPILER VCMODE.CMD - SET VIRTUAL CONSOLE BACKGROUND MODE PAGE 9
|
||||
|
||||
|
||||
= flgs byte,
|
||||
= net byte,
|
||||
= qaddr word,
|
||||
= nmsgs word,
|
||||
= buffptr word,
|
||||
= name (qnamsiz) byte )';
|
||||
=
|
||||
|
||||
110 1 dcl qpb qpb$structure;
|
||||
|
||||
111 1 read$change$mxq: procedure;
|
||||
112 2 qpb.qaddr = ccb.vcmxq;
|
||||
113 2 call mon1 (m$readq, .qpb);
|
||||
114 2 end read$change$mxq;
|
||||
|
||||
115 1 write$change$mxq: procedure;
|
||||
116 2 qpb.qaddr = ccb.vcmxq;
|
||||
117 2 call mon1 (m$writeq, .qpb);
|
||||
118 2 end write$change$mxq;
|
||||
|
||||
119 1 atohb: procedure (char) byte public; /* convert ascii hex to nibble value */
|
||||
120 2 declare char byte;
|
||||
121 2 if char >= '0' and char <= '9' then
|
||||
122 2 char = char - '0';
|
||||
123 2 else if char >= 'A' and char <= 'F' then
|
||||
124 2 char = char - 'A' + 10;
|
||||
else
|
||||
125 2 char = 255;
|
||||
126 2 return(char);
|
||||
127 2 end atohb;
|
||||
|
||||
128 1 atodb: procedure (char) byte public;/* convert ascii decimal to nibble value */
|
||||
129 2 declare char byte;
|
||||
130 2 if char >= '0' and char <= '9' then
|
||||
131 2 char = char - '0';
|
||||
else
|
||||
132 2 char = 255;
|
||||
133 2 return(char);
|
||||
134 2 end atodb;
|
||||
|
||||
135 1 atoi: procedure(str) word; /* convert ascii to 16 bit unsigned value */
|
||||
136 2 dcl str pointer;
|
||||
137 2 dcl (accum, temp) word;
|
||||
138 2 dcl (val, i, len) byte;
|
||||
139 2 dcl string based str (1) byte;
|
||||
140 2 i, accum = 0;
|
||||
141 2 if (len := findb(str, 'H', 5)) <> 0ffffh then /* hex conversion */
|
||||
142 2 do while (val := atohb(string(i))) <> 0ffh and i < len;
|
||||
143 3 accum = shl(accum, 4) + val;
|
||||
144 3 i = i + 1;
|
||||
145 3 end;
|
||||
else /* decimal is default base */
|
||||
146 2 do while (val := atodb(string(i))) <> 0ffh and i < 5;
|
||||
147 3 accum = 10 * accum + val;
|
||||
148 3 if i = 4 then
|
||||
149 3 temp = accum;
|
||||
150 3 i = i + 1;
|
||||
PL/M-86 COMPILER VCMODE.CMD - SET VIRTUAL CONSOLE BACKGROUND MODE PAGE 10
|
||||
|
||||
|
||||
151 3 end;
|
||||
152 2 if temp > accum then /* overflow */
|
||||
153 2 accum = 0ffffh;
|
||||
154 2 return(accum);
|
||||
155 2 end atoi;
|
||||
|
||||
156 1 compare: procedure(ustr, ostr, minlen, maxlen) boolean;
|
||||
157 2 dcl (ustr, ostr) pointer; /* user string, option string */
|
||||
158 2 dcl user$string based ustr (1) byte;
|
||||
159 2 dcl (minlen, maxlen) byte;
|
||||
160 2 dcl cmplen word;
|
||||
161 2 cmplen = cmpb(ustr, ostr, maxlen);
|
||||
162 2 if cmplen = 0ffffh or (user$string(cmplen) = ' ' and cmplen >= minlen) then
|
||||
163 2 return(true);
|
||||
164 2 if user$string(cmplen) = ' ' then
|
||||
165 2 do;
|
||||
166 3 call mon1(m$prt$buf, .(cr,lf,'Invalid Command Option.', cr ,lf, '$'));
|
||||
167 3 call help;
|
||||
168 3 end;
|
||||
169 2 return(false);
|
||||
170 2 end compare;
|
||||
|
||||
171 1 dcl vers address initial (0);
|
||||
172 1 dcl no$state lit '0ffh';
|
||||
173 1 dcl console byte;
|
||||
|
||||
/*
|
||||
Main Program
|
||||
*/
|
||||
|
||||
174 1 plmstart: procedure public;
|
||||
175 2 dcl option$ptr byte;
|
||||
176 2 dcl num word;
|
||||
177 2 vers = version;
|
||||
178 2 if (high(vers) <> ccpmproduct) then
|
||||
179 2 do;
|
||||
180 3 call print$console$buffer(.(cr,lf,'Requires Concurrent CP/M-86', cr, lf,
|
||||
'$'));
|
||||
181 3 call mon1(0,0);
|
||||
182 3 end;
|
||||
|
||||
183 2 sysdat$pointer, ccb$pointer = mon4(m$sysdat, 0); /* system data segment */
|
||||
184 2 ccb$ptr.offset = sd.ccb + (console := mon2(m$getcns, 0)) * size(ccb);
|
||||
|
||||
185 2 call read$change$mxq; /* MXQ is written in kernel terminate code */
|
||||
186 2 if (ccb.state and csm$background) <> 0 then
|
||||
187 2 call mon1(m$prt$buf, .(cr,lf,'Virtual Console not in foreground', cr, lf,
|
||||
'$'));
|
||||
188 2 else if buff(0) = 0 then
|
||||
189 2 call show$state(.('is$')); /* show current state */
|
||||
else /* try to set state or show help message */
|
||||
190 2 do;
|
||||
191 3 fcb(f$type) = ' ';
|
||||
192 3 if compare(@fcb(f$name), @('BUFFERED'), 1, 8) then
|
||||
193 3 ccb.state = ccb.state or csm$buffered;
|
||||
194 3 else if compare(@fcb(f$name), @('DYNAMIC'), 1, 7) then
|
||||
195 3 ccb.state = ccb.state and not double(csm$buffered);
|
||||
PL/M-86 COMPILER VCMODE.CMD - SET VIRTUAL CONSOLE BACKGROUND MODE PAGE 11
|
||||
|
||||
|
||||
196 3 else if compare(@fcb(f$name), @('HELP'), 1, 4) then
|
||||
197 3 call help;
|
||||
198 3 else if compare(@fcb(f$name), @('SIZE'), 1, 4) then /* change to 2,4 */
|
||||
199 3 do; /* when suspend is put back in */
|
||||
200 4 num = atoi(@fcb(f$name2));
|
||||
201 4 if num > 0 and num < 2000H then
|
||||
202 4 ccb.maxbufsiz = num; /* limit size to 16 bit record count */
|
||||
else
|
||||
203 4 do;
|
||||
204 5 call mon1(m$prt$buf, .(cr,lf,'File size out of range', cr ,lf, '$'));
|
||||
205 5 call help;
|
||||
206 5 end;
|
||||
207 4 ccb.state = ccb.state or csm$buffered;
|
||||
/* automatically sets to buffered */
|
||||
208 4 end;
|
||||
else
|
||||
209 3 do;
|
||||
210 4 call mon1(m$prt$buf, .(cr,lf,'Invalid Command Option.', cr ,lf, '$'));
|
||||
211 4 call help;
|
||||
212 4 end;
|
||||
213 3 call show$state(.('set to$'));
|
||||
214 3 end;
|
||||
215 2 call terminate;
|
||||
|
||||
216 2 end plmstart;
|
||||
217 1 end vcmode;
|
||||
PL/M-86 COMPILER VCMODE.CMD - SET VIRTUAL CONSOLE BACKGROUND MODE PAGE 12
|
||||
|
||||
|
||||
CROSS-REFERENCE LISTING
|
||||
-----------------------
|
||||
|
||||
|
||||
DEFN ADDR SIZE NAME, ATTRIBUTES, AND REFERENCES
|
||||
----- ------ ----- --------------------------------
|
||||
|
||||
|
||||
137 001EH 2 ACCUM. . . . . . . WORD 140 143 147 149 152 153 154
|
||||
128 01F2H 32 ATODB. . . . . . . PROCEDURE BYTE PUBLIC STACK=0004H 146
|
||||
119 01BEH 52 ATOHB. . . . . . . PROCEDURE BYTE PUBLIC STACK=0004H 142
|
||||
135 0212H 215 ATOI . . . . . . . PROCEDURE WORD STACK=000CH 200
|
||||
21 0000H 2 ATTACH . . . . . . WORD MEMBER(CCB)
|
||||
23 BDOSVERSION. . . . LITERALLY
|
||||
2 BOOLEAN. . . . . . LITERALLY 59 156
|
||||
21 000CH 1 BTMP . . . . . . . BYTE MEMBER(CCB)
|
||||
7 0000H 1 BUFF . . . . . . . BYTE ARRAY(1) EXTERNAL(1) 188
|
||||
42 0004H 2 BUFFERADDRESS. . . WORD PARAMETER AUTOMATIC 43 44
|
||||
110 0006H 2 BUFFPTR. . . . . . WORD MEMBER(QPB)
|
||||
10 0054H 2 CCB. . . . . . . . WORD MEMBER(SD) 184
|
||||
21 0000H 44 CCB. . . . . . . . STRUCTURE BASED(CCBPOINTER) 90 95 112 116 184 186 193
|
||||
195 202 207
|
||||
19 0008H 2 CCB. . . . . . . . WORD MEMBER(XINIT)
|
||||
12 0004H 4 CCBPOINTER . . . . POINTER 13 21 90 95 112 116 183 186 193 195 202
|
||||
207
|
||||
13 0004H 4 CCBPTR . . . . . . STRUCTURE AT 184
|
||||
14 CCBSTRUCTURE . . . LITERALLY 21
|
||||
15 CCBTAIL1 . . . . . LITERALLY 21
|
||||
16 CCBTAIL2 . . . . . LITERALLY 21
|
||||
22 CCPMPRODUCT. . . . LITERALLY 178
|
||||
17 CFBUFP . . . . . . LITERALLY
|
||||
17 CFCOMPC. . . . . . LITERALLY
|
||||
17 CFCONOUT . . . . . LITERALLY
|
||||
17 CFLISTCP . . . . . LITERALLY
|
||||
17 CFSWITCHS. . . . . LITERALLY
|
||||
17 CFVOUT . . . . . . LITERALLY
|
||||
119 0004H 1 CHAR . . . . . . . BYTE PARAMETER AUTOMATIC 120 121 122 123 124 125 126
|
||||
38 0004H 1 CHAR . . . . . . . BYTE PARAMETER AUTOMATIC 39 40
|
||||
128 0004H 1 CHAR . . . . . . . BYTE PARAMETER AUTOMATIC 129 130 131 132 133
|
||||
10 0090H 1 CMOD . . . . . . . BYTE MEMBER(SD)
|
||||
CMPB . . . . . . . BUILTIN 161
|
||||
160 0022H 2 CMPLEN . . . . . . WORD 161 162 164
|
||||
21 0006H 1 COLUMN . . . . . . BYTE MEMBER(CCB)
|
||||
156 02E9H 111 COMPARE. . . . . . PROCEDURE BYTE STACK=001CH 192 194 196 198
|
||||
173 002CH 1 CONSOLE. . . . . . BYTE 87 184
|
||||
21 0022H 2 COSLEEP. . . . . . WORD MEMBER(CCB)
|
||||
2 CR . . . . . . . . LITERALLY 73 74 75 76 77 78 79 80 81 86 94
|
||||
98 166 180 187 204 210
|
||||
18 CSMABORT . . . . . LITERALLY
|
||||
18 CSMBACKGROUND. . . LITERALLY 186
|
||||
18 CSMBUFFERED. . . . LITERALLY 90 193 195 207
|
||||
18 CSMCTRLO . . . . . LITERALLY
|
||||
18 CSMCTRLP . . . . . LITERALLY
|
||||
18 CSMCTRLS . . . . . LITERALLY
|
||||
18 CSMFILEFULL. . . . LITERALLY
|
||||
18 CSMNOSWITCH. . . . LITERALLY
|
||||
18 CSMPURGING . . . . LITERALLY
|
||||
PL/M-86 COMPILER VCMODE.CMD - SET VIRTUAL CONSOLE BACKGROUND MODE PAGE 13
|
||||
|
||||
|
||||
18 CSMSUSPEND . . . . LITERALLY
|
||||
2 CTRLC. . . . . . . LITERALLY
|
||||
59 0028H 1 D. . . . . . . . . BYTE 61 64 68
|
||||
10 004FH 1 DAYFILE. . . . . . BYTE MEMBER(SD)
|
||||
2 DCL. . . . . . . . LITERALLY
|
||||
5 DISKMAPLEN . . . . LITERALLY
|
||||
10 006AH 2 DLR. . . . . . . . WORD MEMBER(SD)
|
||||
19 0002H 1 DOOR . . . . . . . BYTE MEMBER(XINIT)
|
||||
DOUBLE . . . . . . BUILTIN 195
|
||||
10 006CH 2 DRL. . . . . . . . WORD MEMBER(SD)
|
||||
10 0044H 2 ENDSEG . . . . . . WORD MEMBER(SD)
|
||||
2 FALSE. . . . . . . LITERALLY 67 169
|
||||
5 FARC . . . . . . . LITERALLY
|
||||
6 0000H 1 FCB. . . . . . . . BYTE ARRAY(1) EXTERNAL(0) 191 192 194 196 198 200
|
||||
5 FCR. . . . . . . . LITERALLY
|
||||
5 FDIRSYS. . . . . . LITERALLY
|
||||
5 FDISKMAP . . . . . LITERALLY
|
||||
5 FDRVUSR. . . . . . LITERALLY
|
||||
5 FDRVUSR2 . . . . . LITERALLY
|
||||
5 FEX. . . . . . . . LITERALLY
|
||||
2 FF . . . . . . . . LITERALLY
|
||||
FINDB. . . . . . . BUILTIN 141
|
||||
21 0004H 1 FLAG . . . . . . . BYTE MEMBER(CCB)
|
||||
10 0056H 2 FLAGS. . . . . . . WORD MEMBER(SD)
|
||||
110 0000H 1 FLGS . . . . . . . BYTE MEMBER(QPB)
|
||||
5 FNAME. . . . . . . LITERALLY 192 194 196 198
|
||||
5 FNAME2 . . . . . . LITERALLY 200
|
||||
5 FNAMELEN . . . . . LITERALLY
|
||||
2 FOREVER. . . . . . LITERALLY
|
||||
5 FRC. . . . . . . . LITERALLY
|
||||
5 FRREC. . . . . . . LITERALLY
|
||||
5 FRRECO . . . . . . LITERALLY
|
||||
5 FRW. . . . . . . . LITERALLY
|
||||
5 FS1. . . . . . . . LITERALLY
|
||||
5 FTYPE. . . . . . . LITERALLY 191
|
||||
5 FTYPE2 . . . . . . LITERALLY
|
||||
5 FTYPELEN . . . . . LITERALLY
|
||||
32 0000H 1 FUNC . . . . . . . BYTE PARAMETER 33
|
||||
35 0000H 1 FUNC . . . . . . . BYTE PARAMETER 36
|
||||
28 0000H 1 FUNC . . . . . . . BYTE PARAMETER 29
|
||||
24 0000H 1 FUNC . . . . . . . BYTE PARAMETER 25
|
||||
52 0043H 15 GETCONSOLENUMBER . PROCEDURE BYTE STACK=0008H
|
||||
72 00B3H 98 HELP . . . . . . . PROCEDURE STACK=000CH 167 197 205 211
|
||||
HIGH . . . . . . . BUILTIN 178
|
||||
138 002AH 1 I. . . . . . . . . BYTE 140 142 144 146 148 150
|
||||
35 0000H 2 INFO . . . . . . . WORD PARAMETER 36
|
||||
32 0000H 2 INFO . . . . . . . WORD PARAMETER 33
|
||||
28 0000H 2 INFO . . . . . . . WORD PARAMETER 30
|
||||
24 0000H 2 INFO . . . . . . . WORD PARAMETER 26
|
||||
19 000AH 2 LCB. . . . . . . . WORD MEMBER(XINIT)
|
||||
10 0086H 4 LCB. . . . . . . . WORD ARRAY(2) MEMBER(SD)
|
||||
20 LCBSTRUCTURE . . . LITERALLY
|
||||
10 008AH 1 LCKMAX . . . . . . BYTE MEMBER(SD)
|
||||
138 002BH 1 LEN. . . . . . . . BYTE 141 142
|
||||
2 LF . . . . . . . . LITERALLY 73 74 75 76 77 78 79 80 81 86 94
|
||||
98 166 180 187 204 210
|
||||
2 LIT. . . . . . . . LITERALLY 2 3 4 5 14 15 16 17 18 19 20
|
||||
PL/M-86 COMPILER VCMODE.CMD - SET VIRTUAL CONSOLE BACKGROUND MODE PAGE 14
|
||||
|
||||
|
||||
22 23 100 101 102 103 104 105 106 107 108 109 172
|
||||
10 0052H 2 LUL. . . . . . . . WORD MEMBER(SD)
|
||||
3 MABORT . . . . . . LITERALLY
|
||||
10 0076H 2 MAL. . . . . . . . WORD MEMBER(SD)
|
||||
3 MATTACH. . . . . . LITERALLY
|
||||
21 0010H 2 MAXBUFSIZ. . . . . WORD MEMBER(CCB) 95 202
|
||||
156 0004H 1 MAXLEN . . . . . . BYTE PARAMETER AUTOMATIC 159 161
|
||||
3 MCLOSEF. . . . . . LITERALLY
|
||||
3 MCREADQ. . . . . . LITERALLY
|
||||
3 MCURDSK. . . . . . LITERALLY
|
||||
3 MCWRITEQ . . . . . LITERALLY
|
||||
3 MDELAY . . . . . . LITERALLY
|
||||
3 MDELETEF . . . . . LITERALLY
|
||||
3 MDELETEQ . . . . . LITERALLY
|
||||
3 MDETACH. . . . . . LITERALLY
|
||||
3 MDIRBIOS . . . . . LITERALLY
|
||||
3 MDISPATCH. . . . . LITERALLY
|
||||
10 0058H 2 MDUL . . . . . . . WORD MEMBER(SD)
|
||||
3 MERRMODE . . . . . LITERALLY
|
||||
10 005AH 2 MFL. . . . . . . . WORD MEMBER(SD)
|
||||
3 MGETCNS. . . . . . LITERALLY 184
|
||||
3 MGETLOGIN. . . . . LITERALLY
|
||||
3 MGETPD . . . . . . LITERALLY
|
||||
21 0008H 1 MIMIC. . . . . . . BYTE MEMBER(CCB)
|
||||
156 0006H 1 MINLEN . . . . . . BYTE PARAMETER AUTOMATIC 159 162
|
||||
4 MISLEEP. . . . . . LITERALLY
|
||||
4 MIWAKEUP . . . . . LITERALLY
|
||||
3 MMAKEF . . . . . . LITERALLY
|
||||
3 MMAKEQ . . . . . . LITERALLY
|
||||
10 004CH 2 MMP. . . . . . . . WORD MEMBER(SD)
|
||||
10 0046H 1 MODULEMAP. . . . . BYTE MEMBER(SD)
|
||||
24 0000H MON1 . . . . . . . PROCEDURE EXTERNAL(2) STACK=0000H 40 44 50 73 74 75
|
||||
76 77 78 79 80 81 86 89 92 94 96 98 113 117
|
||||
166 181 187 204 210
|
||||
28 0000H MON2 . . . . . . . PROCEDURE BYTE EXTERNAL(3) STACK=0000H 53 184
|
||||
32 0000H MON3 . . . . . . . PROCEDURE WORD EXTERNAL(4) STACK=0000H 47
|
||||
35 0000H MON4 . . . . . . . PROCEDURE POINTER EXTERNAL(5) STACK=0000H 183
|
||||
3 MOPENF . . . . . . LITERALLY
|
||||
3 MOPENQ . . . . . . LITERALLY
|
||||
3 MPARSE . . . . . . LITERALLY
|
||||
10 0040H 2 MPMSEG . . . . . . WORD MEMBER(SD)
|
||||
10 007CH 2 MPMVERNUM. . . . . WORD MEMBER(SD)
|
||||
3 MPRTBUF. . . . . . LITERALLY 73 74 75 76 77 78 79 80 81 86 89
|
||||
92 94 96 98 166 187 204 210
|
||||
3 MREADF . . . . . . LITERALLY
|
||||
3 MREADQ . . . . . . LITERALLY 113
|
||||
3 MREADRF. . . . . . LITERALLY
|
||||
3 MRESETDRV. . . . . LITERALLY
|
||||
3 MSELECT. . . . . . LITERALLY
|
||||
3 MSETATT. . . . . . LITERALLY
|
||||
3 MSETCNS. . . . . . LITERALLY
|
||||
3 MSETDMA. . . . . . LITERALLY
|
||||
3 MSETPRIOR. . . . . LITERALLY
|
||||
3 MSETUSR. . . . . . LITERALLY
|
||||
21 0009H 1 MSOURCE. . . . . . BYTE MEMBER(CCB)
|
||||
3 MSYSDAT. . . . . . LITERALLY 183
|
||||
3 MWRITEF. . . . . . LITERALLY
|
||||
PL/M-86 COMPILER VCMODE.CMD - SET VIRTUAL CONSOLE BACKGROUND MODE PAGE 15
|
||||
|
||||
|
||||
3 MWRITEQ. . . . . . LITERALLY 117
|
||||
3 MWRITERF . . . . . LITERALLY
|
||||
110 0008H 8 NAME . . . . . . . BYTE ARRAY(8) MEMBER(QPB)
|
||||
10 0049H 1 NCCB . . . . . . . BYTE MEMBER(SD)
|
||||
19 0006H 1 NCCB . . . . . . . BYTE MEMBER(XINIT)
|
||||
21 0007H 1 NCHAR. . . . . . . BYTE MEMBER(CCB)
|
||||
10 0085H 1 NCIODEV. . . . . . BYTE MEMBER(SD)
|
||||
10 0047H 1 NCNS . . . . . . . BYTE MEMBER(SD)
|
||||
10 0083H 1 NCONDEV. . . . . . BYTE MEMBER(SD)
|
||||
110 0001H 1 NET. . . . . . . . BYTE MEMBER(QPB)
|
||||
10 004AH 1 NFLAGS . . . . . . BYTE MEMBER(SD)
|
||||
19 0007H 1 NLST . . . . . . . BYTE MEMBER(XINIT)
|
||||
10 0048H 1 NLST . . . . . . . BYTE MEMBER(SD)
|
||||
10 0084H 1 NLSTDEV. . . . . . BYTE MEMBER(SD)
|
||||
110 0004H 2 NMSGS. . . . . . . WORD MEMBER(QPB)
|
||||
2 NO . . . . . . . . LITERALLY
|
||||
2 NOPAGEMODEOFFSET . LITERALLY
|
||||
172 NOSTATE. . . . . . LITERALLY
|
||||
10 004EH 1 NSLAVES. . . . . . BYTE MEMBER(SD)
|
||||
176 0026H 2 NUM. . . . . . . . WORD 200 201 202
|
||||
19 0005H 1 NVCNS. . . . . . . BYTE MEMBER(XINIT)
|
||||
9 0000H 2 OFFSET . . . . . . WORD MEMBER(SYSDATPTR)
|
||||
19 0000H 2 OFFSET . . . . . . WORD MEMBER(XINITPTR)
|
||||
13 0000H 2 OFFSET . . . . . . WORD MEMBER(CCBPTR) 184
|
||||
10 008BH 1 OPMAX. . . . . . . BYTE MEMBER(SD)
|
||||
175 002DH 1 OPTIONPTR. . . . . BYTE
|
||||
156 0008H 4 OSTR . . . . . . . POINTER PARAMETER AUTOMATIC 157 161
|
||||
2 PAGELENOFFSET. . . LITERALLY
|
||||
21 000AH 1 PC . . . . . . . . BYTE MEMBER(CCB)
|
||||
58 005DH 86 PDECIMAL . . . . . PROCEDURE PUBLIC STACK=0018H 87 95
|
||||
174 0358H 336 PLMSTART . . . . . PROCEDURE PUBLIC STACK=0022H
|
||||
10 006EH 2 PLR. . . . . . . . WORD MEMBER(SD)
|
||||
58 0006H 2 PREC . . . . . . . WORD PARAMETER AUTOMATIC 59 60 61 62 63 64
|
||||
55 0052H 11 PRINTB . . . . . . PROCEDURE PUBLIC STACK=000EH 65 88
|
||||
38 0002H 19 PRINTCHAR. . . . . PROCEDURE STACK=000AH 56 68
|
||||
42 0015H 16 PRINTCONSOLEBUFFER PROCEDURE STACK=000AH 180
|
||||
10 005CH 2 PUL. . . . . . . . WORD MEMBER(SD)
|
||||
110 0002H 2 QADDR. . . . . . . WORD MEMBER(QPB) 112 116
|
||||
21 0020H 2 QBUFF. . . . . . . WORD MEMBER(CCB)
|
||||
101 QDSTRUCTURE. . . . LITERALLY
|
||||
108 QFDEV. . . . . . . LITERALLY
|
||||
104 QFHIDE . . . . . . LITERALLY
|
||||
103 QFKEEP . . . . . . LITERALLY
|
||||
102 QFMX . . . . . . . LITERALLY
|
||||
107 QFRPL. . . . . . . LITERALLY
|
||||
105 QFRSP. . . . . . . LITERALLY
|
||||
106 QFTABLE. . . . . . LITERALLY
|
||||
10 0074H 2 QLR. . . . . . . . WORD MEMBER(SD)
|
||||
10 0060H 8 QMAU . . . . . . . WORD ARRAY(4) MEMBER(SD)
|
||||
100 QNAMSIZ. . . . . . LITERALLY 110
|
||||
110 000EH 16 QPB. . . . . . . . STRUCTURE 112 113 116 117
|
||||
21 001EH 2 QPBBUFFPTR . . . . WORD MEMBER(CCB)
|
||||
21 0018H 1 QPBFLAGS . . . . . BYTE MEMBER(CCB)
|
||||
21 001CH 2 QPBNMSGS . . . . . WORD MEMBER(CCB)
|
||||
21 001AH 2 QPBQADDR . . . . . WORD MEMBER(CCB)
|
||||
21 0019H 1 QPBRESRVD. . . . . BYTE MEMBER(CCB)
|
||||
109 QPBSTRUCTURE . . . LITERALLY 110
|
||||
PL/M-86 COMPILER VCMODE.CMD - SET VIRTUAL CONSOLE BACKGROUND MODE PAGE 16
|
||||
|
||||
|
||||
21 0002H 2 QUEUE. . . . . . . WORD MEMBER(CCB)
|
||||
10 005EH 2 QUL. . . . . . . . WORD MEMBER(SD)
|
||||
21 0028H 2 R1 . . . . . . . . WORD MEMBER(CCB)
|
||||
21 002AH 2 R2 . . . . . . . . WORD MEMBER(CCB)
|
||||
111 018AH 26 READCHANGEMXQ. . . PROCEDURE STACK=0008H 185
|
||||
21 000DH 1 RESERVD. . . . . . BYTE MEMBER(CCB)
|
||||
19 0003H 2 RESRVD1. . . . . . BYTE ARRAY(2) MEMBER(XINIT)
|
||||
10 0068H 2 RLR. . . . . . . . WORD MEMBER(SD)
|
||||
10 0042H 2 RSPSEG . . . . . . WORD MEMBER(SD)
|
||||
10 0000H 145 SD . . . . . . . . STRUCTURE BASED(SYSDATPOINTER) 184
|
||||
11 0000H 1 SDBYTE . . . . . . BYTE BASED(SYSDATPOINTER) ARRAY(1)
|
||||
2 SECTORLEN. . . . . LITERALLY
|
||||
19 0002H 2 SEGMENT. . . . . . WORD MEMBER(XINITPTR)
|
||||
13 0002H 2 SEGMENT. . . . . . WORD MEMBER(CCBPTR)
|
||||
9 0002H 2 SEGMENT. . . . . . WORD MEMBER(SYSDATPTR)
|
||||
SHL. . . . . . . . BUILTIN 143
|
||||
84 0115H 117 SHOWSTATE. . . . . PROCEDURE STACK=001EH 189 213
|
||||
SIZE . . . . . . . BUILTIN 184
|
||||
10 0070H 2 SLR. . . . . . . . WORD MEMBER(SD)
|
||||
10 0008H 56 SPACE. . . . . . . WORD ARRAY(28) MEMBER(SD)
|
||||
10 004BH 1 SRCHDISK . . . . . BYTE MEMBER(SD)
|
||||
21 0005H 1 STARTCOL . . . . . BYTE MEMBER(CCB)
|
||||
21 000EH 2 STATE. . . . . . . WORD MEMBER(CCB) 90 186 193 195 207
|
||||
85 000CH 2 STATE. . . . . . . WORD 90 91
|
||||
135 0004H 4 STR. . . . . . . . POINTER PARAMETER AUTOMATIC 136 139 141 142 146
|
||||
139 0000H 1 STRING . . . . . . BYTE BASED(STR) ARRAY(1) 142 146
|
||||
10 0000H 8 SUPMOD . . . . . . WORD ARRAY(4) MEMBER(SD)
|
||||
8 0000H 4 SYSDATPOINTER. . . POINTER 9 10 11 183 184
|
||||
9 0000H 4 SYSDATPTR. . . . . STRUCTURE AT
|
||||
10 008CH 4 SYSLTOT. . . . . . WORD ARRAY(2) MEMBER(SD)
|
||||
2 TAB. . . . . . . . LITERALLY 73 74 75 76 77 78 79 80
|
||||
137 0020H 2 TEMP . . . . . . . WORD 149 152
|
||||
10 0050H 1 TEMPDISK . . . . . BYTE MEMBER(SD)
|
||||
49 0034H 15 TERMINATE. . . . . PROCEDURE STACK=0008H 82 215
|
||||
10 0072H 2 THRDRT . . . . . . WORD MEMBER(SD)
|
||||
19 0000H 1 TICK . . . . . . . BYTE MEMBER(XINIT)
|
||||
10 0051H 1 TICKSPERSEC. . . . BYTE MEMBER(SD)
|
||||
19 0001H 1 TICKSSEC . . . . . BYTE MEMBER(XINIT)
|
||||
10 007EH 4 TOD. . . . . . . . WORD ARRAY(2) MEMBER(SD)
|
||||
10 0082H 1 TOD_SEC. . . . . . BYTE MEMBER(SD)
|
||||
2 TRUE . . . . . . . LITERALLY 87 95 163
|
||||
158 0000H 1 USERSTRING . . . . BYTE BASED(USTR) ARRAY(1) 162 164
|
||||
21 0024H 2 USLEEP . . . . . . WORD MEMBER(CCB)
|
||||
156 000CH 4 USTR . . . . . . . POINTER PARAMETER AUTOMATIC 157 158 161 162 164
|
||||
58 0008H 2 V. . . . . . . . . WORD PARAMETER AUTOMATIC 59 61 62
|
||||
138 0029H 1 VAL. . . . . . . . BYTE 142 143 146 147
|
||||
21 000BH 1 VC . . . . . . . . BYTE MEMBER(CCB)
|
||||
1 0002H VCMODE . . . . . . PROCEDURE STACK=0000H
|
||||
21 0016H 2 VCMXQ. . . . . . . WORD MEMBER(CCB) 112 116
|
||||
84 0004H 2 VERB . . . . . . . WORD PARAMETER AUTOMATIC 85 89
|
||||
10 007AH 2 VERNUM . . . . . . WORD MEMBER(SD)
|
||||
171 0024H 2 VERS . . . . . . . WORD INITIAL 177 178
|
||||
10 0078H 2 VERSION. . . . . . WORD MEMBER(SD)
|
||||
46 0025H 15 VERSION. . . . . . PROCEDURE WORD STACK=0008H 177
|
||||
21 0012H 2 VINQ . . . . . . . WORD MEMBER(CCB)
|
||||
21 0014H 2 VOUTQ. . . . . . . WORD MEMBER(CCB)
|
||||
21 0026H 2 VSLEEP . . . . . . WORD MEMBER(CCB)
|
||||
PL/M-86 COMPILER VCMODE.CMD - SET VIRTUAL CONSOLE BACKGROUND MODE PAGE 17
|
||||
|
||||
|
||||
115 01A4H 26 WRITECHANGEMXQ . . PROCEDURE STACK=0008H
|
||||
19 0000H 12 XINIT. . . . . . . STRUCTURE BASED(XINITPOINTER)
|
||||
19 XINITOFFSET. . . . LITERALLY
|
||||
19 0008H 4 XINITPOINTER . . . POINTER 19
|
||||
19 0008H 4 XINITPTR . . . . . STRUCTURE AT
|
||||
58 0004H 1 ZEROSUP. . . . . . BYTE PARAMETER AUTOMATIC 59 64 67
|
||||
|
||||
|
||||
|
||||
MODULE INFORMATION:
|
||||
|
||||
CODE AREA SIZE = 04A8H 1192D
|
||||
CONSTANT AREA SIZE = 024CH 588D
|
||||
VARIABLE AREA SIZE = 002EH 46D
|
||||
MAXIMUM STACK SIZE = 0022H 34D
|
||||
590 LINES READ
|
||||
0 PROGRAM ERROR(S)
|
||||
|
||||
END OF PL/M-86 COMPILATION
|
||||
Reference in New Issue
Block a user