mirror of
https://github.com/rigreco/UniDisk.git
synced 2024-06-04 21:29:27 +00:00
Adding Basic files.
This commit is contained in:
parent
35d87cadf8
commit
4dbb8b2fcc
7
AppleII/Integer adc 1 Byte/UNIFUN.BAS
Normal file
7
AppleII/Integer adc 1 Byte/UNIFUN.BAS
Normal 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
9
AppleII/Integer adc 2 Byte/UNIFUN2.BAS
Normal 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
4
AppleII/Memory dump/UNIPROX.BAS
Normal 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
7
AppleII/N integer adc 2 Byte/UNIFUN3.BAS
Normal 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)
|
Loading…
Reference in New Issue
Block a user