Posts: 62
Threads: 11
Joined: Jan 1970
ROM>U2 is a small routine called by the U-Code program 'U2, which prints the bytes for the U2 Eprom from agiven address.
9B2D 0B2 2
9B2E 015 U
9B2F 03E >
9B30 00D M
9B31 00F O
9B32 012 R
9B33 0B8 C=REG 2/Y
9B34 226 C=C+1 X
9B35 068 REG=C 1/Z
9B36 31C PT= 1
9B37 0F8 C=REG 3/X
9B38 1BC RCR 11
9B39 158 M=C
9B3A 330 RDROM
9B3B 04A C=0 WPT
9B3C 3C6 CSR X
9B3D 106 A=C X
9B3E 198 C=M
9B3F 23A C=C+1 M
9B40 158 M=C
9B41 330 RDROM
9B42 04A C=0 WPT
9B43 3C6 CSR X
9B44 1E6 C=C+C X
9B45 1E6 C=C+C X
9B46 370 C=CORA
9B47 106 A=C X
9B48 198 C=M
9B49 23A C=C+1 M
9B4A 158 M=C
9B4B 338 C=REG 12/b
9B4C 04A C=0 WPT
9B4D 370 C=CORA
9B4E 106 A=C X
9B4F 198 C=M
9B50 23A C=C+1 M
9B51 158 M=C
9B52 330 RDROM
9B53 04A C=0 WPT
9B54 1E6 C=C+C X
9B55 1E6 C=C+C X
9B56 370 C=CORA
9B57 3C6 CSR X
9B58 0E8 REG=C 3/X
9B59 198 C=M
9B5A 23A C=C+1 M
9B5B 03C RCR 3
9B5C 0A8 REG=C 2/Y
9B5D 3E0 RTN
01 LBL "U2"
"START ? " HEXKB SXR
SXR SXL SXL
08 LBL 03
E1 STO 00 RDN SF 12
CLA 3-D PRA CF 12
ENTER^ SXR SXR
20 LBL 02
4 ABS RDN CLA 3-D
" " X<>Y
28 LBL 01
ROM>U2 2-D " " RDN
DSE L GTO 01 PRA X<>Y
DSE 00 GTO 02 SXL SXL
GTO 03 .END.