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

Subversion Repositories System09

[/] [System09/] [rev_86/] [src/] [Flex9/] [f9-spool.asm] - Blame information for rev 147

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

Line No. Rev Author Line
1 59 davidgb
*
2
** PRINTER SPOOLING
3
*
4
 ORG $C700
5
PRSPL1 JMP ZC721
6
PRSPL2 JMP *
7
PRSPL3 JMP ZC747
8
PRSPL4 JMP ZC785
9
PRSPL5 JMP ZC795
10
PRSPL6 JMP ZC71F
11
*
12
** SPOOLER SCRATCH AREA
13
*
14
ZC712 FCB $0C,$00,$00,$00,$00,$C8,$10
15
ZC719 FCB $C8,$10
16
QCNT FCB $00
17
ZC71C FCB $00
18
ZC71D FCB $00
19
ZC71E FCB $00
20
*
21
ZC71F RTI
22
 NOP
23
*
24
ZC721 ORCC #$10
25
 LDX ZCC31
26
 STS 2,X
27
 TST ZCC34
28
 BNE ZC73F
29
 LDX #ZCCFC
30
 INC ZCC34
31
 TST ,X
32
 BEQ ZC73F
33
ZC738 STX ZCC31
34
 LDS $02,X
35
 RTI
36
*
37
ZC73F LDX #ZCCF8
38
 CLR ZCC34
39
 BRA ZC738
40
*
41
ZC747 ORCC #$10
42
 TST QCNT
43
 BEQ ZC777
44
 LDX ZC719
45
 LDA ,X
46
 PSHS A
47
 LDD $01,X
48
 LDX #ZCAC0
49
 STD $40,X
50
 PULS A
51
 STA $03,X
52
 CLR ,X
53
 LDA #$01
54
 STA $02,X
55
 CLR $22,X
56
 CLR $3B,X
57
ZC76D TST ZC71E
58
 BEQ ZC79B
59
 SWI3
60
 NOP
61
 BRA ZC76D
62
*
63
ZC777 ANDCC #$EF
64
ZC779 JSR [TOFVEC]
65
 CLR ZCCFC
66
 SWI3
67
 NOP
68
 BRA ZC779
69
*
70
ZC785 ORCC #$10
71
 TST ZCC30
72
 BEQ ZC791
73
 SWI3
74
 NOP
75
 BRA ZC785
76
*
77
ZC791 INC ZCC30
78
 RTS
79
*
80
ZC795 CLR ZCC30
81
 ANDCC #$EF
82
 RTS
83
*
84
ZC79B TST ZC71D
85
 BNE ZC7C7
86
 LDX #ZCAC0
87
 JSR FMS
88
 BNE ZC7C7
89
 TST ZC71C
90
 BEQ ZC7BC
91
 CLR ZC71C
92
 CMPA #$0A
93
 BEQ ZC7C3
94
 PSHS A
95
 LDA #$0A
96
 BSR ZC7F6
97
 PULS A
98
ZC7BC CMPA #$0D
99
 BNE ZC7C3
100
 STA ZC71C
101
ZC7C3 BSR ZC7F6
102
 BRA ZC79B
103
*
104
ZC7C7 LDA #$0D
105
 BSR ZC7F6
106
 LDA #$0A
107
 BSR ZC7F6
108
 LDA ZC712
109
 BSR ZC7F6
110
 CLR ZC71D
111
 LDX ZC719
112
 TST $03,X
113
 BEQ ZC7E3
114
 DEC $03,X
115
 JMP ZC747
116
*
117
ZC7E3 LEAX $04,X
118
 CMPX #FCB
119
 BNE ZC7ED
120
 LDX #ZC810
121
ZC7ED STX ZC719
122
 DEC QCNT
123
 JMP ZC747
124
*
125
ZC7F6 JSR PCHK
126
 BMI ZC800
127
 SWI3
128
 NOP
129
 BRA ZC7F6
130
*
131
ZC800 JMP POUT
132
ZC810 EQU $C810
133
ZC838 EQU $C838
134
 END

powered by: WebSVN 2.1.0

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