--- /dev/null
+;
+; 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
+
--- /dev/null
+;
+; 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
--- /dev/null
+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__;
+}
--- /dev/null
+
+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);
+
+
+
--- /dev/null
+ .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
+
+
\ No newline at end of file
.export _open
.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"
+ .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 _open
; Throw away any additional parameters passed through the ellipsis
dey ; ...checked (it generates a c compiler warning)
dey
dey
- beq parmok ; Branch if parameter count ok
- jsr addysp ; Fix stack, throw away unused parameters
+ beq parmok ; Branch if parameter count ok
+ jsr addysp ; Fix stack, throw away unused parameters
; Parameters ok. Pop the flags and save them into tmp3
-parmok: jsr popax ; Get flagss
- 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:
+parmok: jsr popax ; Get flagss
+ sta tmp3 ; save flags
; Get the filename from stack and parse it. Bail out if is not ok
- jsr popax ; Get name
-
-
- 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
-;
-
-
+ jsr popax ; Get name
+ ldy tmp3 ; Get flags again
+ BRK_TELEMON XOPEN ; launch primitive ROM
rts
.endproc
;
-; 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
.import popax
- .importzp ptr1, ptr2, ptr3, tmp1, tmp2
-
+
+ .include "zeropage.inc"
.include "telemon30.inc"
; int read (int fd, void* buf, unsigned count);
.proc _read
- ;jsr popax ; fp pointer don't care
- sta tmp1 ; count
- stx tmp2 ; count
- jsr popax ; get buf
- ;lda #$00
- ;ldx #$a0
- sta PTR_READ_DEST
- stx PTR_READ_DEST+1
- lda tmp1 ;
- ldy tmp2 ;
- BRK_TELEMON XFREAD
-
+
+ sta ptr1 ; count
+ stx ptr1+1 ; count
+ jsr popax ; get buf
+
+ sta PTR_READ_DEST
+ stx PTR_READ_DEST+1
+ sta ptr2 ; in order to calculate nb of bytes read
+ stx ptr2+1 ;
+
+ ;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
.endproc
- ; For XA65 compatibily in the futur
+ ; 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_check_exist
.export _ch376_disk_mount
.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
- .export _ch376_fcreate
+
.import popax
- .importzp sp,tmp2,tmp3,tmp1
+ .include "zeropage.inc"
.include "telemon30.inc"
/*
CH376_SET_USB_MODE_CODE_USB_HOST_SOF_PACKAGE_AUTOMATICALLY := $06
-CH376_USB_INT_DISK_READ := $1d
-CH376_USB_INT_SUCCESS := $14
-CH376_ERR_MISS_FILE := $42
-
+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_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_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_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_RD_GO := $3B
CH376_BYTE_WRITE := $3C
+CH376_BYTE_WR_GO := $3D
CH376_DISK_CAPACITY := $3E
CH376_DISK_RD_GO := $55
-.proc _ch376_file_create
- lda #CH376_FILE_CREATE
- sta CH376_COMMAND
- jsr _ch376_wait_response
- rts
+.proc _ch376_file_close
+ lda #CH376_FILE_CLOSE
+ sta CH376_COMMAND
+ jsr _ch376_wait_response
+ rts
.endproc
-; void _ch376_fcreate(char *filename)
-.proc _ch376_fcreate
- jsr _ch376_set_file_name
- jsr _ch376_file_open
- jsr _ch376_file_create
+.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 tmp1
- stx tmp1+1
- lda #CH376_SET_FILE_NAME ;$2f
- sta CH376_COMMAND
- ldy #0
+ sta ptr1
+ stx ptr1+1
+ lda #CH376_SET_FILE_NAME ;$2f
+ sta CH376_COMMAND
+ ldy #0
loop:
- lda (tmp1),y ; replace by bufnom
- beq end ; we reached 0 value
- sta CH376_DATA
+ 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
+ cpy #13 ; because we don't manage longfilename shortname =11
+ bne loop
end:
- sta CH376_DATA
+ sta CH376_DATA
rts
.endproc
-; void _ch376_file_open();
+; char _ch376_file_open();
.proc _ch376_file_open
- lda #CH376_FILE_OPEN ; $32
- sta CH376_COMMAND
- jsr _ch376_wait_response
+ lda #CH376_FILE_OPEN ; $32
+ sta CH376_COMMAND
+ jsr _ch376_wait_response
+; ldx #0
rts
.endproc
;CMD_GET_FILE_SIZE
.proc _ch376_get_file_size
- lda #CH376_GET_FILE_SIZE
- sta CH376_COMMAND
- lda #$68
- sta CH376_DATA
+ lda #CH376_GET_FILE_SIZE
+ sta CH376_COMMAND
+ lda #$68
+ sta CH376_DATA
; store file leng
- lda CH376_DATA
- sta tmp1
- lda CH376_DATA
- sta tmp1+1
- lda CH376_DATA
- sta tmp2
- lda CH376_DATA
- sta tmp2+1
+ lda CH376_DATA
+ sta tmp1
+ lda CH376_DATA
+ sta tmp1+1
+ lda CH376_DATA
+ sta tmp2
+ lda CH376_DATA
+ sta tmp2+1
rts
.endproc
.proc _ch376_set_usb_mode
; CH376_SET_USB_MODE_CODE_USB_HOST_SOF_PACKAGE_AUTOMATICALLY
- pha
- lda #CH376_SET_USB_MODE ; $15
- sta CH376_COMMAND
- pla
- sta CH376_DATA
+ 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
- sta tmp1
- stx tmp1+1
- ldx #CH376_BYTE_WRITE
- stx CH376_COMMAND
- lda tmp1
- sta CH376_DATA
- lda tmp1+1
- sta CH376_DATA
- jsr _ch376_wait_response
+ 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
- ldx #CH376_BYTE_READ
- stx CH376_COMMAND
- sta CH376_DATA
- sty CH376_DATA
- jsr _ch376_wait_response
+ 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
; else A contains answer of the controller
ldy #$ff
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:
lda CH376_COMMAND
and #%10000000
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
+ ;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
\ No newline at end of file
- .export _paper,_hires,_text,_circle,_curset, _switchOffCursor
- .importzp sp,tmp2,tmp3,tmp1
-
- .include "telemon30.inc"
+ .export _paper,_hires,_text,_circle,_curset, _switchOffCursor
+ .importzp sp,tmp2,tmp3,tmp1
+ .import popa
+ .include "telemon30.inc"
.proc _paper
ldx #0 ; First window
.endproc
.proc _curset
+ jsr popa ; Pixel
+ jsr popa
sta HRSX
- sty HRSY
+ jsr popa
+ sta HRSY
BRK_TELEMON XCURSE
rts
.endproc
;
-; 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
;
.segment "ORIXHDR"
- .byte $01, $00 ;
+ .byte $01, $00 ;
- .byte "ORI"
+ .byte "ori"
.byte $01 ; version
- .byte $00,$00 ; mode
- .byte $00,$00 ; cpu type
+ .byte $00,%00000000 ; 6502 only
+ .byte $00,$00 ; Extends
.byte $00,$00 ; OS
- .byte $00 ; reserved
- .byte $00 ; auto
-
+ .byte $00 ; reserved
+ .byte $00 ; auto
.word __BASHEAD_START__ ; Address of start of file
.word __MAIN_LAST__ - 1 ; Address of end of file
sta ptr1
stx ptr1+1
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
bne L2
inc ptr2+1
projects / cc65 / commitdiff