mirror of
https://github.com/ganelson/inform.git
synced 2024-07-06 00:54:21 +03:00
42 lines
921 B
Plaintext
42 lines
921 B
Plaintext
packagetype _plain
|
|
packagetype _code
|
|
|
|
primitive !return val -> void
|
|
primitive !modulo val val -> val
|
|
primitive !plus val val -> val
|
|
primitive !minus val val -> val
|
|
primitive !jump lab -> void
|
|
|
|
package main _plain
|
|
package resources _plain
|
|
kind K_number int32
|
|
kind K_phrase_number____nothing function K_number -> void
|
|
package MyRoutine_B _code
|
|
symbol private misc x
|
|
symbol private misc y
|
|
symbol private label .useless
|
|
symbol private label .useful
|
|
symbol external misc K_number
|
|
local x K_number
|
|
local y K_number
|
|
code
|
|
inv !return
|
|
val K_number x
|
|
.useless
|
|
inv !return
|
|
inv !plus
|
|
val K_number x
|
|
val K_number y
|
|
inv !return
|
|
inv !minus
|
|
val K_number x
|
|
val K_number y
|
|
inv !jump
|
|
lab .useful
|
|
.useful
|
|
inv !return
|
|
inv !modulo
|
|
val K_number x
|
|
val K_number y
|
|
constant MyRoutine K_phrase_number____nothing = MyRoutine_B
|