URL https://opencores.org/ocsvn/System09/System09/trunk

Subversion Repositories System09

[/] [System09/] [trunk/] [src/] [xrecv/] [XRECV.ASM] - Blame information for rev 182

Go to most recent revision | Details | Compare with Previous | View Log


*
** FLEX 9 DISK DRIVERS
*
* FOR SYS09BUG ON THE DIGILENT SPARTAN 3 STARTER BOARD
* WITH I/O MAPPED AT $XE000
* AND ROM MAPPED AT $XF000
* THE DIGILENT SPARTAN 3 STARTER BOARD HAS 1MBYTE OF SRAM
* THE FIRST 64K IS USED BY FLEX,
* THE SECOND 128K IS USED AS A ROM DISK
* THE REMAINING RAM IS USED FOR A RAM DISK
*
*
CFLAG   EQU $01     CARRY FLAG
VFLAG   EQU $02     OVERFLOW FLAG
ZFLAG   EQU $04     ZERO FLAG
NFLAG   EQU $08     NEGATIVE FLAG
IFLAG   EQU $10     IRQ MASK CC
HFLAG   EQU $20     HALF CARRY
FFLAG   EQU $40     FIRQ MASK CC
EFLAG   EQU $80     ENTIRE FLAG
*
MAPPAG  EQU $00     PAGE $0000 DAT ADDRESS
*
* Serial Port
*
ACIAS   EQU $E000
ACIAC1  EQU ACIAS
ACIAD1  EQU ACIAS+1
DELCON  EQU 1250    Delay (Processor clock in MHz * 50)
*
* XMODEM Control characters
*
SOH     EQU $01
EOT     EQU $04
ACK     EQU $06
NAK     EQU $15
CAN     EQU $18
*
* ASCII CONTROL CHARACTERS
*
HT      EQU $09
LF      EQU $0A
CR      EQU $0D
*
* Some dummy Constants
*
RMAXTRK EQU 48
RMAXSEC EQU 14
RTOTSEC EQU RMAXTRK*RMAXSEC-RMAXSEC
*
* Start
*
        ORG $0100
START   LBRA  LOAD1
*
*
* RAM SPACE
*
CHKSUM  FCB  0
BLKNUM  FCB  0 Xmodem block number
BYTCNT  FCB  0 Xmodem byte count
XSTATE  FDB  0 Xmodem State Vector
DELCNT  FCB  $00,$00,$00 Xmodem Poll timer
BUFPTR  FDB 0
TEXTFL  FCB 0
LINECT  FCB 0
        ORG  $0200
*
* SECTOR BUFFER
*
BUFFER  RMB  256
*
*
* ACIA INPUT TEST
*
INTEST  LDA ACIAC1
        BITA #$01
        RTS
*
* RESET ACIA
*
ACIRST  LDA #$03 master reset
        STA  ACIAC1
        LDA #$11
        STA ACIAC1
        RTS
*
* ACIA INPUT
*
INTER   LDA  #16
        STA  DELCNT+0
        CLR  DELCNT+1
        CLR  DELCNT+2
INTER0  LDA  ACIAC1
        BITA #$01
        BNE  INTER1
        BITA #$78
        BEQ  INTER2
        BSR  ACIRST
        BRA  INTER
*
INTER1  LDA  ACIAD1
        ANDCC #VFLAG
        RTS
*
INTER2  DEC  DELCNT+2
        BNE  INTER0
        DEC  DELCNT+1
        BNE  INTER0
        DEC  DELCNT+0
        BNE  INTER0
        CLRA
        ORCC #VFLAG
        RTS
*
* ACIA OUTPUT
*
OUTTER  PSHS A
*
OUTTE1  LDA ACIAC1
        BITA #$02
        BNE  OUTTE2
        BITA #$78
        BEQ  OUTTE1
        BSR  ACIRST
        BRA  OUTTE1
*
OUTTE2  PULS A
        STA ACIAD1
        RTS
*
* Print Data
*
PDATA0  BSR  OUTTER
PDATA1  LDA  ,X+
        CMPA #$04
        BNE  PDATA0
        RTS
