Compute! Gazette 1994 March/1994-03b.d64/partram

Text File | 1994-01-01 | 902 b | 76 lines

'
'partition basic ram
'
]d0
]t "[1"="1" :]g select
]t "[1"="2" :]g select
]t "[1"="init" :]g init
]t "[1"="off" :]g off
@current
]p b 002b
]p c 002c
]p d 0037
]p e 0038
]o0 0d "basic ram: "
]c c2e8 [c
]c c2e8 [b
]o0 "-"
]c c2e8 [e
]c c2e8 [d
]o0 0d
]e
@select
]p b 002d
]p c 002e
]p d 002f
]p e 0030
]p f 0031
]p g 0032
]p a 07f6
poke49155,([a-1)*6+232
]s 07[a [b [c [d [e [f [g
][b=08
][a=e8
]t "[1"="2" :][b=70
]t "[1"="2" :][a=ee
]p c 07[a
][a+01
]p d 07[a
][a+01
]p e 07[a
][a+01
]p f 07[a
][a+01
]p g 07[a
][a+01
]p h 07[a
]s 002c [b [c [d [e [f [g [h
][b=00
][c=70
]t "[1"="2" :]p b 07f4
]t "[1"="2" :]p c 07f5
]s 0037 [b [c
]s 07f6 01
]t "[1"="2" :]s 07f6 02
]g current
@init
]p b 0037
]p c 0038
]s 07f4 [b [c
]s 7000 00 00 00
]s 07f6 01
]g select
@off
][b=08
]p c 07e8
]p d 07e9
]p e 07ea
]p f 07eb
]p g 07ec
]p h 07ed
]s 002c [b [c [d [e [f [g [h
]p a 07f4
]p b 07f5
]s 0037 [a [b
]g current