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

Subversion Repositories System09

[/] [System09/] [rev_86/] [src/] [Flex9/] [f9-init.asm] - Blame information for rev 135

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.