*
* Get a Byte using XModem protocol
* Carry clear => no errors
* Carry set   => errors
*
XREAD   PSHS U
        LDU  XSTATE
*
XBYTE0  LBSR INTER
        BVC  XBYTE1
        LDA  #NAK
        LBSR OUTTER
        LDU  #XSTS
        BRA  XBYTE0
*
XBYTE1  JSR  ,U
        BNE  XBYTE0
        STU  XSTATE
        PULS U,PC
*
* START - LOOK FOR SOH (START OF HEADER) = $01
*
XSTS  CMPA #SOH
        BNE  XSTS1
        LDU  #XSTB
        ANDCC #$FF-CFLAG-ZFLAG No abort, no valid data (no exit)
        RTS
*
XSTS1 CMPA #EOT
        BNE  XSTS2
        LDA  #ACK
        LBSR OUTTER
        ORCC  #CFLAG+ZFLAG  Set (c)=1 abort & exit
        RTS
*
XSTS2 CMPA #CAN
        BNE  XSTS3
        ORCC  #CFLAG+ZFLAG  Set (c)=1 abort & exit
        RTS
*
XSTS3 ANDCC #$FF-CFLAG-ZFLAG
        RTS
*
* Got SOH
* Now get block number
*
XSTB  CMPA BLKNUM
        BNE  XSTBE
        LDU  #XSTCOM
        ANDCC #$FF-CFLAG-ZFLAG No abort, No valid data (no exit)
        RTS
*
* Error in block number
*
XSTBE LDA  #NAK
        LBSR OUTTER
        LDU  #XSTS
        ANDCC #$FF-CFLAG-ZFLAG No abort, No valid data (no exit)
        RTS
*
* Get complement of block number
*
XSTCOM  COMA
        CMPA BLKNUM
        BNE  XSTBE
        CLR  CHKSUM
        LDA  #128
        STA  BYTCNT
        LDU  #XSTD
        ANDCC #$FF-CFLAG-ZFLAG No abort, No valid data (no exit)
        RTS
*
* Get data bytes
*
XSTD  PSHS A
        ADDA CHKSUM
        STA  CHKSUM
        PULS A
        DEC  BYTCNT
        BNE  XSTD1
        LDU  #XSTC
XSTD1 STA  ,X+
        ANDCC #$FF-CFLAG-ZFLAG No abort, no valid data (no exit)
        RTS
*
* Byte count reached zero
* Check checksum byte
*
XSTC  CMPA CHKSUM
        BNE  XSTC1 retry if wrong checksum
*
* Checksum OK ...
* increment block number
* Don't send ACK until data written to CF
*
        INC  BLKNUM
        LDU  #XSTS
        ANDCC #$FF-CFLAG No abort
        ORCC #ZFLAG      Valid data (exit)
        RTS
*
* Checksum Error detected ...
* Reset Sector counter in ACCB to last 128 byte boundary
* and send NAK
*
XSTC1  LDX #BUFFER
        LDA  #NAK
XSTC2 LBSR OUTTER
        LDU  #XSTS
        ANDCC #$FF-CFLAG-ZFLAG No abort, no valid data (no exit)
        RTS
*
* Acknowledge Data Received
*
XACK    PSHS A
        LDA  #ACK
        LBSR OUTTER
        PULS A,PC
*
** FLEX CALLS
*
SYSFCB EQU $C840
WARMS  EQU $CD03
OUTCH  EQU $CD0F
OUTCH2 EQU $CD12
GETCHR EQU $CD15
PUTCHR EQU $CD18
PSTRNG EQU $CD1E
GETFIL EQU $CD2D
SETEXT EQU $CD33
RPTERR EQU $CD3F
GETHEX EQU $CD42
NXTCH  EQU $CD27
FMSCLS EQU $D403
FMS    EQU $D406
*
** MAIN ENTRY POINT
*
LOAD1  LDX #SYSFCB
       JSR >GETFIL
       BCC LOAD2
       LDB #$15
       STB $01,X
       JMP >FMSERR
