Correcting some code from github comments
This commit is contained in:
jede
@@ -1,344 +0,0 @@
|
||||
|
||||
; jede jede@oric.org 2017-01-22
|
||||
|
||||
; For XA65 compatibily in the future
|
||||
.FEATURE c_comments,labels_without_colons,pc_assignment, loose_char_term
|
||||
.export _ch376_set_file_name
|
||||
.export _ch376_file_open
|
||||
.export _ch376_ic_get_version
|
||||
.export _ch376_reset
|
||||
.export _ch376_check_exist
|
||||
.export _ch376_disk_mount
|
||||
.export _ch376_set_usb_mode
|
||||
.export _ch376_file_close
|
||||
.export _ch376_seek_file
|
||||
.export _ch376_file_create
|
||||
.export _ch376_fwrite
|
||||
|
||||
.import popax
|
||||
.include "zeropage.inc"
|
||||
.include "telestrat.inc"
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
CH376_SET_USB_MODE_CODE_USB_HOST_SOF_PACKAGE_AUTOMATICALLY = $06
|
||||
|
||||
CH376_USB_INT_SUCCESS = $14
|
||||
CH376_USB_INT_CONNECT = $15
|
||||
CH376_USB_INT_DISCONNECT = $16
|
||||
CH376_USB_INT_BUF_OVER = $17
|
||||
CH376_USB_INT_USB_READY = $18
|
||||
CH376_USB_INT_DISK_READ = $1D
|
||||
CH376_USB_INT_DISK_WRITE = $1E
|
||||
CH376_USB_INT_DISK_ERR = $1F
|
||||
|
||||
|
||||
CH376_ERR_OPEN_DIR = $41
|
||||
CH376_ERR_MISS_FILE = $42
|
||||
CH376_ERR_FOUND_NAME = $43
|
||||
CH376_ERR_DISK_DISCON = $82
|
||||
CH376_ERR_LARGE_SECTOR = $84
|
||||
CH376_ERR_TYPE_ERROR = $92
|
||||
CH376_ERR_BPB_ERROR = $A1
|
||||
CH376_ERR_DISK_FULL = $B1
|
||||
CH376_ERR_FDT_OVER = $B2
|
||||
CH376_ERR_FILE_CLOSE = $B4
|
||||
|
||||
CH376_GET_IC_VER = $01
|
||||
CH376_SET_BAUDRATE = $02
|
||||
CH376_GET_ENTER_SLEEP = $03
|
||||
CH376_RESET_ALL = $05
|
||||
CH376_CHECK_EXIST = $06
|
||||
CH376_GET_FILE_SIZE = $0C
|
||||
|
||||
CH376_SET_USB_MODE = $15
|
||||
CH376_GET_STATUS = $22
|
||||
CH376_RD_USB_DATA0 = $27
|
||||
CH376_CMD_WR_REQ_DATA = $2D
|
||||
CH376_SET_FILE_NAME = $2F
|
||||
|
||||
CH376_DISK_CONNECT = $30 ; check the disk connection status
|
||||
CH376_DISK_MOUNT = $31
|
||||
CH376_FILE_OPEN = $32
|
||||
CH376_FILE_ENUM_GO = $33
|
||||
CH376_FILE_CREATE = $34
|
||||
CH376_FILE_CLOSE = $36
|
||||
CH376_BYTE_LOCATE = $39
|
||||
CH376_BYTE_READ = $3A
|
||||
CH376_BYTE_RD_GO = $3B
|
||||
CH376_BYTE_WRITE = $3C
|
||||
CH376_BYTE_WR_GO = $3D
|
||||
CH376_DISK_CAPACITY = $3E
|
||||
CH376_DISK_RD_GO = $55
|
||||
|
||||
.proc _ch376_file_close
|
||||
lda #CH376_FILE_CLOSE
|
||||
sta CH376_COMMAND
|
||||
jsr _ch376_wait_response
|
||||
rts
|
||||
.endproc
|
||||
|
||||
.proc _ch376_seek_file
|
||||
ldx #CH376_BYTE_LOCATE
|
||||
stx CH376_COMMAND
|
||||
sta CH376_DATA
|
||||
sty CH376_DATA
|
||||
lda #$00 ; Don't manage 32 bits length
|
||||
sta CH376_DATA
|
||||
sta CH376_DATA
|
||||
jsr _ch376_wait_response
|
||||
rts
|
||||
.endproc
|
||||
|
||||
; void ch376_set_file_name(char *filename)
|
||||
.proc _ch376_set_file_name
|
||||
sta ptr1
|
||||
stx ptr1+1
|
||||
lda #CH376_SET_FILE_NAME ;$2f
|
||||
sta CH376_COMMAND
|
||||
ldy #0
|
||||
loop:
|
||||
lda (ptr1),y ; replace by bufnom
|
||||
beq end ; we reached 0 value
|
||||
BRK_TELEMON XMINMA
|
||||
sta CH376_DATA
|
||||
iny
|
||||
cpy #13 ; because we don't manage longfilename shortname =11
|
||||
bne loop
|
||||
end:
|
||||
sta CH376_DATA
|
||||
rts
|
||||
.endproc
|
||||
|
||||
; char _ch376_file_open();
|
||||
.proc _ch376_file_open
|
||||
lda #CH376_FILE_OPEN ; $32
|
||||
sta CH376_COMMAND
|
||||
jsr _ch376_wait_response
|
||||
rts
|
||||
.endproc
|
||||
|
||||
.proc _ch376_get_file_size
|
||||
lda #CH376_GET_FILE_SIZE
|
||||
sta CH376_COMMAND
|
||||
lda #$68
|
||||
sta CH376_DATA
|
||||
; store file length 32 bits
|
||||
lda CH376_DATA
|
||||
sta tmp1
|
||||
lda CH376_DATA
|
||||
sta tmp1+1
|
||||
lda CH376_DATA
|
||||
sta tmp2
|
||||
lda CH376_DATA
|
||||
sta tmp2+1
|
||||
rts
|
||||
.endproc
|
||||
|
||||
; void ch376_reset();
|
||||
.proc _ch376_reset
|
||||
lda #CH376_RESET_ALL ; 5
|
||||
sta CH376_COMMAND
|
||||
; waiting
|
||||
ldy #0
|
||||
ldx #0
|
||||
loop:
|
||||
nop
|
||||
inx
|
||||
bne loop
|
||||
iny
|
||||
bne loop
|
||||
rts
|
||||
.endproc
|
||||
|
||||
; char ch376_check_exist(char value);
|
||||
|
||||
.proc _ch376_check_exist
|
||||
sta tmp1
|
||||
lda #CH376_CHECK_EXIST ;
|
||||
sta CH376_COMMAND
|
||||
lda tmp1
|
||||
sta CH376_DATA
|
||||
lda CH376_DATA
|
||||
rts
|
||||
.endproc
|
||||
|
||||
; char ch376_ic_get_version(void)
|
||||
.proc _ch376_ic_get_version
|
||||
lda #CH376_GET_IC_VER
|
||||
sta CH376_COMMAND
|
||||
ldx #0
|
||||
lda CH376_DATA
|
||||
rts
|
||||
.endproc
|
||||
|
||||
; void ch376_set_usb_mode(char mode)
|
||||
.proc _ch376_set_usb_mode
|
||||
ldx #CH376_SET_USB_MODE ; $15
|
||||
stx CH376_COMMAND
|
||||
sta CH376_DATA
|
||||
rts
|
||||
.endproc
|
||||
|
||||
; void ch376_set_bytes_write(int value);
|
||||
.proc _ch376_set_bytes_write
|
||||
ldy #CH376_BYTE_WRITE
|
||||
sty CH376_COMMAND
|
||||
sta CH376_DATA
|
||||
stx CH376_DATA
|
||||
lda #0
|
||||
sta CH376_DATA
|
||||
sta CH376_DATA
|
||||
jsr _ch376_wait_response
|
||||
rts
|
||||
.endproc
|
||||
|
||||
.proc _ch376_set_bytes_read
|
||||
ldy #CH376_BYTE_READ
|
||||
sty CH376_COMMAND
|
||||
; Storing 32 bits value
|
||||
sta CH376_DATA
|
||||
stx CH376_DATA
|
||||
lda #0
|
||||
sta CH376_DATA
|
||||
sta CH376_DATA
|
||||
jsr _ch376_wait_response
|
||||
rts
|
||||
.endproc
|
||||
|
||||
; char ch376_disk_mount();
|
||||
.proc _ch376_disk_mount
|
||||
lda #CH376_DISK_MOUNT ; $31
|
||||
sta CH376_COMMAND
|
||||
jsr _ch376_wait_response
|
||||
; if we read data value, we have then length of the volume name
|
||||
ldx #0
|
||||
rts
|
||||
.endproc
|
||||
|
||||
|
||||
; char ch376_wait_response();
|
||||
.proc _ch376_wait_response
|
||||
; return 1 if usb controller does not respond
|
||||
; else A contains answer of the controller
|
||||
ldy #$FF ; We have to wait 35 ms, but well, this loop is broken when controler is OK
|
||||
loop3:
|
||||
ldx #$FF ; don't decrease this counter. Because ch376 won't respond if there is a lower value
|
||||
loop:
|
||||
lda CH376_COMMAND
|
||||
and #%10000000
|
||||
cmp #128
|
||||
bne no_error
|
||||
dex
|
||||
bne loop
|
||||
dey
|
||||
bne loop3
|
||||
; error is here
|
||||
rts
|
||||
no_error:
|
||||
lda #CH376_GET_STATUS
|
||||
sta CH376_COMMAND
|
||||
lda CH376_DATA
|
||||
rts
|
||||
.endproc
|
||||
|
||||
.proc _ch376_fread
|
||||
; use ptr1 to count bytes
|
||||
jsr _ch376_set_bytes_read
|
||||
continue:
|
||||
cmp #CH376_USB_INT_DISK_READ ; something to read
|
||||
beq we_read
|
||||
cmp #CH376_USB_INT_SUCCESS ; finished
|
||||
beq finished
|
||||
; TODO in A : $ff X: $ff
|
||||
lda #0
|
||||
tax
|
||||
rts
|
||||
we_read:
|
||||
lda #CH376_RD_USB_DATA0
|
||||
sta CH376_COMMAND
|
||||
|
||||
lda CH376_DATA ; contains length read
|
||||
sta tmp2; Number of bytes to read
|
||||
|
||||
ldy #0
|
||||
loop:
|
||||
lda CH376_DATA ; read the data
|
||||
sta (PTR_READ_DEST),y
|
||||
iny
|
||||
cpy tmp2
|
||||
bne loop
|
||||
tya
|
||||
clc
|
||||
adc PTR_READ_DEST
|
||||
bcc next
|
||||
inc PTR_READ_DEST+1
|
||||
next:
|
||||
sta PTR_READ_DEST
|
||||
|
||||
lda #CH376_BYTE_RD_GO
|
||||
sta CH376_COMMAND
|
||||
jsr _ch376_wait_response
|
||||
jmp continue
|
||||
finished:
|
||||
; TODO return bytes read
|
||||
lda tmp1
|
||||
ldx tmp1+1
|
||||
rts
|
||||
.endproc
|
||||
|
||||
; void _ch376_fwrite(void *ptr,int number)
|
||||
.proc _ch376_fwrite
|
||||
; use ptr1 to count bytes
|
||||
sta ptr2
|
||||
stx ptr2+1
|
||||
|
||||
jsr popax
|
||||
sta PTR_READ_DEST
|
||||
stx PTR_READ_DEST+1
|
||||
|
||||
lda ptr2
|
||||
ldx ptr2+1
|
||||
jsr _ch376_set_bytes_write
|
||||
continue:
|
||||
cmp #CH376_USB_INT_DISK_WRITE ; something to read
|
||||
beq we_read
|
||||
cmp #CH376_USB_INT_SUCCESS ; finished
|
||||
beq finished
|
||||
|
||||
lda #0
|
||||
tax
|
||||
rts
|
||||
we_read:
|
||||
lda #CH376_CMD_WR_REQ_DATA
|
||||
sta CH376_COMMAND
|
||||
|
||||
lda CH376_DATA ; contains length read
|
||||
sta tmp2; Number of bytes to read
|
||||
|
||||
ldy #0
|
||||
loop:
|
||||
lda (PTR_READ_DEST),y
|
||||
sta CH376_DATA ; read the data
|
||||
dec tmp2
|
||||
bne loop
|
||||
|
||||
|
||||
lda #CH376_BYTE_WR_GO
|
||||
sta CH376_COMMAND
|
||||
jsr _ch376_wait_response
|
||||
jmp continue
|
||||
finished:
|
||||
lda tmp1
|
||||
ldx tmp1+1
|
||||
rts
|
||||
.endproc
|
||||
|
||||
.proc _ch376_file_create
|
||||
lda #CH376_FILE_CREATE
|
||||
sta CH376_COMMAND
|
||||
jsr _ch376_wait_response
|
||||
rts
|
||||
.endproc
|
||||
@@ -1,58 +0,0 @@
|
||||
; jede jede@oric.org 2017-01-22
|
||||
|
||||
.export _paper,_hires,_text,_circle,_curset, _switchOffCursor
|
||||
|
||||
.include "zeropage.inc"
|
||||
.include "telestrat.inc"
|
||||
.import popa
|
||||
|
||||
|
||||
.proc _paper
|
||||
ldx #0 ; First window
|
||||
; A contains the paper
|
||||
BRK_TELEMON XPAPER
|
||||
rts
|
||||
.endproc
|
||||
|
||||
; XINK is bugged, it corrupt memory : removing from export
|
||||
.proc _ink
|
||||
ldx #0 ; First window
|
||||
; A contains the ink
|
||||
BRK_TELEMON XINK
|
||||
rts
|
||||
.endproc
|
||||
|
||||
; can be optimized with a macro
|
||||
.proc _hires
|
||||
BRK_TELEMON XHIRES
|
||||
rts
|
||||
.endproc
|
||||
|
||||
.proc _text
|
||||
BRK_TELEMON XTEXT
|
||||
rts
|
||||
.endproc
|
||||
|
||||
.proc _curset
|
||||
jsr popa ; Pixel
|
||||
jsr popa
|
||||
sta HRSX
|
||||
jsr popa
|
||||
sta HRSY
|
||||
BRK_TELEMON XCURSE
|
||||
rts
|
||||
.endproc
|
||||
|
||||
.proc _circle
|
||||
sta HRS1
|
||||
BRK_TELEMON XCIRCL
|
||||
rts
|
||||
.endproc
|
||||
|
||||
.proc _switchOffCursor
|
||||
ldx #0
|
||||
BRK_TELEMON XCOSCR
|
||||
rts
|
||||
.endproc
|
||||
|
||||
|
||||
@@ -1,14 +0,0 @@
|
||||
; jede jede@oric.org 2017-01-22
|
||||
|
||||
.export _key
|
||||
|
||||
.include "zeropage.inc"
|
||||
.include "telestrat.inc"
|
||||
|
||||
; char key(void);
|
||||
|
||||
.proc _key
|
||||
BRK_TELEMON XRDW0 ; read keyboard
|
||||
rts
|
||||
.endproc
|
||||
|
||||
@@ -1,626 +0,0 @@
|
||||
.export _Mym_MusicStart
|
||||
.importzp sp,tmp2,tmp3,tmp1,ptr1
|
||||
|
||||
.include "telestrat.inc"
|
||||
|
||||
; To check: AYC
|
||||
; http://cpcwiki.eu/index.php/AYC
|
||||
|
||||
|
||||
|
||||
|
||||
_DecodedByte :=$D0 ; Byte being currently decoded from the MYM stream
|
||||
_DecodeBitCounter :=$D2 ; Number of bits we can read in the current byte
|
||||
_DecodedResult :=$D3 ; What is returned by the 'read bits' function
|
||||
_CurrentAYRegister :=$D4 ; Contains the number of the register being decoded
|
||||
_RegisterBufferHigh :=$D5 ; Points to the high byte of the decoded register buffer, increment to move to the next register
|
||||
_BufferFrameOffset :=$D6 ; From 0 to 127, used when filling the decoded register buffer
|
||||
_MusicResetCounter :=$D7 ; 2 bytes Contains the number of rows to play before reseting
|
||||
_CurrentFrame :=$D9 ; From 0 to 255 and then cycles... the index of the frame to play this vbl
|
||||
_PlayerVbl :=$DA
|
||||
_FrameLoadBalancer :=$DB ; We depack a new frame every 9 VBLs, this way the 14 registers are evenly depacked over 128 frames
|
||||
|
||||
|
||||
VIA_1 := $30f
|
||||
VIA_2 := $30c
|
||||
|
||||
_MusicData := $c000
|
||||
|
||||
; mym(char *buf)
|
||||
|
||||
|
||||
|
||||
|
||||
;
|
||||
; Current PSG values during unpacking
|
||||
;
|
||||
|
||||
|
||||
.proc _Mym_MusicStart
|
||||
|
||||
; The two first bytes of the MYM music is the number of rows in the music
|
||||
; We decrement that at each frame, and when we reach zero, time to start again.
|
||||
sta ptr1
|
||||
stx ptr1+1
|
||||
|
||||
ldy #0
|
||||
lda (ptr1),y
|
||||
sta _MusicResetCounter+0
|
||||
iny
|
||||
lda (ptr1),y
|
||||
tax
|
||||
inx
|
||||
stx _MusicResetCounter+1
|
||||
|
||||
;ldx _MusicData+0
|
||||
;stx _MusicResetCounter+0
|
||||
;ldx _MusicData+1
|
||||
;inx
|
||||
;stx _MusicResetCounter+1
|
||||
|
||||
|
||||
; Initialize the read bit counter
|
||||
ldy #2 ; should be useless because we can do iny which earn 1 byte
|
||||
|
||||
lda ptr1
|
||||
clc
|
||||
adc #2
|
||||
bcc next20
|
||||
inc ptr1+1
|
||||
lda ptr1+1
|
||||
sta __auto_music_ptr+2
|
||||
next20:
|
||||
sta ptr1
|
||||
sta __auto_music_ptr+1
|
||||
|
||||
|
||||
|
||||
;lda #<(_MusicData+2)
|
||||
;sta __auto_music_ptr+1
|
||||
;lda #>(_MusicData+2)
|
||||
;sta __auto_music_ptr+2
|
||||
|
||||
lda #1
|
||||
sta _DecodeBitCounter
|
||||
|
||||
; Clear all data
|
||||
lda #0
|
||||
sta _DecodedResult
|
||||
sta _DecodedByte
|
||||
sta _PlayerVbl
|
||||
sta _PlayerRegCurrentValue
|
||||
sta _BufferFrameOffset
|
||||
sta _PlayerCount
|
||||
sta _CurrentAYRegister
|
||||
sta _CurrentFrame
|
||||
|
||||
ldx #14
|
||||
loop_init:
|
||||
dex
|
||||
sta _PlayerRegValues,x
|
||||
bne loop_init
|
||||
|
||||
|
||||
;
|
||||
; Unpack the 128 first register frames
|
||||
;
|
||||
|
||||
lda #>_PlayerBuffer
|
||||
sta _RegisterBufferHigh
|
||||
|
||||
ldx #0
|
||||
unpack_block_loop:
|
||||
stx _CurrentAYRegister
|
||||
|
||||
; Unpack that register
|
||||
jsr _PlayerUnpackRegister2
|
||||
|
||||
; Next register
|
||||
ldx _CurrentAYRegister
|
||||
inx
|
||||
cpx #14
|
||||
bne unpack_block_loop
|
||||
|
||||
|
||||
lda #128
|
||||
sta _PlayerVbl+0
|
||||
|
||||
lda #0
|
||||
sta _PlayerCount
|
||||
sta _CurrentAYRegister
|
||||
sta _CurrentFrame
|
||||
|
||||
lda #9
|
||||
sta _FrameLoadBalancer
|
||||
|
||||
lda #1
|
||||
sta _MusicPlaying
|
||||
|
||||
;
|
||||
; Install the IRQ
|
||||
;
|
||||
php
|
||||
sei
|
||||
lda #<_Mym_PlayFrame
|
||||
sta _InterruptCallBack_3+1
|
||||
lda #>_Mym_PlayFrame
|
||||
sta _InterruptCallBack_3+2
|
||||
plp
|
||||
|
||||
rts
|
||||
|
||||
|
||||
_Mym_MusicStop:
|
||||
|
||||
; Indicate the main code that the music is finished
|
||||
lda #0
|
||||
sta _MusicPlaying
|
||||
|
||||
; Disable the IRQ so it does not conflict or cause weird things
|
||||
php
|
||||
sei
|
||||
lda #<_DoNothing
|
||||
sta _InterruptCallBack_3+1
|
||||
lda #>_DoNothing
|
||||
sta _InterruptCallBack_3+2
|
||||
plp
|
||||
|
||||
; Cut the sound so it does not sounds like a dying cat
|
||||
|
||||
; y=register number
|
||||
; x=value to write
|
||||
ldy #7 ; Control register
|
||||
ldx #$FF
|
||||
jsr _PsgPlayRegister
|
||||
|
||||
ldy #8 ; Volume A
|
||||
ldx #0
|
||||
jsr _PsgPlayRegister
|
||||
|
||||
ldy #9 ; Volume B
|
||||
ldx #0
|
||||
jsr _PsgPlayRegister
|
||||
|
||||
ldy #10 ; Volume C
|
||||
ldx #0
|
||||
jsr _PsgPlayRegister
|
||||
rts
|
||||
|
||||
|
||||
_Mym_PlayFrame:
|
||||
|
||||
;
|
||||
; Check for end of music
|
||||
; CountZero: $81,$0d
|
||||
dec _MusicResetCounter+0
|
||||
bne music_contines
|
||||
dec _MusicResetCounter+1
|
||||
bne music_contines
|
||||
|
||||
music_resets:
|
||||
jmp _Mym_MusicStop
|
||||
|
||||
music_contines:
|
||||
|
||||
;
|
||||
; Play a frame of 14 registers
|
||||
;
|
||||
|
||||
lda _CurrentFrame
|
||||
sta _auto_psg_play_read+1
|
||||
lda #>_PlayerBuffer
|
||||
sta _auto_psg_play_read+2
|
||||
|
||||
ldy #0
|
||||
register_loop:
|
||||
|
||||
_auto_psg_play_read:
|
||||
ldx _PlayerBuffer
|
||||
|
||||
; y=register number
|
||||
; x=value to write
|
||||
jsr _PsgPlayRegister
|
||||
|
||||
inc _auto_psg_play_read+2
|
||||
iny
|
||||
cpy #14
|
||||
bne register_loop
|
||||
|
||||
|
||||
|
||||
inc _CurrentFrame
|
||||
inc _PlayerCount
|
||||
|
||||
lda _CurrentAYRegister
|
||||
cmp #14
|
||||
bcs end_reg
|
||||
|
||||
|
||||
dec _FrameLoadBalancer
|
||||
bne end
|
||||
|
||||
jsr _PlayerUnpackRegister
|
||||
inc _CurrentAYRegister
|
||||
lda #9
|
||||
sta _FrameLoadBalancer
|
||||
end:
|
||||
rts
|
||||
|
||||
|
||||
end_reg:
|
||||
|
||||
lda _PlayerCount
|
||||
cmp #128
|
||||
bcc skip2
|
||||
|
||||
lda #0
|
||||
sta _CurrentAYRegister
|
||||
sta _PlayerCount
|
||||
lda #9
|
||||
sta _FrameLoadBalancer
|
||||
|
||||
clc
|
||||
lda _PlayerVbl+0
|
||||
adc #128
|
||||
sta _PlayerVbl+0
|
||||
skip2:
|
||||
|
||||
|
||||
rts
|
||||
|
||||
|
||||
|
||||
; y=register number
|
||||
; x=value to write
|
||||
_PsgPlayRegister:
|
||||
|
||||
sty VIA_1
|
||||
txa
|
||||
|
||||
pha
|
||||
lda VIA_2
|
||||
ora #$EE ; $EE 238 11101110
|
||||
sta VIA_2
|
||||
|
||||
and #$11 ; $11 17 00010001
|
||||
ora #$CC ; $CC 204 11001100
|
||||
sta VIA_2
|
||||
|
||||
tax
|
||||
pla
|
||||
sta VIA_1
|
||||
txa
|
||||
ora #$EC ; $EC 236 11101100
|
||||
sta VIA_2
|
||||
|
||||
and #$11 ; $11 17 00010001
|
||||
ora #$CC ; $CC 204 11001100
|
||||
sta VIA_2
|
||||
|
||||
rts
|
||||
|
||||
|
||||
|
||||
|
||||
;
|
||||
; Initialise X with the number of bits to read
|
||||
; Y is not modifier
|
||||
;
|
||||
_ReadBits:
|
||||
|
||||
lda #0
|
||||
sta _DecodedResult
|
||||
|
||||
; Will iterate X times (number of bits to read)
|
||||
loop_read_bits:
|
||||
|
||||
dec _DecodeBitCounter
|
||||
beq get_next_byte
|
||||
|
||||
shift_bit:
|
||||
asl _DecodedByte
|
||||
rol _DecodedResult
|
||||
|
||||
dex
|
||||
bne loop_read_bits
|
||||
rts
|
||||
|
||||
get_next_byte:
|
||||
; reset mask
|
||||
lda #8
|
||||
sta _DecodeBitCounter
|
||||
|
||||
; fetch a new byte, and increment the adress.
|
||||
__auto_music_ptr:
|
||||
lda _MusicData+2
|
||||
sta _DecodedByte
|
||||
|
||||
inc __auto_music_ptr+1
|
||||
bne shift_bit
|
||||
inc __auto_music_ptr+2
|
||||
jmp shift_bit
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
_PlayerUnpackRegister:
|
||||
lda #>_PlayerBuffer
|
||||
clc
|
||||
adc _CurrentAYRegister
|
||||
sta _RegisterBufferHigh
|
||||
_PlayerUnpackRegister2:
|
||||
;
|
||||
; Init register bit count and current value
|
||||
;
|
||||
ldx _CurrentAYRegister
|
||||
lda _PlayerRegValues,x
|
||||
sta _PlayerRegCurrentValue
|
||||
|
||||
|
||||
;
|
||||
; Check if it's packed or not
|
||||
; and call adequate routine...
|
||||
;
|
||||
ldx #1
|
||||
jsr _ReadBits
|
||||
ldx _DecodedResult
|
||||
bne DecompressFragment
|
||||
|
||||
|
||||
UnchangedFragment:
|
||||
|
||||
;
|
||||
; No change at all, just repeat '_PlayerRegCurrentValue' 128 times
|
||||
;
|
||||
lda _RegisterBufferHigh ; highpart of buffer adress + register number
|
||||
sta __auto_copy_unchanged_write+2
|
||||
|
||||
ldx #128 ; 128 iterations
|
||||
lda _PlayerRegCurrentValue ; Value to write
|
||||
|
||||
ldy _PlayerVbl
|
||||
|
||||
repeat_loop:
|
||||
__auto_copy_unchanged_write:
|
||||
sta _PlayerBuffer,y
|
||||
iny
|
||||
dex
|
||||
bne repeat_loop
|
||||
|
||||
|
||||
jmp player_main_return
|
||||
|
||||
|
||||
player_main_return:
|
||||
; Write back register current value
|
||||
ldx _CurrentAYRegister
|
||||
lda _PlayerRegCurrentValue
|
||||
sta _PlayerRegValues,x
|
||||
|
||||
; Move to the next register buffer
|
||||
inc _RegisterBufferHigh
|
||||
rts
|
||||
|
||||
|
||||
|
||||
|
||||
DecompressFragment:
|
||||
lda _PlayerVbl ; Either 0 or 128 at this point else we have a problem...
|
||||
sta _BufferFrameOffset
|
||||
|
||||
decompressFragmentLoop:
|
||||
|
||||
player_copy_packed_loop:
|
||||
; Check packing method
|
||||
ldx #1
|
||||
jsr _ReadBits
|
||||
|
||||
ldx _DecodedResult
|
||||
bne PlayerNotCopyLast
|
||||
|
||||
UnchangedRegister:
|
||||
|
||||
; We just copy the current value 128 times
|
||||
lda _RegisterBufferHigh ; highpart of buffer adress + register number
|
||||
sta __auto_player_copy_last+2
|
||||
|
||||
ldx _BufferFrameOffset ; Value between 00 and 7f
|
||||
lda _PlayerRegCurrentValue ; Value to copy
|
||||
__auto_player_copy_last:
|
||||
sta _PlayerBuffer,x
|
||||
|
||||
inc _BufferFrameOffset
|
||||
|
||||
|
||||
|
||||
player_return:
|
||||
|
||||
; Check end of loop
|
||||
lda _BufferFrameOffset
|
||||
and #127
|
||||
bne decompressFragmentLoop
|
||||
|
||||
jmp player_main_return
|
||||
|
||||
|
||||
PlayerNotCopyLast:
|
||||
; Check packing method
|
||||
ldx #1
|
||||
jsr _ReadBits
|
||||
|
||||
ldx _DecodedResult
|
||||
beq DecompressWithOffset
|
||||
|
||||
ReadNewRegisterValue:
|
||||
; Read new register value (variable bit count)
|
||||
ldx _CurrentAYRegister
|
||||
lda _PlayerRegBits,x
|
||||
tax
|
||||
jsr _ReadBits
|
||||
ldx _DecodedResult
|
||||
stx _PlayerRegCurrentValue
|
||||
|
||||
; Copy to stream
|
||||
lda _RegisterBufferHigh ; highpart of buffer adress + register number
|
||||
sta __auto_player_read_new+2
|
||||
|
||||
ldx _BufferFrameOffset ; Value between 00 and 7f
|
||||
lda _PlayerRegCurrentValue ; New value to write
|
||||
__auto_player_read_new:
|
||||
sta _PlayerBuffer,x
|
||||
|
||||
inc _BufferFrameOffset
|
||||
jmp player_return
|
||||
|
||||
|
||||
|
||||
|
||||
DecompressWithOffset:
|
||||
|
||||
; Read Offset (0 to 127)
|
||||
ldx #7
|
||||
jsr _ReadBits
|
||||
|
||||
lda _RegisterBufferHigh ; highpart of buffer adress + register number
|
||||
sta __auto_write+2 ; Write adress
|
||||
sta __auto_read+2 ; Read adress
|
||||
|
||||
; Compute wrap around offset...
|
||||
lda _BufferFrameOffset ; between 0 and 255
|
||||
clc
|
||||
adc _DecodedResult ; + Offset Between 00 and 7f
|
||||
sec
|
||||
sbc #128 ; -128
|
||||
tay
|
||||
|
||||
; Read count (7 bits)
|
||||
ldx #7
|
||||
jsr _ReadBits
|
||||
|
||||
inc _DecodedResult ; 1 to 129
|
||||
|
||||
|
||||
ldx _BufferFrameOffset
|
||||
|
||||
player_copy_offset_loop:
|
||||
|
||||
__auto_read:
|
||||
lda _PlayerBuffer,y ; Y for reading
|
||||
iny
|
||||
|
||||
__auto_write:
|
||||
sta _PlayerBuffer,x ; X for writing
|
||||
|
||||
inx
|
||||
dec _DecodedResult
|
||||
bne player_copy_offset_loop
|
||||
|
||||
stx _BufferFrameOffset
|
||||
sta _PlayerRegCurrentValue
|
||||
|
||||
jmp player_return
|
||||
|
||||
|
||||
|
||||
|
||||
;
|
||||
; Size in bits of each PSG register
|
||||
;
|
||||
_PlayerRegBits:
|
||||
; Chanel A Frequency
|
||||
.byt 8
|
||||
.byt 4
|
||||
|
||||
; Chanel B Frequency
|
||||
.byt 8
|
||||
.byt 4
|
||||
|
||||
; Chanel C Frequency
|
||||
.byt 8
|
||||
.byt 4
|
||||
|
||||
; Chanel sound generator
|
||||
.byt 5
|
||||
|
||||
; select
|
||||
.byt 8
|
||||
|
||||
; Volume A,B,C
|
||||
.byt 5
|
||||
.byt 5
|
||||
.byt 5
|
||||
|
||||
; Wave period
|
||||
.byt 8
|
||||
.byt 8
|
||||
|
||||
; Wave form
|
||||
.byt 8
|
||||
|
||||
_PlayerCount:
|
||||
.res 1,0 ; must be equal to 0
|
||||
_MusicPlaying:
|
||||
.res 1,0 ; must be equal to 0
|
||||
|
||||
|
||||
_PlayerRegValues:
|
||||
_RegisterChanAFrequency:
|
||||
; Chanel A Frequency
|
||||
.res 1,8
|
||||
.res 1,4
|
||||
|
||||
_RegisterChanBFrequency:
|
||||
; Chanel B Frequency
|
||||
.res 1,8
|
||||
.res 1,4
|
||||
|
||||
_RegisterChanCFrequency:
|
||||
; Chanel C Frequency
|
||||
.res 1,8
|
||||
.res 1,4
|
||||
|
||||
_RegisterChanNoiseFrequency:
|
||||
; Chanel sound generator
|
||||
.res 1,5
|
||||
|
||||
; select
|
||||
.res 1,8
|
||||
|
||||
; Volume A,B,C
|
||||
_RegisterChanAVolume:
|
||||
.res 1,5
|
||||
_RegisterChanBVolume:
|
||||
.res 1,5
|
||||
_RegisterChanCVolume:
|
||||
.res 1,5
|
||||
|
||||
; Wave period
|
||||
.res 1,8
|
||||
.res 1,8
|
||||
|
||||
; Wave form
|
||||
.res 1,8
|
||||
|
||||
_PlayerRegCurrentValue:
|
||||
.res 1,0
|
||||
_DoNothing:
|
||||
rts
|
||||
|
||||
_InterruptCallBack_3: ; Used by the music player
|
||||
jsr _DoNothing ; Transformed to "jsr _Mym_PlayFrame" -> 12 cycles
|
||||
|
||||
; jsr MiniScrollLoading ; -> 338 cycles
|
||||
|
||||
pla
|
||||
tay
|
||||
pla
|
||||
tax
|
||||
pla
|
||||
|
||||
rti
|
||||
_PlayerBuffer:
|
||||
.res 256*14 ; About 3.5 kilobytes somewhere in memory, we put the music file in overlay memory
|
||||
|
||||
.endproc
|
||||
|
||||
@@ -3,13 +3,13 @@
|
||||
|
||||
;
|
||||
|
||||
; The following symbol is used by the linker config. file
|
||||
; to force this module to be included into the output file.
|
||||
.export __ORIXHDR__:abs = 1
|
||||
; The following symbol is used by the linker config. file
|
||||
; to force this module to be included into the output file.
|
||||
.export __ORIXHDR__:abs = 1
|
||||
|
||||
; These symbols, also, come from the configuration file.
|
||||
.import __AUTORUN__, __PROGFLAG__
|
||||
.import __BASHEAD_START__, __MAIN_LAST__
|
||||
; These symbols, also, come from the configuration file.
|
||||
.import __AUTORUN__, __PROGFLAG__
|
||||
.import __BASHEAD_START__, __MAIN_LAST__
|
||||
|
||||
|
||||
; ------------------------------------------------------------------------
|
||||
@@ -17,17 +17,17 @@
|
||||
|
||||
.segment "ORIXHDR"
|
||||
|
||||
.byte $01, $00 ;
|
||||
.byte $01, $00 ; non C64 marker (same as o65 format)
|
||||
|
||||
.byte "ori"
|
||||
.byte "ori" ; magic number
|
||||
|
||||
.byte $01 ; version
|
||||
.byte $00,%00000000 ; 6502 only
|
||||
.byte $00,$00 ; Extends
|
||||
.byte $00,$00 ; OS
|
||||
.byte $01 ; version of the header
|
||||
.byte $00,%00000000 ; 6502 only
|
||||
.byte $00,$00 ; type of language
|
||||
.byte $00,$00 ; OS version
|
||||
|
||||
.byte $00 ; reserved
|
||||
.byte $00 ; auto
|
||||
.byte $00 ; auto or not
|
||||
|
||||
.word __BASHEAD_START__ ; Address of start of file
|
||||
.word __MAIN_LAST__ - 1 ; Address of end of file
|
||||
|
||||
@@ -1,75 +0,0 @@
|
||||
;
|
||||
; Stefan Haubenthal, 2004-05-25
|
||||
; Ullrich von Bassewitz, 18.07.2002
|
||||
;
|
||||
; Defines the platform specific error list.
|
||||
;
|
||||
; The table is built as a list of entries
|
||||
;
|
||||
; .byte entrylen
|
||||
; .byte errorcode
|
||||
; .asciiz errormsg
|
||||
;
|
||||
; and terminated by an entry with length zero that is returned if the
|
||||
; error code could not be found.
|
||||
;
|
||||
|
||||
.export __sys_oserrlist
|
||||
|
||||
;----------------------------------------------------------------------------
|
||||
; Macros used to generate the list (may get moved to an include file?)
|
||||
|
||||
; Regular entry
|
||||
.macro sys_oserr_entry code, msg
|
||||
.local Start, End
|
||||
Start: .byte End - Start
|
||||
.byte code
|
||||
.asciiz msg
|
||||
End:
|
||||
.endmacro
|
||||
|
||||
; Sentinel entry
|
||||
.macro sys_oserr_sentinel msg
|
||||
.byte 0 ; Length is always zero
|
||||
.byte 0 ; Code is unused
|
||||
.asciiz msg
|
||||
.endmacro
|
||||
|
||||
;----------------------------------------------------------------------------
|
||||
; The error message table
|
||||
|
||||
.rodata
|
||||
|
||||
__sys_oserrlist:
|
||||
sys_oserr_entry 1, "File not found"
|
||||
sys_oserr_entry 2, "Invalid command end"
|
||||
sys_oserr_entry 3, "No drive number"
|
||||
sys_oserr_entry 4, "Bad drive number"
|
||||
sys_oserr_entry 5, "Invalid filename"
|
||||
sys_oserr_entry 6, "fderr=(error number)"
|
||||
sys_oserr_entry 7, "Illegal attribute"
|
||||
sys_oserr_entry 8, "Wildcard(s) not allowed"
|
||||
sys_oserr_entry 9, "File already exists"
|
||||
sys_oserr_entry 10, "Insufficient disc space"
|
||||
sys_oserr_entry 11, "File open"
|
||||
sys_oserr_entry 12, "Illegal quantity"
|
||||
sys_oserr_entry 13, "End address missing"
|
||||
sys_oserr_entry 14, "Start address > end address"
|
||||
sys_oserr_entry 15, "Missing 'to'"
|
||||
sys_oserr_entry 16, "Renamed file not on same disc"
|
||||
sys_oserr_entry 17, "Unknown array"
|
||||
sys_oserr_entry 18, "Target drive not source drive"
|
||||
sys_oserr_entry 19, "Destination not specified"
|
||||
sys_oserr_entry 20, "Cannot merge and overwrite"
|
||||
sys_oserr_entry 21, "Single target file illegal"
|
||||
sys_oserr_entry 22, "Syntax"
|
||||
sys_oserr_entry 23, "Filename missing"
|
||||
sys_oserr_entry 24, "Source file missing"
|
||||
sys_oserr_entry 25, "Type mismatch"
|
||||
sys_oserr_entry 26, "Disc write-protected"
|
||||
sys_oserr_entry 27, "Incompatible drives"
|
||||
sys_oserr_entry 28, "File not open"
|
||||
sys_oserr_entry 29, "File end"
|
||||
sys_oserr_sentinel "Unknown error"
|
||||
|
||||
|
||||
@@ -1,17 +0,0 @@
|
||||
;
|
||||
; Stefan Haubenthal, 2011-04-18
|
||||
;
|
||||
; int __fastcall__ _osmaperrno (unsigned char oserror);
|
||||
; /* Map a system specific error into a system independent code */
|
||||
;
|
||||
|
||||
.include "errno.inc"
|
||||
.export __osmaperrno
|
||||
|
||||
.proc __osmaperrno
|
||||
|
||||
lda #<EUNKNOWN
|
||||
ldx #>EUNKNOWN
|
||||
rts
|
||||
|
||||
.endproc
|
||||
@@ -1,16 +0,0 @@
|
||||
; jede jede@oric.org 2017-01-22
|
||||
|
||||
; void print (char * str);
|
||||
.export _print
|
||||
.import popax
|
||||
.importzp tmp1
|
||||
.include "telestrat.inc"
|
||||
|
||||
.proc _print
|
||||
stx tmp1
|
||||
ldy tmp1
|
||||
BRK_TELEMON XWSTR0
|
||||
rts
|
||||
.endproc
|
||||
|
||||
|
||||
Reference in New Issue
Block a user