home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tajemnice Atari 8
/
Tajemnice_Atari_Nr_08_1992_Avalon_pl.atr
/
cls.asm
< prev
next >
Wrap
Assembly Source File
|
2023-02-26
|
612b
|
1 lines
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¢