-
Experimenting with turboloadersHello, My first post, having lurked here for a while. I'm a lifelong computer nerd, Spectrum fan since childhood in the eighties, and have recently…
Well, that turned out to be remarkably ...
.main_loop:
ld c,0 ; initialize pulse counter
. ... jr nc,.exit ; bail out if BREAK pressed
... pulse
inc c ; we have found ... -
Experimenting with turboloadersHello, My first post, having lurked here for a while. I'm a lifelong computer nerd, Spectrum fan since childhood in the eighties, and have recently…
... (hl),.edge_loop_start_pilot
ld c,0 ; initialize pilot pulse counter< ... jr .exit ; bail straight out
.read_edge_loop:
inc ... to make sound
out (0xfe),a ; switch ... -
Confounded DEF FNCan anyone see why this is going wrong? I've been tinkering with it since tea time and got nowhere. [code] 2 DEF FN t$(n,t,d) =STR$ INT (n/t)…
Here's a way to get both the calculator & machine stacks included when you're calculating function memory usage in BASIC. Just put the DEF FN in 1001 and the FN call in line 1030.
[center][img]http://www.users.globalnet.co.uk/~jg27paw4/ ... -
Experimenting with turboloadersHello, My first post, having lurked here for a while. I'm a lifelong computer nerd, Spectrum fan since childhood in the eighties, and have recently…
... for pilot pulses
ld c,0 ; we need 256 pulses
out (0xfe),a ; switch border and ...
jr .exit ; bail straight out
;; reads eight ... -
Experimenting with turboloadersHello, My first post, having lurked here for a while. I'm a lifelong computer nerd, Spectrum fan since childhood in the eighties, and have recently…
... br /> [CODE] ld c,0 ; we need 256 pulses ... pilot pulse
ld c,.timing_constant_pilot+.pilot_pulse_min
... )+.timing_constant_pilot
ld c,b ; store this ... taken a leaf out of [b] ... -
Books that you just can't quit.Much as parts of the presentation,writing style infurates me, there is a book I just keep comming back to again and again. Its like the Yang to the …
... 1000 DIM R(55): DIM C(55)
1009 REM ... P=1: LET R=0: LET C=INT (RND*32)
0; PAPER 6;,,
1099 REM print out scores ... S: BEEP 0.01,0: PRINT AT R(P),C(P); PAPER ... THEN PRINT AT R(P),C(P); PAPER 7;" "
C=C+CMOVE
3029 REM ... -
Copying data between memory banks in USR0 modeI am experimenting with Funky Fungus to load the majority of its data (levels, screens, music etc.) into memory banks 1, 3, 4, 6 and (partly) 7 by sw…
... HL,49152
LOOP: OUT (C),D ;reads from source bank ... /> LD A,(HL)
OUT (C),E ;writes to destination bank ... : LET n=16
40 OUT a,n+3: LOAD "1 ... from bank 5 to bank 0 and finally decompress the data ... -
Copying data between memory banks in USR0 modeI am experimenting with Funky Fungus to load the majority of its data (levels, screens, music etc.) into memory banks 1, 3, 4, 6 and (partly) 7 by sw…
... ). You need to do an OUT to port #7FFD to select ... BC, #7ffd; LD A, byte; OUT (C), A), but that byte also ... the top 16K:
OUT 32765, [i][/i] + BIN 000 ... 1 0 000
Bit 4 ... -
Copying data between memory banks in USR0 modeI am experimenting with Funky Fungus to load the majority of its data (levels, screens, music etc.) into memory banks 1, 3, 4, 6 and (partly) 7 by sw…
... to bank 0
LD BC,32765
OUT (C),A
LD BC,32765
OUT (C),A
LD HL,55296 ... to bank 0
LD BC,32765
OUT (C),A
LD HL,16384 ;copies it to bank 0< ... -
SE Basic IV Buffy v4.1 source (WIP)I've been doing a major refactor on the SE Basic source and I'd appreciate a code review from anyone who has time to look at it. I've almost certainl…
... .endif
; THE 'ROM-0 ENTRY' SUBROUTINE
org 0x0007 ... start when coming from ROM 0
; THE 'ERROR ... /> cp 6 ; test for characters 0-5 (tokens)
ccf ; ... a ; set video mode
out (c), e ; set ROM and VRAM ... -
SE Basic IV Buffy v4.1 source (WIP)I've been doing a major refactor on the SE Basic source and I'd appreciate a code review from anyone who has time to look at it. I've almost certainl…
... ay_reg ; register port
out (c), a ; write value to port ... br /> ld b, 0 ; offset
ld c, a ; to BC ... INT p)
fst 0 ; i to mem-0
fsub ; d ... 0x98, 0x1f, 0xf5 ; mantissa (0.0577622606)
fmul ; d, pk ... -
SE Basic IV Buffy v4.1 source (WIP)I've been doing a major refactor on the SE Basic source and I'd appreciate a code review from anyone who has time to look at it. I've almost certainl…
... byte
ld (hl), c ; C to second byte
inc ... to BC
ret c ; return if out of range
... and flags
scf ; signal out of range
ret ; ... a ; insert digit
ld c, 0 ; signal non-leading zero
SE Basic IV Buffy v4.1 source (WIP)I've been doing a major refactor on the SE Basic source and I'd appreciate a code review from anyone who has time to look at it. I've almost certainl…
... stack available
out (c), a ; do paging ... 0
ld a, 0 ; FIXME (remove and reinstate above line)
out (c ... stack available
out (c), a ; do paging ... 0
ld a, 0 ; FIXME (remove and reinstate above line)
out (c ...IF EXIST?In MS-DOS scripting, there is an IF EXIST command that lets you check wether a file exists in disk or not. There are any way to check it out from BA…
... any way to check it out from BASIC (without breaking the ... Buffer format:
Entry 0
Entry 1
Entry ... long):
Bytes 0...7 - Filename (ASCII) left justified ... >=2
C = Filter
bit 0 = include system files (is ...IF EXIST?In MS-DOS scripting, there is an IF EXIST command that lets you check wether a file exists in disk or not. There are any way to check it out from BA…
... ld (23388), a
out (c), a ;set DOS environment
0, E =open action 2 ... OK, 0=error
ld b,0
ld c,a< ... ;select RAMpage 0
ld (23388), a
out (c), a
SE Basic IV Buffy v4.1 source (WIP)I've been doing a major refactor on the SE Basic source and I'd appreciate a code review from anyone who has time to look at it. I've almost certainl…
... br /> fst 0 ; store step in mem-0
fdel ... pointer
ld d, 0 ; zero statement counter
... ; enter calculator
fgt 0 ; v
fgt 2 ... get operands
out (c), a ; perform out
ret ; end ...SE Basic IV Buffy v4.1 source (WIP)I've been doing a major refactor on the SE Basic source and I'd appreciate a code review from anyone who has time to look at it. I've almost certainl…
... , 16 ; normal video
out (c), a ; set video
... ld a, 7 ; volume
out (c), a ; select it
...
ld b, 0 ; clear B
ld c, (iy + _subppc) ... , ROM 1, VRAM 0, RAM 0
out (c), a ; 48 compatibility ...SE Basic IV Buffy v4.1 source (WIP)I've been doing a major refactor on the SE Basic source and I'd appreciate a code review from anyone who has time to look at it. I've almost certainl…
... out_line:
ld e, 0 ; LD DE, 0
rl e ; E ... ; prism CPU speed select
out (c), a ; change speed
... set ch-add
ld c, 0 ; signal quotes off
< ...
each_s_5:
bit 0, c ; test quotes flag
...SE Basic IV Buffy v4.1 source (WIP)I've been doing a major refactor on the SE Basic source and I'd appreciate a code review from anyone who has time to look at it. I've almost certainl…
... ; ROM 0, VRAM 1, RAM 0
out (c), a ; ... ; ROM 0, VRAM 1, RAM 0
out (c), a ; ...SE Basic IV Buffy v4.1 source (WIP)I've been doing a major refactor on the SE Basic source and I'd appreciate a code review from anyone who has time to look at it. I've almost certainl…
... ; ROM 0, VRAM 1, RAM 7
out (c), a ; ... 00001000 ; ROM 0, VRAM 1, RAM 0
out (c), a ; ...Converting an integer arbitrary large binary number into a printable decimal formThis was asked a long ago at the comp.sys.sinclair newsgroup. At that time, I came up with a solution by extrapolating the classic algorithm of suces…
... ways I eventually worked out a right way. ... : push de
ld c,0 ;C =octal digit counter
... /> add a,c
ld c,a ;update octal ... br /> ld b,0
jr c,Next6
Loop6 ...A "generic" loader for +3(e)I've made this loader for 128k games in +3DOS. [CODE]dos_open equ 262 dos_close equ 265 dos_abandon equ 268 dos_read equ 274 dos_write equ 277 dos_s…
... /> call dos_set1346
jp nc,0
ld bc,$ ... /> call dos_open
jp nc,0
ld hl, ... error control)
jp nc,0
jr bucle ... /> ld (BANKM),a
out (c),a
ei
ret ... />
tabla:
db 0
dw 16384
dw ...Z80AsmI've been using the Z80 PC Assembler 1.2 by Peter Hanratty and found that the RST 8 instruction assembles to 200. It should be 207. Ret Z is 200 wh…
... , which is, admittedly, v1.0, but I found several bugs ... of the IN r,(C) or OUT (C),r commands will assemble ... at all.
[*]The JP C ... ,nn & JR C,d & RET C commands are ... got fed up at RET C.
I ...Getting aquainted with the IF1bisToday, fifteen days after dispatch, the IF1bis arrived at my door. In perfect order. No customs, no TVA and no handling fee involved. The arrival of …
... the year of the Sinclair(c) message is changed, just for ... /> 30 OUT 127,0: REM 1bis OFF
32 OUT 191,0: REM writprot ... OFF
34 OUT 255,0: REM 1bis ... /> 100 OUT 127,0: REM 1bis OFF
110 OUT 63,0: REM writprot ...A "generic" loader for +3(e)I've made this loader for 128k games in +3DOS. [CODE]dos_open equ 262 dos_close equ 265 dos_abandon equ 268 dos_read equ 274 dos_write equ 277 dos_s…
... configuration)
ld de,0 ; disable cache
ld hl ... /> call dos_set1346
jp nc,0
ld bc,$0501 ... /> call dos_open
jp nc,0
ld hl,table ... ),a ; BANKM is updated
out (c),a
ei
ret ...Animated attribute revealA new challenge to solve next. I would like to create an animated attribute reveal in machine code by having my 768 byte attributes held in ram whic…
... /> 5 PRINT AT 0,0;"ABCDEFGH"
10 FOR c=0 TO 7
11 FOR d=0 TO 7: PRINT AT 0 ... ,d; PAPER 7-c; OVER ... : NEXT d
12 NEXT c: PAUSE 10: GO TO 5 ... of fading the whole image out.
Thanks for the ...A "generic" loader for +3(e)I've made this loader for 128k games in +3DOS. [CODE]dos_open equ 262 dos_close equ 265 dos_abandon equ 268 dos_read equ 274 dos_write equ 277 dos_s…
... as before
ld c,0 ; RAM0 will be paged ... as before
ld c,0 ; RAM0 will be paged ... ld b,$5
ld c,0
call dos_read
... ld b,$5
ld c,0
call dos_read
... ),a ; actualizamos BANKM
out (c),a ; paginamos
ei
Tile routinesHi all, Please does anyone have any examples of tile routines in pure asm to set up maptile screens. I would like to try and understand them and ti…
... co-ordinates (for example B=0, C=0 on screen to begin with ... -right quarter of the block - C+1 - and prints that (CALL ... of the block - B+1, C+1 - and prints that (CALL ... size, as you already figured out
- add more DEFB statements ...Calculating an average?I would like to calculate the average amount I pay per month on my sons' school lunch accounts. Every month I receive a notification when the lunch m…
... /> 10 LET t=0
20 LET c=0
30 INPUT " ... br /> 50 LET c=c+1
60 PRINT AT 0,0;"Total = $";t ...
70 PRINT AT 2,0;"Entries = ";c< ... br /> 80 PRINT AT 4,0;"Mothly ... on a 48K) to break out of the INPUT and stop ...
