home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Newspaper 8
/
Newspaper_8_2002-11-24_EXclusive_ON_Disk_4_of_4.d64
/
t.real drive ini
< prev
next >
Wrap
Text File
|
2023-02-26
|
824b
|
51 lines
; t.real drive ini
;
; Rozwiazanie problemu porzadkowania
; dysku, zamiast inicjalizacji stacji.
;
; () by Volcano/EXON
*= $2000
lda #16 ; wektor $bb-$bc
ldx #<name ; nastawiony na
ldy #>name ; plik zaczynajacy
jsr $ffbd ; sie na litere v
; jsr proc1
; jsr proc2
jsr drvini ; inicjalizacja
; stacji
rts
; Rozwiazanie 1
proc1 lda #"i"
sta name
rts
; Rozwiazanie 2
proc2 lda #1
ldx #<(realinit+1)
ldy #>(realinit+1)
jmp $ffbd
drvini lda #$0f
ldx #$08
tay
jsr $ffba
lda #$0f
jsr $ffc0
ldx #$0f
jsr $ffc9
realinit lda #"i"
jsr $ffd2
jmp $ffcc
name .text "v "