Mercurial > hg > Members > kono > nitros9-code

comparison 3rdparty/subrtns/hires.asm @ 1178:900ceed1880a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added standard headers
author boisy
date Sun, 25 May 2003 15:50:20 +0000
parents 6641a883d6b0
children b8c7b7fbf3c9
comparison
equal deleted inserted replaced
1177:b1a826c854f0 1178:900ceed1880a
1 Level equ 2 1 ********************************************************************
2 * HiRes - HiRes Joystick Subroutine Module
3 *
4 * $Id$
5 *
6 * Ed. Comments Who YY/MM/DD
7 * ------------------------------------------------------------------
8 * 1 Created for Coyota project BGP 98/??/??
9
10 nam HiRes
11 ttl HiRes Joystick Subroutine Module
2 12
3 ifp1 13 ifp1
4 use os9defs 14 use os9defs
5 endc 15 endc
16
17 edition set 1
6 18
7 mod eom,name,Sbrtn+Objct,Reent+0,HiRes,size 19 mod eom,name,Sbrtn+Objct,Reent+0,HiRes,size
8 20
9 size equ . 21 size equ .
10 22
11 name fcs /HiRes/ 23 name fcs /HiRes/
12 fcb $01 24 fcb edition
13 25
14 * Hi-Res Read Routine 26 * Hi-Res Read Routine
15 * 27 *
16 * Taken in part from "High Hopes for the Hi-Res" 28 * Taken in part from "High Hopes for the Hi-Res"
17 * by William Barden, Jr., Rainbow Magazine, Feb 1990, pp. 42 29 * by William Barden, Jr., Rainbow Magazine, Feb 1990, pp. 42
85 * 97 *
86 * Exit: 98 * Exit:
87 * D = value 99 * D = value
88 100
89 * Delays for CoCo 3 OS-9 Level Two vs. CoCo 2 OS-9 Level One 101 * Delays for CoCo 3 OS-9 Level Two vs. CoCo 2 OS-9 Level One
90 ifgt Level-1 102 IFGT Level-1
91 SETTLDLY equ $5E 103 SETTLDLY equ 94
92 POLLDLY equ $0329 104 POLLDLY equ 809
93 HIVAL equ 640 105 HIVAL equ 640
94 else 106 ELSE
95 SETTLDLY equ $5E*2 107 SETTLDLY equ 94*2
96 POLLDLY equ $0194 108 POLLDLY equ 404
97 HIVAL equ 320 109 HIVAL equ 320
98 endc 110 ENDC
99 111
100 HiResHW pshs a 112 HiResHW pshs a
101 lda $FF01 113 lda $FF01
102 anda #$F7 114 anda #$F7
103 ora ,s+ 115 ora ,s+