Changes

Jump to: navigation, search

Maplins Weather Satellite Receiver

332 bytes added, 22:54, 23 August 2010
/* Source Code */
== Source Code ==
 
--- basic code ---
 
5 MEMORY 30000:MODE 2
10 LOAD"wefax1.obj"
20 INPUT "enter horizontal resolution 1-4";resh
30 IF resh>0 AND resh<5 THEN POKE <resmod>,resh ELSE CLS:GOTO 20
40 CALL <entryoint>
50 CALL <rerun>
60 GOTO 50
 
--- asm code ---
io_port equ 0F8F0h
loop2:
di
resmod equ $+1 ;\horizontal resolution ld d,2 ;<-- MODIFIED (1..4) ;/
ld bc,io_port
smpl: ;\
6,388
edits