From 3a3d5efe3f9a5c073365cff93ecfa5a762ebc973 Mon Sep 17 00:00:00 2001 From: dschmenk Date: Thu, 23 May 2013 13:50:35 -0700 Subject: [PATCH] Apple II source Build with Merlin 8 on ProDOS --- src/A2PI.S | 208 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 208 insertions(+) create mode 100644 src/A2PI.S diff --git a/src/A2PI.S b/src/A2PI.S new file mode 100644 index 0000000..8059ac6 --- /dev/null +++ b/src/A2PI.S @@ -0,0 +1,208 @@ + 1 COUT EQU $FDED + 2 WAIT EQU $FCA8 + 3 KEYBD EQU $C000 + 4 KBCLR EQU $C010 + 5 PTR EQU $06 + 6 PTRL EQU $06 + 7 PTRH EQU $07 + 8 MOUROM EQU $300 + 9 SSCROM EQU $301 + 10 MOUSLOT EQU $302 + 11 SSCSLOT EQU $303 + 12 MOUINDEX EQU $304 + 13 ORG $1000 + 14 ENTRY LDA #$C1 + 15 STA PTRH + 16 LDA #$00 + 17 STA PTRL + 18 STA MOUROM + 19 STA SSCROM + 20 STA MOUSLOT + 21 STA SSCSLOT + 22 STA MOUINDEX + 23 * + 24 * SEARCH SLOTS FOR MOUSE AND SUPERSERIAL CARDS + 25 * + 26 IDCARD LDY #$05 + 27 LDA (PTR),Y + 28 CMP #$38 ; PASCAL ID BYTE + 29 BNE NEXTCARD + 30 LDY #$07 + 31 LDA (PTR),Y + 32 CMP #$18 + 33 BNE NEXTCARD ; PASCAL ID BYTE + 34 ISMOU LDY #$0C + 35 LDA (PTR),Y + 36 CMP #$20 + 37 BNE ISSSC + 38 LDY #$FB + 39 LDA (PTR),Y + 40 CMP #$D6 + 41 BNE ISSSC + 42 LDA PTRH + 43 STA MOUROM + 44 AND #$07 + 45 STA MOUINDEX + 46 ASL + 47 ASL + 48 ASL + 49 ASL + 50 STA MOUSLOT + 51 BNE NEXTCARD + 52 ISSSC LDY #$0C + 53 LDA (PTR),Y + 54 CMP #$31 + 55 BNE NEXTCARD + 56 LDA PTRH + 57 STA SSCROM + 58 ASL + 59 ASL + 60 ASL + 61 ASL + 62 STA SSCSLOT + 63 NEXTCARD INC PTRH + 64 LDA PTRH + 65 CMP #$C8 + 66 BNE IDCARD + 67 * + 68 * INIT MOUSE + 69 * + 70 INITMOU LDY MOUINDEX + 71 BEQ INITSSC + 72 LDY #$19 ; INIT MOUSE + 73 JSR CALLMOU + 74 LDY #$12 ; SET MOUSE + 75 LDA #$01 ; TRANSPARENT MODE + 76 JSR CALLMOU + 77 LDA #$00 + 78 STA $478 + 79 STA $4F8 + 80 LDA #$C0 + 81 STA $578 + 82 LDA #$3F + 83 STA $5F8 + 84 LDY #$17 ; CLAMP MOUSE + 85 LDA #$00 ; X AXIS + 86 JSR CALLMOU + 87 LDY #$17 ; CLAMP MOUSE + 88 LDA #$01 ; YAXIS + 89 JSR CALLMOU + 90 * + 91 * INIT SSC CARD FOR 115K BAUD + 92 * + 93 INITSSC LDY SSCSLOT + 94 BNE SETSSC + 95 JMP EXIT + 96 SETSSC LDA #$0B + 97 STA $C08A,Y + 98 LDA #$10 + 99 STA $C08B,Y ; 115K + 100 * + 101 * SYNCHRONIZE WITH PI + 102 * + 103 SYNC LDA #$80 + 104 STA $C088,Y + 105 ORA #'.' + 106 JSR COUT + 107 LDA #$FF + 108 JSR WAIT + 109 LDA KEYBD + 110 BMI EXIT + 111 LDY SSCSLOT + 112 LDA $C089,Y + 113 AND #$08 + 114 BEQ SYNC + 115 LDA $C088,Y + 116 CMP #$81 + 117 BNE SYNC + 118 * + 119 * CHECK INPUT STATE FOR CHANGE + 120 * + 121 EVENTLP LDX KEYBD + 122 BMI SENDKEY + 123 DEC WAITMOU + 124 BNE EVENTLP + 125 CHKMOU LDY #$14 ; READ MOUSE + 126 JSR CALLMOU + 127 BCS EVENTLP + 128 LDY MOUINDEX + 129 LDA $478,Y + 130 STA MOUXSTAT + 131 LDA $4F8,Y + 132 STA MOUYSTAT + 133 LDY #$15 ; CLEAR MOUSE + 134 JSR CALLMOU + 135 LDA MOUXSTAT + 136 ORA MOUYSTAT + 137 BNE SENDMOU + 138 CHKBTTN LDY MOUINDEX + 139 LDA $778,Y + 140 AND #$80 + 141 CMP BTTNSTAT + 142 BEQ EVENTLP + 143 JMP SENDBTTN + 144 SENDKEY STX KBCLR + 145 LDY SSCSLOT + 146 LDA #$82 ; KBEVENT CODE + 147 JSR SENDACC + 148 JSR SENDMOD + 149 TXA + 150 JSR SENDACC + 151 CPX #$9B ; ESC KEY + 152 BNE EVENTLP + 153 LDA $C062 + 154 BPL EVENTLP + 155 EXIT LDA KBCLR + 156 LDY #$12 ; SET MOUSE + 157 LDA #$00 ; DISABLE MOUSE + 158 JMP CALLMOU + 159 SENDMOU LDY SSCSLOT + 160 LDA #$84 + 161 JSR SENDACC + 162 LDA MOUXSTAT + 163 JSR SENDACC + 164 LDA MOUYSTAT + 165 JSR SENDACC + 166 JMP CHKBTTN + 167 SENDBTTN STA BTTNSTAT + 168 LDY SSCSLOT + 169 LDA #$86 + 170 JSR SENDACC + 171 JSR SENDMOD + 172 LDA BTTNSTAT + 173 JSR SENDACC + 174 JMP EVENTLP + 175 SENDMOD LDA $C062 + 176 ASL + 177 LDA $C061 + 178 ROR + 179 AND #$C0 + 180 SENDACC STA $C088,Y + 181 SENDWT LDA #$10 + 182 AND $C089,Y + 183 BEQ SENDWT + 184 RTS + 185 CALLMOU LDX MOUROM + 186 BEQ EXITMOU + 187 STX PTRH + 188 PHA + 189 LDA #$00 + 190 STA PTRL + 191 LDA (PTR),Y + 192 STA PTRL + 193 LDX MOUROM + 194 LDY MOUSLOT + 195 PLA + 196 PHP + 197 SEI + 198 JSR IJMP + 199 PLP + 200 CLC + 201 RTS + 202 EXITMOU SEC + 203 RTS + 204 IJMP JMP (PTR) + 205 MOUXSTAT DB 0 + 206 MOUYSTAT DB 0 + 207 BTTNSTAT DB 0 + 208 WAITMOU DB 0