Category : Assembly Language Source Code
Archive   : R42MAC.ZIP
Filename : GETMAIN.MAC

 
Output of file : GETMAIN.MAC contained in archive : R42MAC.ZIP
GETMAIN MACRO RU,LV=(1),A=?
AIF /&LABEL$$=/ .GO
&LABEL$$ EQU *
.GO AIF &1=V.TYPEV
AIF &LV=(.REG
AIF &LV>4095.L
LA 1,&LV
AGO .SVC
.L L 1,=F'&LV'
AGO .SVC
.REG AIF &LV=(1).SVC
LR 1,&LV
.SVC SVC 10
LTR 0,0
BZ *+16
LA 2,=C'ABEND 80A$'
SVC 209
SVC 9
DC C'BUG '
AIF &1=R.STORE
AIF &A=?.STORE
ST 2,&A
AGO .END
.STORE LR 1,2
AGO .END
.TYPEV L 1,&LA+4
SVC 10
LTR 0,0
BZ *+26
C 1,&LA
BNL *+16
LA 2,=C'ABEND 80A$'
SVC 209
SVC 9
DC C'BUG '
SVC 10
ST 1,&A+4
ST 2,&A
.END ANOP


  3 Responses to “Category : Assembly Language Source Code
Archive   : R42MAC.ZIP
Filename : GETMAIN.MAC
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/