LOAD2  JSR NXTCH
       ANDA #$5F
       CMPA #'T
       BNE LOAD3
       STA  TEXTFL
       LDX #TXTMSG
       JSR PDATA1
       BRA OPENWR
LOAD3  CMPA #$20
       BEQ LOAD2
*
** OPEN FILE FOR WRITE
*
OPENWR  LDX #SYSFCB
        LDA #$02
        STA ,X
        JSR >FMS
        LBNE DSKERR
        TST TEXTFL
        BEQ OPENW1
        LDA #$01
        JSR SETEXT
        BRA OPENW2
OPENW1  LDA #$FF
        STA $3B,X
OPENW2  EQU *
*
        LDU  #XSTS
        STU  XSTATE
        LDA  #1
        STA  BLKNUM
*
** WRITE BYTE TO DISK
*
WRLOOP LDX #BUFFER
       LBSR XREAD
       LBCS ABORT
       LDX #BUFFER
       LDB #128
       STX  BUFPTR
       STB  BYTCNT
WRLP1  LDX BUFPTR
       LDA ,X+
       STX BUFPTR
       TST  TEXTFL
       BEQ  WRLP2
       CMPA #HT
       BNE WRLP3
WRLP4  LDA  #$20
       LDX #SYSFCB
       JSR FMS
       INC LINECT
       LDA LINECT
       ANDA #$07
       BNE WRLP4
       BRA WRLP5
WRLP3  CMPA #LF
       BNE  WRLP2
       LDX  #SYSFCB
       JSR  FMS
       BNE DSKERR
       LDA  #CR
       CLR LINECT
       DEC LINECT
WRLP2  LDX #SYSFCB
       JSR >FMS
       BNE DSKERR
       INC LINECT
WRLP5  DEC  BYTCNT
       BNE  WRLP1
       LBSR XACK
       BRA  WRLOOP
*
** FINISHED LOAD
*
ABORT  LDX #ENDMSG
       JSR PSTRNG
       LBSR XACK
*
*
** CLOSE FILE
*
CLOSE  LDA #$04
       LDX #SYSFCB
       STA ,X
       JSR >FMS
       BEQ EXIT
*
** ERROR IN CLOSING
*
DSKERR LDA $01,X
FMSERR JSR >RPTERR
       JSR >FMSCLS
EXIT   JMP >WARMS
*
** MESSAGES
*
ENDMSG FCC "FILE LOADED"
       FCB $04
TXTMSG FCB $0D,$0A
       FCC "TEXT FILE"
       FCB $04
       END START

