Home » CEEFAX disks » telesoftware11.adl » 07-01-88/CUR\B

07-01-88/CUR\B

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » CEEFAX disks » telesoftware11.adl
Filename: 07-01-88/CUR\B
Read OK:
File size: 046E bytes
Load address: FFFF1900
Exec address: FFFF8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM Cursor Blink-off,v1.1,(C)1984 P.B.Helsdon
   20FOR B%=0 TO 2 STEP 2
   30P%=&0C00:REM Redefined character RAM
   40[
   50.start OPT B%
   60LDA #&38         \5 Byte
   70STA end+1        \interval
   80LDA #&FF         \for
   90STA end+2        \OSWORD=
  100STA end+3        \&FFFFFFFF38
  110STA end+4        \=-200 Centi-Seconds
  120STA end+5        \=2 Second Delay.
  130LDA #int AND &FF  \Event Vector points
  140STA &220          \to the following
  150LDA #int DIV &100 \code to produce
  160STA &221          \Blink-off.
  170.int LDX #&00   \Off-set in SHEILA=6845,
  180LDY #&0A        \Register 10 of the 6845,
  190LDA #&97        \Write to SHEILA,
  200JSR &FFF4       \OSBYTE Call.
  210LDX #&01          \Off-set in SHEILA,
  220LDY #&00          \Blink-off and tall cursor,
  230JSR &FFF4         \OSBYTE Call.
  240LDX #(end+1) AND &FF   \Address of
  250LDY #(end+1) DIV &100  \5 Byte interval,
  260LDA #&04               \Write interval timer,
  270JSR &FFF1              \OSWORD Call.
  280LDX #&05          \Event Code,
  290LDA #&0E          \Zero Crossing Event Enable,
  300JSR &FFF4         \OSBYTE Call.
  310.end RTS        \Return to WWP/VIEW.
  320]
  330 NEXT B%
  340CALL start

