Subversion Repositories NedoOS

Rev

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

  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. zsystem equ true
  12. slrmac: equ true
  13. lasm:   equ not slrmac
  14.  
  15. trs80:  equ false       ;true if TRS-80 (org 4200h) version
  16.  
  17. alpha:  equ False       ;true for Alpha-C version
  18. marc:   equ false       ;true if MARC version
  19. cpm:    equ not marc    ;true if CPM version
  20.  
  21.         if not zsystem
  22. version: equ '6'        ;the 'x' in 'v1.x'
  23. updatn: equ 0           ;the `y' in `v1.xy'      (number)
  24. updaty: equ 0           ;the `z' in `v1.xyz', or zero if none (character)
  25.         endif
  26.  
  27.         if zsystem
  28. version: equ '2'        ;the 'x' in 'vZx.yz'
  29. updatn: equ 0           ;the `y' in `vZx.yz'     (number)
  30. updaty: equ 0           ;the `z' in `vZx.yz', or zero if none (character)
  31.         endif
  32.  
  33. debug:  equ false
  34. i80:    equ true
  35. i86:    equ false
  36.  
  37.  
  38.         IF LASM
  39.         sym
  40.         ENDIF
  41.  
  42.  
  43. ram:    equ 0           ;start of ram area (either 0 or 4200h) for compiler
  44.  
  45. cr:     equ 0dh
  46. lf:     equ 0ah
  47.  
  48.         IF CPM
  49. bdos:   equ ram+5
  50. NEDOOSMEMTOP=0xff00;bdosp:      equ ram+6
  51. fcb:    equ ram+5ch
  52. nr:     equ fcb+32
  53.         ENDIF
  54.  
  55. tbuff:  equ ram+80h
  56. extbas: equ 0015h       ;external base pointer in C.CCC
  57.  
  58. fnlen:  equ 12
  59. nestmax: equ 5
  60.  
  61.  
  62.         IF CPM
  63. coninp:         equ 1
  64. conout:         equ 2
  65. readbuf:        equ 10
  66. intcon:         equ 11
  67. select:         equ 14
  68. openfil:        equ 15
  69. closefil:       equ 16
  70. delete:         equ 19
  71. rsequen:        equ 20
  72. wsequen:        equ 21
  73. makfil:         equ 22
  74. gdisk:          equ 25
  75. sdma:           equ 26
  76. sguser:         equ 32
  77.         ENDIF
  78.  
  79.        
  80.         IF SLRMAC
  81.         include cc2a.asm
  82.         include cc2b.asm
  83.         include cc2c.asm
  84.         include cc2d.asm
  85.         include cc2e.asm
  86.         ENDIF
  87.  
  88.         IF LASM
  89.         link cc2a.asm
  90.         ENDIF
  91.  
  92.         end
  93.