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

Subversion Repositories System09

[/] [System09/] [trunk/] [src/] [Flex9/] [f9-init.asm] - Blame information for rev 169

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

Line No. Rev Author Line
1 59 davidgb 
*
2 
** FLEX INITIATION
3 
*
4 
 ORG $CA00
5 
ZCA00 BRA ZCA08
6 
ZCA02 JSR >ZCAAC
7 
 RTS
8 
ZCA06 SUBB #$A0
9 
ZCA08 LDA #$39
10 
 STA >ZD3FD
11 
 LDX >MEMEND
12 
 LEAX $00A1,X
13 
 STX >ZCA06
14 
 JSR [TINVEC]
15 
 LDX >INVEC
16 
 STX >INCH+1
17 
 STX >INCH2+1
18 
 LDX >OUTVEC
19 
 STX >OUTCH+1
20 
 STX >OUTCH2+1
21 
 LDX >STAVEC
22 
 STX >ZCD4E+1
23 
 LDX #Z00A0
24 
 LDB #$B9
25 
ZCA38 LDA ,X
26 
 STB ,X
27 
 NOP
28 
 CMPB ,X
29 
 BNE ZCA4C
30 
 STA ,X
31 
 LEAX $0400,X
32 
 CMPX >ZCA06
33 
 BNE ZCA38
34 
ZCA4C LEAX $FF5F,X
35 
 STX >MEMEND
36 
 LDX #WARMS
37 
 STX >ESCVEC
38 
 LDX #TTLSTR
39 
 JSR >PSTRG1
40 
 JSR >PCRLF1
41 
 BSR ZCA02
42 
 JSR >PCRLF1
43 
 LDX #FCB
44 
 LDA #$01
45 
 STA ,X
46 
 JSR >FMS
47 
 BEQ ZCA7B
48 
 LDA $01,X
49 
 JSR >ZD200
50 
 JMP >WARM1
51 
 
52 
ZCA7B LDX #LINBUF
53 
ZCA7E STX >LINPTR
54 
 LDX #FCB
55 
 JSR >FMS
56 
 BEQ ZCA8E
57 
 PSHS Y,X
58 
 JMP >ZD2D7
59 
 
60 
ZCA8E LDX >LINPTR
61 
 STA ,X+
62 
 CMPA #$0D
63 
 BNE ZCA7E
64 
 LDX #FCB
65 
 JSR >ZD1F4
66 
 LDX #LINBUF
67 
 STX >LINPTR
68 
 LDX #WARM1
69 
 STX >ZCC43
70 
 JMP >ZD32E
71 
 
72 
ZCAAC LDX #DATSTR
73 
 JSR >PSTRG1
74 
 JSR >INBUF1
75 
 BSR ZCACB
76 
 BCS ZCAAC
77 
 STA >MONTH
78 
 BSR ZCACB
79 
 BCS ZCAAC
80 
ZCAC0 STA >DAY
81 
 BSR ZCACB
82 
 BCS ZCAAC
83 
 STA >YEAR
84 
 RTS
85 
 
86 
ZCACB JSR >INDEC1
87 
 BCS ZCADB
88 
 LDA >LODOFF+1
89 
 TSTB
90 
 BEQ ZCAD9
91 
 ANDCC #$FE
92 
 RTS
93 
 
94 
ZCAD9 ORCC #$01
95 
ZCADB RTS
96 
 
97 
TTLSTR FCC "6809 FLEX V3.01"
98 
 FCB $04
99 
DATSTR FCC "DATE (MM,DD,YY)? "
100 
 FCB $04
101 
 END

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.