Home » CEEFAX disks » telesoftware17.adl » 25-08-89/FORUM5
25-08-89/FORUM5
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 » telesoftware17.adl |
| Filename: | 25-08-89/FORUM5 |
| Read OK: | ✔ |
| File size: | 030C bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF802B |
File contents
10REM Sideways Screen 20REM by D Atherton and D Spencer 30REM for M/C only 40REM (c) Acorn User June 87 50: 60osword=&FFF1 70oswrch=&FFEE 80osbyte=&FFF4 90zp=&80 100FOR pass=0 TO 3 STEP 3 110P%=&900 120[OPT pass 130LDA #20 140JSR osbyte 150LDA #33 160STA pblk 170.loop2 180LDA #10 190LDX #pblk MOD 256 200LDY #pblk DIV 256 210JSR osword 220LDA #23 230JSR oswrch 240LDA pblk 250JSR oswrch 260LDY #7 270.loop 280LDX #0 290.loop1 300ASL pblk+1,X 310ROR A 320INX 330CPX #8 340BNE loop1 350JSR oswrch 360DEY 370BPL loop 380INC pblk 390BNE loop2 400LDX #0 410.loop3 420LDA side,X 430BMI out 440JSR oswrch 450INX 460BNE loop3 470.out 480RTS 490.side 500EQUB 23 510EQUB 16 520EQUB 10 530EQUD 0 540EQUD 0 550EQUW 23 560EQUW 10 570EQUD 0 580EQUD 0 590EQUB 12 600EQUB &FF 610.pblk 620] NEXT 630CALL &900
� Sideways Screen !� by D Atherton and D Spencer � for M/C only ( � (c) Acorn User June 87 2: <osword=&FFF1 Foswrch=&FFEE Posbyte=&FFF4 Z zp=&80 d� pass=0 � 3 � 3 n P%=&900 x [OPT pass � LDA #20 �JSR osbyte � LDA #33 � STA pblk � .loop2 � LDA #10 �LDX #pblk � 256 �LDY #pblk � 256 �JSR osword � LDA #23 �JSR oswrch � LDA pblk �JSR oswrch LDY #7 .loop LDX #0 " .loop1 ,ASL pblk+1,X 6 ROR A @INX J CPX #8 T BNE loop1 ^JSR oswrch hDEY r BPL loop | INC pblk � BNE loop2 � LDX #0 � .loop3 �LDA side,X � BMI out �JSR oswrch �INX � BNE loop3 �.out �RTS � .side � EQUB 23 � EQUB 16 EQUB 10 EQUD 0 EQUD 0 & EQUW 23 0 EQUW 10 : EQUD 0 D EQUD 0 N EQUB 12 X EQUB &FF b .pblk l] � v � &900 �
00000000 0d 00 0a 15 f4 20 53 69 64 65 77 61 79 73 20 53 |..... Sideways S| 00000010 63 72 65 65 6e 0d 00 14 21 f4 20 62 79 20 44 20 |creen...!. by D | 00000020 41 74 68 65 72 74 6f 6e 20 61 6e 64 20 44 20 53 |Atherton and D S| 00000030 70 65 6e 63 65 72 0d 00 1e 12 f4 20 66 6f 72 20 |pencer..... for | 00000040 4d 2f 43 20 6f 6e 6c 79 0d 00 28 1c f4 20 28 63 |M/C only..(.. (c| 00000050 29 20 41 63 6f 72 6e 20 55 73 65 72 20 4a 75 6e |) Acorn User Jun| 00000060 65 20 38 37 0d 00 32 05 3a 0d 00 3c 10 6f 73 77 |e 87..2.:..<.osw| 00000070 6f 72 64 3d 26 46 46 46 31 0d 00 46 10 6f 73 77 |ord=&FFF1..F.osw| 00000080 72 63 68 3d 26 46 46 45 45 0d 00 50 10 6f 73 62 |rch=&FFEE..P.osb| 00000090 79 74 65 3d 26 46 46 46 34 0d 00 5a 0a 7a 70 3d |yte=&FFF4..Z.zp=| 000000a0 26 38 30 0d 00 64 14 e3 20 70 61 73 73 3d 30 20 |&80..d.. pass=0 | 000000b0 b8 20 33 20 88 20 33 0d 00 6e 0b 50 25 3d 26 39 |. 3 . 3..n.P%=&9| 000000c0 30 30 0d 00 78 0d 5b 4f 50 54 20 70 61 73 73 0d |00..x.[OPT pass.| 000000d0 00 82 0b 4c 44 41 20 23 32 30 0d 00 8c 0e 4a 53 |...LDA #20....JS| 000000e0 52 20 6f 73 62 79 74 65 0d 00 96 0b 4c 44 41 20 |R osbyte....LDA | 000000f0 23 33 33 0d 00 a0 0c 53 54 41 20 70 62 6c 6b 0d |#33....STA pblk.| 00000100 00 aa 0a 2e 6c 6f 6f 70 32 0d 00 b4 0b 4c 44 41 |....loop2....LDA| 00000110 20 23 31 30 0d 00 be 13 4c 44 58 20 23 70 62 6c | #10....LDX #pbl| 00000120 6b 20 83 20 32 35 36 0d 00 c8 13 4c 44 59 20 23 |k . 256....LDY #| 00000130 70 62 6c 6b 20 81 20 32 35 36 0d 00 d2 0e 4a 53 |pblk . 256....JS| 00000140 52 20 6f 73 77 6f 72 64 0d 00 dc 0b 4c 44 41 20 |R osword....LDA | 00000150 23 32 33 0d 00 e6 0e 4a 53 52 20 6f 73 77 72 63 |#23....JSR oswrc| 00000160 68 0d 00 f0 0c 4c 44 41 20 70 62 6c 6b 0d 00 fa |h....LDA pblk...| 00000170 0e 4a 53 52 20 6f 73 77 72 63 68 0d 01 04 0a 4c |.JSR oswrch....L| 00000180 44 59 20 23 37 0d 01 0e 09 2e 6c 6f 6f 70 0d 01 |DY #7.....loop..| 00000190 18 0a 4c 44 58 20 23 30 0d 01 22 0a 2e 6c 6f 6f |..LDX #0.."..loo| 000001a0 70 31 0d 01 2c 10 41 53 4c 20 70 62 6c 6b 2b 31 |p1..,.ASL pblk+1| 000001b0 2c 58 0d 01 36 09 52 4f 52 20 41 0d 01 40 07 49 |,X..6.ROR A..@.I| 000001c0 4e 58 0d 01 4a 0a 43 50 58 20 23 38 0d 01 54 0d |NX..J.CPX #8..T.| 000001d0 42 4e 45 20 6c 6f 6f 70 31 0d 01 5e 0e 4a 53 52 |BNE loop1..^.JSR| 000001e0 20 6f 73 77 72 63 68 0d 01 68 07 44 45 59 0d 01 | oswrch..h.DEY..| 000001f0 72 0c 42 50 4c 20 6c 6f 6f 70 0d 01 7c 0c 49 4e |r.BPL loop..|.IN| 00000200 43 20 70 62 6c 6b 0d 01 86 0d 42 4e 45 20 6c 6f |C pblk....BNE lo| 00000210 6f 70 32 0d 01 90 0a 4c 44 58 20 23 30 0d 01 9a |op2....LDX #0...| 00000220 0a 2e 6c 6f 6f 70 33 0d 01 a4 0e 4c 44 41 20 73 |..loop3....LDA s| 00000230 69 64 65 2c 58 0d 01 ae 0b 42 4d 49 20 6f 75 74 |ide,X....BMI out| 00000240 0d 01 b8 0e 4a 53 52 20 6f 73 77 72 63 68 0d 01 |....JSR oswrch..| 00000250 c2 07 49 4e 58 0d 01 cc 0d 42 4e 45 20 6c 6f 6f |..INX....BNE loo| 00000260 70 33 0d 01 d6 08 2e 6f 75 74 0d 01 e0 07 52 54 |p3.....out....RT| 00000270 53 0d 01 ea 09 2e 73 69 64 65 0d 01 f4 0b 45 51 |S.....side....EQ| 00000280 55 42 20 32 33 0d 01 fe 0b 45 51 55 42 20 31 36 |UB 23....EQUB 16| 00000290 0d 02 08 0b 45 51 55 42 20 31 30 0d 02 12 0a 45 |....EQUB 10....E| 000002a0 51 55 44 20 30 0d 02 1c 0a 45 51 55 44 20 30 0d |QUD 0....EQUD 0.| 000002b0 02 26 0b 45 51 55 57 20 32 33 0d 02 30 0b 45 51 |.&.EQUW 23..0.EQ| 000002c0 55 57 20 31 30 0d 02 3a 0a 45 51 55 44 20 30 0d |UW 10..:.EQUD 0.| 000002d0 02 44 0a 45 51 55 44 20 30 0d 02 4e 0b 45 51 55 |.D.EQUD 0..N.EQU| 000002e0 42 20 31 32 0d 02 58 0c 45 51 55 42 20 26 46 46 |B 12..X.EQUB &FF| 000002f0 0d 02 62 09 2e 70 62 6c 6b 0d 02 6c 07 5d 20 ed |..b..pblk..l.] .| 00000300 0d 02 76 0a d6 20 26 39 30 30 0d ff |..v.. &900..| 0000030c
25-08-89/FORUM5.m0
25-08-89/FORUM5.m1
25-08-89/FORUM5.m2
25-08-89/FORUM5.m4
25-08-89/FORUM5.m5
.