folkert/simh-testsetgenerator
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
simh-testsetgenerator/I650/i650_cdr.c
Roberto Sancho Villa 13cb294274 I650: Release 3 
New Hardware support:
- IBM 653 Storage Unit: provides machine opcodes
  for Floating Point, Immediate Access Storage (IAS),
  Three Index registers, Cards Punch-read
  synchronizers 2 and 3.
New Software included:
- FORTRANSIT: version II (S), plus run time PACKAGE
  with standard Fortran functions.
- Reorganized sw directory, separating each language
  in its own folder. Each one Includes a 00_readme.txt
  file with restoration notes and comments.
New features:
- Support for SOAP opcode mnemonics in addition
  to regular IBM mnemonics
- FAST / REALTIME CPU options
- PROP pseudo register
- CARDDECK ECHOLAST command
2018-05-18 21:58:24 +02:00

854 lines
36 KiB
C
Raw Blame History

/* i650_cdr.c: IBM 650 Card reader.
Copyright (c) 2018, Roberto Sancho
Permission is hereby granted, free of charge, to any person obtaining a
copy of this software and associated documentation files (the "Software"),
to deal in the Software without restriction, including without limitation
the rights to use, copy, modify, merge, publish, distribute, sublicense,
and/or sell copies of the Software, and to permit persons to whom the
Software is furnished to do so, subject to the following conditions:
The above copyright notice and this permission notice shall be included in
all copies or substantial portions of the Software.
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
ROBERTO SANCHO BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
This is the standard card reader.
These units each buffer one record in local memory and signal
ready when the buffer is full or empty. The channel must be
ready to recieve/transmit data when they are activated since
they will transfer their block during chan_cmd. All data is
transmitted as BCD characters.
*/
#include "i650_defs.h"
#include "sim_card.h"
#define UNIT_CDR UNIT_ATTABLE | UNIT_RO | MODE_026 | MODE_LOWER
/* std devices. data structures
cdr_dev Card Reader device descriptor
cdr_unit Card Reader unit descriptor
cdr_reg Card Reader register list
cdr_mod Card Reader modifiers list
*/
uint32 cdr_cmd(UNIT *, uint16, uint16);
t_stat cdr_srv(UNIT *);
t_stat cdr_reset(DEVICE *);
t_stat cdr_attach(UNIT *, CONST char *);
t_stat cdr_detach(UNIT *);
t_stat cdr_help(FILE *, DEVICE *, UNIT *, int32, const char *);
const char *cdr_description(DEVICE *dptr);
t_stat cdr_set_wiring (UNIT *uptr, int32 val, CONST char *cptr, void *desc);
t_stat cdr_show_wiring (FILE *st, UNIT *uptr, int32 val, CONST void *desc);
UNIT cdr_unit[4] = {
{UDATA(cdr_srv, UNIT_CDR, 0), 300}, // Unit 0 used internally for carddeck operations simulator specific command
{UDATA(cdr_srv, UNIT_CDR, 0), 300}, // unit 1 is default for initial model (1954)
{UDATA(cdr_srv, UNIT_CDR, 0), 300}, // storage unit (1955) allows two extra card/readers for a total of 3
{UDATA(cdr_srv, UNIT_CDR, 0), 300},
};
MTAB cdr_mod[] = {
{MTAB_XTD | MTAB_VUN, 0, "FORMAT", "FORMAT", &sim_card_set_fmt, &sim_card_show_fmt, NULL, "Set card format"},
{MTAB_XTD | MTAB_VUN, 0, "WIRING", "WIRING", &cdr_set_wiring, &cdr_show_wiring, NULL, "Set card read control panel Wiring"},
{0}
};
DEVICE cdr_dev = {
"CDR", cdr_unit, NULL, cdr_mod,
4, 8, 15, 1, 8, 8,
NULL, NULL, NULL, NULL, &cdr_attach, &sim_card_detach,
&cdr_dib, DEV_DISABLE | DEV_DEBUG, 0, crd_debug,
NULL, NULL, &cdr_help, NULL, NULL, &cdr_description
};
// buffer to hold read cards in take hopper of each unit
// to be printed by carddeck command
char ReadHopper[3 * MAX_CARDS_IN_READ_TAKE_HOPPER * 80];
int ReadHopperLast[3];
// get 10 digits word with sign from card buf (the data struct). return 1 if HiPunch set on any digit
int decode_8word_wiring(struct _card_data * data, int bCheckForHiPunch)
{
// decode up to 8 numerical words per card
// input card
// NNNNNNNNNN ... 8 times
// If last digit of word has X(11) punch whole word is set as negative value
// If N is non numeric, a 0 is assumed
// put the decoded data in IO Sync buffer (if bCheckForHiPunch = 1 -> do not store in IO Sync Buffer)
// return 1 if any colum has Y(12) hi-punch set
uint16 c1,c2;
int wn,iCol,iDigit;
int HiPunch, NegPunch, NegZero;
t_int64 d;
NegZero = 0; // flag set if negative zero is read
HiPunch = 0; // set to 1 if Y(12) high punch found
iCol = 0; // current read colum in card
for (wn=0;wn<8;wn++) { // one card generates 8 words in drum mem
d = NegPunch = 0;
// read word digits
for (iDigit=0;iDigit<10;iDigit++) {
c1 = data->image[iCol++];
c2 = data->hol_to_ascii[c1]; // convert to ascii
if ((c1 == 0xA00) || (c2 == '?')) {
c1 = 0xA00; c2 = '?'; // the punched value +0 should be represented by ascii ?
}
if ((c2 == '+') && (iCol == 1)) { // on IT control card, first char is a Y(12) punch to make control card a load card.
c1 = 0xA00; c2 = '?'; // Digit interpreted as +0
}
if (strchr(digits_ascii, c2) == NULL) { // scan digits ascii to check if this is a valid numeric digit with Y or X punch
c1 = 0; // nondigits chars interpreted as blank
}
if (c1 & 0x800) HiPunch = 1; // if column has Hi Punch Y(12) set, signal it
NegPunch = (c1 & 0x400) ? 1:0; // if column has minus X(11) set, signal it
c1 = c1 & 0x3FF; // remove X and Y punches
c2 = data->hol_to_ascii[c1]; // convert to ascii again
c2 = c2 - '0'; // convert ascii to binary digit
if (c2 > 9) c2 = 0; // nondigits chars interpreted as zero
d = d * 10 + c2;
}
// end of word. set sign
if (NegPunch) { // has last digit a minus X(11) punch set?
d = -d; // yes, change sign of word read
if (d == 0) NegZero=1; // word read is minus zero
}
if (bCheckForHiPunch == 0) {
IOSync [wn]=d;
IOSync_NegativeZeroFlag[wn]=NegZero;
}
}
return HiPunch;
}
// load soap symbolic info, This is a facility to help debugging of soap programs into SimH
// does not exist in real hw
void decode_soap_symb_info(struct _card_data * data)
{
t_int64 d;
int op,da,ia,i,i2,p;
char buf[81];
uint16 c1,c2;
// check soap 1-word load card initial word
d = IOSync[0];
if (d != 6919541953LL) return; // not a 1-word load card
// get the address where the 1-word card will be loaded (into da)
d = IOSync[2];
op = Shift_Digits(&d, 2); // current inst opcode
da = Shift_Digits(&d, 4); // addr of data
ia = Shift_Digits(&d, 4); // addr of next instr
if ((op != 24) && (ia != 8000)) return; // not a 1-word load card
if (da >= (int)DRUMSIZE) return; // symbolic info can only be associated to drum addrs
// convert card image punches to ascii buf for processing, starting at col 40
// keep 026 fortran charset
for (i=40;i<80;i++) {
c1 = data->image[i];
c2 = data->hol_to_ascii[c1];
c2 = (strchr(mem_to_ascii, toupper(c2))) ? c2:' ';
if (c2 == '~') c2 = ' ';
buf[i] = (char) c2;
}
buf[80] = 0; // terminate string
// copy soap symbolic info
i2 = 80;
while (1) { // calc i2 = last non space char to copy
if (--i2 < 41) return; // noting to copy
if (buf[i2] > 32) break;
}
p = da * 80;
for (i=0;i<80;i++)
DRUM_Symbolic_Buffer[p+i] = 0; // clear drum[da] symbolic info
for (i=41;i<=i2;i++) {
if ((i==47) || (i==50) || (i==55)) DRUM_Symbolic_Buffer[p++] = 32; // add space separation between op, da, ia fields
DRUM_Symbolic_Buffer[p++] = buf[i];
}
}
t_int64 decode_num_word(char * buf, int nDigits, int bSpaceIsZero)
{
t_int64 d;
int i,c;
d = 0;
for (i=0;i<nDigits;i++) {
c = *buf++;
if ((c == 32) && (bSpaceIsZero)) c = '0';
if ((c < '0') || (c > '9')) {
d = -1; // not a number
break;
}
d = d * 10 + c - '0';
}
if (d < 0) {
// not a number -> return all 9's
d = 0;
for (i=0;i<nDigits;i++) d = d * 10 + 9;
}
return d;
}
t_int64 decode_alpha_word(char * buf, int n)
{
t_int64 d;
int i;
d = 0;
for (i=0;i<n;i++) {
d = d * 100 + ascii_to_NN(*buf++);
}
return d;
}
void decode_soap_wiring(struct _card_data * data)
{
// decode soap card simulating soap control panel wiring for 533
// from SOAP II manual at http://www.bitsavers.org/pdf/ibm/650/24-4000-0_SOAPII.pdf
// input card
// Column: 41 | 42 | 43 44 45 46 47 | 48 49 50 | 51 52 53 54 55 | 56 | 57 58 59 60 61 | 62 | 63 64 65 66 67 68 69 70 71 72
// Ty | Sg | Location | OpCode | Data Addr | Tg | Instr Addr | Tg | Remarks
//
// Ty = Type = blank, 1 or 2
// Sg = sign = blank or -
// Tg = Tag =
// storage in input block
// +-------------------+
// Word 1951: | <- Location -> | Alphabetic
// 1952: | <- Data Addr -> | Alphabetic
// 1953: | <- Inst Addr -> | Alphabetic
// +-+-+-|-+-+-|-+-|-+-|
// 1954: | Op Code |DTg|ITg| Alphabetic
// +-+-+-|-+-+-|-+-|-+-|
// 1955: | <- Remarks -> | Alphabetic
// 1956: | <- Remarks -> | Alphabetic
// +-+-+-+-+-+-|-+-+-+-|
// 1957: | |N N N N| L Absolute Part
// 1958: | |N N N N| D Absolute Part
// 1959: | |N N N N| I Absolute Part
// 1960: | |T b n| T=Type (0 if Blank), b=0/8 (for non blank type), n=0/8 (for negative)
// +-------------------+
//
int ty,neg;
char buf[81];
int i;
uint16 c1,c2;
// convert card image punches to ascii buf for processing
// keep 026 fortran charset
for (i=0;i<80;i++) {
c1 = data->image[i];
c2 = data->hol_to_ascii[c1];
c2 = (strchr(mem_to_ascii, toupper(c2))) ? c2:' ';
if (c2 == '~') c2 = ' ';
buf[i] = (char) c2;
}
buf[80] = 0; // terminate string
IOSync[0] = decode_alpha_word(&buf[42], 5); // Location (5 chars)
IOSync[1] = decode_alpha_word(&buf[50], 5); // Data Addr (5 chars)
IOSync[2] = decode_alpha_word(&buf[56], 5); // Inst Addr (5 chars)
IOSync[3] = decode_alpha_word(&buf[47], 3) * D4 + // OpCode (3 chars only)
decode_alpha_word(&buf[55], 1) * 100 + // Data Addr Tag (1 char only)
decode_alpha_word(&buf[61], 1); // Instr Addr Tag (1 char only)
IOSync[4] = decode_alpha_word(&buf[62], 5); // Remarks
IOSync[5] = decode_alpha_word(&buf[67], 5); // Remarks
IOSync[6] = decode_num_word(&buf[43], 4, 0); // Absolute Part of location
IOSync[7] = decode_num_word(&buf[51], 4, 0); // Absolute Part of Data Addr
IOSync[8] = decode_num_word(&buf[57], 4, 0); // Absolute Part of Instr Addr
ty = buf[40] - '0';
if ((ty < 0) || (ty > 9)) ty = 0;
neg = (buf[41] == '-') ? 8:0;
IOSync[9] = ty * 100 +
(ty ? 80:0) +
neg; // |T b n| T=Type (0 if Blank), b=0/8 (for non blank type), n=0/8 (for negative)
}
int sformat(char * buf, const char * match)
{
char m,c;
while(1) {
m = *match++;
if (m == 0) break;
c = *buf++;
if (c == 0) return 0; // end of buf str before end of match string -> return 0 -> buf does not match
if ((m == ' ') && (c == ' ')) continue;
if ((m == 'N') && (c >= '0') && (c <= '9')) continue;
if ((m == '+') && ((c == '+') || (c == '-'))) continue;
return 0; // buf does not match -> return 0 -> buf does not match
}
return 1; // end of match string -> return 1 -> buf matches
}
void decode_is_wiring(struct _card_data * data)
{
// decode Floationg Decimal Interpretive System (IS) card simulating control panel wiring for 533 as described
// in manual at http://www.bitsavers.org/pdf/ibm/650/28-4024_FltDecIntrpSys.pdf
// input card
// Column: 1 2 3 4 | 5 6 | 7 8 9 | 10 | 11 | 12 - 21 | 22 | 23 - 32 | 33 | 34 - 43 | 44 | 45 - 54 | 55 | 56 - 65 | 66 | 67 - 76 | 77 78 79 | 80
// Card | | Location | wc | s1 | Word1 | s2 | Word2 | s3 | Word3 | s4 | Word4 | s5 | Word5 | s6 | Word6 | Problem |
// Num | Num
//
// wc = Word Count (range 0 to 6, space for 1)
// s1 = sign of word 1 (-, + or <space> (same as +))
// Tr = Tracing identification
// Word = word in format NNNNNNNNNN
// N is 0..9, <space> (same as 0)
//
// Alternate input format to allow system deck loading
// Column: 1 2 | 3 | 4 5 6 | 7 | 8 9 10 11 | 12 | 13 - 24
// Deck | sp | Card | | NNNN | | NN NNNN NNNN
// Num | | Num |
//
// Alternate input format to allow IT source program loading
// Column: 1 2 3 4 | 5 6 | 7 8 9 | 10 | 11 | 12 - 24
// Card | Blank | Location | | sg | N NNN NNN NNN <- This is an IS instruction (format O1 A B C)
// Num |
// Column: 1 2 3 4 | 5 6 | 7 8 9 | 10 | 11 | 12 - 23
// Card | Blank | Location | | sg | N NNNNNNN NN <- This is an IS float numeric constant (mantissa and exponent)
// Num |
// Column: 1 2 3 4 | 5 6 | 7 8 9 | 10 - 23
// Card | Blank | Location | blanks <- This is an IS transfer card (location is start of IT program)
// Num |
//
// storage in input block
// +-+-+-+-+-+-|-+-+-+-|
// Word 1951: | |N N N N| | Location
// 1952: | |N N N N| | Word Count
// +-------------------+
// 1953: | word1 |
// 1954: | word2 |
// 1955: | word3 |
// 1956: | word4 |
// 1957: | word5 |
// 1958: | word6 |
// +-------------------+
// 1959: | Problem Number |
// +-------------------+
//
// card number is ignored on reading
int wc,neg,i;
int NegZero;
t_int64 d;
char buf[81];
uint16 c1,c2;
// convert card image punches to ascii buf for processing
// keep 0..9,+,-,<space>, replace anything else by <space>
for (i=0;i<80;i++) {
c1 = data->image[i];
c2 = data->hol_to_ascii[c1];
buf[i] = (strchr("+-0123456789", c2)) ? ((char) (c2)):' ';
}
buf[80] = 0; // terminate string
if ( sformat(&buf[6], " ")) {
// card with firsts 26 cols blank = blank card: read as all zero, one word count
// this allows to have blank cards/comments card as long as the comment starts on column 27 of more
IOSync[1] = 1 * D4; // word count
} else if ( sformat(&buf[5], " NNN ")) {
// alternate format for loading IT program (IT transfer card)
IOSync[0] = decode_num_word(&buf[6], 3, 0) * D4; // start location (3 digits)
IOSync[1] = 0; // word count = 0
} else if ( sformat(&buf[5], " NNN +N NNN NNN NNN ")) {
// alternate format for loading IT program (IT instruction)
IOSync[0] = decode_num_word(&buf[6], 3, 0) * D4; // location (3 digits)
IOSync[1] = 1 * D4; // word count
NegZero = 0;
neg = (buf[10] == '-') ? 1:0;
d = decode_num_word(&buf[11], 1, 0) * 10 * D8 + // O1
decode_num_word(&buf[13], 3, 0) * 100 * D4 + // O2 or A
decode_num_word(&buf[17], 3, 0) * 1000 + // B
decode_num_word(&buf[21], 3, 0); // C
if (neg) {
d=-d;
if (d==0) NegZero = 1;
}
IOSync [2]=d;
IOSync_NegativeZeroFlag[2]=NegZero;
} else if ( sformat(&buf[5], " NNN +N NNNNNNN NN ")) {
// alternate format for loading IT program (numeric constant in float format)
IOSync[0] = decode_num_word(&buf[6], 3, 0) * D4; // location (3 digits)
IOSync[1] = 1 * D4; // word count
NegZero = 0;
neg = (buf[10] == '-') ? 1:0;
d = decode_num_word(&buf[11], 1, 0) * 10 * D8 + // integer part of mantissa
decode_num_word(&buf[13], 7, 0) * 100 + // factional part of mantissa
decode_num_word(&buf[21], 2, 0); // exponent
if (neg) {
d=-d;
if (d==0) NegZero = 1;
}
IOSync [2]=d;
IOSync_NegativeZeroFlag[2]=NegZero;
} else if ( (sformat(&buf[6], " NNNN NN NNNN NNNN ")) ||
(sformat(&buf[6], " NNNN NN NNNN ")) ||
(sformat(&buf[6], " NNNN NN NNNN ")) ||
(sformat(&buf[6], " NNNN NN "))
) {
// alternate format for loading main IT system deck
IOSync[0] = decode_num_word(&buf[7], 4, 0) * D4; // location (4 digits)
IOSync[1] = 1 * D4; // word count = 1
IOSync[2] = decode_num_word(&buf[12], 2, 1) * D8 + // op
decode_num_word(&buf[15], 4, 1) * D4 + // data address
decode_num_word(&buf[20], 4, 1); // instr addr, no negative zero allowed
} else {
// regular IT read/punch format
IOSync[0] = decode_num_word(&buf[6], 3, 0) * D4; // location (3 digits)
wc = (int) decode_num_word(&buf[9], 1, 1);
if (wc > 6) wc = 6;
IOSync[1] = wc * D4; // word count
for (i=0;i<wc;i++) {
NegZero = 0;
neg = (buf[10 + 11*i] == '-') ? 1:0;
d = decode_num_word(&buf[11 + 11*i], 10, 1);
if (neg) {
d=-d;
if (d==0) NegZero = 1;
}
IOSync [2+i]=d;
IOSync_NegativeZeroFlag[2+i]=NegZero;
}
IOSync[9] = decode_num_word(&buf[76], 3, 1); // problem number
}
}
void decode_it_wiring(struct _card_data * data)
{
// decode IT compiler card simulating control panel wiring for 533
// from IT manual at http://www.bitsavers.org/pdf/ibm/650/CarnegieInternalTranslator.pdf
// source program input card
// Column: 1 2 3 4 | 5 | 6 - 42 | 43 - 70 | 71 72 | 73 - 80 |
// N N N N | + | | Statement | | Comments |
// Statement | Y(12) | | max 28 | | max 8 |
// Number | Punch | | chars | | chars |
//
// storage in input block
// +-------------------+
// Word 0051: | <- Statement -> | Alphabetic
// 0052: | <- Statement -> | Alphabetic
// 0053: | <- Statement -> | Alphabetic
// 0054: | <- Statement -> | Alphabetic
// 0055: | <- Statement -> | Alphabetic
// 0056: | <- Statement -> | Alphabetic
// +-+-+-+-+-+-|-+-+-+-|
// 0057: | |N N N N| Statement Number
// +-+-+-+-+-+-|-+-+-+-|
// 0058: | | Not used
// 0059: | | Not used
// 0060: | | Not used
// +-------------------+
//
// type 1 data input card
// Column: 1 2 | 3 | 4 5 6 | 7 8 9 10 | 11 - 20 |
// VV | + | N N N | D D D D | Word
// | Y(12) |
// | Punch |
// VV = IT variable being loaded: 01 -> I type, 02 -> Y type, 03 -> C type
// N N N = variable number (I5 -> 01 + 005)
// D D D D = variable arbitrary non-zero identification number
// Word = word to be loaded into IT variable. If type I, is an integer. If type C or Y
// type is word is float (M MMMMMMM EE -> M=mantisa, EE=exponent)
// if word is negative, last digit get X(11) overpunch
// up to 4 pairs var-word per card
// last card signaed with a X(11) overpunch in col 10
// space is considered as zero
// type 2 data input card is a load card. No spaces are allowed
char buf[81];
int i;
uint16 c1,c2;
// convert card image punches to ascii buf for processing
// keep 026 fortran charset
for (i=0;i<80;i++) {
c1 = data->image[i];
c2 = data->hol_to_ascii[c1];
c2 = (strchr(mem_to_ascii, toupper(c2))) ? c2:' ';
if (c2 == '~') c2 = ' ';
buf[i] = (char) c2;
}
buf[80] = 0; // terminate string
if (buf[2] == '+') {
// type 1 data card
// re-read as 8 word per card
decode_8word_wiring(data, 0);
return;
}
IOSync[0] = decode_alpha_word(&buf[42], 5); // Statement (5 chars)
IOSync[1] = decode_alpha_word(&buf[47], 5); // Statement (5 chars)
IOSync[2] = decode_alpha_word(&buf[52], 5); // Statement (5 chars)
IOSync[3] = decode_alpha_word(&buf[57], 5); // Statement (5 chars)
IOSync[4] = decode_alpha_word(&buf[62], 5); // Statement (5 chars)
IOSync[5] = decode_alpha_word(&buf[67], 3); // Statement (3 chars)
IOSync[6] = decode_num_word(&buf[0], 4, 1); // Statement Number (space is read as digit zero)
}
void decode_fortransit_wiring(struct _card_data * data)
{
// decode FORTRANSIT translator card simulating control panel wiring for 533
// from FORTRANSIT manual at http://bitsavers.org/pdf/ibm/650/28-4028_FOR_TRANSIT.pdf
// implemented Fortransit II (S)
// fortran source program input card
// Column: 1 | 2 3 4 5 | 6 | 7 - 36 | 37 - 80 |
// C | N N N N | cont | Statement | Blank |
//
// C = Blank or Comment if C is present
// NNNN = Blank or statement number
// cont = Blank or non-blank/non-zero for continuation card
//
// storage in input block
// +-------------------+
// Word 1951: | <- Statement -> | Alphabetic
// 1952: | <- Statement -> | Alphabetic
// 1953: | <- Statement -> | Alphabetic
// 1954: | <- Statement -> | Alphabetic
// 1955: | <- Statement -> | Alphabetic
// 1956: | <- Statement -> | Alphabetic
// +-------------------+
// 1957: | | Not used
// 1958: | | Not used
// 1959: | | Not used
// +-+-+-------+-------+
// 1960: |m t| |N N N N| m = 8/0 (8 -> comment card)
// +---+-------+-------+ t = 8/0 (8 -> continuatin card)
// NNNN = statement sumber
//
// it source program input card
// Column: 1 2 3 4 | 5 | 6 - 42 | 43 - 70 | 71 72 | 73 - 80 |
// N N N N | + | | Statement | | Comments |
// Statement | Y(12) | | max 28 | | max 8 |
// Number | Punch | | chars | | chars |
//
// storage in input block
// +-------------------+
// Word 0051: | <- Statement -> | Alphabetic
// 0052: | <- Statement -> | Alphabetic
// 0053: | <- Statement -> | Alphabetic
// 0054: | <- Statement -> | Alphabetic
// 0055: | <- Statement -> | Alphabetic
// 0056: | <- Statement -> | Alphabetic
// +-+-+-+-+-+-|-+-+-+-|
// 0057: | |N N N N| Statement Number
// +-+-+-+-+-+-|-+-+-+-|
// 0058: | | Not used
// 0059: | | Not used
// 0060: | | Not used
// +-------------------+
//
// fortransit input data card
// Column: 1 - 10 | 11 - 20 | 21 - 30 | 31 - 40 | 41 - 50 | 51 - 60 | 61 - 70 | 71 72 | 73 | 74 - 80 |
// Word1 | Word2 | Word3 | Word4 | Word5 | Word6 | Word7 | | + |
// | Y(12) |
// Word = word to be loaded into FORTRANSITIT variable. Must match the variable type where it is read in
// float (MMMMMMMM EE -> M=mantisa, EE=exponent, 1000000051 is 1.0)
// fixed (NNNNNNNNNN -> 000000030J is -302)
// if word is negative, last digit get X(11) overpunch
// If last digit of word has X(11) punch whole word is set as negative value
// If N is non numeric, a 0 is assumed
//
// storage in input block
// +-------------------+
// Word 1951: | <- Word1 -> |
// 1952: | <- Word2 -> |
// 1953: | <- Word3 -> |
// 1954: | <- Word4 -> |
// 1955: | <- Word5 -> |
// 1956: | <- Word6 -> |
// 1957: | <- Word7 -> |
// +-------------------+
// 1958: | | Not used
// 1959: | | Not used
// 1960: | | Not used
// +-------------------+
//
char buf[81];
int i;
uint16 c1,c2;
// convert card image punches to ascii buf for processing
// keep 026 fortran charset
for (i=0;i<80;i++) {
c1 = data->image[i];
c2 = data->hol_to_ascii[c1];
c2 = toupper(c2);
c2 = (strchr(mem_to_ascii, c2)) ? c2:' ';
if (c2 == '~') c2 = ' ';
buf[i] = (char) c2;
}
buf[80] = 0; // terminate string
if (buf[72] == '+') {
// read data card input for READ fortransit command
// re-read as 8 word per card
decode_8word_wiring(data, 0);
return;
} else if (buf[4] == '+') {
// it source statement
IOSync[0] = decode_alpha_word(&buf[42], 5); // Statement (5 chars)
IOSync[1] = decode_alpha_word(&buf[47], 5); // Statement (5 chars)
IOSync[2] = decode_alpha_word(&buf[52], 5); // Statement (5 chars)
IOSync[3] = decode_alpha_word(&buf[57], 5); // Statement (5 chars)
IOSync[4] = decode_alpha_word(&buf[62], 5); // Statement (5 chars)
IOSync[5] = decode_alpha_word(&buf[67], 5); // Statement (5 chars)
IOSync[6] = decode_num_word(&buf[0], 4, 1); // Statement Number (space is read as digit zero)
} else {
// fortran source statement
IOSync[0] = decode_alpha_word(&buf[6], 5); // Statement (5 chars)
IOSync[1] = decode_alpha_word(&buf[11], 5); // Statement (5 chars)
IOSync[2] = decode_alpha_word(&buf[16], 5); // Statement (5 chars)
IOSync[3] = decode_alpha_word(&buf[21], 5); // Statement (5 chars)
IOSync[4] = decode_alpha_word(&buf[26], 5); // Statement (5 chars)
IOSync[5] = decode_alpha_word(&buf[31], 5); // Statement (5 chars)
IOSync[9] = ( (buf[0] == 'C') ? (t_int64) 80 * D8 : 0 ) + // is a comment card
( ((buf[5] != ' ') && (buf[5] != 0)) ? (t_int64) 8 * D8 : 0 ) + // continuation line
( decode_num_word(&buf[1], 4, 1) ); // statement number
}
}
/*
* Device entry points for card reader.
*/
uint32 cdr_cmd(UNIT * uptr, uint16 cmd, uint16 addr)
{
struct _card_data *data;
uint32 wiring;
int i;
char cbuf[81];
int ncdr, ic;
/* Are we currently tranfering? */
if (uptr->u5 & URCSTA_BUSY)
return SCPE_BUSY;
// clear IO Sync buffer (where words read from cards will be stored)
for (i=0;i<10;i++) {
IOSync [i]=0;
IOSync_NegativeZeroFlag[i]=0;
}
/* Test ready */
if ((uptr->flags & UNIT_ATT) == 0) {
sim_debug(DEBUG_CMD, &cdr_dev, "No cards (no file attached)\n");
return SCPE_NOCARDS;
}
/* read the cards */
sim_debug(DEBUG_CMD, &cdr_dev, "READ\n");
uptr->u5 |= URCSTA_BUSY;
switch(sim_read_card(uptr)) {
case SCPE_EOF:
sim_debug(DEBUG_DETAIL, &cdr_dev, "EOF\n");
uptr->u5 = 0;
return SCPE_NOCARDS;
case SCPE_UNATT:
sim_debug(DEBUG_DETAIL, &cdr_dev, "Not Attached\n");
uptr->u5 = 0;
return SCPE_NOCARDS;
case SCPE_IOERR:
sim_debug(DEBUG_DETAIL, &cdr_dev, "ERR\n");
uptr->u5 = 0;
return SCPE_NOCARDS;
case SCPE_OK:
break;
}
data = (struct _card_data *)uptr->up7;
// make local copy of card for debug output
for (i=0; i<80; i++)
cbuf[i] = data->hol_to_ascii[data->image[i]];
cbuf[80] = 0; // terminate string
sim_debug(DEBUG_DETAIL, &cpu_dev, "Read Card: %s\n", sim_trim_endspc(cbuf));
// save read card in last read card buffer to be eventually printed
// by carddec echolast scp command
ncdr = uptr - &cdr_unit[1]; // ncdr is the card reader: 0 for cdr1, 1 for cdr2, 2 for cdr3
if ((ncdr >= 0) && (ncdr < 3)) { // safety check, not needed (should allways be true) but just to be sure
// advance read buffer last card
ReadHopperLast[ncdr] = (ReadHopperLast[ncdr] + 1) % MAX_CARDS_IN_READ_TAKE_HOPPER;
// save card in read card hopper buffer
ic = (ncdr * MAX_CARDS_IN_READ_TAKE_HOPPER + ReadHopperLast[ncdr]) * 80;
for (i=0; i<80; i++) ReadHopper[ic + i] = cbuf[i];
}
// uint16 data->image[] array that holds the actual punched rows on card
// using this codification:
//
// Row Name value in image[] comments
//
// Y 0x800 Hi Punch Y(12)
// X 0x400 Minus Punch X(11)
// 0 0x200 also called T (Ten, 10)
// 1 0x100
// 2 0x080
// 3 0x040
// 4 0x020
// 5 0x010
// 6 0x008
// 7 0x004
// 8 0x002
// 9 0x001
//
// If several columns are punched, the values are ORed: eg char A is represented as a punch
// on row Y and row 1, so it value in image array will be 0x800 | 0x100 -> 0x900
// check if it is a load card (Y(12) = HiPunch set on any column of card) signales it
if (decode_8word_wiring(data, 1)) {
uptr->u5 |= URCSTA_LOAD;
} else {
uptr->u5 &= ~URCSTA_LOAD;
}
wiring = (uptr->flags & UNIT_CARD_WIRING);
// translate chars read from card and copy to memory words
// using the control panel wiring.
if (uptr->u5 & URCSTA_LOAD) {
// load card -> use 8 words per card encoding
decode_8word_wiring(data, 0);
if (uptr->u5 & URCSTA_SOAPSYMB) {
// requested to load soap symb info
decode_soap_symb_info(data);
}
} else if (wiring == WIRING_SOAP) {
// decode soap card simulating soap control panel wiring for 533 (gasp!)
decode_soap_wiring(data);
} else if (wiring == WIRING_IS) {
// decode floating point interpretive system (bell interpreter) card
decode_is_wiring(data);
} else if (wiring == WIRING_IT) {
// decode Carnegie Internal Translator compiler card
decode_it_wiring(data);
} else if (wiring == WIRING_FORTRANSIT) {
// decode Fortransit translator card
decode_fortransit_wiring(data);
} else {
// default wiring: decode up to 8 numerical words per card. Can be a load card
decode_8word_wiring(data, 0);
}
uptr->u5 &= ~URCSTA_BUSY;
return SCPE_OK;
}
/* Handle transfer of data for card reader */
t_stat
cdr_srv(UNIT *uptr) {
// I/O is synchronous. No need to set up svr
return SCPE_OK;
}
/* Set card read/punch control panel wiring */
t_stat cdr_set_wiring (UNIT *uptr, int32 val, CONST char *cptr, void *desc)
{
int f;
if (uptr == NULL) return SCPE_IERR;
if (cptr == NULL) return SCPE_ARG;
for (f = 0; wirings[f].name != 0; f++) {
if (strcmp (cptr, wirings[f].name) == 0) {
uptr->flags = (uptr->flags & ~UNIT_CARD_WIRING) | wirings[f].mode;
return SCPE_OK;
}
}
return SCPE_ARG;
}
/* Show card read/punch control panel wiring */
t_stat cdr_show_wiring (FILE *st, UNIT *uptr, int32 val, CONST void *desc)
{
int f;
for (f = 0; wirings[f].name != 0; f++) {
if ((uptr->flags & UNIT_CARD_WIRING) == wirings[f].mode) {
fprintf (st, "%s wiring", wirings[f].name);
return SCPE_OK;
}
}
fprintf (st, "invalid control panel wiring (%d)", uptr->flags & UNIT_CARD_WIRING);
return SCPE_OK;
}
t_stat
cdr_attach(UNIT * uptr, CONST char *file)
{
t_stat r;
int ncdr, ic1, ic2, i;
if (uptr->flags & UNIT_ATT) // remove current deck in read hopper before attaching
sim_card_detach(uptr); // the new one
r = sim_card_attach(uptr, file);
if (SCPE_BARE_STATUS(r) != SCPE_OK)
return r;
uptr->u5 = 0;
uptr->u4 = 0;
uptr->u6 = 0;
if (sim_switches & SWMASK ('L')) { /* Load Symbolic SOAP info? */
uptr->u5 |= URCSTA_SOAPSYMB;
}
// clear read card take hopper buffer
ncdr = uptr - &cdr_unit[1]; // ncdr is the card reader: 0 for cdr1, 1 for cdr2, 2 for cdr3
if ((ncdr >= 0) && (ncdr < 3)) { // safety check, not needed (should allways be true) but just to be sure
// reset last read card number
ReadHopperLast[ncdr] = 0;
// clear buffer
ic1 = (ncdr * MAX_CARDS_IN_READ_TAKE_HOPPER) * 80;
ic2 = ic1 + MAX_CARDS_IN_READ_TAKE_HOPPER * 80;
for (i=ic1; i<ic2; i++) ReadHopper[i] = 0;
}
return SCPE_OK;
}
t_stat
cdr_help(FILE *st, DEVICE *dptr, UNIT *uptr, int32 flag, const char *cptr)
{
fprintf (st, "%s\r\n\r\n", cdr_description(dptr));
fprintf (st, "The 533 Card Read-punch supported a load mode, and\r\n");
fprintf (st, "several predefined control panel wiring. Default\r\n");
fprintf (st, "wiring is up to 8 numeric words per card.\r\n\r\n");
sim_card_attach_help(st, dptr, uptr, flag, cptr);
fprint_set_help(st, dptr);
fprint_show_help(st, dptr);
return SCPE_OK;
}
const char *
cdr_description(DEVICE *dptr)
{
return "533 Card Read-Ounch unit";
}
Reference in a new issue View git blame Copy permalink