loader
org 10000
ld hl,49152
ld de,16384
ld a,0
call callbca1
ret
callbca1 di ; HL=^ADDR,DE=SIZE,A=ID; CF=OK,IX=^LAST.ADDR,ABCDEHL[HL'IY]!
ld bc,$F40E
out (c),c
ld bc,$F6D0
out (c),c
ld c,$10 ; 20131121: WE SAVE A BYTE :-)
out (c),c
ld b,$7F
out (c),c
if DEAFBCA1
else
ld bc,$F792
out (c),c
ld bc,$F650+8 ; ESCAPE: KEYBOARD LINE 8
out (c),c
endif
push hl
pop ix
push de
exx
if SAFEBCA1
ex hl,(sp)
push iy
else
pop hl
endif
ld yl,a
dec l
inc l
jr z,$+3 ; SPECIAL CASE: EXTRA LAST PAGE
inc h
exx
Edited: Put the code into (http://www.cpcwiki.eu/forum/Themes/default/images/bbc/code.gif) code tags
spambot?
Not sure, haven't compiled it yet :D
Bryce.
If anybody runs it, let me know :D
user moderated, thanks to those who reported his posts...
It's a chunk of cngsoft's CALLBCA1 tape loader.
He tries to communicate :o
Ever heart about Skynet? According to the future past it evolved from the Na.To missle shield agains russia, so of course they put it to the Ukraine. That computer system developed a virus to "free" itself. Later on in this decade this will work out. Experiments with time travelling showed that and information leaked, that did lead to the Terminator movies (albeit a lot of information got distorted).
We face the beginning! And it happens _HERE_
So SkyNet was written in Z80!!! Yet it created Terminators based around the 6502 :o
No wonder things went so wrong.
Was this not the main routine in TRON?
Or Matrix?
Or top secret Cray-II code?