Posted Fri Feb 10, 2012 6:12 AM
Posted Fri Feb 10, 2012 6:28 AM
Edited by Rybags, Fri Feb 10, 2012 6:29 AM.
Posted Fri Feb 10, 2012 6:30 AM
Posted Fri Feb 10, 2012 7:48 AM
Posted Fri Feb 10, 2012 8:30 AM
Posted Fri Feb 10, 2012 9:17 AM
Posted Fri Feb 10, 2012 9:35 AM
Posted Fri Feb 10, 2012 10:37 AM
; Switches on BASIC, re-opens the editor, checks the RBAM and autoruns "AUTORUN.BAS" ; Save executable as "AUTORUN.SYS" ; JAC! - 2010 iocb = $340 ;IOCB base address iocom = iocb+2 ;IOCB command ioadr = iocb+4 ;IOCB buffer address ioaux1 = iocb+10 ;IOCB auxilary byte 1 ioaux2 = iocb+11 ;IOCB auxilary byte 1 ciov = $e456 ;CIO vector open = $03 ;Command: OPEN close = $0c ;Command: CLOSE rw = 12 rwauto = 13 * = $600 start cld clc lda $d301 ;Enable BASIC and #$fd sta $d301 ldx #0 ;Channel 0 lda #close ;Close editor sta iocom,x jsr ciov lda #open ;Open editor to ensure memtop is correct sta iocom,x lda #<editor sta ioadr,x lda #>editor sta ioadr+1,x lda #rw ;read and write sta ioaux1,x lda #0 sta ioaux2,x jsr ciov lda #rwauto ;Switch to automatic input mode sta ioaux1,x lda #0 ;Screen off, will be switch on by the next GRAPHICS statement sta 559 wait lda 20 ;Wait until screen is off cmp 20 beq wait ldx #[lineend-line]-1 ldy #[lineend-line]-1+2 copyline lda line,x sta (88),y dey dex bpl copyline rts editor .byte "E:",$9b ; Disable automatic input mode line .sbyte "POKE 842,12:RUN ",34,"D1:AUTORUN.BAS",34 lineend * = $2e0 .word test
Posted Fri Feb 10, 2012 10:57 AM
Edited by Rybags, Fri Feb 10, 2012 10:59 AM.
Posted Fri Feb 10, 2012 2:23 PM
Posted Fri Feb 10, 2012 2:36 PM
lda $d301 ;Enable BASIC and #$fd sta $d301 lda #>$a000 ; Set RAMTOP to begin of BASIC ROM $a000 sta $6a
Edited by JAC!, Fri Feb 10, 2012 2:36 PM.
Posted Sat Feb 18, 2012 4:03 PM
Edited by russg, Sat Feb 18, 2012 4:04 PM.
Posted Sun Feb 19, 2012 7:15 AM
russg, on Sat Feb 18, 2012 4:03 PM, said:
Edited by russg, Sun Feb 19, 2012 7:16 AM.
Posted Mon Feb 20, 2012 5:42 PM
russg, on Sun Feb 19, 2012 7:15 AM, said:
russg, on Sat Feb 18, 2012 4:03 PM, said:
Posted Mon Feb 20, 2012 6:13 PM
Edited by russg, Mon Feb 20, 2012 6:14 PM.
0 members, 1 guests, 0 anonymous users