Powered by PmWiki

Project 'nedoPC'


Retrocomputers?


Software?


Hardware?


Profiles


External Links


PmWiki


*  


| wiki home | rus forum | eng forum |

*
// ROBBY standard functions and definitions for v2.3
// Created by Shaos and moved to PUBLIC DOMAIN

@empty=0
@eye=1
@gun=2
@front=0
@right=1
@back=2
@left=3

@t_empty=0
@t_hole=1
@t_stone=2
@t_box=3
@t_reactor=4
@t_missle=5
@t_robot=6
@t_my=7
@t_wall=10

@if(3)=((@1)?(@2):(@3))
@max(2)=(((@1)>(@2))?(@1):(@2))
@min(2)=(((@1)<(@2))?(@1):(@2))
@abs(1)=(((@1)<0)?(-(@1)):(@1))
@sqr(1)=((@1)*(@1))
@mod(2)=((@1)%(@2))
@and(2)=((@1)&&(@2))
@or(2)=((@1)||(@2))
@not(1)=(!(@1))
@neg(1)=(-(@1))

@mouse=0xFFFF
@keyboard=0xFFFE
@select=0xFFFD
@filesystem=0xFFFC

@filebuffer=0x8000

@true=1
@false=0

// LOCAL VARIABLES

@lini(1)=def local[@1];lbase=0
@lbeg(1)=lbase=lbase+@1
@lend(1)=lbase=lbase-@1
@l(1)=local[lbase-@1]
@1=@l(1)
@2=@l(2)
@3=@l(3)
@4=@l(4)
@5=@l(5)
@6=@l(6)
@7=@l(7)
@8=@l(8)
@9=@l(9)

// BYTE MANIPULATIONS

@lobyte(1)=((@1) & #00FF)
@hibyte(1)=(((@1)>>8) & #00FF)
@setlobyte(2)=@1=(@1 & #FF00)|((@2) & #00FF )
@sethibyte(2)=@1=(@1 & #00FF)|((@2) << 8)

// PLATFORM 2 CONSTANTS

@P2_TERMINFO=0x2000
@P2_SETSAY=0x2001
@P2_SETATR=0x2002
@P2_TERMCLR=0x2003

@P2_PEEK=0x2010
@P2_POKE=0x2011

Page last modified on February 02, 2025, at 09:54 pm

©2002-2025 nedoPC community ( CC BY-SA 4.0 )