home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / mer128.arc / GETERR < prev    next >
Encoding:
Text File  |  1993-04-15  |  455 b   |  20 lines

  1. *-------------------------------------
  2. *árOUTINEáTOáGETáERRORáMESSAGEáFROM
  3. *áCURRENTáDISKáDRIVEá(DEVICEá#áASSUMED
  4. *áTOáBEáINáfa)áANDáPRINTáITáTOáSCREEN.
  5. *-------------------------------------
  6.  
  7. geterr jsr clrchn ;sETáSTANDARDáIN/OUTáCHANNELS
  8.  lda fa ;$ba
  9.  jsr talk ;cOMMANDáDEVICEáTOáTALK
  10.  lda #$6f ;cHANNELá15
  11.  sta sa ;$b9
  12.  jsr tksa
  13.  lda #$d ;sETáFORáINITIALácr
  14. errloop jsr chrout
  15.  jsr acptr
  16.  cmp #$d
  17.  bne errloop
  18.  jsr chrout ;dOácr
  19.  jmp untlk ;áANDáEXIT
  20.