v4.0/src/CMD/PRINT/PRINT_TM.ASM

   1         page    60,132
   2 ;                       $SALUT (4,25,30,41)
   3
   4                         INCLUDE pridefs.inc
   5
   6 BREAK                   <Transient Messages>
   7
   8 ;
   9 ;       DOS PRINT
  10 ;
  11 ;       Transient Service code
  12 ;
  13 ;       02/13/84        MAU     Fixed bug with BadCanMes
  14 ;
  15 ;       05/20/87        FJG     Change format to new Message Service
  16 ;                               Routines/Parse code
  17 ;
  18
  19
  20 addr                    macro sym,name
  21                         public name
  22                         ifidn <name>,<>
  23
  24                             dw   offset dg:sym
  25                         else
  26
  27 name                        dw   offset dg:sym
  28                         endif
  29                         endm
  30
  31
  32                         Code Segment public para
  33
  34                         PUBLIC SYSGETMSG, SYSLOADMSG, SYSDISPMSG
  35
  36                         ASSUME CS:DG,DS:nothing,ES:nothing,SS:Stack
  37
  38 ; include msgserv.asm
  39
  40                         .xlist
  41                         .xcref
  42                         MSG_SERVICES <MSGDATA>
  43                         MSG_SERVICES <NEARmsg,LOADmsg,GETmsg,DISPLAYmsg,INPUTmsg,CHARmsg>
  44                         .cref
  45                         .list
  46
  47 ; include message class 1, 2, A, B, C, and D
  48
  49                         .xlist
  50                         .xcref
  51                         MSG_SERVICES <NEARmsg,PRINT.CL1,PRINT.CL2>
  52                         MSG_SERVICES <NEARmsg,PRINT.CLA,PRINT.CLB,PRINT.CLC,PRINT.CLD>
  53                         .cref
  54                         .list
  55 ;  $SALUT (4,4,9,41)
  56
  57
  58 ;                       $SALUT (4,25,30,41)
  59 false                   =    0
  60
  61 DateSW                  equ  false
  62 TimeSW                  equ  false
  63 CmpxSW                  equ  false
  64 KeySW                   equ  false
  65 QusSW                   equ  false
  66 Val2SW                  equ  false
  67 Val3SW                  equ  false
  68
  69 ;  $SALUT (4,4,9,41)
  70
  71    PUBLIC SYSPARSE
  72
  73                                         ; include parse.asm
  74
  75                                         ;xlist
  76                                         ;xcref
  77    include parse.asm
  78                                         ;cref
  79                                         ;list
  80
  81    CODE ENDS
  82
  83    end
  84 \1a