Apple-2-SW
/
Unidisk
mirror of https://github.com/rigreco/UniDisk.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Adding Basic files.

This commit is contained in:
rigreco 2015-02-27 10:15:59 +01:00
parent 35d87cadf8
commit 4dbb8b2fcc
4 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
AppleII/Integer adc 1 Byte/UNIFUN.BAS Normal file
View File

@ -0,0 +1,7 @@
10 HOME
20 PRINT CHR$ (4);"BLOAD UNIDRIVE"
25 INPUT "N1,N2? ";N1,N2
30 POKE 10,N1
35 POKE 11,N2
40 CALL 32768
50 PRINT : PRINT "RESULT IS "; PEEK (12)

9
AppleII/Integer adc 2 Byte/UNIFUN2.BAS Normal file
View File

@ -0,0 +1,9 @@
10 HOME
20 PRINT CHR$ (4);"BLOAD UNIDRIVE2"
25 INPUT "N1,N2? ";N1,N2
30 POKE 25,(N1 - INT (N1 / 256) * 256)
32 POKE 26, INT (N1 / 256)
35 POKE 27,(N2 - INT (N2 / 256) * 256)
37 POKE 28, INT (N2 / 256)
40 CALL 32768
50 PRINT : PRINT "RESULT IS "; PEEK (29) + 256 * PEEK (30)

4
AppleII/Memory dump/UNIPROX.BAS Normal file
View File

@ -0,0 +1,4 @@
10 HOME
20 PRINT CHR$ (4);"BLOAD UNIPROX"
30 CALL 32768
40 PRINT CHR$ (4);"BSAVE UNIROM,A$2000,L$1FFF"

7
AppleII/N integer adc 2 Byte/UNIFUN3.BAS Normal file
View File

@ -0,0 +1,7 @@
10 HOME
20 PRINT CHR$ (4);"BLOAD UNIDRIVE3"
25 INPUT "N ";N1
30 POKE 25,(N1 - INT (N1 / 256) * 256)
32 POKE 26, INT (N1 / 256)
40 CALL 32768
50 PRINT : PRINT "RESULT IS "; PEEK (29) + 256 * PEEK (30)