Home » CEEFAX disks » telesoftware7.adl » 10-06-88/CUR\B
10-06-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 » telesoftware7.adl |
| Filename: | 10-06-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:
- CEEFAX disks » telesoftware11.adl » 07-01-88/CUR\B
- CEEFAX disks » telesoftware7.adl » 10-06-88/CUR\B
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 F STA end+1 \interval PLDA #&FF \for Z STA 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
10-06-88/CUR\B.m0
10-06-88/CUR\B.m1
10-06-88/CUR\B.m2
10-06-88/CUR\B.m4
10-06-88/CUR\B.m5
.