Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0081/allpr4.mac
There is 1 other file named allpr4.mac in the archive. Click here to see a list.
TITLE ALLPR4 - CHARACTER TABLES FOR ALLPRT
TWOSEG
RELOC 400000
SUBTTL COMMAND SCANNER DISPATCH TABLE
PAGE
;
; DEFINE LINKAGE INTO COMMAND SCANNER
;
EXTERN SCANE1,SC%BRK,SC%ERR,SC%PND,SC%PER,SC%SWH
EXTERN SC%LFT,SC%CLN
INTERN DS%ONE,DS%IGN,DS%INV,DS%BRK,DS%SLW,DS%APH
INTERN DS%PND,DS%FIN,DS%MIN,DS%RHT,DS%PER,DS%SWH
INTERN DS%LFT,DS%CLN
INTERN DESTAB
;
; DEFINE DS. SYMBOLS AND BRANCHES
;
;
DS%ONE: ;DEFINE START OF TABLE
DS%IGN: JRST SCANE1 ;IGNORE CHARACTER
DS.IGN==DS%IGN-DS%ONE
DS%INV: JRST SC%ERR ;ERROR CHARACTER
DS.INV==DS%INV-DS%ONE
DS%BRK: JRST SC%BRK ;BREAK CHARACTER
DS.BRK==DS%BRK-DS%ONE
DS%SLW: JRST SC%BRK ;BREAK CHARACTER
DS.SLW==DS%SLW-DS%ONE
DS%PND: JRST SC%PND ;POUND SIGN
DS.PND==DS%PND-DS%ONE
DS%FIN: JRST SC%BRK ;TERMINATOR
DS.FIN==DS%FIN-DS%ONE
DS%MIN:
DS%RHT: JRST SC%ERR ;SPECIAL CHARACTERS
DS.MIN==DS%MIN-DS%ONE
DS.RHT==DS%RHT-DS%ONE
DS%PER: JRST SC%PER ;PERIOD
DS.PER==DS%PER-DS%ONE
DS%SWH: JRST SC%SWH ;START SWITCH
DS.SWH==DS%SWH-DS%ONE
DS%APH: JRST SC%ERR ;ALPHA CHARACTERS
DS.APH==DS%APH-DS%ONE
DS%LFT: JRST SC%LFT ;START PPN
DS.LFT==DS%LFT-DS%ONE
DS%CLN: JRST SC%CLN ;COLON
DS.CLN==DS%CLN-DS%ONE
;
; DATA BASE FOR INPUT CHARACTERS
;
DEFINE TABLE (A)
<TT==TT+1
IFE TT-1,<A1==A
A2==0
A3==0
A4==0
A5==0
A6==0
A7==0
A10==0
A11==0>
IFE TT-2,<A2==A>
IFE TT-3,<A3==A>
IFE TT-4,<A4==A>
IFE TT-5,<A5==A>
IFE TT-6,<A6==A>
IFE TT-7,<A7==A>
IFE TT-10,<A10==A>
IFE TT-11,<A11==A
TABENT
TT==0>>
DEFINE TABENT<
BYTE (4)A1,A2,A3,A4,A5,A6,A7,A10,A11
>
TT==0
;
DEFINE SCNTAB<
TABLE(DS.IGN) ;NULL - IGNORED
TABLE(DS.INV) ;CONTROL A
TABLE(DS.INV) ;CONTROL B
TABLE(DS.INV) ;CONTROL C
TABLE(DS.INV) ;CONTROL D
TABLE(DS.INV) ;CONTROL E
TABLE(DS.INV) ;CONTROL F
TABLE(DS.BRK) ;CONTROL G - BELL
TABLE(DS.INV) ;CONTROL H
TABLE(DS.IGN) ;CONTROL I - TAB - TREAT LIKE BLANK
TABLE(DS.BRK) ;CONTROL J - LINEFEED
TABLE(DS.BRK) ;CONTROL K - VERTICAL TAB
TABLE(DS.BRK) ;CONTROL L - FORMFEED
TABLE(DS.IGN) ;CONTROL M -CARRAIGE RETURN - IGNORE
TABLE(DS.INV) ;CONTROL N
TABLE(DS.INV) ;CONTROL O
TABLE(DS.INV) ;CONTROL P
TABLE(DS.INV) ;CONTROL Q
TABLE(DS.INV) ;CONTROL R
TABLE(DS.INV) ;CONTROL S
TABLE(DS.INV) ;CONTROL T
TABLE(DS.INV) ;CONTROL U
TABLE(DS.INV) ;CONTROL V
TABLE(DS.INV) ;CONTROL W
TABLE(DS.INV) ;CONTROL X
TABLE(DS.INV) ;CONTROL Y
TABLE(DS.BRK) ;CONTROL Z - END OF FILE
TABLE(DS.SLW) ;ESCAPE
TABLE(DS.INV) ;034
TABLE(DS.INV) ;035
TABLE(DS.INV) ;036
TABLE(DS.INV) ;037
TABLE(DS.IGN) ;SPACE -IGNORED
TABLE(DS.INV) ;!
TABLE(DS.INV) ;"
TABLE(DS.PND) ;#
TABLE(DS.INV) ;$
TABLE(DS.INV) ;%
TABLE(DS.INV) ;&
TABLE(DS.INV) ;'
TABLE(DS.INV) ;(
TABLE(DS.INV) ;)
TABLE(DS.INV) ;*
TABLE(DS.FIN) ;+
TABLE(DS.FIN) ;,
TABLE(DS.MIN) ;-
TABLE(DS.PER) ;.
TABLE(DS.SWH) ;SLASH
TABLE(DS.APH) ;0
TABLE(DS.APH) ;1
TABLE(DS.APH) ;2
TABLE(DS.APH) ;3
TABLE(DS.APH) ;4
TABLE(DS.APH) ;5
TABLE(DS.APH) ;6
TABLE(DS.APH) ;7
TABLE(DS.APH) ;8 - PPN IS OCTAL
TABLE(DS.APH) ;9
TABLE(DS.CLN) ;:
TABLE(DS.INV) ;;
TABLE(DS.INV) ;LESSTHAN
TABLE(DS.FIN) ;=
TABLE(DS.INV) ;GREATERTHAN
TABLE(DS.INV) ;?
TABLE(DS.INV) ;@
TABLE(DS.APH) ;A
TABLE(DS.APH) ;B
TABLE(DS.APH) ;C
TABLE(DS.APH) ;D
TABLE(DS.APH) ;E
TABLE(DS.APH) ;F
TABLE(DS.APH) ;G
TABLE(DS.APH) ;H
TABLE(DS.APH) ;I
TABLE(DS.APH) ;J
TABLE(DS.APH) ;K
TABLE(DS.APH) ;L
TABLE(DS.APH) ;M
TABLE(DS.APH) ;N
TABLE(DS.APH) ;O
TABLE(DS.APH) ;P
TABLE(DS.APH) ;Q
TABLE(DS.APH) ;R
TABLE(DS.APH) ;S
TABLE(DS.APH) ;T
TABLE(DS.APH) ;U
TABLE(DS.APH) ;V
TABLE(DS.APH) ;W
TABLE(DS.APH) ;X
TABLE(DS.APH) ;Y
TABLE(DS.APH) ;Z
TABLE(DS.LFT) ;[
TABLE(DS.INV) ;\
TABLE(DS.RHT) ;]
TABLE(DS.INV) ;^
TABLE(DS.FIN) ;_
TABLE(DS.INV) ;ACCENT GRAVE
TABLE(DS.APH) ;A
TABLE(DS.APH) ;B
TABLE(DS.APH) ;C
TABLE(DS.APH) ;D
TABLE(DS.APH) ;E
TABLE(DS.APH) ;F
TABLE(DS.APH) ;G
TABLE(DS.APH) ;H
TABLE(DS.APH) ;I
TABLE(DS.APH) ;J
TABLE(DS.APH) ;K
TABLE(DS.APH) ;L
TABLE(DS.APH) ;M
TABLE(DS.APH) ;N
TABLE(DS.APH) ;O
TABLE(DS.APH) ;P
TABLE(DS.APH) ;Q
TABLE(DS.APH) ;R
TABLE(DS.APH) ;S
TABLE(DS.APH) ;T
TABLE(DS.APH) ;U
TABLE(DS.APH) ;V
TABLE(DS.APH) ;W
TABLE(DS.APH) ;X
TABLE(DS.APH) ;Y
TABLE(DS.APH) ;Z
TABLE(DS.INV) ;
TABLE(DS.SLW) ;OLD ESCAPE
TABLE(DS.SLW) ;OLD ESCAPE
TABLE(DS.INV) ;
TABLE(DS.INV) ;RUBOUT/DELETE
>
DESTAB: SCNTAB ;DEFINE SCANNER TABLE
TABENT ;FINISH OFF TABLE
SUBTTL COMPLETE EBCDIC ASCII SIXBIT CONVERSION TABLE
PAGE
;
; IDX,EBC,SIX,ASC
;
DEFINE EBCTAB<
EBCMAC(000,000,074,000) ; NUL NUL
EBCMAC(001,001,074,001) ; SOH SOH
EBCMAC(002,002,074,002) ; STX STX
EBCMAC(003,003,074,003) ; ETX ETX
EBCMAC(004,067,074,134) ; EOT \
EBCMAC(005,055,074,011) ; ENQ HT
EBCMAC(006,056,074,134) ; ACK \
EBCMAC(007,057,074,177) ; BEL DEL
;
EBCMAC(010,026,074,134) ; BS \
EBCMAC(011,005,074,134) ; HT \
EBCMAC(012,045,074,134) ; LF \
EBCMAC(013,013,074,013) ; VT VT
EBCMAC(014,014,074,014) ; FF FF
EBCMAC(015,015,074,015) ; CR CR
EBCMAC(016,016,074,016) ; SO SO
EBCMAC(017,017,074,017) ; SI SI
;
EBCMAC(020,020,074,020) ; DLE DLE
EBCMAC(021,021,074,021) ; DC1 DC1
EBCMAC(022,022,074,022) ; DC2 DC2
EBCMAC(023,023,074,023) ; DC3 DC3
EBCMAC(024,074,074,134) ; DC4 \
EBCMAC(025,075,074,134) ; NAK \
EBCMAC(026,062,074,010) ; SYN BS
EBCMAC(027,046,074,134) ; ETB \
;
EBCMAC(030,030,074,030) ; CAN CAN
EBCMAC(031,031,074,031) ; EM EM
EBCMAC(032,077,074,134) ; SUB \
EBCMAC(033,047,074,134) ; ESC \
EBCMAC(034,034,074,034) ; FS FS
EBCMAC(035,035,074,035) ; GS GS
EBCMAC(036,036,074,036) ; RS RS
EBCMAC(037,037,074,037) ; US US
;
EBCMAC(040,100,074,134) ; SPC \
EBCMAC(041,117,074,134) ; ! \
EBCMAC(042,177,074,134) ; " \
EBCMAC(043,173,074,134) ; # \
EBCMAC(044,133,074,134) ; $ \
EBCMAC(045,154,074,012) ; % LF
EBCMAC(046,120,074,027) ; & ETB
EBCMAC(047,175,074,033) ; ' ESC
;
EBCMAC(050,115,074,134) ; ( \
EBCMAC(051,135,074,134) ; ) \
EBCMAC(052,134,074,134) ; * \
EBCMAC(053,116,074,134) ; + \
EBCMAC(054,153,074,134) ; , \
EBCMAC(055,140,074,005) ; - ENQ
EBCMAC(056,113,074,006) ; . ACK
EBCMAC(057,141,074,007) ; / BEL
;
EBCMAC(060,360,074,134) ; 0 \
EBCMAC(061,361,074,134) ; 1 \
EBCMAC(062,362,074,026) ; 2 SYN
EBCMAC(063,363,074,134) ; 3 \
EBCMAC(064,364,074,134) ; 4 \
EBCMAC(065,365,074,134) ; 5 \
EBCMAC(066,366,074,134) ; 6 \
EBCMAC(067,367,074,004) ; 7 EOT
;
EBCMAC(070,370,074,134) ; 8 \
EBCMAC(071,371,074,134) ; 9 \
EBCMAC(072,172,074,134) ; : \
EBCMAC(073,136,074,134) ; ; \
EBCMAC(074,114,074,024) ; < DC4
EBCMAC(075,176,074,025) ; = NAK
EBCMAC(076,156,074,134) ; > \
EBCMAC(077,157,074,032) ; ? SUB
;
EBCMAC(100,174,000,040) ; @ SPC
EBCMAC(101,301,074,134) ; A \
EBCMAC(102,302,074,134) ; B \
EBCMAC(103,303,074,134) ; C \
EBCMAC(104,304,074,134) ; D \
EBCMAC(105,305,074,134) ; E \
EBCMAC(106,306,074,134) ; F \
EBCMAC(107,307,074,134) ; G \
;
EBCMAC(110,310,074,134) ; H \
EBCMAC(111,311,074,134) ; I \
EBCMAC(112,321,073,133) ; J [
EBCMAC(113,322,016,056) ; K .
EBCMAC(114,323,034,074) ; L <
EBCMAC(115,324,010,050) ; M (
EBCMAC(116,325,013,053) ; N +
EBCMAC(117,326,001,041) ; O !
;
EBCMAC(120,327,006,046) ; P &
EBCMAC(121,330,074,134) ; Q \
EBCMAC(122,331,074,134) ; R \
EBCMAC(123,342,074,134) ; S \
EBCMAC(124,343,074,134) ; T \
EBCMAC(125,344,074,134) ; U \
EBCMAC(126,345,074,134) ; V \
EBCMAC(127,346,074,134) ; W \
;
EBCMAC(130,347,074,134) ; X \
EBCMAC(131,350,074,134) ; Y \
EBCMAC(132,351,075,135) ; Z ]
EBCMAC(133,112,004,044) ; [ $
EBCMAC(134,340,012,052) ; \ *
EBCMAC(135,132,011,051) ; ] )
EBCMAC(136,137,033,073) ; ^ ;
EBCMAC(137,155,076,136) ; _ ^
;
EBCMAC(140,171,015,055) ; ` -
EBCMAC(141,201,017,057) ; A /
EBCMAC(142,202,074,134) ; B \
EBCMAC(143,203,074,134) ; C \
EBCMAC(144,204,074,134) ; D \
EBCMAC(145,205,074,134) ; E \
EBCMAC(146,206,074,134) ; F \
EBCMAC(147,207,074,134) ; G \
;
EBCMAC(150,210,074,134) ; H \
EBCMAC(151,211,074,134) ; I \
EBCMAC(152,221,074,174) ; J ???
EBCMAC(153,222,014,054) ; K ,
EBCMAC(154,223,005,045) ; L %
EBCMAC(155,224,077,137) ; M _
EBCMAC(156,225,036,076) ; N >
EBCMAC(157,226,037,077) ; O ?
;
EBCMAC(160,227,074,134) ; P \
EBCMAC(161,230,074,134) ; Q \
EBCMAC(162,231,074,134) ; R \
EBCMAC(163,242,074,134) ; S \
EBCMAC(164,243,074,134) ; T \
EBCMAC(165,244,074,134) ; U \
EBCMAC(166,245,074,134) ; V \
EBCMAC(167,246,074,134) ; W \
;
EBCMAC(170,247,074,134) ; X \
EBCMAC(171,250,074,140) ; Y ???
EBCMAC(172,251,032,072) ; Z :
EBCMAC(173,300,003,043) ; ??? #
EBCMAC(174,152,040,100) ; ??? @
EBCMAC(175,320,007,047) ; ??? '
EBCMAC(176,241,035,075) ; ??? =
EBCMAC(177,007,002,042) ; DEL "
;
EBCMAC(200,000,074,134) ; \
EBCMAC(201,000,001,141) ; A
EBCMAC(202,000,002,142) ; B
EBCMAC(203,000,003,143) ; C
EBCMAC(204,000,004,144) ; D
EBCMAC(205,000,005,145) ; E
EBCMAC(206,000,006,146) ; F
EBCMAC(207,000,007,147) ; G
;
EBCMAC(210,000,010,150) ; H
EBCMAC(211,000,011,151) ; I
EBCMAC(212,000,074,134) ; \
EBCMAC(213,000,074,134) ; \
EBCMAC(214,000,074,134) ; \
EBCMAC(215,000,074,134) ; \
EBCMAC(216,000,074,134) ; \
EBCMAC(217,000,074,134) ; \
;
EBCMAC(220,000,074,134) ; \
EBCMAC(221,000,012,152) ; J
EBCMAC(222,000,013,153) ; K
EBCMAC(223,000,014,154) ; L
EBCMAC(224,000,015,155) ; M
EBCMAC(225,000,016,156) ; N
EBCMAC(226,000,017,157) ; O
EBCMAC(227,000,020,160) ; P
;
EBCMAC(230,000,021,161) ; Q
EBCMAC(231,000,022,162) ; R
EBCMAC(232,000,074,134) ; \
EBCMAC(233,000,074,134) ; \
EBCMAC(234,000,074,134) ; \
EBCMAC(235,000,074,134) ; \
EBCMAC(236,000,074,134) ; \
EBCMAC(237,000,074,134) ; \
;
EBCMAC(240,000,074,134) ; \
EBCMAC(241,000,074,176) ; ???
EBCMAC(242,000,023,163) ; S
EBCMAC(243,000,024,164) ; T
EBCMAC(244,000,025,165) ; U
EBCMAC(245,000,026,166) ; V
EBCMAC(246,000,027,167) ; W
EBCMAC(247,000,030,170) ; S
;
EBCMAC(250,000,031,171) ; Y
EBCMAC(251,000,032,172) ; Z
EBCMAC(252,000,074,134) ; \
EBCMAC(253,000,074,134) ; \
EBCMAC(254,000,074,134) ; \
EBCMAC(255,000,074,134) ; \
EBCMAC(256,000,074,134) ; \
EBCMAC(257,000,074,134) ; \
;
EBCMAC(260,000,074,134) ; \
EBCMAC(261,000,074,134) ; \
EBCMAC(262,000,074,134) ; \
EBCMAC(263,000,074,134) ; \
EBCMAC(264,000,074,134) ; \
EBCMAC(265,000,074,134) ; \
EBCMAC(266,000,074,134) ; \
EBCMAC(267,000,074,134) ; \
;
EBCMAC(270,000,074,134) ; \
EBCMAC(271,000,074,134) ; \
EBCMAC(272,000,074,134) ; \
EBCMAC(273,000,074,134) ; \
EBCMAC(274,000,074,134) ; \
EBCMAC(275,000,074,134) ; \
EBCMAC(276,000,074,134) ; \
EBCMAC(277,000,074,134) ; \
;
EBCMAC(300,000,074,173) ; ???
EBCMAC(301,000,041,101) ; A
EBCMAC(302,000,042,102) ; B
EBCMAC(303,000,043,103) ; C
EBCMAC(304,000,044,104) ; D
EBCMAC(305,000,045,105) ; E
EBCMAC(306,000,046,106) ; F
EBCMAC(307,000,047,107) ; G
;
EBCMAC(310,000,050,110) ; H
EBCMAC(311,000,051,111) ; I
EBCMAC(312,000,074,134) ; \
EBCMAC(313,000,074,134) ; \
EBCMAC(314,000,074,134) ; \
EBCMAC(315,000,074,134) ; \
EBCMAC(316,000,074,134) ; \
EBCMAC(317,000,074,134) ; \
;
EBCMAC(320,000,074,175) ; ???
EBCMAC(321,000,052,112) ; J
EBCMAC(322,000,053,113) ; K
EBCMAC(323,000,054,114) ; L
EBCMAC(324,000,055,115) ; M
EBCMAC(325,000,056,116) ; N
EBCMAC(326,000,057,117) ; O
EBCMAC(327,000,060,120) ; P
;
EBCMAC(330,000,061,121) ; Q
EBCMAC(331,000,062,122) ; R
EBCMAC(332,000,074,134) ; \
EBCMAC(333,000,074,134) ; \
EBCMAC(334,000,074,134) ; \
EBCMAC(335,000,074,134) ; \
EBCMAC(336,000,074,134) ; \
EBCMAC(337,000,074,134) ; \
;
EBCMAC(340,000,074,134) ; \
EBCMAC(341,000,074,134) ; \
EBCMAC(342,000,063,123) ; S
EBCMAC(343,000,064,124) ; T
EBCMAC(344,000,065,125) ; U
EBCMAC(345,000,066,126) ; V
EBCMAC(346,000,067,127) ; W
EBCMAC(347,000,070,130) ; X
;
EBCMAC(350,000,071,131) ; Y
EBCMAC(351,000,072,132) ; Z
EBCMAC(352,000,074,134) ; \
EBCMAC(353,000,074,134) ; \
EBCMAC(354,000,074,134) ; \
EBCMAC(355,000,074,134) ; \
EBCMAC(356,000,074,134) ; \
EBCMAC(357,000,074,134) ; \
;
EBCMAC(360,000,020,060) ; 0
EBCMAC(361,000,021,061) ; 1
EBCMAC(362,000,022,062) ; 2
EBCMAC(363,000,023,063) ; 3
EBCMAC(364,000,024,064) ; 4
EBCMAC(365,000,025,065) ; 5
EBCMAC(366,000,026,066) ; 6
EBCMAC(367,000,027,067) ; 7
;
EBCMAC(370,000,030,070) ; 8
EBCMAC(371,000,031,071) ; 9
EBCMAC(372,000,074,134) ; \
EBCMAC(373,000,074,134) ; \
EBCMAC(374,000,074,134) ; \
EBCMAC(375,000,074,134) ; \
EBCMAC(376,000,074,134) ; \
EBCMAC(377,000,074,134) ; \
>
SUBTTL COMPRESSED EBCDIC TO ASCII CONVERSION TABLE
PAGE
;
; DEFINE TABLE VIA MACROS
;
DEFINE EBCMAC(A1,A2,A3,A4)<
TT=TT+1
IFE TT-1,<A5==A4
A6==0
A7==0
A10==0
A11==0>
IFE TT-2,<A6==A4>
IFE TT-3,<A7==A4>
IFE TT-4,<A10==A4>
IFE TT-5,<A11==A4
TABMAC
TT==0>>
DEFINE TABMAC<
BYTE (7)A5,A6,A7,A10,A11>
TT==0
;
; DEFINE LINKAGE INTO ALLPRT
;
INTERN EB%%AS
;
EB%%AS: EBCTAB
TABMAC ;FINISH TABLE
SUBTTL COMPRESSED ASCII/SIXBIT TO EBCDIC CONVERSION TABLE
PAGE
;
; DEFINE TABLE VIA MACROS
;
DEFINE EBCMAC(A1,A2,A3,A4)<
IFL A1-200,<
TT==TT+1
IFE TT-1,<A5==A2
A6==0
A7==0
A10==0>
IFE TT-2,<A6==A2>
IFE TT-3,<A7==A2>
IFE TT-4,<A10==A2
TABMAC
TT==0>>>
DEFINE TABMAC,<
BYTE (8)A5,A6,A7,A10>
TT==0
;
; DEFINE LINKAGE INTO ALLPRT
;
INTERN AS%%EB,SI%%EB
;
AS%%EB: EBCTAB
SI%%EB==AS%%EB+10
END