home *** CD-ROM | disk | FTP | other *** search
- *-------------------------------------
- *árOUTINEáTOáGETáERRORáMESSAGEáFROM
- *áCURRENTáDISKáDRIVEá(DEVICEá#áASSUMED
- *áTOáBEáINáfa)áANDáPRINTáITáTOáSCREEN.
- *-------------------------------------
-
- geterr jsr clrchn ;sETáSTANDARDáIN/OUTáCHANNELS
- lda fa ;$ba
- jsr talk ;cOMMANDáDEVICEáTOáTALK
- lda #$6f ;cHANNELá15
- sta sa ;$b9
- jsr tksa
- lda #$d ;sETáFORáINITIALácr
- errloop jsr chrout
- jsr acptr
- cmp #$d
- bne errloop
- jsr chrout ;dOácr
- jmp untlk ;áANDáEXIT
-