home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_27_1988_Transactor_Publishing.d64 / shellram.sda / C$GETCHAR.A < prev    next >
Text File  |  2023-02-26  |  2KB  |  127 lines
  1. ;
  2. ; shellram
  3. ;
  4. ;  By: Adrian Pepper
  5. ;      Toronto, Ontario
  6. ;
  7. ;  based on, but heavily modified from
  8. ;  the Pro-Line/Spinnaker
  9. ;    C POWER/POWER C shell for the
  10. ;  Commodore 64 home computer.
  11. ;
  12. ;  The shell was modified to reduce
  13. ;  the size of the code, and arrange
  14. ;  things so memory page 22 (hex $16)
  15. ;  will be free for use as a "RAMdisk
  16. ;  Interface Page", for use with the
  17. ;  Commodore 1764 256K RAM expander
  18. ;  for the Commodore 64
  19. ;
  20. ;  This (basically) allows all programs
  21. ;  designed to run under the shell to
  22. ;  operate with the RAM disk
  23. ;
  24. ;
  25. ; c$getchar.a
  26. ;
  27. ;  This implements the C library routines
  28. ; c$2102, C$1102, c$funct{CBM-@}init and
  29. ; c$getchar
  30. ;
  31. ;  They must be in the shell to save
  32. ; space.  It would be nice to be able to
  33. ; link in the versions from the distribution
  34. ; library disk, but several problems
  35. ; prevent this, so these versions are
  36. ; provided here.
  37. ;
  38.  .ref fstatbl
  39.  .ref cgetcnt
  40.  .ref cgetlim
  41. ;
  42.  .ref readst
  43.  .ref chrin
  44.  .ref chrout
  45. ; 
  46.  .def c$2102
  47.  .def c$1102
  48.  .def c$funct{CBM-@}init
  49.  .def c$getchar
  50. ;
  51.  .ref cgetcbf  ; must be forced above the $1600 to $16ff address page
  52. ;
  53. ;
  54. ; c$2102 - push 0 onto C stack
  55. ; 
  56. c$2102 lda #0
  57. ;
  58. ; c$1102 - push a onto C stack
  59. ;
  60. c$1102 ldy #0
  61.  sta ($1a),y
  62.  inc $1a
  63.  bne t0090f
  64.  inc $1b
  65. t0090f rts
  66. ;
  67.  
  68. ; c$funct{CBM-@}init - do c function init
  69. ;
  70. c$funct{CBM-@}init lda  $1a
  71.  bne t0150f
  72.  dec $1b
  73. t0150f dec $1a
  74.  ldy #$00
  75.  lda ($1a),y
  76.  tax
  77.  rts
  78. ;
  79. ; c$getchar - do getc for c
  80. ;
  81. c$getchar tay
  82.  dey
  83.  lda fstatbl,y
  84.  beq t0100f
  85.  sec
  86.  rts
  87. t0100f lda  $99
  88.  beq t0110f
  89.  jsr chrin
  90.  pha
  91.  jsr readst
  92.  sta fstatbl,y
  93.  pla
  94.  clc
  95.  rts
  96. t0110f ldx cgetcnt
  97.  cpx cgetlim
  98.  bne t0140f
  99.  sty vcgetfn
  100.  tay
  101. t0120b jsr chrin
  102.  sta cgetcbf,y
  103.  iny
  104.  cmp #$0d
  105.  bne t0120b
  106.  jsr chrout
  107.  sty cgetlim
  108.  sty cgetcnt
  109.  lda cgetcbf
  110.  cmp #'.
  111.  bne t0130f
  112.  lda cgetcbf+1
  113.  cmp #$0d
  114.  bne t0130f
  115.  ldy vcgetfn
  116.  lda #$01
  117.  sta fstatbl,y
  118.  sec
  119.  rts
  120. t0130f ldx #0
  121.  stx cgetcnt
  122. t0140f lda cgetcbf,x
  123.  inc cgetcnt
  124.  clc
  125.  rts
  126. vcgetfn .bss 1
  127.