mainframed

#!/usr/bin/env python3

from datetime import datetime
import sys
import re


if len(sys.argv) < 6:
    print("\nTK4- ANSI art to HLASM Tool\n\nUsage:")
    usage = '''{} ansi_file tk4_user source_file_member cursor_x cursor_y > JCL_FILE\n

mainframed

Simple (LOL) CICS DOGE "Good Morning" screen (i.e. overly complicated hello world)

CICS is like this mystery wrapped in an enigma wrapped in a riddle. Sure you've heard about it, your company might even rely on it day to day for some really important transactions. But if you wanted to quickly learn how to write and deploy a CICS transaction (or application) its basically impossible. Sure you could grab the Murach book, which is great, but its not a 101 level tutorial, they don't even comment about how to use CEDA to install your cics program and mention compiling COBOL and assembling maps in passing.

Throughout this writeup I'm going to refer to CICS like a web server. Yes, i know its the proto-webserver. I don't care, its the roaring 20's. With that in mind, some quick terminology:

• Transaction: 4 characters long, think of this like a URL. We'll use DOGE as our transaction.
• Region: This is like "servers". Imagine you had 3 tomcat servers running on different ports, same deal here, except we call th

andrebreves

#!/usr/bin/env bash
set -Eeuo pipefail

# Formatting
if [[ -t 1 && $(tput colors) -ge 8 ]]; then
    _rst_="$(tput sgr0)"   ; _bol_="$(tput bold)"   ; _und_="$(tput smul)"
    _red_="$(tput setaf 1)"; _grn_="$(tput setaf 2)"; _ylw_="$(tput setaf 3)"; _blu_="$(tput setaf 4)"
else
    _rst_=""; _bol_=""; _und_=""
    _red_=""; _grn_=""; _ylw_=""; _blu_=""

tuklusan

#!/bin/bash

# --
# hecnet-nodes-for-pydecnet.sh
# grabs HECnet node list from MIM and produces node names configuration
# file for DECnet/Python
#
# Author: Supratim Sanyal <supratim at riseup dot net>
# --

aveao

router id [our IPv4];

protocol bgp vultr
{
    local as [our ASN];
    source address [our IPv4 from vultr];
    import all;
    export filter {
        if net ~ [[the IPv4 block we want to announce]] then accept;
        reject;

valerionew

#include <avr/interrupt.h>        // cli

int main (void) {
  char oldsreg = SREG;            // save the interrupt setting register to oldsreg
  cli();                          // disable all the interrupts (SREG = 0)
  CCP = 0xD8;                     // signature to CCP
  CLKMSR = 0;                     // use clock 00: Calibrated Internal 8 MHzOscillator
  CCP = 0xD8;                     // signature
  CLKPSR = 0;                     // set prescaler to :1 (0x00)
  SREG = oldsreg;                 // restore the sreg, enabling the interrupts

rppowell-lasfs

Java Hibernate/Sqlite Example

Dependencies

// https://mvnrepository.com/artifact/org.hibernate/hibernate-core
compile group: 'org.hibernate', name: 'hibernate-core', version: '5.2.16.Final'

// https://mvnrepository.com/artifact/org.xerial/sqlite-jdbc
compile group: 'org.xerial', name: 'sqlite-jdbc', version: '3.21.0.1'

jokeru

#!/usr/bin/env bash


if [ "$AWS_PROFILE" = "" ]; then
  echo "No AWS_PROFILE set"
  exit 1
fi


for region in $(aws ec2 describe-regions --region eu-west-1 | jq -r .Regions[].RegionName); do

dylanmckay

#! /usr/bin/env ruby

# NOTE: Requires Ruby 2.1 or greater.

# This script can be used to parse and dump the information from
# the 'html/contact_info.htm' file in a Facebook user data ZIP download.
#
# It prints all cell phone call + SMS message + MMS records, plus a summary of each.
#
# It also dumps all of the records into CSV files inside a 'CSV' folder, that is created

jblang

RC2014 Links

I couldn't find a comprehensive list of links for the RC2014 so I started one. Suggestions welcome.

Documentation

• RC2014 Website - descriptions of all official RC2014 boards
• RC2014 Github Repo - official ROMs and example code
• RC2014 CP/M Guide - guide to setting up CP/M on the RC2014
• Decoding RC2014 ROM Labels - explanation of what RC2014 ROM labels mean
• RC2014 Module Template - Kicad template for building RC2014 boards