mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-24 17:04:19 +00:00
44 lines
1.5 KiB
Plaintext
44 lines
1.5 KiB
Plaintext
$title ('TEXT MODULE')
|
||
text:
|
||
do;
|
||
$include (:f1:macro.lit)
|
||
|
||
/*
|
||
|
||
modified 3/28/81 R. Silberstein
|
||
modified 3/30/81 R. Silberstein
|
||
modified 4/8/81 R. Silberstein
|
||
modified 4/15/81 R. Silberstein
|
||
modified 7/24/81 R. Silberstein
|
||
|
||
*/
|
||
|
||
/* Bytes to define "yes" and "no": */
|
||
|
||
dcl yes byte public data ('Y'),
|
||
no byte public data ('N');
|
||
|
||
|
||
/* Text strings: */
|
||
|
||
dcl
|
||
initials(*) byte public data('CP/M ASM86 1.1 SOURCE: ',0),
|
||
pagetext(*) byte public data(' PAGE',0),
|
||
endtext(*) byte public data('END OF ASSEMBLY. ',
|
||
'NUMBER OF ERRORS: ',0),
|
||
USEFACTOR (*) BYTE PUBLIC DATA ('. USE FACTOR: ',0),
|
||
asm86text(*) byte public data(cr,lf,'CP/M 8086 ASSEMBLER VER 1.1',
|
||
cr,lf,0),
|
||
parerrtext(*) byte public data(cr,lf,'PARAMETER ERROR',cr,lf,0),
|
||
openerrtext(*) byte public data(cr,lf,'NO FILE',0),
|
||
DISKREADERRTEXT (*) BYTE PUBLIC DATA (CR,LF,'DISK READ ERROR',0),
|
||
DISKWRITEERRTXT (*) BYTE PUBLIC DATA (CR,LF,'DISK FULL',0),
|
||
MAKEERRTEXT (*) BYTE PUBLIC DATA (CR,LF,'DIRECTORY FULL',0),
|
||
CLOSEERRTEXT (*) BYTE PUBLIC DATA (CR,LF,'CANNOT CLOSE',0),
|
||
SYMBFULLERRTEXT (*) BYTE PUBLIC DATA (CR,LF,'SYMBOL TABLE OVERFLOW',0),
|
||
usbreaktext(*) byte public data(cr,' USER BREAK. OK(Y/N)? ',0),
|
||
pass0text (*) byte public data('END OF PASS 1',cr,lf,0),
|
||
pass1text (*) byte public data('END OF PASS 2',cr,lf,0);
|
||
|
||
end$module text;
|
||
|