Calendar - for "REAL" programmers: Difference between revisions
m
→{{header|360 Assembly}}: Superfluous blanks suppressed
PatGarrett (talk | contribs) (→{{header|360 Assembly}}: Section added) |
PatGarrett (talk | contribs) m (→{{header|360 Assembly}}: Superfluous blanks suppressed) |
||
Line 38:
This is for real programmers who code only in assembler :). The code could have been run in april 1964, punched on
80-column cards, read on a card reader, and printed with a 132-column line printer on fan-folded paper with perforated edges.
<lang 360asm>* CALENDAR FOR REAL PROGRAMMERS 05/03/2017▼
▲* CALENDAR FOR REAL PROGRAMMERS 05/03/2017
CALENDAR CSECT
USING CALENDAR,R13 BASE REGISTER
Line 220 ⟶ 218:
DA DS 12CL144
YREGS
END CALENDAR</lang>
{{out}}
<pre> INSERT SNOOPY HERE▼
▲ INSERT SNOOPY HERE
1969
JANUARY FEBRUARY MARCH APRIL MAY JUNE
Line 243 ⟶ 239:
</pre>
=={{header|Ada}}==
| |||