?login_element?

Subversion Repositories NedoOS

Rev

Rev 630 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ;
  2. ; Main source driver for CC2.ASM:
  3. ;
  4.  
  5.         page 76
  6.         title 'CC2.ASM v1.6  3/86'
  7.  
  8. true:   equ 0ffffh
  9. false:  equ not true
  10.  
  11. slrmac: equ false
  12. lasm:   equ not slrmac
  13.  
  14. trs80:  equ false       ;true if TRS-80 (org 4200h) version
  15.  
  16. alpha:  equ False       ;true for Alpha-C version
  17. marc:   equ false       ;true if MARC version
  18. cpm:    equ not marc    ;true if CPM version
  19.  
  20. version: equ '6'        ;the 'x' in  1.xy (enclose in single quotes)
  21. update: equ '0'         ;the 'y' in 1.xy (in single quotes)
  22. debug:  equ false
  23. i80:    equ true
  24. i86:    equ false
  25.  
  26.  
  27.         IF LASM
  28.         sym
  29.         ENDIF
  30.  
  31.  
  32. ram:    equ 0           ;start of ram area (either 0 or 4200h) for compiler
  33.  
  34. cr:     equ 0dh
  35. lf:     equ 0ah
  36.  
  37.         IF CPM
  38. bdos:   equ ram+5
  39. NEDOOSMEMTOP=0xff00;bdosp:      equ ram+6
  40. fcb:    equ ram+5ch
  41. nr:     equ fcb+32
  42.         ENDIF
  43.  
  44. tbuff:  equ ram+80h
  45. extbas: equ 0015h       ;external base pointer in C.CCC
  46.  
  47. fnlen:  equ 12
  48. nestmax: equ 5
  49.  
  50.  
  51.         IF CPM
  52. coninp:         equ 1
  53. conout:         equ 2
  54. readbuf:        equ 10
  55. intcon:         equ 11
  56. select:         equ 14
  57. openfil:        equ 15
  58. closefil:       equ 16
  59. delete:         equ 19
  60. rsequen:        equ 20
  61. wsequen:        equ 21
  62. makfil:         equ 22
  63. gdisk:          equ 25
  64. sdma:           equ 26
  65. sguser:         equ 32
  66.         ENDIF
  67.  
  68.        
  69.         IF SLRMAC
  70.         include cc2a.asm
  71.         include cc2b.asm
  72.         include cc2c.asm
  73.         include cc2d.asm
  74.         include cc2e.asm
  75.         ENDIF
  76.  
  77.         IF LASM
  78.         link cc2a.asm
  79.         ENDIF
  80.  
  81.         end
  82.