mirror of
https://github.com/badvision/lawless-legends.git
synced 2024-10-18 17:23:45 +00:00
44 lines
1.4 KiB
Plaintext
44 lines
1.4 KiB
Plaintext
////////////////////////////////////////////////////////////////////////////////////////
|
|
// Copyright (C) 2015 The 8-Bit Bunch. Licensed under the Apache License, Version 1.1
|
|
// (the "License"); you may not use this file except in compliance with the License.
|
|
// You may obtain a copy of the License at <http://www.apache.org/licenses/LICENSE-1.1>.
|
|
// Unless required by applicable law or agreed to in writing, software distributed under
|
|
// the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF
|
|
// ANY KIND, either express or implied. See the License for the specific language
|
|
// governing permissions and limitations under the License.
|
|
////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
//
|
|
// Include all imported modules and their data/functions.
|
|
//
|
|
include "cmdsys.plh"
|
|
//
|
|
// Module data.
|
|
//
|
|
predef puti, puth, putln
|
|
export word print[] = @puti, @puth, @putln, @puts, @putc
|
|
byte valstr[] = '0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'
|
|
byte loadstr[] = "testlib loaded!"
|
|
//
|
|
// Define functions.
|
|
//
|
|
def puth(h)
|
|
putc('$')
|
|
putc(valstr[(h >> 12) & $0F])
|
|
putc(valstr[(h >> 8) & $0F])
|
|
putc(valstr[(h >> 4) & $0F])
|
|
putc(valstr[ h & $0F])
|
|
end
|
|
export def puti(i)
|
|
if i < 0; putc('-'); i = -i; fin
|
|
if i < 10
|
|
putc(i + '0')
|
|
else
|
|
puti(i / 10)
|
|
putc(i % 10 + '0')
|
|
fin
|
|
end
|
|
puts(@loadstr)
|
|
putln
|
|
done
|