/� Cursor Blink-off,v1.1,(C)1984 P.B.Helsdon
� B%=0 � 2 � 2
&P%=&0C00:� Redefined character RAM
([
2.start OPT B%
<LDA #&38         \5 Byte
FSTA end+1        \interval
PLDA #&FF         \for
ZSTA end+2        \OSWORD=
d!STA end+3        \&FFFFFFFF38
n)STA end+4        \=-200 Centi-Seconds
x&STA end+5        \=2 Second Delay.
�(LDA #int � &FF  \Event Vector points
�'STA &220          \to the following
�$LDA #int � &100 \code to produce
�!STA &221          \Blink-off.
�,.int LDX #&00   \Off-set in SHEILA=6845,
�-LDY #&0A        \Register 10 of the 6845,
�%LDA #&97        \Write to SHEILA,
�!JSR &FFF4       \OSBYTE Call.
�)LDX #&01          \Off-set in SHEILA,
�1LDY #&00          \Blink-off and tall cursor,
�#JSR &FFF4         \OSBYTE Call.
�$LDX #(end+1) � &FF   \Address of
�*LDY #(end+1) � &100  \5 Byte interval,
1LDA #&04               \Write interval timer,
(JSR &FFF1              \OSWORD Call.
"LDX #&05          \Event Code,
"2LDA #&0E          \Zero Crossing Event Enable,
,#JSR &FFF4         \OSBYTE Call.
6(.end RTS        \Return to WWP/VIEW.
@]
J	 � B%
T� start
�
00000000  0d 00 0a 2f f4 20 43 75  72 73 6f 72 20 42 6c 69  |.../. Cursor Bli|
00000010  6e 6b 2d 6f 66 66 2c 76  31 2e 31 2c 28 43 29 31  |nk-off,v1.1,(C)1|
00000020  39 38 34 20 50 2e 42 2e  48 65 6c 73 64 6f 6e 0d  |984 P.B.Helsdon.|
00000030  00 14 12 e3 20 42 25 3d  30 20 b8 20 32 20 88 20  |.... B%=0 . 2 . |
00000040  32 0d 00 1e 26 50 25 3d  26 30 43 30 30 3a f4 20  |2...&P%=&0C00:. |
00000050  52 65 64 65 66 69 6e 65  64 20 63 68 61 72 61 63  |Redefined charac|
00000060  74 65 72 20 52 41 4d 0d  00 28 05 5b 0d 00 32 11  |ter RAM..(.[..2.|
00000070  2e 73 74 61 72 74 20 4f  50 54 20 42 25 0d 00 3c  |.start OPT B%..<|
00000080  1c 4c 44 41 20 23 26 33  38 20 20 20 20 20 20 20  |.LDA #&38       |
00000090  20 20 5c 35 20 42 79 74  65 0d 00 46 1e 53 54 41  |  \5 Byte..F.STA|
000000a0  20 65 6e 64 2b 31 20 20  20 20 20 20 20 20 5c 69  | end+1        \i|
000000b0  6e 74 65 72 76 61 6c 0d  00 50 19 4c 44 41 20 23  |nterval..P.LDA #|
000000c0  26 46 46 20 20 20 20 20  20 20 20 20 5c 66 6f 72  |&FF         \for|
000000d0  0d 00 5a 1d 53 54 41 20  65 6e 64 2b 32 20 20 20  |..Z.STA end+2   |
000000e0  20 20 20 20 20 5c 4f 53  57 4f 52 44 3d 0d 00 64  |     \OSWORD=..d|
000000f0  21 53 54 41 20 65 6e 64  2b 33 20 20 20 20 20 20  |!STA end+3      |
00000100  20 20 5c 26 46 46 46 46  46 46 46 46 33 38 0d 00  |  \&FFFFFFFF38..|
00000110  6e 29 53 54 41 20 65 6e  64 2b 34 20 20 20 20 20  |n)STA end+4     |
00000120  20 20 20 5c 3d 2d 32 30  30 20 43 65 6e 74 69 2d  |   \=-200 Centi-|
00000130  53 65 63 6f 6e 64 73 0d  00 78 26 53 54 41 20 65  |Seconds..x&STA e|
00000140  6e 64 2b 35 20 20 20 20  20 20 20 20 5c 3d 32 20  |nd+5        \=2 |
00000150  53 65 63 6f 6e 64 20 44  65 6c 61 79 2e 0d 00 82  |Second Delay....|
00000160  28 4c 44 41 20 23 69 6e  74 20 80 20 26 46 46 20  |(LDA #int . &FF |
00000170  20 5c 45 76 65 6e 74 20  56 65 63 74 6f 72 20 70  | \Event Vector p|
00000180  6f 69 6e 74 73 0d 00 8c  27 53 54 41 20 26 32 32  |oints...'STA &22|
00000190  30 20 20 20 20 20 20 20  20 20 20 5c 74 6f 20 74  |0          \to t|
000001a0  68 65 20 66 6f 6c 6c 6f  77 69 6e 67 0d 00 96 24  |he following...$|
000001b0  4c 44 41 20 23 69 6e 74  20 81 20 26 31 30 30 20  |LDA #int . &100 |
000001c0  5c 63 6f 64 65 20 74 6f  20 70 72 6f 64 75 63 65  |\code to produce|
000001d0  0d 00 a0 21 53 54 41 20  26 32 32 31 20 20 20 20  |...!STA &221    |
000001e0  20 20 20 20 20 20 5c 42  6c 69 6e 6b 2d 6f 66 66  |      \Blink-off|
000001f0  2e 0d 00 aa 2c 2e 69 6e  74 20 4c 44 58 20 23 26  |....,.int LDX #&|
00000200  30 30 20 20 20 5c 4f 66  66 2d 73 65 74 20 69 6e  |00   \Off-set in|
00000210  20 53 48 45 49 4c 41 3d  36 38 34 35 2c 0d 00 b4  | SHEILA=6845,...|
00000220  2d 4c 44 59 20 23 26 30  41 20 20 20 20 20 20 20  |-LDY #&0A       |
00000230  20 5c 52 65 67 69 73 74  65 72 20 31 30 20 6f 66  | \Register 10 of|
00000240  20 74 68 65 20 36 38 34  35 2c 0d 00 be 25 4c 44  | the 6845,...%LD|
00000250  41 20 23 26 39 37 20 20  20 20 20 20 20 20 5c 57  |A #&97        \W|
00000260  72 69 74 65 20 74 6f 20  53 48 45 49 4c 41 2c 0d  |rite to SHEILA,.|
00000270  00 c8 21 4a 53 52 20 26  46 46 46 34 20 20 20 20  |..!JSR &FFF4    |
00000280  20 20 20 5c 4f 53 42 59  54 45 20 43 61 6c 6c 2e  |   \OSBYTE Call.|
00000290  0d 00 d2 29 4c 44 58 20  23 26 30 31 20 20 20 20  |...)LDX #&01    |
000002a0  20 20 20 20 20 20 5c 4f  66 66 2d 73 65 74 20 69  |      \Off-set i|
000002b0  6e 20 53 48 45 49 4c 41  2c 0d 00 dc 31 4c 44 59  |n SHEILA,...1LDY|
000002c0  20 23 26 30 30 20 20 20  20 20 20 20 20 20 20 5c  | #&00          \|
000002d0  42 6c 69 6e 6b 2d 6f 66  66 20 61 6e 64 20 74 61  |Blink-off and ta|
000002e0  6c 6c 20 63 75 72 73 6f  72 2c 0d 00 e6 23 4a 53  |ll cursor,...#JS|
000002f0  52 20 26 46 46 46 34 20  20 20 20 20 20 20 20 20  |R &FFF4         |
00000300  5c 4f 53 42 59 54 45 20  43 61 6c 6c 2e 0d 00 f0  |\OSBYTE Call....|
00000310  24 4c 44 58 20 23 28 65  6e 64 2b 31 29 20 80 20  |$LDX #(end+1) . |
00000320  26 46 46 20 20 20 5c 41  64 64 72 65 73 73 20 6f  |&FF   \Address o|
00000330  66 0d 00 fa 2a 4c 44 59  20 23 28 65 6e 64 2b 31  |f...*LDY #(end+1|
00000340  29 20 81 20 26 31 30 30  20 20 5c 35 20 42 79 74  |) . &100  \5 Byt|
00000350  65 20 69 6e 74 65 72 76  61 6c 2c 0d 01 04 31 4c  |e interval,...1L|
00000360  44 41 20 23 26 30 34 20  20 20 20 20 20 20 20 20  |DA #&04         |
00000370  20 20 20 20 20 20 5c 57  72 69 74 65 20 69 6e 74  |      \Write int|
00000380  65 72 76 61 6c 20 74 69  6d 65 72 2c 0d 01 0e 28  |erval timer,...(|
00000390  4a 53 52 20 26 46 46 46  31 20 20 20 20 20 20 20  |JSR &FFF1       |
000003a0  20 20 20 20 20 20 20 5c  4f 53 57 4f 52 44 20 43  |       \OSWORD C|
000003b0  61 6c 6c 2e 0d 01 18 22  4c 44 58 20 23 26 30 35  |all...."LDX #&05|
000003c0  20 20 20 20 20 20 20 20  20 20 5c 45 76 65 6e 74  |          \Event|
000003d0  20 43 6f 64 65 2c 0d 01  22 32 4c 44 41 20 23 26  | Code,.."2LDA #&|
000003e0  30 45 20 20 20 20 20 20  20 20 20 20 5c 5a 65 72  |0E          \Zer|
000003f0  6f 20 43 72 6f 73 73 69  6e 67 20 45 76 65 6e 74  |o Crossing Event|
00000400  20 45 6e 61 62 6c 65 2c  0d 01 2c 23 4a 53 52 20  | Enable,..,#JSR |
00000410  26 46 46 46 34 20 20 20  20 20 20 20 20 20 5c 4f  |&FFF4         \O|
00000420  53 42 59 54 45 20 43 61  6c 6c 2e 0d 01 36 28 2e  |SBYTE Call...6(.|
00000430  65 6e 64 20 52 54 53 20  20 20 20 20 20 20 20 5c  |end RTS        \|
00000440  52 65 74 75 72 6e 20 74  6f 20 57 57 50 2f 56 49  |Return to WWP/VI|
00000450  45 57 2e 0d 01 40 05 5d  0d 01 4a 09 20 ed 20 42  |EW...@.]..J. . B|
00000460  25 0d 01 54 0b d6 20 73  74 61 72 74 0d ff        |%..T.. start..|
0000046e
07-01-88/CUR\B.m0
07-01-88/CUR\B.m1
07-01-88/CUR\B.m2
07-01-88/CUR\B.m4
07-01-88/CUR\B.m5