mirror of
https://github.com/antoinevignau/source.git
synced 2024-12-29 11:30:55 +00:00
125 lines
2.5 KiB
ArmAsm
125 lines
2.5 KiB
ArmAsm
*
|
|
* Swashbuckler
|
|
* (c) Stephenson
|
|
* (s) 2018, Brutal Deluxe Software
|
|
*
|
|
* This is FIRSTFILE
|
|
* Launched by HELLO
|
|
*
|
|
|
|
mx %11
|
|
lst off
|
|
|
|
*----------------------------
|
|
|
|
L03D9 = $03D9 ; call RWTS
|
|
|
|
*----------------------------
|
|
|
|
L0300 JSR $E746
|
|
L0303 STX $51
|
|
LDY $50
|
|
L0307 TYA
|
|
TAX
|
|
L0309 DEX
|
|
BNE L0309
|
|
BIT SPKR
|
|
EOR $51
|
|
TAX
|
|
L0312 DEX
|
|
BNE L0312
|
|
BIT SPKR
|
|
DEY
|
|
BNE L0307
|
|
RTS
|
|
|
|
*----------
|
|
|
|
L031C DB $00 ; NB SEC
|
|
L031D DB $10 ; T
|
|
L031E DB $10 ; S
|
|
L031F DB $00
|
|
|
|
*---------- The IOB table
|
|
|
|
L0320 DB $01
|
|
DB $60
|
|
DB $01
|
|
DB $FE
|
|
L0324 DB $10
|
|
L0325 DB $0F
|
|
DA L0331
|
|
L0328 DA $1400
|
|
DB $00
|
|
DB $00
|
|
L032C DB $01 ; command
|
|
DB $D6
|
|
DB $FE
|
|
DB $60
|
|
DB $01
|
|
L0331 HEX 0001EFD8
|
|
|
|
*----------
|
|
|
|
L0335 LDA #>L0320 ; call RWTS
|
|
LDY #<L0320
|
|
JSR L03D9
|
|
RTS
|
|
|
|
*---------- Read one T/S
|
|
|
|
L033D LDA #$01 ; READ
|
|
L033F STA L032C ; ENTRY FOR WRITE
|
|
LDA L031E ; S
|
|
STA L0325
|
|
LDA L031D ; T
|
|
STA L0324
|
|
jmp L0335
|
|
|
|
*---------- Read a track
|
|
|
|
L0352 LDA #$10 ; NB SEC
|
|
STA L031C
|
|
L0357 JSR L033D ; READ TS
|
|
INC L031E ; S++
|
|
INC L0328+1 ; PTR HIGH++
|
|
DEC L031C ; NB SEC--
|
|
BNE L0357
|
|
RTS
|
|
|
|
*---------- Read 2 consecutive tracks (S0/F,T++)
|
|
|
|
L0366 STA L031D ; TRACK
|
|
STX L0328 ; PTR LOW
|
|
STY L0328+1 ; PTR HIGH
|
|
LDA #$00
|
|
STA L031E ; S=0
|
|
JSR L0352 ; READ TRACK
|
|
INC L031D ; T++
|
|
LDA #$00
|
|
STA L031E ; S=0
|
|
jmp L0352 ; READ TRACK
|
|
|
|
*---------- The entry point
|
|
|
|
L0383 LDA #$07 ; ENTRY POINT
|
|
LDX #$00 ; T7..8
|
|
LDY #$40 ; $4000..$5FFF
|
|
JSR L0366
|
|
|
|
LDA HIRES
|
|
LDA TXTPAGE2
|
|
LDA TXTCLR
|
|
LDA MIXCLR
|
|
LDA #<L1000 ; $1000
|
|
STA L0328
|
|
STA L031E
|
|
LDA #$04 ; T=4
|
|
STA L031D
|
|
LDA #>L1000
|
|
STA L0328+1
|
|
JSR L0352 ; READ TRACK
|
|
JMP L1B00 ; NEXT STAGE
|
|
|
|
*---------- End of code
|