File MCODE

Directory of image this file is from
This file as a plain text file

$1
JMP 20
$20
CLR
ATR
JMP 1Q
2A
2B
LDAi
2B
STC1
JMP 9A
LDA
2
COM
STC 1Z
#1N JMP 1Q
2C
2D
CLR
ATR
LDH
4000+2D
SAEi
34  [I
JMP p+2
JMP 1I  [I MODE
SAEi
47 [T
JMP 1N [INVAL
[####T MODE HERE
#1W JMP 1Q
2E
2F
LDAi
JMP 1X
STA
5Z
STA
5Y
STA
5X
[[
[[
[[
#1V LDAi
2F
STC 15
#1X LDHi15
SAEi
70
JMP p+2
JMP 1X
SAEi
76
JMP p+3
LDHi15
JMP 1X
SAEi
16
[    p
JMP 5B
#5A JMP 1Q
2G
2H [REPEAT?
LDH
4000+2H
SAEi
54 [Y
JMP p+2
JMP 1V
SAEi
41 [N
JMP p+2
JMP 1W
[
SAEi
46
JMP 5A
JMP 1Q
2S
2T
LDAi
2T
STC1
JMP 9A
LDA
2
COM
STC 1Z
JMP 1V
[
[
#1I NOP [I MODE
LDAi
JMP 1A
STA
5Z
STA
5Y
STA
5X
#1A KST
JMP p-1
KBD
SAEi
23
JMP p+2
JMP 1N
#5B ROL2
ADAi
1R+4000-1
STC 6
[
[
SETi7
-11
#1B XSKi7
JMP p+2
#5Z JMP 1A [GETS CHANGED-----
LDHi6
SAEi
0
JMP 5F
LDA
7
SAEi
-10
JMP p+2
#5Y JMP 1A [CHANGES
JMP 1S
JMP 1S
JMP p-3
#5F SAEi
4   [SPACE
JMP 5X+1
JMP 1S
JMP 1S
JMP 1S
#5X JMP 1A [CHANGES
SAEi
3
JMP 1C
LDAi
20
ATR
JMP 1S
JMP 1S
JMP 1S
CLR
ATR
JMP 1S
JMP 1B
#1C LDAi
20
ATR
JMP 1S
CLR
ATR
JMP 1S
[
JMP 1B
[
[
#1S LDA
0
STAi
0
[
SET i 16
#1Z -10
SET i 17
1300
XSK i17
JMP p-1
XSK i16
JMP p-5
JMP 1S+3
[
[
[
#9A LDA
0
STAi
0
[
SET i3
7774
SETi2
7777
#9C LDHi1
SAEi
67
JMP p+2
JMP 9B
ADD 2
ROL3
STA
2
XSK i3
JMP 9C
[
ROR3
STC2
JMP 9A+3
#9B LDA
2
JMP p-5
[
[
[Q+AR
#1Q LDAi
2
ADD 0
STAi
0
ADD p+133
STC 1
LDA 1
ADD p+170
STC p+35
LDAi 1
STC p+26
STC 6
SET 3
p+23
SET 4
p+26
JMP p+125
JMP p+3
JMP p+14
JMP p-3
STH 3
LDHi 4
COM
STC 6
ADD p+202
STHi 3 [LDHi 3
XSKi 6
JMP p-2
LDHi 3
JMP p-15
STH 3
SETi 4
0
LDAi
277
STC p+12
SETi 3
0
SET 5
p-7
SETi 1
0
LDAi
-40
ADMi
0
LDHi 3
JMP p+67
JMP p+303
JMP p+17
SHDi
1200
JMP p-14
JMP p+71
JMP p-10
JMP p+67
SROi
0
DIS 1
LDHi 5
JMP p+52
JMP p-17
JMP p-20
JMP p-10
KST
JMP p-40
KBD
SETi 2
p+233
SHD 2
JMP p+121
SHDi 2
JMP p-105
XSK 6
JMP p-51
SHDi 2
JMP p+20
SHDi 2
JMP p+131
SHDi 2
JMP p+21
JMP p+25
JMP p-106
JMP p-62
STC p+5
JMP p+20
JMP p+50
JMP p+47
LDAi
0
STH 4
JMP p-72
LDH 4
JMP p+11
JMP p-75
-6002
JMP p+36
JMP p+4
JMP p-101
JMP p-104
JMP p-3
LDHi 4
SHDi
7000
JMP 0
SAEi
76
XSKi 0
XSKi 0
JMP 0
ROL 1
ADD p+163
STC 2
ADD p+20
ADD 1
STC 1
ADD 5
COM
ADD 4
AZE
CLR
STC p-100
ADD p-115
DSC 2
DSCi 2
JMP 0
LDAi
-4000
ADM
4
JMP p-141
[CHARACTER PATTERNS
[KBD 0:CODE 00
4136
3641
[1:01
2101
0177
[2:02
4523
2151
[3:03
4122
2651
[4:04
2414
0477
[5:05
5172
0651
[6:06
1506
4225
[7:07
4443
6050
[8:10
5126
2651
[9:11
5122
3651
[EOL:12
KBDi
ADD p-212
[DEL:13
JMP 0
67
[SPACE:14
0000
0000
[DOUBLE DASH:15
1212
1212
[TERMINATOR:16
7777
7777
[,:17
0500
0006
[.:20
0001
0000
[?:21
4020
2055
[#:22
JMP p-102
JMP p-52
[CASE:23
JMP p-53
JMP p-211
[A:24
4477
7744
[B:25
5177
2651
[C:26
4136
2241
[D:27
4177
3641
[E:30
4577
4145
[F:31
4477
4044
[G:32
4136
2645
[H:33
1077
7710
[I:34
7741
0041
[J:35
4142
4076
[K:36
1077
4324
[L:37
0177
0301
[M:40
3077
7730
[N:41
3077
7706
[O:42
4177
7741
[P:43
4477
3044
[Q:44
4276
0376
[R:45
4477
3146
[S:46
5121
4651
[T:47
4040
4077
[U:50
0177
7701
[V:51
0176
7402
[W:52
0677
7701
[X:53
1463
6314
[Y:54
0770
7007
[Z:55
4543
6151
[META
[56
[CASE EOL
2356
1322
[57
[CASE DEL
1200
p-137
[?:60
[CASE SPACE
4020
2055
[=:61
[CASE i
1212
1212
[u:62
[CASE p
0107
0107
[,:63
[CASE -
0500
0006
[.:64
[CASE +
0001
0000
[$:65
[CASE |
4577
7745
[[:66
[CASE #
4177
0000
[_:67
[CASE CASE
0101
0101
[":70
[CASE A
LDHi 3
LDAi
[;:71
[CASE B
14
JMP p-277
[<:72
[CASE C
2410
0042
[>:73
[CASE D
4200
1024
[]:74
[CASE E
0000
7741
[*:75
[CASE F
2050
0050
[::76
[CASE G
[UNDEFINED:77
[Q+AR
[12|27|67
$2002
#1R 0303 [0
0303
0300
0000
0103 [1
0303
0300
0000
0101 [2
0303
0300
0000
0101 [3
0103
0300
0000
0101 [4
0101
0300
0000
0101 [5
0101
0100
0000
0301 [6
0101
0100
0000
0303 [7
0101
0100
0000
0303 [8
0301
0100
0000
0303 [9
0303
0100
0000
[
[
[
0 [
0
0
0
0101 [DEL IS ERROR
0101
0101
0101
0400 [SPACE
0
0
0
0301 [DOUBLE DASH
0101
0300
0
0 [
0
0
0
0303 [,
0101
0303
0
0103 [.
0103
0103
0
0101 [?
0303
0101
0
0 [
0
0
0
0 [
0
0
0
[
[
0103 [A
0
0
0
0301 [B
0101
0
0
0301 [C
0301
0
0
0301 [D
0100
0
0
0100 [E
0
0
0
0101 [F
0301
0
0
0303 [G
0100
0
0
0101 [H
0101
0
0
0101 [I
0
0
0
0103 [J
0303
0
0
0301 [K
0300
0
0
0103 [L
0101
0
0
0303 [M
0
0
0
0301 [N
0
0
0
0303 [O
0300
0
0
0103 [P
0301
0
0
0303 [Q
0103
0
0
0103 [R
0100
0
0
0101 [S
0100
0
0
0300 [T
0
0
0
0101 [U
0300
0
0
0101 [V
0103
0
0
0103 [W
0300
0
0
0301 [X
0103
0
0
0301 [Y
0303
0
0
0303 [Z
0101
0
0
[
[
[
#2A "SPEED?"3:;
#2B 0
0
0
#2C "MODE?"1:;
#2D 0
0
0
#2G "REPEAT? <Y OR N>
OR NEW SPEED? <S>"1:;
#2H 0
0
0
#2S "NEW SPEED?"3:;
#2T 0
0
0
#2E "ENTER TEXT
"E
"E
"E
"E
"E
"E:;
#2F 0
0
0
0
0
0
0
0
0
0



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search