home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / turbom2 / codetest.lbr / CTZ80.Z80 < prev   
Encoding:
Text File  |  1989-02-28  |  384 b   |  17 lines
  1. ; test of CODE in M2
  2.  
  3.     dw    end-start    ; indicate the size of the file to TM2
  4.  
  5. start:
  6.     jr    rstart        ; HL has (START)
  7.     DB    'CODETEST: demo of absolute data addressing$'
  8. rstart:
  9.     inc    hl
  10.     inc    hl        ; bypass JR
  11.     ex    de,hl
  12.     ld    hl,(6)        ; get BDOS
  13.     ld    c,9        ; print string service
  14.     jp    (hl)        ; let BDOS supply RET
  15.  
  16. end:    end
  17.