mirror of
https://github.com/rigreco/UniDisk.git
synced 2024-05-28 05:41:29 +00:00
550 lines
72 KiB
Plaintext
550 lines
72 KiB
Plaintext
------+--------------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
|
Line | # File Line | Line Type | MX | Reloc | Size | Address Object Code | Source Code
|
|
------+--------------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
|
1 | 1 Unidrive4t.asm 1 | Comment | 11 | | 0 | 00/8000 | *
|
|
2 | 1 Unidrive4t.asm 2 | Comment | 11 | | 0 | 00/8000 | * Unidisk 3.5 Driver <alfa>
|
|
3 | 1 Unidrive4t.asm 3 | Comment | 11 | | 0 | 00/8000 | *
|
|
4 | 1 Unidrive4t.asm 4 | Comment | 11 | | 0 | 00/8000 | * The target of this project is to use the Unidisk 3.5 drive to perform
|
|
5 | 1 Unidrive4t.asm 5 | Comment | 11 | | 0 | 00/8000 | * specific numerical routines (integers and floating point numbers)
|
|
6 | 1 Unidrive4t.asm 6 | Comment | 11 | | 0 | 00/8000 | * calculation in order to use it as a Apple II co-processor unit.
|
|
7 | 1 Unidrive4t.asm 7 | Comment | 11 | | 0 | 00/8000 | *
|
|
8 | 1 Unidrive4t.asm 8 | Comment | 11 | | 0 | 00/8000 | * Copyright (C) 2015 Riccardo Greco <rigreco.grc@gmail.com>.
|
|
9 | 1 Unidrive4t.asm 9 | Comment | 11 | | 0 | 00/8000 | *
|
|
10 | 1 Unidrive4t.asm 10 | Comment | 11 | | 0 | 00/8000 | * This program is free software: you can redistribute it and/or modify
|
|
11 | 1 Unidrive4t.asm 11 | Comment | 11 | | 0 | 00/8000 | * it under the terms of the GNU General Public License as published by
|
|
12 | 1 Unidrive4t.asm 12 | Comment | 11 | | 0 | 00/8000 | * the Free Software Foundation, either version 3 of the License, or
|
|
13 | 1 Unidrive4t.asm 13 | Comment | 11 | | 0 | 00/8000 | * (at your option) any later version.
|
|
14 | 1 Unidrive4t.asm 14 | Comment | 11 | | 0 | 00/8000 | * This program is distributed in the hope that it will be useful,
|
|
15 | 1 Unidrive4t.asm 15 | Comment | 11 | | 0 | 00/8000 | * but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
16 | 1 Unidrive4t.asm 16 | Comment | 11 | | 0 | 00/8000 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
17 | 1 Unidrive4t.asm 17 | Comment | 11 | | 0 | 00/8000 | * GNU General Public License for more details.
|
|
18 | 1 Unidrive4t.asm 18 | Comment | 11 | | 0 | 00/8000 | * You should have received a copy of the GNU General Public License
|
|
19 | 1 Unidrive4t.asm 19 | Comment | 11 | | 0 | 00/8000 | * along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
20 | 1 Unidrive4t.asm 20 | Comment | 11 | | 0 | 00/8000 | *
|
|
21 | 1 Unidrive4t.asm 21 | Comment | 11 | | 0 | 00/8000 | *
|
|
22 | 1 Unidrive4t.asm 22 | Comment | 11 | | 0 | 00/8000 | * @com.wudsn.ide.asm.hardware=APPLE2
|
|
23 | 1 Unidrive4t.asm 23 | Comment | 11 | | 0 | 00/8000 | *
|
|
24 | 1 Unidrive4t.asm 24 | Comment | 11 | | 0 | 00/8000 | * Protocol Converter Call
|
|
25 | 1 Unidrive4t.asm 25 | Directive | 11 | | 0 | 00/8000 | XC
|
|
26 | 1 Unidrive4t.asm 26 | Equivalence | 11 | | 0 | 00/8000 | ZPTempL equ $0006 ;Temporary zero page storage
|
|
27 | 1 Unidrive4t.asm 27 | Equivalence | 11 | | 0 | 00/8000 | ZPTempH equ $0007
|
|
28 | 1 Unidrive4t.asm 28 | Comment | 11 | | 0 | 00/8000 | ** Zero page storage **
|
|
29 | 1 Unidrive4t.asm 29 | Equivalence | 11 | | 0 | 00/8000 | N1 equ $FA ;25 4 Byte FP FA--FD (FP1)
|
|
30 | 1 Unidrive4t.asm 30 | Equivalence | 11 | | 0 | 00/8000 | N2 equ $EC ;27 4 Byte FP EC--EF (FP2)
|
|
31 | 1 Unidrive4t.asm 31 | Comment | 11 | | 0 | 00/8000 | ; RSLT equ $1D ;29
|
|
32 | 1 Unidrive4t.asm 32 | Comment | 11 | | 0 | 00/8000 | *** Monitor routines ***
|
|
33 | 1 Unidrive4t.asm 33 | Equivalence | 11 | | 0 | 00/8000 | COut equ $FDED ;Console output ASCII
|
|
34 | 1 Unidrive4t.asm 34 | Equivalence | 11 | | 0 | 00/8000 | CROut equ $FD8E ;Carriage return
|
|
35 | 1 Unidrive4t.asm 35 | Comment | 11 | | 0 | 00/8000 | ** Command Code **
|
|
36 | 1 Unidrive4t.asm 36 | Equivalence | 11 | | 0 | 00/8000 | StatusCmd equ 0
|
|
37 | 1 Unidrive4t.asm 37 | Comment | 11 | | 0 | 00/8000 | ** Status Code **
|
|
38 | 1 Unidrive4t.asm 38 | Comment | 11 | | 0 | 00/8000 | * StatusDIB equ 3
|
|
39 | 1 Unidrive4t.asm 39 | Equivalence | 11 | | 0 | 00/8000 | StatusUNI equ 5
|
|
40 | 1 Unidrive4t.asm 40 | Comment | 11 | | 0 | 00/8000 | *
|
|
41 | 1 Unidrive4t.asm 41 | Equivalence | 11 | | 0 | 00/8000 | ControlCmd equ 4
|
|
42 | 1 Unidrive4t.asm 42 | Comment | 11 | | 0 | 00/8000 | ** Control Codes **
|
|
43 | 1 Unidrive4t.asm 43 | Equivalence | 11 | | 0 | 00/8000 | Eject equ 4
|
|
44 | 1 Unidrive4t.asm 44 | Equivalence | 11 | | 0 | 00/8000 | Run equ 5
|
|
45 | 1 Unidrive4t.asm 45 | Equivalence | 11 | | 0 | 00/8000 | SetDWLoad equ 6
|
|
46 | 1 Unidrive4t.asm 46 | Equivalence | 11 | | 0 | 00/8000 | DWLoad equ 7
|
|
47 | 1 Unidrive4t.asm 47 | Comment | 11 | | 0 | 00/8000 | *
|
|
48 | 1 Unidrive4t.asm 48 | Directive | 11 | | 0 | 00/8000 | org $8000
|
|
49 | 1 Unidrive4t.asm 49 | Comment | 11 | | 0 | 00/8000 | *****************************************************
|
|
50 | 1 Unidrive4t.asm 50 | Empty | 11 | | 0 | 00/8000 |
|
|
51 | 1 Unidrive4t.asm 51 | Comment | 11 | | 0 | 00/8000 | *
|
|
52 | 1 Unidrive4t.asm 52 | Comment | 11 | | 0 | 00/8000 | * Find a Protocol Converter in one of the slots.
|
|
53 | 1 Unidrive4t.asm 53 | Code | 11 | | 3 | 00/8000 : 20 9E 80 | START jsr {ozunid_4}
|
|
54 | 1 Unidrive4t.asm 54 | Code | 11 | | 2 | 00/8003 : B0 10 | bcs {ozunid_1}
|
|
55 | 1 Unidrive4t.asm 55 | Comment | 11 | | 0 | 00/8005 | *** Eject ***
|
|
56 | 1 Unidrive4t.asm 56 | Code | 11 | | 3 | 00/8005 : 20 D3 80 | jsr {ozunid_9}
|
|
57 | 1 Unidrive4t.asm 57 | Data | 11 | | 1 | 00/8008 : 04 | dfb {4}
|
|
58 | 1 Unidrive4t.asm 58 | Data | 11 | | 2 | 00/8009 : F2 80 | dw {ozunid_15}
|
|
59 | 1 Unidrive4t.asm 59 | Comment | 11 | | 0 | 00/800B | *** Set Address ***
|
|
60 | 1 Unidrive4t.asm 60 | Code | 11 | | 3 | 00/800B : 20 D3 80 | jsr {ozunid_9}
|
|
61 | 1 Unidrive4t.asm 61 | Data | 11 | | 1 | 00/800E : 04 | dfb {4}
|
|
62 | 1 Unidrive4t.asm 62 | Data | 11 | | 2 | 00/800F : E3 80 | dw {ozunid_12}
|
|
63 | 1 Unidrive4t.asm 63 | Comment | 11 | | 0 | 00/8011 | *
|
|
64 | 1 Unidrive4t.asm 64 | Code | 11 | | 3 | 00/8011 : 20 37 80 | jsr EXEC ; Jump the Error routine
|
|
65 | 1 Unidrive4t.asm 65 | Code | 11 | | 1 | 00/8014 : 60 | rts
|
|
66 | 1 Unidrive4t.asm 66 | Comment | 11 | | 0 | 00/8015 | *********************************************
|
|
67 | 1 Unidrive4t.asm 67 | Empty | 11 | | 0 | 00/8015 | ozunid_1
|
|
68 | 1 Unidrive4t.asm 67 | Equivalence | 11 | | 0 | 00/8015 | Error equ ozunid_1
|
|
69 | 1 Unidrive4t.asm 68 | Comment | 11 | | 0 | 00/8015 | *
|
|
70 | 1 Unidrive4t.asm 69 | Comment | 11 | | 0 | 00/8015 | * There is either no PC around, or there was no give message
|
|
71 | 1 Unidrive4t.asm 70 | Comment | 11 | | 0 | 00/8015 | *
|
|
72 | 1 Unidrive4t.asm 71 | Code | 11 | | 2 | 00/8015 : A2 00 | ldx #0
|
|
73 | 1 Unidrive4t.asm 72 | Empty | 11 | | 0 | 00/8017 | ozunid_2
|
|
74 | 1 Unidrive4t.asm 72 | Equivalence | 11 | | 0 | 00/8017 | err1 equ ozunid_2
|
|
75 | 1 Unidrive4t.asm 73 | Code | 11 | | 3 | 00/8017 : BD 23 80 | lda Message,x
|
|
76 | 1 Unidrive4t.asm 74 | Code | 11 | | 2 | 00/801A : F0 06 | beq {ozunid_3}
|
|
77 | 1 Unidrive4t.asm 75 | Code | 11 | | 3 | 00/801C : 20 ED FD | jsr {$FDED}
|
|
78 | 1 Unidrive4t.asm 76 | Code | 11 | | 1 | 00/801F : E8 | inx
|
|
79 | 1 Unidrive4t.asm 77 | Code | 11 | | 2 | 00/8020 : D0 F5 | bne {ozunid_2}
|
|
80 | 1 Unidrive4t.asm 78 | Comment | 11 | | 0 | 00/8022 | *
|
|
81 | 1 Unidrive4t.asm 79 | Empty | 11 | | 0 | 00/8022 | ozunid_3
|
|
82 | 1 Unidrive4t.asm 79 | Equivalence | 11 | | 0 | 00/8022 | errout equ ozunid_3
|
|
83 | 1 Unidrive4t.asm 80 | Code | 11 | | 1 | 00/8022 : 60 | rts
|
|
84 | 1 Unidrive4t.asm 81 | Comment | 11 | | 0 | 00/8023 | *
|
|
85 | 1 Unidrive4t.asm 82 | Data | 11 | | 18 | 00/8023 : 4E 4F 20 50 | Message asc 'NO PC OR NO DEVICE'
|
|
| | | | | | 43 20 4F 52 |
|
|
| | | | | | 20 4E 4F 20 |
|
|
| | | | | | 44 45 56 49 |
|
|
| | | | | | 43 45 |
|
|
86 | 1 Unidrive4t.asm 83 | Data | 11 | | 2 | 00/8035 : 8D 00 | dfb $8D,0
|
|
87 | 1 Unidrive4t.asm 84 | Comment | 11 | | 0 | 00/8037 | *********************************************
|
|
88 | 1 Unidrive4t.asm 85 | Comment | 11 | | 0 | 00/8037 | *
|
|
89 | 1 Unidrive4t.asm 86 | Empty | 11 | | 0 | 00/8037 |
|
|
90 | 1 Unidrive4t.asm 87 | Comment | 11 | | 0 | 00/8037 | ** Set the Input Value first in Dynamic data **
|
|
91 | 1 Unidrive4t.asm 88 | Comment | 11 | | 0 | 00/8037 | ** 4 Byte N1 to FP1 **
|
|
92 | 1 Unidrive4t.asm 89 | Code | 11 | | 2 | 00/8037 : A5 FA | EXEC lda {$FA} ;X1
|
|
93 | 1 Unidrive4t.asm 90 | Code | 11 | | 3 | 00/8039 : 8D 36 82 | sta $8236 ; Absolute addressing
|
|
94 | 1 Unidrive4t.asm 91 | Code | 11 | | 2 | 00/803C : A5 FB | lda {$FA}+1 ;M1 (1)
|
|
95 | 1 Unidrive4t.asm 92 | Code | 11 | | 3 | 00/803E : 8D 37 82 | sta $8237
|
|
96 | 1 Unidrive4t.asm 93 | Code | 11 | | 2 | 00/8041 : A5 FC | lda {$FA}+2 ;M1 (2)
|
|
97 | 1 Unidrive4t.asm 94 | Code | 11 | | 3 | 00/8043 : 8D 38 82 | sta $8238
|
|
98 | 1 Unidrive4t.asm 95 | Code | 11 | | 2 | 00/8046 : A5 FD | lda {$FA}+3 ;M1 (3)
|
|
99 | 1 Unidrive4t.asm 96 | Code | 11 | | 3 | 00/8048 : 8D 39 82 | sta $8239
|
|
100 | 1 Unidrive4t.asm 97 | Empty | 11 | | 0 | 00/804B |
|
|
101 | 1 Unidrive4t.asm 98 | Comment | 11 | | 0 | 00/804B | ** 4 Byte N2 to FP2 **
|
|
102 | 1 Unidrive4t.asm 99 | Code | 11 | | 2 | 00/804B : A5 EC | lda {$EC} ;X2
|
|
103 | 1 Unidrive4t.asm 100 | Code | 11 | | 3 | 00/804D : 8D 3A 82 | sta $823A
|
|
104 | 1 Unidrive4t.asm 101 | Code | 11 | | 2 | 00/8050 : A5 ED | lda {$EC}+1 ;M2 (1)
|
|
105 | 1 Unidrive4t.asm 102 | Code | 11 | | 3 | 00/8052 : 8D 3B 82 | sta $823B
|
|
106 | 1 Unidrive4t.asm 103 | Code | 11 | | 2 | 00/8055 : A5 EE | lda {$EC}+2 ;M2 (2)
|
|
107 | 1 Unidrive4t.asm 104 | Code | 11 | | 3 | 00/8057 : 8D 3C 82 | sta $823C
|
|
108 | 1 Unidrive4t.asm 105 | Code | 11 | | 2 | 00/805A : A5 EF | lda {$EC}+3 ;M2 (3)
|
|
109 | 1 Unidrive4t.asm 106 | Code | 11 | | 3 | 00/805C : 8D 3D 82 | sta $823D
|
|
110 | 1 Unidrive4t.asm 107 | Empty | 11 | | 0 | 00/805F |
|
|
111 | 1 Unidrive4t.asm 108 | Comment | 11 | | 0 | 00/805F | *** Download ***
|
|
112 | 1 Unidrive4t.asm 109 | Code | 11 | | 3 | 00/805F : 20 D3 80 | jsr {ozunid_9}
|
|
113 | 1 Unidrive4t.asm 110 | Data | 11 | | 1 | 00/8062 : 04 | dfb {4}
|
|
114 | 1 Unidrive4t.asm 111 | Data | 11 | | 2 | 00/8063 : E8 80 | dw {ozunid_13}
|
|
115 | 1 Unidrive4t.asm 112 | Comment | 11 | | 0 | 00/8065 | ** Set Unidisk Registers **
|
|
116 | 1 Unidrive4t.asm 113 | Code | 11 | | 2 | 00/8065 : A9 00 | lda #00 ;First time
|
|
117 | 1 Unidrive4t.asm 114 | Code | 11 | | 3 | 00/8067 : 8D E1 80 | sta UNIP_val
|
|
118 | 1 Unidrive4t.asm 115 | Comment | 11 | | 0 | 00/806A | ** Execute **
|
|
119 | 1 Unidrive4t.asm 116 | Code | 11 | | 3 | 00/806A : 20 D3 80 | jsr {ozunid_9}
|
|
120 | 1 Unidrive4t.asm 117 | Data | 11 | | 1 | 00/806D : 04 | dfb {4}
|
|
121 | 1 Unidrive4t.asm 118 | Data | 11 | | 2 | 00/806E : ED 80 | dw {ozunid_14}
|
|
122 | 1 Unidrive4t.asm 119 | Comment | 11 | | 0 | 00/8070 | ** Read **
|
|
123 | 1 Unidrive4t.asm 120 | Code | 11 | | 3 | 00/8070 : 20 D3 80 | READ jsr {ozunid_9}
|
|
124 | 1 Unidrive4t.asm 121 | Data | 11 | | 1 | 00/8073 : 00 | dfb {0}
|
|
125 | 1 Unidrive4t.asm 122 | Data | 11 | | 2 | 00/8074 : D6 80 | dw {ozunid_10}
|
|
126 | 1 Unidrive4t.asm 123 | Code | 11 | | 2 | 00/8076 : B0 9D | bcs {ozunid_1}
|
|
127 | 1 Unidrive4t.asm 124 | Comment | 11 | | 0 | 00/8078 | *
|
|
128 | 1 Unidrive4t.asm 125 | Comment | 11 | | 0 | 00/8078 | **** Store Output results in //c ****
|
|
129 | 1 Unidrive4t.asm 126 | Empty | 11 | | 0 | 00/8078 |
|
|
130 | 1 Unidrive4t.asm 127 | Comment | 11 | | 0 | 00/8078 | * First time execute *
|
|
131 | 1 Unidrive4t.asm 128 | Code | 11 | | 3 | 00/8078 : AD DE 80 | lda UNIAcc_reg
|
|
132 | 1 Unidrive4t.asm 129 | Code | 11 | | 2 | 00/807B : 85 FA | sta {$FA}
|
|
133 | 1 Unidrive4t.asm 130 | Code | 11 | | 3 | 00/807D : AD DF 80 | lda UNIX_reg
|
|
134 | 1 Unidrive4t.asm 131 | Code | 11 | | 2 | 00/8080 : 85 FB | sta {$FA}+1 ; Store the result
|
|
135 | 1 Unidrive4t.asm 132 | Code | 11 | | 3 | 00/8082 : AD E0 80 | lda UNIY_reg
|
|
136 | 1 Unidrive4t.asm 133 | Code | 11 | | 2 | 00/8085 : 85 FC | sta {$FA}+2
|
|
137 | 1 Unidrive4t.asm 134 | Empty | 11 | | 0 | 00/8087 |
|
|
138 | 1 Unidrive4t.asm 135 | Comment | 11 | | 0 | 00/8087 | ** Second time execute **
|
|
139 | 1 Unidrive4t.asm 136 | Code | 11 | | 2 | 00/8087 : A9 02 | lda #02 ; Second time
|
|
140 | 1 Unidrive4t.asm 137 | Code | 11 | | 3 | 00/8089 : 8D E1 80 | sta UNIP_val
|
|
141 | 1 Unidrive4t.asm 138 | Comment | 11 | | 0 | 00/808C | ** Execute **
|
|
142 | 1 Unidrive4t.asm 139 | Code | 11 | | 3 | 00/808C : 20 D3 80 | jsr {ozunid_9}
|
|
143 | 1 Unidrive4t.asm 140 | Data | 11 | | 1 | 00/808F : 04 | dfb {4}
|
|
144 | 1 Unidrive4t.asm 141 | Data | 11 | | 2 | 00/8090 : ED 80 | dw {ozunid_14}
|
|
145 | 1 Unidrive4t.asm 142 | Comment | 11 | | 0 | 00/8092 | ** Read **
|
|
146 | 1 Unidrive4t.asm 143 | Code | 11 | | 3 | 00/8092 : 20 D3 80 | jsr {ozunid_9}
|
|
147 | 1 Unidrive4t.asm 144 | Data | 11 | | 1 | 00/8095 : 00 | dfb {0}
|
|
148 | 1 Unidrive4t.asm 145 | Data | 11 | | 2 | 00/8096 : D6 80 | dw {ozunid_10}
|
|
149 | 1 Unidrive4t.asm 146 | Comment | 11 | | 0 | 00/8098 | * bcs Error
|
|
150 | 1 Unidrive4t.asm 147 | Empty | 11 | | 0 | 00/8098 |
|
|
151 | 1 Unidrive4t.asm 148 | Comment | 11 | | 0 | 00/8098 | * Second time execute only to read the latest Byte of FP1*
|
|
152 | 1 Unidrive4t.asm 149 | Code | 11 | | 3 | 00/8098 : AD DE 80 | lda UNIAcc_reg
|
|
153 | 1 Unidrive4t.asm 150 | Code | 11 | | 2 | 00/809B : 85 FD | sta {$FA}+3
|
|
154 | 1 Unidrive4t.asm 151 | Comment | 11 | | 0 | 00/809D | *
|
|
155 | 1 Unidrive4t.asm 152 | Code | 11 | | 1 | 00/809D : 60 | rts
|
|
156 | 1 Unidrive4t.asm 153 | Empty | 11 | | 0 | 00/809E |
|
|
157 | 1 Unidrive4t.asm 154 | Comment | 11 | | 0 | 00/809E | ******************************************************
|
|
158 | 1 Unidrive4t.asm 155 | Empty | 11 | | 0 | 00/809E | ozunid_4
|
|
159 | 1 Unidrive4t.asm 155 | Equivalence | 11 | | 0 | 00/809E | FindPC equ ozunid_4
|
|
160 | 1 Unidrive4t.asm 156 | Comment | 11 | | 0 | 00/809E | *
|
|
161 | 1 Unidrive4t.asm 157 | Comment | 11 | | 0 | 00/809E | * Search slot 7 to slot 1 looking for signature bytes
|
|
162 | 1 Unidrive4t.asm 158 | Comment | 11 | | 0 | 00/809E | *
|
|
163 | 1 Unidrive4t.asm 159 | Code | 11 | | 2 | 00/809E : A2 07 | ldx #7 ;Do for seven slots
|
|
164 | 1 Unidrive4t.asm 160 | Code | 11 | | 2 | 00/80A0 : A9 C7 | lda #$C7
|
|
165 | 1 Unidrive4t.asm 161 | Code | 11 | | 2 | 00/80A2 : 85 07 | sta {$0007}
|
|
166 | 1 Unidrive4t.asm 162 | Code | 11 | | 2 | 00/80A4 : A9 00 | lda #$00
|
|
167 | 1 Unidrive4t.asm 163 | Code | 11 | | 2 | 00/80A6 : 85 06 | sta {$0006}
|
|
168 | 1 Unidrive4t.asm 164 | Comment | 11 | | 0 | 00/80A8 | *
|
|
169 | 1 Unidrive4t.asm 165 | Empty | 11 | | 0 | 00/80A8 | ozunid_5
|
|
170 | 1 Unidrive4t.asm 165 | Equivalence | 11 | | 0 | 00/80A8 | newslot equ ozunid_5
|
|
171 | 1 Unidrive4t.asm 166 | Code | 11 | | 2 | 00/80A8 : A0 07 | ldy #7
|
|
172 | 1 Unidrive4t.asm 167 | Comment | 11 | | 0 | 00/80AA | *
|
|
173 | 1 Unidrive4t.asm 168 | Empty | 11 | | 0 | 00/80AA | ozunid_6
|
|
174 | 1 Unidrive4t.asm 168 | Equivalence | 11 | | 0 | 00/80AA | again equ ozunid_6
|
|
175 | 1 Unidrive4t.asm 169 | Code | 11 | | 2 | 00/80AA : B1 06 | lda ({$0006}),y
|
|
176 | 1 Unidrive4t.asm 170 | Code | 11 | | 3 | 00/80AC : D9 CB 80 | cmp sigtab,y ;One for byte signature
|
|
177 | 1 Unidrive4t.asm 171 | Code | 11 | | 2 | 00/80AF : F0 07 | beq {ozunid_7} ;Found one signature byte
|
|
178 | 1 Unidrive4t.asm 172 | Code | 11 | | 2 | 00/80B1 : C6 07 | dec {$0007}
|
|
179 | 1 Unidrive4t.asm 173 | Code | 11 | | 1 | 00/80B3 : CA | dex
|
|
180 | 1 Unidrive4t.asm 174 | Code | 11 | | 2 | 00/80B4 : D0 F2 | bne {ozunid_5}
|
|
181 | 1 Unidrive4t.asm 175 | Comment | 11 | | 0 | 00/80B6 | *
|
|
182 | 1 Unidrive4t.asm 176 | Comment | 11 | | 0 | 00/80B6 | * if we get here, no PC find
|
|
183 | 1 Unidrive4t.asm 177 | Code | 11 | | 1 | 00/80B6 : 38 | sec
|
|
184 | 1 Unidrive4t.asm 178 | Code | 11 | | 1 | 00/80B7 : 60 | rts
|
|
185 | 1 Unidrive4t.asm 179 | Comment | 11 | | 0 | 00/80B8 | *
|
|
186 | 1 Unidrive4t.asm 180 | Comment | 11 | | 0 | 00/80B8 | * if we get here, no byte find on PC
|
|
187 | 1 Unidrive4t.asm 181 | Empty | 11 | | 0 | 00/80B8 | ozunid_7
|
|
188 | 1 Unidrive4t.asm 181 | Equivalence | 11 | | 0 | 00/80B8 | maybe equ ozunid_7
|
|
189 | 1 Unidrive4t.asm 182 | Code | 11 | | 1 | 00/80B8 : 88 | dey
|
|
190 | 1 Unidrive4t.asm 183 | Code | 11 | | 1 | 00/80B9 : 88 | dey ;if N=1 then all sig bytes OK
|
|
191 | 1 Unidrive4t.asm 184 | Code | 11 | | 2 | 00/80BA : 10 EE | bpl {ozunid_6}
|
|
192 | 1 Unidrive4t.asm 185 | Comment | 11 | | 0 | 00/80BC | * Found PC interface. Set up call address.
|
|
193 | 1 Unidrive4t.asm 186 | Comment | 11 | | 0 | 00/80BC | * we already have high byte ($CN), we need low byte
|
|
194 | 1 Unidrive4t.asm 187 | Comment | 11 | | 0 | 00/80BC | *
|
|
195 | 1 Unidrive4t.asm 188 | Empty | 11 | | 0 | 00/80BC | ozunid_8
|
|
196 | 1 Unidrive4t.asm 188 | Equivalence | 11 | | 0 | 00/80BC | foundPC equ ozunid_8
|
|
197 | 1 Unidrive4t.asm 189 | Code | 11 | | 2 | 00/80BC : A9 FF | lda #$FF
|
|
198 | 1 Unidrive4t.asm 190 | Code | 11 | | 2 | 00/80BE : 85 06 | sta {$0006}
|
|
199 | 1 Unidrive4t.asm 191 | Code | 11 | | 2 | 00/80C0 : A0 00 | ldy #0 ;For indirect load
|
|
200 | 1 Unidrive4t.asm 192 | Code | 11 | | 2 | 00/80C2 : B1 06 | lda ({$0006}),y ;Get the byte
|
|
201 | 1 Unidrive4t.asm 193 | Comment | 11 | | 0 | 00/80C4 | *
|
|
202 | 1 Unidrive4t.asm 194 | Comment | 11 | | 0 | 00/80C4 | * Now the Acc has the low oreder ProDOS entry point.
|
|
203 | 1 Unidrive4t.asm 195 | Comment | 11 | | 0 | 00/80C4 | * The PC entry is three locations past this ...
|
|
204 | 1 Unidrive4t.asm 196 | Comment | 11 | | 0 | 00/80C4 | *
|
|
205 | 1 Unidrive4t.asm 197 | Code | 11 | | 1 | 00/80C4 : 18 | clc
|
|
206 | 1 Unidrive4t.asm 198 | Code | 11 | | 2 | 00/80C5 : 69 03 | adc #3
|
|
207 | 1 Unidrive4t.asm 199 | Code | 11 | | 2 | 00/80C7 : 85 06 | sta {$0006}
|
|
208 | 1 Unidrive4t.asm 200 | Comment | 11 | | 0 | 00/80C9 | *
|
|
209 | 1 Unidrive4t.asm 201 | Comment | 11 | | 0 | 00/80C9 | * Now ZPTempL has PC entry point.
|
|
210 | 1 Unidrive4t.asm 202 | Comment | 11 | | 0 | 00/80C9 | * Return with carry clear.
|
|
211 | 1 Unidrive4t.asm 203 | Comment | 11 | | 0 | 00/80C9 | *
|
|
212 | 1 Unidrive4t.asm 204 | Code | 11 | | 1 | 00/80C9 : 18 | clc
|
|
213 | 1 Unidrive4t.asm 205 | Code | 11 | | 1 | 00/80CA : 60 | rts
|
|
214 | 1 Unidrive4t.asm 206 | Comment | 11 | | 0 | 00/80CB | ***********************************************************
|
|
215 | 1 Unidrive4t.asm 207 | Comment | 11 | | 0 | 00/80CB | *
|
|
216 | 1 Unidrive4t.asm 208 | Comment | 11 | | 0 | 00/80CB | * There are the PC signature bytes in their relative order.
|
|
217 | 1 Unidrive4t.asm 209 | Comment | 11 | | 0 | 00/80CB | * The $FF bytes are filler bytes and are not compared.
|
|
218 | 1 Unidrive4t.asm 210 | Comment | 11 | | 0 | 00/80CB | *
|
|
219 | 1 Unidrive4t.asm 211 | Data | 11 | | 4 | 00/80CB : FF 20 FF 00 | sigtab dfb $FF,$20,$FF,$00
|
|
220 | 1 Unidrive4t.asm 212 | Data | 11 | | 4 | 00/80CF : FF 03 FF 00 | dfb $FF,$03,$FF,$00
|
|
221 | 1 Unidrive4t.asm 213 | Comment | 11 | | 0 | 00/80D3 | *
|
|
222 | 1 Unidrive4t.asm 214 | Empty | 11 | | 0 | 00/80D3 | ozunid_9
|
|
223 | 1 Unidrive4t.asm 214 | Equivalence | 11 | | 0 | 00/80D3 | Dispatch equ ozunid_9
|
|
224 | 1 Unidrive4t.asm 215 | Code | 11 | | 3 | 00/80D3 : 6C 06 00 | jmp ({$0006}) ;Simulate an indirect JSR to PC
|
|
225 | 1 Unidrive4t.asm 216 | Comment | 11 | | 0 | 00/80D6 | *
|
|
226 | 1 Unidrive4t.asm 217 | Comment | 11 | | 0 | 00/80D6 | *** Status Parameter Set for UNI ***
|
|
227 | 1 Unidrive4t.asm 218 | Empty | 11 | | 0 | 00/80D6 | ozunid_10
|
|
228 | 1 Unidrive4t.asm 218 | Equivalence | 11 | | 0 | 00/80D6 | DParms equ ozunid_10
|
|
229 | 1 Unidrive4t.asm 219 | Data | 11 | | 1 | 00/80D6 : 03 | DPParmsCt dfb 3 ;Status calls have three parameters
|
|
230 | 1 Unidrive4t.asm 220 | Data | 11 | | 1 | 00/80D7 : 01 | DPUnit dfb 1
|
|
231 | 1 Unidrive4t.asm 221 | Data | 11 | | 2 | 00/80D8 : DB 80 | DPBuffer dw {ozunid_11}
|
|
232 | 1 Unidrive4t.asm 222 | Data | 11 | | 1 | 00/80DA : 05 | DPStatCode dfb {5}
|
|
233 | 1 Unidrive4t.asm 223 | Comment | 11 | | 0 | 00/80DB | *
|
|
234 | 1 Unidrive4t.asm 224 | Comment | 11 | | 0 | 00/80DB | *
|
|
235 | 1 Unidrive4t.asm 225 | Comment | 11 | | 0 | 00/80DB | *
|
|
236 | 1 Unidrive4t.asm 226 | Comment | 11 | | 0 | 00/80DB | *** Status List UNI ***
|
|
237 | 1 Unidrive4t.asm 227 | Empty | 11 | | 0 | 00/80DB | ozunid_11
|
|
238 | 1 Unidrive4t.asm 227 | Equivalence | 11 | | 0 | 00/80DB | UNI equ ozunid_11
|
|
239 | 1 Unidrive4t.asm 228 | Data | 11 | | 1 | 00/80DB : 00 | dfb 0
|
|
240 | 1 Unidrive4t.asm 229 | Data | 11 | | 1 | 00/80DC : 00 | UNIError dfb 0
|
|
241 | 1 Unidrive4t.asm 230 | Data | 11 | | 1 | 00/80DD : 00 | UNIRetries dfb 0
|
|
242 | 1 Unidrive4t.asm 231 | Data | 11 | | 1 | 00/80DE : 00 | UNIAcc_reg dfb 0
|
|
243 | 1 Unidrive4t.asm 232 | Data | 11 | | 1 | 00/80DF : 00 | UNIX_reg dfb 0
|
|
244 | 1 Unidrive4t.asm 233 | Data | 11 | | 1 | 00/80E0 : 00 | UNIY_reg dfb 0
|
|
245 | 1 Unidrive4t.asm 234 | Data | 11 | | 1 | 00/80E1 : 00 | UNIP_val dfb 0
|
|
246 | 1 Unidrive4t.asm 235 | Data | 11 | | 1 | 00/80E2 : 00 | HHH dfb 0
|
|
247 | 1 Unidrive4t.asm 236 | Comment | 11 | | 0 | 00/80E3 | *
|
|
248 | 1 Unidrive4t.asm 237 | Comment | 11 | | 0 | 00/80E3 | *** Set Address ***
|
|
249 | 1 Unidrive4t.asm 238 | Empty | 11 | | 0 | 00/80E3 | ozunid_12
|
|
250 | 1 Unidrive4t.asm 238 | Equivalence | 11 | | 0 | 00/80E3 | SET_ADD equ ozunid_12
|
|
251 | 1 Unidrive4t.asm 239 | Data | 11 | | 1 | 00/80E3 : 03 | dfb 3
|
|
252 | 1 Unidrive4t.asm 240 | Data | 11 | | 1 | 00/80E4 : 01 | dfb 1
|
|
253 | 1 Unidrive4t.asm 241 | Data | 11 | | 2 | 00/80E5 : 01 81 | dw {ozunid_18}
|
|
254 | 1 Unidrive4t.asm 242 | Data | 11 | | 1 | 00/80E7 : 06 | dfb {6}
|
|
255 | 1 Unidrive4t.asm 243 | Comment | 11 | | 0 | 00/80E8 | *
|
|
256 | 1 Unidrive4t.asm 244 | Comment | 11 | | 0 | 00/80E8 | *** Download ***
|
|
257 | 1 Unidrive4t.asm 245 | Empty | 11 | | 0 | 00/80E8 | ozunid_13
|
|
258 | 1 Unidrive4t.asm 245 | Equivalence | 11 | | 0 | 00/80E8 | DOWNLOAD equ ozunid_13
|
|
259 | 1 Unidrive4t.asm 246 | Data | 11 | | 1 | 00/80E8 : 03 | dfb 3
|
|
260 | 1 Unidrive4t.asm 247 | Data | 11 | | 1 | 00/80E9 : 01 | dfb 1
|
|
261 | 1 Unidrive4t.asm 248 | Data | 11 | | 2 | 00/80EA : 05 81 | dw {ozunid_19}
|
|
262 | 1 Unidrive4t.asm 249 | Data | 11 | | 1 | 00/80EC : 07 | dfb {7}
|
|
263 | 1 Unidrive4t.asm 250 | Comment | 11 | | 0 | 00/80ED | *
|
|
264 | 1 Unidrive4t.asm 251 | Comment | 11 | | 0 | 00/80ED | *** Execute ***
|
|
265 | 1 Unidrive4t.asm 252 | Empty | 11 | | 0 | 00/80ED | ozunid_14
|
|
266 | 1 Unidrive4t.asm 252 | Equivalence | 11 | | 0 | 00/80ED | EXE equ ozunid_14
|
|
267 | 1 Unidrive4t.asm 253 | Data | 11 | | 1 | 00/80ED : 03 | dfb 3
|
|
268 | 1 Unidrive4t.asm 254 | Data | 11 | | 1 | 00/80EE : 01 | dfb 1
|
|
269 | 1 Unidrive4t.asm 255 | Data | 11 | | 2 | 00/80EF : F9 80 | dw {ozunid_17}
|
|
270 | 1 Unidrive4t.asm 256 | Data | 11 | | 1 | 00/80F1 : 05 | dfb {5}
|
|
271 | 1 Unidrive4t.asm 257 | Comment | 11 | | 0 | 00/80F2 | *** Eject ***
|
|
272 | 1 Unidrive4t.asm 258 | Empty | 11 | | 0 | 00/80F2 | ozunid_15
|
|
273 | 1 Unidrive4t.asm 258 | Equivalence | 11 | | 0 | 00/80F2 | E_JECT equ ozunid_15
|
|
274 | 1 Unidrive4t.asm 259 | Data | 11 | | 1 | 00/80F2 : 03 | dfb 3
|
|
275 | 1 Unidrive4t.asm 260 | Data | 11 | | 1 | 00/80F3 : 01 | dfb 1
|
|
276 | 1 Unidrive4t.asm 261 | Data | 11 | | 2 | 00/80F4 : F7 80 | dw {ozunid_16}
|
|
277 | 1 Unidrive4t.asm 262 | Data | 11 | | 1 | 00/80F6 : 04 | dfb {4}
|
|
278 | 1 Unidrive4t.asm 263 | Comment | 11 | | 0 | 00/80F7 | *
|
|
279 | 1 Unidrive4t.asm 264 | Comment | 11 | | 0 | 00/80F7 | ******** CONTROL LISTS ********
|
|
280 | 1 Unidrive4t.asm 265 | Comment | 11 | | 0 | 00/80F7 | *
|
|
281 | 1 Unidrive4t.asm 266 | Comment | 11 | | 0 | 00/80F7 | *
|
|
282 | 1 Unidrive4t.asm 267 | Comment | 11 | | 0 | 00/80F7 | *** Eject ***
|
|
283 | 1 Unidrive4t.asm 268 | Empty | 11 | | 0 | 00/80F7 | ozunid_16
|
|
284 | 1 Unidrive4t.asm 268 | Equivalence | 11 | | 0 | 00/80F7 | CNTL_LIST1 equ ozunid_16
|
|
285 | 1 Unidrive4t.asm 269 | Data | 11 | | 2 | 00/80F7 : 00 00 | dw $0000
|
|
286 | 1 Unidrive4t.asm 270 | Comment | 11 | | 0 | 00/80F9 | *
|
|
287 | 1 Unidrive4t.asm 271 | Comment | 11 | | 0 | 00/80F9 | *** Execute ***
|
|
288 | 1 Unidrive4t.asm 272 | Empty | 11 | | 0 | 00/80F9 | ozunid_17
|
|
289 | 1 Unidrive4t.asm 272 | Equivalence | 11 | | 0 | 00/80F9 | CNTL_LIST2 equ ozunid_17
|
|
290 | 1 Unidrive4t.asm 273 | Data | 11 | | 1 | 00/80F9 : 06 | Clow_byte dfb $06
|
|
291 | 1 Unidrive4t.asm 274 | Data | 11 | | 1 | 00/80FA : 00 | Chigh_byte dfb $00
|
|
292 | 1 Unidrive4t.asm 275 | Data | 11 | | 1 | 00/80FB : 00 | AccValue dfb $00 ; Init Value Unidisk Accumulator Register
|
|
293 | 1 Unidrive4t.asm 276 | Data | 11 | | 1 | 00/80FC : 00 | X_reg dfb $00 ; Init Value Unidisk X Register
|
|
294 | 1 Unidrive4t.asm 277 | Data | 11 | | 1 | 00/80FD : 00 | Y_reg dfb $00 ; Init Value Unidisk Y Register
|
|
295 | 1 Unidrive4t.asm 278 | Data | 11 | | 1 | 00/80FE : 00 | ProStatus dfb $00 ; Init Value Unidisk Status Register
|
|
296 | 1 Unidrive4t.asm 279 | Data | 11 | | 1 | 00/80FF : 00 | LowPC_reg dfb $00 ; Init Value Unidisk Program Counter $0500
|
|
297 | 1 Unidrive4t.asm 280 | Data | 11 | | 1 | 00/8100 : 05 | HighPC_reg dfb $05
|
|
298 | 1 Unidrive4t.asm 281 | Comment | 11 | | 0 | 00/8101 | *
|
|
299 | 1 Unidrive4t.asm 282 | Comment | 11 | | 0 | 00/8101 | *** Set Address ***
|
|
300 | 1 Unidrive4t.asm 283 | Empty | 11 | | 0 | 00/8101 | ozunid_18
|
|
301 | 1 Unidrive4t.asm 283 | Equivalence | 11 | | 0 | 00/8101 | CNTL_LIST3 equ ozunid_18
|
|
302 | 1 Unidrive4t.asm 284 | Data | 11 | | 1 | 00/8101 : 02 | CountL_byte dfb $02
|
|
303 | 1 Unidrive4t.asm 285 | Data | 11 | | 1 | 00/8102 : 00 | CountH_byte dfb $00
|
|
304 | 1 Unidrive4t.asm 286 | Data | 11 | | 1 | 00/8103 : 00 | LByte_Addr dfb $00 ; ORG of Unidisk program, set begin program address $0500
|
|
305 | 1 Unidrive4t.asm 287 | Data | 11 | | 1 | 00/8104 : 05 | HByte_Addr dfb $05
|
|
306 | 1 Unidrive4t.asm 288 | Comment | 11 | | 0 | 00/8105 | *
|
|
307 | 1 Unidrive4t.asm 289 | Comment | 11 | | 0 | 00/8105 | *** Download ***
|
|
308 | 1 Unidrive4t.asm 290 | Empty | 11 | | 0 | 00/8105 | ozunid_19
|
|
309 | 1 Unidrive4t.asm 290 | Equivalence | 11 | | 0 | 00/8105 | CNTL_LIST4 equ ozunid_19
|
|
310 | 1 Unidrive4t.asm 291 | Data | 11 | | 1 | 00/8105 : 36 | LenghtL_byte dfb $36 ;<----- Lenght of Unidisk program Lo - Byte 312 byte
|
|
311 | 1 Unidrive4t.asm 292 | Data | 11 | | 1 | 00/8106 : 01 | LenghtH_byte dfb $01 ;<----- Lenght of Unidisk program Hi Byte
|
|
312 | 1 Unidrive4t.asm 293 | Comment | 11 | | 0 | 00/8107 | *
|
|
313 | 1 Unidrive4t.asm 294 | Comment | 11 | | 0 | 00/8107 | **************** Start UNIDISK Program ****************
|
|
314 | 1 Unidrive4t.asm 295 | Comment | 11 | | 0 | 00/8107 | *
|
|
315 | 1 Unidrive4t.asm 296 | Directive | 11 | | 0 | 00/8107 | org $0500 ; Start Unidisk program address
|
|
316 | 1 Unidrive4t.asm 297 | Empty | 11 | | 0 | 00/0500 |
|
|
317 | 1 Unidrive4t.asm 298 | Equivalence | 11 | | 0 | 00/0500 | SIGN EQU $C0 ;$EB ; $F3
|
|
318 | 1 Unidrive4t.asm 299 | Empty | 11 | | 0 | 00/0500 |
|
|
319 | 1 Unidrive4t.asm 300 | Comment | 11 | | 0 | 00/0500 | ** FP2 4 Bytes **
|
|
320 | 1 Unidrive4t.asm 301 | Equivalence | 11 | | 0 | 00/0500 | X2 EQU $C1 ;$EC ; $F4
|
|
321 | 1 Unidrive4t.asm 302 | Equivalence | 11 | | 0 | 00/0500 | M2 EQU $C2 ;$ED ; $F5 - $F7
|
|
322 | 1 Unidrive4t.asm 303 | Empty | 11 | | 0 | 00/0500 |
|
|
323 | 1 Unidrive4t.asm 304 | Comment | 11 | | 0 | 00/0500 | ** FP1 4 Bytes + E extension **
|
|
324 | 1 Unidrive4t.asm 305 | Equivalence | 11 | | 0 | 00/0500 | X1 EQU $C5 ;$FA ; $F8
|
|
325 | 1 Unidrive4t.asm 306 | Equivalence | 11 | | 0 | 00/0500 | M1 EQU $C6 ;$FB ; $F9 - $FB
|
|
326 | 1 Unidrive4t.asm 307 | Equivalence | 11 | | 0 | 00/0500 | E EQU $C9 ;$FE ; $FC
|
|
327 | 1 Unidrive4t.asm 308 | Empty | 11 | | 0 | 00/0500 |
|
|
328 | 1 Unidrive4t.asm 309 | Equivalence | 11 | | 0 | 00/0500 | OVLOC EQU $C10 ;$3F5 ;Overflow routine is not implemented at now)
|
|
329 | 1 Unidrive4t.asm 310 | Comment | 11 | | 0 | 00/0500 | *
|
|
330 | 1 Unidrive4t.asm 311 | Comment | 11 | | 0 | 00/0500 | ** Main program **
|
|
331 | 1 Unidrive4t.asm 312 | Comment | 11 | | 0 | 00/0500 | *
|
|
332 | 1 Unidrive4t.asm 313 | Comment | 11 | | 0 | 00/0500 | * CHK if is the second execution *
|
|
333 | 1 Unidrive4t.asm 314 | Empty | 11 | | 0 | 00/0500 |
|
|
334 | 1 Unidrive4t.asm 315 | Comment | 11 | | 0 | 00/0500 | * cmp #01
|
|
335 | 1 Unidrive4t.asm 316 | Code | 11 | | 2 | 00/0500 : F0 32 | beq SECOND ;Only to read the rest part of result
|
|
336 | 1 Unidrive4t.asm 317 | Empty | 11 | | 0 | 00/0502 |
|
|
337 | 1 Unidrive4t.asm 318 | Comment | 11 | | 0 | 00/0502 | ** Input data to Zero Page **
|
|
338 | 1 Unidrive4t.asm 319 | Empty | 11 | | 0 | 00/0502 |
|
|
339 | 1 Unidrive4t.asm 320 | Comment | 11 | | 0 | 00/0502 | ** FP1 **
|
|
340 | 1 Unidrive4t.asm 321 | Code | 11 | | 3 | 00/0502 : AD 2F 06 | lda FP1
|
|
341 | 1 Unidrive4t.asm 322 | Code | 11 | | 2 | 00/0505 : 85 C5 | sta {$C5}
|
|
342 | 1 Unidrive4t.asm 323 | Empty | 11 | | 0 | 00/0507 |
|
|
343 | 1 Unidrive4t.asm 324 | Code | 11 | | 3 | 00/0507 : AD 30 06 | lda FP1+1
|
|
344 | 1 Unidrive4t.asm 325 | Code | 11 | | 2 | 00/050A : 85 C6 | sta {$C6}
|
|
345 | 1 Unidrive4t.asm 326 | Code | 11 | | 3 | 00/050C : AD 31 06 | lda FP1+2
|
|
346 | 1 Unidrive4t.asm 327 | Code | 11 | | 2 | 00/050F : 85 C7 | sta {$C6}+1
|
|
347 | 1 Unidrive4t.asm 328 | Code | 11 | | 3 | 00/0511 : AD 32 06 | lda FP1+3
|
|
348 | 1 Unidrive4t.asm 329 | Code | 11 | | 2 | 00/0514 : 85 C8 | sta {$C6}+2
|
|
349 | 1 Unidrive4t.asm 330 | Empty | 11 | | 0 | 00/0516 |
|
|
350 | 1 Unidrive4t.asm 331 | Comment | 11 | | 0 | 00/0516 | ** FP2 **
|
|
351 | 1 Unidrive4t.asm 332 | Code | 11 | | 3 | 00/0516 : AD 33 06 | lda FP2
|
|
352 | 1 Unidrive4t.asm 333 | Code | 11 | | 2 | 00/0519 : 85 C1 | sta {$C1}
|
|
353 | 1 Unidrive4t.asm 334 | Empty | 11 | | 0 | 00/051B |
|
|
354 | 1 Unidrive4t.asm 335 | Code | 11 | | 3 | 00/051B : AD 34 06 | lda FP2+1
|
|
355 | 1 Unidrive4t.asm 336 | Code | 11 | | 2 | 00/051E : 85 C2 | sta {$C2}
|
|
356 | 1 Unidrive4t.asm 337 | Code | 11 | | 3 | 00/0520 : AD 35 06 | lda FP2+2
|
|
357 | 1 Unidrive4t.asm 338 | Code | 11 | | 2 | 00/0523 : 85 C3 | sta {$C2}+1
|
|
358 | 1 Unidrive4t.asm 339 | Code | 11 | | 3 | 00/0525 : AD 36 06 | lda FP2+3
|
|
359 | 1 Unidrive4t.asm 340 | Code | 11 | | 2 | 00/0528 : 85 C4 | sta {$C2}+2
|
|
360 | 1 Unidrive4t.asm 341 | Empty | 11 | | 0 | 00/052A |
|
|
361 | 1 Unidrive4t.asm 342 | Comment | 11 | | 0 | 00/052A | ************************** Target Function ***********************
|
|
362 | 1 Unidrive4t.asm 343 | Comment | 11 | | 0 | 00/052A | * Y=N1+N2 *
|
|
363 | 1 Unidrive4t.asm 344 | Comment | 11 | | 0 | 00/052A | ******************************************************************
|
|
364 | 1 Unidrive4t.asm 345 | Comment | 11 | | 0 | 00/052A | *
|
|
365 | 1 Unidrive4t.asm 346 | Comment | 11 | | 0 | 00/052A | ** Simple ADD **
|
|
366 | 1 Unidrive4t.asm 347 | Code | 11 | | 3 | 00/052A : 20 80 05 | jsr FADD ; Call FP routine
|
|
367 | 1 Unidrive4t.asm 348 | Empty | 11 | | 0 | 00/052D |
|
|
368 | 1 Unidrive4t.asm 349 | Comment | 11 | | 0 | 00/052D | *** Output Data result FP1 to Unidisk registers First Time first 3 Byte out ***
|
|
369 | 1 Unidrive4t.asm 350 | Code | 11 | | 2 | 00/052D : A5 C5 | lda {$C5}
|
|
370 | 1 Unidrive4t.asm 351 | Code | 11 | | 2 | 00/052F : A6 C6 | ldx {$C6}
|
|
371 | 1 Unidrive4t.asm 352 | Code | 11 | | 2 | 00/0531 : A4 C7 | ldy {$C6}+1
|
|
372 | 1 Unidrive4t.asm 353 | Empty | 11 | | 0 | 00/0533 |
|
|
373 | 1 Unidrive4t.asm 354 | Code | 11 | | 1 | 00/0533 : 60 | rts
|
|
374 | 1 Unidrive4t.asm 355 | Comment | 11 | | 0 | 00/0534 | *** Output Data result FP1 to Unidisk registers Second Time latest 1 Byte out ***
|
|
375 | 1 Unidrive4t.asm 356 | Code | 11 | | 2 | 00/0534 : A5 C8 | SECOND lda {$C6}+2
|
|
376 | 1 Unidrive4t.asm 357 | Empty | 11 | | 0 | 00/0536 |
|
|
377 | 1 Unidrive4t.asm 358 | Code | 11 | | 1 | 00/0536 : 60 | rts
|
|
378 | 1 Unidrive4t.asm 359 | Comment | 11 | | 0 | 00/0537 | ***************************************************
|
|
379 | 1 Unidrive4t.asm 360 | Comment | 11 | | 0 | 00/0537 | *
|
|
380 | 1 Unidrive4t.asm 361 | Comment | 11 | | 0 | 00/0537 | ***************** FP Routine *****************
|
|
381 | 1 Unidrive4t.asm 362 | Comment | 11 | | 0 | 00/0537 | *
|
|
382 | 1 Unidrive4t.asm 363 | Comment | 11 | | 0 | 00/0537 | ***********************
|
|
383 | 1 Unidrive4t.asm 364 | Comment | 11 | | 0 | 00/0537 | * *
|
|
384 | 1 Unidrive4t.asm 365 | Comment | 11 | | 0 | 00/0537 | * APPLE-II FLOATING *
|
|
385 | 1 Unidrive4t.asm 366 | Comment | 11 | | 0 | 00/0537 | * POINT ROUTINES *
|
|
386 | 1 Unidrive4t.asm 367 | Comment | 11 | | 0 | 00/0537 | * *
|
|
387 | 1 Unidrive4t.asm 368 | Comment | 11 | | 0 | 00/0537 | * COPYRIGHT 1977 BY *
|
|
388 | 1 Unidrive4t.asm 369 | Comment | 11 | | 0 | 00/0537 | * APPLE COMPUTER INC. *
|
|
389 | 1 Unidrive4t.asm 370 | Comment | 11 | | 0 | 00/0537 | * *
|
|
390 | 1 Unidrive4t.asm 371 | Comment | 11 | | 0 | 00/0537 | * ALL RIGHTS RESERVED *
|
|
391 | 1 Unidrive4t.asm 372 | Comment | 11 | | 0 | 00/0537 | * *
|
|
392 | 1 Unidrive4t.asm 373 | Comment | 11 | | 0 | 00/0537 | * S. WOZNIAK *
|
|
393 | 1 Unidrive4t.asm 374 | Comment | 11 | | 0 | 00/0537 | * *
|
|
394 | 1 Unidrive4t.asm 375 | Comment | 11 | | 0 | 00/0537 | ***********************
|
|
395 | 1 Unidrive4t.asm 376 | Comment | 11 | | 0 | 00/0537 | * TITLE "FLOATING POINT ROUTINES for Unidisk memory"
|
|
396 | 1 Unidrive4t.asm 377 | Comment | 11 | | 0 | 00/0537 | *
|
|
397 | 1 Unidrive4t.asm 378 | Empty | 11 | | 0 | 00/0537 |
|
|
398 | 1 Unidrive4t.asm 379 | Comment | 11 | | 0 | 00/0537 | * ORG $300
|
|
399 | 1 Unidrive4t.asm 380 | Empty | 11 | | 0 | 00/0537 |
|
|
400 | 1 Unidrive4t.asm 381 | Code | 11 | | 1 | 00/0537 : 18 | ADD CLC ;CLEAR CARRY
|
|
401 | 1 Unidrive4t.asm 382 | Code | 11 | | 2 | 00/0538 : A2 02 | LDX #$2 ;INDEX FOR 3-BYTE ADD.
|
|
402 | 1 Unidrive4t.asm 383 | Code | 11 | | 2 | 00/053A : B5 C6 | ADD1 LDA {$C6},X
|
|
403 | 1 Unidrive4t.asm 384 | Code | 11 | | 2 | 00/053C : 75 C2 | ADC {$C2},X ;ADD A BYTE OF MANT2 TO MANT1
|
|
404 | 1 Unidrive4t.asm 385 | Code | 11 | | 2 | 00/053E : 95 C6 | STA {$C6},X
|
|
405 | 1 Unidrive4t.asm 386 | Code | 11 | | 1 | 00/0540 : CA | DEX ;INDEX TO NEXT MORE SIGNIF. BYTE.
|
|
406 | 1 Unidrive4t.asm 387 | Code | 11 | | 2 | 00/0541 : 10 F7 | BPL ADD1 ;LOOP UNTIL DONE.
|
|
407 | 1 Unidrive4t.asm 388 | Code | 11 | | 1 | 00/0543 : 60 | RTS ;RETURN
|
|
408 | 1 Unidrive4t.asm 389 | Code | 11 | | 2 | 00/0544 : 06 C0 | MD1 ASL {$C0} ;CLEAR LSB OF SIGN.
|
|
409 | 1 Unidrive4t.asm 390 | Code | 11 | | 3 | 00/0546 : 20 49 05 | JSR ABSWAP ;ABS VAL OF M1, THEN SWAP WITH M2
|
|
410 | 1 Unidrive4t.asm 391 | Code | 11 | | 2 | 00/0549 : 24 C6 | ABSWAP BIT {$C6} ;MANT1 NEGATIVE?
|
|
411 | 1 Unidrive4t.asm 392 | Code | 11 | | 2 | 00/054B : 10 05 | BPL ABSWAP1 ;NO, SWAP WITH MANT2 AND RETURN.
|
|
412 | 1 Unidrive4t.asm 393 | Code | 11 | | 3 | 00/054D : 20 B6 05 | JSR FCOMPL ;YES, COMPLEMENT IT.
|
|
413 | 1 Unidrive4t.asm 394 | Code | 11 | | 2 | 00/0550 : E6 C0 | INC {$C0} ;INCR SIGN, COMPLEMENTING LSB.
|
|
414 | 1 Unidrive4t.asm 395 | Code | 11 | | 1 | 00/0552 : 38 | ABSWAP1 SEC ;SET CARRY FOR RETURN TO MUL/DIV.
|
|
415 | 1 Unidrive4t.asm 396 | Code | 11 | | 2 | 00/0553 : A2 04 | SWAP LDX #$4 ;INDEX FOR 4 BYTE SWAP.
|
|
416 | 1 Unidrive4t.asm 397 | Code | 11 | | 2 | 00/0555 : 94 C8 | SWAP1 STY {$C9}-1,X
|
|
417 | 1 Unidrive4t.asm 398 | Code | 11 | | 2 | 00/0557 : B5 C4 | LDA {$C5}-1,X ;SWAP A BYTE OF EXP/MANT1 WITH
|
|
418 | 1 Unidrive4t.asm 399 | Code | 11 | | 2 | 00/0559 : B4 C0 | LDY {$C1}-1,X ;EXP/MANT2 AND LEAVE A COPY OF
|
|
419 | 1 Unidrive4t.asm 400 | Code | 11 | | 2 | 00/055B : 94 C4 | STY {$C5}-1,X ;MANT1 IN E (3 BYTES). E+3 USED
|
|
420 | 1 Unidrive4t.asm 401 | Code | 11 | | 2 | 00/055D : 95 C0 | STA {$C1}-1,X
|
|
421 | 1 Unidrive4t.asm 402 | Code | 11 | | 1 | 00/055F : CA | DEX ;ADVANCE INDEX TO NEXT BYTE
|
|
422 | 1 Unidrive4t.asm 403 | Code | 11 | | 2 | 00/0560 : D0 F3 | BNE SWAP1 ;LOOP UNTIL DONE.
|
|
423 | 1 Unidrive4t.asm 404 | Code | 11 | | 1 | 00/0562 : 60 | RTS ;RETURN
|
|
424 | 1 Unidrive4t.asm 405 | Code | 11 | | 2 | 00/0563 : A9 8E | FLOAT LDA #$8E ;INIT EXP1 TO 14, <--------------- int to fp
|
|
425 | 1 Unidrive4t.asm 406 | Code | 11 | | 2 | 00/0565 : 85 C5 | STA {$C5} ;THEN NORMALIZE TO FLOAT.
|
|
426 | 1 Unidrive4t.asm 407 | Code | 11 | | 2 | 00/0567 : A5 C6 | NORM1 LDA {$C6} ;HIGH-ORDER MANT1 BYTE.
|
|
427 | 1 Unidrive4t.asm 408 | Code | 11 | | 2 | 00/0569 : C9 C0 | CMP #$C0 ;UPPER TWO BITS UNEQUAL?
|
|
428 | 1 Unidrive4t.asm 409 | Code | 11 | | 2 | 00/056B : 30 0C | BMI RTS1 ;YES, RETURN WITH MANT1 NORMALIZED
|
|
429 | 1 Unidrive4t.asm 410 | Code | 11 | | 2 | 00/056D : C6 C5 | DEC {$C5} ;DECREMENT EXP1.
|
|
430 | 1 Unidrive4t.asm 411 | Code | 11 | | 2 | 00/056F : 06 C8 | ASL {$C6}+2
|
|
431 | 1 Unidrive4t.asm 412 | Code | 11 | | 2 | 00/0571 : 26 C7 | ROL {$C6}+1 ;SHIFT MANT1 (3 BYTES) LEFT.
|
|
432 | 1 Unidrive4t.asm 413 | Code | 11 | | 2 | 00/0573 : 26 C6 | ROL {$C6}
|
|
433 | 1 Unidrive4t.asm 414 | Code | 11 | | 2 | 00/0575 : A5 C5 | NORM LDA {$C5} ;EXP1 ZERO?
|
|
434 | 1 Unidrive4t.asm 415 | Code | 11 | | 2 | 00/0577 : D0 EE | BNE NORM1 ;NO, CONTINUE NORMALIZING.
|
|
435 | 1 Unidrive4t.asm 416 | Code | 11 | | 1 | 00/0579 : 60 | RTS1 RTS ;RETURN.
|
|
436 | 1 Unidrive4t.asm 417 | Code | 11 | | 3 | 00/057A : 20 B6 05 | FSUB JSR FCOMPL ;CMPL MANT1,CLEARS CARRY UNLESS 0 <---- sub
|
|
437 | 1 Unidrive4t.asm 418 | Code | 11 | | 3 | 00/057D : 20 8D 05 | SWPALGN JSR ALGNSWP ;RIGHT SHIFT MANT1 OR SWAP WITH
|
|
438 | 1 Unidrive4t.asm 419 | Code | 11 | | 2 | 00/0580 : A5 C1 | FADD LDA {$C1} ;<------------------------------------- add
|
|
439 | 1 Unidrive4t.asm 420 | Code | 11 | | 2 | 00/0582 : C5 C5 | CMP {$C5} ;COMPARE EXP1 WITH EXP2.
|
|
440 | 1 Unidrive4t.asm 421 | Code | 11 | | 2 | 00/0584 : D0 F7 | BNE SWPALGN ;IF #,SWAP ADDENDS OR ALIGN MANTS.
|
|
441 | 1 Unidrive4t.asm 422 | Code | 11 | | 3 | 00/0586 : 20 37 05 | JSR ADD ;ADD ALIGNED MANTISSAS.
|
|
442 | 1 Unidrive4t.asm 423 | Code | 11 | | 2 | 00/0589 : 50 EA | ADDEND BVC NORM ;NO OVERFLOW, NORMALIZE RESULT.
|
|
443 | 1 Unidrive4t.asm 424 | Code | 11 | | 2 | 00/058B : 70 05 | BVS RTLOG ;OV: SHIFT M1 RIGHT, CARRY INTO SIGN
|
|
444 | 1 Unidrive4t.asm 425 | Code | 11 | | 2 | 00/058D : 90 C4 | ALGNSWP BCC SWAP ;SWAP IF CARRY CLEAR,
|
|
445 | 1 Unidrive4t.asm 426 | Comment | 11 | | 0 | 00/058F | * ELSE SHIFT RIGHT ARITH.
|
|
446 | 1 Unidrive4t.asm 427 | Code | 11 | | 2 | 00/058F : A5 C6 | RTAR LDA {$C6} ;SIGN OF MANT1 INTO CARRY FOR
|
|
447 | 1 Unidrive4t.asm 428 | Code | 11 | | 1 | 00/0591 : 0A | ASL ;RIGHT ARITH SHIFT.
|
|
448 | 1 Unidrive4t.asm 429 | Code | 11 | | 2 | 00/0592 : E6 C5 | RTLOG INC {$C5} ;INCR X1 TO ADJUST FOR RIGHT SHIFT
|
|
449 | 1 Unidrive4t.asm 430 | Code | 11 | | 2 | 00/0594 : F0 75 | BEQ OVFL ;EXP1 OUT OF RANGE.
|
|
450 | 1 Unidrive4t.asm 431 | Code | 11 | | 2 | 00/0596 : A2 FA | RTLOG1 LDX #$FA ;INDEX FOR 6:BYTE RIGHT SHIFT.
|
|
451 | 1 Unidrive4t.asm 432 | Code | 11 | | 2 | 00/0598 : 76 CC | ROR1 ROR {$C9}+3,X
|
|
452 | 1 Unidrive4t.asm 433 | Code | 11 | | 1 | 00/059A : E8 | INX ;NEXT BYTE OF SHIFT.
|
|
453 | 1 Unidrive4t.asm 434 | Code | 11 | | 2 | 00/059B : D0 FB | BNE ROR1 ;LOOP UNTIL DONE.
|
|
454 | 1 Unidrive4t.asm 435 | Code | 11 | | 1 | 00/059D : 60 | RTS ;RETURN.
|
|
455 | 1 Unidrive4t.asm 436 | Code | 11 | | 3 | 00/059E : 20 44 05 | FMUL JSR MD1 ;ABS VAL OF MANT1, MANT2 <-------------- mul
|
|
456 | 1 Unidrive4t.asm 437 | Code | 11 | | 2 | 00/05A1 : 65 C5 | ADC {$C5} ;ADD EXP1 TO EXP2 FOR PRODUCT EXP
|
|
457 | 1 Unidrive4t.asm 438 | Code | 11 | | 3 | 00/05A3 : 20 F4 05 | JSR MD2 ;CHECK PROD. EXP AND PREP. FOR MUL
|
|
458 | 1 Unidrive4t.asm 439 | Code | 11 | | 1 | 00/05A6 : 18 | CLC ;CLEAR CARRY FOR FIRST BIT.
|
|
459 | 1 Unidrive4t.asm 440 | Code | 11 | | 3 | 00/05A7 : 20 96 05 | MUL1 JSR RTLOG1 ;M1 AND E RIGHT (PROD AND MPLIER)
|
|
460 | 1 Unidrive4t.asm 441 | Code | 11 | | 2 | 00/05AA : 90 03 | BCC MUL2 ;IF CARRY CLEAR, SKIP PARTIAL PROD
|
|
461 | 1 Unidrive4t.asm 442 | Code | 11 | | 3 | 00/05AC : 20 37 05 | JSR ADD ;ADD MULTIPLICAND TO PRODUCT.
|
|
462 | 1 Unidrive4t.asm 443 | Code | 11 | | 1 | 00/05AF : 88 | MUL2 DEY ;NEXT MUL ITERATION.
|
|
463 | 1 Unidrive4t.asm 444 | Code | 11 | | 2 | 00/05B0 : 10 F5 | BPL MUL1 ;LOOP UNTIL DONE.
|
|
464 | 1 Unidrive4t.asm 445 | Code | 11 | | 2 | 00/05B2 : 46 C0 | MDEND LSR {$C0} ;TEST SIGN LSB.
|
|
465 | 1 Unidrive4t.asm 446 | Code | 11 | | 2 | 00/05B4 : 90 BF | NORMX BCC NORM ;IF EVEN,NORMALIZE PROD,ELSE COMP
|
|
466 | 1 Unidrive4t.asm 447 | Code | 11 | | 1 | 00/05B6 : 38 | FCOMPL SEC ;SET CARRY FOR SUBTRACT. <--------------- not
|
|
467 | 1 Unidrive4t.asm 448 | Code | 11 | | 2 | 00/05B7 : A2 03 | LDX #$3 ;INDEX FOR 3 BYTE SUBTRACT.
|
|
468 | 1 Unidrive4t.asm 449 | Code | 11 | | 2 | 00/05B9 : A9 00 | COMPL1 LDA #$0 ;CLEAR A.
|
|
469 | 1 Unidrive4t.asm 450 | Code | 11 | | 2 | 00/05BB : F5 C5 | SBC {$C5},X ;SUBTRACT BYTE OF EXP1.
|
|
470 | 1 Unidrive4t.asm 451 | Code | 11 | | 2 | 00/05BD : 95 C5 | STA {$C5},X ;RESTORE IT.
|
|
471 | 1 Unidrive4t.asm 452 | Code | 11 | | 1 | 00/05BF : CA | DEX ;NEXT MORE SIGNIFICANT BYTE.
|
|
472 | 1 Unidrive4t.asm 453 | Code | 11 | | 2 | 00/05C0 : D0 F7 | BNE COMPL1 ;LOOP UNTIL DONE.
|
|
473 | 1 Unidrive4t.asm 454 | Code | 11 | | 2 | 00/05C2 : F0 C5 | BEQ ADDEND ;NORMALIZE (OR SHIFT RT IF OVFL).
|
|
474 | 1 Unidrive4t.asm 455 | Code | 11 | | 3 | 00/05C4 : 20 44 05 | FDIV JSR MD1 ;TAKE ABS VAL OF MANT1, MANT2. <--------- div
|
|
475 | 1 Unidrive4t.asm 456 | Code | 11 | | 2 | 00/05C7 : E5 C5 | SBC {$C5} ;SUBTRACT EXP1 FROM EXP2.
|
|
476 | 1 Unidrive4t.asm 457 | Code | 11 | | 3 | 00/05C9 : 20 F4 05 | JSR MD2 ;SAVE AS QUOTIENT EXP.
|
|
477 | 1 Unidrive4t.asm 458 | Code | 11 | | 1 | 00/05CC : 38 | DIV1 SEC ;SET CARRY FOR SUBTRACT.
|
|
478 | 1 Unidrive4t.asm 459 | Code | 11 | | 2 | 00/05CD : A2 02 | LDX #$2 ;INDEX FOR 3-BYTE SUBTRACTION.
|
|
479 | 1 Unidrive4t.asm 460 | Code | 11 | | 2 | 00/05CF : B5 C2 | DIV2 LDA {$C2},X
|
|
480 | 1 Unidrive4t.asm 461 | Code | 11 | | 2 | 00/05D1 : F5 C9 | SBC {$C9},X ;SUBTRACT A BYTE OF E FROM MANT2.
|
|
481 | 1 Unidrive4t.asm 462 | Code | 11 | | 1 | 00/05D3 : 48 | PHA ;SAVE ON STACK.
|
|
482 | 1 Unidrive4t.asm 463 | Code | 11 | | 1 | 00/05D4 : CA | DEX ;NEXT MORE SIGNIFICANT BYTE.
|
|
483 | 1 Unidrive4t.asm 464 | Code | 11 | | 2 | 00/05D5 : 10 F8 | BPL DIV2 ;LOOP UNTIL DONE.
|
|
484 | 1 Unidrive4t.asm 465 | Code | 11 | | 2 | 00/05D7 : A2 FD | LDX #$FD ;INDEX FOR 3-BYTE CONDITIONAL MOVE
|
|
485 | 1 Unidrive4t.asm 466 | Code | 11 | | 1 | 00/05D9 : 68 | DIV3 PLA ;PULL BYTE OF DIFFERENCE OFF STACK
|
|
486 | 1 Unidrive4t.asm 467 | Code | 11 | | 2 | 00/05DA : 90 02 | BCC DIV4 ;IF M2<E THEN DON'T RESTORE M2.
|
|
487 | 1 Unidrive4t.asm 468 | Code | 11 | | 2 | 00/05DC : 95 C5 | STA {$C2}+3,X
|
|
488 | 1 Unidrive4t.asm 469 | Code | 11 | | 1 | 00/05DE : E8 | DIV4 INX ;NEXT LESS SIGNIFICANT BYTE.
|
|
489 | 1 Unidrive4t.asm 470 | Code | 11 | | 2 | 00/05DF : D0 F8 | BNE DIV3 ;LOOP UNTIL DONE.
|
|
490 | 1 Unidrive4t.asm 471 | Code | 11 | | 2 | 00/05E1 : 26 C8 | ROL {$C6}+2
|
|
491 | 1 Unidrive4t.asm 472 | Code | 11 | | 2 | 00/05E3 : 26 C7 | ROL {$C6}+1 ;ROLL QUOTIENT LEFT, CARRY INTO LSB
|
|
492 | 1 Unidrive4t.asm 473 | Code | 11 | | 2 | 00/05E5 : 26 C6 | ROL {$C6}
|
|
493 | 1 Unidrive4t.asm 474 | Code | 11 | | 2 | 00/05E7 : 06 C4 | ASL {$C2}+2
|
|
494 | 1 Unidrive4t.asm 475 | Code | 11 | | 2 | 00/05E9 : 26 C3 | ROL {$C2}+1 ;SHIFT DIVIDEND LEFT
|
|
495 | 1 Unidrive4t.asm 476 | Code | 11 | | 2 | 00/05EB : 26 C2 | ROL {$C2}
|
|
496 | 1 Unidrive4t.asm 477 | Code | 11 | | 2 | 00/05ED : B0 1C | BCS OVFL ;OVFL IS DUE TO UNNORMED DIVISOR
|
|
497 | 1 Unidrive4t.asm 478 | Code | 11 | | 1 | 00/05EF : 88 | DEY ;NEXT DIVIDE ITERATION.
|
|
498 | 1 Unidrive4t.asm 479 | Code | 11 | | 2 | 00/05F0 : D0 DA | BNE DIV1 ;LOOP UNTIL DONE 23 ITERATIONS.
|
|
499 | 1 Unidrive4t.asm 480 | Code | 11 | | 2 | 00/05F2 : F0 BE | BEQ MDEND ;NORM. QUOTIENT AND CORRECT SIGN.
|
|
500 | 1 Unidrive4t.asm 481 | Code | 11 | | 2 | 00/05F4 : 86 C8 | MD2 STX {$C6}+2
|
|
501 | 1 Unidrive4t.asm 482 | Code | 11 | | 2 | 00/05F6 : 86 C7 | STX {$C6}+1 ;CLEAR MANT1 (3 BYTES) FOR MUL/DIV.
|
|
502 | 1 Unidrive4t.asm 483 | Code | 11 | | 2 | 00/05F8 : 86 C6 | STX {$C6}
|
|
503 | 1 Unidrive4t.asm 484 | Code | 11 | | 2 | 00/05FA : B0 0D | BCS OVCHK ;IF CALC. SET CARRY,CHECK FOR OVFL
|
|
504 | 1 Unidrive4t.asm 485 | Code | 11 | | 2 | 00/05FC : 30 04 | BMI MD3 ;IF NEG THEN NO UNDERFLOW.
|
|
505 | 1 Unidrive4t.asm 486 | Code | 11 | | 1 | 00/05FE : 68 | PLA ;POP ONE RETURN LEVEL.
|
|
506 | 1 Unidrive4t.asm 487 | Code | 11 | | 1 | 00/05FF : 68 | PLA
|
|
507 | 1 Unidrive4t.asm 488 | Code | 11 | | 2 | 00/0600 : 90 B2 | BCC NORMX ;CLEAR X1 AND RETURN.
|
|
508 | 1 Unidrive4t.asm 489 | Code | 11 | | 2 | 00/0602 : 49 80 | MD3 EOR #$80 ;COMPLEMENT SIGN BIT OF EXPONENT.
|
|
509 | 1 Unidrive4t.asm 490 | Code | 11 | | 2 | 00/0604 : 85 C5 | STA {$C5} ;STORE IT.
|
|
510 | 1 Unidrive4t.asm 491 | Code | 11 | | 2 | 00/0606 : A0 17 | LDY #$17 ;COUNT 24 MUL/23 DIV ITERATIONS.
|
|
511 | 1 Unidrive4t.asm 492 | Code | 11 | | 1 | 00/0608 : 60 | RTS ;RETURN.
|
|
512 | 1 Unidrive4t.asm 493 | Code | 11 | | 2 | 00/0609 : 10 F7 | OVCHK BPL MD3 ;IF POSITIVE EXP THEN NO OVFL.
|
|
513 | 1 Unidrive4t.asm 494 | Code | 11 | | 3 | 00/060B : 4C 10 0C | OVFL JMP {$C10}
|
|
514 | 1 Unidrive4t.asm 495 | Comment | 11 | | 0 | 00/060E | * ORG $F63D
|
|
515 | 1 Unidrive4t.asm 496 | Code | 11 | | 3 | 00/060E : 20 8F 05 | FIX1 JSR RTAR
|
|
516 | 1 Unidrive4t.asm 497 | Code | 11 | | 2 | 00/0611 : A5 C5 | FIX LDA {$C5} ; <------------------------------ fp to int
|
|
517 | 1 Unidrive4t.asm 498 | Code | 11 | | 2 | 00/0613 : 10 13 | BPL UNDFL
|
|
518 | 1 Unidrive4t.asm 499 | Code | 11 | | 2 | 00/0615 : C9 8E | CMP #$8E
|
|
519 | 1 Unidrive4t.asm 500 | Code | 11 | | 2 | 00/0617 : D0 F5 | BNE FIX1
|
|
520 | 1 Unidrive4t.asm 501 | Code | 11 | | 2 | 00/0619 : 24 C6 | BIT {$C6}
|
|
521 | 1 Unidrive4t.asm 502 | Code | 11 | | 2 | 00/061B : 10 0A | BPL FIXRTS
|
|
522 | 1 Unidrive4t.asm 503 | Code | 11 | | 2 | 00/061D : A5 C8 | LDA {$C6}+2
|
|
523 | 1 Unidrive4t.asm 504 | Code | 11 | | 2 | 00/061F : F0 06 | BEQ FIXRTS
|
|
524 | 1 Unidrive4t.asm 505 | Code | 11 | | 2 | 00/0621 : E6 C7 | INC {$C6}+1
|
|
525 | 1 Unidrive4t.asm 506 | Code | 11 | | 2 | 00/0623 : D0 02 | BNE FIXRTS
|
|
526 | 1 Unidrive4t.asm 507 | Code | 11 | | 2 | 00/0625 : E6 C6 | INC {$C6}
|
|
527 | 1 Unidrive4t.asm 508 | Code | 11 | | 1 | 00/0627 : 60 | FIXRTS RTS
|
|
528 | 1 Unidrive4t.asm 509 | Code | 11 | | 2 | 00/0628 : A9 00 | UNDFL LDA #$0
|
|
529 | 1 Unidrive4t.asm 510 | Code | 11 | | 2 | 00/062A : 85 C6 | STA {$C6}
|
|
530 | 1 Unidrive4t.asm 511 | Code | 11 | | 2 | 00/062C : 85 C7 | STA {$C6}+1
|
|
531 | 1 Unidrive4t.asm 512 | Code | 11 | | 1 | 00/062E : 60 | RTS
|
|
532 | 1 Unidrive4t.asm 513 | Comment | 11 | | 0 | 00/062F | ** Input Dynamic Data append in the end of Unidisk routine **
|
|
533 | 1 Unidrive4t.asm 514 | Data | 11 | | 1 | 00/062F : 00 | FP1 dfb $00
|
|
534 | 1 Unidrive4t.asm 515 | Data | 11 | | 1 | 00/0630 : 00 | dfb $00
|
|
535 | 1 Unidrive4t.asm 516 | Data | 11 | | 1 | 00/0631 : 00 | dfb $00
|
|
536 | 1 Unidrive4t.asm 517 | Data | 11 | | 1 | 00/0632 : 00 | dfb $00
|
|
537 | 1 Unidrive4t.asm 518 | Comment | 11 | | 0 | 00/0633 | *
|
|
538 | 1 Unidrive4t.asm 519 | Data | 11 | | 1 | 00/0633 : 00 | FP2 dfb $00
|
|
539 | 1 Unidrive4t.asm 520 | Data | 11 | | 1 | 00/0634 : 00 | dfb $00
|
|
540 | 1 Unidrive4t.asm 521 | Data | 11 | | 1 | 00/0635 : 00 | dfb $00
|
|
541 | 1 Unidrive4t.asm 522 | Data | 11 | | 1 | 00/0636 : 00 | dfb $00
|
|
------+--------------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|