Line No.	Rev	Author	Line
1	153	davidgb	`*`
2			`** FLEX 9 DISK DRIVERS`
3			`*`
4			`* FOR SYS09BUG ON THE DIGILENT SPARTAN 3 STARTER BOARD`
5			`* WITH I/O MAPPED AT $XE000`
6			`* AND ROM MAPPED AT $XF000`
7			`* THE DIGILENT SPARTAN 3 STARTER BOARD HAS 1MBYTE OF SRAM`
8			`* THE FIRST 64K IS USED BY FLEX,`
9			`* THE SECOND 128K IS USED AS A ROM DISK`
10			`* THE REMAINING RAM IS USED FOR A RAM DISK`
11			`*`
12			`*`
13			`CFLAG EQU $01 CARRY FLAG`
14			`VFLAG EQU $02 OVERFLOW FLAG`
15			`ZFLAG EQU $04 ZERO FLAG`
16			`NFLAG EQU $08 NEGATIVE FLAG`
17			`IFLAG EQU $10 IRQ MASK CC`
18			`HFLAG EQU $20 HALF CARRY`
19			`FFLAG EQU $40 FIRQ MASK CC`
20			`EFLAG EQU $80 ENTIRE FLAG`
21			`*`
22			`MAPPAG EQU $00 PAGE $0000 DAT ADDRESS`
23			`*`
24			`* Serial Port`
25			`*`
26			`ACIAS EQU $E000`
27			`ACIAC1 EQU ACIAS`
28			`ACIAD1 EQU ACIAS+1`
29			`DELCON EQU 1250 Delay (Processor clock in MHz * 50)`
30			`*`
31			`* XMODEM Control characters`
32			`*`
33			`SOH EQU $01`
34			`EOT EQU $04`
35			`ACK EQU $06`
36			`NAK EQU $15`
37			`CAN EQU $18`
38			`*`
39			`* ASCII CONTROL CHARACTERS`
40			`*`
41			`HT EQU $09`
42			`LF EQU $0A`
43			`CR EQU $0D`
44			`*`
45			`* Some dummy Constants`
46			`*`
47			`RMAXTRK EQU 48`
48			`RMAXSEC EQU 14`
49			`RTOTSEC EQU RMAXTRK*RMAXSEC-RMAXSEC`
50			`*`
51			`* Start`
52			`*`
53			`ORG $0100`
54			`START LBRA LOAD1`
55			`*`
56			`*`
57			`* RAM SPACE`
58			`*`
59			`CHKSUM FCB 0`
60			`BLKNUM FCB 0 Xmodem block number`
61			`BYTCNT FCB 0 Xmodem byte count`
62			`XSTATE FDB 0 Xmodem State Vector`
63			`DELCNT FCB $00,$00,$00 Xmodem Poll timer`
64			`BUFPTR FDB 0`
65			`TEXTFL FCB 0`
66			`LINECT FCB 0`
67			`ORG $0200`
68			`*`
69			`* SECTOR BUFFER`
70			`*`
71			`BUFFER RMB 256`
72			`*`
73			`*`
74			`* ACIA INPUT TEST`
75			`*`
76			`INTEST LDA ACIAC1`
77			`BITA #$01`
78			`RTS`
79			`*`
80			`* RESET ACIA`
81			`*`
82			`ACIRST LDA #$03 master reset`
83			`STA ACIAC1`
84			`LDA #$11`
85			`STA ACIAC1`
86			`RTS`
87			`*`
88			`* ACIA INPUT`
89			`*`
90			`INTER LDA #16`
91			`STA DELCNT+0`
92			`CLR DELCNT+1`
93			`CLR DELCNT+2`
94			`INTER0 LDA ACIAC1`
95			`BITA #$01`
96			`BNE INTER1`
97			`BITA #$78`
98			`BEQ INTER2`
99			`BSR ACIRST`
100			`BRA INTER`
101			`*`
102			`INTER1 LDA ACIAD1`
103			`ANDCC #VFLAG`
104			`RTS`
105			`*`
106			`INTER2 DEC DELCNT+2`
107			`BNE INTER0`
108			`DEC DELCNT+1`
109			`BNE INTER0`
110			`DEC DELCNT+0`
111			`BNE INTER0`
112			`CLRA`
113			`ORCC #VFLAG`
114			`RTS`
115			`*`
116			`* ACIA OUTPUT`
117			`*`
118			`OUTTER PSHS A`
119			`*`
120			`OUTTE1 LDA ACIAC1`
121			`BITA #$02`
122			`BNE OUTTE2`
123			`BITA #$78`
124			`BEQ OUTTE1`
125			`BSR ACIRST`
126			`BRA OUTTE1`
127			`*`
128			`OUTTE2 PULS A`
129			`STA ACIAD1`
130			`RTS`
131			`*`
132			`* Print Data`
133			`*`
134			`PDATA0 BSR OUTTER`
135			`PDATA1 LDA ,X+`
136			`CMPA #$04`
137			`BNE PDATA0`
138			`RTS`
139			`*`
140			`* Get a Byte using XModem protocol`
141			`* Carry clear => no errors`
142			`* Carry set => errors`
143			`*`
144			`XREAD PSHS U`
145			`LDU XSTATE`
146			`*`
147			`XBYTE0 LBSR INTER`
148			`BVC XBYTE1`
149			`LDA #NAK`
150			`LBSR OUTTER`
151			`LDU #XSTS`
152			`BRA XBYTE0`
153			`*`
154			`XBYTE1 JSR ,U`
155			`BNE XBYTE0`
156			`STU XSTATE`
157			`PULS U,PC`
158			`*`
159			`* START - LOOK FOR SOH (START OF HEADER) = $01`
160			`*`
161			`XSTS CMPA #SOH`
162			`BNE XSTS1`
163			`LDU #XSTB`
164			`ANDCC #$FF-CFLAG-ZFLAG No abort, no valid data (no exit)`
165			`RTS`
166			`*`
167			`XSTS1 CMPA #EOT`
168			`BNE XSTS2`
169			`LDA #ACK`
170			`LBSR OUTTER`
171			`ORCC #CFLAG+ZFLAG Set (c)=1 abort & exit`
172			`RTS`
173			`*`
174			`XSTS2 CMPA #CAN`
175			`BNE XSTS3`
176			`ORCC #CFLAG+ZFLAG Set (c)=1 abort & exit`
177			`RTS`
178			`*`
179			`XSTS3 ANDCC #$FF-CFLAG-ZFLAG`
180			`RTS`
181			`*`
182			`* Got SOH`
183			`* Now get block number`
184			`*`
185			`XSTB CMPA BLKNUM`
186			`BNE XSTBE`
187			`LDU #XSTCOM`
188			`ANDCC #$FF-CFLAG-ZFLAG No abort, No valid data (no exit)`
189			`RTS`
190			`*`
191			`* Error in block number`
192			`*`
193			`XSTBE LDA #NAK`
194			`LBSR OUTTER`
195			`LDU #XSTS`
196			`ANDCC #$FF-CFLAG-ZFLAG No abort, No valid data (no exit)`
197			`RTS`
198			`*`
199			`* Get complement of block number`
200			`*`
201			`XSTCOM COMA`
202			`CMPA BLKNUM`
203			`BNE XSTBE`
204			`CLR CHKSUM`
205			`LDA #128`
206			`STA BYTCNT`
207			`LDU #XSTD`
208			`ANDCC #$FF-CFLAG-ZFLAG No abort, No valid data (no exit)`
209			`RTS`
210			`*`
211			`* Get data bytes`
212			`*`
213			`XSTD PSHS A`
214			`ADDA CHKSUM`
215			`STA CHKSUM`
216			`PULS A`
217			`DEC BYTCNT`
218			`BNE XSTD1`
219			`LDU #XSTC`
220			`XSTD1 STA ,X+`
221			`ANDCC #$FF-CFLAG-ZFLAG No abort, no valid data (no exit)`
222			`RTS`
223			`*`
224			`* Byte count reached zero`
225			`* Check checksum byte`
226			`*`
227			`XSTC CMPA CHKSUM`
228			`BNE XSTC1 retry if wrong checksum`
229			`*`
230			`* Checksum OK ...`
231			`* increment block number`
232			`* Don't send ACK until data written to CF`
233			`*`
234			`INC BLKNUM`
235			`LDU #XSTS`
236			`ANDCC #$FF-CFLAG No abort`
237			`ORCC #ZFLAG Valid data (exit)`
238			`RTS`
239			`*`
240			`* Checksum Error detected ...`
241			`* Reset Sector counter in ACCB to last 128 byte boundary`
242			`* and send NAK`
243			`*`
244			`XSTC1 LDX #BUFFER`
245			`LDA #NAK`
246			`XSTC2 LBSR OUTTER`
247			`LDU #XSTS`
248			`ANDCC #$FF-CFLAG-ZFLAG No abort, no valid data (no exit)`
249			`RTS`
250			`*`
251			`* Acknowledge Data Received`
252			`*`
253			`XACK PSHS A`
254			`LDA #ACK`
255			`LBSR OUTTER`
256			`PULS A,PC`
257			`*`
258			`** FLEX CALLS`
259			`*`
260			`SYSFCB EQU $C840`
261			`WARMS EQU $CD03`
262			`OUTCH EQU $CD0F`
263			`OUTCH2 EQU $CD12`
264			`GETCHR EQU $CD15`
265			`PUTCHR EQU $CD18`
266			`PSTRNG EQU $CD1E`
267			`GETFIL EQU $CD2D`
268			`SETEXT EQU $CD33`
269			`RPTERR EQU $CD3F`
270			`GETHEX EQU $CD42`
271			`NXTCH EQU $CD27`
272			`FMSCLS EQU $D403`
273			`FMS EQU $D406`
274			`*`
275			`** MAIN ENTRY POINT`
276			`*`
277			`LOAD1 LDX #SYSFCB`
278			`JSR >GETFIL`
279			`BCC LOAD2`
280			`LDB #$15`
281			`STB $01,X`
282			`JMP >FMSERR`
283			`LOAD2 JSR NXTCH`
284			`ANDA #$5F`
285			`CMPA #'T`
286			`BNE LOAD3`
287			`STA TEXTFL`
288			`LDX #TXTMSG`
289			`JSR PDATA1`
290			`BRA OPENWR`
291			`LOAD3 CMPA #$20`
292			`BEQ LOAD2`
293			`*`
294			`** OPEN FILE FOR WRITE`
295			`*`
296			`OPENWR LDX #SYSFCB`
297			`LDA #$02`
298			`STA ,X`
299			`JSR >FMS`
300			`LBNE DSKERR`
301			`TST TEXTFL`
302			`BEQ OPENW1`
303			`LDA #$01`
304			`JSR SETEXT`
305			`BRA OPENW2`
306			`OPENW1 LDA #$FF`
307			`STA $3B,X`
308			`OPENW2 EQU *`
309			`*`
310			`LDU #XSTS`
311			`STU XSTATE`
312			`LDA #1`
313			`STA BLKNUM`
314			`*`
315			`** WRITE BYTE TO DISK`
316			`*`
317			`WRLOOP LDX #BUFFER`
318			`LBSR XREAD`
319			`LBCS ABORT`
320			`LDX #BUFFER`
321			`LDB #128`
322			`STX BUFPTR`
323			`STB BYTCNT`
324			`WRLP1 LDX BUFPTR`
325			`LDA ,X+`
326			`STX BUFPTR`
327			`TST TEXTFL`
328			`BEQ WRLP2`
329			`CMPA #HT`
330			`BNE WRLP3`
331			`WRLP4 LDA #$20`
332			`LDX #SYSFCB`
333			`JSR FMS`
334			`INC LINECT`
335			`LDA LINECT`
336			`ANDA #$07`
337			`BNE WRLP4`
338			`BRA WRLP5`
339			`WRLP3 CMPA #LF`
340			`BNE WRLP2`
341			`LDX #SYSFCB`
342			`JSR FMS`
343			`BNE DSKERR`
344			`LDA #CR`
345			`CLR LINECT`
346			`DEC LINECT`
347			`WRLP2 LDX #SYSFCB`
348			`JSR >FMS`
349			`BNE DSKERR`
350			`INC LINECT`
351			`WRLP5 DEC BYTCNT`
352			`BNE WRLP1`
353			`LBSR XACK`
354			`BRA WRLOOP`
355			`*`
356			`** FINISHED LOAD`
357			`*`
358			`ABORT LDX #ENDMSG`
359			`JSR PSTRNG`
360			`LBSR XACK`
361			`*`
362			`*`
363			`** CLOSE FILE`
364			`*`
365			`CLOSE LDA #$04`
366			`LDX #SYSFCB`
367			`STA ,X`
368			`JSR >FMS`
369			`BEQ EXIT`
370			`*`
371			`** ERROR IN CLOSING`
372			`*`
373			`DSKERR LDA $01,X`
374			`FMSERR JSR >RPTERR`
375			`JSR >FMSCLS`
376			`EXIT JMP >WARMS`
377			`*`
378			`** MESSAGES`
379			`*`
380			`ENDMSG FCC "FILE LOADED"`
381			`FCB $04`
382			`TXTMSG FCB $0D,$0A`
383			`FCC "TEXT FILE"`
384			`FCB $04`
385			`END START`

Browse

Tools

Subversion Repositories System09

[/] [System09/] [trunk/] [src/] [xrecv/] [XRECV.ASM] - Blame information for rev 182