Subversion Repositories NedoOS

Rev

Rev 630 | Rev 922 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download

  1.         DEVICE ZXSPECTRUM128
  2.         include "../_sdk/sys_h.asm"
  3.         include "8080.asm"
  4.  
  5. ;
  6. ; Main source driver for CC2.ASM:
  7. ;
  8.  
  9.         ;page 76
  10.         ;title 'CC2.ASM v1.6  3/86'
  11.  
  12. true:   equ 0ffffh
  13. false:  equ not true
  14.  
  15. ZSYSTEM equ true
  16. SLRMAC: equ true;false
  17. LASM:   equ not SLRMAC
  18.  
  19. trs80:  equ false       ;true if TRS-80 (org 4200h) version
  20.  
  21. ALPHA:  equ false       ;true for Alpha-C version
  22. MARC:   equ false       ;true if MARC version
  23. CPM:    equ not MARC    ;true if CPM version
  24.  
  25.         if not ZSYSTEM
  26. version: equ '6'        ;the 'x' in 'v1.x'
  27. updatn: equ 0           ;the `y' in `v1.xy'      (number)
  28. updaty: equ 0           ;the `z' in `v1.xyz', or zero if none (character)
  29.         endif
  30.  
  31.         if ZSYSTEM
  32. version: equ '2'        ;the 'x' in 'vZx.yz'
  33. updatn: equ 0           ;the `y' in `vZx.yz'     (number)
  34. updaty: equ 0           ;the `z' in `vZx.yz', or zero if none (character)
  35.         endif
  36.  
  37. debug:  equ false
  38. I80:    equ true
  39. I86:    equ false
  40.  
  41.  
  42.         IF LASM
  43.         ;sym
  44.         ENDIF
  45.  
  46.  
  47. ram:    equ 0           ;start of ram area (either 0 or 4200h) for compiler
  48.  
  49. cr:     equ 0dh
  50. lf:     equ 0ah
  51.  
  52.         IF CPM
  53. bdos:   equ ram+5
  54. NEDOOSMEMTOP=0xff00;bdosp:      equ ram+6
  55. fcb:    equ ram+5ch
  56. nr:     equ fcb+32
  57.         ENDIF
  58.  
  59. tbuff:  equ ram+80h
  60. extbas: equ 0015h       ;external base pointer in C.CCC
  61.  
  62. fnlen:  equ 12
  63. nestmax: equ 5
  64.  
  65.  
  66.         IF CPM
  67. ;coninp:                equ 1
  68. ;conout:                equ 2
  69. ;readbuf:       equ 10
  70. ;intcon:                equ 11
  71. ;select:                equ 14
  72. openfil:        equ 15
  73. closefil:       equ 16
  74. delete:         equ 19
  75. rsequen:        equ 20
  76. wsequen:        equ 21
  77. makfil:         equ 22
  78. ;gdisk:         equ 25
  79. sdma:           equ 26
  80. ;sguser:                equ 32
  81.         ENDIF
  82.  
  83.         org PROGSTART;ram+100h  ;start of TPA
  84. begin  
  85.         ;IF SLRMAC
  86.         include cc2a.asm
  87.         include cc2b.asm
  88.         include cc2c.asm
  89.         include cc2d.asm
  90.         include cc2e.asm
  91.         ;ENDIF
  92.  
  93.         ;IF LASM
  94.         ;link cc2a.asm
  95.         ;ENDIF
  96.  
  97. end
  98.         savebin "cc2.com",begin,end-begin
  99.        
  100.         LABELSLIST "../../us/user.l"
  101.