mirror of
https://github.com/aap/pdp6.git
synced 2026-01-25 11:55:38 +00:00
various changes
This commit is contained in:
aap
5
code/Makefile
Normal file
5
code/Makefile
Normal file
@@ -0,0 +1,5 @@
|
||||
test.rim: main.rel tty.rel
|
||||
ld6 -r 100 -o test.rim main.rel tty.rel
|
||||
|
||||
%.rel: %.s
|
||||
as6 -o $@ $<
|
||||
1
code/a.dump
Normal file
1
code/a.dump
Normal file
@@ -0,0 +1 @@
|
||||
ｹ│÷睡<EFBFBD>ｄｹ│＝粋<EFBFBD>≠ｹ│≠枚<EFBFBD>ｅｹ│＜覆ｹ│＞ｹ│≦ｹ│≧ｹ│∞ｹ│∴ｹ│♂ｹ│♀ｹ│°ｹ│′ｹ│″ｹ│℃ｹ│￥ｹ│＄ｹ│￠ｹ│￡ｹ│％ｹ│＃ｹ│＆ｹ│＊ｹ│＠ｹ│§ｹ│☆ｹ│★ｹ│○ｹ│●ｹ│◎ｹ│◇ｹ│◆ｹ│□ｹ│■ｹ│△ｹ│▲ｹ│▽ｹ│▼ｹ│※ｹ│〒ｹ│→ｹ│←ｹ│↑ｹ│↓ｹ│〓ｹ│<EFBFBD>ｹ│<EFBFBD>ｹ│<EFBFBD>ｹ│<EFBFBD>ｹ│<EFBFBD>ｹ│<EFBFBD>ｹ│<EFBFBD>ｹ│<EFBFBD>ｹ│<EFBFBD>ｹ│<EFBFBD>ｹ│<EFBFBD>ｹ│∈ｹ│∋ｹ│⊆ｹ│⊇ｹ│⊂ｹ│⊃ｹ│∪ｹ│∩ｹ│<EFBFBD>ｹ│ａｹ│ｂｹ│ｃｹ│ｄｿｿ＜ｹ│ｅｹ凍聖│ｆ腹ｅｹ│ｇｹ蔵∋│ｈ<EFBFBD><EFBFBD>柑│ｉ漫<EFBFBD>ｹ│ｊ粋<EFBFBD>沙│ｋ枚<EFBFBD>ｅｹ│ｌ粋<EFBFBD>∩ｹ│ｍ枚<EFBFBD>ｅｹ│ｎ枚<EFBFBD>ｅｹ│ｏ漫<EFBFBD>覆÷
|
||||
1
code/a.rel
Normal file
1
code/a.rel
Normal file
@@ -0,0 +1 @@
|
||||
<EFBFBD>÷÷椛＄ｹ凍枢<EFBFBD>ｹ蔵＊泛侠<EFBFBD>○ｰ＊泛枚<EFBFBD>腹о<EFBFBD>死操ｩ<EFBFBD>┴ｩ<EFBFBD>柏←<EFBFBD>｣ｸ↑<EFBFBD>ｻ柏醇｣｢亰<EFBFBD>｢氤шｻｴ精＄<EFBFBD>ｐ園
|
||||
54
code/main.lst
Normal file
54
code/main.lst
Normal file
@@ -0,0 +1,54 @@
|
||||
|
||||
main.s
|
||||
|
||||
00001 AC0==0
|
||||
00002 AC1==1
|
||||
00003 AC2==2
|
||||
00004 PDP==17
|
||||
00005
|
||||
00006 EXTERNAL PUTC,PUTS
|
||||
00007
|
||||
000000' 254000 000102' 00008 ENTRY: JRST START
|
||||
00009
|
||||
00010 PDL: BLOCK 100
|
||||
000101' 777700 000000' 00011 SP: XWD -100,PDL-1
|
||||
00012
|
||||
00013 START:
|
||||
000102' 200740 000101' 00014 MOVE PDP,SP
|
||||
00015
|
||||
00016 ; MOVEI AC1,110
|
||||
00017 ; PUSHJ PDP,PUTC
|
||||
00018
|
||||
000103' 205100 440700 00019 MOVSI AC2,440700
|
||||
000104' 541100 000107' 00020 HRRI AC2,MSG
|
||||
00021
|
||||
000105' 260740 000000 00022 PUSHJ PDP,PUTS
|
||||
00023
|
||||
00024 ; ILDB AC1,AC2
|
||||
00025 ; SKIPN AC1
|
||||
00026 ; HALT
|
||||
00027 ; PUSHJ PDP,PUTC
|
||||
00028 ; JRST .-4
|
||||
00029
|
||||
000106' 254200 000000 00030 HALT
|
||||
00031
|
||||
000107' 443135 466336 00032 MSG: ASCIZ /Hello, world!/
|
||||
000110' 261016 767744
|
||||
000111' 663104 100000
|
||||
00033 ;yo!/
|
||||
00034
|
||||
00035 END ENTRY
|
||||
|
||||
SYMBOL TABLE
|
||||
|
||||
AC0 000000
|
||||
AC1 000001
|
||||
AC2 000002
|
||||
ENTRY 000000'
|
||||
MSG 000107'
|
||||
PDL 000001'
|
||||
PDP 000017
|
||||
PUTC 000000 EXT
|
||||
PUTS 000105' EXT
|
||||
SP 000101'
|
||||
START 000102'
|
||||
1
code/main.rel
Normal file
1
code/main.rel
Normal file
@@ -0,0 +1 @@
|
||||
<EFBFBD>÷÷ｔ腹≠÷黒о＝ｿｿ睡<EFBFBD>＝姓､〝ｬ園∴枚<EFBFBD>枚<EFBFBD>覆､劑ｦｳ椁<EFBFBD>ｾｿ､ｶ刋斡半ｻｴ梶ｼ逗<EFBFBD>噫ююｩ<EFBFBD>┴ｩ<EFBFBD>柏←<EFBFBD>｣ｸｉ泄吹ｸｱｪ刈ｵ≧ｱｪ苅逗叶ｷｮｨ∴刈ｺ焚↑<EFBFBD>ｻ柏準槍ｲ｣｢亰ｲ｣｢氤≦感ｾ<EFBFBD>＝慣ｧｽ<EFBFBD>≠〝＄<EFBFBD>ｐ″
|
||||
29
code/main.s
Normal file
29
code/main.s
Normal file
@@ -0,0 +1,29 @@
|
||||
AC0==0
|
||||
AC1==1
|
||||
AC2==2
|
||||
PDP==17
|
||||
|
||||
EXTERNAL PUTC,PUTS
|
||||
EXTERNAL GETCH,GETC
|
||||
|
||||
ENTRY: JRST START
|
||||
|
||||
PDL: BLOCK 100
|
||||
SP: XWD -100,PDL-1
|
||||
|
||||
START:
|
||||
MOVE PDP,SP
|
||||
|
||||
MOVSI AC2,440700
|
||||
HRRI AC2,MSG
|
||||
PUSHJ PDP,PUTS
|
||||
|
||||
PUSHJ PDP,GETC
|
||||
; JRST .-1
|
||||
|
||||
HALT
|
||||
|
||||
MSG: ASCIZ /Hello, world!
|
||||
yo! > /
|
||||
|
||||
END ENTRY
|
||||
0
code/ptp.out
Normal file
0
code/ptp.out
Normal file
1
code/test.rim
Normal file
1
code/test.rim
Normal file
@@ -0,0 +1 @@
|
||||
ｹ│÷腹ｂｹ│＝ｹ│≠ｹ│＜ｹ│＞ｹ│≦ｹ│≧ｹ│∞ｹ│∴ｹ│♂ｹ│♀ｹ│°ｹ│′ｹ│″ｹ│℃ｹ│￥ｹ│＄ｹ│￠ｹ│￡ｹ│％ｹ│＃ｹ│＆ｹ│＊ｹ│＠ｹ│§ｹ│☆ｹ│★ｹ│○ｹ│●ｹ│◎ｹ│◇ｹ│◆ｹ│□ｹ│■ｹ│△ｹ│▲ｹ│▽ｹ│▼ｹ│※ｹ│〒ｹ│→ｹ│←ｹ│↑ｹ│↓ｹ│〓ｹ│<EFBFBD>ｹ│<EFBFBD>ｹ│<EFBFBD>ｹ│<EFBFBD>ｹ│<EFBFBD>ｹ│<EFBFBD>ｹ│<EFBFBD>ｹ│<EFBFBD>ｹ│<EFBFBD>ｹ│<EFBFBD>ｹ│<EFBFBD>ｹ│∈ｹ│∋ｹ│⊆ｹ│⊇ｹ│⊂ｹ│⊃ｹ│∪ｹ│∩ｹ│<EFBFBD>ｹ│ａｿｿ÷ｹ│ｂ睡<EFBFBD>ａｹ│ｃ姓､〝ｹ│ｄｬ園ｈｹ│ｅ枚<EFBFBD>ｑｹ│ｆ枚<EFBFBD><EFBFBD>ｹ│ｇ覆ｹ│ｈ､劑ｦｳ椹│ｉ毎疾ｿ､ｹ│ｊｶ刋斡隼│ｋｼｻｴ梶ｼｹ│ｌ逗ｹ│ｍｹ凍聖│ｎ腹ｍｹ│ｏｹ蔵∋│ｐ漫<EFBFBD>ｹ│ｑ侠<EFBFBD>せ│ｒ峅∋│ｓ漫<EFBFBD>ｹ│ｔ枚<EFBFBD>ｍｹ│ｕ腹ｑｹ│ｖｹ蕩ｍｹ│ｗ腹ｖｹ│ｘｹ摺∋│ｙ<EFBFBD>ｨ<EFBFBD>∩ｹ│ｚ漫<EFBFBD>ｹ│<EFBFBD>枚<EFBFBD>ｖｹ│<EFBFBD>枚<EFBFBD>ｍｹ│<EFBFBD>漫<EFBFBD>覆÷
|
||||
41
code/tty.lst
Normal file
41
code/tty.lst
Normal file
@@ -0,0 +1,41 @@
|
||||
|
||||
tty.s
|
||||
|
||||
00001 TTY=120
|
||||
00002
|
||||
00003 AC0==0
|
||||
00004 AC1==1
|
||||
00005 AC2==1
|
||||
00006 PDP==17
|
||||
00007
|
||||
00008 INTERNAL PUTC,PUTS
|
||||
00009
|
||||
00010 PUTC:
|
||||
000000' 712300 000020 00011 CONSZ TTY,20 ; wait until not busy
|
||||
000001' 254000 000000' 00012 JRST .-1
|
||||
000002' 712140 000001 00013 DATAO TTY,AC1 ; transfer character
|
||||
00014 ; CAIE AC1,12 ; return unless LF
|
||||
00015 ; POPJ PDP,
|
||||
00016 ; MOVEI AC1,15 ; put CR and two DEL
|
||||
00017 ; PUSHJ PDP,PUTC
|
||||
00018 ; MOVEI AC1,177
|
||||
00019 ; PUSHJ PDP,PUTC
|
||||
00020 ; PUSHJ PDP,PUTC
|
||||
000003' 263740 000000 00021 POPJ PDP,
|
||||
00022
|
||||
00023 PUTS:
|
||||
000004' 134040 000001 00024 ILDB AC1,AC2
|
||||
000005' 336000 000001 00025 SKIPN AC1
|
||||
000006' 263740 000000 00026 POPJ PDP,
|
||||
000007' 260740 000000' 00027 PUSHJ PDP,PUTC
|
||||
000010' 254000 000004' 00028 JRST PUTS
|
||||
|
||||
SYMBOL TABLE
|
||||
|
||||
AC0 000000
|
||||
AC1 000001
|
||||
AC2 000001
|
||||
PDP 000017
|
||||
PUTC 000000' INT
|
||||
PUTS 000004' INT
|
||||
TTY 000120
|
||||
1
code/tty.rel
Normal file
1
code/tty.rel
Normal file
@@ -0,0 +1 @@
|
||||
<EFBFBD>÷÷酎￠楳ｹ凍枢<EFBFBD>ｹ蔵＊泛侠<EFBFBD><EFBFBD>ｰ＊泛枚<EFBFBD>腹┿蕩<EFBFBD>腹音摺□ｨ<EFBFBD>∩漫<EFBFBD>枚<EFBFBD>塩<EFBFBD>漫<EFBFBD><EFBFBD>逐ююｩ<EFBFBD>┴ｩ<EFBFBD>柏←<EFBFBD>｣ｸｅｪ刈ｵ糸ｪ苅逗岡<EFBFBD>ｻ柏醇｣｢亰<EFBFBD>｢氤шｻｴ精＄<EFBFBD>ｐ操
|
||||
42
code/tty.s
Normal file
42
code/tty.s
Normal file
@@ -0,0 +1,42 @@
|
||||
TTY=120
|
||||
|
||||
AC0==0
|
||||
AC1==1
|
||||
AC2==2
|
||||
PDP==17
|
||||
|
||||
INTERNAL PUTC,PUTS
|
||||
|
||||
PUTC:
|
||||
CONSZ TTY,20 ; wait until not busy
|
||||
JRST .-1
|
||||
DATAO TTY,AC1 ; transfer character
|
||||
; CAIE AC1,12 ; return unless LF
|
||||
; POPJ PDP,
|
||||
; MOVEI AC1,15 ; put CR and two DEL
|
||||
; PUSHJ PDP,PUTC
|
||||
; MOVEI AC1,177
|
||||
; PUSHJ PDP,PUTC
|
||||
; PUSHJ PDP,PUTC
|
||||
POPJ PDP,
|
||||
|
||||
PUTS:
|
||||
ILDB AC1,AC2
|
||||
SKIPN AC1
|
||||
POPJ PDP,
|
||||
PUSHJ PDP,PUTC
|
||||
JRST PUTS
|
||||
|
||||
INTERNAL GETCH,GETC
|
||||
|
||||
GETCH:
|
||||
CONSO TTY,40 ; wait for flag
|
||||
JRST .-1
|
||||
DATAI TTY,AC1 ; get character
|
||||
ANDI AC1,177
|
||||
POPJ PDP,
|
||||
|
||||
GETC:
|
||||
PUSHJ PDP,GETCH
|
||||
PUSHJ PDP,PUTC
|
||||
POPJ PDP,
|
||||
Reference in New Issue
Block a user