git.sur5r.net Git - cc65/blob - libsrc/geos-cbm/disk/putblock.s

   1
   2 ;
   3 ; Maciej 'YTM/Elysium' Witkowiak
   4 ;
   5 ; 21.12.1999, 2.1.2003
   6
   7 ; char PutBlock (struct tr_se *myTS, char *buffer);
   8
   9             .import popax, setoserror
  10             .import gettrse
  11             .export _PutBlock
  12
  13             .include "../inc/jumptab.inc"
  14             .include "../inc/geossym.inc"
  15
  16 _PutBlock:
  17         sta r4L
  18         stx r4H
  19         jsr popax
  20         jsr gettrse
  21         sta r1L
  22         stx r1H
  23         jsr PutBlock
  24         jmp setoserror