mirror of
https://github.com/cc65/cc65.git
synced 2025-01-10 19:29:45 +00:00
Adding telemon30 and telemon24 primitives
This commit is contained in:
jede
parent
038ac5a65a
commit
d1b5a6632d
68
asminc/telemon24.inc
Normal file
68
asminc/telemon24.inc
Normal file
@ -0,0 +1,68 @@
|
|||||||
|
;
|
||||||
|
; Oric Telemon definition
|
||||||
|
; Telemon 2.4
|
||||||
|
;
|
||||||
|
|
||||||
|
|
||||||
|
; ---------------------------------------------------------------------------
|
||||||
|
; Constants
|
||||||
|
|
||||||
|
SCREEN_XSIZE = 40 ; screen columns
|
||||||
|
SCREEN_YSIZE = 28 ; screen rows
|
||||||
|
|
||||||
|
FUNCTKEY = $A5
|
||||||
|
|
||||||
|
FNAME_LEN = 11 ; maximum length of file-name
|
||||||
|
|
||||||
|
|
||||||
|
; ---------------------------------------------------------------------------
|
||||||
|
; Zero page
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
; ---------------------------------------------------------------------------
|
||||||
|
; Low memory
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
; ---------------------------------------------------------------------------
|
||||||
|
; I/O locations
|
||||||
|
|
||||||
|
; 6522
|
||||||
|
.struct VIA ; Versatile Interface Adapter
|
||||||
|
.res $0300
|
||||||
|
PRB .byte ; Port Register B
|
||||||
|
PRA .byte ; Port Register A
|
||||||
|
DDRB .byte ; Data Direction Register B
|
||||||
|
DDRA .byte ; Data Direction Register A
|
||||||
|
T1 .word ; Timer 1
|
||||||
|
T1L .word ; Timer 1 Latch
|
||||||
|
T2 .word ; Timer 2
|
||||||
|
SR .byte ; Shift Register
|
||||||
|
ACR .byte ; Auxiliary Control Register
|
||||||
|
PCR .byte ; Peripheral Control Register
|
||||||
|
IFR .byte ; Interrupt Flags Register
|
||||||
|
IER .byte ; Interrupt Enable Register
|
||||||
|
PRA2 .byte ; Port Register A without handshaking
|
||||||
|
.endstruct
|
||||||
|
|
||||||
|
; 6551
|
||||||
|
.struct ACIA ; Asynchronous Communications Interface Adapter
|
||||||
|
.res $031C
|
||||||
|
DATA .byte
|
||||||
|
STATUS .byte
|
||||||
|
CMD .byte ; Command register
|
||||||
|
CTRL .byte ; Control register
|
||||||
|
.endstruct
|
||||||
|
|
||||||
|
SCREEN := $BB80
|
||||||
|
|
||||||
|
|
||||||
|
; ---------------------------------------------------------------------------
|
||||||
|
; ROM entries
|
||||||
|
|
||||||
|
XWR0 := $10
|
||||||
|
XWSTR0 := $14
|
||||||
|
|
||||||
150
asminc/telemon30.inc
Normal file
150
asminc/telemon30.inc
Normal file
@ -0,0 +1,150 @@
|
|||||||
|
;
|
||||||
|
; Oric Telemon definition
|
||||||
|
; Telemon 2.4
|
||||||
|
;
|
||||||
|
|
||||||
|
|
||||||
|
; ---------------------------------------------------------------------------
|
||||||
|
; Constants
|
||||||
|
|
||||||
|
SCREEN_XSIZE = 40 ; screen columns
|
||||||
|
SCREEN_YSIZE = 28 ; screen rows
|
||||||
|
|
||||||
|
FUNCTKEY = $A5
|
||||||
|
|
||||||
|
FNAME_LEN = 11 ; maximum length of file-name
|
||||||
|
|
||||||
|
|
||||||
|
; ---------------------------------------------------------------------------
|
||||||
|
; Zero page
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
; ---------------------------------------------------------------------------
|
||||||
|
; Low memory
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
; ---------------------------------------------------------------------------
|
||||||
|
; I/O locations
|
||||||
|
|
||||||
|
; 6522
|
||||||
|
.struct VIA ; Versatile Interface Adapter
|
||||||
|
.res $0300
|
||||||
|
PRB .byte ; Port Register B
|
||||||
|
PRA .byte ; Port Register A
|
||||||
|
DDRB .byte ; Data Direction Register B
|
||||||
|
DDRA .byte ; Data Direction Register A
|
||||||
|
T1 .word ; Timer 1
|
||||||
|
T1L .word ; Timer 1 Latch
|
||||||
|
T2 .word ; Timer 2
|
||||||
|
SR .byte ; Shift Register
|
||||||
|
ACR .byte ; Auxiliary Control Register
|
||||||
|
PCR .byte ; Peripheral Control Register
|
||||||
|
IFR .byte ; Interrupt Flags Register
|
||||||
|
IER .byte ; Interrupt Enable Register
|
||||||
|
PRA2 .byte ; Port Register A without handshaking
|
||||||
|
.endstruct
|
||||||
|
|
||||||
|
|
||||||
|
.struct VIA2 ; Versatile Interface Adapter
|
||||||
|
.res $0320
|
||||||
|
PRB .byte ; Port Register B
|
||||||
|
PRA .byte ; Port Register A
|
||||||
|
DDRB .byte ; Data Direction Register B
|
||||||
|
DDRA .byte ; Data Direction Register A
|
||||||
|
T1 .word ; Timer 1
|
||||||
|
T1L .word ; Timer 1 Latch
|
||||||
|
T2 .word ; Timer 2
|
||||||
|
SR .byte ; Shift Register
|
||||||
|
ACR .byte ; Auxiliary Control Register
|
||||||
|
PCR .byte ; Peripheral Control Register
|
||||||
|
IFR .byte ; Interrupt Flags Register
|
||||||
|
IER .byte ; Interrupt Enable Register
|
||||||
|
PRA2 .byte ; Port Register A without handshaking
|
||||||
|
.endstruct
|
||||||
|
|
||||||
|
; 6551
|
||||||
|
.struct ACIA ; Asynchronous Communications Interface Adapter
|
||||||
|
.res $031C
|
||||||
|
DATA .byte
|
||||||
|
STATUS .byte
|
||||||
|
CMD .byte ; Command register
|
||||||
|
CTRL .byte ; Control register
|
||||||
|
.endstruct
|
||||||
|
|
||||||
|
SCREEN := $BB80
|
||||||
|
|
||||||
|
|
||||||
|
; ---------------------------------------------------------------------------
|
||||||
|
; ROM entries
|
||||||
|
|
||||||
|
; primitives telemon 2.4
|
||||||
|
XRD0 := $08
|
||||||
|
XRDW0 := $0c
|
||||||
|
XWR0 := $10
|
||||||
|
XWSTR0 := $14
|
||||||
|
XTEXT := $19
|
||||||
|
XHIRES := $1A
|
||||||
|
XMINMA := $1f
|
||||||
|
XFREAD := $27 ; only in TELEMON 3.0
|
||||||
|
XOPEN := $30 ; only in TELEMON 3.0
|
||||||
|
XCOSCR := $34 ; switch off cursor
|
||||||
|
XCSSCR := $35 ; switch on cursor
|
||||||
|
XCLOSE := $3a ; Close file
|
||||||
|
XFWRITE:= $3b ; write
|
||||||
|
|
||||||
|
XSONPS := $40
|
||||||
|
XOUPS := $42
|
||||||
|
XPLAY := $43
|
||||||
|
XSOUND := $44
|
||||||
|
XMUSIC := $45
|
||||||
|
XZAP := $46
|
||||||
|
XSHOOT := $47
|
||||||
|
XCIRCL := $8f
|
||||||
|
XCURSE := $90
|
||||||
|
XEXPLO := $9c
|
||||||
|
XPING := $9d
|
||||||
|
XPAPER := $92
|
||||||
|
XINK := $93
|
||||||
|
|
||||||
|
|
||||||
|
; ---------------------------------------------------------------------------
|
||||||
|
; Page 00
|
||||||
|
RES := $00
|
||||||
|
RESB := $02
|
||||||
|
|
||||||
|
TR0 := $0c
|
||||||
|
TR1 := $0d
|
||||||
|
|
||||||
|
PTR_READ_DEST := $2c ; used for XFREAD and XWRITE
|
||||||
|
|
||||||
|
HRSX := $46
|
||||||
|
HRSY := $47
|
||||||
|
|
||||||
|
HRS1 := $4D
|
||||||
|
HRS2 := $4F
|
||||||
|
HRS3 := $51
|
||||||
|
HRS4 := $53
|
||||||
|
HRS5 := $55
|
||||||
|
|
||||||
|
; ---------------------------------------------------------------------------
|
||||||
|
; Page $500
|
||||||
|
|
||||||
|
BUFNOM := $517
|
||||||
|
BUFEDT := $590
|
||||||
|
|
||||||
|
MAX_BUFEDT_LENGTH=110
|
||||||
|
|
||||||
|
; Hardware
|
||||||
|
CH376_DATA :=$340
|
||||||
|
CH376_COMMAND :=$341
|
||||||
|
|
||||||
|
; MACRO
|
||||||
|
|
||||||
|
|
||||||
|
.macro BRK_TELEMON value
|
||||||
|
.byte $00,value
|
||||||
|
.endmacro
|
||||||
43
cfg/telemon24.cfg
Normal file
43
cfg/telemon24.cfg
Normal file
@ -0,0 +1,43 @@
|
|||||||
|
SYMBOLS {
|
||||||
|
|
||||||
|
__ORIXHDR__: type = import;
|
||||||
|
|
||||||
|
__STACKSIZE__: type = weak, value = $0800; # 2K stack
|
||||||
|
|
||||||
|
__RAMEND__: type = weak, value = $9800 + $1C00 ;
|
||||||
|
}
|
||||||
|
MEMORY {
|
||||||
|
ZP: file = "", define = yes, start = $00E2, size = $001A;
|
||||||
|
ORIXHDR: file = %O, type = ro, start = $0000, size = $001F;
|
||||||
|
BASHEAD: file = %O, define = yes, start = $0801, size = $000D;
|
||||||
|
MAIN: file = %O, define = yes, start = __BASHEAD_LAST__, size = __RAMEND__ - __MAIN_START__;
|
||||||
|
BSS: file = "", start = __ONCE_RUN__, size = __RAMEND__ - __STACKSIZE__ - __ONCE_RUN__;
|
||||||
|
}
|
||||||
|
SEGMENTS {
|
||||||
|
ZEROPAGE: load = ZP, type = zp;
|
||||||
|
ORIXHDR: load = ORIXHDR, type = ro;
|
||||||
|
STARTUP: load = MAIN, type = ro;
|
||||||
|
LOWCODE: load = MAIN, type = ro, optional = yes;
|
||||||
|
CODE: load = MAIN, type = ro;
|
||||||
|
RODATA: load = MAIN, type = ro;
|
||||||
|
DATA: load = MAIN, type = rw;
|
||||||
|
INIT: load = MAIN, type = rw;
|
||||||
|
ONCE: load = MAIN, type = ro, define = yes;
|
||||||
|
BASTAIL: load = MAIN, type = ro, optional = yes;
|
||||||
|
BSS: load = BSS, type = bss, define = yes;
|
||||||
|
}
|
||||||
|
FEATURES {
|
||||||
|
CONDES: type = constructor,
|
||||||
|
label = __CONSTRUCTOR_TABLE__,
|
||||||
|
count = __CONSTRUCTOR_COUNT__,
|
||||||
|
segment = ONCE;
|
||||||
|
CONDES: type = destructor,
|
||||||
|
label = __DESTRUCTOR_TABLE__,
|
||||||
|
count = __DESTRUCTOR_COUNT__,
|
||||||
|
segment = RODATA;
|
||||||
|
CONDES: type = interruptor,
|
||||||
|
label = __INTERRUPTOR_TABLE__,
|
||||||
|
count = __INTERRUPTOR_COUNT__,
|
||||||
|
segment = RODATA,
|
||||||
|
import = __CALLIRQ__;
|
||||||
|
}
|
||||||
21
include/telemon30.h
Normal file
21
include/telemon30.h
Normal file
@ -0,0 +1,21 @@
|
|||||||
|
|
||||||
|
void print (char *);
|
||||||
|
|
||||||
|
void hires();
|
||||||
|
void text();
|
||||||
|
void oups();
|
||||||
|
void ping();
|
||||||
|
void zap();
|
||||||
|
void shoot();
|
||||||
|
void explode();
|
||||||
|
|
||||||
|
void paper(char color);
|
||||||
|
void ink(char color);
|
||||||
|
|
||||||
|
void kbdclick1();
|
||||||
|
|
||||||
|
void curset(char x,char y, char display, char display);
|
||||||
|
void circle(char rayon);
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
17
libsrc/telemon30/_close.s
Normal file
17
libsrc/telemon30/_close.s
Normal file
@ -0,0 +1,17 @@
|
|||||||
|
.export _close
|
||||||
|
.import addysp,popax
|
||||||
|
.importzp sp,tmp2,tmp3,tmp1
|
||||||
|
|
||||||
|
; int open (const char* name, int flags, ...); /* May take a mode argument */
|
||||||
|
.include "telemon30.inc"
|
||||||
|
.include "errno.inc"
|
||||||
|
.include "fcntl.inc"
|
||||||
|
|
||||||
|
.proc _close
|
||||||
|
; Throw away any additional parameters passed through the ellipsis
|
||||||
|
|
||||||
|
BRK_TELEMON XCLOSE ; launch primitive ROM
|
||||||
|
rts
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
|
||||||
@ -1,6 +1,7 @@
|
|||||||
.export _open
|
.export _open
|
||||||
.import addysp,popax
|
.import addysp,popax
|
||||||
.importzp sp,tmp2,tmp3,tmp1
|
.importzp sp,tmp2,tmp3,tmp1
|
||||||
|
|
||||||
; int open (const char* name, int flags, ...); /* May take a mode argument */
|
; int open (const char* name, int flags, ...); /* May take a mode argument */
|
||||||
.include "telemon30.inc"
|
.include "telemon30.inc"
|
||||||
.include "errno.inc"
|
.include "errno.inc"
|
||||||
@ -20,46 +21,11 @@
|
|||||||
|
|
||||||
parmok: jsr popax ; Get flagss
|
parmok: jsr popax ; Get flagss
|
||||||
sta tmp3 ; save flags
|
sta tmp3 ; save flags
|
||||||
|
|
||||||
;AND #O_RDONLY
|
|
||||||
;beq READONLY
|
|
||||||
;lda tmp3
|
|
||||||
;AND #O_WRONLY
|
|
||||||
;beq WRITEONLY
|
|
||||||
;jmp next
|
|
||||||
|
|
||||||
;READONLY:
|
|
||||||
; lda #'r'
|
|
||||||
; BRK_TELEMON XWR0
|
|
||||||
; jmp next
|
|
||||||
;WRITEONLY:
|
|
||||||
; lda #'w'
|
|
||||||
; BRK_TELEMON XWR0
|
|
||||||
|
|
||||||
;next:
|
|
||||||
; Get the filename from stack and parse it. Bail out if is not ok
|
; Get the filename from stack and parse it. Bail out if is not ok
|
||||||
|
|
||||||
jsr popax ; Get name
|
jsr popax ; Get name
|
||||||
|
ldy tmp3 ; Get flags again
|
||||||
|
BRK_TELEMON XOPEN ; launch primitive ROM
|
||||||
ldy tmp3 ; Get flags
|
|
||||||
|
|
||||||
|
|
||||||
BRK_TELEMON XOPEN
|
|
||||||
|
|
||||||
; jsr fnparse ; Parse it
|
|
||||||
;tax
|
|
||||||
;bne oserror ; Bail out if problem with name
|
|
||||||
|
|
||||||
; Get a free file handle and remember it in tmp2
|
|
||||||
|
|
||||||
; jsr freefd
|
|
||||||
;lda #EMFILE ; Load error code
|
|
||||||
;bcs seterrno ; Jump in case of errors
|
|
||||||
;stx tmp2
|
|
||||||
;
|
|
||||||
|
|
||||||
|
|
||||||
rts
|
rts
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
|
|||||||
@ -1,28 +1,44 @@
|
|||||||
;
|
;
|
||||||
; Ullrich von Bassewitz, 2003-04-13
|
; jede jede@oric.org 2017-01-22
|
||||||
;
|
;
|
||||||
|
|
||||||
;
|
|
||||||
|
|
||||||
|
.FEATURE c_comments,labels_without_colons,pc_assignment, loose_char_term
|
||||||
.export _read
|
.export _read
|
||||||
.import popax
|
.import popax
|
||||||
.importzp ptr1, ptr2, ptr3, tmp1, tmp2
|
|
||||||
|
|
||||||
|
.include "zeropage.inc"
|
||||||
.include "telemon30.inc"
|
.include "telemon30.inc"
|
||||||
; int read (int fd, void* buf, unsigned count);
|
; int read (int fd, void* buf, unsigned count);
|
||||||
|
|
||||||
.proc _read
|
.proc _read
|
||||||
;jsr popax ; fp pointer don't care
|
|
||||||
sta tmp1 ; count
|
sta ptr1 ; count
|
||||||
stx tmp2 ; count
|
stx ptr1+1 ; count
|
||||||
jsr popax ; get buf
|
jsr popax ; get buf
|
||||||
;lda #$00
|
|
||||||
;ldx #$a0
|
|
||||||
sta PTR_READ_DEST
|
sta PTR_READ_DEST
|
||||||
stx PTR_READ_DEST+1
|
stx PTR_READ_DEST+1
|
||||||
lda tmp1 ;
|
sta ptr2 ; in order to calculate nb of bytes read
|
||||||
ldy tmp2 ;
|
stx ptr2+1 ;
|
||||||
BRK_TELEMON XFREAD
|
|
||||||
|
;jsr popax ; fp pointer don't care in this version
|
||||||
|
|
||||||
|
lda ptr1 ;
|
||||||
|
ldy ptr1+1 ;
|
||||||
|
BRK_TELEMON XFREAD ; calls telemon30 routine
|
||||||
|
; compute nb of bytes read
|
||||||
|
lda PTR_READ_DEST+1
|
||||||
|
sec
|
||||||
|
sbc ptr2+1
|
||||||
|
tax
|
||||||
|
lda PTR_READ_DEST
|
||||||
|
sec
|
||||||
|
sbc ptr2
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
; Here A and X contains number of bytes read
|
||||||
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
|
|
||||||
; For XA65 compatibily in the futur
|
; For XA65 compatibily in the future
|
||||||
.FEATURE c_comments,labels_without_colons,pc_assignment, loose_char_term
|
.FEATURE c_comments,labels_without_colons,pc_assignment, loose_char_term
|
||||||
.export _ch376_set_file_name
|
.export _ch376_set_file_name
|
||||||
.export _ch376_file_open
|
.export _ch376_file_open
|
||||||
@ -8,14 +8,16 @@
|
|||||||
.export _ch376_check_exist
|
.export _ch376_check_exist
|
||||||
.export _ch376_disk_mount
|
.export _ch376_disk_mount
|
||||||
.export _ch376_set_usb_mode
|
.export _ch376_set_usb_mode
|
||||||
.export _ch376_file_create
|
|
||||||
.export _ch376_fcreate
|
|
||||||
|
|
||||||
|
.export _ch376_file_close
|
||||||
|
.export _ch376_seek_file
|
||||||
|
.export _ch376_file_create
|
||||||
|
.export _ch376_fwrite
|
||||||
; High level function
|
; High level function
|
||||||
.export _ch376_fcreate
|
|
||||||
|
|
||||||
.import popax
|
.import popax
|
||||||
.importzp sp,tmp2,tmp3,tmp1
|
.include "zeropage.inc"
|
||||||
.include "telemon30.inc"
|
.include "telemon30.inc"
|
||||||
/*
|
/*
|
||||||
|
|
||||||
@ -24,9 +26,26 @@
|
|||||||
|
|
||||||
CH376_SET_USB_MODE_CODE_USB_HOST_SOF_PACKAGE_AUTOMATICALLY := $06
|
CH376_SET_USB_MODE_CODE_USB_HOST_SOF_PACKAGE_AUTOMATICALLY := $06
|
||||||
|
|
||||||
CH376_USB_INT_DISK_READ := $1d
|
|
||||||
CH376_USB_INT_SUCCESS := $14
|
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_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
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@ -36,46 +55,57 @@ CH376_GET_ENTER_SLEEP := $03
|
|||||||
CH376_RESET_ALL := $05
|
CH376_RESET_ALL := $05
|
||||||
CH376_CHECK_EXIST := $06
|
CH376_CHECK_EXIST := $06
|
||||||
CH376_GET_FILE_SIZE := $0C
|
CH376_GET_FILE_SIZE := $0C
|
||||||
|
|
||||||
CH376_SET_USB_MODE := $15
|
CH376_SET_USB_MODE := $15
|
||||||
CH376_GET_STATUS := $22
|
CH376_GET_STATUS := $22
|
||||||
CH376_RD_USB_DATA0 := $27
|
CH376_RD_USB_DATA0 := $27
|
||||||
CH376_SET_FILE_NAME := $2f
|
CH376_CMD_WR_REQ_DATA := $2d
|
||||||
|
CH376_SET_FILE_NAME := $2F
|
||||||
|
|
||||||
CH376_DISK_CONNECT := $30 ; check the disk connection status
|
CH376_DISK_CONNECT := $30 ; check the disk connection status
|
||||||
CH376_DISK_MOUNT := $31
|
CH376_DISK_MOUNT := $31
|
||||||
CH376_FILE_OPEN := $32
|
CH376_FILE_OPEN := $32
|
||||||
CH376_FILE_ENUM_GO := $33
|
CH376_FILE_ENUM_GO := $33
|
||||||
CH376_FILE_CREATE := $34
|
CH376_FILE_CREATE := $34
|
||||||
CH376_FILE_CLOSE := $36
|
CH376_FILE_CLOSE := $36
|
||||||
|
CH376_BYTE_LOCATE := $39
|
||||||
CH376_BYTE_READ := $3A
|
CH376_BYTE_READ := $3A
|
||||||
CH376_BYTE_RD_GO := $3b
|
CH376_BYTE_RD_GO := $3B
|
||||||
CH376_BYTE_WRITE := $3C
|
CH376_BYTE_WRITE := $3C
|
||||||
|
CH376_BYTE_WR_GO := $3D
|
||||||
CH376_DISK_CAPACITY := $3E
|
CH376_DISK_CAPACITY := $3E
|
||||||
CH376_DISK_RD_GO := $55
|
CH376_DISK_RD_GO := $55
|
||||||
|
|
||||||
.proc _ch376_file_create
|
.proc _ch376_file_close
|
||||||
lda #CH376_FILE_CREATE
|
lda #CH376_FILE_CLOSE
|
||||||
sta CH376_COMMAND
|
sta CH376_COMMAND
|
||||||
jsr _ch376_wait_response
|
jsr _ch376_wait_response
|
||||||
rts
|
rts
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
; void _ch376_fcreate(char *filename)
|
.proc _ch376_seek_file
|
||||||
.proc _ch376_fcreate
|
ldx #CH376_BYTE_LOCATE
|
||||||
jsr _ch376_set_file_name
|
stx CH376_COMMAND
|
||||||
jsr _ch376_file_open
|
sta CH376_DATA
|
||||||
jsr _ch376_file_create
|
sty CH376_DATA
|
||||||
|
lda #$00 ; Don't manage 32 bits length
|
||||||
|
sta CH376_DATA
|
||||||
|
sta CH376_DATA
|
||||||
|
jsr _ch376_wait_response
|
||||||
|
rts
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
; void ch376_set_file_name(char *filename)
|
; void ch376_set_file_name(char *filename)
|
||||||
.proc _ch376_set_file_name
|
.proc _ch376_set_file_name
|
||||||
sta tmp1
|
sta ptr1
|
||||||
stx tmp1+1
|
stx ptr1+1
|
||||||
lda #CH376_SET_FILE_NAME ;$2f
|
lda #CH376_SET_FILE_NAME ;$2f
|
||||||
sta CH376_COMMAND
|
sta CH376_COMMAND
|
||||||
ldy #0
|
ldy #0
|
||||||
loop:
|
loop:
|
||||||
lda (tmp1),y ; replace by bufnom
|
lda (ptr1),y ; replace by bufnom
|
||||||
beq end ; we reached 0 value
|
beq end ; we reached 0 value
|
||||||
|
;BRK_TELEMON XMINMA
|
||||||
sta CH376_DATA
|
sta CH376_DATA
|
||||||
iny
|
iny
|
||||||
cpy #13 ; because we don't manage longfilename shortname =11
|
cpy #13 ; because we don't manage longfilename shortname =11
|
||||||
@ -85,12 +115,13 @@ end:
|
|||||||
rts
|
rts
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
; void _ch376_file_open();
|
; char _ch376_file_open();
|
||||||
|
|
||||||
.proc _ch376_file_open
|
.proc _ch376_file_open
|
||||||
lda #CH376_FILE_OPEN ; $32
|
lda #CH376_FILE_OPEN ; $32
|
||||||
sta CH376_COMMAND
|
sta CH376_COMMAND
|
||||||
jsr _ch376_wait_response
|
jsr _ch376_wait_response
|
||||||
|
; ldx #0
|
||||||
rts
|
rts
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
@ -155,34 +186,34 @@ loop:
|
|||||||
|
|
||||||
.proc _ch376_set_usb_mode
|
.proc _ch376_set_usb_mode
|
||||||
; CH376_SET_USB_MODE_CODE_USB_HOST_SOF_PACKAGE_AUTOMATICALLY
|
; CH376_SET_USB_MODE_CODE_USB_HOST_SOF_PACKAGE_AUTOMATICALLY
|
||||||
pha
|
ldx #CH376_SET_USB_MODE ; $15
|
||||||
lda #CH376_SET_USB_MODE ; $15
|
stx CH376_COMMAND
|
||||||
sta CH376_COMMAND
|
|
||||||
pla
|
|
||||||
sta CH376_DATA
|
sta CH376_DATA
|
||||||
rts
|
rts
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
|
|
||||||
; void ch376_set_bytes_write(int value);
|
; void ch376_set_bytes_write(int value);
|
||||||
.proc _ch376_set_bytes_write
|
.proc _ch376_set_bytes_write
|
||||||
sta tmp1
|
ldy #CH376_BYTE_WRITE
|
||||||
stx tmp1+1
|
sty CH376_COMMAND
|
||||||
ldx #CH376_BYTE_WRITE
|
sta CH376_DATA
|
||||||
stx CH376_COMMAND
|
stx CH376_DATA
|
||||||
lda tmp1
|
lda #0
|
||||||
sta CH376_DATA
|
sta CH376_DATA
|
||||||
lda tmp1+1
|
|
||||||
sta CH376_DATA
|
sta CH376_DATA
|
||||||
jsr _ch376_wait_response
|
jsr _ch376_wait_response
|
||||||
rts
|
rts
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
.proc _ch376_set_bytes_read
|
.proc _ch376_set_bytes_read
|
||||||
ldx #CH376_BYTE_READ
|
ldy #CH376_BYTE_READ
|
||||||
stx CH376_COMMAND
|
sty CH376_COMMAND
|
||||||
|
; Storing 32 bits value
|
||||||
|
sta CH376_DATA
|
||||||
|
stx CH376_DATA
|
||||||
|
lda #0
|
||||||
|
sta CH376_DATA
|
||||||
sta CH376_DATA
|
sta CH376_DATA
|
||||||
sty CH376_DATA
|
|
||||||
jsr _ch376_wait_response
|
jsr _ch376_wait_response
|
||||||
rts
|
rts
|
||||||
.endproc
|
.endproc
|
||||||
@ -204,7 +235,7 @@ loop:
|
|||||||
; else A contains answer of the controller
|
; else A contains answer of the controller
|
||||||
ldy #$ff
|
ldy #$ff
|
||||||
loop3:
|
loop3:
|
||||||
ldx #$ff ; merci de laisser une valeur importante car parfois en mode non debug, le controleur ne répond pas tout de suite
|
ldx #$ff ; don't decrease this counter. Because ch376 won't respond if there is a lower value
|
||||||
loop:
|
loop:
|
||||||
lda CH376_COMMAND
|
lda CH376_COMMAND
|
||||||
and #%10000000
|
and #%10000000
|
||||||
@ -223,3 +254,137 @@ no_error:
|
|||||||
rts
|
rts
|
||||||
.endproc
|
.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
|
||||||
|
;cmp #CH376_USB_INT_SUCCESS
|
||||||
|
;beq finished
|
||||||
|
;jsr popax
|
||||||
|
|
||||||
|
;jsr _ch376_wait_response
|
||||||
|
|
||||||
|
continue:
|
||||||
|
cmp #CH376_USB_INT_DISK_WRITE ; 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_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
|
||||||
|
lda #65
|
||||||
|
sta CH376_DATA ; read the data
|
||||||
|
dec tmp2
|
||||||
|
bne loop
|
||||||
|
; dec ptr2
|
||||||
|
;bne continue3
|
||||||
|
;dec ptr2+1
|
||||||
|
;bne continue3
|
||||||
|
;continue3
|
||||||
|
; lda ptr2+1
|
||||||
|
;bne continue2
|
||||||
|
;lda ptr2
|
||||||
|
;beq finished
|
||||||
|
;continue2
|
||||||
|
; 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_WR_GO
|
||||||
|
sta CH376_COMMAND
|
||||||
|
jsr _ch376_wait_response
|
||||||
|
jmp continue
|
||||||
|
finished:
|
||||||
|
; TODO return bytes read
|
||||||
|
lda tmp1
|
||||||
|
;lda #<8000
|
||||||
|
ldx tmp1+1
|
||||||
|
;ldx #>8000
|
||||||
|
rts
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
.proc _ch376_file_create
|
||||||
|
lda #CH376_FILE_CREATE
|
||||||
|
sta CH376_COMMAND
|
||||||
|
jsr _ch376_wait_response
|
||||||
|
rts
|
||||||
|
.endproc
|
||||||
@ -1,6 +1,6 @@
|
|||||||
.export _paper,_hires,_text,_circle,_curset, _switchOffCursor
|
.export _paper,_hires,_text,_circle,_curset, _switchOffCursor
|
||||||
.importzp sp,tmp2,tmp3,tmp1
|
.importzp sp,tmp2,tmp3,tmp1
|
||||||
|
.import popa
|
||||||
.include "telemon30.inc"
|
.include "telemon30.inc"
|
||||||
|
|
||||||
.proc _paper
|
.proc _paper
|
||||||
@ -30,8 +30,11 @@
|
|||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
.proc _curset
|
.proc _curset
|
||||||
|
jsr popa ; Pixel
|
||||||
|
jsr popa
|
||||||
sta HRSX
|
sta HRSX
|
||||||
sty HRSY
|
jsr popa
|
||||||
|
sta HRSY
|
||||||
BRK_TELEMON XCURSE
|
BRK_TELEMON XCURSE
|
||||||
rts
|
rts
|
||||||
.endproc
|
.endproc
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
;
|
;
|
||||||
; Based on code by Debrune Jérôme <jede@oric.org>
|
; Based on code by Debrune Jérôme <jede@oric.org>
|
||||||
; 2016-03-17, Greg King
|
; 2016-03-17, Greg King
|
||||||
;
|
;
|
||||||
|
|
||||||
@ -19,17 +19,16 @@
|
|||||||
|
|
||||||
.byte $01, $00 ;
|
.byte $01, $00 ;
|
||||||
|
|
||||||
.byte "ORI"
|
.byte "ori"
|
||||||
|
|
||||||
.byte $01 ; version
|
.byte $01 ; version
|
||||||
.byte $00,$00 ; mode
|
.byte $00,%00000000 ; 6502 only
|
||||||
.byte $00,$00 ; cpu type
|
.byte $00,$00 ; Extends
|
||||||
.byte $00,$00 ; OS
|
.byte $00,$00 ; OS
|
||||||
|
|
||||||
.byte $00 ; reserved
|
.byte $00 ; reserved
|
||||||
.byte $00 ; auto
|
.byte $00 ; auto
|
||||||
|
|
||||||
|
|
||||||
.word __BASHEAD_START__ ; Address of start of file
|
.word __BASHEAD_START__ ; Address of start of file
|
||||||
.word __MAIN_LAST__ - 1 ; Address of end of file
|
.word __MAIN_LAST__ - 1 ; Address of end of file
|
||||||
.word __BASHEAD_START__ ; Address of start of file
|
.word __BASHEAD_START__ ; Address of start of file
|
||||||
|
|||||||
@ -27,6 +27,28 @@
|
|||||||
sta ptr1
|
sta ptr1
|
||||||
stx ptr1+1
|
stx ptr1+1
|
||||||
jsr popax ; get fd and discard
|
jsr popax ; get fd and discard
|
||||||
|
|
||||||
|
; if fd=0001 then it stdout
|
||||||
|
|
||||||
|
|
||||||
|
cpx #0
|
||||||
|
beq next
|
||||||
|
jmp L1
|
||||||
|
next:
|
||||||
|
cmp #1
|
||||||
|
beq L1
|
||||||
|
|
||||||
|
; Here it's a file opened
|
||||||
|
lda ptr1
|
||||||
|
sta PTR_READ_DEST
|
||||||
|
lda ptr1+1
|
||||||
|
sta PTR_READ_DEST+1
|
||||||
|
lda ptr3
|
||||||
|
ldy ptr3+1
|
||||||
|
BRK_TELEMON XFWRITE
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
L1: inc ptr2
|
L1: inc ptr2
|
||||||
bne L2
|
bne L2
|
||||||
inc ptr2+1
|
inc ptr2+1
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user