💾 Archived View for blitter.com › apl-books › apl.maxhost.org › apl-1130.txt captured on 2022-07-16 at 17:20:45.

View Raw

More Information

-=-=-=-=-=-=-

This document describes using simh to emulate APL\1130 on the IBM 1130

uses Disk Monitor System Release 2 Version 12

ibm1130 job lisptest    generates lisptest.lst

run ibm-apl-1130.sh to run ibm 1130 with apl

telnet localhost 1130

konsole seems to work the best as a terminal emulator
use iso 8859-1 encoding with APL 2741 font

[ is mapped to APL left arrow
not all characters show up correctly but they still work
e.g. shift 2 g is delta but it isn't visible

check ibm 1130 keyboard a110.gif

)CLEAR      clears workspace
)LOAD TEST  load workspace TEST
)SAVE TEST  save workspace TEST
)ERASE PRIME 
            erase function PRIME
)VARS
)OFF        logs off
)LIB        shows all workspaces
)FNS        list functions in current workspace
)WSID       display workspace id

)47         login as norm
)100        login as guest

console keys
------------

Note that the printing computer terminal (IBM 2741) has a different
keyboard layout compared to the main IBM 1130 console
 
use number shift 3 to get numbers

uio -> 123
jkl -> 456
m,. -> 789  

. is .
, is ,
4 is +
5 is multiply
= generates ! which gives character error
;' generates []

hitting 2 twice locks shift 
using shift (hit 2 once for one character shift)

4 becomes minus
5 becomes divide
9 becomes backspace
T becomes tilde ~
P becomes asterisk * (exponent)
J becomes small circle
K becomes '
E becomes epsilon
F becomes _ (flat line)
I becomes iota
G becomes del (not visible)
L becomes quad (not visible)
R becomes rho
;' becomes ()
, becomes ;
. becomes :
- becomes ATTN (Attention)
Q becomes ?
M becomes absolute value

backspace is cumbersome, one must hit 9 to backspace then minus (ATTN)

hitting 3 twice locks number shift
using number shift (hit 3 once for one character number shift)

asdfghjkl; becomes 1234567890
P becomes and
E becomes <
U becomes >
T becomes =
Z becomes /
C becomes \
, becomes !
W becomes high minus
I becomes not equal
B becomes reversal
N becomes reversal along first axis
M becomes transpose
[ becomes natural log

regular keyboard shift (not the same as using 2 or 3)

, becomes multiply
8 becomes +
f1 becomes divide (does not work)

apl statements
--------------

~0        not zero returns 1
~1        not one  returns 0
divide 2  returns reciprocal of 2
!4        returns factorial of 4
2*3       returns 2 to the power of 3

4+4       returns 8
5x5       returns 25
16* divide 2
          returns the square root of 16 which is 4
'this is a test'
| negative 2 
          returns absolute value of negative 2 which is 2
iota 10   returns numbers 1 to 10

functions
---------

del test
[1] 'this is a test'
del           defines function test

del test
[1] [quad]    lists entire function

[1] [1.5]     inserts a line between line 1 and line 2

[4] attn enter
              deletes line 4, attn is -

del test del  delete function test
              
doesn't have
------------

)LIST
)EDIT
)HELP