home *** CD-ROM | disk | FTP | other *** search
/ Tajemnice Atari 8 / Tajemnice_Atari_Nr_08_1992_Avalon_pl.atr / cls.asm < prev    next >
Assembly Source File  |  2023-02-26  |  612b  |  1 lines
  1. DOS    EQU %100000¢ERR    EQU %000101¢       OPT ERR+DOS¢¢READ   EQU 4¢WRITE  EQU 8¢OPEN   EQU 3¢EOL    EQU $9B¢IOCB   EQU $340¢IO_COM EQU IOCB+2¢IO_ADR EQU IOCB+4¢IO_MOD EQU IOCB+10¢CHN1   EQU $10¢CIOV   EQU $E456¢¢       ORG $480¢¢GR0    LDX #CHN1¢       LDA #OPEN¢       STA IO_COM,X¢       LDA <E¢       STA IO_ADR,X¢       LDA >E¢       STA IO_ADR+1,X¢       LDA #READ+WRITE¢       STA IO_MOD,X¢       JSR CIOV¢¢CLOSE  EQU 12¢¢       LDA #CLOSE¢       STA IO_COM,X¢       JSR CIOV¢¢DOSVEC EQU $0A¢RUNAD  EQU $2E0¢¢       JMP (DOSVEC)¢¢E      DTA C'E:',B(EOL)¢¢       ORG RUNAD¢       DTA A(GR0)¢¢       END¢