home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol131 / namedate.src < prev    next >
Text File  |  1984-04-29  |  4KB  |  425 lines

  1.     NAME    NAME_DATE
  2.     ENTRY    NAME_DATE
  3.     EXT    WEEKDAY#
  4. NAME_DATE
  5.     ENTR    D,2,2
  6.     STMT    D,4174
  7.     LXI    B,0
  8.     CALL    L109
  9.     STMT    D,4175
  10.     LXI    H,14
  11.     ILOD    H,-2,0
  12.     PUSH    H
  13.     CSET    D,0
  14.     LXI    H,6
  15.     MOV    D,A
  16.     MOV    E,A
  17.     CSET    D,2
  18.     MEMB
  19.     JNC    L953
  20.     STMT    D,4176
  21.     LXI    H,14
  22.     ILOD    H,-2,0
  23.     MOV    0(IX),H
  24.     MOV    -1(IX),L
  25.     JMP    L978
  26. L953
  27.     STMT    D,4177
  28.     MOV    L,19(IX)
  29.     MOV    H,20(IX)
  30.     PUSH    H
  31.     MOV    L,17(IX)
  32.     MOV    H,18(IX)
  33.     PUSH    H
  34.     MOV    L,15(IX)
  35.     MOV    H,16(IX)
  36.     PUSH    H
  37.     CALL    WEEKDAY#
  38.     STMT    M,4177
  39.     MOV    0(IX),D
  40.     MOV    -1(IX),E
  41. L978
  42.     STMT    D,4178
  43.     MOV    L,-1(IX)
  44.     MOV    H,0(IX)
  45.     XCHG
  46.     LXI    H,0
  47.     DSB1
  48.     JNZ    L1011
  49. L1013
  50.     STMT    D,4179
  51.     JR    L1027
  52. L1026
  53.     DB    'YADNUS',6
  54. L1027
  55.     LXI    H,L1026+6
  56.     XCHG
  57.     MOV    H,9(IX)
  58.     MOV    L,8(IX)
  59.     XCHG
  60.     LXI    B,10
  61.     LDDR
  62.     JMP    L1012
  63. L1011
  64.     LXI    H,1
  65.     DSB1
  66.     JNZ    L1028
  67. L1029
  68.     STMT    D,4180
  69.     JR    L1043
  70. L1042
  71.     DB    'YADNOM',6
  72. L1043
  73.     LXI    H,L1042+6
  74.     XCHG
  75.     MOV    H,9(IX)
  76.     MOV    L,8(IX)
  77.     XCHG
  78.     LXI    B,10
  79.     LDDR
  80.     JMP    L1012
  81. L1028
  82.     LXI    H,2
  83.     DSB1
  84.     JNZ    L1044
  85. L1045
  86.     STMT    D,4181
  87.     JR    L1059
  88. L1058
  89.     DB    'YADSEUT',7
  90. L1059
  91.     LXI    H,L1058+7
  92.     XCHG
  93.     MOV    H,9(IX)
  94.     MOV    L,8(IX)
  95.     XCHG
  96.     LXI    B,10
  97.     LDDR
  98.     JMP    L1012
  99. L1044
  100.     LXI    H,3
  101.     DSB1
  102.     JNZ    L1060
  103. L1061
  104.     STMT    D,4182
  105.     JR    L1075
  106. L1074
  107.     DB    'YADSENDEW',9
  108. L1075
  109.     LXI    H,L1074+9
  110.     XCHG
  111.     MOV    H,9(IX)
  112.     MOV    L,8(IX)
  113.     XCHG
  114.     LXI    B,10
  115.     LDDR
  116.     JMP    L1012
  117. L1060
  118.     LXI    H,4
  119.     DSB1
  120.     JNZ    L1076
  121. L1077
  122.     STMT    D,4183
  123.     JR    L1091
  124. L1090
  125.     DB    'YADSRUHT',8
  126. L1091
  127.     LXI    H,L1090+8
  128.     XCHG
  129.     MOV    H,9(IX)
  130.     MOV    L,8(IX)
  131.     XCHG
  132.     LXI    B,10
  133.     LDDR
  134.     JMP    L1012
  135. L1076
  136.     LXI    H,5
  137.     DSB1
  138.     JNZ    L1092
  139. L1093
  140.     STMT    D,4184
  141.     JR    L1107
  142. L1106
  143.     DB    'YADIRF',6
  144. L1107
  145.     LXI    H,L1106+6
  146.     XCHG
  147.     MOV    H,9(IX)
  148.     MOV    L,8(IX)
  149.     XCHG
  150.     LXI    B,10
  151.     LDDR
  152.     JMP    L1012
  153. L1092
  154.     LXI    H,6
  155.     DSB1
  156.     JNZ    L1108
  157. L1109
  158.     STMT    D,4185
  159.     JR    L1123
  160. L1122
  161.     DB    'YADRUTAS',8
  162. L1123
  163.     LXI    H,L1122+8
  164.     XCHG
  165.     MOV    H,9(IX)
  166.     MOV    L,8(IX)
  167.     XCHG
  168.     LXI    B,10
  169.     LDDR
  170.     JMP    L1012
  171. L1108
  172. L1125
  173.     STMT    D,4186
  174.     JR    L1133
  175. L1132
  176.     DB    'RORRE',5
  177. L1133
  178.     LXI    H,L1132+5
  179.     XCHG
  180.     MOV    H,9(IX)
  181.     MOV    L,8(IX)
  182.     XCHG
  183.     LXI    B,10
  184.     LDDR
  185. L1124
  186. L1012
  187.     STMT    D,4187
  188.     MOV    L,19(IX)
  189.     MOV    H,20(IX)
  190.     XCHG
  191.     LXI    H,1
  192.     DSB1
  193.     JNZ    L1143
  194. L1145
  195.     STMT    D,4188
  196.     JR    L1159
  197. L1158
  198.     DB    'YRAUNAJ',7
  199. L1159
  200.     LXI    H,L1158+7
  201.     XCHG
  202.     MOV    H,11(IX)
  203.     MOV    L,10(IX)
  204.     XCHG
  205.     LXI    B,10
  206.     LDDR
  207.     JMP    L1144
  208. L1143
  209.     LXI    H,2
  210.     DSB1
  211.     JNZ    L1160
  212. L1161
  213.     STMT    D,4189
  214.     JR    L1175
  215. L1174
  216.     DB    'YRAURBEF',8
  217. L1175
  218.     LXI    H,L1174+8
  219.     XCHG
  220.     MOV    H,11(IX)
  221.     MOV    L,10(IX)
  222.     XCHG
  223.     LXI    B,10
  224.     LDDR
  225.     JMP    L1144
  226. L1160
  227.     LXI    H,3
  228.     DSB1
  229.     JNZ    L1176
  230. L1177
  231.     STMT    D,4190
  232.     JR    L1191
  233. L1190
  234.     DB    'HCRAM',5
  235. L1191
  236.     LXI    H,L1190+5
  237.     XCHG
  238.     MOV    H,11(IX)
  239.     MOV    L,10(IX)
  240.     XCHG
  241.     LXI    B,10
  242.     LDDR
  243.     JMP    L1144
  244. L1176
  245.     LXI    H,4
  246.     DSB1
  247.     JNZ    L1192
  248. L1193
  249.     STMT    D,4191
  250.     JR    L1207
  251. L1206
  252.     DB    'LIRPA',5
  253. L1207
  254.     LXI    H,L1206+5
  255.     XCHG
  256.     MOV    H,11(IX)
  257.     MOV    L,10(IX)
  258.     XCHG
  259.     LXI    B,10
  260.     LDDR
  261.     JMP    L1144
  262. L1192
  263.     LXI    H,5
  264.     DSB1
  265.     JNZ    L1208
  266. L1209
  267.     STMT    D,4192
  268.     JR    L1223
  269. L1222
  270.     DB    'YAM',3
  271. L1223
  272.     LXI    H,L1222+3
  273.     XCHG
  274.     MOV    H,11(IX)
  275.     MOV    L,10(IX)
  276.     XCHG
  277.     LXI    B,10
  278.     LDDR
  279.     JMP    L1144
  280. L1208
  281.     LXI    H,6
  282.     DSB1
  283.     JNZ    L1224
  284. L1225
  285.     STMT    D,4193
  286.     JR    L1239
  287. L1238
  288.     DB    'ENUJ',4
  289. L1239
  290.     LXI    H,L1238+4
  291.     XCHG
  292.     MOV    H,11(IX)
  293.     MOV    L,10(IX)
  294.     XCHG
  295.     LXI    B,10
  296.     LDDR
  297.     JMP    L1144
  298. L1224
  299.     LXI    H,7
  300.     DSB1
  301.     JNZ    L1240
  302. L1241
  303.     STMT    D,4194
  304.     JR    L1255
  305. L1254
  306.     DB    'YLUJ',4
  307. L1255
  308.     LXI    H,L1254+4
  309.     XCHG
  310.     MOV    H,11(IX)
  311.     MOV    L,10(IX)
  312.     XCHG
  313.     LXI    B,10
  314.     LDDR
  315.     JMP    L1144
  316. L1240
  317.     LXI    H,8
  318.     DSB1
  319.     JNZ    L1256
  320. L1257
  321.     STMT    D,4195
  322.     JR    L1271
  323. L1270
  324.     DB    'TSUGUA',6
  325. L1271
  326.     LXI    H,L1270+6
  327.     XCHG
  328.     MOV    H,11(IX)
  329.     MOV    L,10(IX)
  330.     XCHG
  331.     LXI    B,10
  332.     LDDR
  333.     JMP    L1144
  334. L1256
  335.     LXI    H,9
  336.     DSB1
  337.     JNZ    L1272
  338. L1273
  339.     STMT    D,4196
  340.     JR    L1287
  341. L1286
  342.     DB    'REBMETPES',9
  343. L1287
  344.     LXI    H,L1286+9
  345.     XCHG
  346.     MOV    H,11(IX)
  347.     MOV    L,10(IX)
  348.     XCHG
  349.     LXI    B,10
  350.     LDDR
  351.     JMP    L1144
  352. L1272
  353.     LXI    H,10
  354.     DSB1
  355.     JNZ    L1288
  356. L1289
  357.     STMT    D,4197
  358.     JR    L1303
  359. L1302
  360.     DB    'REBOTCO',7
  361. L1303
  362.     LXI    H,L1302+7
  363.     XCHG
  364.     MOV    H,11(IX)
  365.     MOV    L,10(IX)
  366.     XCHG
  367.     LXI    B,10
  368.     LDDR
  369.     JMP    L1144
  370. L1288
  371.     LXI    H,11
  372.     DSB1
  373.     JNZ    L1304
  374. L1305
  375.     STMT    D,4198
  376.     JR    L1319
  377. L1318
  378.     DB    'REBMEVON',8
  379. L1319
  380.     LXI    H,L1318+8
  381.     XCHG
  382.     MOV    H,11(IX)
  383.     MOV    L,10(IX)
  384.     XCHG
  385.     LXI    B,10
  386.     LDDR
  387.     JMP    L1144
  388. L1304
  389.     LXI    H,12
  390.     DSB1
  391.     JNZ    L1320
  392. L1321
  393.     STMT    D,4199
  394.     JR    L1335
  395. L1334
  396.     DB    'REBMECED',8
  397. L1335
  398.     LXI    H,L1334+8
  399.     XCHG
  400.     MOV    H,11(IX)
  401.     MOV    L,10(IX)
  402.     XCHG
  403.     LXI    B,10
  404.     LDDR
  405.     JMP    L1144
  406. L1320
  407. L1337
  408.     STMT    D,4200
  409.     JR    L1345
  410. L1344
  411.     DB    'RORRE',5
  412. L1345
  413.     LXI    H,L1344+5
  414.     XCHG
  415.     MOV    H,11(IX)
  416.     MOV    L,10(IX)
  417.     XCHG
  418.     LXI    B,10
  419.     LDDR
  420. L1336
  421. L1144
  422.     STMT    D,4201
  423.     EXIT    D,13
  424.     END    NAME_DATE
  425.