home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
WDR Computer Club Digital 1996 October
/
CLUB10_96.BIN
/
fernuni
/
medlite3.app
/
addlong.prg
next >
Wrap
Text File
|
1995-03-13
|
307b
|
32 lines
LOAD 20
LOAD B
LOAD [ADDJMP]
CALL
HALT
$15
:ADDJMP
LOAD 256
:ADDRET
LOAD 4
$256
:ADDLONG
STORE [ADDRET]
LOAD I,0
LOAD [B+I+0]
LOAD [B+I+2]
ADD
STORE [B+I+4]
LOAD 0
SHIFT C
LOAD [B+I+1]
ADD
LOAD [B+I+3]
ADD
STORE [B+I+5]
LOAD [ADDRET]
JUMP
DD
STORE [B+I+5]
LOAD [ADDRET]
JUMP