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

Subversion Repositories System09

[/] [System09/] [branches/] [mkfiles_rev1/] [src/] [Flex9/] [f9-spool.asm] - Blame information for rev 113

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


*
** PRINTER SPOOLING
*
 ORG $C700
PRSPL1 JMP ZC721
PRSPL2 JMP *
PRSPL3 JMP ZC747
PRSPL4 JMP ZC785
PRSPL5 JMP ZC795
PRSPL6 JMP ZC71F
*
** SPOOLER SCRATCH AREA
*
ZC712 FCB $0C,$00,$00,$00,$00,$C8,$10
ZC719 FCB $C8,$10
QCNT FCB $00
ZC71C FCB $00
ZC71D FCB $00
ZC71E FCB $00
*
ZC71F RTI
 NOP
*
ZC721 ORCC #$10
 LDX ZCC31
 STS 2,X
 TST ZCC34
 BNE ZC73F
 LDX #ZCCFC
 INC ZCC34
 TST ,X
 BEQ ZC73F
ZC738 STX ZCC31
 LDS $02,X
 RTI
*
ZC73F LDX #ZCCF8
 CLR ZCC34
 BRA ZC738
*
ZC747 ORCC #$10
 TST QCNT
 BEQ ZC777
 LDX ZC719
 LDA ,X
 PSHS A
 LDD $01,X
 LDX #ZCAC0
 STD $40,X
 PULS A
 STA $03,X
 CLR ,X
 LDA #$01
 STA $02,X
 CLR $22,X
 CLR $3B,X
ZC76D TST ZC71E
 BEQ ZC79B
 SWI3
 NOP
 BRA ZC76D
*
ZC777 ANDCC #$EF
ZC779 JSR [TOFVEC]
 CLR ZCCFC
 SWI3
 NOP
 BRA ZC779
*
ZC785 ORCC #$10
 TST ZCC30
 BEQ ZC791
 SWI3
 NOP
 BRA ZC785
*
ZC791 INC ZCC30
 RTS
*
ZC795 CLR ZCC30
 ANDCC #$EF
 RTS
*
ZC79B TST ZC71D
 BNE ZC7C7
 LDX #ZCAC0
 JSR FMS
 BNE ZC7C7
 TST ZC71C
 BEQ ZC7BC
 CLR ZC71C
 CMPA #$0A
 BEQ ZC7C3
 PSHS A
 LDA #$0A
 BSR ZC7F6
 PULS A
ZC7BC CMPA #$0D
 BNE ZC7C3
 STA ZC71C
ZC7C3 BSR ZC7F6
 BRA ZC79B
*
ZC7C7 LDA #$0D
 BSR ZC7F6
 LDA #$0A
 BSR ZC7F6
 LDA ZC712
 BSR ZC7F6
 CLR ZC71D
 LDX ZC719
 TST $03,X
 BEQ ZC7E3
 DEC $03,X
 JMP ZC747
*
ZC7E3 LEAX $04,X
 CMPX #FCB
 BNE ZC7ED
 LDX #ZC810
ZC7ED STX ZC719
 DEC QCNT
 JMP ZC747
*
ZC7F6 JSR PCHK
 BMI ZC800
 SWI3
 NOP
 BRA ZC7F6
*
ZC800 JMP POUT
ZC810 EQU $C810
ZC838 EQU $C838
 END

Line No.	Rev	Author	Line
1	42	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`

Browse

Tools

Subversion Repositories System09

[/] [System09/] [branches/] [mkfiles_rev1/] [src/] [Flex9/] [f9-spool.asm] - Blame information for rev 113