1 / RXCOPY FOR OS/8 V3D AND OS/78 V1A
3 / THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
4 / SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION
5 / OF THE ABOVE SOPYRIGHT NOTICE. THIS SOFTWARE, OR ANY THEREOF,
6 / MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER
7 / PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO
8 / THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE SOFTWARE
9 / SHALL AT ALL TIMES REMAIN IN DEC.
11 / THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
12 / NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
13 / EQUIPMENT CORPORATION.
15 / DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
16 / SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
20 / VERSION V4A M.H. MAY 20, 1977
23 / START ADDRESS 16000; JSW 7403
25 / THIS PROGRAM PERFORMS COPY, READ, AND COMPARE OPERATIONS ON
26 / RX FLOPPY DISKS ON A TRACK BY TRACK BASIS. THE COMMAND FORMAT
27 / IS: DEV:<DEV:/OPTION WHERE OPTIONS ARE P, N, M, R, OR V.
28 /P PAUSE BEFORE AND AFTER ACCESSING DISK
29 /M MATCH WITH NO IMPLIED COPY
30 /N COPY WITH NO IMPLIED MATCH
31 /R READ OUTPUT DEVICE WITH NO IMPLIED MATCH OR COPY
32 /V PRINT VERSION NUMBER
33 /C (NOT DOCUMENTED) COPY
34 / IF NO OPTIONS ARE EXPLICITYLY DECLARED, COPY AND MATCH ARE ASSUMED.
35 / IF THE R OPTION IS THE ONLY DISK ACCESSING OPTION SELECTED, THE
36 / FOLLOWING FORMATS WORK: DEV:/R DEV:</R <DEV:/R.
39 MAGIC=7623 /LOCATION IN RX SYSTEM HANDLER WITH A 7004 IF
40 /UNIT 0 OR A 7024 IF UNIT 1. THIS IS ONLY
41 /ACCESSED IF THE USER USES SYS: IN THE COMMAND
42 /STRING AND SYS: IS KNOWN TO BE AN RX!!
43 OPT1=7643 /1ST COMMAND DECODER OPTION WORD
44 OPT2=7644 /2ND COMMAND DECODER OPTION WORD
45 BUFF=2000 /INPUT BUFFER FOR TTY MSGS
46 DEVTYP=25 /DEVICE CODE FOR FLOPPY DISKS
47 BSIZE=6400 /BUFFER SIZE IN OCTAL WORDS
48 BSTART=20 /BUFFER START
49 BHALF=BSIZE%2 /HALF OF BSIZE
50 USR=200 /ENTRY POINT OF USR
51 NOMAT=2000 /NO MATCH OPTION MASK
52 COPY=1000 /COPY OPTION MASK
53 MMATCH=3777 /CMA OF MATCH OPTION MASK
54 MCOPY=6777 /CMA OF COPY OPTION MASK
55 MATCH=4000 /MATCH OPTION MASK
56 READ=0100 /READ OPTION MASK
57 VERSION=0004 /VERSION OPTION MASK
58 PAUS=0400 /PAUSE OPTION MASK
60 / RXCOPY READ-WRITE SUBROUTINE
64 / READ-WRITE SUBROUTINE TO HANDLE FLOPPY DISK IN 8-BIT MODE
65 / ROUTINE LIVES IN FIELD 0 TO BE CALLED FROM FIELD 10
69 / CIF 0 /ASSUMED CDF 10, CALLED FROM FIELD 10
70 / TAD TRACK /TRACK # INTO AC
72 / BITS /4000 IF FIELD 10 BUFFER, 2 IF READ, 20 IF UNIT 1
73 / OK RETURN /CDF AND CIF TO 10
74 / ERROR /SECTOR # IN AC
76 / READS OR WRITES A TRACK AT A TIME. TWO BUFFERS LIVE IN 20-6417
77 / EACH OF FIELD 0 AND 10
79 / USES AUTO-INCREMENT REGISTER 10 OF FIELD 0
82 / AN ALTERNATE ENTRY OF CONTIN (JMP NOT JMS) CAUSES THE
83 / SUBROUTINE TO CONTINUE WORKING ON THE SAME TRACK ON WHICH THE
86 / THREE RETRIES ARE DONE ON A SECTOR BEFORE AN ERROR IS DECLARED.
96 / USE PART OF PAGE AT 6400 TO SPREAD OUT WRITE LOOP
97 / FOR A LITTLE EXTRA SAFETY ON MAKING INTERLEAVE TIMING
99 WRIT1, TAD (-10 /8 TIMES THRU 16 BYTE > 128
101 ST4, TAD I X10 /FETCH A BYTE
102 STR /SKIP IF READY TO TRANSFER
103 JMP .-1 /NO (SHOULDN'T HIT THIS ON VT78)
104 XDR /MOVE BYTE TO SILO
105 CLA /CLEAR THE MUMBLE AC
181 ISZ WRTCNT /THRU WITH SILO?
183 JMP WRIT2 /REST OF LOOP ON OTHER PAGE
185 WRTCNT, 0 /CONTROL COUNT FOR FILL SILO LOOP
190 / READ-WRITE ENTRY POINT
194 DCA TRCKNO /ARRIVES WITH TRACK # IN AC
195 TAD I RW /DATA FIELD 10, FETCH CONTROL BITS
196 TAD L7100 /FLOPPY CONTROLLER IGNORES TOP 4 BITS; 100
197 / /BIT IS 8 BIT MODE; CONTROL FOR UNIT, R/W, IN PLACE
198 DCA FN /BUFFER BIT (COMPLEMENTED) ALSO STORED IN FN
199 TAD (17 /SET UP AUTO-INCR REG.
201 TAD (-32 /26 DECIMAL SECTORS PER TRACK
203 ISZ RW /POINT TO OK EXIT
204 TAD FN /IF FIELD ZERO BUFFER, NEED TO CDF
205 SPA /SKIP ON FIELD 10 BUFFER, ALREADY SET!
207 RTR /READ/WRITE BIT TO LINK
208 SZL CLA /SKIP IF WRITE
209 JMP READLP /GO TO READ
213 WRITLP, CLL CLA CMA RTL /LITERAL -3 FOR RETRY COUNT
215 WRTRY, TAD FN /RETRY ERROR HERE THREE TIMES
217 JMP WRIT1 /OTHER PAGE TO MOVE DATA TO SILO
218 WRIT2, JMS DOIO /RETURN FROM OTHER PAGE TO ACCESS I/O
226 READLP, CLL CLA CMA RTL /LITERAL -3 FOR RETRY COUNT
228 RDTRY, JMS DOIO /COME HERE TO RETRY I/O
231 TAD (-40 /32 PASSES THRU 4 BYTES MOVED
255 / DO READ OR WRITE I/O FUNCTION
258 TAD FN /SILO FUNCTION, CONVERTED TO READ-WRITE
259 TAD L7004 /BY LITERAL 4 (TOP FOUR BITS IRREL)
261 JMS GETSEC /FETCH SECTOR TO AC
271 TAD L7530 /UNIT 1, 8-BIT NO-OP (TOP 4 BITS IGNORED)
275 / LOAD COMMAND REGISTER
284 ISZ RETRY /TRIED THREE TIMES YET
285 JMP KEEPON /NO, KEEP ON TRYING
286 JMS GETSEC /RETURN SECTOR IN AC
287 ISZ RW /ON ERROR, RETURN ONE FURTHER DOWN
288 JMP XT1 /EXIT TO CALLER WITH SECTOR # IN AC
290 / ENTRY TO CONTINUE AFTER ERROR
292 CONTIN, STA /BACK UP EXIT TO GOOD EXIT
295 TAD FN /SET DATA FIELD TO 0 IF NECESSARY
296 SPA CLA /ALREADY CDF TO 10, SKIP IF OK
297 CDF 0 /NO, SO SET TO 0
298 JMP I LDCMD /PRETEND OPERATION OK, SO RETURN THRU LDCMD!
300 KEEPON, FLINIT /DO A RECAL TO SHAKE IT UP
301 TAD FN /RETRYING READ OR WRITE
303 SZL CLA /SKIP ON WRITE
304 JMP RDTRY /RETRY A READ
305 TAD (-200 /BACK UP AUTO INCR TO REFILL SILO FOR WRITE
306 TAD X10 /SINCE THE FLINIT CLEARED SILO
308 JMP WRTRY /SO GO RETRY WRITE
310 / CONVERT COUNT TO SECTOR
313 TAD SECTOR /CONVERT -32 TO -1 TO INTERLEAVED SECTOR
315 L7100, CLL /100 BIT SETS 8-BIT MODE, AS LITERAL
316 L7530, SPA SZL /SZL JUST TO MAKE CORRECT LITERAL, NO-OP WAIT
325 TRCKNO, 0 /TRACK NUMBER, INVARIANT THRU CALL
326 SECTOR, 0 /COUNTS -32 UP TO 0; 26 DECIMAL SECTORS PER TRACK
327 FN, 0 /FUNCTION BITS: ALWAYS 100 FOR 8BIT MODE
329 / /2 IF READ OPERATION (2 IS SILO FETCH; 0 SILO FILL)
330 / /MINUS WORD IF BUFFER IN FIELD 0, PLUS IF FIELD 10
331 / /CONTROLLER IGNORES TOP 4 BITS OF WORD
332 RETRY, 0 /RETRY COUNTER -3 TO 0
336 / ***** BEGIN ONCE ONLY CODE *****
339 / ENTER HERE AND GET USER INPUTS
341 START, CLA!SKP /NORMAL ENTRY (MUST CALL DECODER)
342 CHAIN, JMP NODEC /CHAIN ENTRY
345 5200 /DEFAULT INPUT EXT.(SPECIAL MODE)
346 0 /PRESERVE TENTATIVE FILES
348 / LOAD CONSOLE TTY HANDLER
350 NODEC, JMS I (USR /LOAD THE KL8E HANDLER
354 JMP ERRUSR /PRINT USER ERROR
355 TAD TTYEP /MOVE ENTRY POINT FROM THIS PAGE
358 / LOAD OUTPUT DEVICE IF SPECIFIED
360 JMS CTRLC /CHECK FOR CONTROL C TYPE-IN
361 TAD I (7600 /GET OUTPUT DEV
364 TAD I (7605 /GET INPUT DEVICE
367 TAD OUTDEV /IF NO OUTPUT DEVICE
368 SZA /IS NAMED MOVE INPUT
369 JMP LOC10 /TO OUTPUT DEVICE
372 DCA INDEV /ZERO INPUT DEVICE
374 / VALIDATE OUTPUT DEVICES AND FILES
376 LOC10, JMS CTRLC /CHECK FOR CONTROL C
377 TAD (7601 /MAKE SURE THAT THERE ARE NO OUTPUT FILES
378 DCA TMP1 /OR OTHER OUTPUT DEVICES
381 LOC1, TAD I TMP1 /GET DECODER ENTRY
383 JMP ERR2 /NO -- ERROR
384 ISZ TMP1 /INCREMENT POINTER
385 ISZ TMP2 /YES -- DONE WITH OUTPUT ENTRIES?
386 JMP LOC1 /NO -- PROCEED
389 JMS CTRLC /CHECK FOR CONTROL C
390 TAD I (7605 /WAS THERE ANY INPUT SPECIFICATION?
393 TAD (7606 /YES -- MAKE SURE THAT THERE ARE NO INPUT FILES
394 DCA TMP1 /OR OTHER INPUT DEVICES
397 LOC2, TAD I TMP1 /GET DECODER ENTRY
399 JMP ERR2 /NO -- ERROR
400 ISZ TMP1 /INCREMENT POINTER
401 ISZ TMP2 /YES -- DONE WITH INPUT ENTRIES?
402 JMP LOC2 /NO -- PROCEED
405 LOC3A, JMS I (USR /LOAD RXA0 AND RXA1 SO UNIT NUMBERS CAN
415 JMP LOC3 /GO TO NEXT PAGE
417 OUTDEV, 0 /OUTPUT DEVICE NUMBER
418 INDEV, 0 /INPUT DEVICE NUMBER
422 ERR2, TAD (MSG2 /ILLEGAL SPECIFICATION
423 PERR, JMS TYPE /PRINT ERROR MESSAGE
426 ERRUSR, JMS I (USR /PRINT USER ERROR
431 / SUBROUTINE UNIT -- FIND OUT WHAT THE UNIT NUMBER IS
432 / ON ENTRY AC HAS DEVICE NUMBER
433 / ON EXIT AC HAS 0 IFF UNIT 0 OR 0020 IFF UNIT 1
436 DCA TMP1 /SAVE DEVICE NUMBER
438 TAD TMP1 /IS DEVICE SYS:?(I.E. IS DEV NUM=1?)
441 UNITSY, CDF 0 /YES -- FIND OUT WHICH UNIT IS SYS:
442 TAD I (MAGIC /GUT HOOK RX SYSTEM HANDLER********
444 AND (0020 /IF AC IS 0 ITS UNIT 0
446 UNITNS, TAD TMP1 /GET INFO ON DEVICE NUMBER
450 JMP ERR3 /SAY DEVICE IS NOT RX IF ERROR HERE
451 TAD UNITIN /IS DEV SYS: IN DISGUISE?
454 JMP UNITSY /YES -- GO DIG OUT THE UNIT NUM.
455 TAD UNITIN /NO -- DOES EP MATCH RXA0'S
460 TAD UNITIN /NO -- CHECK RXA1
464 JMP ERR3 /NO -- ERROR
473 / CHECK THAT REQ'D DEVICES WERE SPECIFIED FOR OPTIONS SELECTED
475 LOC3, JMS OUTD /CHECK THAT OUTPUT DEVICE WAS GIVEN
476 TAD I (OPT2 /IF COPY OR MATCH, CHECK FOR INPUT DEV
480 TAD I (OPT2 /IF NOT READ OPTION, CHECK FOR INPUT DEV
485 / PRINT VERSION IF SELECTED
487 VERS, JMS CTRLC /CHECK FOR CONTROL C
488 TAD I (OPT2 /SHOULD VERSION NUMBER BE PRINTED?
491 JMP TRANS /NO -- GO CHECK THAT DEVS ARE RXS
492 TAD (VERBUF /YES -- PRINT MESSAGE
495 / PREPARE FOR DATA TRANSFER
497 TRANS, TAD I (OPT2 /SET C SWITCH IF COPY REQ'D
504 JMP TRANSA /DON'T SET C SWITCH
505 TRANSB, TAD I (OPT1 /SET IT
509 TRANSA, TAD I (OPT2 /SET M SWITCH IF MATCH REQ'D
517 TRANS1, TAD OUTDEV /NO -- CHECK THAT OUTPUT DEV IS RX
518 TAD (7757 /PREPARE TO GET DEV TYPE FROM TABLE
524 TAD (-DEVTYP /WAS DEVICE AN RX?
525 SZA!CLA /DOES IT MATCH?
526 JMP ERR3 /NO -- OUTDEV IS NOT AN RX!!
527 TAD OUTDEV /SETUP UNIT NUMBERS
528 JMS UNIT /FOR OUPUT DEVICE
534 OUTOK, TAD I (OPT1 /IF MATCH OR COPY GET INFO ON INDEV
540 SNA!CLA /WAS MATCH OR COPY SELECTED?
542 OUTOK1, TAD INDEV /MAKE SURE INPUT DEVICE IS AN RX
543 TAD (7757 /PREPARE TO ACCESS TABLE
550 SZA!CLA /DOES IT MATCH?
551 JMP ERR3 /NO -- ERROR
552 TAD INDEV /SETUP UNIT NUMBERS
553 JMS UNIT /FOR INPUT DEVICE
556 DORDY, JMS QUEST /PAUSE IF SPECIFIED
558 JMP DO /PROCESS DISKS
561 / SUBROUTINE IND -- RETURN IF INPUT DEVICE NUMBER IS NON-ZERO
564 TAD INDEV /IF INPUT DEV WAS SPEC'D RETURN
565 SNA!CLA /IF NOT DECLARE ERROR
569 / SUBROUTINE OUTD -- RETURN IF OUTPUT DEVICE NUMBER IS NON-ZERO
573 TAD OUTDEV /IF OUTPUT DEV WAS SPEC'D RETURN
574 SNA!CLA /IF NOT DECLARE ERROR
592 DO, JMS I (USR /UNLOCK USR FROM CORE
594 TAD (-115 /INIT COUNTER TO -77 DECIMAL
596 DCA TRACK /INIT TRACK NUMBER TO 0
599 / ****** END OF ONCE ONLY CODE ******
605 DO1, TAD I (OPT1 /SHOULD WE COPY?
609 JMS RI /YES -- READ INPUT DEVICE INTO FIELD 0
610 JMS WO /WRITE OUTPUT DEVICE FROM FIELD 0
614 DO2, TAD I (OPT2 /SHOULD WE READ?
617 JMP DO3 /NO -- CHECK MATCH
618 IAC /YES -- READ OUTPUT DEVICE INTO FIELD 1
621 / WAS MATCH SELECTED?
623 DO3, TAD I (OPT2 /SHOULD WE MATCH?
627 TAD I (OPT1 /YES -- WAS THERE A COPY?
630 JMS RI /NO -- READ INPUT DEVICE INTO FILED 0
631 TAD I (OPT2 /YES -- WAS THERE A READ?
635 IAC /NO -- READ OUTDEV TO FIELD 1
641 DCA PTR /INIT BUFFER POINTER
642 TAD (-BSIZE /SETUP WD IN BUFFER COUNTER
644 DO4A, TAD I PTR /GET A WD FROM FIELD 1
646 CDF 0 /GET A WD FROM FIELD 0
650 TAD TMP5 /DID WDS MATCH?
652 JMS ERR7 /NO -- ERROR (BUT NOT FATAL)
653 ISZ PTR /YES -- INCREMENT POINTER
654 ISZ WDCNT /DONE WITH BUFFER?
655 JMP DO4A /NO -- PROCEED
658 / TEST FOR END OF DISK
660 DO5, ISZ TRACK /INCREMENT TRACK
665 CNT, 0 /ISZ COUNTER OF TRACKS
666 TRACK, 0 /TRACK NUMBER
667 PTR, 0 /WORD IN BUFFER POINTER
668 WDCNT, 0 /BUFFER WORD COUNTER
670 / SUBROUTINE QUEST -- PRINT MSG AND ASK QUESTION
671 / ASK IT ONLY IF /P WAS SPECIFIED
672 / JMS+1 HAS MSG TO ASK
673 / RETURN ONLY WHEN ANSWER IS YES
676 TAD I (OPT2 /WAS /P SPECIFIED?
680 Q1, TAD I QUEST /YES -- GET MESG ADDR
682 TAD (BUFF /SELECT INPUT BUFFER
683 JMS RDANS /READ ANSWER
684 TAD I (BUFF /WAS IT "Y"?
688 JMP Q1 /NO -- ASK AGAIN
689 Q2, ISZ QUEST /YES -- RETURN AT JMS+2
692 / SUBROUTINE CTRLC -- CHECK FOR CONTROL C
715 / SUBROUTINE RI -- READ FROM INPUT DEVICE
717 RI, 0 /READ FROM INPUT DEVICE
718 JMS CTRLC /CHECK FOR CONTROL C
719 TAD TRACK /GET TRACK NUMBER INTO AC
720 CIF 0 /PREPARE TO ENTRY DRIVER
721 JMS I (RW /CALL DRIVER
722 RI1, 0 /FUNCTION WORD
723 JMP I RI /EXIT -- SUCCESSFUL
725 JMS CTRLC /CHECK FOR CONTROL C
727 JMP I (CONTIN /PROCEED
729 / SUBROUTINE RO -- READ FROM OUTPUT DEVICE
731 RO, 0 /READ FROM OUTDEV
732 JMS CTRLC /CHECK FOR CONTROL C
744 / SUBROUTINE WO -- WRITE OUTPUT DEVICE
746 WO, 0 /WRITE TO OUTPUT DEVICE
758 / MISC ERROR ROUTINES
761 TAD (-BSTART /SUBTRACK BUFFER START
762 TAD PTR /FROM WORD IN BUFFER POINTER
763 TAD (-BHALF /THEN SUBTRACT 1/2 OF BUFFER SIZE
764 SPA /SKIP IF PTR IN 2ND HALF
765 JMP ERR7A /PTR IN 1ST HALF
766 AND (7600 /DIVIDE BY 64 DECIMAL AND ADD 2
772 ERR7A, TAD (BHALF /MAKE POSITIVE
773 AND (7600 /DIVIDE BY 64 AND ADD 1
778 DCA ERRTMP /SAVE SECTOR NUMBER
779 TAD TRACK /WAS THERE ANOTHER MISMATCH ON THIS SECTOR?
791 TAD TRACK /SAVE TRACK AND SECTOR
792 CMA!IAC /AS 2'S COMP FOR FUTURE COMPARISION
826 / SUBROUTINE TYPE -- PRINT MESSAGE
827 / ON ENTRY AC HAS MESSAGE ADDRESS
839 / SUBROUTINE RDANS -- READ ANSWER FROM TTY
840 / ON ENTRY AC HAS BUFFER ADDR
852 TTYENT, 0 /ENTRY POINT TO TTY HANDLER
859 / SUBROUTINE APRNT -- PRINT TRACK AND SECTOR
860 / ENTER WITH SECTOR IN AC
876 / SUBROUTINE SETIN -- ENTER NUMBER INTO A MESSAGE
878 / ON ENTRY AC HAS NUMBER AND JMS+1 HAS POINTER TO MESSAGE
879 / HOLE MINUS 1. (2 DECIMAL DIGIT NUMBERS ARE ASSUMED)
882 DCA SETIN1 /SAVE NUMBER
883 DCA SETCNT /ZERO 10'S COUNTER
884 TAD I SETIN /GET MSG ADDR
885 DCA 10 /ENTER INTO AUTOINC POINTER
886 ISZ SETIN /BUMP RETURN ADDR
887 SETINB, TAD SETIN1 /GET NUMBER
888 TAD M12 /SUBTRACT 10 DECIMAL
893 TAD P260 /MAKE IT ASCII
894 DCA I 10 /STORE IN MESSAGE
895 TAD SETIN1 /GET REMAINDER
896 TAD P260 /MAKE IT ASCII
897 DCA I 10 /STORE IN MESSAGE
899 SETINA, DCA SETIN1 /SAVE RESULT
900 ISZ SETCNT /INCREMENT 10'S COUNT
903 SETIN1, 0 /NUMBER STORAGE
904 SETCNT, 0 /10'S COUNTER
905 M12, -12 /MINUS 10 DECIMAL
912 VERBUF, "R; "X; "C; "O; "P; "Y; 240; "V; "4; "A; 240; 215; 212; 232
913 MSG2, "I; "L; "L; "E; "G; "A; "L; 240; "S; "P; "E; "C; "I; "F; "I
914 "C; "A; "T; "I; "O; "N; 215; 212; 232
915 MSG3, "D; "E; "V; "I; "C; "E; 240; "I; "S; 240; "N; "O; "T; 240
916 "R; "X; 215; 212; 232
917 MSG5, "N; "O; 240; "I; "N; "P; "U; "T; 240; "D; "E; "V; "I; "C;
919 MSG6, "N; "O; 240; "O; "U; "T; "P; "U; "T; 240
920 "D; "E; "V; "I; "C; "E; 215; 212; 232
921 MSG7, "C; "O; "M; "P; "A; "R; "E; 240
922 "E; "R; "R; "O; "R; 232
923 MSG8, "I; "N; "P; "U; "T; 240; "D; "E; "V; "I; "C; "E; 240
924 "R; "E; "A; "D; 240; "E; "R; "R; "O; "R; 232
925 MSG9, "O; "U; "T; "P; "U; "T; 240; "D; "E; "V; "I; "C; "E; 240
926 "R; "E; "A; "D; 240; "E; "R; "R; "O; "R; 232
927 MSG10, "O; "U; "T; "P; "U; "T; 240; "D; "E; "V; "I; "C; "E; 240
928 "W; "R; "I; "T; "E; 240; "E; "R; "R; "O; "R; 232
929 MSG11, "I; "S; 240; "M; "O; "N; "I; "T; "O; "R; 240
930 "R; "E; "M; "O; "U; "N; "T; "E; "D
932 MSG12, "R; "E; "A; "D; "Y; "?; 232
933 MSG13, 240; "T; "R; "A; "C; "K; 240
936 ",; "S; "E; "C; "T; "O; "R; 240